packages feed

qtah-qt5 0.7.0 → 0.8.0

raw patch · 576 files changed

+149431/−197 lines, 576 filesdep ~hoppy-runtimedep ~qtah-cpp-qt5dep ~qtah-generatorsetup-changed

Dependency ranges changed: hoppy-runtime, qtah-cpp-qt5, qtah-generator

This diff is very large; some files are shown as “too large to diff”. Download the raw patch for the complete diff.

Files

Setup.hs view
@@ -1,6 +1,6 @@ -- This file is part of Qtah. ----- Copyright 2015-2020 The Qtah Authors.+-- Copyright 2015-2021 The Qtah Authors. -- -- This program is free software: you can redistribute it and/or modify -- it under the terms of the GNU Lesser General Public License as published by@@ -21,7 +21,7 @@ import Control.Applicative ((<|>)) import Control.Monad (unless, when) import Data.Char (isDigit)-import Data.List (isInfixOf, isPrefixOf)+import Data.List (intercalate, isInfixOf, isPrefixOf) import Data.Maybe (fromMaybe) import Distribution.InstalledPackageInfo (libraryDirs) import Distribution.Package (@@ -53,16 +53,8 @@   installedPkgs,   libdir,   localPkgDescr,-  withPrograms,   ) import Distribution.Simple.PackageIndex (lookupPackageName)-import Distribution.Simple.Program (-  Program,-  getProgramOutput,-  lookupProgram,-  runDbProgram,-  simpleProgram,-  ) import Distribution.Simple.Setup (   CleanFlags,   ConfigFlags,@@ -79,7 +71,6 @@   ) import Distribution.Simple.UserHooks (   UserHooks (-    hookedPrograms,     cleanHook,     copyHook,     instHook,@@ -104,6 +95,8 @@ import Distribution.Types.GenericPackageDescription (lookupFlagAssignment) #endif import Distribution.Verbosity (Verbosity, normal)+import Graphics.UI.Qtah.Generator.Config (qtVersion)+import Graphics.UI.Qtah.Generator.Main (generateHs) import System.Directory (   createDirectoryIfMissing,   doesDirectoryExist,@@ -136,8 +129,7 @@  qtahHooks :: UserHooks qtahHooks = simpleUserHooks-  { hookedPrograms = [generatorProgram]-  , postConf = \args cf pd lbi -> do libDir <-+  { postConf = \args cf pd lbi -> do libDir <-                                        lookupQtahCppLibDir lbi #if MIN_VERSION_Cabal(2,0,0)                                        (die' $ fromFlagOrDefault normal $ configVerbosity cf)@@ -203,13 +195,9 @@                               },           []) -generatorProgram :: Program-generatorProgram = simpleProgram "qtah-generator"- generateSources :: ConfigFlags -> LocalBuildInfo -> FilePath -> IO () generateSources configFlags localBuildInfo qtahCppLibDir = do   let verbosity = fromFlagOrDefault normal $ configVerbosity configFlags-      programDb = withPrograms localBuildInfo #if MIN_VERSION_Cabal(2,0,0)       dieFn = die' verbosity #else@@ -235,7 +223,7 @@      cppPackageName, " (", qtahCppQtVersion, ").  Please reconfigure one or the other."]    -- Generate binding source code.-  runDbProgram verbosity generatorProgram programDb ["--gen-hs", "src"]+  generateHs "src"  doInstall :: Verbosity -> PackageDescription -> LocalBuildInfo -> CopyDest -> IO () doInstall verbosity packageDesc localBuildInfo copyDest = do@@ -316,7 +304,6 @@ exportQtVersion :: ConfigFlags -> LocalBuildInfo -> IO String exportQtVersion configFlags localBuildInfo = do   let verbosity = fromFlagOrDefault normal $ configVerbosity configFlags-      programDb = withPrograms localBuildInfo #if MIN_VERSION_Cabal(2,0,0)       dieFn = die' verbosity #else@@ -398,21 +385,12 @@     Nothing -> return ()    -- Log a message showing which Qt qtah-generator is actually using.-  generatorConfiguredProgram <--    maybe (dieFn $ packageName ++ ": Couldn't find qtah-generator.  Is it installed?") return $-    lookupProgram generatorProgram programDb-  qtVersionOutput <- getProgramOutput verbosity generatorConfiguredProgram ["--qt-version"]-  qtVersion <- case lines qtVersionOutput of-    [line] -> return line-    _ -> dieFn $ concat-         [packageName, ": Couldn't understand qtah-generator --qt-version output: ",-          show qtVersionOutput]-  notice verbosity $-    concat [packageName, ": Using Qt ", qtVersion, "."]+  let qtVersionStr = intercalate "." $ map show qtVersion+  notice verbosity $ concat [packageName, ": Using Qt ", qtVersionStr, "."]    -- Record the selected Qt version in a file for later installation.   let qtVersionFile = buildDir localBuildInfo </> "qtah-qt-version"   createDirectoryIfMissing True $ takeDirectory qtVersionFile-  writeFile qtVersionFile $ unlines [qtVersion]+  writeFile qtVersionFile $ qtVersionStr ++ "\n" -  return qtVersion+  return qtVersionStr
qtah-qt5.cabal view
@@ -1,15 +1,15 @@ name: qtah-qt5-version: 0.7.0+version: 0.8.0 synopsis: Qt bindings for Haskell homepage: http://khumba.net/projects/qtah license: LGPL-3 license-files: LICENSE.GPL, LICENSE.LGPL author: Bryan Gardiner <bog@khumba.net> maintainer: Bryan Gardiner <bog@khumba.net>-copyright: Copyright 2015-2020 The Qtah Authors.+copyright: Copyright 2015-2021 The Qtah Authors. category: Graphics build-type: Custom-cabal-version: 1.20+cabal-version: 2.0 description:   Qtah is a set of Qt bindings for Haskell.  This package contains the Haskell   side of the bindings, and is what Qt programs should use directly.@@ -77,6 +77,7 @@     , Graphics.UI.Qtah.Core.QMetaObject     , Graphics.UI.Qtah.Core.QMetaObject.Connection     , Graphics.UI.Qtah.Core.QMetaProperty+    , Graphics.UI.Qtah.Core.QMimeData     , Graphics.UI.Qtah.Core.QModelIndex     , Graphics.UI.Qtah.Core.QObject     , Graphics.UI.Qtah.Core.QOperatingSystemVersion@@ -148,17 +149,25 @@     , Graphics.UI.Qtah.Gui.QClipboard     , Graphics.UI.Qtah.Gui.QCloseEvent     , Graphics.UI.Qtah.Gui.QColor+    , Graphics.UI.Qtah.Gui.QContextMenuEvent     , Graphics.UI.Qtah.Gui.QCursor     , Graphics.UI.Qtah.Gui.QDoubleValidator+    , Graphics.UI.Qtah.Gui.QDragEnterEvent+    , Graphics.UI.Qtah.Gui.QDragLeaveEvent+    , Graphics.UI.Qtah.Gui.QDragMoveEvent+    , Graphics.UI.Qtah.Gui.QDropEvent     , Graphics.UI.Qtah.Gui.QEnterEvent     , Graphics.UI.Qtah.Gui.QExposeEvent+    , Graphics.UI.Qtah.Gui.QFileOpenEvent     , Graphics.UI.Qtah.Gui.QFocusEvent     , Graphics.UI.Qtah.Gui.QFont     , Graphics.UI.Qtah.Gui.QFontDatabase     , Graphics.UI.Qtah.Gui.QGradient+    , Graphics.UI.Qtah.Gui.QHelpEvent     , Graphics.UI.Qtah.Gui.QHideEvent     , Graphics.UI.Qtah.Gui.QHoverEvent     , Graphics.UI.Qtah.Gui.QIcon+    , Graphics.UI.Qtah.Gui.QIconDragEvent     , Graphics.UI.Qtah.Gui.QImage     , Graphics.UI.Qtah.Gui.QInputEvent     , Graphics.UI.Qtah.Gui.QIntValidator@@ -325,6 +334,7 @@     , Graphics.UI.Qtah.Generated.Core.QMetaObject     , Graphics.UI.Qtah.Generated.Core.QMetaObject.Connection     , Graphics.UI.Qtah.Generated.Core.QMetaProperty+    , Graphics.UI.Qtah.Generated.Core.QMimeData     , Graphics.UI.Qtah.Generated.Core.QModelIndex     , Graphics.UI.Qtah.Generated.Core.QObject     , Graphics.UI.Qtah.Generated.Core.QOperatingSystemVersion@@ -393,17 +403,25 @@     , Graphics.UI.Qtah.Generated.Gui.QClipboard     , Graphics.UI.Qtah.Generated.Gui.QCloseEvent     , Graphics.UI.Qtah.Generated.Gui.QColor+    , Graphics.UI.Qtah.Generated.Gui.QContextMenuEvent     , Graphics.UI.Qtah.Generated.Gui.QCursor     , Graphics.UI.Qtah.Generated.Gui.QDoubleValidator+    , Graphics.UI.Qtah.Generated.Gui.QDragEnterEvent+    , Graphics.UI.Qtah.Generated.Gui.QDragLeaveEvent+    , Graphics.UI.Qtah.Generated.Gui.QDragMoveEvent+    , Graphics.UI.Qtah.Generated.Gui.QDropEvent     , Graphics.UI.Qtah.Generated.Gui.QEnterEvent     , Graphics.UI.Qtah.Generated.Gui.QExposeEvent+    , Graphics.UI.Qtah.Generated.Gui.QFileOpenEvent     , Graphics.UI.Qtah.Generated.Gui.QFocusEvent     , Graphics.UI.Qtah.Generated.Gui.QFont     , Graphics.UI.Qtah.Generated.Gui.QFontDatabase     , Graphics.UI.Qtah.Generated.Gui.QGradient+    , Graphics.UI.Qtah.Generated.Gui.QHelpEvent     , Graphics.UI.Qtah.Generated.Gui.QHideEvent     , Graphics.UI.Qtah.Generated.Gui.QHoverEvent     , Graphics.UI.Qtah.Generated.Gui.QIcon+    , Graphics.UI.Qtah.Generated.Gui.QIconDragEvent     , Graphics.UI.Qtah.Generated.Gui.QImage     , Graphics.UI.Qtah.Generated.Gui.QInputEvent     , Graphics.UI.Qtah.Generated.Gui.QIntValidator@@ -525,9 +543,9 @@       base >=4 && <5     , binary >=0.7 && <0.9     , bytestring >=0.10 && <0.11-    , hoppy-runtime >=0.7 && <0.8-    , qtah-cpp-qt5 >=0.7 && <0.8-    , qtah-generator >=0.7 && <0.8+    , hoppy-runtime >=0.8 && <0.9+    , qtah-cpp-qt5 >=0.8 && <0.9+    , qtah-generator >=0.8 && <0.9   hs-source-dirs: src   ghc-options: -W -fwarn-incomplete-patterns -fwarn-unused-do-bind   default-language: Haskell2010@@ -541,7 +559,7 @@       Graphics.UI.Qtah.EventTest   build-depends:       base >=4 && <5-    , hoppy-runtime >=0.7 && <0.8+    , hoppy-runtime >=0.8 && <0.9     , HUnit >=1.2 && <1.7     , qtah-qt5   hs-source-dirs: tests@@ -554,3 +572,4 @@     , Cabal     , directory     , filepath+    , qtah-generator >=0.8 && <0.9
src/Graphics/UI/Qtah/Core/HMargins.hs view
@@ -1,6 +1,6 @@ -- This file is part of Qtah. ----- Copyright 2015-2020 The Qtah Authors.+-- Copyright 2015-2021 The Qtah Authors. -- -- This program is free software: you can redistribute it and/or modify -- it under the terms of the GNU Lesser General Public License as published by
src/Graphics/UI/Qtah/Core/HPoint.hs view
@@ -1,6 +1,6 @@ -- This file is part of Qtah. ----- Copyright 2015-2020 The Qtah Authors.+-- Copyright 2015-2021 The Qtah Authors. -- -- This program is free software: you can redistribute it and/or modify -- it under the terms of the GNU Lesser General Public License as published by
src/Graphics/UI/Qtah/Core/HPointF.hs view
@@ -1,6 +1,6 @@ -- This file is part of Qtah. ----- Copyright 2015-2020 The Qtah Authors.+-- Copyright 2015-2021 The Qtah Authors. -- -- This program is free software: you can redistribute it and/or modify -- it under the terms of the GNU Lesser General Public License as published by
src/Graphics/UI/Qtah/Core/HRect.hs view
@@ -1,6 +1,6 @@ -- This file is part of Qtah. ----- Copyright 2015-2020 The Qtah Authors.+-- Copyright 2015-2021 The Qtah Authors. -- -- This program is free software: you can redistribute it and/or modify -- it under the terms of the GNU Lesser General Public License as published by
src/Graphics/UI/Qtah/Core/HSize.hs view
@@ -1,6 +1,6 @@ -- This file is part of Qtah. ----- Copyright 2015-2020 The Qtah Authors.+-- Copyright 2015-2021 The Qtah Authors. -- -- This program is free software: you can redistribute it and/or modify -- it under the terms of the GNU Lesser General Public License as published by
src/Graphics/UI/Qtah/Core/QAbstractAnimation.hs view
@@ -0,0 +1,95 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QAbstractAnimation (+  QAbstractAnimationValue (..),+  QAbstractAnimationConstPtr (..),+  QAbstractAnimationPtr (..),+  QAbstractAnimationConst,+  QAbstractAnimation,+  castConst,+  cast,+  downCastConst,+  downCast,+  currentLoopTime,+  duration,+  emitCurrentLoopChanged,+  emitDirectionChanged,+  emitFinished,+  emitStateChanged,+  pause,+  resume,+  setPaused,+  start,+  startWithDeletionPolicy,+  stop,+  totalDuration,+  currentLoopChangedSignal,+  directionChangedSignal,+  finishedSignal,+  stateChangedSignal,+  QAbstractAnimationDeletionPolicy (..),+  QAbstractAnimationDirection (..),+  QAbstractAnimationState (..),+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QAbstractAnimation+import qualified Graphics.UI.Qtah.Generated.Core.QAbstractAnimation as M2+import Graphics.UI.Qtah.Internal.Listener+import qualified Graphics.UI.Qtah.Signal as QtahSignal+import Prelude (($), (>>))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++castConst = toQAbstractAnimationConst+cast = toQAbstractAnimation+downCastConst = downToQAbstractAnimationConst+downCast = downToQAbstractAnimation++currentLoopChangedSignal :: (QAbstractAnimationPtr object) => QtahSignal.Signal object (HoppyP.Int -> HoppyP.IO ())+currentLoopChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerInt_new object' "2currentLoopChanged(int)" fn'+    valid' <- listenerInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractAnimation::currentLoopChanged (ListenerInt)"+  }++directionChangedSignal :: (QAbstractAnimationPtr object) => QtahSignal.Signal object (M2.QAbstractAnimationDirection -> HoppyP.IO ())+directionChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerDirection_new object' "2directionChanged(QAbstractAnimation::Direction)" fn'+    valid' <- listenerDirection_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractAnimation::directionChanged (ListenerDirection)"+  }++finishedSignal :: (QAbstractAnimationPtr object) => QtahSignal.Signal object (HoppyP.IO ())+finishedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listener_new object' "2finished()" fn'+    valid' <- listener_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractAnimation::finished (Listener)"+  }++stateChangedSignal :: (QAbstractAnimationPtr object) => QtahSignal.Signal object (M2.QAbstractAnimationState -> M2.QAbstractAnimationState -> HoppyP.IO ())+stateChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerStateState_new object' "2stateChanged(QAbstractAnimation::State,QAbstractAnimation::State)" fn'+    valid' <- listenerStateState_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractAnimation::stateChanged (ListenerStateState)"+  }
src/Graphics/UI/Qtah/Core/QAbstractItemModel.hs view
@@ -0,0 +1,289 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QAbstractItemModel (+  QAbstractItemModelValue (..),+  QAbstractItemModelConstPtr (..),+  QAbstractItemModelPtr (..),+  QAbstractItemModelConst,+  QAbstractItemModel,+  castConst,+  cast,+  downCastConst,+  downCast,+  buddy,+  canFetchMore,+  checkIndex,+  checkIndexWithOptions,+  columnCount,+  columnCountAt,+  emitDataChanged,+  emitHeaderDataChanged,+  fetchMore,+  flags,+  getData,+  getDataWithRole,+  hasChildren,+  hasChildrenAt,+  hasIndex,+  hasIndexAt,+  headerData,+  headerDataWithRole,+  index,+  indexAt,+  insertColumn,+  insertColumnAt,+  insertColumns,+  insertColumnsAt,+  insertRow,+  insertRowAt,+  insertRows,+  insertRowsAt,+  mimeTypes,+  moveColumn,+  moveColumns,+  moveRow,+  moveRows,+  parent,+  removeColumn,+  removeColumnAt,+  removeColumns,+  removeColumnsAt,+  removeRow,+  removeRowAt,+  removeRows,+  removeRowsAt,+  revert,+  rowCount,+  rowCountAt,+  setData,+  setDataWithRole,+  setHeaderData,+  setHeaderDataWithRole,+  sibling,+  sort,+  sortWithOrder,+  span,+  submit,+  supportedDragActions,+  supportedDropActions,+  columnsAboutToBeInsertedSignal,+  columnsAboutToBeMovedSignal,+  columnsAboutToBeRemovedSignal,+  columnsInsertedSignal,+  columnsMovedSignal,+  columnsRemovedSignal,+  dataChangedSignal,+  headerDataChangedSignal,+  modelAboutToBeResetSignal,+  modelResetSignal,+  rowsAboutToBeInsertedSignal,+  rowsAboutToBeMovedSignal,+  rowsAboutToBeRemovedSignal,+  rowsInsertedSignal,+  rowsMovedSignal,+  rowsRemovedSignal,+  QAbstractItemModelLayoutChangeHint (..),+  QAbstractItemModelCheckIndexOption (..),+  QAbstractItemModelCheckIndexOptions,+  IsQAbstractItemModelCheckIndexOptions (..),+  noOption,+  indexIsValid,+  doNotUseParent,+  parentIsInvalid,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QAbstractItemModel+import qualified Graphics.UI.Qtah.Generated.Core.QModelIndex as M92+import qualified Graphics.UI.Qtah.Generated.Core.QVector.Int as M214+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Graphics.UI.Qtah.Internal.Listener+import qualified Graphics.UI.Qtah.Signal as QtahSignal+import Prelude (($), (>>))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++castConst = toQAbstractItemModelConst+cast = toQAbstractItemModel+downCastConst = downToQAbstractItemModelConst+downCast = downToQAbstractItemModel++columnsAboutToBeInsertedSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> HoppyP.Int -> HoppyP.Int -> HoppyP.IO ())+columnsAboutToBeInsertedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexIntInt_new object' "2columnsAboutToBeInserted(QModelIndex,int,int)" fn'+    valid' <- listenerQModelIndexIntInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::columnsAboutToBeInserted (ListenerQModelIndexIntInt)"+  }++columnsAboutToBeMovedSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> HoppyP.Int -> HoppyP.Int -> M92.QModelIndex -> HoppyP.Int -> HoppyP.IO ())+columnsAboutToBeMovedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexIntIntQModelIndexInt_new object' "2columnsAboutToBeMoved(QModelIndex,int,int,QModelIndex,int)" fn'+    valid' <- listenerQModelIndexIntIntQModelIndexInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::columnsAboutToBeMoved (ListenerQModelIndexIntIntQModelIndexInt)"+  }++columnsAboutToBeRemovedSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> HoppyP.Int -> HoppyP.Int -> HoppyP.IO ())+columnsAboutToBeRemovedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexIntInt_new object' "2columnsAboutToBeRemoved(QModelIndex,int,int)" fn'+    valid' <- listenerQModelIndexIntInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::columnsAboutToBeRemoved (ListenerQModelIndexIntInt)"+  }++columnsInsertedSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> HoppyP.Int -> HoppyP.Int -> HoppyP.IO ())+columnsInsertedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexIntInt_new object' "2columnsInserted(QModelIndex,int,int)" fn'+    valid' <- listenerQModelIndexIntInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::columnsInserted (ListenerQModelIndexIntInt)"+  }++columnsMovedSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> HoppyP.Int -> HoppyP.Int -> M92.QModelIndex -> HoppyP.Int -> HoppyP.IO ())+columnsMovedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexIntIntQModelIndexInt_new object' "2columnsMoved(QModelIndex,int,int,QModelIndex,int)" fn'+    valid' <- listenerQModelIndexIntIntQModelIndexInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::columnsMoved (ListenerQModelIndexIntIntQModelIndexInt)"+  }++columnsRemovedSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> HoppyP.Int -> HoppyP.Int -> HoppyP.IO ())+columnsRemovedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexIntInt_new object' "2columnsRemoved(QModelIndex,int,int)" fn'+    valid' <- listenerQModelIndexIntInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::columnsRemoved (ListenerQModelIndexIntInt)"+  }++dataChangedSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> M92.QModelIndex -> M214.QVectorInt -> HoppyP.IO ())+dataChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexQModelIndexQVectorInt_new object' "2dataChanged(QModelIndex,QModelIndex,QVector<int>)" fn'+    valid' <- listenerQModelIndexQModelIndexQVectorInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::dataChanged (ListenerQModelIndexQModelIndexQVectorInt)"+  }++headerDataChangedSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (M190.QtOrientation -> HoppyP.Int -> HoppyP.Int -> HoppyP.IO ())+headerDataChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerOrientationIntInt_new object' "2headerDataChanged(Qt::Orientation,int,int)" fn'+    valid' <- listenerOrientationIntInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::headerDataChanged (ListenerOrientationIntInt)"+  }++modelAboutToBeResetSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (HoppyP.IO ())+modelAboutToBeResetSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listener_new object' "2modelAboutToBeReset()" fn'+    valid' <- listener_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::modelAboutToBeReset (Listener)"+  }++modelResetSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (HoppyP.IO ())+modelResetSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listener_new object' "2modelReset()" fn'+    valid' <- listener_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::modelReset (Listener)"+  }++rowsAboutToBeInsertedSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> HoppyP.Int -> HoppyP.Int -> HoppyP.IO ())+rowsAboutToBeInsertedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexIntInt_new object' "2rowsAboutToBeInserted(QModelIndex,int,int)" fn'+    valid' <- listenerQModelIndexIntInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::rowsAboutToBeInserted (ListenerQModelIndexIntInt)"+  }++rowsAboutToBeMovedSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> HoppyP.Int -> HoppyP.Int -> M92.QModelIndex -> HoppyP.Int -> HoppyP.IO ())+rowsAboutToBeMovedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexIntIntQModelIndexInt_new object' "2rowsAboutToBeMoved(QModelIndex,int,int,QModelIndex,int)" fn'+    valid' <- listenerQModelIndexIntIntQModelIndexInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::rowsAboutToBeMoved (ListenerQModelIndexIntIntQModelIndexInt)"+  }++rowsAboutToBeRemovedSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> HoppyP.Int -> HoppyP.Int -> HoppyP.IO ())+rowsAboutToBeRemovedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexIntInt_new object' "2rowsAboutToBeRemoved(QModelIndex,int,int)" fn'+    valid' <- listenerQModelIndexIntInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::rowsAboutToBeRemoved (ListenerQModelIndexIntInt)"+  }++rowsInsertedSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> HoppyP.Int -> HoppyP.Int -> HoppyP.IO ())+rowsInsertedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexIntInt_new object' "2rowsInserted(QModelIndex,int,int)" fn'+    valid' <- listenerQModelIndexIntInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::rowsInserted (ListenerQModelIndexIntInt)"+  }++rowsMovedSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> HoppyP.Int -> HoppyP.Int -> M92.QModelIndex -> HoppyP.Int -> HoppyP.IO ())+rowsMovedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexIntIntQModelIndexInt_new object' "2rowsMoved(QModelIndex,int,int,QModelIndex,int)" fn'+    valid' <- listenerQModelIndexIntIntQModelIndexInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::rowsMoved (ListenerQModelIndexIntIntQModelIndexInt)"+  }++rowsRemovedSignal :: (QAbstractItemModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> HoppyP.Int -> HoppyP.Int -> HoppyP.IO ())+rowsRemovedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexIntInt_new object' "2rowsRemoved(QModelIndex,int,int)" fn'+    valid' <- listenerQModelIndexIntInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QAbstractItemModel::rowsRemoved (ListenerQModelIndexIntInt)"+  }
src/Graphics/UI/Qtah/Core/QAbstractListModel.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QAbstractListModel (+  QAbstractListModelValue (..),+  QAbstractListModelConstPtr (..),+  QAbstractListModelPtr (..),+  QAbstractListModelConst,+  QAbstractListModel,+  castConst,+  cast,+  downCastConst,+  downCast,+  ) where++import Graphics.UI.Qtah.Generated.Core.QAbstractListModel+import Prelude ()+++castConst = toQAbstractListModelConst+cast = toQAbstractListModel+downCastConst = downToQAbstractListModelConst+downCast = downToQAbstractListModel
src/Graphics/UI/Qtah/Core/QAbstractTableModel.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QAbstractTableModel (+  QAbstractTableModelValue (..),+  QAbstractTableModelConstPtr (..),+  QAbstractTableModelPtr (..),+  QAbstractTableModelConst,+  QAbstractTableModel,+  castConst,+  cast,+  downCastConst,+  downCast,+  ) where++import Graphics.UI.Qtah.Generated.Core.QAbstractTableModel+import Prelude ()+++castConst = toQAbstractTableModelConst+cast = toQAbstractTableModel+downCastConst = downToQAbstractTableModelConst+downCast = downToQAbstractTableModel
src/Graphics/UI/Qtah/Core/QAnimationGroup.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QAnimationGroup (+  QAnimationGroupValue (..),+  QAnimationGroupConstPtr (..),+  QAnimationGroupPtr (..),+  QAnimationGroupConst,+  QAnimationGroup,+  castConst,+  cast,+  downCastConst,+  downCast,+  addAnimation,+  animationAt,+  animationCount,+  clear,+  duration,+  indexOfAnimation,+  insertAnimation,+  removeAnimation,+  takeAnimation,+  ) where++import Graphics.UI.Qtah.Generated.Core.QAnimationGroup+import Prelude ()+++castConst = toQAnimationGroupConst+cast = toQAnimationGroup+downCastConst = downToQAnimationGroupConst+downCast = downToQAnimationGroup
src/Graphics/UI/Qtah/Core/QBuffer.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QBuffer (+  QBufferValue (..),+  QBufferConstPtr (..),+  QBufferPtr (..),+  QBufferConst,+  QBuffer,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithByteArray,+  newWithByteArrayAndParent,+  newWithParent,+  buffer,+  bufferConst,+  getData,+  setBuffer,+  setDataByteArray,+  setDataRaw,+  ) where++import Graphics.UI.Qtah.Generated.Core.QBuffer+import Prelude ()+++castConst = toQBufferConst+cast = toQBuffer+downCastConst = downToQBufferConst+downCast = downToQBuffer
src/Graphics/UI/Qtah/Core/QByteArray.hs view
@@ -0,0 +1,152 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QByteArray (+  QByteArrayValue (..),+  QByteArrayConstPtr (..),+  QByteArrayPtr (..),+  QByteArrayConst,+  QByteArray,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  newFromData,+  newFromDataAndSize,+  newFromRepeatedChar,+  aSSIGN,+  append,+  appendChar,+  appendCountAndChar,+  appendPtrConstChar,+  appendPtrConstCharAndSize,+  appendString,+  at,+  back,+  capacity,+  chop,+  chopped,+  clear,+  compare,+  comparePtrConstChar,+  comparePtrConstCharWithCase,+  compareWithCase,+  constData,+  contains,+  containsChar,+  containsPtrConstChar,+  count,+  countByteArray,+  countChar,+  countPtrConstChar,+  eQ,+  endsWith,+  endsWithChar,+  endsWithPtrConstChar,+  fill,+  fillWithSize,+  front,+  gE,+  gT,+  getData,+  getDataConst,+  indexOf,+  indexOfChar,+  indexOfCharFrom,+  indexOfFrom,+  indexOfPtrConstChar,+  indexOfPtrConstCharFrom,+  indexOfString,+  indexOfStringFrom,+  insert,+  insertChar,+  insertCountAndChar,+  insertPtrConstChar,+  insertPtrConstCharAndSize,+  insertString,+  isEmpty,+  isLower,+  isNull,+  isUpper,+  lE,+  lT,+  lastIndexOf,+  lastIndexOfChar,+  lastIndexOfCharFrom,+  lastIndexOfFrom,+  lastIndexOfPtrConstChar,+  lastIndexOfPtrConstCharFrom,+  lastIndexOfString,+  lastIndexOfStringFrom,+  left,+  leftJustified,+  leftJustifiedWithChar,+  leftJustifiedWithCharAndTruncate,+  length,+  nE,+  prepend,+  prependChar,+  prependCountAndChar,+  prependPtrConstChar,+  prependPtrConstCharAndSize,+  replaceByteArray,+  replaceByteArrayWithPtrConstChar,+  replaceChar,+  replaceCharWithByteArray,+  replaceCharWithPtrConstChar,+  replaceCharWithString,+  replacePtrConstChar,+  replacePtrConstCharAndSize,+  replacePtrConstCharWithByteArray,+  replaceRangeWithByteArray,+  replaceRangeWithPtrConstChar,+  replaceRangeWithPtrConstCharAndSize,+  replaceStringWithByteArray,+  replaceStringWithPtrConstChar,+  setNumDouble,+  setNumDoubleWithFormat,+  setNumDoubleWithFormatAndPrecision,+  setNumFloat,+  setNumFloatWithFormat,+  setNumFloatWithFormatAndPrecision,+  setNumInt,+  setNumIntWithBase,+  setNumShort,+  setNumShortWithBase,+  setNumUint,+  setNumUintWithBase,+  setNumUshort,+  setNumUshortWithBase,+  size,+  QByteArrayBase64Option (..),+  QByteArrayBase64Options,+  IsQByteArrayBase64Options (..),+  base64Encoding,+  keepTrailingEquals,+  base64UrlEncoding,+  omitTrailingEquals,+  ) where++import qualified Data.ByteString as QtahDBS+import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QByteArray+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQByteArrayConst+cast = toQByteArray+downCastConst = downToQByteArrayConst+downCast = downToQByteArray++encode :: QtahDBS.ByteString -> QtahP.IO QByteArray+encode = QtahFHR.encodeAs (QtahP.undefined :: QByteArray)++decode :: (QByteArrayConstPtr this) => this -> QtahP.IO QtahDBS.ByteString+decode = QtahFHR.decode QtahP.. toQByteArrayConst
src/Graphics/UI/Qtah/Core/QChar.hs view
@@ -0,0 +1,127 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QChar (+  QCharValue (..),+  QCharConstPtr (..),+  QCharPtr (..),+  QCharConst,+  QChar,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  newFromCellRow,+  newFromInt,+  newFromSpecialCharacter,+  aSSIGN,+  category,+  categoryStatic,+  cell,+  combiningClass,+  combiningClassStatic,+  currentUnicodeVersion,+  decomposition,+  decompositionStatic,+  decompositionTag,+  decompositionTagStatic,+  digitValue,+  digitValueStatic,+  direction,+  directionStatic,+  eQ,+  fromLatin1,+  gE,+  gT,+  hasMirrored,+  hasMirroredStatic,+  highSurrogate,+  isDigit,+  isDigitStatic,+  isHighSurrogate,+  isHighSurrogateStatic,+  isLetter,+  isLetterOrNumber,+  isLetterOrNumberStatic,+  isLetterStatic,+  isLowSurrogate,+  isLowSurrogateStatic,+  isLower,+  isLowerStatic,+  isMark,+  isMarkStatic,+  isNonCharacterStatic,+  isNull,+  isNumber,+  isNumberStatic,+  isPrint,+  isPrintStatic,+  isPunct,+  isPunctStatic,+  isSpace,+  isSpaceStatic,+  isSurrogateStatic,+  isSymbol,+  isSymbolStatic,+  isTitleCase,+  isTitleCaseStatic,+  isUpper,+  isUpperStatic,+  joiningType,+  joiningTypeStatic,+  lE,+  lT,+  lowSurrogate,+  mirroredChar,+  mirroredCharStatic,+  nE,+  requiresSurrogates,+  row,+  script,+  scriptStatic,+  surrogateToUcs4,+  surrogateToUcs4WithQChar,+  toCaseFolded,+  toCaseFoldedStatic,+  toLatin1,+  toLower,+  toLowerStatic,+  toTitleCase,+  toTitleCaseStatic,+  toUpper,+  toUpperStatic,+  unicode,+  unicodeRef,+  unicodeVersion,+  unicodeVersionStatic,+  QCharCategory (..),+  QCharDecomposition (..),+  QCharJoiningType (..),+  QCharScript (..),+  QCharDirection (..),+  QCharSpecialCharacter (..),+  QCharUnicodeVersion (..),+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QChar+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQCharConst+cast = toQChar+downCastConst = downToQCharConst+downCast = downToQChar++encode :: QtahP.Char -> QtahP.IO QChar+encode = QtahFHR.encodeAs (QtahP.undefined :: QChar)++decode :: (QCharConstPtr this) => this -> QtahP.IO QtahP.Char+decode = QtahFHR.decode QtahP.. toQCharConst
src/Graphics/UI/Qtah/Core/QChildEvent.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QChildEvent (+  QChildEventValue (..),+  QChildEventConstPtr (..),+  QChildEventPtr (..),+  QChildEventConst,+  QChildEvent,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  added,+  child,+  polished,+  removed,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Event as QtahEvent+import Graphics.UI.Qtah.Generated.Core.QChildEvent+import qualified Graphics.UI.Qtah.SceneEvent as QtahSceneEvent+import Prelude (($), (==))+import qualified Prelude as QtahP+++castConst = toQChildEventConst+cast = toQChildEvent+downCastConst = downToQChildEventConst+downCast = downToQChildEvent++instance QtahEvent.Event QChildEvent where+  onEvent receiver' handler' = QtahEvent.onAnyEvent receiver' $ \_ qevent' ->+    let event' = downCast qevent'+    in if event' == QtahFHR.nullptr then QtahP.return QtahP.False else handler' event'++instance QtahSceneEvent.SceneEvent QChildEvent where+  onSceneEvent receiver' handler' = QtahSceneEvent.onAnySceneEvent receiver' $ \_ qevent' ->+    let event' = downCast qevent'+    in if event' == QtahFHR.nullptr then QtahP.return QtahP.False else handler' event'
src/Graphics/UI/Qtah/Core/QCoreApplication.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QCoreApplication (+  QCoreApplicationValue (..),+  QCoreApplicationConstPtr (..),+  QCoreApplicationPtr (..),+  QCoreApplicationConst,+  QCoreApplication,+  castConst,+  cast,+  downCastConst,+  downCast,+  addLibraryPath,+  applicationDirPath,+  applicationFilePath,+  applicationName,+  applicationPid,+  applicationVersion,+  arguments,+  closingDown,+  exec,+  exit,+  getInstance,+  isQuitLockEnabled,+  isSetuidAllowed,+  libraryPaths,+  new,+  organizationDomain,+  organizationName,+  postEvent,+  postEventWithPriority,+  quit,+  removeLibraryPath,+  removePostedEvents,+  removePostedEventsWithEventType,+  sendEvent,+  sendPostedEvents,+  sendPostedEventsWithObject,+  sendPostedEventsWithObjectAndEventType,+  setApplicationName,+  setApplicationVersion,+  setAttribute,+  setAttributeWithBool,+  setLibraryPaths,+  setOrganizationDomain,+  setOrganizationName,+  setQuitLockEnabled,+  setSetuidAllowed,+  startingUp,+  testAttribute,+  translate,+  translateWithDisambiguation,+  translateWithDisambiguationAndNum,+  ) where++import Graphics.UI.Qtah.Generated.Core.QCoreApplication+import Prelude ()+++castConst = toQCoreApplicationConst+cast = toQCoreApplication+downCastConst = downToQCoreApplicationConst+downCast = downToQCoreApplication
src/Graphics/UI/Qtah/Core/QCryptographicHash.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QCryptographicHash (+  QCryptographicHashValue (..),+  QCryptographicHashConstPtr (..),+  QCryptographicHashPtr (..),+  QCryptographicHashConst,+  QCryptographicHash,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  addDataByteArray,+  addDataIODevice,+  addDataRaw,+  hash,+  hashLength,+  reset,+  result,+  QCryptographicHashAlgorithm (..),+  ) where++import Graphics.UI.Qtah.Generated.Core.QCryptographicHash+import Prelude ()+++castConst = toQCryptographicHashConst+cast = toQCryptographicHash+downCastConst = downToQCryptographicHashConst+downCast = downToQCryptographicHash
src/Graphics/UI/Qtah/Core/QDate.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QDate (+  QDateValue (..),+  QDateConstPtr (..),+  QDatePtr (..),+  QDateConst,+  QDate,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newWithYmd,+  aSSIGN,+  addDays,+  addMonths,+  addYears,+  currentDate,+  day,+  dayOfWeek,+  dayOfYear,+  daysInMonth,+  daysInYear,+  daysTo,+  eQ,+  fromJulianDay,+  fromString,+  fromStringWithDateFormat,+  fromStringWithStringFormat,+  gE,+  gT,+  isLeapYear,+  isNull,+  isValid,+  isValidYmd,+  lE,+  lT,+  month,+  nE,+  setDate,+  toJulianDay,+  toString,+  toStringWithDateFormat,+  toStringWithStringFormat,+  weekNumber,+  year,+  QDateMonthNameType (..),+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QDate+import qualified Graphics.UI.Qtah.Generated.Core.QDate as M22+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQDateConst+cast = toQDate+downCastConst = downToQDateConst+downCast = downToQDate++decode :: (QDateConstPtr this) => this -> QtahP.IO M22.QDate+decode = QtahFHR.decode QtahP.. toQDateConst
src/Graphics/UI/Qtah/Core/QDateTime.hs view
@@ -0,0 +1,96 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QDateTime (+  QDateTimeValue (..),+  QDateTimeConstPtr (..),+  QDateTimePtr (..),+  QDateTimeConst,+  QDateTime,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newWithDate,+  newWithDateAndTime,+  newWithDateAndTimeAndTimeSpec,+  newWithDateAndTimeAndTimeSpecAndOffset,+  newWithDateAndTimeAndTimeZone,+  aSSIGN,+  addDays,+  addMSecs,+  addMonths,+  addSecs,+  addYears,+  currentDateTime,+  currentDateTimeUtc,+  currentMSecsSinceEpoch,+  currentSecsSinceEpoch,+  date,+  daysTo,+  eQ,+  fromMSecsSinceEpoch,+  fromMSecsSinceEpochWithTimeSpec,+  fromMSecsSinceEpochWithTimeSpecAndOffset,+  fromMSecsSinceEpochWithTimeZone,+  fromSecsSinceEpoch,+  fromSecsSinceEpochWithTimeSpec,+  fromSecsSinceEpochWithTimeSpecAndOffset,+  fromSecsSinceEpochWithTimeZone,+  fromString,+  fromStringWithDateFormat,+  fromStringWithStringFormat,+  gE,+  gT,+  isDaylightTime,+  isNull,+  isValid,+  lE,+  lT,+  msecsTo,+  nE,+  offsetFromUtc,+  secsTo,+  setDate,+  setMSecsSinceEpoch,+  setOffsetFromUtc,+  setSecsSinceEpoch,+  setTime,+  setTimeSpec,+  setTimeZone,+  swap,+  time,+  timeSpec,+  timeZone,+  timeZoneAbbreviation,+  toLocalTime,+  toMSecsSinceEpoch,+  toOffsetFromUtc,+  toSecsSinceEpoch,+  toString,+  toStringWithDateFormat,+  toStringWithStringFormat,+  toTimeSpec,+  toTimeZone,+  toUTC,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QDateTime+import qualified Graphics.UI.Qtah.Generated.Core.QDateTime as M24+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQDateTimeConst+cast = toQDateTime+downCastConst = downToQDateTimeConst+downCast = downToQDateTime++decode :: (QDateTimeConstPtr this) => this -> QtahP.IO M24.QDateTime+decode = QtahFHR.decode QtahP.. toQDateTimeConst
src/Graphics/UI/Qtah/Core/QDebug.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QDebug (+  QDebugValue (..),+  QDebugConstPtr (..),+  QDebugPtr (..),+  QDebugConst,+  QDebug,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  newCopy,+  newWithIODevice,+  newWithMsgType,+  newWithString,+  aSSIGN,+  autoInsertSpaces,+  maybeQuote,+  maybeQuoteWithChar,+  maybeSpace,+  noquote,+  nospace,+  quote,+  resetFormat,+  sHLBool,+  sHLByteArray,+  sHLChar,+  sHLDouble,+  sHLFloat,+  sHLInt,+  sHLLong,+  sHLPtrConstChar,+  sHLPtrVoid,+  sHLQChar,+  sHLQlonglong,+  sHLQulonglong,+  sHLShort,+  sHLString,+  sHLUint,+  sHLUlong,+  sHLUshort,+  setAutoInsertSpaces,+  setVerbosity,+  space,+  swap,+  verbosity,+  verbosityWithLevel,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QDebug+import qualified Graphics.UI.Qtah.Generated.Core.QDebug as M26+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQDebugConst+cast = toQDebug+downCastConst = downToQDebugConst+downCast = downToQDebug++decode :: (QDebugConstPtr this) => this -> QtahP.IO M26.QDebug+decode = QtahFHR.decode QtahP.. toQDebugConst
src/Graphics/UI/Qtah/Core/QDebugStateSaver.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QDebugStateSaver (+  QDebugStateSaverValue (..),+  QDebugStateSaverConstPtr (..),+  QDebugStateSaverPtr (..),+  QDebugStateSaverConst,+  QDebugStateSaver,+  castConst,+  cast,+  downCastConst,+  downCast,+  newWithDebug,+  ) where++import Graphics.UI.Qtah.Generated.Core.QDebugStateSaver+import Prelude ()+++castConst = toQDebugStateSaverConst+cast = toQDebugStateSaver+downCastConst = downToQDebugStateSaverConst+downCast = downToQDebugStateSaver
src/Graphics/UI/Qtah/Core/QDir.hs view
@@ -0,0 +1,119 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QDir (+  QDirValue (..),+  QDirConstPtr (..),+  QDirPtr (..),+  QDirConst,+  QDir,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  aRRAY,+  aSSIGN,+  absoluteFilePath,+  absolutePath,+  addSearchPath,+  canonicalPath,+  cd,+  cdUp,+  cleanPath,+  count,+  current,+  currentPath,+  dirName,+  eQ,+  entryExists,+  exists,+  filePath,+  filter,+  fromNativeSeparators,+  home,+  homePath,+  isAbsolute,+  isAbsolutePath,+  isReadable,+  isRelative,+  isRelativePath,+  isRoot,+  makeAbsolute,+  match,+  mkdir,+  mkpath,+  nE,+  path,+  refresh,+  relativeFilePath,+  remove,+  removeRecursively,+  rename,+  rmdir,+  rmpath,+  root,+  rootPath,+  separator,+  setCurrent,+  setFilter,+  setPath,+  setSorting,+  sorting,+  swap,+  temp,+  tempPath,+  toNativeSeparators,+  QDirFilter (..),+  QDirFilters,+  IsQDirFilters (..),+  dirs,+  allDirs,+  files,+  drives,+  noSymLinks,+  noDotAndDotDot,+  noDot,+  noDotDot,+  allEntries,+  readable,+  writable,+  executable,+  modified,+  hidden,+  system,+  caseSensitive,+  QDirSortFlag (..),+  QDirSortFlags,+  IsQDirSortFlags (..),+  name,+  time,+  size,+  typ,+  unsorted,+  noSort,+  dirsFirst,+  dirsLast,+  reversed,+  ignoreCase,+  localeAware,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QDir+import qualified Graphics.UI.Qtah.Generated.Core.QDir as M30+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQDirConst+cast = toQDir+downCastConst = downToQDirConst+downCast = downToQDir++decode :: (QDirConstPtr this) => this -> QtahP.IO M30.QDir+decode = QtahFHR.decode QtahP.. toQDirConst
src/Graphics/UI/Qtah/Core/QDirIterator.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QDirIterator (+  QDirIteratorValue (..),+  QDirIteratorConstPtr (..),+  QDirIteratorPtr (..),+  QDirIteratorConst,+  QDirIterator,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithDirAndFlags,+  newWithString,+  newWithStringAndFilters,+  newWithStringAndFiltersAndFlags,+  newWithStringAndFlags,+  newWithStringAndStringList,+  newWithStringAndStringListAndFilters,+  newWithStringAndStringListAndFiltersAndFlags,+  fileName,+  filePath,+  hasNext,+  next,+  path,+  QDirIteratorIteratorFlag (..),+  QDirIteratorIteratorFlags,+  IsQDirIteratorIteratorFlags (..),+  noIteratorFlags,+  subdirectories,+  followSymlinks,+  ) where++import Graphics.UI.Qtah.Generated.Core.QDirIterator+import Prelude ()+++castConst = toQDirIteratorConst+cast = toQDirIterator+downCastConst = downToQDirIteratorConst+downCast = downToQDirIterator
src/Graphics/UI/Qtah/Core/QEvent.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QEvent (+  QEventValue (..),+  QEventConstPtr (..),+  QEventPtr (..),+  QEventConst,+  QEvent,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  accept,+  eventType,+  ignore,+  isAccepted,+  registerEventType,+  registerEventTypeWithHint,+  setAccepted,+  spontaneous,+  QEventType (..),+  ) where++import qualified Graphics.UI.Qtah.Event as QtahEvent+import Graphics.UI.Qtah.Generated.Core.QEvent+import qualified Graphics.UI.Qtah.SceneEvent as QtahSceneEvent+import Prelude (($))+++castConst = toQEventConst+cast = toQEvent+downCastConst = downToQEventConst+downCast = downToQEvent++instance QtahEvent.Event QEvent where+  onEvent receiver' handler' = QtahEvent.onAnyEvent receiver' $ \_ qevent' ->+    handler' qevent'++instance QtahSceneEvent.SceneEvent QEvent where+  onSceneEvent receiver' handler' = QtahSceneEvent.onAnySceneEvent receiver' $ \_ qevent' ->+    handler' qevent'
src/Graphics/UI/Qtah/Core/QFile.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QFile (+  QFileValue (..),+  QFileConstPtr (..),+  QFilePtr (..),+  QFileConst,+  QFile,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithName,+  newWithNameAndParent,+  newWithParent,+  copy,+  copyStatic,+  decodeName,+  encodeName,+  exists,+  existsStatic,+  link,+  linkStatic,+  openWithFileDesc,+  openWithFileDescAndFlags,+  permissionsStatic,+  remove,+  removeStatic,+  rename,+  renameStatic,+  resizeStatic,+  setFileName,+  setPermissionsStatic,+  symLinkTarget,+  symLinkTargetStatic,+  ) where++import Graphics.UI.Qtah.Generated.Core.QFile+import Prelude ()+++castConst = toQFileConst+cast = toQFile+downCastConst = downToQFileConst+downCast = downToQFile
src/Graphics/UI/Qtah/Core/QFileDevice.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QFileDevice (+  QFileDeviceValue (..),+  QFileDeviceConstPtr (..),+  QFileDevicePtr (..),+  QFileDeviceConst,+  QFileDevice,+  castConst,+  cast,+  downCastConst,+  downCast,+  error,+  fileName,+  fileTime,+  flush,+  handle,+  map,+  mapWithFlags,+  permissions,+  resize,+  setFileTime,+  setPermissions,+  unmap,+  unsetError,+  QFileDeviceFileTime (..),+  QFileDeviceMemoryMapFlags (..),+  QFileDeviceFileError (..),+  QFileDeviceFileHandleFlag (..),+  QFileDeviceFileHandleFlags,+  IsQFileDeviceFileHandleFlags (..),+  dontCloseHandle,+  autoCloseHandle,+  QFileDevicePermission (..),+  QFileDevicePermissions,+  IsQFileDevicePermissions (..),+  readOwner,+  writeOwner,+  exeOwner,+  readUser,+  writeUser,+  exeUser,+  readGroup,+  writeGroup,+  exeGroup,+  readOther,+  writeOther,+  exeOther,+  ) where++import Graphics.UI.Qtah.Generated.Core.QFileDevice+import Prelude ()+++castConst = toQFileDeviceConst+cast = toQFileDevice+downCastConst = downToQFileDeviceConst+downCast = downToQFileDevice
src/Graphics/UI/Qtah/Core/QFileInfo.hs view
@@ -0,0 +1,89 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QFileInfo (+  QFileInfoValue (..),+  QFileInfoConstPtr (..),+  QFileInfoPtr (..),+  QFileInfoConst,+  QFileInfo,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newWithDirAndString,+  newWithFile,+  newWithString,+  aSSIGN,+  absoluteDir,+  absoluteFilePath,+  absolutePath,+  baseName,+  birthTime,+  bundleName,+  caching,+  canonicalFilePath,+  canonicalPath,+  completeBaseName,+  completeSuffix,+  dir,+  eQ,+  exists,+  existsStatic,+  fileName,+  filePath,+  fileTime,+  group,+  groupId,+  isAbsolute,+  isBundle,+  isDir,+  isExecutable,+  isFile,+  isHidden,+  isNativePath,+  isReadable,+  isRelative,+  isRoot,+  isSymLink,+  isWritable,+  lastModified,+  lastRead,+  makeAbsolute,+  metadataChangeTime,+  nE,+  owner,+  ownerId,+  path,+  permission,+  permissions,+  refresh,+  setCaching,+  setFile,+  setFileDirAndString,+  setFileString,+  size,+  suffix,+  swap,+  symLinkTarget,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QFileInfo+import qualified Graphics.UI.Qtah.Generated.Core.QFileInfo as M40+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQFileInfoConst+cast = toQFileInfo+downCastConst = downToQFileInfoConst+downCast = downToQFileInfo++decode :: (QFileInfoConstPtr this) => this -> QtahP.IO M40.QFileInfo+decode = QtahFHR.decode QtahP.. toQFileInfoConst
src/Graphics/UI/Qtah/Core/QFileSelector.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QFileSelector (+  QFileSelectorValue (..),+  QFileSelectorConstPtr (..),+  QFileSelectorPtr (..),+  QFileSelectorConst,+  QFileSelector,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithParent,+  allSelectors,+  extraSelectors,+  select,+  setExtraSelectors,+  ) where++import Graphics.UI.Qtah.Generated.Core.QFileSelector+import Prelude ()+++castConst = toQFileSelectorConst+cast = toQFileSelector+downCastConst = downToQFileSelectorConst+downCast = downToQFileSelector
src/Graphics/UI/Qtah/Core/QFileSystemWatcher.hs view
@@ -0,0 +1,64 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QFileSystemWatcher (+  QFileSystemWatcherValue (..),+  QFileSystemWatcherConstPtr (..),+  QFileSystemWatcherPtr (..),+  QFileSystemWatcherConst,+  QFileSystemWatcher,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithParent,+  newWithPaths,+  newWithPathsAndParent,+  addPath,+  addPaths,+  directories,+  files,+  removePath,+  removePaths,+  directoryChangedSignal,+  fileChangedSignal,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QFileSystemWatcher+import Graphics.UI.Qtah.Internal.Listener+import qualified Graphics.UI.Qtah.Signal as QtahSignal+import Prelude (($), (>>))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++castConst = toQFileSystemWatcherConst+cast = toQFileSystemWatcher+downCastConst = downToQFileSystemWatcherConst+downCast = downToQFileSystemWatcher++directoryChangedSignal :: (QFileSystemWatcherPtr object) => QtahSignal.Signal object (QtahP.String -> HoppyP.IO ())+directoryChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQString_new object' "2directoryChanged(QString)" fn'+    valid' <- listenerQString_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QFileSystemWatcher::directoryChanged (ListenerQString)"+  }++fileChangedSignal :: (QFileSystemWatcherPtr object) => QtahSignal.Signal object (QtahP.String -> HoppyP.IO ())+fileChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQString_new object' "2fileChanged(QString)" fn'+    valid' <- listenerQString_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QFileSystemWatcher::fileChanged (ListenerQString)"+  }
src/Graphics/UI/Qtah/Core/QIODevice.hs view
@@ -0,0 +1,166 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QIODevice (+  QIODeviceValue (..),+  QIODeviceConstPtr (..),+  QIODevicePtr (..),+  QIODeviceConst,+  QIODevice,+  castConst,+  cast,+  downCastConst,+  downCast,+  atEnd,+  bytesAvailable,+  bytesToWrite,+  canReadLine,+  close,+  commitTransaction,+  currentReadChannel,+  currentWriteChannel,+  emitAboutToClose,+  emitBytesWritten,+  emitChannelBytesWritten,+  emitChannelReadyRead,+  emitReadChannelFinished,+  emitReadyRead,+  errorString,+  isOpen,+  isReadable,+  isSequential,+  isTextModeEnabled,+  isTransactionStarted,+  isWritable,+  open,+  openMode,+  peekByteArray,+  peekRaw,+  pos,+  putChar,+  readAll,+  readByteArray,+  readChannelCount,+  readLineByteArray,+  readLineByteArrayWithSize,+  readLineRaw,+  readRaw,+  reset,+  rollbackTransaction,+  seek,+  setCurrentReadChannel,+  setCurrentWriteChannel,+  setTextModeEnabled,+  size,+  skip,+  startTransaction,+  ungetChar,+  waitForBytesWritten,+  waitForReadyRead,+  writeByteArray,+  writeChannelCount,+  writeRaw,+  writeRawWithSize,+  aboutToCloseSignal,+  bytesWrittenSignal,+  channelBytesWrittenSignal,+  channelReadyReadSignal,+  readChannelFinishedSignal,+  readyReadSignal,+  QIODeviceOpenModeFlag (..),+  QIODeviceOpenMode,+  IsQIODeviceOpenMode (..),+  notOpen,+  readOnly,+  writeOnly,+  readWrite,+  append,+  truncate,+  text,+  unbuffered,+  newOnly,+  existingOnly,+  ) where++import qualified Data.Int as HoppyDI+import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QIODevice+import Graphics.UI.Qtah.Internal.Listener+import qualified Graphics.UI.Qtah.Signal as QtahSignal+import Prelude (($), (>>))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++castConst = toQIODeviceConst+cast = toQIODevice+downCastConst = downToQIODeviceConst+downCast = downToQIODevice++aboutToCloseSignal :: (QIODevicePtr object) => QtahSignal.Signal object (HoppyP.IO ())+aboutToCloseSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listener_new object' "2aboutToClose()" fn'+    valid' <- listener_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QIODevice::aboutToClose (Listener)"+  }++bytesWrittenSignal :: (QIODevicePtr object) => QtahSignal.Signal object (HoppyDI.Int64 -> HoppyP.IO ())+bytesWrittenSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQlonglong_new object' "2bytesWritten(int64_t)" fn'+    valid' <- listenerQlonglong_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QIODevice::bytesWritten (ListenerQlonglong)"+  }++channelBytesWrittenSignal :: (QIODevicePtr object) => QtahSignal.Signal object (HoppyP.Int -> HoppyDI.Int64 -> HoppyP.IO ())+channelBytesWrittenSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerIntQlonglong_new object' "2channelBytesWritten(int,int64_t)" fn'+    valid' <- listenerIntQlonglong_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QIODevice::channelBytesWritten (ListenerIntQlonglong)"+  }++channelReadyReadSignal :: (QIODevicePtr object) => QtahSignal.Signal object (HoppyP.Int -> HoppyP.IO ())+channelReadyReadSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerInt_new object' "2channelReadyRead(int)" fn'+    valid' <- listenerInt_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QIODevice::channelReadyRead (ListenerInt)"+  }++readChannelFinishedSignal :: (QIODevicePtr object) => QtahSignal.Signal object (HoppyP.IO ())+readChannelFinishedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listener_new object' "2readChannelFinished()" fn'+    valid' <- listener_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QIODevice::readChannelFinished (Listener)"+  }++readyReadSignal :: (QIODevicePtr object) => QtahSignal.Signal object (HoppyP.IO ())+readyReadSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listener_new object' "2readyRead()" fn'+    valid' <- listener_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QIODevice::readyRead (Listener)"+  }
src/Graphics/UI/Qtah/Core/QItemSelection.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QItemSelection (+  QItemSelectionValue (..),+  QItemSelectionConstPtr (..),+  QItemSelectionPtr (..),+  QItemSelectionConst,+  QItemSelection,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newWithRange,+  contains,+  indexes,+  merge,+  select,+  split,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QItemSelection+import qualified Graphics.UI.Qtah.Generated.Core.QItemSelectionRange as M54+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQItemSelectionConst+cast = toQItemSelection+downCastConst = downToQItemSelectionConst+downCast = downToQItemSelection++decode :: (QItemSelectionConstPtr this) => this -> QtahP.IO [M54.QItemSelectionRange]+decode = QtahFHR.decode QtahP.. toQItemSelectionConst
src/Graphics/UI/Qtah/Core/QItemSelectionModel.hs view
@@ -0,0 +1,136 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QItemSelectionModel (+  QItemSelectionModelValue (..),+  QItemSelectionModelConstPtr (..),+  QItemSelectionModelPtr (..),+  QItemSelectionModelConst,+  QItemSelectionModel,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithModel,+  newWithModelAndParent,+  clear,+  clearCurrentIndex,+  clearSelection,+  columnIntersectsSelection,+  currentIndex,+  emitCurrentChanged,+  emitCurrentColumnChanged,+  emitCurrentRowChanged,+  emitModelChanged,+  emitSelectionChanged,+  hasSelection,+  isColumnSelected,+  isRowSelected,+  isSelected,+  model,+  modelConst,+  reset,+  rowIntersectsSelection,+  selectIndex,+  selectSelection,+  selectedColumns,+  selectedIndexes,+  selectedRows,+  selection,+  setCurrentIndex,+  setModel,+  currentChangedSignal,+  currentColumnChangedSignal,+  currentRowChangedSignal,+  modelChangedSignal,+  selectionChangedSignal,+  QItemSelectionModelSelectionFlag (..),+  QItemSelectionModelSelectionFlags,+  IsQItemSelectionModelSelectionFlags (..),+  noUpdate,+  clearFlag,+  select,+  deselect,+  toggle,+  current,+  rows,+  columns,+  selectCurrent,+  toggleCurrent,+  clearAndSelect,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QAbstractItemModel as M4+import qualified Graphics.UI.Qtah.Generated.Core.QItemSelection as M50+import Graphics.UI.Qtah.Generated.Core.QItemSelectionModel+import qualified Graphics.UI.Qtah.Generated.Core.QModelIndex as M92+import Graphics.UI.Qtah.Internal.Listener+import qualified Graphics.UI.Qtah.Signal as QtahSignal+import Prelude (($), (>>))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++castConst = toQItemSelectionModelConst+cast = toQItemSelectionModel+downCastConst = downToQItemSelectionModelConst+downCast = downToQItemSelectionModel++currentChangedSignal :: (QItemSelectionModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> M92.QModelIndex -> HoppyP.IO ())+currentChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexQModelIndex_new object' "2currentChanged(QModelIndex,QModelIndex)" fn'+    valid' <- listenerQModelIndexQModelIndex_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QItemSelectionModel::currentChanged (ListenerQModelIndexQModelIndex)"+  }++currentColumnChangedSignal :: (QItemSelectionModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> M92.QModelIndex -> HoppyP.IO ())+currentColumnChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexQModelIndex_new object' "2currentColumnChanged(QModelIndex,QModelIndex)" fn'+    valid' <- listenerQModelIndexQModelIndex_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QItemSelectionModel::currentColumnChanged (ListenerQModelIndexQModelIndex)"+  }++currentRowChangedSignal :: (QItemSelectionModelPtr object) => QtahSignal.Signal object (M92.QModelIndex -> M92.QModelIndex -> HoppyP.IO ())+currentRowChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQModelIndexQModelIndex_new object' "2currentRowChanged(QModelIndex,QModelIndex)" fn'+    valid' <- listenerQModelIndexQModelIndex_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QItemSelectionModel::currentRowChanged (ListenerQModelIndexQModelIndex)"+  }++modelChangedSignal :: (QItemSelectionModelPtr object) => QtahSignal.Signal object (M4.QAbstractItemModel -> HoppyP.IO ())+modelChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerPtrQAbstractItemModel_new object' "2modelChanged(QAbstractItemModel*)" fn'+    valid' <- listenerPtrQAbstractItemModel_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QItemSelectionModel::modelChanged (ListenerPtrQAbstractItemModel)"+  }++selectionChangedSignal :: (QItemSelectionModelPtr object) => QtahSignal.Signal object (M50.QItemSelectionConst -> M50.QItemSelectionConst -> HoppyP.IO ())+selectionChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerRefConstQItemSelectionRefConstQItemSelection_new object' "2selectionChanged(QItemSelection const&,QItemSelection const&)" fn'+    valid' <- listenerRefConstQItemSelectionRefConstQItemSelection_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QItemSelectionModel::selectionChanged (ListenerRefConstQItemSelectionRefConstQItemSelection)"+  }
src/Graphics/UI/Qtah/Core/QItemSelectionRange.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QItemSelectionRange (+  QItemSelectionRangeValue (..),+  QItemSelectionRangeConstPtr (..),+  QItemSelectionRangePtr (..),+  QItemSelectionRangeConst,+  QItemSelectionRange,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newWithIndex,+  newWithIndices,+  aSSIGN,+  bottom,+  bottomRight,+  containsBelowParent,+  containsIndex,+  eQ,+  height,+  indexes,+  intersected,+  intersects,+  isEmpty,+  isValid,+  left,+  model,+  nE,+  parent,+  right,+  swap,+  top,+  topLeft,+  width,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QItemSelectionRange+import qualified Graphics.UI.Qtah.Generated.Core.QItemSelectionRange as M54+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQItemSelectionRangeConst+cast = toQItemSelectionRange+downCastConst = downToQItemSelectionRangeConst+downCast = downToQItemSelectionRange++decode :: (QItemSelectionRangeConstPtr this) => this -> QtahP.IO M54.QItemSelectionRange+decode = QtahFHR.decode QtahP.. toQItemSelectionRangeConst
src/Graphics/UI/Qtah/Core/QLatin1Char.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QLatin1Char (+  QLatin1CharValue (..),+  QLatin1CharConstPtr (..),+  QLatin1CharPtr (..),+  QLatin1CharConst,+  QLatin1Char,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  toLatin1,+  unicode,+  ) where++import Graphics.UI.Qtah.Generated.Core.QLatin1Char+import Prelude ()+++castConst = toQLatin1CharConst+cast = toQLatin1Char+downCastConst = downToQLatin1CharConst+downCast = downToQLatin1Char
src/Graphics/UI/Qtah/Core/QLatin1String.hs view
@@ -0,0 +1,87 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QLatin1String (+  QLatin1StringValue (..),+  QLatin1StringConstPtr (..),+  QLatin1StringPtr (..),+  QLatin1StringConst,+  QLatin1String,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newWithByteArray,+  newWithCharPtr,+  newWithCharPtrAndSize,+  newWithCharPtrRange,+  at,+  back,+  chop,+  chopped,+  dataString,+  eQ,+  eQByteArray,+  eQPtrConstChar,+  eQString,+  endsWithChar,+  endsWithCharWithCase,+  endsWithLatin1String,+  endsWithLatin1StringWithCase,+  front,+  gE,+  gEByteArray,+  gEPtrConstChar,+  gEString,+  gT,+  gTByteArray,+  gTPtrConstChar,+  gTString,+  get,+  isEmpty,+  isNull,+  lE,+  lEByteArray,+  lEPtrConstChar,+  lEString,+  lT,+  lTByteArray,+  lTPtrConstChar,+  lTString,+  latin1,+  left,+  mid,+  midWithLength,+  nE,+  nEByteArray,+  nEPtrConstChar,+  nEString,+  right,+  size,+  startsWithCharWith,+  startsWithCharWithCase,+  startsWithLatin1String,+  startsWithLatin1StringWithCase,+  trimmed,+  truncate,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QLatin1String+import qualified Graphics.UI.Qtah.Generated.Core.QLatin1String as M58+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQLatin1StringConst+cast = toQLatin1String+downCastConst = downToQLatin1StringConst+downCast = downToQLatin1String++decode :: (QLatin1StringConstPtr this) => this -> QtahP.IO M58.QLatin1String+decode = QtahFHR.decode QtahP.. toQLatin1StringConst
src/Graphics/UI/Qtah/Core/QLibrary.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QLibrary (+  QLibraryValue (..),+  QLibraryConstPtr (..),+  QLibraryPtr (..),+  QLibraryConst,+  QLibrary,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithFilename,+  newWithFilenameAndMajorVersion,+  newWithFilenameAndMajorVersionAndParent,+  newWithFilenameAndParent,+  newWithFilenameAndVersion,+  newWithFilenameAndVersionAndParent,+  newWithParent,+  errorString,+  fileName,+  isLibrary,+  isLoaded,+  load,+  loadHints,+  resolve,+  resolveStatic,+  resolveStaticWithMajorVersion,+  resolveStaticWithVersion,+  setFileName,+  setFileNameAndMajorVersion,+  setFileNameAndVersion,+  setLoadHints,+  unload,+  QLibraryLoadHint (..),+  QLibraryLoadHints,+  IsQLibraryLoadHints (..),+  resolveAllSymbolsHint,+  exportExternalSymbolsHint,+  loadArchiveMemberHint,+  preventUnloadHint,+  deepBindHint,+  ) where++import Graphics.UI.Qtah.Generated.Core.QLibrary+import Prelude ()+++castConst = toQLibraryConst+cast = toQLibrary+downCastConst = downToQLibraryConst+downCast = downToQLibrary
src/Graphics/UI/Qtah/Core/QLibraryInfo.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QLibraryInfo (+  QLibraryInfoValue (..),+  QLibraryInfoConstPtr (..),+  QLibraryInfoPtr (..),+  QLibraryInfoConst,+  QLibraryInfo,+  castConst,+  cast,+  downCastConst,+  downCast,+  isDebugBuild,+  location,+  version,+  QLibraryInfoLibraryLocation (..),+  ) where++import Graphics.UI.Qtah.Generated.Core.QLibraryInfo+import Prelude ()+++castConst = toQLibraryInfoConst+cast = toQLibraryInfo+downCastConst = downToQLibraryInfoConst+downCast = downToQLibraryInfo
src/Graphics/UI/Qtah/Core/QList/Int.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QList.Int (+  QListIntValue (..),+  QListIntConstPtr (..),+  QListIntPtr (..),+  QListIntConst,+  QListInt,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  aDD,+  aSSIGN,+  append,+  appendList,+  at,+  atConst,+  clear,+  contains,+  count,+  endsWith,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  size,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QList.Int+import Prelude ()+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++castConst = toQListIntConst+cast = toQListInt+downCastConst = downToQListIntConst+downCast = downToQListInt++encode :: [HoppyP.Int] -> QtahP.IO QListInt+encode = QtahFHR.encodeAs (QtahP.undefined :: QListInt)++decode :: (QListIntConstPtr this) => this -> QtahP.IO [HoppyP.Int]+decode = QtahFHR.decode QtahP.. toQListIntConst
src/Graphics/UI/Qtah/Core/QList/QAbstractButton.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QList.QAbstractButton (+  QListQAbstractButtonValue (..),+  QListQAbstractButtonConstPtr (..),+  QListQAbstractButtonPtr (..),+  QListQAbstractButtonConst,+  QListQAbstractButton,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  aDD,+  aSSIGN,+  append,+  appendList,+  at,+  atConst,+  clear,+  contains,+  count,+  endsWith,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  size,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QList.QAbstractButton+import qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractButton as M354+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQListQAbstractButtonConst+cast = toQListQAbstractButton+downCastConst = downToQListQAbstractButtonConst+downCast = downToQListQAbstractButton++encode :: [M354.QAbstractButton] -> QtahP.IO QListQAbstractButton+encode = QtahFHR.encodeAs (QtahP.undefined :: QListQAbstractButton)++decode :: (QListQAbstractButtonConstPtr this) => this -> QtahP.IO [M354.QAbstractButton]+decode = QtahFHR.decode QtahP.. toQListQAbstractButtonConst
src/Graphics/UI/Qtah/Core/QList/QByteArray.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QList.QByteArray (+  QListQByteArrayValue (..),+  QListQByteArrayConstPtr (..),+  QListQByteArrayPtr (..),+  QListQByteArrayConst,+  QListQByteArray,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  aDD,+  aSSIGN,+  append,+  appendList,+  at,+  atConst,+  clear,+  contains,+  count,+  endsWith,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  size,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import qualified Data.ByteString as QtahDBS+import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QList.QByteArray+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQListQByteArrayConst+cast = toQListQByteArray+downCastConst = downToQListQByteArrayConst+downCast = downToQListQByteArray++encode :: [QtahDBS.ByteString] -> QtahP.IO QListQByteArray+encode = QtahFHR.encodeAs (QtahP.undefined :: QListQByteArray)++decode :: (QListQByteArrayConstPtr this) => this -> QtahP.IO [QtahDBS.ByteString]+decode = QtahFHR.decode QtahP.. toQListQByteArrayConst
src/Graphics/UI/Qtah/Core/QList/QItemSelectionRange.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QList.QItemSelectionRange (+  QListQItemSelectionRangeValue (..),+  QListQItemSelectionRangeConstPtr (..),+  QListQItemSelectionRangePtr (..),+  QListQItemSelectionRangeConst,+  QListQItemSelectionRange,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  aDD,+  aSSIGN,+  append,+  appendList,+  at,+  atConst,+  clear,+  contains,+  count,+  endsWith,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  size,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QItemSelectionRange as M54+import Graphics.UI.Qtah.Generated.Core.QList.QItemSelectionRange+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQListQItemSelectionRangeConst+cast = toQListQItemSelectionRange+downCastConst = downToQListQItemSelectionRangeConst+downCast = downToQListQItemSelectionRange++encode :: [M54.QItemSelectionRange] -> QtahP.IO QListQItemSelectionRange+encode = QtahFHR.encodeAs (QtahP.undefined :: QListQItemSelectionRange)++decode :: (QListQItemSelectionRangeConstPtr this) => this -> QtahP.IO [M54.QItemSelectionRange]+decode = QtahFHR.decode QtahP.. toQListQItemSelectionRangeConst
src/Graphics/UI/Qtah/Core/QList/QModelIndex.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QList.QModelIndex (+  QListQModelIndexValue (..),+  QListQModelIndexConstPtr (..),+  QListQModelIndexPtr (..),+  QListQModelIndexConst,+  QListQModelIndex,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  aDD,+  aSSIGN,+  append,+  appendList,+  at,+  atConst,+  clear,+  contains,+  count,+  endsWith,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  size,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QList.QModelIndex+import qualified Graphics.UI.Qtah.Generated.Core.QModelIndex as M92+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQListQModelIndexConst+cast = toQListQModelIndex+downCastConst = downToQListQModelIndexConst+downCast = downToQListQModelIndex++encode :: [M92.QModelIndex] -> QtahP.IO QListQModelIndex+encode = QtahFHR.encodeAs (QtahP.undefined :: QListQModelIndex)++decode :: (QListQModelIndexConstPtr this) => this -> QtahP.IO [M92.QModelIndex]+decode = QtahFHR.decode QtahP.. toQListQModelIndexConst
src/Graphics/UI/Qtah/Core/QList/QObject.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QList.QObject (+  QListQObjectValue (..),+  QListQObjectConstPtr (..),+  QListQObjectPtr (..),+  QListQObjectConst,+  QListQObject,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  aDD,+  aSSIGN,+  append,+  appendList,+  at,+  atConst,+  clear,+  contains,+  count,+  endsWith,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  size,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QList.QObject+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQListQObjectConst+cast = toQListQObject+downCastConst = downToQListQObjectConst+downCast = downToQListQObject++encode :: [M94.QObject] -> QtahP.IO QListQObject+encode = QtahFHR.encodeAs (QtahP.undefined :: QListQObject)++decode :: (QListQObjectConstPtr this) => this -> QtahP.IO [M94.QObject]+decode = QtahFHR.decode QtahP.. toQListQObjectConst
src/Graphics/UI/Qtah/Core/QList/QSize.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QList.QSize (+  QListQSizeValue (..),+  QListQSizeConstPtr (..),+  QListQSizePtr (..),+  QListQSizeConst,+  QListQSize,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  aDD,+  aSSIGN,+  append,+  appendList,+  at,+  atConst,+  clear,+  contains,+  count,+  endsWith,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  size,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Core.HSize as HSize+import Graphics.UI.Qtah.Generated.Core.QList.QSize+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQListQSizeConst+cast = toQListQSize+downCastConst = downToQListQSizeConst+downCast = downToQListQSize++encode :: [HSize.HSize] -> QtahP.IO QListQSize+encode = QtahFHR.encodeAs (QtahP.undefined :: QListQSize)++decode :: (QListQSizeConstPtr this) => this -> QtahP.IO [HSize.HSize]+decode = QtahFHR.decode QtahP.. toQListQSizeConst
src/Graphics/UI/Qtah/Core/QList/QStandardItem.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QList.QStandardItem (+  QListQStandardItemValue (..),+  QListQStandardItemConstPtr (..),+  QListQStandardItemPtr (..),+  QListQStandardItemConst,+  QListQStandardItem,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  aDD,+  aSSIGN,+  append,+  appendList,+  at,+  atConst,+  clear,+  contains,+  count,+  endsWith,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  size,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QList.QStandardItem+import qualified Graphics.UI.Qtah.Generated.Gui.QStandardItem as M330+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQListQStandardItemConst+cast = toQListQStandardItem+downCastConst = downToQListQStandardItemConst+downCast = downToQListQStandardItem++encode :: [M330.QStandardItem] -> QtahP.IO QListQStandardItem+encode = QtahFHR.encodeAs (QtahP.undefined :: QListQStandardItem)++decode :: (QListQStandardItemConstPtr this) => this -> QtahP.IO [M330.QStandardItem]+decode = QtahFHR.decode QtahP.. toQListQStandardItemConst
src/Graphics/UI/Qtah/Core/QList/QString.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QList.QString (+  QListQStringValue (..),+  QListQStringConstPtr (..),+  QListQStringPtr (..),+  QListQStringConst,+  QListQString,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  aDD,+  aSSIGN,+  append,+  appendList,+  at,+  atConst,+  clear,+  contains,+  count,+  endsWith,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  size,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QList.QString+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQListQStringConst+cast = toQListQString+downCastConst = downToQListQStringConst+downCast = downToQListQString++encode :: [QtahP.String] -> QtahP.IO QListQString+encode = QtahFHR.encodeAs (QtahP.undefined :: QListQString)++decode :: (QListQStringConstPtr this) => this -> QtahP.IO [QtahP.String]+decode = QtahFHR.decode QtahP.. toQListQStringConst
src/Graphics/UI/Qtah/Core/QList/QTreeWidgetItem.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QList.QTreeWidgetItem (+  QListQTreeWidgetItemValue (..),+  QListQTreeWidgetItemConstPtr (..),+  QListQTreeWidgetItemPtr (..),+  QListQTreeWidgetItemConst,+  QListQTreeWidgetItem,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  aDD,+  aSSIGN,+  append,+  appendList,+  at,+  atConst,+  clear,+  contains,+  count,+  endsWith,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  size,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QList.QTreeWidgetItem+import qualified Graphics.UI.Qtah.Generated.Widgets.QTreeWidgetItem as M502+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQListQTreeWidgetItemConst+cast = toQListQTreeWidgetItem+downCastConst = downToQListQTreeWidgetItemConst+downCast = downToQListQTreeWidgetItem++encode :: [M502.QTreeWidgetItem] -> QtahP.IO QListQTreeWidgetItem+encode = QtahFHR.encodeAs (QtahP.undefined :: QListQTreeWidgetItem)++decode :: (QListQTreeWidgetItemConstPtr this) => this -> QtahP.IO [M502.QTreeWidgetItem]+decode = QtahFHR.decode QtahP.. toQListQTreeWidgetItemConst
src/Graphics/UI/Qtah/Core/QList/QVariant.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QList.QVariant (+  QListQVariantValue (..),+  QListQVariantConstPtr (..),+  QListQVariantPtr (..),+  QListQVariantConst,+  QListQVariant,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  aDD,+  aSSIGN,+  append,+  appendList,+  at,+  atConst,+  clear,+  contains,+  count,+  endsWith,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  size,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QList.QVariant+import qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQListQVariantConst+cast = toQListQVariant+downCastConst = downToQListQVariantConst+downCast = downToQListQVariant++encode :: [M168.QVariant] -> QtahP.IO QListQVariant+encode = QtahFHR.encodeAs (QtahP.undefined :: QListQVariant)++decode :: (QListQVariantConstPtr this) => this -> QtahP.IO [M168.QVariant]+decode = QtahFHR.decode QtahP.. toQListQVariantConst
src/Graphics/UI/Qtah/Core/QList/QWidget.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QList.QWidget (+  QListQWidgetValue (..),+  QListQWidgetConstPtr (..),+  QListQWidgetPtr (..),+  QListQWidgetConst,+  QListQWidget,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  aDD,+  aSSIGN,+  append,+  appendList,+  at,+  atConst,+  clear,+  contains,+  count,+  endsWith,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  size,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QList.QWidget+import qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQListQWidgetConst+cast = toQListQWidget+downCastConst = downToQListQWidgetConst+downCast = downToQListQWidget++encode :: [M506.QWidget] -> QtahP.IO QListQWidget+encode = QtahFHR.encodeAs (QtahP.undefined :: QListQWidget)++decode :: (QListQWidgetConstPtr this) => this -> QtahP.IO [M506.QWidget]+decode = QtahFHR.decode QtahP.. toQListQWidgetConst
src/Graphics/UI/Qtah/Core/QLockFile.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QLockFile (+  QLockFileValue (..),+  QLockFileConstPtr (..),+  QLockFilePtr (..),+  QLockFileConst,+  QLockFile,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  error,+  getLockInfo,+  isLocked,+  lock,+  removeStaleLockFile,+  setStaleLockTime,+  staleLockTime,+  tryLock,+  tryLockWithTimeout,+  unlock,+  QLockFileLockError (..),+  ) where++import Graphics.UI.Qtah.Generated.Core.QLockFile+import Prelude ()+++castConst = toQLockFileConst+cast = toQLockFile+downCastConst = downToQLockFileConst+downCast = downToQLockFile
src/Graphics/UI/Qtah/Core/QLoggingCategory.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QLoggingCategory (+  QLoggingCategoryValue (..),+  QLoggingCategoryConstPtr (..),+  QLoggingCategoryPtr (..),+  QLoggingCategoryConst,+  QLoggingCategory,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithMsgType,+  categoryName,+  defaultCategory,+  installFilter,+  isCriticalEnabled,+  isDebugEnabled,+  isEnabled,+  isInfoEnabled,+  isWarningEnabled,+  setEnabled,+  setFilterRules,+  ) where++import Graphics.UI.Qtah.Generated.Core.QLoggingCategory+import Prelude ()+++castConst = toQLoggingCategoryConst+cast = toQLoggingCategory+downCastConst = downToQLoggingCategoryConst+downCast = downToQLoggingCategory
src/Graphics/UI/Qtah/Core/QMargins.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QMargins (+  QMarginsValue (..),+  QMarginsConstPtr (..),+  QMarginsPtr (..),+  QMarginsConst,+  QMargins,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  newNull,+  aDDA,+  aDDAInt,+  aSSIGN,+  bottom,+  dIVA,+  dIVAReal,+  eQ,+  isNull,+  left,+  mULA,+  mULAReal,+  nE,+  right,+  sUBA,+  sUBAInt,+  setBottom,+  setLeft,+  setRight,+  setTop,+  top,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Core.HMargins as HMargins+import Graphics.UI.Qtah.Generated.Core.QMargins+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQMarginsConst+cast = toQMargins+downCastConst = downToQMarginsConst+downCast = downToQMargins++encode :: HMargins.HMargins -> QtahP.IO QMargins+encode = QtahFHR.encodeAs (QtahP.undefined :: QMargins)++decode :: (QMarginsConstPtr this) => this -> QtahP.IO HMargins.HMargins+decode = QtahFHR.decode QtahP.. toQMarginsConst
src/Graphics/UI/Qtah/Core/QMarginsF.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QMarginsF (+  QMarginsFValue (..),+  QMarginsFConstPtr (..),+  QMarginsFPtr (..),+  QMarginsFConst,+  QMarginsF,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newCopy,+  newNull,+  newWithMargins,+  aDDA,+  aDDAReal,+  aSSIGN,+  bottom,+  dIVA,+  eQ,+  isNull,+  left,+  mULA,+  nE,+  right,+  sUBA,+  sUBAReal,+  setBottom,+  setLeft,+  setRight,+  setTop,+  top,+  ) where++import Graphics.UI.Qtah.Generated.Core.QMarginsF+import Prelude ()+++castConst = toQMarginsFConst+cast = toQMarginsF+downCastConst = downToQMarginsFConst+downCast = downToQMarginsF
src/Graphics/UI/Qtah/Core/QMessageAuthenticationCode.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QMessageAuthenticationCode (+  QMessageAuthenticationCodeValue (..),+  QMessageAuthenticationCodeConstPtr (..),+  QMessageAuthenticationCodePtr (..),+  QMessageAuthenticationCodeConst,+  QMessageAuthenticationCode,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithKey,+  addDataByteArray,+  addDataDevice,+  addDataRaw,+  hash,+  reset,+  result,+  setKey,+  ) where++import Graphics.UI.Qtah.Generated.Core.QMessageAuthenticationCode+import Prelude ()+++castConst = toQMessageAuthenticationCodeConst+cast = toQMessageAuthenticationCode+downCastConst = downToQMessageAuthenticationCodeConst+downCast = downToQMessageAuthenticationCode
src/Graphics/UI/Qtah/Core/QMessageLogContext.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QMessageLogContext (+  QMessageLogContextValue (..),+  QMessageLogContextConstPtr (..),+  QMessageLogContextPtr (..),+  QMessageLogContextConst,+  QMessageLogContext,+  castConst,+  cast,+  downCastConst,+  downCast,+  ) where++import Graphics.UI.Qtah.Generated.Core.QMessageLogContext+import Prelude ()+++castConst = toQMessageLogContextConst+cast = toQMessageLogContext+downCastConst = downToQMessageLogContextConst+downCast = downToQMessageLogContext
src/Graphics/UI/Qtah/Core/QMessageLogger.hs view
@@ -0,0 +1,32 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QMessageLogger (+  QMessageLoggerValue (..),+  QMessageLoggerConstPtr (..),+  QMessageLoggerPtr (..),+  QMessageLoggerConst,+  QMessageLogger,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithContext,+  newWithContextAndCategory,+  critical,+  debug,+  info,+  warning,+  ) where++import Graphics.UI.Qtah.Generated.Core.QMessageLogger+import Prelude ()+++castConst = toQMessageLoggerConst+cast = toQMessageLogger+downCastConst = downToQMessageLoggerConst+downCast = downToQMessageLogger
src/Graphics/UI/Qtah/Core/QMetaClassInfo.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QMetaClassInfo (+  QMetaClassInfoValue (..),+  QMetaClassInfoConstPtr (..),+  QMetaClassInfoPtr (..),+  QMetaClassInfoConst,+  QMetaClassInfo,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  newCopy,+  name,+  value,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QMetaClassInfo+import qualified Graphics.UI.Qtah.Generated.Core.QMetaClassInfo as M78+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQMetaClassInfoConst+cast = toQMetaClassInfo+downCastConst = downToQMetaClassInfoConst+downCast = downToQMetaClassInfo++decode :: (QMetaClassInfoConstPtr this) => this -> QtahP.IO M78.QMetaClassInfo+decode = QtahFHR.decode QtahP.. toQMetaClassInfoConst
src/Graphics/UI/Qtah/Core/QMetaEnum.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QMetaEnum (+  QMetaEnumValue (..),+  QMetaEnumConstPtr (..),+  QMetaEnumPtr (..),+  QMetaEnumConst,+  QMetaEnum,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  newCopy,+  enumName,+  isFlag,+  isScoped,+  isValid,+  key,+  keyCount,+  keyToValue,+  keyToValueWithPtrBool,+  keysToValue,+  keysToValueWithPtrBool,+  name,+  scope,+  value,+  valueToKey,+  valueToKeys,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QMetaEnum+import qualified Graphics.UI.Qtah.Generated.Core.QMetaEnum as M80+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQMetaEnumConst+cast = toQMetaEnum+downCastConst = downToQMetaEnumConst+downCast = downToQMetaEnum++decode :: (QMetaEnumConstPtr this) => this -> QtahP.IO M80.QMetaEnum+decode = QtahFHR.decode QtahP.. toQMetaEnumConst
src/Graphics/UI/Qtah/Core/QMetaMethod.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QMetaMethod (+  QMetaMethodValue (..),+  QMetaMethodConstPtr (..),+  QMetaMethodPtr (..),+  QMetaMethodConst,+  QMetaMethod,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  newCopy,+  access,+  eQ,+  isValid,+  methodIndex,+  methodSignature,+  methodType,+  nE,+  name,+  parameterCount,+  parameterNames,+  parameterType,+  parameterTypes,+  returnType,+  revision,+  tag,+  typeName,+  QMetaMethodAccess (..),+  QMetaMethodMethodType (..),+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QMetaMethod+import qualified Graphics.UI.Qtah.Generated.Core.QMetaMethod as M82+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQMetaMethodConst+cast = toQMetaMethod+downCastConst = downToQMetaMethodConst+downCast = downToQMetaMethod++decode :: (QMetaMethodConstPtr this) => this -> QtahP.IO M82.QMetaMethod+decode = QtahFHR.decode QtahP.. toQMetaMethodConst
src/Graphics/UI/Qtah/Core/QMetaObject.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QMetaObject (+  QMetaObjectValue (..),+  QMetaObjectConstPtr (..),+  QMetaObjectPtr (..),+  QMetaObjectConst,+  QMetaObject,+  castConst,+  cast,+  downCastConst,+  downCast,+  classInfo,+  classInfoCount,+  classInfoOffset,+  constructor,+  constructorCount,+  enumerator,+  enumeratorCount,+  enumeratorOffset,+  indexOfClassInfo,+  indexOfConstructor,+  indexOfEnumerator,+  indexOfMethod,+  indexOfProperty,+  indexOfSignal,+  indexOfSlot,+  inherits,+  method,+  methodCount,+  methodOffset,+  property,+  propertyCount,+  propertyOffset,+  superClass,+  userProperty,+  ) where++import Graphics.UI.Qtah.Generated.Core.QMetaObject+import Prelude ()+++castConst = toQMetaObjectConst+cast = toQMetaObject+downCastConst = downToQMetaObjectConst+downCast = downToQMetaObject
src/Graphics/UI/Qtah/Core/QMetaObject/Connection.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QMetaObject.Connection (+  ConnectionValue (..),+  ConnectionConstPtr (..),+  ConnectionPtr (..),+  ConnectionConst,+  Connection,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  aSSIGN,+  isValid,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QMetaObject.Connection+import qualified Graphics.UI.Qtah.Generated.Core.QMetaObject.Connection as M86+import Prelude ()+import qualified Prelude as QtahP+++castConst = toConnectionConst+cast = toConnection+downCastConst = downToConnectionConst+downCast = downToConnection++decode :: (ConnectionConstPtr this) => this -> QtahP.IO M86.Connection+decode = QtahFHR.decode QtahP.. toConnectionConst
src/Graphics/UI/Qtah/Core/QMetaProperty.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QMetaProperty (+  QMetaPropertyValue (..),+  QMetaPropertyConstPtr (..),+  QMetaPropertyPtr (..),+  QMetaPropertyConst,+  QMetaProperty,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  newCopy,+  enumerator,+  getType,+  hasNotifySignal,+  isConstant,+  isDesignable,+  isDesignableWithObject,+  isEnumType,+  isFinal,+  isFlagType,+  isReadable,+  isResettable,+  isScriptable,+  isScriptableWithObject,+  isStored,+  isStoredWithObject,+  isUser,+  isUserWithObject,+  isValid,+  isWritable,+  name,+  notifySignal,+  notifySignalIndex,+  propertyIndex,+  read,+  readOnGadget,+  reset,+  resetOnGadget,+  revision,+  typeName,+  userType,+  write,+  writeOnGadget,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QMetaProperty+import qualified Graphics.UI.Qtah.Generated.Core.QMetaProperty as M88+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQMetaPropertyConst+cast = toQMetaProperty+downCastConst = downToQMetaPropertyConst+downCast = downToQMetaProperty++decode :: (QMetaPropertyConstPtr this) => this -> QtahP.IO M88.QMetaProperty+decode = QtahFHR.decode QtahP.. toQMetaPropertyConst
+ src/Graphics/UI/Qtah/Core/QMimeData.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QMimeData (+  QMimeDataValue (..),+  QMimeDataConstPtr (..),+  QMimeDataPtr (..),+  QMimeDataConst,+  QMimeData,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  clear,+  colorData,+  formats,+  getData,+  hasColor,+  hasFormat,+  hasHtml,+  hasImage,+  hasText,+  hasUrls,+  html,+  imageData,+  removeFormat,+  setColorData,+  setData,+  setHtml,+  setImageData,+  setText,+  text,+  ) where++import Graphics.UI.Qtah.Generated.Core.QMimeData+import Prelude ()+++castConst = toQMimeDataConst+cast = toQMimeData+downCastConst = downToQMimeDataConst+downCast = downToQMimeData
src/Graphics/UI/Qtah/Core/QModelIndex.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QModelIndex (+  QModelIndexValue (..),+  QModelIndexConstPtr (..),+  QModelIndexPtr (..),+  QModelIndexConst,+  QModelIndex,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  aSSIGN,+  child,+  column,+  eQ,+  flags,+  getData,+  getDataWithRole,+  isValid,+  model,+  nE,+  parent,+  row,+  sibling,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QModelIndex+import qualified Graphics.UI.Qtah.Generated.Core.QModelIndex as M92+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQModelIndexConst+cast = toQModelIndex+downCastConst = downToQModelIndexConst+downCast = downToQModelIndex++decode :: (QModelIndexConstPtr this) => this -> QtahP.IO M92.QModelIndex+decode = QtahFHR.decode QtahP.. toQModelIndexConst
src/Graphics/UI/Qtah/Core/QObject.hs view
@@ -0,0 +1,97 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QObject (+  QObjectValue (..),+  QObjectConstPtr (..),+  QObjectPtr (..),+  QObjectConst,+  QObject,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithParent,+  blockSignals,+  children,+  connect,+  connectStatic,+  connectWithSenderSignalStatic,+  connectWithSenderSignalTypeStatic,+  connectWithType,+  connectWithTypeStatic,+  deleteLater,+  disconnect,+  disconnectStatic,+  disconnectWithMetaobject,+  disconnectWithReceiver,+  disconnectWithReceiverAndMethod,+  disconnectWithSignal,+  disconnectWithSignalAndReceiver,+  disconnectWithSignalAndReceiverAndMethod,+  dumpObjectInfo,+  dumpObjectTree,+  dynamicPropertyNames,+  emitDestroyed,+  event,+  eventFilter,+  inherits,+  installEventFilter,+  isWidgetType,+  isWindowType,+  killTimer,+  metaObject,+  moveToThread,+  objectName,+  parent,+  property,+  removeEventFilter,+  setObjectName,+  setParent,+  setProperty,+  signalsBlocked,+  startTimer,+  thread,+  destroyedSignal,+  objectNameChangedSignal,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QObject+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import Graphics.UI.Qtah.Internal.Listener+import qualified Graphics.UI.Qtah.Signal as QtahSignal+import Prelude (($), (>>))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++castConst = toQObjectConst+cast = toQObject+downCastConst = downToQObjectConst+downCast = downToQObject++destroyedSignal :: (QObjectPtr object) => QtahSignal.Signal object (M94.QObject -> HoppyP.IO ())+destroyedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerPtrQObject_new object' "2destroyed(QObject*)" fn'+    valid' <- listenerPtrQObject_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QObject::destroyed (ListenerPtrQObject)"+  }++objectNameChangedSignal :: (QObjectPtr object) => QtahSignal.Signal object (QtahP.String -> HoppyP.IO ())+objectNameChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQString_new object' "2objectNameChanged(QString)" fn'+    valid' <- listenerQString_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QObject::objectNameChanged (ListenerQString)"+  }
src/Graphics/UI/Qtah/Core/QOperatingSystemVersion.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QOperatingSystemVersion (+  QOperatingSystemVersionValue (..),+  QOperatingSystemVersionConstPtr (..),+  QOperatingSystemVersionPtr (..),+  QOperatingSystemVersionConst,+  QOperatingSystemVersion,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newWithMinor,+  newWithMinorAndMicro,+  current,+  currentType,+  getType,+  majorVersion,+  microVersion,+  minorVersion,+  name,+  segmentCount,+  QOperatingSystemVersionOSType (..),+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QOperatingSystemVersion+import qualified Graphics.UI.Qtah.Generated.Core.QOperatingSystemVersion as M96+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQOperatingSystemVersionConst+cast = toQOperatingSystemVersion+downCastConst = downToQOperatingSystemVersionConst+downCast = downToQOperatingSystemVersion++decode :: (QOperatingSystemVersionConstPtr this) => this -> QtahP.IO M96.QOperatingSystemVersion+decode = QtahFHR.decode QtahP.. toQOperatingSystemVersionConst
src/Graphics/UI/Qtah/Core/QPair/IntInt.hs view
@@ -0,0 +1,30 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QPair.IntInt (+  QPairIntIntValue (..),+  QPairIntIntConstPtr (..),+  QPairIntIntPtr (..),+  QPairIntIntConst,+  QPairIntInt,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newCopy,+  newWithValues,+  aSSIGN,+  swap,+  ) where++import Graphics.UI.Qtah.Generated.Core.QPair.IntInt+import Prelude ()+++castConst = toQPairIntIntConst+cast = toQPairIntInt+downCastConst = downToQPairIntIntConst+downCast = downToQPairIntInt
src/Graphics/UI/Qtah/Core/QPalette.hs view
@@ -0,0 +1,79 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QPalette (+  QPaletteValue (..),+  QPaletteConstPtr (..),+  QPalettePtr (..),+  QPaletteConst,+  QPalette,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newWithBrushes,+  newWithColor,+  newWithColors,+  newWithGlobalColor,+  aSSIGN,+  alternateBase,+  base,+  brightText,+  brush,+  brushWithGroup,+  button,+  buttonText,+  cacheKey,+  color,+  colorWithGroup,+  currentColorGroup,+  dark,+  eQ,+  highlight,+  highlightedText,+  isBrushSet,+  isCopyOf,+  isEqual,+  light,+  link,+  linkVisited,+  mid,+  midlight,+  nE,+  placeholderText,+  setBrush,+  setBrushWithGroup,+  setColor,+  setColorGroup,+  setColorWithGroup,+  setCurrentColorGroup,+  shadow,+  swap,+  text,+  toolTipBase,+  toolTipText,+  window,+  windowText,+  QPaletteColorRole (..),+  QPaletteColorGroup (..),+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QPalette+import qualified Graphics.UI.Qtah.Generated.Core.QPalette as M98+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQPaletteConst+cast = toQPalette+downCastConst = downToQPaletteConst+downCast = downToQPalette++decode :: (QPaletteConstPtr this) => this -> QtahP.IO M98.QPalette+decode = QtahFHR.decode QtahP.. toQPaletteConst
src/Graphics/UI/Qtah/Core/QParallelAnimationGroup.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QParallelAnimationGroup (+  QParallelAnimationGroupValue (..),+  QParallelAnimationGroupConstPtr (..),+  QParallelAnimationGroupPtr (..),+  QParallelAnimationGroupConst,+  QParallelAnimationGroup,+  castConst,+  cast,+  downCastConst,+  downCast,+  ) where++import Graphics.UI.Qtah.Generated.Core.QParallelAnimationGroup+import Prelude ()+++castConst = toQParallelAnimationGroupConst+cast = toQParallelAnimationGroup+downCastConst = downToQParallelAnimationGroupConst+downCast = downToQParallelAnimationGroup
src/Graphics/UI/Qtah/Core/QPauseAnimation.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QPauseAnimation (+  QPauseAnimationValue (..),+  QPauseAnimationConstPtr (..),+  QPauseAnimationPtr (..),+  QPauseAnimationConst,+  QPauseAnimation,+  castConst,+  cast,+  downCastConst,+  downCast,+  setDuration,+  ) where++import Graphics.UI.Qtah.Generated.Core.QPauseAnimation+import Prelude ()+++castConst = toQPauseAnimationConst+cast = toQPauseAnimation+downCastConst = downToQPauseAnimationConst+downCast = downToQPauseAnimation
src/Graphics/UI/Qtah/Core/QPersistentModelIndex.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QPersistentModelIndex (+  QPersistentModelIndexValue (..),+  QPersistentModelIndexConstPtr (..),+  QPersistentModelIndexPtr (..),+  QPersistentModelIndexConst,+  QPersistentModelIndex,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newFromIndex,+  aSSIGN,+  child,+  column,+  eQ,+  flags,+  getData,+  getDataWithRole,+  isValid,+  model,+  nE,+  parent,+  row,+  sibling,+  swap,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QPersistentModelIndex+import qualified Graphics.UI.Qtah.Generated.Core.QPersistentModelIndex as M104+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQPersistentModelIndexConst+cast = toQPersistentModelIndex+downCastConst = downToQPersistentModelIndexConst+downCast = downToQPersistentModelIndex++decode :: (QPersistentModelIndexConstPtr this) => this -> QtahP.IO M104.QPersistentModelIndex+decode = QtahFHR.decode QtahP.. toQPersistentModelIndexConst
src/Graphics/UI/Qtah/Core/QPluginLoader.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QPluginLoader (+  QPluginLoaderValue (..),+  QPluginLoaderConstPtr (..),+  QPluginLoaderPtr (..),+  QPluginLoaderConst,+  QPluginLoader,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithFilename,+  newWithFilenameAndParent,+  newWithParent,+  errorString,+  fileName,+  getInstance,+  isLoaded,+  load,+  loadHints,+  setFileName,+  setLoadHints,+  staticInstances,+  unload,+  ) where++import Graphics.UI.Qtah.Generated.Core.QPluginLoader+import Prelude ()+++castConst = toQPluginLoaderConst+cast = toQPluginLoader+downCastConst = downToQPluginLoaderConst+downCast = downToQPluginLoader
src/Graphics/UI/Qtah/Core/QPoint.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QPoint (+  QPointValue (..),+  QPointConstPtr (..),+  QPointPtr (..),+  QPointConst,+  QPoint,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  newNull,+  aDDA,+  aSSIGN,+  dIVA,+  dotProduct,+  eQ,+  isNull,+  mULA,+  mULAReal,+  manhattanLength,+  nE,+  sUBA,+  setX,+  setY,+  x,+  y,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Core.HPoint as HPoint+import Graphics.UI.Qtah.Generated.Core.QPoint+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQPointConst+cast = toQPoint+downCastConst = downToQPointConst+downCast = downToQPoint++encode :: HPoint.HPoint -> QtahP.IO QPoint+encode = QtahFHR.encodeAs (QtahP.undefined :: QPoint)++decode :: (QPointConstPtr this) => this -> QtahP.IO HPoint.HPoint+decode = QtahFHR.decode QtahP.. toQPointConst
src/Graphics/UI/Qtah/Core/QPointF.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QPointF (+  QPointFValue (..),+  QPointFConstPtr (..),+  QPointFPtr (..),+  QPointFConst,+  QPointF,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  newFromPoint,+  newNull,+  aDDA,+  aSSIGN,+  dIVA,+  dotProduct,+  eQ,+  isNull,+  mULA,+  manhattanLength,+  nE,+  sUBA,+  setX,+  setY,+  toPoint,+  x,+  y,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Core.HPointF as HPointF+import Graphics.UI.Qtah.Generated.Core.QPointF+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQPointFConst+cast = toQPointF+downCastConst = downToQPointFConst+downCast = downToQPointF++encode :: HPointF.HPointF -> QtahP.IO QPointF+encode = QtahFHR.encodeAs (QtahP.undefined :: QPointF)++decode :: (QPointFConstPtr this) => this -> QtahP.IO HPointF.HPointF+decode = QtahFHR.decode QtahP.. toQPointFConst
src/Graphics/UI/Qtah/Core/QProcess.hs view
@@ -0,0 +1,173 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QProcess (+  QProcessValue (..),+  QProcessConstPtr (..),+  QProcessPtr (..),+  QProcessConst,+  QProcess,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithParent,+  arguments,+  atEnd,+  bytesAvailable,+  bytesToWrite,+  canReadLine,+  close,+  closeReadChannel,+  closeWriteChannel,+  emitErrorOccurred,+  emitFinished,+  error,+  execute,+  executeWithCommand,+  exitCode,+  exitStatus,+  inputChannelMode,+  isSequential,+  kill,+  nullDevice,+  open,+  openWithMode,+  processChannelMode,+  processEnvironment,+  processId,+  program,+  readAllStandardError,+  readAllStandardOutput,+  readChannel,+  setArguments,+  setInputChannelMode,+  setProcessChannelMode,+  setProcessEnvironment,+  setProgram,+  setReadChannel,+  setStandardErrorFile,+  setStandardErrorFileWithMode,+  setStandardInputFile,+  setStandardOutputFile,+  setStandardOutputFileWithMode,+  setStandardOutputProcess,+  setWorkingDirectory,+  start,+  startDetached,+  startDetachedStatic,+  startDetachedStaticCommand,+  startDetachedStaticDir,+  startWithCommand,+  startWithCommandMode,+  startWithMode,+  startWithProgramArgMode,+  state,+  systemEnvironment,+  terminate,+  waitForBytesWritten,+  waitForBytesWrittenMsecs,+  waitForFinished,+  waitForFinishedMsecs,+  waitForReadyRead,+  waitForReadyReadMsecs,+  waitForStarted,+  waitForStartedMsecs,+  workingDirectory,+  errorOccurredSignal,+  finishedSignal,+  readyReadStandardErrorSignal,+  readyReadStandardOutputSignal,+  startedSignal,+  stateChangedSignal,+  QProcessExitStatus (..),+  QProcessInputChannelMode (..),+  QProcessProcessChannel (..),+  QProcessProcessChannelMode (..),+  QProcessProcessError (..),+  QProcessProcessState (..),+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QProcess+import qualified Graphics.UI.Qtah.Generated.Core.QProcess as M106+import Graphics.UI.Qtah.Internal.Listener+import qualified Graphics.UI.Qtah.Signal as QtahSignal+import Prelude (($), (>>))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++castConst = toQProcessConst+cast = toQProcess+downCastConst = downToQProcessConst+downCast = downToQProcess++errorOccurredSignal :: (QProcessPtr object) => QtahSignal.Signal object (M106.QProcessProcessError -> HoppyP.IO ())+errorOccurredSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerProcessError_new object' "2errorOccurred(QProcess::ProcessError)" fn'+    valid' <- listenerProcessError_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QProcess::errorOccurred (ListenerProcessError)"+  }++finishedSignal :: (QProcessPtr object) => QtahSignal.Signal object (HoppyP.Int -> M106.QProcessExitStatus -> HoppyP.IO ())+finishedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerIntExitStatus_new object' "2finished(int,QProcess::ExitStatus)" fn'+    valid' <- listenerIntExitStatus_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QProcess::finished (ListenerIntExitStatus)"+  }++readyReadStandardErrorSignal :: (QProcessPtr object) => QtahSignal.Signal object (HoppyP.IO ())+readyReadStandardErrorSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listener_new object' "2readyReadStandardError()" fn'+    valid' <- listener_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QProcess::readyReadStandardError (Listener)"+  }++readyReadStandardOutputSignal :: (QProcessPtr object) => QtahSignal.Signal object (HoppyP.IO ())+readyReadStandardOutputSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listener_new object' "2readyReadStandardOutput()" fn'+    valid' <- listener_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QProcess::readyReadStandardOutput (Listener)"+  }++startedSignal :: (QProcessPtr object) => QtahSignal.Signal object (HoppyP.IO ())+startedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listener_new object' "2started()" fn'+    valid' <- listener_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QProcess::started (Listener)"+  }++stateChangedSignal :: (QProcessPtr object) => QtahSignal.Signal object (M106.QProcessProcessState -> HoppyP.IO ())+stateChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerProcessState_new object' "2stateChanged(QProcess::ProcessState)" fn'+    valid' <- listenerProcessState_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QProcess::stateChanged (ListenerProcessState)"+  }
src/Graphics/UI/Qtah/Core/QProcessEnvironment.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QProcessEnvironment (+  QProcessEnvironmentValue (..),+  QProcessEnvironmentConstPtr (..),+  QProcessEnvironmentPtr (..),+  QProcessEnvironmentConst,+  QProcessEnvironment,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  aSSIGN,+  clear,+  contains,+  eQ,+  insert,+  insertWithName,+  isEmpty,+  keys,+  nE,+  remove,+  swap,+  systemEnvironment,+  toStringList,+  value,+  valueWithDefault,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QProcessEnvironment+import qualified Graphics.UI.Qtah.Generated.Core.QProcessEnvironment as M108+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQProcessEnvironmentConst+cast = toQProcessEnvironment+downCastConst = downToQProcessEnvironmentConst+downCast = downToQProcessEnvironment++decode :: (QProcessEnvironmentConstPtr this) => this -> QtahP.IO M108.QProcessEnvironment+decode = QtahFHR.decode QtahP.. toQProcessEnvironmentConst
src/Graphics/UI/Qtah/Core/QPropertyAnimation.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QPropertyAnimation (+  QPropertyAnimationValue (..),+  QPropertyAnimationConstPtr (..),+  QPropertyAnimationPtr (..),+  QPropertyAnimationConst,+  QPropertyAnimation,+  castConst,+  cast,+  downCastConst,+  downCast,+  propertyName,+  setPropertyName,+  setTargetObject,+  targetObject,+  ) where++import Graphics.UI.Qtah.Generated.Core.QPropertyAnimation+import Prelude ()+++castConst = toQPropertyAnimationConst+cast = toQPropertyAnimation+downCastConst = downToQPropertyAnimationConst+downCast = downToQPropertyAnimation
src/Graphics/UI/Qtah/Core/QRandomGenerator.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QRandomGenerator (+  QRandomGeneratorValue (..),+  QRandomGeneratorConstPtr (..),+  QRandomGeneratorPtr (..),+  QRandomGeneratorConst,+  QRandomGenerator,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newWithQuint,+  newWithQuintQsizetype,+  newWithQuints,+  aSSIGN,+  boundedWirhQuints,+  boundedWithDouble,+  boundedWithInt,+  boundedWithInts,+  boundedWithQuint,+  cALL,+  discard,+  eQ,+  fillRange,+  generate,+  generate64,+  generateDouble,+  global,+  max,+  min,+  nE,+  securelySeeded,+  seed,+  seedWithQuint,+  system,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QRandomGenerator+import qualified Graphics.UI.Qtah.Generated.Core.QRandomGenerator as M118+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQRandomGeneratorConst+cast = toQRandomGenerator+downCastConst = downToQRandomGeneratorConst+downCast = downToQRandomGenerator++decode :: (QRandomGeneratorConstPtr this) => this -> QtahP.IO M118.QRandomGenerator+decode = QtahFHR.decode QtahP.. toQRandomGeneratorConst
src/Graphics/UI/Qtah/Core/QRandomGenerator64.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QRandomGenerator64 (+  QRandomGenerator64Value (..),+  QRandomGenerator64ConstPtr (..),+  QRandomGenerator64Ptr (..),+  QRandomGenerator64Const,+  QRandomGenerator64,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newWithQuint,+  newWithQuintQsizetype,+  newWithQuints,+  aSSIGN,+  cALL,+  eQ,+  generate,+  max,+  min,+  nE,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QRandomGenerator64+import qualified Graphics.UI.Qtah.Generated.Core.QRandomGenerator64 as M120+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQRandomGenerator64Const+cast = toQRandomGenerator64+downCastConst = downToQRandomGenerator64Const+downCast = downToQRandomGenerator64++decode :: (QRandomGenerator64ConstPtr this) => this -> QtahP.IO M120.QRandomGenerator64+decode = QtahFHR.decode QtahP.. toQRandomGenerator64Const
src/Graphics/UI/Qtah/Core/QRect.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QRect (+  QRectValue (..),+  QRectConstPtr (..),+  QRectPtr (..),+  QRectConst,+  QRect,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  newCopy,+  newNull,+  newWithPointAndSize,+  newWithPoints,+  newWithRaw,+  aSSIGN,+  adjust,+  adjusted,+  bottom,+  bottomLeft,+  bottomRight,+  center,+  containsPoint,+  containsRect,+  eQ,+  height,+  intersected,+  intersects,+  isEmpty,+  isNull,+  isValid,+  left,+  marginsAdded,+  marginsRemoved,+  moveBottom,+  moveBottomLeft,+  moveBottomRight,+  moveCenter,+  moveLeft,+  moveRight,+  moveTo,+  moveTop,+  moveTopLeft,+  moveTopRight,+  nE,+  normalized,+  right,+  setBottom,+  setBottomLeft,+  setBottomRight,+  setCoords,+  setHeight,+  setLeft,+  setRect,+  setRight,+  setSize,+  setTop,+  setTopLeft,+  setTopRight,+  setWidth,+  setX,+  setY,+  size,+  top,+  topLeft,+  topRight,+  translate,+  translated,+  united,+  width,+  x,+  y,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Core.HRect as HRect+import Graphics.UI.Qtah.Generated.Core.QRect+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQRectConst+cast = toQRect+downCastConst = downToQRectConst+downCast = downToQRect++encode :: HRect.HRect -> QtahP.IO QRect+encode = QtahFHR.encodeAs (QtahP.undefined :: QRect)++decode :: (QRectConstPtr this) => this -> QtahP.IO HRect.HRect+decode = QtahFHR.decode QtahP.. toQRectConst
src/Graphics/UI/Qtah/Core/QRectF.hs view
@@ -0,0 +1,96 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QRectF (+  QRectFValue (..),+  QRectFConstPtr (..),+  QRectFPtr (..),+  QRectFConst,+  QRectF,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  newCopy,+  newFromPoints,+  newNull,+  newWithPointAndSize,+  newWithRaw,+  newWithRect,+  aSSIGN,+  adjust,+  adjusted,+  bottom,+  bottomLeft,+  bottomRight,+  center,+  containsPoint,+  containsRect,+  eQ,+  height,+  intersected,+  intersects,+  isEmpty,+  isNull,+  isValid,+  left,+  marginsAdded,+  marginsRemoved,+  moveBottom,+  moveBottomLeft,+  moveBottomRight,+  moveCenter,+  moveLeft,+  moveRight,+  moveTo,+  moveTop,+  moveTopLeft,+  moveTopRight,+  nE,+  normalized,+  right,+  setBottom,+  setBottomLeft,+  setBottomRight,+  setCoords,+  setHeight,+  setLeft,+  setRect,+  setRight,+  setSize,+  setTop,+  setTopLeft,+  setTopRight,+  setWidth,+  setX,+  setY,+  size,+  toAlignedRect,+  top,+  topLeft,+  topRight,+  translate,+  translated,+  united,+  width,+  x,+  y,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QRectF+import qualified Graphics.UI.Qtah.Generated.Core.QRectF as M124+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQRectFConst+cast = toQRectF+downCastConst = downToQRectFConst+downCast = downToQRectF++decode :: (QRectFConstPtr this) => this -> QtahP.IO M124.QRectF+decode = QtahFHR.decode QtahP.. toQRectFConst
src/Graphics/UI/Qtah/Core/QResource.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QResource (+  QResourceValue (..),+  QResourceConstPtr (..),+  QResourcePtr (..),+  QResourceConst,+  QResource,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithFile,+  absoluteFilePath,+  compressionAlgorithm,+  fileName,+  getData,+  isCompressed,+  isValid,+  lastModified,+  registerResourceData,+  registerResourceDataAndTree,+  registerResourcePath,+  registerResourcePathAndTree,+  setFileName,+  size,+  unregisterResourceData,+  unregisterResourceDataAndTree,+  unregisterResourcePath,+  unregisterResourcePathAndTree,+  QResourceCompression (..),+  ) where++import Graphics.UI.Qtah.Generated.Core.QResource+import Prelude ()+++castConst = toQResourceConst+cast = toQResource+downCastConst = downToQResourceConst+downCast = downToQResource
src/Graphics/UI/Qtah/Core/QSaveFile.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QSaveFile (+  QSaveFileValue (..),+  QSaveFileConstPtr (..),+  QSaveFilePtr (..),+  QSaveFileConst,+  QSaveFile,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithName,+  newWithNameAndParent,+  newWithParent,+  cancelWriting,+  commit,+  directWriteFallback,+  setDirectWriteFallback,+  setFileName,+  ) where++import Graphics.UI.Qtah.Generated.Core.QSaveFile+import Prelude ()+++castConst = toQSaveFileConst+cast = toQSaveFile+downCastConst = downToQSaveFileConst+downCast = downToQSaveFile
src/Graphics/UI/Qtah/Core/QSequentialAnimationGroup.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QSequentialAnimationGroup (+  QSequentialAnimationGroupValue (..),+  QSequentialAnimationGroupConstPtr (..),+  QSequentialAnimationGroupPtr (..),+  QSequentialAnimationGroupConst,+  QSequentialAnimationGroup,+  castConst,+  cast,+  downCastConst,+  downCast,+  addPause,+  currentAnimation,+  emitCurrentAnimationChanged,+  insertPause,+  currentAnimationChangedSignal,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QAbstractAnimation as M2+import Graphics.UI.Qtah.Generated.Core.QSequentialAnimationGroup+import Graphics.UI.Qtah.Internal.Listener+import qualified Graphics.UI.Qtah.Signal as QtahSignal+import Prelude (($), (>>))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++castConst = toQSequentialAnimationGroupConst+cast = toQSequentialAnimationGroup+downCastConst = downToQSequentialAnimationGroupConst+downCast = downToQSequentialAnimationGroup++currentAnimationChangedSignal :: (QSequentialAnimationGroupPtr object) => QtahSignal.Signal object (M2.QAbstractAnimation -> HoppyP.IO ())+currentAnimationChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerQAbstractAnimation_new object' "2currentAnimationChanged(QAbstractAnimation*)" fn'+    valid' <- listenerQAbstractAnimation_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QSequentialAnimationGroup::currentAnimationChanged (ListenerQAbstractAnimation)"+  }
src/Graphics/UI/Qtah/Core/QSettings.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QSettings (+  QSettingsValue (..),+  QSettingsConstPtr (..),+  QSettingsPtr (..),+  QSettingsConst,+  QSettings,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithOrganization,+  newWithOrganizationAndApplication,+  newWithOrganizationAndApplicationAndParent,+  newWithParent,+  setValue,+  value,+  valueWithDefault,+  ) where++import Graphics.UI.Qtah.Generated.Core.QSettings+import Prelude ()+++castConst = toQSettingsConst+cast = toQSettings+downCastConst = downToQSettingsConst+downCast = downToQSettings
src/Graphics/UI/Qtah/Core/QSize.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QSize (+  QSizeValue (..),+  QSizeConstPtr (..),+  QSizePtr (..),+  QSizeConst,+  QSize,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  newNull,+  aDDA,+  aSSIGN,+  boundedTo,+  dIVA,+  eQ,+  expandedTo,+  height,+  isEmpty,+  isNull,+  isValid,+  mULA,+  nE,+  sUBA,+  scale,+  scaled,+  setHeight,+  setWidth,+  transpose,+  transposed,+  width,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Core.HSize as HSize+import Graphics.UI.Qtah.Generated.Core.QSize+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQSizeConst+cast = toQSize+downCastConst = downToQSizeConst+downCast = downToQSize++encode :: HSize.HSize -> QtahP.IO QSize+encode = QtahFHR.encodeAs (QtahP.undefined :: QSize)++decode :: (QSizeConstPtr this) => this -> QtahP.IO HSize.HSize+decode = QtahFHR.decode QtahP.. toQSizeConst
src/Graphics/UI/Qtah/Core/QSizeF.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QSizeF (+  QSizeFValue (..),+  QSizeFConstPtr (..),+  QSizeFPtr (..),+  QSizeFConst,+  QSizeF,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newNull,+  newWithSize,+  aDDA,+  aSSIGN,+  boundedTo,+  dIVA,+  eQ,+  expandedTo,+  height,+  isEmpty,+  isNull,+  isValid,+  mULA,+  nE,+  sUBA,+  scale,+  scaled,+  setHeight,+  setWidth,+  toSize,+  transpose,+  transposed,+  width,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QSizeF+import qualified Graphics.UI.Qtah.Generated.Core.QSizeF as M136+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQSizeFConst+cast = toQSizeF+downCastConst = downToQSizeFConst+downCast = downToQSizeF++decode :: (QSizeFConstPtr this) => this -> QtahP.IO M136.QSizeF+decode = QtahFHR.decode QtahP.. toQSizeFConst
src/Graphics/UI/Qtah/Core/QStandardPaths.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QStandardPaths (+  QStandardPathsValue (..),+  QStandardPathsConstPtr (..),+  QStandardPathsPtr (..),+  QStandardPathsConst,+  QStandardPaths,+  castConst,+  cast,+  downCastConst,+  downCast,+  displayName,+  findExecutable,+  findExecutableWithPaths,+  locate,+  locateAll,+  locateAllWithOptions,+  locateWithOptions,+  setTestModeEnabled,+  standardLocations,+  writableLocation,+  QStandardPathsStandardLocation (..),+  QStandardPathsLocateOption (..),+  QStandardPathsLocateOptions,+  IsQStandardPathsLocateOptions (..),+  locateFile,+  locateDirectory,+  ) where++import Graphics.UI.Qtah.Generated.Core.QStandardPaths+import Prelude ()+++castConst = toQStandardPathsConst+cast = toQStandardPaths+downCastConst = downToQStandardPathsConst+downCast = downToQStandardPaths
src/Graphics/UI/Qtah/Core/QStaticPlugin.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QStaticPlugin (+  QStaticPluginValue (..),+  QStaticPluginConstPtr (..),+  QStaticPluginPtr (..),+  QStaticPluginConst,+  QStaticPlugin,+  castConst,+  cast,+  downCastConst,+  downCast,+  getInstance,+  rawMetaData,+  ) where++import Graphics.UI.Qtah.Generated.Core.QStaticPlugin+import Prelude ()+++castConst = toQStaticPluginConst+cast = toQStaticPlugin+downCastConst = downToQStaticPluginConst+downCast = downToQStaticPlugin
src/Graphics/UI/Qtah/Core/QString.hs view
@@ -0,0 +1,161 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QString (+  QStringValue (..),+  QStringConstPtr (..),+  QStringPtr (..),+  QStringConst,+  QString,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  newFromByteArray,+  newFromCString,+  newFromQChar,+  newFromSizeQChar,+  aSSIGN,+  append,+  appendByteArray,+  appendPtrConstChar,+  appendQChar,+  arg,+  argCharWith,+  argCharWithField,+  argCharWithFieldFill,+  argDoubleWith,+  argDoubleWithField,+  argDoubleWithFieldFormat,+  argDoubleWithFieldFormatPrecision,+  argDoubleWithFieldFormatPrecisionFill,+  argEightQStrings,+  argFiveQStrings,+  argFourQStrings,+  argInt,+  argIntWithField,+  argIntWithFieldAndBase,+  argIntWithFieldAndBaseAndFill,+  argLong,+  argLongWithField,+  argLongWithFieldAndBase,+  argLongWithFieldAndBaseAndFill,+  argLonglong,+  argLonglongWithField,+  argLonglongWithFieldAndBase,+  argLonglongWithFieldAndBaseAndFill,+  argNineQStrings,+  argQCharWith,+  argQCharWithField,+  argQCharWithFieldFill,+  argSevenQStrings,+  argShortWith,+  argShortWithField,+  argShortWithFieldAndBase,+  argShortWithFieldAndBaseAndFill,+  argSixQStrings,+  argThreeQStrings,+  argTwoQStrings,+  argUintWith,+  argUintWithField,+  argUintWithFieldAndBase,+  argUintWithFieldAndBaseAndFill,+  argUlong,+  argUlongWithField,+  argUlongWithFieldAndBase,+  argUlongWithFieldAndBaseAndFill,+  argUlonglong,+  argUlonglongWithField,+  argUlonglongWithFieldAndBase,+  argUlonglongWithFieldAndBaseAndFill,+  argUshortWith,+  argUshortWithField,+  argUshortWithFieldAndBase,+  argUshortWithFieldAndBaseAndFill,+  argWithSize,+  argWithSizeAndFill,+  at,+  back,+  capacity,+  chop,+  chopped,+  clear,+  eQ,+  gE,+  gT,+  lE,+  lT,+  nE,+  set,+  toCaseFolded,+  toDouble,+  toDoubleWithOk,+  toFloat,+  toFloatWithOk,+  toHtmlEscaped,+  toInt,+  toIntWithOk,+  toIntWithOkAndBase,+  toLatin1,+  toLocal8Bit,+  toLong,+  toLongWithOk,+  toLongWithOkAndBase,+  toLonglong,+  toLonglongWithOk,+  toLonglongWithOkAndBase,+  toLower,+  toShort,+  toShortWithOk,+  toShortWithOkAndBase,+  toStdString,+  toUInt,+  toUIntWithOk,+  toUIntWithOkAndBase,+  toULong,+  toULongWithOk,+  toULongWithOkAndBase,+  toUlonglong,+  toUlonglongWithOk,+  toUlonglongWithOkAndBase,+  toUpper,+  toUshort,+  toUshortWithOk,+  toUshortWithOkAndBase,+  toUtf8,+  trimmed,+  truncate,+  QStringSectionFlag (..),+  QStringSectionFlags,+  IsQStringSectionFlags (..),+  sectionDefault,+  sectionSkipEmpty,+  sectionIncludeLeadingSep,+  sectionIncludeTrailingSep,+  sectionCaseInsensitiveSeps,+  QStringNormalizationForm (..),+  QStringSplitBehavior (..),+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QString+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQStringConst+cast = toQString+downCastConst = downToQStringConst+downCast = downToQString++encode :: QtahP.String -> QtahP.IO QString+encode = QtahFHR.encodeAs (QtahP.undefined :: QString)++decode :: (QStringConstPtr this) => this -> QtahP.IO QtahP.String+decode = QtahFHR.decode QtahP.. toQStringConst
src/Graphics/UI/Qtah/Core/QStringList.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QStringList (+  QStringListValue (..),+  QStringListConstPtr (..),+  QStringListPtr (..),+  QStringListConst,+  QStringList,+  castConst,+  cast,+  downCastConst,+  downCast,+  encode,+  decode,+  new,+  newCopy,+  aSSIGN,+  containsCase,+  eQ,+  filter,+  filterCase,+  joinChar,+  joinString,+  nE,+  removeDuplicates,+  sort,+  sortCase,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QStringList+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQStringListConst+cast = toQStringList+downCastConst = downToQStringListConst+downCast = downToQStringList++encode :: [QtahP.String] -> QtahP.IO QStringList+encode = QtahFHR.encodeAs (QtahP.undefined :: QStringList)++decode :: (QStringListConstPtr this) => this -> QtahP.IO [QtahP.String]+decode = QtahFHR.decode QtahP.. toQStringListConst
src/Graphics/UI/Qtah/Core/QStringListModel.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QStringListModel (+  QStringListModelValue (..),+  QStringListModelConstPtr (..),+  QStringListModelPtr (..),+  QStringListModelConst,+  QStringListModel,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithContents,+  newWithContentsAndParent,+  newWithParent,+  setStringList,+  stringList,+  ) where++import Graphics.UI.Qtah.Generated.Core.QStringListModel+import Prelude ()+++castConst = toQStringListModelConst+cast = toQStringListModel+downCastConst = downToQStringListModelConst+downCast = downToQStringListModel
src/Graphics/UI/Qtah/Core/QSysInfo.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QSysInfo (+  QSysInfoValue (..),+  QSysInfoConstPtr (..),+  QSysInfoPtr (..),+  QSysInfoConst,+  QSysInfo,+  castConst,+  cast,+  downCastConst,+  downCast,+  bootUniqueId,+  buildAbi,+  buildCpuArchitecture,+  currentCpuArchitecture,+  kernelType,+  kernelVersion,+  machineHostName,+  machineUniqueId,+  prettyProductName,+  productType,+  productVersion,+  QSysInfoEndian (..),+  QSysInfoSizes (..),+  ) where++import Graphics.UI.Qtah.Generated.Core.QSysInfo+import Prelude ()+++castConst = toQSysInfoConst+cast = toQSysInfo+downCastConst = downToQSysInfoConst+downCast = downToQSysInfo
src/Graphics/UI/Qtah/Core/QTextCodec.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QTextCodec (+  QTextCodecValue (..),+  QTextCodecConstPtr (..),+  QTextCodecPtr (..),+  QTextCodecConst,+  QTextCodec,+  castConst,+  cast,+  downCastConst,+  downCast,+  aliases,+  availableCodecs,+  availableMibs,+  canEncodeChar,+  canEncodeString,+  codecForHtml,+  codecForHtmlWithDefault,+  codecForLocale,+  codecForMib,+  codecForName,+  codecForUtfText,+  codecForUtfTextWithDefault,+  fromUnicode,+  mibEnum,+  name,+  setCodecForLocale,+  toUnicode,+  ) where++import Graphics.UI.Qtah.Generated.Core.QTextCodec+import Prelude ()+++castConst = toQTextCodecConst+cast = toQTextCodec+downCastConst = downToQTextCodecConst+downCast = downToQTextCodec
src/Graphics/UI/Qtah/Core/QTextDecoder.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QTextDecoder (+  QTextDecoderValue (..),+  QTextDecoderConstPtr (..),+  QTextDecoderPtr (..),+  QTextDecoderConst,+  QTextDecoder,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  toUnicodeByteArray,+  toUnicodeRaw,+  toUnicodeString,+  ) where++import Graphics.UI.Qtah.Generated.Core.QTextDecoder+import Prelude ()+++castConst = toQTextDecoderConst+cast = toQTextDecoder+downCastConst = downToQTextDecoderConst+downCast = downToQTextDecoder
src/Graphics/UI/Qtah/Core/QTextEncoder.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QTextEncoder (+  QTextEncoderValue (..),+  QTextEncoderConstPtr (..),+  QTextEncoderPtr (..),+  QTextEncoderConst,+  QTextEncoder,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  fromUnicodeQChar,+  fromUnicodeString,+  ) where++import Graphics.UI.Qtah.Generated.Core.QTextEncoder+import Prelude ()+++castConst = toQTextEncoderConst+cast = toQTextEncoder+downCastConst = downToQTextEncoderConst+downCast = downToQTextEncoder
src/Graphics/UI/Qtah/Core/QThread.hs view
@@ -0,0 +1,80 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QThread (+  QThreadValue (..),+  QThreadConstPtr (..),+  QThreadPtr (..),+  QThreadConst,+  QThread,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithParent,+  currentThread,+  exit,+  exitWithCode,+  idealThreadCount,+  isFinished,+  isInterruptionRequested,+  isRunning,+  loopLevel,+  msleep,+  priority,+  quit,+  requestInterruption,+  setPriority,+  setStackSize,+  sleep,+  stackSize,+  start,+  startWithPriority,+  terminate,+  usleep,+  wait,+  waitWithMillis,+  yieldCurrentThread,+  finishedSignal,+  startedSignal,+  QThreadPriority (..),+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QThread+import Graphics.UI.Qtah.Internal.Listener+import qualified Graphics.UI.Qtah.Signal as QtahSignal+import Prelude (($), (>>))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++castConst = toQThreadConst+cast = toQThread+downCastConst = downToQThreadConst+downCast = downToQThread++finishedSignal :: (QThreadPtr object) => QtahSignal.Signal object (HoppyP.IO ())+finishedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listener_new object' "2finished()" fn'+    valid' <- listener_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QThread::finished (Listener)"+  }++startedSignal :: (QThreadPtr object) => QtahSignal.Signal object (HoppyP.IO ())+startedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listener_new object' "2started()" fn'+    valid' <- listener_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QThread::started (Listener)"+  }
src/Graphics/UI/Qtah/Core/QTime.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QTime (+  QTimeValue (..),+  QTimeConstPtr (..),+  QTimePtr (..),+  QTimeConst,+  QTime,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newWithHM,+  newWithHMS,+  newWithHMSMs,+  addMSecs,+  addSecs,+  currentTime,+  eQ,+  elapsed,+  fromMSecsSinceStartOfDay,+  fromString,+  fromStringWithDateFormat,+  fromStringWithStringFormat,+  gE,+  gT,+  hour,+  isNull,+  isValid,+  isValidStatic,+  isValidStaticWithMs,+  lE,+  lT,+  minute,+  msec,+  msecsSinceStartOfDay,+  msecsTo,+  nE,+  restart,+  second,+  secsTo,+  setHMS,+  setHMSWithMs,+  start,+  toString,+  toStringWithDateFormat,+  toStringWithStringFormat,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QTime+import qualified Graphics.UI.Qtah.Generated.Core.QTime as M158+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQTimeConst+cast = toQTime+downCastConst = downToQTimeConst+downCast = downToQTime++decode :: (QTimeConstPtr this) => this -> QtahP.IO M158.QTime+decode = QtahFHR.decode QtahP.. toQTimeConst
src/Graphics/UI/Qtah/Core/QTimeZone.hs view
@@ -0,0 +1,64 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QTimeZone (+  QTimeZoneValue (..),+  QTimeZoneConstPtr (..),+  QTimeZonePtr (..),+  QTimeZoneConst,+  QTimeZone,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newFull1,+  newWithByteArray,+  newWithOffset,+  aSSIGN,+  abbreviation,+  availableTimeZoneIds,+  availableTimeZoneIdsWithOffset,+  comment,+  daylightTimeOffset,+  displayNameWithDateTime,+  displayNameWithDateTimeAndNameType,+  displayNameWithTimeType,+  displayNameWithTimeTypeAndNameType,+  hasDaylightTime,+  hasTransitions,+  ianaIdToWindowsId,+  id,+  isDaylightTime,+  isTimeZoneIdAvailable,+  isValid,+  offsetFromUtc,+  standardTimeOffset,+  swap,+  systemTimeZone,+  systemTimeZoneId,+  utc,+  windowsIdToDefaultIanaId,+  windowsIdToIanaIds,+  QTimeZoneNameType (..),+  QTimeZoneTimeType (..),+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QTimeZone+import qualified Graphics.UI.Qtah.Generated.Core.QTimeZone as M164+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQTimeZoneConst+cast = toQTimeZone+downCastConst = downToQTimeZoneConst+downCast = downToQTimeZone++decode :: (QTimeZoneConstPtr this) => this -> QtahP.IO M164.QTimeZone+decode = QtahFHR.decode QtahP.. toQTimeZoneConst
src/Graphics/UI/Qtah/Core/QTimer.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QTimer (+  QTimerValue (..),+  QTimerConstPtr (..),+  QTimerPtr (..),+  QTimerConst,+  QTimer,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  interval,+  isActive,+  isSingleShot,+  remainingTime,+  setInterval,+  setSingleShot,+  start,+  timerId,+  timeoutSignal,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QTimer+import Graphics.UI.Qtah.Internal.Listener+import qualified Graphics.UI.Qtah.Signal as QtahSignal+import Prelude (($), (>>))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++castConst = toQTimerConst+cast = toQTimer+downCastConst = downToQTimerConst+downCast = downToQTimer++timeoutSignal :: (QTimerPtr object) => QtahSignal.Signal object (HoppyP.IO ())+timeoutSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listener_new object' "2timeout()" fn'+    valid' <- listener_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QTimer::timeout (Listener)"+  }
src/Graphics/UI/Qtah/Core/QTimerEvent.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QTimerEvent (+  QTimerEventValue (..),+  QTimerEventConstPtr (..),+  QTimerEventPtr (..),+  QTimerEventConst,+  QTimerEvent,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  timerId,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Event as QtahEvent+import Graphics.UI.Qtah.Generated.Core.QTimerEvent+import qualified Graphics.UI.Qtah.SceneEvent as QtahSceneEvent+import Prelude (($), (==))+import qualified Prelude as QtahP+++castConst = toQTimerEventConst+cast = toQTimerEvent+downCastConst = downToQTimerEventConst+downCast = downToQTimerEvent++instance QtahEvent.Event QTimerEvent where+  onEvent receiver' handler' = QtahEvent.onAnyEvent receiver' $ \_ qevent' ->+    let event' = downCast qevent'+    in if event' == QtahFHR.nullptr then QtahP.return QtahP.False else handler' event'++instance QtahSceneEvent.SceneEvent QTimerEvent where+  onSceneEvent receiver' handler' = QtahSceneEvent.onAnySceneEvent receiver' $ \_ qevent' ->+    let event' = downCast qevent'+    in if event' == QtahFHR.nullptr then QtahP.return QtahP.False else handler' event'
src/Graphics/UI/Qtah/Core/QTranslator.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QTranslator (+  QTranslatorValue (..),+  QTranslatorConstPtr (..),+  QTranslatorPtr (..),+  QTranslatorConst,+  QTranslator,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithParent,+  isEmpty,+  loadFromPtrConstUchar,+  loadFromPtrConstUcharAndDir,+  loadWith,+  loadWithDir,+  loadWithDirAndDelimiters,+  loadWithDirAndDelimitersAndSuffix,+  translate,+  translateWithDisambiguation,+  translateWithDisambiguationAndNum,+  ) where++import Graphics.UI.Qtah.Generated.Core.QTranslator+import Prelude ()+++castConst = toQTranslatorConst+cast = toQTranslator+downCastConst = downToQTranslatorConst+downCast = downToQTranslator
src/Graphics/UI/Qtah/Core/QVariant.hs view
@@ -0,0 +1,104 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QVariant (+  QVariantValue (..),+  QVariantConstPtr (..),+  QVariantPtr (..),+  QVariantConst,+  QVariant,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newWithBool,+  newWithByteArray,+  newWithChar,+  newWithDouble,+  newWithFloat,+  newWithInt,+  newWithList,+  newWithLongLong,+  newWithPoint,+  newWithPointF,+  newWithRect,+  newWithRectF,+  newWithSize,+  newWithSizeF,+  newWithString,+  newWithStringList,+  newWithType,+  newWithUInt,+  newWithULongLong,+  aSSIGN,+  canConvert,+  clear,+  convert,+  eQ,+  gE,+  gT,+  getType,+  isNull,+  isValid,+  lE,+  lT,+  nE,+  setToBool,+  setToChar,+  setToDouble,+  setToFloat,+  setToInt,+  setToList,+  setToLongLong,+  setToPoint,+  setToPointF,+  setToRect,+  setToRectF,+  setToSize,+  setToSizeF,+  setToString,+  setToStringList,+  setToUInt,+  setToULongLong,+  swap,+  toBool,+  toByteArray,+  toChar,+  toDouble,+  toFloat,+  toInt,+  toList,+  toLongLong,+  toPoint,+  toPointF,+  toRect,+  toRectF,+  toSize,+  toSizeF,+  toString,+  toStringList,+  toUInt,+  toULongLong,+  userType,+  QVariantType (..),+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QVariant+import qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQVariantConst+cast = toQVariant+downCastConst = downToQVariantConst+downCast = downToQVariant++decode :: (QVariantConstPtr this) => this -> QtahP.IO M168.QVariant+decode = QtahFHR.decode QtahP.. toQVariantConst
src/Graphics/UI/Qtah/Core/QVariantAnimation.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QVariantAnimation (+  QVariantAnimationValue (..),+  QVariantAnimationConstPtr (..),+  QVariantAnimationPtr (..),+  QVariantAnimationConst,+  QVariantAnimation,+  castConst,+  cast,+  downCastConst,+  downCast,+  emitValueChanged,+  endValue,+  keyValueAt,+  setEndValue,+  setKeyValueAt,+  setStartValue,+  startValue,+  valueChangedSignal,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168+import Graphics.UI.Qtah.Generated.Core.QVariantAnimation+import Graphics.UI.Qtah.Internal.Listener+import qualified Graphics.UI.Qtah.Signal as QtahSignal+import Prelude (($), (>>))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++castConst = toQVariantAnimationConst+cast = toQVariantAnimation+downCastConst = downToQVariantAnimationConst+downCast = downToQVariantAnimation++valueChangedSignal :: (QVariantAnimationPtr object) => QtahSignal.Signal object (M168.QVariantConst -> HoppyP.IO ())+valueChangedSignal = QtahSignal.Signal+  { QtahSignal.internalConnectSignal = \object' fn' -> do+    listener' <- listenerRefConstQVariant_new object' "2valueChanged(QVariant const&)" fn'+    valid' <- listenerRefConstQVariant_isValid listener'+    if valid'+      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'+      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing+  , QtahSignal.internalName = "QVariantAnimation::valueChanged (ListenerRefConstQVariant)"+  }
src/Graphics/UI/Qtah/Core/QVector/Int.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QVector.Int (+  QVectorIntValue (..),+  QVectorIntConstPtr (..),+  QVectorIntPtr (..),+  QVectorIntConst,+  QVectorInt,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newCopy,+  newWithSize,+  newWithSizeAndValue,+  aDD,+  aSSIGN,+  append,+  appendVector,+  array,+  arrayConst,+  at,+  atConst,+  capacity,+  clear,+  contains,+  count,+  endsWith,+  fill,+  fillResize,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  insertMany,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  prepend,+  remove,+  removeAll,+  removeFirst,+  removeLast,+  removeMany,+  removeOne,+  replace,+  reserve,+  resize,+  size,+  squeeze,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import Graphics.UI.Qtah.Generated.Core.QVector.Int+import Prelude ()+++castConst = toQVectorIntConst+cast = toQVectorInt+downCastConst = downToQVectorIntConst+downCast = downToQVectorInt
src/Graphics/UI/Qtah/Core/QVector/QLatin1String.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QVector.QLatin1String (+  QVectorQLatin1StringValue (..),+  QVectorQLatin1StringConstPtr (..),+  QVectorQLatin1StringPtr (..),+  QVectorQLatin1StringConst,+  QVectorQLatin1String,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newCopy,+  newWithSize,+  newWithSizeAndValue,+  aDD,+  aSSIGN,+  append,+  appendVector,+  array,+  arrayConst,+  at,+  atConst,+  capacity,+  clear,+  contains,+  count,+  endsWith,+  fill,+  fillResize,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  insertMany,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  prepend,+  remove,+  removeAll,+  removeFirst,+  removeLast,+  removeMany,+  removeOne,+  replace,+  reserve,+  resize,+  size,+  squeeze,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import Graphics.UI.Qtah.Generated.Core.QVector.QLatin1String+import Prelude ()+++castConst = toQVectorQLatin1StringConst+cast = toQVectorQLatin1String+downCastConst = downToQVectorQLatin1StringConst+downCast = downToQVectorQLatin1String
src/Graphics/UI/Qtah/Core/QVector/QPoint.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QVector.QPoint (+  QVectorQPointValue (..),+  QVectorQPointConstPtr (..),+  QVectorQPointPtr (..),+  QVectorQPointConst,+  QVectorQPoint,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newCopy,+  newWithSize,+  newWithSizeAndValue,+  aDD,+  aSSIGN,+  append,+  appendVector,+  array,+  arrayConst,+  at,+  atConst,+  capacity,+  clear,+  contains,+  count,+  endsWith,+  fill,+  fillResize,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  insertMany,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  prepend,+  remove,+  removeAll,+  removeFirst,+  removeLast,+  removeMany,+  removeOne,+  replace,+  reserve,+  resize,+  size,+  squeeze,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import Graphics.UI.Qtah.Generated.Core.QVector.QPoint+import Prelude ()+++castConst = toQVectorQPointConst+cast = toQVectorQPoint+downCastConst = downToQVectorQPointConst+downCast = downToQVectorQPoint
src/Graphics/UI/Qtah/Core/QVector/QPointF.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QVector.QPointF (+  QVectorQPointFValue (..),+  QVectorQPointFConstPtr (..),+  QVectorQPointFPtr (..),+  QVectorQPointFConst,+  QVectorQPointF,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newCopy,+  newWithSize,+  newWithSizeAndValue,+  aDD,+  aSSIGN,+  append,+  appendVector,+  array,+  arrayConst,+  at,+  atConst,+  capacity,+  clear,+  contains,+  count,+  endsWith,+  fill,+  fillResize,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  insertMany,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  prepend,+  remove,+  removeAll,+  removeFirst,+  removeLast,+  removeMany,+  removeOne,+  replace,+  reserve,+  resize,+  size,+  squeeze,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import Graphics.UI.Qtah.Generated.Core.QVector.QPointF+import Prelude ()+++castConst = toQVectorQPointFConst+cast = toQVectorQPointF+downCastConst = downToQVectorQPointFConst+downCast = downToQVectorQPointF
src/Graphics/UI/Qtah/Core/QVector/QRgb.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QVector.QRgb (+  QVectorQRgbValue (..),+  QVectorQRgbConstPtr (..),+  QVectorQRgbPtr (..),+  QVectorQRgbConst,+  QVectorQRgb,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newCopy,+  newWithSize,+  newWithSizeAndValue,+  aDD,+  aSSIGN,+  append,+  appendVector,+  array,+  arrayConst,+  at,+  atConst,+  capacity,+  clear,+  contains,+  count,+  endsWith,+  fill,+  fillResize,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  insertMany,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  prepend,+  remove,+  removeAll,+  removeFirst,+  removeLast,+  removeMany,+  removeOne,+  replace,+  reserve,+  resize,+  size,+  squeeze,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import Graphics.UI.Qtah.Generated.Core.QVector.QRgb+import Prelude ()+++castConst = toQVectorQRgbConst+cast = toQVectorQRgb+downCastConst = downToQVectorQRgbConst+downCast = downToQVectorQRgb
src/Graphics/UI/Qtah/Core/QVector/QString.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QVector.QString (+  QVectorQStringValue (..),+  QVectorQStringConstPtr (..),+  QVectorQStringPtr (..),+  QVectorQStringConst,+  QVectorQString,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newCopy,+  newWithSize,+  newWithSizeAndValue,+  aDD,+  aSSIGN,+  append,+  appendVector,+  array,+  arrayConst,+  at,+  atConst,+  capacity,+  clear,+  contains,+  count,+  endsWith,+  fill,+  fillResize,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  insertMany,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  prepend,+  remove,+  removeAll,+  removeFirst,+  removeLast,+  removeMany,+  removeOne,+  replace,+  reserve,+  resize,+  size,+  squeeze,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import Graphics.UI.Qtah.Generated.Core.QVector.QString+import Prelude ()+++castConst = toQVectorQStringConst+cast = toQVectorQString+downCastConst = downToQVectorQStringConst+downCast = downToQVectorQString
src/Graphics/UI/Qtah/Core/QVector/QXmlStreamAttribute.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QVector.QXmlStreamAttribute (+  QVectorQXmlStreamAttributeValue (..),+  QVectorQXmlStreamAttributeConstPtr (..),+  QVectorQXmlStreamAttributePtr (..),+  QVectorQXmlStreamAttributeConst,+  QVectorQXmlStreamAttribute,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newCopy,+  newWithSize,+  newWithSizeAndValue,+  aDD,+  aSSIGN,+  append,+  appendVector,+  array,+  arrayConst,+  at,+  atConst,+  capacity,+  clear,+  contains,+  count,+  endsWith,+  fill,+  fillResize,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  insertMany,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  prepend,+  remove,+  removeAll,+  removeFirst,+  removeLast,+  removeMany,+  removeOne,+  replace,+  reserve,+  resize,+  size,+  squeeze,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import Graphics.UI.Qtah.Generated.Core.QVector.QXmlStreamAttribute+import Prelude ()+++castConst = toQVectorQXmlStreamAttributeConst+cast = toQVectorQXmlStreamAttribute+downCastConst = downToQVectorQXmlStreamAttributeConst+downCast = downToQVectorQXmlStreamAttribute
src/Graphics/UI/Qtah/Core/QVector/QXmlStreamEntityDeclaration.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QVector.QXmlStreamEntityDeclaration (+  QVectorQXmlStreamEntityDeclarationValue (..),+  QVectorQXmlStreamEntityDeclarationConstPtr (..),+  QVectorQXmlStreamEntityDeclarationPtr (..),+  QVectorQXmlStreamEntityDeclarationConst,+  QVectorQXmlStreamEntityDeclaration,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newCopy,+  newWithSize,+  newWithSizeAndValue,+  aDD,+  aSSIGN,+  append,+  appendVector,+  array,+  arrayConst,+  at,+  atConst,+  capacity,+  clear,+  contains,+  count,+  endsWith,+  fill,+  fillResize,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  insertMany,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  prepend,+  remove,+  removeAll,+  removeFirst,+  removeLast,+  removeMany,+  removeOne,+  replace,+  reserve,+  resize,+  size,+  squeeze,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import Graphics.UI.Qtah.Generated.Core.QVector.QXmlStreamEntityDeclaration+import Prelude ()+++castConst = toQVectorQXmlStreamEntityDeclarationConst+cast = toQVectorQXmlStreamEntityDeclaration+downCastConst = downToQVectorQXmlStreamEntityDeclarationConst+downCast = downToQVectorQXmlStreamEntityDeclaration
src/Graphics/UI/Qtah/Core/QVector/QXmlStreamNamespaceDeclaration.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QVector.QXmlStreamNamespaceDeclaration (+  QVectorQQXmlStreamNamespaceDeclarationValue (..),+  QVectorQQXmlStreamNamespaceDeclarationConstPtr (..),+  QVectorQQXmlStreamNamespaceDeclarationPtr (..),+  QVectorQQXmlStreamNamespaceDeclarationConst,+  QVectorQQXmlStreamNamespaceDeclaration,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newCopy,+  newWithSize,+  newWithSizeAndValue,+  aDD,+  aSSIGN,+  append,+  appendVector,+  array,+  arrayConst,+  at,+  atConst,+  capacity,+  clear,+  contains,+  count,+  endsWith,+  fill,+  fillResize,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  insertMany,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  prepend,+  remove,+  removeAll,+  removeFirst,+  removeLast,+  removeMany,+  removeOne,+  replace,+  reserve,+  resize,+  size,+  squeeze,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import Graphics.UI.Qtah.Generated.Core.QVector.QXmlStreamNamespaceDeclaration+import Prelude ()+++castConst = toQVectorQQXmlStreamNamespaceDeclarationConst+cast = toQVectorQQXmlStreamNamespaceDeclaration+downCastConst = downToQVectorQQXmlStreamNamespaceDeclarationConst+downCast = downToQVectorQQXmlStreamNamespaceDeclaration
src/Graphics/UI/Qtah/Core/QVector/QXmlStreamNotationDeclaration.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QVector.QXmlStreamNotationDeclaration (+  QVectorQXmlStreamNotationDeclarationValue (..),+  QVectorQXmlStreamNotationDeclarationConstPtr (..),+  QVectorQXmlStreamNotationDeclarationPtr (..),+  QVectorQXmlStreamNotationDeclarationConst,+  QVectorQXmlStreamNotationDeclaration,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newCopy,+  newWithSize,+  newWithSizeAndValue,+  aDD,+  aSSIGN,+  append,+  appendVector,+  array,+  arrayConst,+  at,+  atConst,+  capacity,+  clear,+  contains,+  count,+  endsWith,+  fill,+  fillResize,+  first,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  insert,+  insertMany,+  isEmpty,+  last,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  prepend,+  remove,+  removeAll,+  removeFirst,+  removeLast,+  removeMany,+  removeOne,+  replace,+  reserve,+  resize,+  size,+  squeeze,+  startsWith,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  value,+  valueOr,+  ) where++import Graphics.UI.Qtah.Generated.Core.QVector.QXmlStreamNotationDeclaration+import Prelude ()+++castConst = toQVectorQXmlStreamNotationDeclarationConst+cast = toQVectorQXmlStreamNotationDeclaration+downCastConst = downToQVectorQXmlStreamNotationDeclarationConst+downCast = downToQVectorQXmlStreamNotationDeclaration
src/Graphics/UI/Qtah/Core/QVersionNumber.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QVersionNumber (+  QVersionNumberValue (..),+  QVersionNumberConstPtr (..),+  QVersionNumberPtr (..),+  QVersionNumberConst,+  QVersionNumber,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newWithMajor,+  newWithMajorMinor,+  newWithMajorMinorMicro,+  newWithVector,+  aSSIGN,+  commonPrefix,+  compare,+  eQ,+  fromString,+  gE,+  gT,+  isNormalized,+  isNull,+  isPrefixOf,+  lE,+  lT,+  majorVersion,+  microVersion,+  minorVersion,+  nE,+  normalized,+  segmentAt,+  segmentCount,+  segments,+  toString,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QVersionNumber+import qualified Graphics.UI.Qtah.Generated.Core.QVersionNumber as M172+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQVersionNumberConst+cast = toQVersionNumber+downCastConst = downToQVersionNumberConst+downCast = downToQVersionNumber++decode :: (QVersionNumberConstPtr this) => this -> QtahP.IO M172.QVersionNumber+decode = QtahFHR.decode QtahP.. toQVersionNumberConst
src/Graphics/UI/Qtah/Core/QXmlStreamAttribute.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QXmlStreamAttribute (+  QXmlStreamAttributeValue (..),+  QXmlStreamAttributeConstPtr (..),+  QXmlStreamAttributePtr (..),+  QXmlStreamAttributeConst,+  QXmlStreamAttribute,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newWithNamespaceUriAndNameAndValue,+  newWithQualifiedNameAndValue,+  aSSIGN,+  eQ,+  isDefault,+  nE,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QXmlStreamAttribute+import qualified Graphics.UI.Qtah.Generated.Core.QXmlStreamAttribute as M174+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQXmlStreamAttributeConst+cast = toQXmlStreamAttribute+downCastConst = downToQXmlStreamAttributeConst+downCast = downToQXmlStreamAttribute++decode :: (QXmlStreamAttributeConstPtr this) => this -> QtahP.IO M174.QXmlStreamAttribute+decode = QtahFHR.decode QtahP.. toQXmlStreamAttributeConst
src/Graphics/UI/Qtah/Core/QXmlStreamAttributes.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QXmlStreamAttributes (+  QXmlStreamAttributesValue (..),+  QXmlStreamAttributesConstPtr (..),+  QXmlStreamAttributesPtr (..),+  QXmlStreamAttributesConst,+  QXmlStreamAttributes,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  appendWithNamespaceUriAndNameAndValue,+  appendWithQualifiedNameAndValue,+  hasAttribute,+  hasAttributeWithLatin1String,+  hasAttributeWithNamespaceUriAndName,+  ) where++import Graphics.UI.Qtah.Generated.Core.QXmlStreamAttributes+import Prelude ()+++castConst = toQXmlStreamAttributesConst+cast = toQXmlStreamAttributes+downCastConst = downToQXmlStreamAttributesConst+downCast = downToQXmlStreamAttributes
src/Graphics/UI/Qtah/Core/QXmlStreamEntityDeclaration.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QXmlStreamEntityDeclaration (+  QXmlStreamEntityDeclarationValue (..),+  QXmlStreamEntityDeclarationConstPtr (..),+  QXmlStreamEntityDeclarationPtr (..),+  QXmlStreamEntityDeclarationConst,+  QXmlStreamEntityDeclaration,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  aSSIGN,+  eQ,+  nE,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QXmlStreamEntityDeclaration+import qualified Graphics.UI.Qtah.Generated.Core.QXmlStreamEntityDeclaration as M178+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQXmlStreamEntityDeclarationConst+cast = toQXmlStreamEntityDeclaration+downCastConst = downToQXmlStreamEntityDeclarationConst+downCast = downToQXmlStreamEntityDeclaration++decode :: (QXmlStreamEntityDeclarationConstPtr this) => this -> QtahP.IO M178.QXmlStreamEntityDeclaration+decode = QtahFHR.decode QtahP.. toQXmlStreamEntityDeclarationConst
src/Graphics/UI/Qtah/Core/QXmlStreamEntityResolver.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QXmlStreamEntityResolver (+  QXmlStreamEntityResolverValue (..),+  QXmlStreamEntityResolverConstPtr (..),+  QXmlStreamEntityResolverPtr (..),+  QXmlStreamEntityResolverConst,+  QXmlStreamEntityResolver,+  castConst,+  cast,+  downCastConst,+  downCast,+  resolveUndeclaredEntity,+  ) where++import Graphics.UI.Qtah.Generated.Core.QXmlStreamEntityResolver+import Prelude ()+++castConst = toQXmlStreamEntityResolverConst+cast = toQXmlStreamEntityResolver+downCastConst = downToQXmlStreamEntityResolverConst+downCast = downToQXmlStreamEntityResolver
src/Graphics/UI/Qtah/Core/QXmlStreamNamespaceDeclaration.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QXmlStreamNamespaceDeclaration (+  QXmlStreamNamespaceDeclarationValue (..),+  QXmlStreamNamespaceDeclarationConstPtr (..),+  QXmlStreamNamespaceDeclarationPtr (..),+  QXmlStreamNamespaceDeclarationConst,+  QXmlStreamNamespaceDeclaration,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  newWithPrefixAndNamespaceUri,+  aSSIGN,+  eQ,+  nE,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QXmlStreamNamespaceDeclaration+import qualified Graphics.UI.Qtah.Generated.Core.QXmlStreamNamespaceDeclaration as M182+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQXmlStreamNamespaceDeclarationConst+cast = toQXmlStreamNamespaceDeclaration+downCastConst = downToQXmlStreamNamespaceDeclarationConst+downCast = downToQXmlStreamNamespaceDeclaration++decode :: (QXmlStreamNamespaceDeclarationConstPtr this) => this -> QtahP.IO M182.QXmlStreamNamespaceDeclaration+decode = QtahFHR.decode QtahP.. toQXmlStreamNamespaceDeclarationConst
src/Graphics/UI/Qtah/Core/QXmlStreamNotationDeclaration.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QXmlStreamNotationDeclaration (+  QXmlStreamNotationDeclarationValue (..),+  QXmlStreamNotationDeclarationConstPtr (..),+  QXmlStreamNotationDeclarationPtr (..),+  QXmlStreamNotationDeclarationConst,+  QXmlStreamNotationDeclaration,+  castConst,+  cast,+  downCastConst,+  downCast,+  decode,+  new,+  newCopy,+  aSSIGN,+  eQ,+  nE,+  ) where++import qualified Foreign.Hoppy.Runtime as QtahFHR+import Graphics.UI.Qtah.Generated.Core.QXmlStreamNotationDeclaration+import qualified Graphics.UI.Qtah.Generated.Core.QXmlStreamNotationDeclaration as M184+import Prelude ()+import qualified Prelude as QtahP+++castConst = toQXmlStreamNotationDeclarationConst+cast = toQXmlStreamNotationDeclaration+downCastConst = downToQXmlStreamNotationDeclarationConst+downCast = downToQXmlStreamNotationDeclaration++decode :: (QXmlStreamNotationDeclarationConstPtr this) => this -> QtahP.IO M184.QXmlStreamNotationDeclaration+decode = QtahFHR.decode QtahP.. toQXmlStreamNotationDeclarationConst
src/Graphics/UI/Qtah/Core/QXmlStreamReader.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QXmlStreamReader (+  QXmlStreamReaderValue (..),+  QXmlStreamReaderConstPtr (..),+  QXmlStreamReaderPtr (..),+  QXmlStreamReaderConst,+  QXmlStreamReader,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithByteArray,+  newWithIODevice,+  newWithPtrChar,+  newWithString,+  addDataWithByteArray,+  addDataWithPtrChar,+  addDataWithString,+  addExtraNamespaceDeclaration,+  addExtraNamespaceDeclarations,+  atEnd,+  attributes,+  characterOffset,+  clear,+  columnNumber,+  device,+  entityDeclarations,+  entityResolver,+  error,+  errorString,+  hasError,+  isCDATA,+  isCharacters,+  isComment,+  isDTD,+  isEndDocument,+  isEndElement,+  isEntityReference,+  isProcessingInstruction,+  isStandaloneDocument,+  isStartDocument,+  isStartElement,+  isWhitespace,+  lineNumber,+  namespaceDeclarations,+  namespaceProcessing,+  notationDeclarations,+  raiseError,+  raiseErrorWithMessage,+  readElementText,+  readElementTextWithBehaviour,+  readNext,+  readNextStartElement,+  setDevice,+  setEntityResolver,+  setNamespaceProcessing,+  skipCurrentElement,+  tokenString,+  tokenType,+  QXmlStreamReaderError (..),+  QXmlStreamReaderReadElementTextBehaviour (..),+  QXmlStreamReaderTokenType (..),+  ) where++import Graphics.UI.Qtah.Generated.Core.QXmlStreamReader+import Prelude ()+++castConst = toQXmlStreamReaderConst+cast = toQXmlStreamReader+downCastConst = downToQXmlStreamReaderConst+downCast = downToQXmlStreamReader
src/Graphics/UI/Qtah/Core/QXmlStreamWriter.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.QXmlStreamWriter (+  QXmlStreamWriterValue (..),+  QXmlStreamWriterConstPtr (..),+  QXmlStreamWriterPtr (..),+  QXmlStreamWriterConst,+  QXmlStreamWriter,+  castConst,+  cast,+  downCastConst,+  downCast,+  new,+  newWithByteArray,+  newWithIODevice,+  newWithString,+  autoFormatting,+  autoFormattingIndent,+  codec,+  device,+  hasError,+  setAutoFormatting,+  setAutoFormattingIndent,+  setCodec,+  setCodecWithPtrChar,+  setDevice,+  writeAttribute,+  writeAttributeWithNamespaceUriAndNameAndValue,+  writeAttributeWithQualifiedNameAndValue,+  writeAttributes,+  writeCDATA,+  writeCharacters,+  writeComment,+  writeCurrentToken,+  writeDTD,+  writeDefaultNamespace,+  writeEmptyElement,+  writeEmptyElementWithNamespaceUriAndName,+  writeEndDocument,+  writeEndElement,+  writeEntityReference,+  writeNamespace,+  writeNamespaceWithNamespaceUriAndPrefix,+  writeProcessingInstruction,+  writeProcessingInstructionWithTargetAndData,+  writeStartDocument,+  writeStartDocumentWithVersion,+  writeStartDocumentWithVersionAndStandalone,+  writeStartElement,+  writeStartElementWithNamespaceUriAndName,+  writeTextElementWithNamespaceUriAndNameAndText,+  writeTextElementWithQualifiedNameAndText,+  ) where++import Graphics.UI.Qtah.Generated.Core.QXmlStreamWriter+import Prelude ()+++castConst = toQXmlStreamWriterConst+cast = toQXmlStreamWriter+downCastConst = downToQXmlStreamWriterConst+downCast = downToQXmlStreamWriter
src/Graphics/UI/Qtah/Core/Types.hs view
@@ -0,0 +1,340 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++{-# LANGUAGE NoMonomorphismRestriction #-}++module Graphics.UI.Qtah.Core.Types (+  QReal,+  QtMsgType (..),+  QtAlignmentFlag (..),+  QtAlignment,+  IsQtAlignment (..),+  alignLeft,+  alignRight,+  alignHCenter,+  alignJustify,+  alignTop,+  alignBottom,+  alignVCenter,+  alignAbsolute,+  QtAnchorPoint (..),+  QtApplicationState (..),+  QtApplicationStates,+  IsQtApplicationStates (..),+  applicationSuspended,+  applicationHidden,+  applicationInactive,+  applicationActive,+  QtArrowType (..),+  QtAspectRatioMode (..),+  QtAxis (..),+  QtBGMode (..),+  QtBrushStyle (..),+  QtCaseSensitivity (..),+  QtCheckState (..),+  QtChecksumType (..),+  QtClipOperation (..),+  QtConnectionType (..),+  QtContextMenuPolicy (..),+  QtCoordinateSystem (..),+  QtCorner (..),+  QtCursorMoveStyle (..),+  QtCursorShape (..),+  QtDateFormat (..),+  QtDayOfWeek (..),+  QtDockWidgetArea (..),+  QtDockWidgetAreas,+  IsQtDockWidgetAreas (..),+  noDockWidgetArea,+  leftDockWidgetArea,+  rightDockWidgetArea,+  topDockWidgetArea,+  bottomDockWidgetArea,+  allDockWidgetAreas,+  QtDropAction (..),+  QtDropActions,+  IsQtDropActions (..),+  ignoreAction,+  copyAction,+  moveAction,+  linkAction,+  actionMask,+  targetMoveAction,+  QtEdge (..),+  QtEdges,+  IsQtEdges (..),+  topEdge,+  leftEdge,+  rightEdge,+  bottomEdge,+  QtEnterKeyType (..),+  QtEventPriority (..),+  QtFillRule (..),+  QtFindChildOption (..),+  QtFindChildOptions,+  IsQtFindChildOptions (..),+  findDirectChildrenOnly,+  findChildrenRecursively,+  QtFocusPolicy (..),+  QtFocusReason (..),+  QtGestureFlag (..),+  QtGestureFlags,+  IsQtGestureFlags (..),+  dontStartGestureOnChildren,+  receivePartialGestures,+  ignoredGesturesPropagateToParent,+  QtGestureState (..),+  QtGestureStates,+  IsQtGestureStates (..),+  noGesture,+  gestureStarted,+  gestureUpdated,+  gestureFinished,+  gestureCanceled,+  QtGestureType (..),+  QtHitTestAccuracy (..),+  QtImageConversionFlag (..),+  QtImageConversionFlags,+  IsQtImageConversionFlags (..),+  autoColor,+  colorOnly,+  monoOnly,+  diffuseDither,+  orderedDither,+  thresholdDither,+  thresholdAlphaDither,+  orderedAlphaDither,+  diffuseAlphaDither,+  preferDither,+  avoidDither,+  noOpaqueDetection,+  noFormatConversion,+  QtGlobalColor (..),+  QtInputMethodHint (..),+  QtInputMethodHints,+  IsQtInputMethodHints (..),+  imhNone,+  imhHiddenText,+  imhSensitiveData,+  imhNoAutoUppercase,+  imhPreferNumbers,+  imhPreferUppercase,+  imhPreferLowercase,+  imhNoPredictiveText,+  imhDate,+  imhTime,+  imhPreferLatin,+  imhMultiLine,+  imhDigitsOnly,+  imhFormattedNumbersOnly,+  imhUppercaseOnly,+  imhLowercaseOnly,+  imhDialableCharactersOnly,+  imhEmailCharactersOnly,+  imhUrlCharactersOnly,+  imhLatinOnly,+  imhExclusiveInputMask,+  QtInputMethodQuery (..),+  QtInputMethodQueries,+  IsQtInputMethodQueries (..),+  imEnabled,+  imMicroFocus,+  imCursorRectangle,+  imFont,+  imCursorPosition,+  imSurroundingText,+  imCurrentSelection,+  imMaximumTextLength,+  imAnchorPosition,+  imHints,+  imPreferredLanguage,+  imPlatformData,+  imAbsolutePosition,+  imTextBeforeCursor,+  imTextAfterCursor,+  imEnterKeyType,+  imAnchorRectangle,+  imInputItemClipRectangle,+  QtItemDataRole (..),+  QtItemFlag (..),+  QtItemFlags,+  IsQtItemFlags (..),+  noItemFlags,+  itemIsSelectable,+  itemIsEditable,+  itemIsDragEnabled,+  itemIsDropEnabled,+  itemIsUserCheckable,+  itemIsEnabled,+  itemIsAutoTristate,+  itemNeverHasChildren,+  itemIsUserTristate,+  QtItemSelectionMode (..),+  QtItemSelectionOperation (..),+  QtKey (..),+  QtKeyboardModifier (..),+  QtKeyboardModifiers,+  IsQtKeyboardModifiers (..),+  noModifier,+  shiftModifier,+  controlModifier,+  altModifier,+  metaModifier,+  keypadModifier,+  groupSwitchModifier,+  QtLayoutDirection (..),+  QtMaskMode (..),+  QtMatchFlag (..),+  QtMatchFlags,+  IsQtMatchFlags (..),+  matchExactly,+  matchFixedString,+  matchContains,+  matchStartsWith,+  matchEndsWith,+  matchCaseSensitive,+  matchRegExp,+  matchWildcard,+  matchWrap,+  matchRecursive,+  QtMouseButton (..),+  QtMouseButtons,+  IsQtMouseButtons (..),+  noButton,+  allButtons,+  leftButton,+  rightButton,+  midButton,+  middleButton,+  backButton,+  xButton1,+  extraButton1,+  forwardButton,+  xButton2,+  extraButton2,+  taskButton,+  extraButton3,+  extraButton4,+  extraButton5,+  extraButton6,+  extraButton7,+  extraButton8,+  extraButton9,+  extraButton10,+  extraButton11,+  extraButton12,+  extraButton13,+  extraButton14,+  extraButton15,+  extraButton16,+  extraButton17,+  extraButton18,+  extraButton19,+  extraButton20,+  extraButton21,+  extraButton22,+  extraButton23,+  extraButton24,+  QtMouseEventFlag (..),+  QtMouseEventFlags,+  IsQtMouseEventFlags (..),+  mouseEventCreatedDoubleClick,+  QtMouseEventSource (..),+  QtNativeGestureType (..),+  QtNavigationMode (..),+  QtOrientation (..),+  QtOrientations,+  IsQtOrientations (..),+  horizontal,+  vertical,+  QtPenCapStyle (..),+  QtPenJoinStyle (..),+  QtPenStyle (..),+  QtScreenOrientation (..),+  QtScreenOrientations,+  IsQtScreenOrientations (..),+  primaryOrientation,+  portraitOrientation,+  landscapeOrientation,+  invertedPortraitOrientation,+  invertedLandscapeOrientation,+  QtScrollBarPolicy (..),+  QtScrollPhase (..),+  QtShortcutContext (..),+  QtSizeHint (..),+  QtSizeMode (..),+  QtSortOrder (..),+  QtTabFocusBehavior (..),+  QtTextElideMode (..),+  QtTextFlag (..),+  QtTextFormat (..),+  QtTextInteractionFlag (..),+  QtTextInteractionFlags,+  IsQtTextInteractionFlags (..),+  noTextInteraction,+  textSelectableByMouse,+  textSelectableByKeyboard,+  linksAccessibleByMouse,+  linksAccessibleByKeyboard,+  textEditable,+  textEditorInteraction,+  textBrowserInteraction,+  QtTileRule (..),+  QtTimeSpec (..),+  QtTimerType (..),+  QtToolBarArea (..),+  QtToolBarAreas,+  IsQtToolBarAreas (..),+  noToolBarArea,+  leftToolBarArea,+  rightToolBarArea,+  topToolBarArea,+  bottomToolBarArea,+  allToolBarAreas,+  QtToolButtonStyle (..),+  QtTouchPointState (..),+  QtTouchPointStates,+  IsQtTouchPointStates (..),+  touchPointPressed,+  touchPointMoved,+  touchPointStationary,+  touchPointReleased,+  QtTransformationMode (..),+  QtUIEffect (..),+  QtWhiteSpaceMode (..),+  QtWidgetAttribute (..),+  QtWindowFrameSection (..),+  QtWindowModality (..),+  QtApplicationAttribute (..),+  QtWindowState (..),+  QtWindowStates,+  IsQtWindowStates (..),+  windowNoState,+  windowMinimized,+  windowMaximized,+  windowFullScreen,+  windowActive,+  QtWindowType (..),+  QtWindowFlags,+  IsQtWindowFlags (..),+  widget,+  window,+  dialog,+  sheet,+  drawer,+  popup,+  tool,+  toolTip,+  splashScreen,+  desktop,+  subWindow,+  foreignWindow,+  coverWindow,+  ) where++import Graphics.UI.Qtah.Generated.Core.Types+import Prelude ()+import qualified Prelude as QtahP+++type QReal = QtahP.Double
src/Graphics/UI/Qtah/Event.hs view
@@ -1,6 +1,6 @@ -- This file is part of Qtah. ----- Copyright 2015-2020 The Qtah Authors.+-- Copyright 2015-2021 The Qtah Authors. -- -- This program is free software: you can redistribute it and/or modify -- it under the terms of the GNU Lesser General Public License as published by
src/Graphics/UI/Qtah/Flags.hs view
@@ -1,6 +1,6 @@ -- This file is part of Qtah. ----- Copyright 2015-2020 The Qtah Authors.+-- Copyright 2015-2021 The Qtah Authors. -- -- This program is free software: you can redistribute it and/or modify -- it under the terms of the GNU Lesser General Public License as published by
src/Graphics/UI/Qtah/Generated/Core/QAbstractAnimation.hs view
@@ -0,0 +1,341 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QAbstractAnimation (+  castQAbstractAnimationToQObject,+  castQObjectToQAbstractAnimation,+  QAbstractAnimationValue (..),+  QAbstractAnimationConstPtr (..),+  currentLoopTime,+  duration,+  totalDuration,+  QAbstractAnimationPtr (..),+  pause,+  resume,+  setPaused,+  start,+  startWithDeletionPolicy,+  stop,+  emitCurrentLoopChanged,+  emitDirectionChanged,+  emitFinished,+  emitStateChanged,+  QAbstractAnimationConst (..),+  castQAbstractAnimationToConst,+  QAbstractAnimation (..),+  castQAbstractAnimationToNonconst,+  QAbstractAnimationSuper (..),+  QAbstractAnimationSuperConst (..),+  QAbstractAnimationDeletionPolicy (..),+  QAbstractAnimationDirection (..),+  QAbstractAnimationState (..),+  ) 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.Core.QObject as M94+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QAbstractAnimation_currentLoopTime" currentLoopTime' ::  HoppyF.Ptr QAbstractAnimationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractAnimation_duration" duration' ::  HoppyF.Ptr QAbstractAnimationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractAnimation_pause" pause' ::  HoppyF.Ptr QAbstractAnimation -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractAnimation_resume" resume' ::  HoppyF.Ptr QAbstractAnimation -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractAnimation_setPaused" setPaused' ::  HoppyF.Ptr QAbstractAnimation -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractAnimation_start" start' ::  HoppyF.Ptr QAbstractAnimation -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractAnimation_startWithDeletionPolicy" startWithDeletionPolicy' ::  HoppyF.Ptr QAbstractAnimation -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractAnimation_stop" stop' ::  HoppyF.Ptr QAbstractAnimation -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractAnimation_totalDuration" totalDuration' ::  HoppyF.Ptr QAbstractAnimationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractAnimation_emitCurrentLoopChanged" emitCurrentLoopChanged' ::  HoppyF.Ptr QAbstractAnimation -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractAnimation_emitDirectionChanged" emitDirectionChanged' ::  HoppyF.Ptr QAbstractAnimation -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractAnimation_emitFinished" emitFinished' ::  HoppyF.Ptr QAbstractAnimation -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractAnimation_emitStateChanged" emitStateChanged' ::  HoppyF.Ptr QAbstractAnimation -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QAbstractAnimation__QObject" castQAbstractAnimationToQObject :: HoppyF.Ptr QAbstractAnimationConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QAbstractAnimation" castQObjectToQAbstractAnimation :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QAbstractAnimationConst+foreign import ccall "gendel__QAbstractAnimation" delete'QAbstractAnimation :: HoppyF.Ptr QAbstractAnimationConst -> HoppyP.IO ()+foreign import ccall "&gendel__QAbstractAnimation" deletePtr'QAbstractAnimation :: HoppyF.FunPtr (HoppyF.Ptr QAbstractAnimationConst -> HoppyP.IO ())++class QAbstractAnimationValue a where+  withQAbstractAnimationPtr :: a -> (QAbstractAnimationConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractAnimationConstPtr a => QAbstractAnimationValue a where+  withQAbstractAnimationPtr = HoppyP.flip ($) . toQAbstractAnimationConst++class (M94.QObjectConstPtr this) => QAbstractAnimationConstPtr this where+  toQAbstractAnimationConst :: this -> QAbstractAnimationConst++currentLoopTime :: (QAbstractAnimationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+currentLoopTime arg'1 =+  withQAbstractAnimationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (currentLoopTime' arg'1')++duration :: (QAbstractAnimationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+duration arg'1 =+  withQAbstractAnimationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (duration' arg'1')++totalDuration :: (QAbstractAnimationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+totalDuration arg'1 =+  withQAbstractAnimationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (totalDuration' arg'1')++class (QAbstractAnimationConstPtr this, M94.QObjectPtr this) => QAbstractAnimationPtr this where+  toQAbstractAnimation :: this -> QAbstractAnimation++pause :: (QAbstractAnimationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+pause arg'1 =+  HoppyFHR.withCppPtr (toQAbstractAnimation arg'1) $ \arg'1' ->+  (pause' arg'1')++resume :: (QAbstractAnimationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+resume arg'1 =+  HoppyFHR.withCppPtr (toQAbstractAnimation arg'1) $ \arg'1' ->+  (resume' arg'1')++setPaused :: (QAbstractAnimationPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setPaused arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractAnimation arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setPaused' arg'1' arg'2')++start :: (QAbstractAnimationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+start arg'1 =+  HoppyFHR.withCppPtr (toQAbstractAnimation arg'1) $ \arg'1' ->+  (start' arg'1')++startWithDeletionPolicy :: (QAbstractAnimationPtr this) => (this) {- ^ this -} -> (QAbstractAnimationDeletionPolicy) -> (HoppyP.IO ())+startWithDeletionPolicy arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractAnimation arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (startWithDeletionPolicy' arg'1' arg'2')++stop :: (QAbstractAnimationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+stop arg'1 =+  HoppyFHR.withCppPtr (toQAbstractAnimation arg'1) $ \arg'1' ->+  (stop' arg'1')++emitCurrentLoopChanged :: (QAbstractAnimationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitCurrentLoopChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractAnimation arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitCurrentLoopChanged' arg'1' arg'2')++emitDirectionChanged :: (QAbstractAnimationPtr this) => (this) {- ^ this -} -> (QAbstractAnimationDirection) -> (HoppyP.IO ())+emitDirectionChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractAnimation arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (emitDirectionChanged' arg'1' arg'2')++emitFinished :: (QAbstractAnimationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitFinished arg'1 =+  HoppyFHR.withCppPtr (toQAbstractAnimation arg'1) $ \arg'1' ->+  (emitFinished' arg'1')++emitStateChanged :: (QAbstractAnimationPtr this) => (this) {- ^ this -} -> (QAbstractAnimationState) -> (QAbstractAnimationState) -> (HoppyP.IO ())+emitStateChanged arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractAnimation arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (emitStateChanged' arg'1' arg'2' arg'3')++data QAbstractAnimationConst =+    QAbstractAnimationConst (HoppyF.Ptr QAbstractAnimationConst)+  | QAbstractAnimationConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractAnimationConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractAnimationConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractAnimationConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractAnimationToConst :: QAbstractAnimation -> QAbstractAnimationConst+castQAbstractAnimationToConst (QAbstractAnimation ptr') = QAbstractAnimationConst $ HoppyF.castPtr ptr'+castQAbstractAnimationToConst (QAbstractAnimationGc fptr' ptr') = QAbstractAnimationConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractAnimationConst where+  nullptr = QAbstractAnimationConst HoppyF.nullPtr+  +  withCppPtr (QAbstractAnimationConst ptr') f' = f' ptr'+  withCppPtr (QAbstractAnimationConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractAnimationConst ptr') = ptr'+  toPtr (QAbstractAnimationConstGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractAnimationConst _) = HoppyP.return ()+  touchCppPtr (QAbstractAnimationConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractAnimationConst where+  delete (QAbstractAnimationConst ptr') = delete'QAbstractAnimation ptr'+  delete (QAbstractAnimationConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractAnimationConst", " object."]+  +  toGc this'@(QAbstractAnimationConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractAnimationConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractAnimation :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractAnimationConstGc {}) = HoppyP.return this'++instance QAbstractAnimationConstPtr QAbstractAnimationConst where+  toQAbstractAnimationConst = HoppyP.id++instance M94.QObjectConstPtr QAbstractAnimationConst where+  toQObjectConst (QAbstractAnimationConst ptr') = M94.QObjectConst $ castQAbstractAnimationToQObject ptr'+  toQObjectConst (QAbstractAnimationConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractAnimationToQObject ptr'++data QAbstractAnimation =+    QAbstractAnimation (HoppyF.Ptr QAbstractAnimation)+  | QAbstractAnimationGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractAnimation)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractAnimation where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractAnimation where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractAnimationToNonconst :: QAbstractAnimationConst -> QAbstractAnimation+castQAbstractAnimationToNonconst (QAbstractAnimationConst ptr') = QAbstractAnimation $ HoppyF.castPtr ptr'+castQAbstractAnimationToNonconst (QAbstractAnimationConstGc fptr' ptr') = QAbstractAnimationGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractAnimation where+  nullptr = QAbstractAnimation HoppyF.nullPtr+  +  withCppPtr (QAbstractAnimation ptr') f' = f' ptr'+  withCppPtr (QAbstractAnimationGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractAnimation ptr') = ptr'+  toPtr (QAbstractAnimationGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractAnimation _) = HoppyP.return ()+  touchCppPtr (QAbstractAnimationGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractAnimation where+  delete (QAbstractAnimation ptr') = delete'QAbstractAnimation $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QAbstractAnimationConst)+  delete (QAbstractAnimationGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractAnimation", " object."]+  +  toGc this'@(QAbstractAnimation ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractAnimationGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractAnimation :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractAnimationGc {}) = HoppyP.return this'++instance QAbstractAnimationConstPtr QAbstractAnimation where+  toQAbstractAnimationConst (QAbstractAnimation ptr') = QAbstractAnimationConst $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractAnimation -> HoppyF.Ptr QAbstractAnimationConst) ptr'+  toQAbstractAnimationConst (QAbstractAnimationGc fptr' ptr') = QAbstractAnimationConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractAnimation -> HoppyF.Ptr QAbstractAnimationConst) ptr'++instance QAbstractAnimationPtr QAbstractAnimation where+  toQAbstractAnimation = HoppyP.id++instance M94.QObjectConstPtr QAbstractAnimation where+  toQObjectConst (QAbstractAnimation ptr') = M94.QObjectConst $ castQAbstractAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractAnimation -> HoppyF.Ptr QAbstractAnimationConst) ptr'+  toQObjectConst (QAbstractAnimationGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractAnimation -> HoppyF.Ptr QAbstractAnimationConst) ptr'++instance M94.QObjectPtr QAbstractAnimation where+  toQObject (QAbstractAnimation ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractAnimation -> HoppyF.Ptr QAbstractAnimationConst) ptr'+  toQObject (QAbstractAnimationGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractAnimation -> HoppyF.Ptr QAbstractAnimationConst) ptr'++class QAbstractAnimationSuper a where+  downToQAbstractAnimation :: a -> QAbstractAnimation++instance QAbstractAnimationSuper M94.QObject where+  downToQAbstractAnimation = castQAbstractAnimationToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QAbstractAnimationConst $ castQObjectToQAbstractAnimation ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractAnimationConstGc fptr' $ castQObjectToQAbstractAnimation ptr'++class QAbstractAnimationSuperConst a where+  downToQAbstractAnimationConst :: a -> QAbstractAnimationConst++instance QAbstractAnimationSuperConst M94.QObjectConst where+  downToQAbstractAnimationConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QAbstractAnimationConst $ castQObjectToQAbstractAnimation ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractAnimationConstGc fptr' $ castQObjectToQAbstractAnimation ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QAbstractAnimation)) QAbstractAnimation where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractAnimation)) QAbstractAnimation where+  decode = HoppyP.fmap QAbstractAnimation . HoppyF.peek++data QAbstractAnimationDeletionPolicy =+  KeepWhenStopped+  | DeleteWhenStopped+  | UnknownQAbstractAnimationDeletionPolicy (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractAnimationDeletionPolicy where+  fromCppEnum KeepWhenStopped = 0+  fromCppEnum DeleteWhenStopped = 1+  fromCppEnum (UnknownQAbstractAnimationDeletionPolicy n) = n+  +  toCppEnum (0) = KeepWhenStopped+  toCppEnum (1) = DeleteWhenStopped+  toCppEnum n = UnknownQAbstractAnimationDeletionPolicy n++instance HoppyP.Eq QAbstractAnimationDeletionPolicy where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QAbstractAnimationDeletionPolicy where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QAbstractAnimationDirection =+  Forward+  | Backward+  | UnknownQAbstractAnimationDirection (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractAnimationDirection where+  fromCppEnum Forward = 0+  fromCppEnum Backward = 1+  fromCppEnum (UnknownQAbstractAnimationDirection n) = n+  +  toCppEnum (0) = Forward+  toCppEnum (1) = Backward+  toCppEnum n = UnknownQAbstractAnimationDirection n++instance HoppyP.Eq QAbstractAnimationDirection where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QAbstractAnimationDirection where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QAbstractAnimationState =+  Stopped+  | Paused+  | Running+  | UnknownQAbstractAnimationState (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractAnimationState where+  fromCppEnum Stopped = 0+  fromCppEnum Paused = 1+  fromCppEnum Running = 2+  fromCppEnum (UnknownQAbstractAnimationState n) = n+  +  toCppEnum (0) = Stopped+  toCppEnum (1) = Paused+  toCppEnum (2) = Running+  toCppEnum n = UnknownQAbstractAnimationState n++instance HoppyP.Eq QAbstractAnimationState where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QAbstractAnimationState where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Core/QAbstractItemModel.hs view
@@ -0,0 +1,1016 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QAbstractItemModel (+  castQAbstractItemModelToQObject,+  castQObjectToQAbstractItemModel,+  QAbstractItemModelValue (..),+  QAbstractItemModelConstPtr (..),+  buddy,+  canFetchMore,+  checkIndex,+  checkIndexWithOptions,+  columnCount,+  columnCountAt,+  getData,+  getDataWithRole,+  flags,+  hasChildren,+  hasChildrenAt,+  hasIndex,+  hasIndexAt,+  headerData,+  headerDataWithRole,+  index,+  indexAt,+  mimeTypes,+  parent,+  rowCount,+  rowCountAt,+  sibling,+  span,+  supportedDragActions,+  supportedDropActions,+  QAbstractItemModelPtr (..),+  fetchMore,+  insertColumn,+  insertColumnAt,+  insertColumns,+  insertColumnsAt,+  insertRow,+  insertRowAt,+  insertRows,+  insertRowsAt,+  moveColumn,+  moveColumns,+  moveRow,+  moveRows,+  removeColumn,+  removeColumnAt,+  removeColumns,+  removeColumnsAt,+  removeRow,+  removeRowAt,+  removeRows,+  removeRowsAt,+  revert,+  setData,+  setDataWithRole,+  setHeaderData,+  setHeaderDataWithRole,+  sort,+  sortWithOrder,+  submit,+  emitDataChanged,+  emitHeaderDataChanged,+  QAbstractItemModelConst (..),+  castQAbstractItemModelToConst,+  QAbstractItemModel (..),+  castQAbstractItemModelToNonconst,+  QAbstractItemModelSuper (..),+  QAbstractItemModelSuperConst (..),+  QAbstractItemModelCheckIndexOption (..),+  QAbstractItemModelCheckIndexOptions,+  IsQAbstractItemModelCheckIndexOptions (..),+  doNotUseParent,+  indexIsValid,+  noOption,+  parentIsInvalid,+  QAbstractItemModelLayoutChangeHint (..),+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Core.HSize as HSize+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QModelIndex as M92+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QSize as M134+import qualified Graphics.UI.Qtah.Generated.Core.QStringList as M144+import qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168+import qualified Graphics.UI.Qtah.Generated.Core.QVector.Int as M214+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QAbstractItemModel_buddy" buddy' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QAbstractItemModel_canFetchMore" canFetchMore' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_checkIndex" checkIndex' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_checkIndexWithOptions" checkIndexWithOptions' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_columnCount" columnCount' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemModel_columnCountAt" columnCountAt' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemModel_getData" getData' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QAbstractItemModel_getDataWithRole" getDataWithRole' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QAbstractItemModel_fetchMore" fetchMore' ::  HoppyF.Ptr QAbstractItemModel -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemModel_flags" flags' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemModel_hasChildren" hasChildren' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_hasChildrenAt" hasChildrenAt' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_hasIndex" hasIndex' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_hasIndexAt" hasIndexAt' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_headerData" headerData' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QAbstractItemModel_headerDataWithRole" headerDataWithRole' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QAbstractItemModel_index" index' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QAbstractItemModel_indexAt" indexAt' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QAbstractItemModel_insertColumn" insertColumn' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_insertColumnAt" insertColumnAt' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_insertColumns" insertColumns' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_insertColumnsAt" insertColumnsAt' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_insertRow" insertRow' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_insertRowAt" insertRowAt' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_insertRows" insertRows' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_insertRowsAt" insertRowsAt' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_mimeTypes" mimeTypes' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QAbstractItemModel_moveColumn" moveColumn' ::  HoppyF.Ptr QAbstractItemModel -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_moveColumns" moveColumns' ::  HoppyF.Ptr QAbstractItemModel -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_moveRow" moveRow' ::  HoppyF.Ptr QAbstractItemModel -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_moveRows" moveRows' ::  HoppyF.Ptr QAbstractItemModel -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_parent" parent' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QAbstractItemModel_removeColumn" removeColumn' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_removeColumnAt" removeColumnAt' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_removeColumns" removeColumns' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_removeColumnsAt" removeColumnsAt' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_removeRow" removeRow' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_removeRowAt" removeRowAt' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_removeRows" removeRows' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_removeRowsAt" removeRowsAt' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_revert" revert' ::  HoppyF.Ptr QAbstractItemModel -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemModel_rowCount" rowCount' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemModel_rowCountAt" rowCountAt' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemModel_setData" setData' ::  HoppyF.Ptr QAbstractItemModel -> HoppyF.Ptr M92.QModelIndexConst -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_setDataWithRole" setDataWithRole' ::  HoppyF.Ptr QAbstractItemModel -> HoppyF.Ptr M92.QModelIndexConst -> HoppyF.Ptr M168.QVariantConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_setHeaderData" setHeaderData' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_setHeaderDataWithRole" setHeaderDataWithRole' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M168.QVariantConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_sibling" sibling' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QAbstractItemModel_sort" sort' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemModel_sortWithOrder" sortWithOrder' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemModel_span" span' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QAbstractItemModel_submit" submit' ::  HoppyF.Ptr QAbstractItemModel -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemModel_supportedDragActions" supportedDragActions' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemModel_supportedDropActions" supportedDropActions' ::  HoppyF.Ptr QAbstractItemModelConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemModel_emitDataChanged" emitDataChanged' ::  HoppyF.Ptr QAbstractItemModel -> HoppyF.Ptr M92.QModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyF.Ptr M214.QVectorIntConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemModel_emitHeaderDataChanged" emitHeaderDataChanged' ::  HoppyF.Ptr QAbstractItemModel -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QAbstractItemModel__QObject" castQAbstractItemModelToQObject :: HoppyF.Ptr QAbstractItemModelConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QAbstractItemModel" castQObjectToQAbstractItemModel :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QAbstractItemModelConst+foreign import ccall "gendel__QAbstractItemModel" delete'QAbstractItemModel :: HoppyF.Ptr QAbstractItemModelConst -> HoppyP.IO ()+foreign import ccall "&gendel__QAbstractItemModel" deletePtr'QAbstractItemModel :: HoppyF.FunPtr (HoppyF.Ptr QAbstractItemModelConst -> HoppyP.IO ())++class QAbstractItemModelValue a where+  withQAbstractItemModelPtr :: a -> (QAbstractItemModelConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractItemModelConstPtr a => QAbstractItemModelValue a where+  withQAbstractItemModelPtr = HoppyP.flip ($) . toQAbstractItemModelConst++class (M94.QObjectConstPtr this) => QAbstractItemModelConstPtr this where+  toQAbstractItemModelConst :: this -> QAbstractItemModelConst++buddy :: (QAbstractItemModelValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M92.QModelIndex)+buddy arg'1 arg'2 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (buddy' arg'1' arg'2')++canFetchMore :: (QAbstractItemModelValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+canFetchMore arg'1 arg'2 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (canFetchMore' arg'1' arg'2')++checkIndex :: (QAbstractItemModelValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+checkIndex arg'1 arg'2 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (checkIndex' arg'1' arg'2')++checkIndexWithOptions :: (QAbstractItemModelValue this, M92.QModelIndexValue arg'2, IsQAbstractItemModelCheckIndexOptions arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+checkIndexWithOptions arg'1 arg'2 arg'3 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQAbstractItemModelCheckIndexOptions+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (checkIndexWithOptions' arg'1' arg'2' arg'3')++columnCount :: (QAbstractItemModelValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+columnCount arg'1 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (columnCount' arg'1')++columnCountAt :: (QAbstractItemModelValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+columnCountAt arg'1 arg'2 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (columnCountAt' arg'1' arg'2')++getData :: (QAbstractItemModelValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M168.QVariant)+getData arg'1 arg'2 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (getData' arg'1' arg'2')++getDataWithRole :: (QAbstractItemModelValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtItemDataRole) -> (HoppyP.IO M168.QVariant)+getDataWithRole arg'1 arg'2 arg'3 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (getDataWithRole' arg'1' arg'2' arg'3')++flags :: (QAbstractItemModelValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M190.QtItemFlags)+flags arg'1 arg'2 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (flags' arg'1' arg'2')++hasChildren :: (QAbstractItemModelValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasChildren arg'1 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasChildren' arg'1')++hasChildrenAt :: (QAbstractItemModelValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+hasChildrenAt arg'1 arg'2 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasChildrenAt' arg'1' arg'2')++hasIndex :: (QAbstractItemModelValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+hasIndex arg'1 arg'2 arg'3 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasIndex' arg'1' arg'2' arg'3')++hasIndexAt :: (QAbstractItemModelValue this, M92.QModelIndexValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO HoppyP.Bool)+hasIndexAt arg'1 arg'2 arg'3 arg'4 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M92.withQModelIndexPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasIndexAt' arg'1' arg'2' arg'3' arg'4')++headerData :: (QAbstractItemModelValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (M190.QtOrientation) -> (HoppyP.IO M168.QVariant)+headerData arg'1 arg'2 arg'3 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (headerData' arg'1' arg'2' arg'3')++headerDataWithRole :: (QAbstractItemModelValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (M190.QtOrientation) -> (M190.QtItemDataRole) -> (HoppyP.IO M168.QVariant)+headerDataWithRole arg'1 arg'2 arg'3 arg'4 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \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' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (headerDataWithRole' arg'1' arg'2' arg'3' arg'4')++index :: (QAbstractItemModelValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO M92.QModelIndex)+index arg'1 arg'2 arg'3 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (index' arg'1' arg'2' arg'3')++indexAt :: (QAbstractItemModelValue this, M92.QModelIndexValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO M92.QModelIndex)+indexAt arg'1 arg'2 arg'3 arg'4 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M92.withQModelIndexPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (indexAt' arg'1' arg'2' arg'3' arg'4')++mimeTypes :: (QAbstractItemModelValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+mimeTypes arg'1 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (mimeTypes' arg'1')++parent :: (QAbstractItemModelValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M92.QModelIndex)+parent arg'1 arg'2 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (parent' arg'1' arg'2')++rowCount :: (QAbstractItemModelValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+rowCount arg'1 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (rowCount' arg'1')++rowCountAt :: (QAbstractItemModelValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+rowCountAt arg'1 arg'2 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (rowCountAt' arg'1' arg'2')++sibling :: (QAbstractItemModelValue this, M92.QModelIndexValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO M92.QModelIndex)+sibling arg'1 arg'2 arg'3 arg'4 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M92.withQModelIndexPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (sibling' arg'1' arg'2' arg'3' arg'4')++span :: (QAbstractItemModelValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HSize.HSize)+span arg'1 arg'2 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (span' arg'1' arg'2')++supportedDragActions :: (QAbstractItemModelValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtDropActions)+supportedDragActions arg'1 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (supportedDragActions' arg'1')++supportedDropActions :: (QAbstractItemModelValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtDropActions)+supportedDropActions arg'1 =+  withQAbstractItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (supportedDropActions' arg'1')++class (QAbstractItemModelConstPtr this, M94.QObjectPtr this) => QAbstractItemModelPtr this where+  toQAbstractItemModel :: this -> QAbstractItemModel++fetchMore :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+fetchMore arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (fetchMore' arg'1' arg'2')++insertColumn :: (QAbstractItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+insertColumn arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (insertColumn' arg'1' arg'2')++insertColumnAt :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+insertColumnAt arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (insertColumnAt' arg'1' arg'2' arg'3')++insertColumns :: (QAbstractItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+insertColumns arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (insertColumns' arg'1' arg'2' arg'3')++insertColumnsAt :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO HoppyP.Bool)+insertColumnsAt arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M92.withQModelIndexPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (insertColumnsAt' arg'1' arg'2' arg'3' arg'4')++insertRow :: (QAbstractItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+insertRow arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (insertRow' arg'1' arg'2')++insertRowAt :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+insertRowAt arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (insertRowAt' arg'1' arg'2' arg'3')++insertRows :: (QAbstractItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+insertRows arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (insertRows' arg'1' arg'2' arg'3')++insertRowsAt :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO HoppyP.Bool)+insertRowsAt arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M92.withQModelIndexPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (insertRowsAt' arg'1' arg'2' arg'3' arg'4')++moveColumn :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'2, M92.QModelIndexValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+moveColumn arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M92.withQModelIndexPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'5 >>= \arg'5' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (moveColumn' arg'1' arg'2' arg'3' arg'4' arg'5')++moveColumns :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'2, M92.QModelIndexValue arg'5) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'5) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+moveColumns arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  M92.withQModelIndexPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (moveColumns' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++moveRow :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'2, M92.QModelIndexValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+moveRow arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M92.withQModelIndexPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'5 >>= \arg'5' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (moveRow' arg'1' arg'2' arg'3' arg'4' arg'5')++moveRows :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'2, M92.QModelIndexValue arg'5) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'5) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+moveRows arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  M92.withQModelIndexPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (moveRows' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++removeColumn :: (QAbstractItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+removeColumn arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeColumn' arg'1' arg'2')++removeColumnAt :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+removeColumnAt arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeColumnAt' arg'1' arg'2' arg'3')++removeColumns :: (QAbstractItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+removeColumns arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeColumns' arg'1' arg'2' arg'3')++removeColumnsAt :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO HoppyP.Bool)+removeColumnsAt arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M92.withQModelIndexPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeColumnsAt' arg'1' arg'2' arg'3' arg'4')++removeRow :: (QAbstractItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+removeRow arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeRow' arg'1' arg'2')++removeRowAt :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+removeRowAt arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeRowAt' arg'1' arg'2' arg'3')++removeRows :: (QAbstractItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+removeRows arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeRows' arg'1' arg'2' arg'3')++removeRowsAt :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO HoppyP.Bool)+removeRowsAt arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M92.withQModelIndexPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeRowsAt' arg'1' arg'2' arg'3' arg'4')++revert :: (QAbstractItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+revert arg'1 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (revert' arg'1')++setData :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'2, M168.QVariantValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+setData arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M168.withQVariantPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (setData' arg'1' arg'2' arg'3')++setDataWithRole :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'2, M168.QVariantValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (M190.QtItemDataRole) -> (HoppyP.IO HoppyP.Bool)+setDataWithRole arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M168.withQVariantPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'4 >>= \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (setDataWithRole' arg'1' arg'2' arg'3' arg'4')++setHeaderData :: (QAbstractItemModelPtr this, M168.QVariantValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (M190.QtOrientation) -> (arg'4) -> (HoppyP.IO HoppyP.Bool)+setHeaderData arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  M168.withQVariantPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (setHeaderData' arg'1' arg'2' arg'3' arg'4')++setHeaderDataWithRole :: (QAbstractItemModelPtr this, M168.QVariantValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (M190.QtOrientation) -> (arg'4) -> (M190.QtItemDataRole) -> (HoppyP.IO HoppyP.Bool)+setHeaderDataWithRole arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  M168.withQVariantPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'5 >>= \arg'5' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (setHeaderDataWithRole' arg'1' arg'2' arg'3' arg'4' arg'5')++sort :: (QAbstractItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+sort arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (sort' arg'1' arg'2')++sortWithOrder :: (QAbstractItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (M190.QtSortOrder) -> (HoppyP.IO ())+sortWithOrder arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (sortWithOrder' arg'1' arg'2' arg'3')++submit :: (QAbstractItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+submit arg'1 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (submit' arg'1')++emitDataChanged :: (QAbstractItemModelPtr this, M92.QModelIndexValue arg'2, M92.QModelIndexValue arg'3, M214.QVectorIntValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO ())+emitDataChanged arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M214.withQVectorIntPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (emitDataChanged' arg'1' arg'2' arg'3' arg'4')++emitHeaderDataChanged :: (QAbstractItemModelPtr this) => (this) {- ^ this -} -> (M190.QtOrientation) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+emitHeaderDataChanged arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQAbstractItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (emitHeaderDataChanged' arg'1' arg'2' arg'3' arg'4')++data QAbstractItemModelConst =+    QAbstractItemModelConst (HoppyF.Ptr QAbstractItemModelConst)+  | QAbstractItemModelConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractItemModelConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractItemModelConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractItemModelConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractItemModelToConst :: QAbstractItemModel -> QAbstractItemModelConst+castQAbstractItemModelToConst (QAbstractItemModel ptr') = QAbstractItemModelConst $ HoppyF.castPtr ptr'+castQAbstractItemModelToConst (QAbstractItemModelGc fptr' ptr') = QAbstractItemModelConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractItemModelConst where+  nullptr = QAbstractItemModelConst HoppyF.nullPtr+  +  withCppPtr (QAbstractItemModelConst ptr') f' = f' ptr'+  withCppPtr (QAbstractItemModelConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractItemModelConst ptr') = ptr'+  toPtr (QAbstractItemModelConstGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractItemModelConst _) = HoppyP.return ()+  touchCppPtr (QAbstractItemModelConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractItemModelConst where+  delete (QAbstractItemModelConst ptr') = delete'QAbstractItemModel ptr'+  delete (QAbstractItemModelConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractItemModelConst", " object."]+  +  toGc this'@(QAbstractItemModelConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractItemModelConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractItemModel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractItemModelConstGc {}) = HoppyP.return this'++instance QAbstractItemModelConstPtr QAbstractItemModelConst where+  toQAbstractItemModelConst = HoppyP.id++instance M94.QObjectConstPtr QAbstractItemModelConst where+  toQObjectConst (QAbstractItemModelConst ptr') = M94.QObjectConst $ castQAbstractItemModelToQObject ptr'+  toQObjectConst (QAbstractItemModelConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractItemModelToQObject ptr'++data QAbstractItemModel =+    QAbstractItemModel (HoppyF.Ptr QAbstractItemModel)+  | QAbstractItemModelGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractItemModel)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractItemModel where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractItemModel where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractItemModelToNonconst :: QAbstractItemModelConst -> QAbstractItemModel+castQAbstractItemModelToNonconst (QAbstractItemModelConst ptr') = QAbstractItemModel $ HoppyF.castPtr ptr'+castQAbstractItemModelToNonconst (QAbstractItemModelConstGc fptr' ptr') = QAbstractItemModelGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractItemModel where+  nullptr = QAbstractItemModel HoppyF.nullPtr+  +  withCppPtr (QAbstractItemModel ptr') f' = f' ptr'+  withCppPtr (QAbstractItemModelGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractItemModel ptr') = ptr'+  toPtr (QAbstractItemModelGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractItemModel _) = HoppyP.return ()+  touchCppPtr (QAbstractItemModelGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractItemModel where+  delete (QAbstractItemModel ptr') = delete'QAbstractItemModel $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QAbstractItemModelConst)+  delete (QAbstractItemModelGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractItemModel", " object."]+  +  toGc this'@(QAbstractItemModel ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractItemModelGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractItemModel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractItemModelGc {}) = HoppyP.return this'++instance QAbstractItemModelConstPtr QAbstractItemModel where+  toQAbstractItemModelConst (QAbstractItemModel ptr') = QAbstractItemModelConst $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemModel -> HoppyF.Ptr QAbstractItemModelConst) ptr'+  toQAbstractItemModelConst (QAbstractItemModelGc fptr' ptr') = QAbstractItemModelConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemModel -> HoppyF.Ptr QAbstractItemModelConst) ptr'++instance QAbstractItemModelPtr QAbstractItemModel where+  toQAbstractItemModel = HoppyP.id++instance M94.QObjectConstPtr QAbstractItemModel where+  toQObjectConst (QAbstractItemModel ptr') = M94.QObjectConst $ castQAbstractItemModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemModel -> HoppyF.Ptr QAbstractItemModelConst) ptr'+  toQObjectConst (QAbstractItemModelGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractItemModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemModel -> HoppyF.Ptr QAbstractItemModelConst) ptr'++instance M94.QObjectPtr QAbstractItemModel where+  toQObject (QAbstractItemModel ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractItemModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemModel -> HoppyF.Ptr QAbstractItemModelConst) ptr'+  toQObject (QAbstractItemModelGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractItemModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemModel -> HoppyF.Ptr QAbstractItemModelConst) ptr'++class QAbstractItemModelSuper a where+  downToQAbstractItemModel :: a -> QAbstractItemModel++instance QAbstractItemModelSuper M94.QObject where+  downToQAbstractItemModel = castQAbstractItemModelToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QAbstractItemModelConst $ castQObjectToQAbstractItemModel ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractItemModelConstGc fptr' $ castQObjectToQAbstractItemModel ptr'++class QAbstractItemModelSuperConst a where+  downToQAbstractItemModelConst :: a -> QAbstractItemModelConst++instance QAbstractItemModelSuperConst M94.QObjectConst where+  downToQAbstractItemModelConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QAbstractItemModelConst $ castQObjectToQAbstractItemModel ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractItemModelConstGc fptr' $ castQObjectToQAbstractItemModel ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QAbstractItemModel)) QAbstractItemModel where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractItemModel)) QAbstractItemModel where+  decode = HoppyP.fmap QAbstractItemModel . HoppyF.peek++data QAbstractItemModelCheckIndexOption =+  NoOption+  | IndexIsValid+  | DoNotUseParent+  | ParentIsInvalid+  | UnknownQAbstractItemModelCheckIndexOption (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemModelCheckIndexOption where+  fromCppEnum NoOption = 0+  fromCppEnum IndexIsValid = 1+  fromCppEnum DoNotUseParent = 2+  fromCppEnum ParentIsInvalid = 4+  fromCppEnum (UnknownQAbstractItemModelCheckIndexOption n) = n+  +  toCppEnum (0) = NoOption+  toCppEnum (1) = IndexIsValid+  toCppEnum (2) = DoNotUseParent+  toCppEnum (4) = ParentIsInvalid+  toCppEnum n = UnknownQAbstractItemModelCheckIndexOption n++instance HoppyP.Eq QAbstractItemModelCheckIndexOption where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QAbstractItemModelCheckIndexOption where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QAbstractItemModelCheckIndexOptions = QAbstractItemModelCheckIndexOptions (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QAbstractItemModelCheckIndexOption QAbstractItemModelCheckIndexOptions where+  enumToFlags = QAbstractItemModelCheckIndexOptions . QtahFHR.fromCppEnum+  flagsToEnum (QAbstractItemModelCheckIndexOptions x') = QtahFHR.toCppEnum x'++class IsQAbstractItemModelCheckIndexOptions a where+  toQAbstractItemModelCheckIndexOptions :: a -> QAbstractItemModelCheckIndexOptions++instance IsQAbstractItemModelCheckIndexOptions QAbstractItemModelCheckIndexOptions where toQAbstractItemModelCheckIndexOptions = QtahP.id+instance IsQAbstractItemModelCheckIndexOptions QAbstractItemModelCheckIndexOption where toQAbstractItemModelCheckIndexOptions = QtahFlags.enumToFlags+instance IsQAbstractItemModelCheckIndexOptions (HoppyFC.CInt) where toQAbstractItemModelCheckIndexOptions = QtahFlags.numToFlags++doNotUseParent :: QAbstractItemModelCheckIndexOptions+doNotUseParent = QAbstractItemModelCheckIndexOptions (2)++indexIsValid :: QAbstractItemModelCheckIndexOptions+indexIsValid = QAbstractItemModelCheckIndexOptions (1)++noOption :: QAbstractItemModelCheckIndexOptions+noOption = QAbstractItemModelCheckIndexOptions (0)++parentIsInvalid :: QAbstractItemModelCheckIndexOptions+parentIsInvalid = QAbstractItemModelCheckIndexOptions (4)++instance QtahDB.Bits QAbstractItemModelCheckIndexOptions where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QAbstractItemModelLayoutChangeHint =+  NoLayoutChangeHint+  | VerticalSortHint+  | HorizontalSortHint+  | UnknownQAbstractItemModelLayoutChangeHint (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemModelLayoutChangeHint where+  fromCppEnum NoLayoutChangeHint = 0+  fromCppEnum VerticalSortHint = 1+  fromCppEnum HorizontalSortHint = 2+  fromCppEnum (UnknownQAbstractItemModelLayoutChangeHint n) = n+  +  toCppEnum (0) = NoLayoutChangeHint+  toCppEnum (1) = VerticalSortHint+  toCppEnum (2) = HorizontalSortHint+  toCppEnum n = UnknownQAbstractItemModelLayoutChangeHint n++instance HoppyP.Eq QAbstractItemModelLayoutChangeHint where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QAbstractItemModelLayoutChangeHint where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Core/QAbstractItemModel.hs-boot view
@@ -0,0 +1,107 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QAbstractItemModel (+  QAbstractItemModelValue (..),+  QAbstractItemModelConstPtr (..),+  QAbstractItemModelPtr (..),+  QAbstractItemModelConst (..),+  castQAbstractItemModelToConst,+  QAbstractItemModel (..),+  castQAbstractItemModelToNonconst,+  castQAbstractItemModelToQObject,+  QAbstractItemModelCheckIndexOption,+  QAbstractItemModelCheckIndexOptions,+  IsQAbstractItemModelCheckIndexOptions (..),+  doNotUseParent,+  indexIsValid,+  noOption,+  parentIsInvalid,+  QAbstractItemModelLayoutChangeHint,+  ) where++import qualified Data.Bits as QtahDB+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 Prelude as HoppyP+import qualified Prelude as QtahP+++class QAbstractItemModelValue a where+  withQAbstractItemModelPtr :: a -> (QAbstractItemModelConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractItemModelConstPtr a => QAbstractItemModelValue a++class (M94.QObjectConstPtr this) => QAbstractItemModelConstPtr this where+  toQAbstractItemModelConst :: this -> QAbstractItemModelConst++class (QAbstractItemModelConstPtr this, M94.QObjectPtr this) => QAbstractItemModelPtr this where+  toQAbstractItemModel :: this -> QAbstractItemModel++data QAbstractItemModelConst =+    QAbstractItemModelConst (HoppyF.Ptr QAbstractItemModelConst)+  | QAbstractItemModelConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractItemModelConst)++castQAbstractItemModelToConst :: QAbstractItemModel -> QAbstractItemModelConst++instance HoppyFHR.CppPtr QAbstractItemModelConst+instance HoppyFHR.Deletable QAbstractItemModelConst++instance QAbstractItemModelConstPtr QAbstractItemModelConst++instance M94.QObjectConstPtr QAbstractItemModelConst++data QAbstractItemModel =+    QAbstractItemModel (HoppyF.Ptr QAbstractItemModel)+  | QAbstractItemModelGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractItemModel)++castQAbstractItemModelToNonconst :: QAbstractItemModelConst -> QAbstractItemModel++instance HoppyFHR.CppPtr QAbstractItemModel+instance HoppyFHR.Deletable QAbstractItemModel++instance QAbstractItemModelConstPtr QAbstractItemModel++instance QAbstractItemModelPtr QAbstractItemModel++instance M94.QObjectConstPtr QAbstractItemModel++instance M94.QObjectPtr QAbstractItemModel+castQAbstractItemModelToQObject :: HoppyF.Ptr QAbstractItemModelConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractItemModel)) QAbstractItemModel++data QAbstractItemModelCheckIndexOption+instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemModelCheckIndexOption+instance HoppyP.Eq QAbstractItemModelCheckIndexOption+instance HoppyP.Ord QAbstractItemModelCheckIndexOption+instance HoppyP.Show QAbstractItemModelCheckIndexOption++newtype QAbstractItemModelCheckIndexOptions = QAbstractItemModelCheckIndexOptions (HoppyFC.CInt)+instance QtahDB.Bits QAbstractItemModelCheckIndexOptions+instance QtahP.Eq QAbstractItemModelCheckIndexOptions+instance QtahP.Ord QAbstractItemModelCheckIndexOptions+instance QtahP.Show QAbstractItemModelCheckIndexOptions++instance QtahFlags.Flags (HoppyFC.CInt) QAbstractItemModelCheckIndexOption QAbstractItemModelCheckIndexOptions++class IsQAbstractItemModelCheckIndexOptions a where+  toQAbstractItemModelCheckIndexOptions :: a -> QAbstractItemModelCheckIndexOptions++instance IsQAbstractItemModelCheckIndexOptions QAbstractItemModelCheckIndexOptions+instance IsQAbstractItemModelCheckIndexOptions QAbstractItemModelCheckIndexOption+instance IsQAbstractItemModelCheckIndexOptions HoppyFC.CInt++doNotUseParent :: QAbstractItemModelCheckIndexOptions+indexIsValid :: QAbstractItemModelCheckIndexOptions+noOption :: QAbstractItemModelCheckIndexOptions+parentIsInvalid :: QAbstractItemModelCheckIndexOptions++data QAbstractItemModelLayoutChangeHint+instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemModelLayoutChangeHint+instance HoppyP.Eq QAbstractItemModelLayoutChangeHint+instance HoppyP.Ord QAbstractItemModelLayoutChangeHint+instance HoppyP.Show QAbstractItemModelLayoutChangeHint
src/Graphics/UI/Qtah/Generated/Core/QAbstractListModel.hs view
@@ -0,0 +1,180 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QAbstractListModel (+  castQAbstractListModelToQAbstractItemModel,+  castQAbstractItemModelToQAbstractListModel,+  castQAbstractListModelToQObject,+  castQObjectToQAbstractListModel,+  QAbstractListModelValue (..),+  QAbstractListModelConstPtr (..),+  QAbstractListModelPtr (..),+  QAbstractListModelConst (..),+  castQAbstractListModelToConst,+  QAbstractListModel (..),+  castQAbstractListModelToNonconst,+  QAbstractListModelSuper (..),+  QAbstractListModelSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QAbstractItemModel as M4+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "gencast__QAbstractListModel__QAbstractItemModel" castQAbstractListModelToQAbstractItemModel :: HoppyF.Ptr QAbstractListModelConst -> HoppyF.Ptr M4.QAbstractItemModelConst+foreign import ccall "gencast__QAbstractItemModel__QAbstractListModel" castQAbstractItemModelToQAbstractListModel :: HoppyF.Ptr M4.QAbstractItemModelConst -> HoppyF.Ptr QAbstractListModelConst+foreign import ccall "gencast__QAbstractListModel__QObject" castQAbstractListModelToQObject :: HoppyF.Ptr QAbstractListModelConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QAbstractListModel" castQObjectToQAbstractListModel :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QAbstractListModelConst+foreign import ccall "gendel__QAbstractListModel" delete'QAbstractListModel :: HoppyF.Ptr QAbstractListModelConst -> HoppyP.IO ()+foreign import ccall "&gendel__QAbstractListModel" deletePtr'QAbstractListModel :: HoppyF.FunPtr (HoppyF.Ptr QAbstractListModelConst -> HoppyP.IO ())++class QAbstractListModelValue a where+  withQAbstractListModelPtr :: a -> (QAbstractListModelConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractListModelConstPtr a => QAbstractListModelValue a where+  withQAbstractListModelPtr = HoppyP.flip ($) . toQAbstractListModelConst++class (M4.QAbstractItemModelConstPtr this) => QAbstractListModelConstPtr this where+  toQAbstractListModelConst :: this -> QAbstractListModelConst++class (QAbstractListModelConstPtr this, M4.QAbstractItemModelPtr this) => QAbstractListModelPtr this where+  toQAbstractListModel :: this -> QAbstractListModel++data QAbstractListModelConst =+    QAbstractListModelConst (HoppyF.Ptr QAbstractListModelConst)+  | QAbstractListModelConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractListModelConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractListModelConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractListModelConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractListModelToConst :: QAbstractListModel -> QAbstractListModelConst+castQAbstractListModelToConst (QAbstractListModel ptr') = QAbstractListModelConst $ HoppyF.castPtr ptr'+castQAbstractListModelToConst (QAbstractListModelGc fptr' ptr') = QAbstractListModelConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractListModelConst where+  nullptr = QAbstractListModelConst HoppyF.nullPtr+  +  withCppPtr (QAbstractListModelConst ptr') f' = f' ptr'+  withCppPtr (QAbstractListModelConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractListModelConst ptr') = ptr'+  toPtr (QAbstractListModelConstGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractListModelConst _) = HoppyP.return ()+  touchCppPtr (QAbstractListModelConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractListModelConst where+  delete (QAbstractListModelConst ptr') = delete'QAbstractListModel ptr'+  delete (QAbstractListModelConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractListModelConst", " object."]+  +  toGc this'@(QAbstractListModelConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractListModelConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractListModel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractListModelConstGc {}) = HoppyP.return this'++instance QAbstractListModelConstPtr QAbstractListModelConst where+  toQAbstractListModelConst = HoppyP.id++instance M4.QAbstractItemModelConstPtr QAbstractListModelConst where+  toQAbstractItemModelConst (QAbstractListModelConst ptr') = M4.QAbstractItemModelConst $ castQAbstractListModelToQAbstractItemModel ptr'+  toQAbstractItemModelConst (QAbstractListModelConstGc fptr' ptr') = M4.QAbstractItemModelConstGc fptr' $ castQAbstractListModelToQAbstractItemModel ptr'++instance M94.QObjectConstPtr QAbstractListModelConst where+  toQObjectConst (QAbstractListModelConst ptr') = M94.QObjectConst $ castQAbstractListModelToQObject ptr'+  toQObjectConst (QAbstractListModelConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractListModelToQObject ptr'++data QAbstractListModel =+    QAbstractListModel (HoppyF.Ptr QAbstractListModel)+  | QAbstractListModelGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractListModel)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractListModel where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractListModel where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractListModelToNonconst :: QAbstractListModelConst -> QAbstractListModel+castQAbstractListModelToNonconst (QAbstractListModelConst ptr') = QAbstractListModel $ HoppyF.castPtr ptr'+castQAbstractListModelToNonconst (QAbstractListModelConstGc fptr' ptr') = QAbstractListModelGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractListModel where+  nullptr = QAbstractListModel HoppyF.nullPtr+  +  withCppPtr (QAbstractListModel ptr') f' = f' ptr'+  withCppPtr (QAbstractListModelGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractListModel ptr') = ptr'+  toPtr (QAbstractListModelGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractListModel _) = HoppyP.return ()+  touchCppPtr (QAbstractListModelGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractListModel where+  delete (QAbstractListModel ptr') = delete'QAbstractListModel $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QAbstractListModelConst)+  delete (QAbstractListModelGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractListModel", " object."]+  +  toGc this'@(QAbstractListModel ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractListModelGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractListModel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractListModelGc {}) = HoppyP.return this'++instance QAbstractListModelConstPtr QAbstractListModel where+  toQAbstractListModelConst (QAbstractListModel ptr') = QAbstractListModelConst $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractListModel -> HoppyF.Ptr QAbstractListModelConst) ptr'+  toQAbstractListModelConst (QAbstractListModelGc fptr' ptr') = QAbstractListModelConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractListModel -> HoppyF.Ptr QAbstractListModelConst) ptr'++instance QAbstractListModelPtr QAbstractListModel where+  toQAbstractListModel = HoppyP.id++instance M4.QAbstractItemModelConstPtr QAbstractListModel where+  toQAbstractItemModelConst (QAbstractListModel ptr') = M4.QAbstractItemModelConst $ castQAbstractListModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractListModel -> HoppyF.Ptr QAbstractListModelConst) ptr'+  toQAbstractItemModelConst (QAbstractListModelGc fptr' ptr') = M4.QAbstractItemModelConstGc fptr' $ castQAbstractListModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractListModel -> HoppyF.Ptr QAbstractListModelConst) ptr'++instance M4.QAbstractItemModelPtr QAbstractListModel where+  toQAbstractItemModel (QAbstractListModel ptr') = M4.QAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr M4.QAbstractItemModelConst -> HoppyF.Ptr M4.QAbstractItemModel) $ castQAbstractListModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractListModel -> HoppyF.Ptr QAbstractListModelConst) ptr'+  toQAbstractItemModel (QAbstractListModelGc fptr' ptr') = M4.QAbstractItemModelGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M4.QAbstractItemModelConst -> HoppyF.Ptr M4.QAbstractItemModel) $ castQAbstractListModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractListModel -> HoppyF.Ptr QAbstractListModelConst) ptr'++instance M94.QObjectConstPtr QAbstractListModel where+  toQObjectConst (QAbstractListModel ptr') = M94.QObjectConst $ castQAbstractListModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractListModel -> HoppyF.Ptr QAbstractListModelConst) ptr'+  toQObjectConst (QAbstractListModelGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractListModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractListModel -> HoppyF.Ptr QAbstractListModelConst) ptr'++instance M94.QObjectPtr QAbstractListModel where+  toQObject (QAbstractListModel ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractListModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractListModel -> HoppyF.Ptr QAbstractListModelConst) ptr'+  toQObject (QAbstractListModelGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractListModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractListModel -> HoppyF.Ptr QAbstractListModelConst) ptr'++class QAbstractListModelSuper a where+  downToQAbstractListModel :: a -> QAbstractListModel++instance QAbstractListModelSuper M4.QAbstractItemModel where+  downToQAbstractListModel = castQAbstractListModelToNonconst . cast' . M4.castQAbstractItemModelToConst+    where+      cast' (M4.QAbstractItemModelConst ptr') = QAbstractListModelConst $ castQAbstractItemModelToQAbstractListModel ptr'+      cast' (M4.QAbstractItemModelConstGc fptr' ptr') = QAbstractListModelConstGc fptr' $ castQAbstractItemModelToQAbstractListModel ptr'+instance QAbstractListModelSuper M94.QObject where+  downToQAbstractListModel = castQAbstractListModelToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QAbstractListModelConst $ castQObjectToQAbstractListModel ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractListModelConstGc fptr' $ castQObjectToQAbstractListModel ptr'++class QAbstractListModelSuperConst a where+  downToQAbstractListModelConst :: a -> QAbstractListModelConst++instance QAbstractListModelSuperConst M4.QAbstractItemModelConst where+  downToQAbstractListModelConst = cast'+    where+      cast' (M4.QAbstractItemModelConst ptr') = QAbstractListModelConst $ castQAbstractItemModelToQAbstractListModel ptr'+      cast' (M4.QAbstractItemModelConstGc fptr' ptr') = QAbstractListModelConstGc fptr' $ castQAbstractItemModelToQAbstractListModel ptr'+instance QAbstractListModelSuperConst M94.QObjectConst where+  downToQAbstractListModelConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QAbstractListModelConst $ castQObjectToQAbstractListModel ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractListModelConstGc fptr' $ castQObjectToQAbstractListModel ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QAbstractListModel)) QAbstractListModel where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractListModel)) QAbstractListModel where+  decode = HoppyP.fmap QAbstractListModel . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QAbstractTableModel.hs view
@@ -0,0 +1,180 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QAbstractTableModel (+  castQAbstractTableModelToQAbstractItemModel,+  castQAbstractItemModelToQAbstractTableModel,+  castQAbstractTableModelToQObject,+  castQObjectToQAbstractTableModel,+  QAbstractTableModelValue (..),+  QAbstractTableModelConstPtr (..),+  QAbstractTableModelPtr (..),+  QAbstractTableModelConst (..),+  castQAbstractTableModelToConst,+  QAbstractTableModel (..),+  castQAbstractTableModelToNonconst,+  QAbstractTableModelSuper (..),+  QAbstractTableModelSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QAbstractItemModel as M4+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "gencast__QAbstractTableModel__QAbstractItemModel" castQAbstractTableModelToQAbstractItemModel :: HoppyF.Ptr QAbstractTableModelConst -> HoppyF.Ptr M4.QAbstractItemModelConst+foreign import ccall "gencast__QAbstractItemModel__QAbstractTableModel" castQAbstractItemModelToQAbstractTableModel :: HoppyF.Ptr M4.QAbstractItemModelConst -> HoppyF.Ptr QAbstractTableModelConst+foreign import ccall "gencast__QAbstractTableModel__QObject" castQAbstractTableModelToQObject :: HoppyF.Ptr QAbstractTableModelConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QAbstractTableModel" castQObjectToQAbstractTableModel :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QAbstractTableModelConst+foreign import ccall "gendel__QAbstractTableModel" delete'QAbstractTableModel :: HoppyF.Ptr QAbstractTableModelConst -> HoppyP.IO ()+foreign import ccall "&gendel__QAbstractTableModel" deletePtr'QAbstractTableModel :: HoppyF.FunPtr (HoppyF.Ptr QAbstractTableModelConst -> HoppyP.IO ())++class QAbstractTableModelValue a where+  withQAbstractTableModelPtr :: a -> (QAbstractTableModelConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractTableModelConstPtr a => QAbstractTableModelValue a where+  withQAbstractTableModelPtr = HoppyP.flip ($) . toQAbstractTableModelConst++class (M4.QAbstractItemModelConstPtr this) => QAbstractTableModelConstPtr this where+  toQAbstractTableModelConst :: this -> QAbstractTableModelConst++class (QAbstractTableModelConstPtr this, M4.QAbstractItemModelPtr this) => QAbstractTableModelPtr this where+  toQAbstractTableModel :: this -> QAbstractTableModel++data QAbstractTableModelConst =+    QAbstractTableModelConst (HoppyF.Ptr QAbstractTableModelConst)+  | QAbstractTableModelConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractTableModelConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractTableModelConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractTableModelConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractTableModelToConst :: QAbstractTableModel -> QAbstractTableModelConst+castQAbstractTableModelToConst (QAbstractTableModel ptr') = QAbstractTableModelConst $ HoppyF.castPtr ptr'+castQAbstractTableModelToConst (QAbstractTableModelGc fptr' ptr') = QAbstractTableModelConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractTableModelConst where+  nullptr = QAbstractTableModelConst HoppyF.nullPtr+  +  withCppPtr (QAbstractTableModelConst ptr') f' = f' ptr'+  withCppPtr (QAbstractTableModelConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractTableModelConst ptr') = ptr'+  toPtr (QAbstractTableModelConstGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractTableModelConst _) = HoppyP.return ()+  touchCppPtr (QAbstractTableModelConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractTableModelConst where+  delete (QAbstractTableModelConst ptr') = delete'QAbstractTableModel ptr'+  delete (QAbstractTableModelConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractTableModelConst", " object."]+  +  toGc this'@(QAbstractTableModelConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractTableModelConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractTableModel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractTableModelConstGc {}) = HoppyP.return this'++instance QAbstractTableModelConstPtr QAbstractTableModelConst where+  toQAbstractTableModelConst = HoppyP.id++instance M4.QAbstractItemModelConstPtr QAbstractTableModelConst where+  toQAbstractItemModelConst (QAbstractTableModelConst ptr') = M4.QAbstractItemModelConst $ castQAbstractTableModelToQAbstractItemModel ptr'+  toQAbstractItemModelConst (QAbstractTableModelConstGc fptr' ptr') = M4.QAbstractItemModelConstGc fptr' $ castQAbstractTableModelToQAbstractItemModel ptr'++instance M94.QObjectConstPtr QAbstractTableModelConst where+  toQObjectConst (QAbstractTableModelConst ptr') = M94.QObjectConst $ castQAbstractTableModelToQObject ptr'+  toQObjectConst (QAbstractTableModelConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractTableModelToQObject ptr'++data QAbstractTableModel =+    QAbstractTableModel (HoppyF.Ptr QAbstractTableModel)+  | QAbstractTableModelGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractTableModel)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractTableModel where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractTableModel where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractTableModelToNonconst :: QAbstractTableModelConst -> QAbstractTableModel+castQAbstractTableModelToNonconst (QAbstractTableModelConst ptr') = QAbstractTableModel $ HoppyF.castPtr ptr'+castQAbstractTableModelToNonconst (QAbstractTableModelConstGc fptr' ptr') = QAbstractTableModelGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractTableModel where+  nullptr = QAbstractTableModel HoppyF.nullPtr+  +  withCppPtr (QAbstractTableModel ptr') f' = f' ptr'+  withCppPtr (QAbstractTableModelGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractTableModel ptr') = ptr'+  toPtr (QAbstractTableModelGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractTableModel _) = HoppyP.return ()+  touchCppPtr (QAbstractTableModelGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractTableModel where+  delete (QAbstractTableModel ptr') = delete'QAbstractTableModel $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QAbstractTableModelConst)+  delete (QAbstractTableModelGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractTableModel", " object."]+  +  toGc this'@(QAbstractTableModel ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractTableModelGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractTableModel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractTableModelGc {}) = HoppyP.return this'++instance QAbstractTableModelConstPtr QAbstractTableModel where+  toQAbstractTableModelConst (QAbstractTableModel ptr') = QAbstractTableModelConst $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractTableModel -> HoppyF.Ptr QAbstractTableModelConst) ptr'+  toQAbstractTableModelConst (QAbstractTableModelGc fptr' ptr') = QAbstractTableModelConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractTableModel -> HoppyF.Ptr QAbstractTableModelConst) ptr'++instance QAbstractTableModelPtr QAbstractTableModel where+  toQAbstractTableModel = HoppyP.id++instance M4.QAbstractItemModelConstPtr QAbstractTableModel where+  toQAbstractItemModelConst (QAbstractTableModel ptr') = M4.QAbstractItemModelConst $ castQAbstractTableModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractTableModel -> HoppyF.Ptr QAbstractTableModelConst) ptr'+  toQAbstractItemModelConst (QAbstractTableModelGc fptr' ptr') = M4.QAbstractItemModelConstGc fptr' $ castQAbstractTableModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractTableModel -> HoppyF.Ptr QAbstractTableModelConst) ptr'++instance M4.QAbstractItemModelPtr QAbstractTableModel where+  toQAbstractItemModel (QAbstractTableModel ptr') = M4.QAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr M4.QAbstractItemModelConst -> HoppyF.Ptr M4.QAbstractItemModel) $ castQAbstractTableModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractTableModel -> HoppyF.Ptr QAbstractTableModelConst) ptr'+  toQAbstractItemModel (QAbstractTableModelGc fptr' ptr') = M4.QAbstractItemModelGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M4.QAbstractItemModelConst -> HoppyF.Ptr M4.QAbstractItemModel) $ castQAbstractTableModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractTableModel -> HoppyF.Ptr QAbstractTableModelConst) ptr'++instance M94.QObjectConstPtr QAbstractTableModel where+  toQObjectConst (QAbstractTableModel ptr') = M94.QObjectConst $ castQAbstractTableModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractTableModel -> HoppyF.Ptr QAbstractTableModelConst) ptr'+  toQObjectConst (QAbstractTableModelGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractTableModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractTableModel -> HoppyF.Ptr QAbstractTableModelConst) ptr'++instance M94.QObjectPtr QAbstractTableModel where+  toQObject (QAbstractTableModel ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractTableModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractTableModel -> HoppyF.Ptr QAbstractTableModelConst) ptr'+  toQObject (QAbstractTableModelGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractTableModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractTableModel -> HoppyF.Ptr QAbstractTableModelConst) ptr'++class QAbstractTableModelSuper a where+  downToQAbstractTableModel :: a -> QAbstractTableModel++instance QAbstractTableModelSuper M4.QAbstractItemModel where+  downToQAbstractTableModel = castQAbstractTableModelToNonconst . cast' . M4.castQAbstractItemModelToConst+    where+      cast' (M4.QAbstractItemModelConst ptr') = QAbstractTableModelConst $ castQAbstractItemModelToQAbstractTableModel ptr'+      cast' (M4.QAbstractItemModelConstGc fptr' ptr') = QAbstractTableModelConstGc fptr' $ castQAbstractItemModelToQAbstractTableModel ptr'+instance QAbstractTableModelSuper M94.QObject where+  downToQAbstractTableModel = castQAbstractTableModelToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QAbstractTableModelConst $ castQObjectToQAbstractTableModel ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractTableModelConstGc fptr' $ castQObjectToQAbstractTableModel ptr'++class QAbstractTableModelSuperConst a where+  downToQAbstractTableModelConst :: a -> QAbstractTableModelConst++instance QAbstractTableModelSuperConst M4.QAbstractItemModelConst where+  downToQAbstractTableModelConst = cast'+    where+      cast' (M4.QAbstractItemModelConst ptr') = QAbstractTableModelConst $ castQAbstractItemModelToQAbstractTableModel ptr'+      cast' (M4.QAbstractItemModelConstGc fptr' ptr') = QAbstractTableModelConstGc fptr' $ castQAbstractItemModelToQAbstractTableModel ptr'+instance QAbstractTableModelSuperConst M94.QObjectConst where+  downToQAbstractTableModelConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QAbstractTableModelConst $ castQObjectToQAbstractTableModel ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractTableModelConstGc fptr' $ castQObjectToQAbstractTableModel ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QAbstractTableModel)) QAbstractTableModel where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractTableModel)) QAbstractTableModel where+  decode = HoppyP.fmap QAbstractTableModel . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QAnimationGroup.hs view
@@ -0,0 +1,268 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QAnimationGroup (+  castQAnimationGroupToQAbstractAnimation,+  castQAbstractAnimationToQAnimationGroup,+  castQAnimationGroupToQObject,+  castQObjectToQAnimationGroup,+  QAnimationGroupValue (..),+  QAnimationGroupConstPtr (..),+  animationAt,+  animationCount,+  duration,+  indexOfAnimation,+  QAnimationGroupPtr (..),+  addAnimation,+  clear,+  insertAnimation,+  removeAnimation,+  takeAnimation,+  QAnimationGroupConst (..),+  castQAnimationGroupToConst,+  QAnimationGroup (..),+  castQAnimationGroupToNonconst,+  QAnimationGroupSuper (..),+  QAnimationGroupSuperConst (..),+  ) 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.Core.QAbstractAnimation as M2+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QAnimationGroup_addAnimation" addAnimation' ::  HoppyF.Ptr QAnimationGroup -> HoppyF.Ptr M2.QAbstractAnimation -> HoppyP.IO ()+foreign import ccall "genpop__QAnimationGroup_animationAt" animationAt' ::  HoppyF.Ptr QAnimationGroupConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M2.QAbstractAnimation)+foreign import ccall "genpop__QAnimationGroup_animationCount" animationCount' ::  HoppyF.Ptr QAnimationGroupConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAnimationGroup_clear" clear' ::  HoppyF.Ptr QAnimationGroup -> HoppyP.IO ()+foreign import ccall "genpop__QAnimationGroup_duration" duration' ::  HoppyF.Ptr QAnimationGroupConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAnimationGroup_indexOfAnimation" indexOfAnimation' ::  HoppyF.Ptr QAnimationGroupConst -> HoppyF.Ptr M2.QAbstractAnimation -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAnimationGroup_insertAnimation" insertAnimation' ::  HoppyF.Ptr QAnimationGroup -> HoppyFC.CInt -> HoppyF.Ptr M2.QAbstractAnimation -> HoppyP.IO ()+foreign import ccall "genpop__QAnimationGroup_removeAnimation" removeAnimation' ::  HoppyF.Ptr QAnimationGroup -> HoppyF.Ptr M2.QAbstractAnimation -> HoppyP.IO ()+foreign import ccall "genpop__QAnimationGroup_takeAnimation" takeAnimation' ::  HoppyF.Ptr QAnimationGroup -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M2.QAbstractAnimation)+foreign import ccall "gencast__QAnimationGroup__QAbstractAnimation" castQAnimationGroupToQAbstractAnimation :: HoppyF.Ptr QAnimationGroupConst -> HoppyF.Ptr M2.QAbstractAnimationConst+foreign import ccall "gencast__QAbstractAnimation__QAnimationGroup" castQAbstractAnimationToQAnimationGroup :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr QAnimationGroupConst+foreign import ccall "gencast__QAnimationGroup__QObject" castQAnimationGroupToQObject :: HoppyF.Ptr QAnimationGroupConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QAnimationGroup" castQObjectToQAnimationGroup :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QAnimationGroupConst+foreign import ccall "gendel__QAnimationGroup" delete'QAnimationGroup :: HoppyF.Ptr QAnimationGroupConst -> HoppyP.IO ()+foreign import ccall "&gendel__QAnimationGroup" deletePtr'QAnimationGroup :: HoppyF.FunPtr (HoppyF.Ptr QAnimationGroupConst -> HoppyP.IO ())++class QAnimationGroupValue a where+  withQAnimationGroupPtr :: a -> (QAnimationGroupConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAnimationGroupConstPtr a => QAnimationGroupValue a where+  withQAnimationGroupPtr = HoppyP.flip ($) . toQAnimationGroupConst++class (M2.QAbstractAnimationConstPtr this) => QAnimationGroupConstPtr this where+  toQAnimationGroupConst :: this -> QAnimationGroupConst++animationAt :: (QAnimationGroupValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M2.QAbstractAnimation)+animationAt arg'1 arg'2 =+  withQAnimationGroupPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M2.QAbstractAnimation+  (animationAt' arg'1' arg'2')++animationCount :: (QAnimationGroupValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+animationCount arg'1 =+  withQAnimationGroupPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (animationCount' arg'1')++duration :: (QAnimationGroupValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+duration arg'1 =+  withQAnimationGroupPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (duration' arg'1')++indexOfAnimation :: (QAnimationGroupValue this, M2.QAbstractAnimationPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOfAnimation arg'1 arg'2 =+  withQAnimationGroupPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M2.toQAbstractAnimation arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfAnimation' arg'1' arg'2')++class (QAnimationGroupConstPtr this, M2.QAbstractAnimationPtr this) => QAnimationGroupPtr this where+  toQAnimationGroup :: this -> QAnimationGroup++addAnimation :: (QAnimationGroupPtr this, M2.QAbstractAnimationPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addAnimation arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAnimationGroup arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M2.toQAbstractAnimation arg'2) $ \arg'2' ->+  (addAnimation' arg'1' arg'2')++clear :: (QAnimationGroupPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQAnimationGroup arg'1) $ \arg'1' ->+  (clear' arg'1')++insertAnimation :: (QAnimationGroupPtr this, M2.QAbstractAnimationPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insertAnimation arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAnimationGroup arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M2.toQAbstractAnimation arg'3) $ \arg'3' ->+  (insertAnimation' arg'1' arg'2' arg'3')++removeAnimation :: (QAnimationGroupPtr this, M2.QAbstractAnimationPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+removeAnimation arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAnimationGroup arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M2.toQAbstractAnimation arg'2) $ \arg'2' ->+  (removeAnimation' arg'1' arg'2')++takeAnimation :: (QAnimationGroupPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M2.QAbstractAnimation)+takeAnimation arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAnimationGroup arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M2.QAbstractAnimation+  (takeAnimation' arg'1' arg'2')++data QAnimationGroupConst =+    QAnimationGroupConst (HoppyF.Ptr QAnimationGroupConst)+  | QAnimationGroupConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAnimationGroupConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAnimationGroupConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAnimationGroupConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAnimationGroupToConst :: QAnimationGroup -> QAnimationGroupConst+castQAnimationGroupToConst (QAnimationGroup ptr') = QAnimationGroupConst $ HoppyF.castPtr ptr'+castQAnimationGroupToConst (QAnimationGroupGc fptr' ptr') = QAnimationGroupConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAnimationGroupConst where+  nullptr = QAnimationGroupConst HoppyF.nullPtr+  +  withCppPtr (QAnimationGroupConst ptr') f' = f' ptr'+  withCppPtr (QAnimationGroupConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAnimationGroupConst ptr') = ptr'+  toPtr (QAnimationGroupConstGc _ ptr') = ptr'+  +  touchCppPtr (QAnimationGroupConst _) = HoppyP.return ()+  touchCppPtr (QAnimationGroupConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAnimationGroupConst where+  delete (QAnimationGroupConst ptr') = delete'QAnimationGroup ptr'+  delete (QAnimationGroupConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAnimationGroupConst", " object."]+  +  toGc this'@(QAnimationGroupConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAnimationGroupConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAnimationGroup :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAnimationGroupConstGc {}) = HoppyP.return this'++instance QAnimationGroupConstPtr QAnimationGroupConst where+  toQAnimationGroupConst = HoppyP.id++instance M2.QAbstractAnimationConstPtr QAnimationGroupConst where+  toQAbstractAnimationConst (QAnimationGroupConst ptr') = M2.QAbstractAnimationConst $ castQAnimationGroupToQAbstractAnimation ptr'+  toQAbstractAnimationConst (QAnimationGroupConstGc fptr' ptr') = M2.QAbstractAnimationConstGc fptr' $ castQAnimationGroupToQAbstractAnimation ptr'++instance M94.QObjectConstPtr QAnimationGroupConst where+  toQObjectConst (QAnimationGroupConst ptr') = M94.QObjectConst $ castQAnimationGroupToQObject ptr'+  toQObjectConst (QAnimationGroupConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAnimationGroupToQObject ptr'++data QAnimationGroup =+    QAnimationGroup (HoppyF.Ptr QAnimationGroup)+  | QAnimationGroupGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAnimationGroup)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAnimationGroup where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAnimationGroup where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAnimationGroupToNonconst :: QAnimationGroupConst -> QAnimationGroup+castQAnimationGroupToNonconst (QAnimationGroupConst ptr') = QAnimationGroup $ HoppyF.castPtr ptr'+castQAnimationGroupToNonconst (QAnimationGroupConstGc fptr' ptr') = QAnimationGroupGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAnimationGroup where+  nullptr = QAnimationGroup HoppyF.nullPtr+  +  withCppPtr (QAnimationGroup ptr') f' = f' ptr'+  withCppPtr (QAnimationGroupGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAnimationGroup ptr') = ptr'+  toPtr (QAnimationGroupGc _ ptr') = ptr'+  +  touchCppPtr (QAnimationGroup _) = HoppyP.return ()+  touchCppPtr (QAnimationGroupGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAnimationGroup where+  delete (QAnimationGroup ptr') = delete'QAnimationGroup $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QAnimationGroupConst)+  delete (QAnimationGroupGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAnimationGroup", " object."]+  +  toGc this'@(QAnimationGroup ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAnimationGroupGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAnimationGroup :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAnimationGroupGc {}) = HoppyP.return this'++instance QAnimationGroupConstPtr QAnimationGroup where+  toQAnimationGroupConst (QAnimationGroup ptr') = QAnimationGroupConst $ (HoppyF.castPtr :: HoppyF.Ptr QAnimationGroup -> HoppyF.Ptr QAnimationGroupConst) ptr'+  toQAnimationGroupConst (QAnimationGroupGc fptr' ptr') = QAnimationGroupConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QAnimationGroup -> HoppyF.Ptr QAnimationGroupConst) ptr'++instance QAnimationGroupPtr QAnimationGroup where+  toQAnimationGroup = HoppyP.id++instance M2.QAbstractAnimationConstPtr QAnimationGroup where+  toQAbstractAnimationConst (QAnimationGroup ptr') = M2.QAbstractAnimationConst $ castQAnimationGroupToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QAnimationGroup -> HoppyF.Ptr QAnimationGroupConst) ptr'+  toQAbstractAnimationConst (QAnimationGroupGc fptr' ptr') = M2.QAbstractAnimationConstGc fptr' $ castQAnimationGroupToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QAnimationGroup -> HoppyF.Ptr QAnimationGroupConst) ptr'++instance M2.QAbstractAnimationPtr QAnimationGroup where+  toQAbstractAnimation (QAnimationGroup ptr') = M2.QAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr M2.QAbstractAnimation) $ castQAnimationGroupToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QAnimationGroup -> HoppyF.Ptr QAnimationGroupConst) ptr'+  toQAbstractAnimation (QAnimationGroupGc fptr' ptr') = M2.QAbstractAnimationGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr M2.QAbstractAnimation) $ castQAnimationGroupToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QAnimationGroup -> HoppyF.Ptr QAnimationGroupConst) ptr'++instance M94.QObjectConstPtr QAnimationGroup where+  toQObjectConst (QAnimationGroup ptr') = M94.QObjectConst $ castQAnimationGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAnimationGroup -> HoppyF.Ptr QAnimationGroupConst) ptr'+  toQObjectConst (QAnimationGroupGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAnimationGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAnimationGroup -> HoppyF.Ptr QAnimationGroupConst) ptr'++instance M94.QObjectPtr QAnimationGroup where+  toQObject (QAnimationGroup ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAnimationGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAnimationGroup -> HoppyF.Ptr QAnimationGroupConst) ptr'+  toQObject (QAnimationGroupGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAnimationGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAnimationGroup -> HoppyF.Ptr QAnimationGroupConst) ptr'++class QAnimationGroupSuper a where+  downToQAnimationGroup :: a -> QAnimationGroup++instance QAnimationGroupSuper M2.QAbstractAnimation where+  downToQAnimationGroup = castQAnimationGroupToNonconst . cast' . M2.castQAbstractAnimationToConst+    where+      cast' (M2.QAbstractAnimationConst ptr') = QAnimationGroupConst $ castQAbstractAnimationToQAnimationGroup ptr'+      cast' (M2.QAbstractAnimationConstGc fptr' ptr') = QAnimationGroupConstGc fptr' $ castQAbstractAnimationToQAnimationGroup ptr'+instance QAnimationGroupSuper M94.QObject where+  downToQAnimationGroup = castQAnimationGroupToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QAnimationGroupConst $ castQObjectToQAnimationGroup ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAnimationGroupConstGc fptr' $ castQObjectToQAnimationGroup ptr'++class QAnimationGroupSuperConst a where+  downToQAnimationGroupConst :: a -> QAnimationGroupConst++instance QAnimationGroupSuperConst M2.QAbstractAnimationConst where+  downToQAnimationGroupConst = cast'+    where+      cast' (M2.QAbstractAnimationConst ptr') = QAnimationGroupConst $ castQAbstractAnimationToQAnimationGroup ptr'+      cast' (M2.QAbstractAnimationConstGc fptr' ptr') = QAnimationGroupConstGc fptr' $ castQAbstractAnimationToQAnimationGroup ptr'+instance QAnimationGroupSuperConst M94.QObjectConst where+  downToQAnimationGroupConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QAnimationGroupConst $ castQObjectToQAnimationGroup ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAnimationGroupConstGc fptr' $ castQObjectToQAnimationGroup ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QAnimationGroup)) QAnimationGroup where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAnimationGroup)) QAnimationGroup where+  decode = HoppyP.fmap QAnimationGroup . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QBuffer.hs view
@@ -0,0 +1,265 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QBuffer (+  castQBufferToQIODevice,+  castQIODeviceToQBuffer,+  castQBufferToQObject,+  castQObjectToQBuffer,+  QBufferValue (..),+  QBufferConstPtr (..),+  bufferConst,+  getData,+  QBufferPtr (..),+  buffer,+  setBuffer,+  setDataByteArray,+  setDataRaw,+  QBufferConst (..),+  castQBufferToConst,+  QBuffer (..),+  castQBufferToNonconst,+  new,+  newWithParent,+  newWithByteArray,+  newWithByteArrayAndParent,+  QBufferSuper (..),+  QBufferSuperConst (..),+  ) 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.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QIODevice as M48+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import Prelude (($), (.), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QBuffer_new" new' ::  HoppyP.IO (HoppyF.Ptr QBuffer)+foreign import ccall "genpop__QBuffer_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QBuffer)+foreign import ccall "genpop__QBuffer_newWithByteArray" newWithByteArray' ::  HoppyF.Ptr M12.QByteArray -> HoppyP.IO (HoppyF.Ptr QBuffer)+foreign import ccall "genpop__QBuffer_newWithByteArrayAndParent" newWithByteArrayAndParent' ::  HoppyF.Ptr M12.QByteArray -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QBuffer)+foreign import ccall "genpop__QBuffer_buffer" buffer' ::  HoppyF.Ptr QBuffer -> HoppyP.IO (HoppyF.Ptr M12.QByteArray)+foreign import ccall "genpop__QBuffer_bufferConst" bufferConst' ::  HoppyF.Ptr QBufferConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QBuffer_getData" getData' ::  HoppyF.Ptr QBufferConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QBuffer_setBuffer" setBuffer' ::  HoppyF.Ptr QBuffer -> HoppyF.Ptr M12.QByteArray -> HoppyP.IO ()+foreign import ccall "genpop__QBuffer_setDataByteArray" setDataByteArray' ::  HoppyF.Ptr QBuffer -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO ()+foreign import ccall "genpop__QBuffer_setDataRaw" setDataRaw' ::  HoppyF.Ptr QBuffer -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QBuffer__QIODevice" castQBufferToQIODevice :: HoppyF.Ptr QBufferConst -> HoppyF.Ptr M48.QIODeviceConst+foreign import ccall "gencast__QIODevice__QBuffer" castQIODeviceToQBuffer :: HoppyF.Ptr M48.QIODeviceConst -> HoppyF.Ptr QBufferConst+foreign import ccall "gencast__QBuffer__QObject" castQBufferToQObject :: HoppyF.Ptr QBufferConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QBuffer" castQObjectToQBuffer :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QBufferConst+foreign import ccall "gendel__QBuffer" delete'QBuffer :: HoppyF.Ptr QBufferConst -> HoppyP.IO ()+foreign import ccall "&gendel__QBuffer" deletePtr'QBuffer :: HoppyF.FunPtr (HoppyF.Ptr QBufferConst -> HoppyP.IO ())++class QBufferValue a where+  withQBufferPtr :: a -> (QBufferConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QBufferConstPtr a => QBufferValue a where+  withQBufferPtr = HoppyP.flip ($) . toQBufferConst++class (M48.QIODeviceConstPtr this) => QBufferConstPtr this where+  toQBufferConst :: this -> QBufferConst++bufferConst :: (QBufferValue this) => (this) {- ^ this -} -> (HoppyP.IO M12.QByteArrayConst)+bufferConst arg'1 =+  withQBufferPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M12.QByteArrayConst+  (bufferConst' arg'1')++getData :: (QBufferValue this) => (this) {- ^ this -} -> (HoppyP.IO M12.QByteArrayConst)+getData arg'1 =+  withQBufferPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M12.QByteArrayConst+  (getData' arg'1')++class (QBufferConstPtr this, M48.QIODevicePtr this) => QBufferPtr this where+  toQBuffer :: this -> QBuffer++buffer :: (QBufferPtr this) => (this) {- ^ this -} -> (HoppyP.IO M12.QByteArray)+buffer arg'1 =+  HoppyFHR.withCppPtr (toQBuffer arg'1) $ \arg'1' ->+  HoppyP.fmap M12.QByteArray+  (buffer' arg'1')++setBuffer :: (QBufferPtr this, M12.QByteArrayPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setBuffer arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBuffer arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M12.toQByteArray arg'2) $ \arg'2' ->+  (setBuffer' arg'1' arg'2')++setDataByteArray :: (QBufferPtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setDataByteArray arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBuffer arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setDataByteArray' arg'1' arg'2')++setDataRaw :: (QBufferPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO ())+setDataRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQBuffer arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (setDataRaw' arg'1' arg'2' arg'3')++data QBufferConst =+    QBufferConst (HoppyF.Ptr QBufferConst)+  | QBufferConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QBufferConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QBufferConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QBufferConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQBufferToConst :: QBuffer -> QBufferConst+castQBufferToConst (QBuffer ptr') = QBufferConst $ HoppyF.castPtr ptr'+castQBufferToConst (QBufferGc fptr' ptr') = QBufferConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QBufferConst where+  nullptr = QBufferConst HoppyF.nullPtr+  +  withCppPtr (QBufferConst ptr') f' = f' ptr'+  withCppPtr (QBufferConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QBufferConst ptr') = ptr'+  toPtr (QBufferConstGc _ ptr') = ptr'+  +  touchCppPtr (QBufferConst _) = HoppyP.return ()+  touchCppPtr (QBufferConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QBufferConst where+  delete (QBufferConst ptr') = delete'QBuffer ptr'+  delete (QBufferConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QBufferConst", " object."]+  +  toGc this'@(QBufferConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QBufferConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QBuffer :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QBufferConstGc {}) = HoppyP.return this'++instance QBufferConstPtr QBufferConst where+  toQBufferConst = HoppyP.id++instance M48.QIODeviceConstPtr QBufferConst where+  toQIODeviceConst (QBufferConst ptr') = M48.QIODeviceConst $ castQBufferToQIODevice ptr'+  toQIODeviceConst (QBufferConstGc fptr' ptr') = M48.QIODeviceConstGc fptr' $ castQBufferToQIODevice ptr'++instance M94.QObjectConstPtr QBufferConst where+  toQObjectConst (QBufferConst ptr') = M94.QObjectConst $ castQBufferToQObject ptr'+  toQObjectConst (QBufferConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQBufferToQObject ptr'++data QBuffer =+    QBuffer (HoppyF.Ptr QBuffer)+  | QBufferGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QBuffer)+  deriving (HoppyP.Show)++instance HoppyP.Eq QBuffer where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QBuffer where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQBufferToNonconst :: QBufferConst -> QBuffer+castQBufferToNonconst (QBufferConst ptr') = QBuffer $ HoppyF.castPtr ptr'+castQBufferToNonconst (QBufferConstGc fptr' ptr') = QBufferGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QBuffer where+  nullptr = QBuffer HoppyF.nullPtr+  +  withCppPtr (QBuffer ptr') f' = f' ptr'+  withCppPtr (QBufferGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QBuffer ptr') = ptr'+  toPtr (QBufferGc _ ptr') = ptr'+  +  touchCppPtr (QBuffer _) = HoppyP.return ()+  touchCppPtr (QBufferGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QBuffer where+  delete (QBuffer ptr') = delete'QBuffer $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QBufferConst)+  delete (QBufferGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QBuffer", " object."]+  +  toGc this'@(QBuffer ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QBufferGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QBuffer :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QBufferGc {}) = HoppyP.return this'++instance QBufferConstPtr QBuffer where+  toQBufferConst (QBuffer ptr') = QBufferConst $ (HoppyF.castPtr :: HoppyF.Ptr QBuffer -> HoppyF.Ptr QBufferConst) ptr'+  toQBufferConst (QBufferGc fptr' ptr') = QBufferConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QBuffer -> HoppyF.Ptr QBufferConst) ptr'++instance QBufferPtr QBuffer where+  toQBuffer = HoppyP.id++instance M48.QIODeviceConstPtr QBuffer where+  toQIODeviceConst (QBuffer ptr') = M48.QIODeviceConst $ castQBufferToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QBuffer -> HoppyF.Ptr QBufferConst) ptr'+  toQIODeviceConst (QBufferGc fptr' ptr') = M48.QIODeviceConstGc fptr' $ castQBufferToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QBuffer -> HoppyF.Ptr QBufferConst) ptr'++instance M48.QIODevicePtr QBuffer where+  toQIODevice (QBuffer ptr') = M48.QIODevice $ (HoppyF.castPtr :: HoppyF.Ptr M48.QIODeviceConst -> HoppyF.Ptr M48.QIODevice) $ castQBufferToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QBuffer -> HoppyF.Ptr QBufferConst) ptr'+  toQIODevice (QBufferGc fptr' ptr') = M48.QIODeviceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M48.QIODeviceConst -> HoppyF.Ptr M48.QIODevice) $ castQBufferToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QBuffer -> HoppyF.Ptr QBufferConst) ptr'++instance M94.QObjectConstPtr QBuffer where+  toQObjectConst (QBuffer ptr') = M94.QObjectConst $ castQBufferToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QBuffer -> HoppyF.Ptr QBufferConst) ptr'+  toQObjectConst (QBufferGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQBufferToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QBuffer -> HoppyF.Ptr QBufferConst) ptr'++instance M94.QObjectPtr QBuffer where+  toQObject (QBuffer ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQBufferToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QBuffer -> HoppyF.Ptr QBufferConst) ptr'+  toQObject (QBufferGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQBufferToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QBuffer -> HoppyF.Ptr QBufferConst) ptr'++new :: (HoppyP.IO QBuffer)+new =+  HoppyP.fmap QBuffer+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QBuffer)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QBuffer+  (newWithParent' arg'1')++newWithByteArray :: (M12.QByteArrayPtr arg'1) => (arg'1) -> (HoppyP.IO QBuffer)+newWithByteArray arg'1 =+  HoppyFHR.withCppPtr (M12.toQByteArray arg'1) $ \arg'1' ->+  HoppyP.fmap QBuffer+  (newWithByteArray' arg'1')++newWithByteArrayAndParent :: (M12.QByteArrayPtr arg'1, M94.QObjectPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QBuffer)+newWithByteArrayAndParent arg'1 arg'2 =+  HoppyFHR.withCppPtr (M12.toQByteArray arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  HoppyP.fmap QBuffer+  (newWithByteArrayAndParent' arg'1' arg'2')++class QBufferSuper a where+  downToQBuffer :: a -> QBuffer++instance QBufferSuper M48.QIODevice where+  downToQBuffer = castQBufferToNonconst . cast' . M48.castQIODeviceToConst+    where+      cast' (M48.QIODeviceConst ptr') = QBufferConst $ castQIODeviceToQBuffer ptr'+      cast' (M48.QIODeviceConstGc fptr' ptr') = QBufferConstGc fptr' $ castQIODeviceToQBuffer ptr'+instance QBufferSuper M94.QObject where+  downToQBuffer = castQBufferToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QBufferConst $ castQObjectToQBuffer ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QBufferConstGc fptr' $ castQObjectToQBuffer ptr'++class QBufferSuperConst a where+  downToQBufferConst :: a -> QBufferConst++instance QBufferSuperConst M48.QIODeviceConst where+  downToQBufferConst = cast'+    where+      cast' (M48.QIODeviceConst ptr') = QBufferConst $ castQIODeviceToQBuffer ptr'+      cast' (M48.QIODeviceConstGc fptr' ptr') = QBufferConstGc fptr' $ castQIODeviceToQBuffer ptr'+instance QBufferSuperConst M94.QObjectConst where+  downToQBufferConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QBufferConst $ castQObjectToQBuffer ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QBufferConstGc fptr' $ castQObjectToQBuffer ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QBuffer)) QBuffer where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QBuffer)) QBuffer where+  decode = HoppyP.fmap QBuffer . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QByteArray.hs view
@@ -0,0 +1,1459 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QByteArray (+  QByteArrayValue (..),+  QByteArrayConstPtr (..),+  indexOf,+  indexOfFrom,+  indexOfPtrConstChar,+  indexOfPtrConstCharFrom,+  indexOfChar,+  indexOfCharFrom,+  indexOfString,+  indexOfStringFrom,+  lastIndexOf,+  lastIndexOfFrom,+  lastIndexOfPtrConstChar,+  lastIndexOfPtrConstCharFrom,+  lastIndexOfChar,+  lastIndexOfCharFrom,+  lastIndexOfString,+  lastIndexOfStringFrom,+  at,+  back,+  capacity,+  chopped,+  comparePtrConstChar,+  comparePtrConstCharWithCase,+  compare,+  compareWithCase,+  constData,+  contains,+  containsPtrConstChar,+  containsChar,+  countByteArray,+  countPtrConstChar,+  countChar,+  count,+  getDataConst,+  endsWith,+  endsWithPtrConstChar,+  endsWithChar,+  front,+  isEmpty,+  isLower,+  isNull,+  isUpper,+  left,+  leftJustified,+  leftJustifiedWithChar,+  leftJustifiedWithCharAndTruncate,+  length,+  size,+  eQ,+  nE,+  lT,+  lE,+  gT,+  gE,+  QByteArrayPtr (..),+  append,+  appendCountAndChar,+  appendPtrConstChar,+  appendPtrConstCharAndSize,+  appendChar,+  appendString,+  insert,+  insertCountAndChar,+  insertPtrConstChar,+  insertPtrConstCharAndSize,+  insertChar,+  insertString,+  prepend,+  prependCountAndChar,+  prependPtrConstChar,+  prependPtrConstCharAndSize,+  prependChar,+  replaceRangeWithByteArray,+  replaceRangeWithPtrConstCharAndSize,+  replaceRangeWithPtrConstChar,+  replaceCharWithPtrConstChar,+  replaceCharWithByteArray,+  replacePtrConstChar,+  replacePtrConstCharAndSize,+  replaceByteArray,+  replaceByteArrayWithPtrConstChar,+  replacePtrConstCharWithByteArray,+  replaceChar,+  replaceStringWithPtrConstChar,+  replaceCharWithString,+  replaceStringWithByteArray,+  setNumInt,+  setNumIntWithBase,+  setNumUshort,+  setNumUshortWithBase,+  setNumShort,+  setNumShortWithBase,+  setNumUint,+  setNumUintWithBase,+  setNumFloat,+  setNumFloatWithFormat,+  setNumFloatWithFormatAndPrecision,+  setNumDouble,+  setNumDoubleWithFormat,+  setNumDoubleWithFormatAndPrecision,+  chop,+  clear,+  getData,+  fill,+  fillWithSize,+  aSSIGN,+  QByteArrayConst (..),+  castQByteArrayToConst,+  QByteArray (..),+  castQByteArrayToNonconst,+  new,+  newFromData,+  newFromDataAndSize,+  newFromRepeatedChar,+  newCopy,+  QByteArraySuper (..),+  QByteArraySuperConst (..),+  QByteArrayBase64Option (..),+  QByteArrayBase64Options,+  IsQByteArrayBase64Options (..),+  base64Encoding,+  base64UrlEncoding,+  keepTrailingEquals,+  omitTrailingEquals,+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Data.ByteString as QtahDBS+import qualified Data.ByteString.Unsafe as QtahDBSU+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QByteArray_new" new' ::  HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_newFromData" newFromData' ::  HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_newFromDataAndSize" newFromDataAndSize' ::  HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_newFromRepeatedChar" newFromRepeatedChar' ::  HoppyFC.CInt -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_newCopy" newCopy' ::  HoppyF.Ptr QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_append" append' ::  HoppyF.Ptr QByteArray -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_appendCountAndChar" appendCountAndChar' ::  HoppyF.Ptr QByteArray -> HoppyFC.CInt -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_appendPtrConstChar" appendPtrConstChar' ::  HoppyF.Ptr QByteArray -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_appendPtrConstCharAndSize" appendPtrConstCharAndSize' ::  HoppyF.Ptr QByteArray -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_appendChar" appendChar' ::  HoppyF.Ptr QByteArray -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_appendString" appendString' ::  HoppyF.Ptr QByteArray -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_insert" insert' ::  HoppyF.Ptr QByteArray -> HoppyFC.CInt -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_insertCountAndChar" insertCountAndChar' ::  HoppyF.Ptr QByteArray -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_insertPtrConstChar" insertPtrConstChar' ::  HoppyF.Ptr QByteArray -> HoppyFC.CInt -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_insertPtrConstCharAndSize" insertPtrConstCharAndSize' ::  HoppyF.Ptr QByteArray -> HoppyFC.CInt -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_insertChar" insertChar' ::  HoppyF.Ptr QByteArray -> HoppyFC.CInt -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_insertString" insertString' ::  HoppyF.Ptr QByteArray -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_prepend" prepend' ::  HoppyF.Ptr QByteArray -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_prependCountAndChar" prependCountAndChar' ::  HoppyF.Ptr QByteArray -> HoppyFC.CInt -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_prependPtrConstChar" prependPtrConstChar' ::  HoppyF.Ptr QByteArray -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_prependPtrConstCharAndSize" prependPtrConstCharAndSize' ::  HoppyF.Ptr QByteArray -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_prependChar" prependChar' ::  HoppyF.Ptr QByteArray -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_replaceRangeWithByteArray" replaceRangeWithByteArray' ::  HoppyF.Ptr QByteArray -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_replaceRangeWithPtrConstCharAndSize" replaceRangeWithPtrConstCharAndSize' ::  HoppyF.Ptr QByteArray -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_replaceRangeWithPtrConstChar" replaceRangeWithPtrConstChar' ::  HoppyF.Ptr QByteArray -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_replaceCharWithPtrConstChar" replaceCharWithPtrConstChar' ::  HoppyF.Ptr QByteArray -> HoppyFC.CChar -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_replaceCharWithByteArray" replaceCharWithByteArray' ::  HoppyF.Ptr QByteArray -> HoppyFC.CChar -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_replacePtrConstChar" replacePtrConstChar' ::  HoppyF.Ptr QByteArray -> HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_replacePtrConstCharAndSize" replacePtrConstCharAndSize' ::  HoppyF.Ptr QByteArray -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_replaceByteArray" replaceByteArray' ::  HoppyF.Ptr QByteArray -> HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_replaceByteArrayWithPtrConstChar" replaceByteArrayWithPtrConstChar' ::  HoppyF.Ptr QByteArray -> HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_replacePtrConstCharWithByteArray" replacePtrConstCharWithByteArray' ::  HoppyF.Ptr QByteArray -> HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_replaceChar" replaceChar' ::  HoppyF.Ptr QByteArray -> HoppyFC.CChar -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_replaceStringWithPtrConstChar" replaceStringWithPtrConstChar' ::  HoppyF.Ptr QByteArray -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_replaceCharWithString" replaceCharWithString' ::  HoppyF.Ptr QByteArray -> HoppyFC.CChar -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_replaceStringWithByteArray" replaceStringWithByteArray' ::  HoppyF.Ptr QByteArray -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_indexOf" indexOf' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_indexOfPtrConstChar" indexOfPtrConstChar' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_indexOfPtrConstCharFrom" indexOfPtrConstCharFrom' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_indexOfChar" indexOfChar' ::  HoppyF.Ptr QByteArrayConst -> HoppyFC.CChar -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_indexOfCharFrom" indexOfCharFrom' ::  HoppyF.Ptr QByteArrayConst -> HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_indexOfString" indexOfString' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_indexOfStringFrom" indexOfStringFrom' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_lastIndexOfPtrConstChar" lastIndexOfPtrConstChar' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_lastIndexOfPtrConstCharFrom" lastIndexOfPtrConstCharFrom' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_lastIndexOfChar" lastIndexOfChar' ::  HoppyF.Ptr QByteArrayConst -> HoppyFC.CChar -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_lastIndexOfCharFrom" lastIndexOfCharFrom' ::  HoppyF.Ptr QByteArrayConst -> HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_lastIndexOfString" lastIndexOfString' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_lastIndexOfStringFrom" lastIndexOfStringFrom' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_setNumInt" setNumInt' ::  HoppyF.Ptr QByteArray -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_setNumIntWithBase" setNumIntWithBase' ::  HoppyF.Ptr QByteArray -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_setNumUshort" setNumUshort' ::  HoppyF.Ptr QByteArray -> HoppyFC.CUShort -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_setNumUshortWithBase" setNumUshortWithBase' ::  HoppyF.Ptr QByteArray -> HoppyFC.CUShort -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_setNumShort" setNumShort' ::  HoppyF.Ptr QByteArray -> HoppyFC.CShort -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_setNumShortWithBase" setNumShortWithBase' ::  HoppyF.Ptr QByteArray -> HoppyFC.CShort -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_setNumUint" setNumUint' ::  HoppyF.Ptr QByteArray -> HoppyFC.CUInt -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_setNumUintWithBase" setNumUintWithBase' ::  HoppyF.Ptr QByteArray -> HoppyFC.CUInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_setNumFloat" setNumFloat' ::  HoppyF.Ptr QByteArray -> HoppyFC.CFloat -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_setNumFloatWithFormat" setNumFloatWithFormat' ::  HoppyF.Ptr QByteArray -> HoppyFC.CFloat -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_setNumFloatWithFormatAndPrecision" setNumFloatWithFormatAndPrecision' ::  HoppyF.Ptr QByteArray -> HoppyFC.CFloat -> HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_setNumDouble" setNumDouble' ::  HoppyF.Ptr QByteArray -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_setNumDoubleWithFormat" setNumDoubleWithFormat' ::  HoppyF.Ptr QByteArray -> HoppyFC.CDouble -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_setNumDoubleWithFormatAndPrecision" setNumDoubleWithFormatAndPrecision' ::  HoppyF.Ptr QByteArray -> HoppyFC.CDouble -> HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_at" at' ::  HoppyF.Ptr QByteArrayConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CChar+foreign import ccall "genpop__QByteArray_back" back' ::  HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CChar+foreign import ccall "genpop__QByteArray_capacity" capacity' ::  HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_chop" chop' ::  HoppyF.Ptr QByteArray -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QByteArray_chopped" chopped' ::  HoppyF.Ptr QByteArrayConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArrayConst)+foreign import ccall "genpop__QByteArray_comparePtrConstChar" comparePtrConstChar' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_comparePtrConstCharWithCase" comparePtrConstCharWithCase' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_compare" compare' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_compareWithCase" compareWithCase' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_constData" constData' ::  HoppyF.Ptr QByteArrayConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "genpop__QByteArray_contains" contains' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_containsPtrConstChar" containsPtrConstChar' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_containsChar" containsChar' ::  HoppyF.Ptr QByteArrayConst -> HoppyFC.CChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_countByteArray" countByteArray' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_countPtrConstChar" countPtrConstChar' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_countChar" countChar' ::  HoppyF.Ptr QByteArrayConst -> HoppyFC.CChar -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_count" count' ::  HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_clear" clear' ::  HoppyF.Ptr QByteArray -> HoppyP.IO ()+foreign import ccall "genpop__QByteArray_getData" getData' ::  HoppyF.Ptr QByteArray -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "genpop__QByteArray_getDataConst" getDataConst' ::  HoppyF.Ptr QByteArrayConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "genpop__QByteArray_endsWith" endsWith' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_endsWithPtrConstChar" endsWithPtrConstChar' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_endsWithChar" endsWithChar' ::  HoppyF.Ptr QByteArrayConst -> HoppyFC.CChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_fill" fill' ::  HoppyF.Ptr QByteArray -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_fillWithSize" fillWithSize' ::  HoppyF.Ptr QByteArray -> HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "genpop__QByteArray_front" front' ::  HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CChar+foreign import ccall "genpop__QByteArray_isEmpty" isEmpty' ::  HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_isLower" isLower' ::  HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_isNull" isNull' ::  HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_isUpper" isUpper' ::  HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_left" left' ::  HoppyF.Ptr QByteArrayConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArrayConst)+foreign import ccall "genpop__QByteArray_leftJustified" leftJustified' ::  HoppyF.Ptr QByteArrayConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QByteArrayConst)+foreign import ccall "genpop__QByteArray_leftJustifiedWithChar" leftJustifiedWithChar' ::  HoppyF.Ptr QByteArrayConst -> HoppyFC.CInt -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QByteArrayConst)+foreign import ccall "genpop__QByteArray_leftJustifiedWithCharAndTruncate" leftJustifiedWithCharAndTruncate' ::  HoppyF.Ptr QByteArrayConst -> HoppyFC.CInt -> HoppyFC.CChar -> HoppyFC.CBool -> HoppyP.IO (HoppyF.Ptr QByteArrayConst)+foreign import ccall "genpop__QByteArray_length" length' ::  HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_size" size' ::  HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QByteArray_EQ" eQ' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_NE" nE' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_LT" lT' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_LE" lE' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_GT" gT' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_GE" gE' ::  HoppyF.Ptr QByteArrayConst -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QByteArray_ASSIGN" aSSIGN' ::  HoppyF.Ptr QByteArray -> HoppyF.Ptr QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QByteArray)+foreign import ccall "gendel__QByteArray" delete'QByteArray :: HoppyF.Ptr QByteArrayConst -> HoppyP.IO ()+foreign import ccall "&gendel__QByteArray" deletePtr'QByteArray :: HoppyF.FunPtr (HoppyF.Ptr QByteArrayConst -> HoppyP.IO ())++class QByteArrayValue a where+  withQByteArrayPtr :: a -> (QByteArrayConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QByteArrayConstPtr a => QByteArrayValue a where+  withQByteArrayPtr = HoppyP.flip ($) . toQByteArrayConst++instance {-# OVERLAPPING #-} QByteArrayValue (QtahDBS.ByteString) where+  withQByteArrayPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QByteArrayConstPtr this where+  toQByteArrayConst :: this -> QByteArrayConst++indexOf :: (QByteArrayValue this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QByteArrayValue this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++indexOfPtrConstChar :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Int)+indexOfPtrConstChar arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfPtrConstChar' arg'1' arg'2')++indexOfPtrConstCharFrom :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfPtrConstCharFrom arg'1 arg'2 arg'3 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfPtrConstCharFrom' arg'1' arg'2' arg'3')++indexOfChar :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.IO HoppyP.Int)+indexOfChar arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfChar' arg'1' arg'2')++indexOfCharFrom :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfCharFrom arg'1 arg'2 arg'3 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfCharFrom' arg'1' arg'2' arg'3')++indexOfString :: (QByteArrayValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfString arg'1 arg'2 arg'3 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfString' arg'1' arg'2' arg'3')++indexOfStringFrom :: (QByteArrayValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfStringFrom arg'1 arg'2 arg'3 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfStringFrom' arg'1' arg'2' arg'3')++lastIndexOf :: (QByteArrayValue this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QByteArrayValue this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++lastIndexOfPtrConstChar :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Int)+lastIndexOfPtrConstChar arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfPtrConstChar' arg'1' arg'2')++lastIndexOfPtrConstCharFrom :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfPtrConstCharFrom arg'1 arg'2 arg'3 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfPtrConstCharFrom' arg'1' arg'2' arg'3')++lastIndexOfChar :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.IO HoppyP.Int)+lastIndexOfChar arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfChar' arg'1' arg'2')++lastIndexOfCharFrom :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfCharFrom arg'1 arg'2 arg'3 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfCharFrom' arg'1' arg'2' arg'3')++lastIndexOfString :: (QByteArrayValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfString arg'1 arg'2 arg'3 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfString' arg'1' arg'2' arg'3')++lastIndexOfStringFrom :: (QByteArrayValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfStringFrom arg'1 arg'2 arg'3 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfStringFrom' arg'1' arg'2' arg'3')++at :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyFC.CChar)+at arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (at' arg'1' arg'2')++back :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CChar)+back arg'1 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (back' arg'1')++capacity :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+capacity arg'1 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (capacity' arg'1')++chopped :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahDBS.ByteString)+chopped arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QByteArrayConst) =<<+  (chopped' arg'1' arg'2')++comparePtrConstChar :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Int)+comparePtrConstChar arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (comparePtrConstChar' arg'1' arg'2')++comparePtrConstCharWithCase :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (M190.QtCaseSensitivity) -> (HoppyP.IO HoppyP.Int)+comparePtrConstCharWithCase arg'1 arg'2 arg'3 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (comparePtrConstCharWithCase' arg'1' arg'2' arg'3')++compare :: (QByteArrayValue this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+compare arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (compare' arg'1' arg'2')++compareWithCase :: (QByteArrayValue this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtCaseSensitivity) -> (HoppyP.IO HoppyP.Int)+compareWithCase arg'1 arg'2 arg'3 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (compareWithCase' arg'1' arg'2' arg'3')++constData :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+constData arg'1 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (constData' arg'1')++contains :: (QByteArrayValue this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++containsPtrConstChar :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Bool)+containsPtrConstChar arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (containsPtrConstChar' arg'1' arg'2')++containsChar :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.IO HoppyP.Bool)+containsChar arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (containsChar' arg'1' arg'2')++countByteArray :: (QByteArrayValue this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+countByteArray arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (countByteArray' arg'1' arg'2')++countPtrConstChar :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Int)+countPtrConstChar arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (countPtrConstChar' arg'1' arg'2')++countChar :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.IO HoppyP.Int)+countChar arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (countChar' arg'1' arg'2')++count :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+count arg'1 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1')++getDataConst :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+getDataConst arg'1 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (getDataConst' arg'1')++endsWith :: (QByteArrayValue this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++endsWithPtrConstChar :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Bool)+endsWithPtrConstChar arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWithPtrConstChar' arg'1' arg'2')++endsWithChar :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.IO HoppyP.Bool)+endsWithChar arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWithChar' arg'1' arg'2')++front :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CChar)+front arg'1 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (front' arg'1')++isEmpty :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++isLower :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isLower arg'1 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isLower' arg'1')++isNull :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++isUpper :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isUpper arg'1 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isUpper' arg'1')++left :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahDBS.ByteString)+left arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QByteArrayConst) =<<+  (left' arg'1' arg'2')++leftJustified :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahDBS.ByteString)+leftJustified arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QByteArrayConst) =<<+  (leftJustified' arg'1' arg'2')++leftJustifiedWithChar :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyFC.CChar) -> (HoppyP.IO QtahDBS.ByteString)+leftJustifiedWithChar arg'1 arg'2 arg'3 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  (HoppyFHR.decodeAndDelete . QByteArrayConst) =<<+  (leftJustifiedWithChar' arg'1' arg'2' arg'3')++leftJustifiedWithCharAndTruncate :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyFC.CChar) -> (HoppyP.Bool) -> (HoppyP.IO QtahDBS.ByteString)+leftJustifiedWithCharAndTruncate arg'1 arg'2 arg'3 arg'4 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'4 >>= \arg'4' ->+  (HoppyFHR.decodeAndDelete . QByteArrayConst) =<<+  (leftJustifiedWithCharAndTruncate' arg'1' arg'2' arg'3' arg'4')++length :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+length arg'1 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (length' arg'1')++size :: (QByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++eQ :: (QByteArrayValue this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QByteArrayValue this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++lT :: (QByteArrayValue this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lT arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lT' arg'1' arg'2')++lE :: (QByteArrayValue this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lE arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lE' arg'1' arg'2')++gT :: (QByteArrayValue this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gT arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gT' arg'1' arg'2')++gE :: (QByteArrayValue this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gE arg'1 arg'2 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gE' arg'1' arg'2')++class (QByteArrayConstPtr this) => QByteArrayPtr this where+  toQByteArray :: this -> QByteArray++append :: (QByteArrayPtr this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QByteArray)+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QByteArray+  (append' arg'1' arg'2')++appendCountAndChar :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyFC.CChar) -> (HoppyP.IO QByteArray)+appendCountAndChar arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  HoppyP.fmap QByteArray+  (appendCountAndChar' arg'1' arg'2' arg'3')++appendPtrConstChar :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QByteArray)+appendPtrConstChar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QByteArray+  (appendPtrConstChar' arg'1' arg'2')++appendPtrConstCharAndSize :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO QByteArray)+appendPtrConstCharAndSize arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QByteArray+  (appendPtrConstCharAndSize' arg'1' arg'2' arg'3')++appendChar :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.IO QByteArray)+appendChar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QByteArray+  (appendChar' arg'1' arg'2')++appendString :: (QByteArrayPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QByteArray)+appendString arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QByteArray+  (appendString' arg'1' arg'2')++insert :: (QByteArrayPtr this, QByteArrayValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO QByteArray)+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  withQByteArrayPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap QByteArray+  (insert' arg'1' arg'2' arg'3')++insertCountAndChar :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyFC.CChar) -> (HoppyP.IO QByteArray)+insertCountAndChar arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  let arg'4' = arg'4 in+  HoppyP.fmap QByteArray+  (insertCountAndChar' arg'1' arg'2' arg'3' arg'4')++insertPtrConstChar :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QByteArray)+insertPtrConstChar arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  HoppyP.fmap QByteArray+  (insertPtrConstChar' arg'1' arg'2' arg'3')++insertPtrConstCharAndSize :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO QByteArray)+insertPtrConstCharAndSize arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QByteArray+  (insertPtrConstCharAndSize' arg'1' arg'2' arg'3' arg'4')++insertChar :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyFC.CChar) -> (HoppyP.IO QByteArray)+insertChar arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  HoppyP.fmap QByteArray+  (insertChar' arg'1' arg'2' arg'3')++insertString :: (QByteArrayPtr this, M142.QStringValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO QByteArray)+insertString arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap QByteArray+  (insertString' arg'1' arg'2' arg'3')++prepend :: (QByteArrayPtr this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QByteArray)+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QByteArray+  (prepend' arg'1' arg'2')++prependCountAndChar :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyFC.CChar) -> (HoppyP.IO QByteArray)+prependCountAndChar arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  HoppyP.fmap QByteArray+  (prependCountAndChar' arg'1' arg'2' arg'3')++prependPtrConstChar :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QByteArray)+prependPtrConstChar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QByteArray+  (prependPtrConstChar' arg'1' arg'2')++prependPtrConstCharAndSize :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO QByteArray)+prependPtrConstCharAndSize arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QByteArray+  (prependPtrConstCharAndSize' arg'1' arg'2' arg'3')++prependChar :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.IO QByteArray)+prependChar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QByteArray+  (prependChar' arg'1' arg'2')++replaceRangeWithByteArray :: (QByteArrayPtr this, QByteArrayValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO QByteArray)+replaceRangeWithByteArray arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  withQByteArrayPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  HoppyP.fmap QByteArray+  (replaceRangeWithByteArray' arg'1' arg'2' arg'3' arg'4')++replaceRangeWithPtrConstCharAndSize :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO QByteArray)+replaceRangeWithPtrConstCharAndSize arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  let arg'4' = arg'4 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'5 >>= \arg'5' ->+  HoppyP.fmap QByteArray+  (replaceRangeWithPtrConstCharAndSize' arg'1' arg'2' arg'3' arg'4' arg'5')++replaceRangeWithPtrConstChar :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QByteArray)+replaceRangeWithPtrConstChar arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  let arg'4' = arg'4 in+  HoppyP.fmap QByteArray+  (replaceRangeWithPtrConstChar' arg'1' arg'2' arg'3' arg'4')++replaceCharWithPtrConstChar :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QByteArray)+replaceCharWithPtrConstChar arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  HoppyP.fmap QByteArray+  (replaceCharWithPtrConstChar' arg'1' arg'2' arg'3')++replaceCharWithByteArray :: (QByteArrayPtr this, QByteArrayValue arg'3) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (arg'3) -> (HoppyP.IO QByteArray)+replaceCharWithByteArray arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  withQByteArrayPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap QByteArray+  (replaceCharWithByteArray' arg'1' arg'2' arg'3')++replacePtrConstChar :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QByteArray)+replacePtrConstChar arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  HoppyP.fmap QByteArray+  (replacePtrConstChar' arg'1' arg'2' arg'3')++replacePtrConstCharAndSize :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO QByteArray)+replacePtrConstCharAndSize arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  let arg'4' = arg'4 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'5 >>= \arg'5' ->+  HoppyP.fmap QByteArray+  (replacePtrConstCharAndSize' arg'1' arg'2' arg'3' arg'4' arg'5')++replaceByteArray :: (QByteArrayPtr this, QByteArrayValue arg'2, QByteArrayValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO QByteArray)+replaceByteArray arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  withQByteArrayPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap QByteArray+  (replaceByteArray' arg'1' arg'2' arg'3')++replaceByteArrayWithPtrConstChar :: (QByteArrayPtr this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QByteArray)+replaceByteArrayWithPtrConstChar arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  let arg'3' = arg'3 in+  HoppyP.fmap QByteArray+  (replaceByteArrayWithPtrConstChar' arg'1' arg'2' arg'3')++replacePtrConstCharWithByteArray :: (QByteArrayPtr this, QByteArrayValue arg'3) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (arg'3) -> (HoppyP.IO QByteArray)+replacePtrConstCharWithByteArray arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  withQByteArrayPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap QByteArray+  (replacePtrConstCharWithByteArray' arg'1' arg'2' arg'3')++replaceChar :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyFC.CChar) -> (HoppyP.IO QByteArray)+replaceChar arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  HoppyP.fmap QByteArray+  (replaceChar' arg'1' arg'2' arg'3')++replaceStringWithPtrConstChar :: (QByteArrayPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QByteArray)+replaceStringWithPtrConstChar arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  let arg'3' = arg'3 in+  HoppyP.fmap QByteArray+  (replaceStringWithPtrConstChar' arg'1' arg'2' arg'3')++replaceCharWithString :: (QByteArrayPtr this, M142.QStringValue arg'3) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (arg'3) -> (HoppyP.IO QByteArray)+replaceCharWithString arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap QByteArray+  (replaceCharWithString' arg'1' arg'2' arg'3')++replaceStringWithByteArray :: (QByteArrayPtr this, M142.QStringValue arg'2, QByteArrayValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO QByteArray)+replaceStringWithByteArray arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  withQByteArrayPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap QByteArray+  (replaceStringWithByteArray' arg'1' arg'2' arg'3')++setNumInt :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QByteArray)+setNumInt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QByteArray+  (setNumInt' arg'1' arg'2')++setNumIntWithBase :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QByteArray)+setNumIntWithBase arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QByteArray+  (setNumIntWithBase' arg'1' arg'2' arg'3')++setNumUshort :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyFC.CUShort) -> (HoppyP.IO QByteArray)+setNumUshort arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QByteArray+  (setNumUshort' arg'1' arg'2')++setNumUshortWithBase :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyFC.CUShort) -> (HoppyP.Int) -> (HoppyP.IO QByteArray)+setNumUshortWithBase arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QByteArray+  (setNumUshortWithBase' arg'1' arg'2' arg'3')++setNumShort :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyFC.CShort) -> (HoppyP.IO QByteArray)+setNumShort arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QByteArray+  (setNumShort' arg'1' arg'2')++setNumShortWithBase :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyFC.CShort) -> (HoppyP.Int) -> (HoppyP.IO QByteArray)+setNumShortWithBase arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QByteArray+  (setNumShortWithBase' arg'1' arg'2' arg'3')++setNumUint :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO QByteArray)+setNumUint arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QByteArray+  (setNumUint' arg'1' arg'2')++setNumUintWithBase :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.Int) -> (HoppyP.IO QByteArray)+setNumUintWithBase arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QByteArray+  (setNumUintWithBase' arg'1' arg'2' arg'3')++setNumFloat :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Float) -> (HoppyP.IO QByteArray)+setNumFloat arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QByteArray+  (setNumFloat' arg'1' arg'2')++setNumFloatWithFormat :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Float) -> (HoppyFC.CChar) -> (HoppyP.IO QByteArray)+setNumFloatWithFormat arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  HoppyP.fmap QByteArray+  (setNumFloatWithFormat' arg'1' arg'2' arg'3')++setNumFloatWithFormatAndPrecision :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Float) -> (HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO QByteArray)+setNumFloatWithFormatAndPrecision arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QByteArray+  (setNumFloatWithFormatAndPrecision' arg'1' arg'2' arg'3' arg'4')++setNumDouble :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QByteArray)+setNumDouble arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QByteArray+  (setNumDouble' arg'1' arg'2')++setNumDoubleWithFormat :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyFC.CChar) -> (HoppyP.IO QByteArray)+setNumDoubleWithFormat arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  HoppyP.fmap QByteArray+  (setNumDoubleWithFormat' arg'1' arg'2' arg'3')++setNumDoubleWithFormatAndPrecision :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO QByteArray)+setNumDoubleWithFormatAndPrecision arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QByteArray+  (setNumDoubleWithFormatAndPrecision' arg'1' arg'2' arg'3' arg'4')++chop :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+chop arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (chop' arg'1' arg'2')++clear :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (clear' arg'1')++getData :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+getData arg'1 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  (getData' arg'1')++fill :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.IO QByteArray)+fill arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QByteArray+  (fill' arg'1' arg'2')++fillWithSize :: (QByteArrayPtr this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO QByteArray)+fillWithSize arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QByteArray+  (fillWithSize' arg'1' arg'2' arg'3')++aSSIGN :: (QByteArrayPtr this, QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QByteArray)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQByteArray arg'1) $ \arg'1' ->+  withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QByteArray+  (aSSIGN' arg'1' arg'2')++data QByteArrayConst =+    QByteArrayConst (HoppyF.Ptr QByteArrayConst)+  | QByteArrayConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QByteArrayConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QByteArrayConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QByteArrayConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQByteArrayToConst :: QByteArray -> QByteArrayConst+castQByteArrayToConst (QByteArray ptr') = QByteArrayConst $ HoppyF.castPtr ptr'+castQByteArrayToConst (QByteArrayGc fptr' ptr') = QByteArrayConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QByteArrayConst where+  nullptr = QByteArrayConst HoppyF.nullPtr+  +  withCppPtr (QByteArrayConst ptr') f' = f' ptr'+  withCppPtr (QByteArrayConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QByteArrayConst ptr') = ptr'+  toPtr (QByteArrayConstGc _ ptr') = ptr'+  +  touchCppPtr (QByteArrayConst _) = HoppyP.return ()+  touchCppPtr (QByteArrayConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QByteArrayConst where+  delete (QByteArrayConst ptr') = delete'QByteArray ptr'+  delete (QByteArrayConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QByteArrayConst", " object."]+  +  toGc this'@(QByteArrayConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QByteArrayConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QByteArray :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QByteArrayConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QByteArrayConst QByteArray where copy = newCopy++instance QByteArrayConstPtr QByteArrayConst where+  toQByteArrayConst = HoppyP.id++data QByteArray =+    QByteArray (HoppyF.Ptr QByteArray)+  | QByteArrayGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QByteArray)+  deriving (HoppyP.Show)++instance HoppyP.Eq QByteArray where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QByteArray where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQByteArrayToNonconst :: QByteArrayConst -> QByteArray+castQByteArrayToNonconst (QByteArrayConst ptr') = QByteArray $ HoppyF.castPtr ptr'+castQByteArrayToNonconst (QByteArrayConstGc fptr' ptr') = QByteArrayGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QByteArray where+  nullptr = QByteArray HoppyF.nullPtr+  +  withCppPtr (QByteArray ptr') f' = f' ptr'+  withCppPtr (QByteArrayGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QByteArray ptr') = ptr'+  toPtr (QByteArrayGc _ ptr') = ptr'+  +  touchCppPtr (QByteArray _) = HoppyP.return ()+  touchCppPtr (QByteArrayGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QByteArray where+  delete (QByteArray ptr') = delete'QByteArray $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QByteArrayConst)+  delete (QByteArrayGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QByteArray", " object."]+  +  toGc this'@(QByteArray ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QByteArrayGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QByteArray :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QByteArrayGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QByteArray QByteArray where copy = newCopy++instance QByteArrayConstPtr QByteArray where+  toQByteArrayConst (QByteArray ptr') = QByteArrayConst $ (HoppyF.castPtr :: HoppyF.Ptr QByteArray -> HoppyF.Ptr QByteArrayConst) ptr'+  toQByteArrayConst (QByteArrayGc fptr' ptr') = QByteArrayConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QByteArray -> HoppyF.Ptr QByteArrayConst) ptr'++instance QByteArrayPtr QByteArray where+  toQByteArray = HoppyP.id++new :: (HoppyP.IO QByteArray)+new =+  HoppyP.fmap QByteArray+  (new')++newFromData :: (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QByteArray)+newFromData arg'1 =+  let arg'1' = arg'1 in+  HoppyP.fmap QByteArray+  (newFromData' arg'1')++newFromDataAndSize :: (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO QByteArray)+newFromDataAndSize arg'1 arg'2 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QByteArray+  (newFromDataAndSize' arg'1' arg'2')++newFromRepeatedChar :: (HoppyP.Int) -> (HoppyFC.CChar) -> (HoppyP.IO QByteArray)+newFromRepeatedChar arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QByteArray+  (newFromRepeatedChar' arg'1' arg'2')++newCopy :: (QByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO QByteArray)+newCopy arg'1 =+  withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QByteArray+  (newCopy' arg'1')++class QByteArraySuper a where+  downToQByteArray :: a -> QByteArray+++class QByteArraySuperConst a where+  downToQByteArrayConst :: a -> QByteArrayConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QByteArray)) QByteArray where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QByteArrayValue a => HoppyFHR.Assignable QByteArray a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QByteArray)) QByteArray where+  decode = HoppyP.fmap QByteArray . HoppyF.peek++instance HoppyFHR.Encodable QByteArray (QtahDBS.ByteString) where+  encode =+    convertToCpp++instance HoppyFHR.Encodable QByteArrayConst (QtahDBS.ByteString) where+  encode = HoppyP.fmap (toQByteArrayConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QByteArray)++instance HoppyFHR.Decodable QByteArray (QtahDBS.ByteString) where+  decode = HoppyFHR.decode . toQByteArrayConst++instance HoppyFHR.Decodable QByteArrayConst (QtahDBS.ByteString) where+  decode =+    convertFromCpp++convertToCpp :: QtahDBS.ByteString -> QtahP.IO QByteArray+convertToCpp =+  QtahP.flip QtahDBSU.unsafeUseAsCStringLen $ QtahP.uncurry newFromDataAndSize++convertFromCpp :: QByteArrayValue ba => ba -> QtahP.IO QtahDBS.ByteString+convertFromCpp ba = do+  d <- getDataConst ba+  len <- size ba+  QtahDBS.packCStringLen (d, len)++data QByteArrayBase64Option =+  Base64Encoding+  | KeepTrailingEquals+  | Base64UrlEncoding+  | OmitTrailingEquals+  | UnknownQByteArrayBase64Option (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QByteArrayBase64Option where+  fromCppEnum Base64Encoding = 0+  fromCppEnum KeepTrailingEquals = 0+  fromCppEnum Base64UrlEncoding = 1+  fromCppEnum OmitTrailingEquals = 2+  fromCppEnum (UnknownQByteArrayBase64Option n) = n+  +  toCppEnum (0) = KeepTrailingEquals+  toCppEnum (1) = Base64UrlEncoding+  toCppEnum (2) = OmitTrailingEquals+  toCppEnum n = UnknownQByteArrayBase64Option n++instance HoppyP.Eq QByteArrayBase64Option where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QByteArrayBase64Option where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QByteArrayBase64Options = QByteArrayBase64Options (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QByteArrayBase64Option QByteArrayBase64Options where+  enumToFlags = QByteArrayBase64Options . QtahFHR.fromCppEnum+  flagsToEnum (QByteArrayBase64Options x') = QtahFHR.toCppEnum x'++class IsQByteArrayBase64Options a where+  toQByteArrayBase64Options :: a -> QByteArrayBase64Options++instance IsQByteArrayBase64Options QByteArrayBase64Options where toQByteArrayBase64Options = QtahP.id+instance IsQByteArrayBase64Options QByteArrayBase64Option where toQByteArrayBase64Options = QtahFlags.enumToFlags+instance IsQByteArrayBase64Options (HoppyFC.CInt) where toQByteArrayBase64Options = QtahFlags.numToFlags++base64Encoding :: QByteArrayBase64Options+base64Encoding = QByteArrayBase64Options (0)++base64UrlEncoding :: QByteArrayBase64Options+base64UrlEncoding = QByteArrayBase64Options (1)++keepTrailingEquals :: QByteArrayBase64Options+keepTrailingEquals = QByteArrayBase64Options (0)++omitTrailingEquals :: QByteArrayBase64Options+omitTrailingEquals = QByteArrayBase64Options (2)++instance QtahDB.Bits QByteArrayBase64Options where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum
+ src/Graphics/UI/Qtah/Generated/Core/QByteArray.hs-boot view
@@ -0,0 +1,102 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QByteArray (+  QByteArrayValue (..),+  QByteArrayConstPtr (..),+  QByteArrayPtr (..),+  QByteArrayConst (..),+  castQByteArrayToConst,+  QByteArray (..),+  castQByteArrayToNonconst,+  QByteArrayBase64Option,+  QByteArrayBase64Options,+  IsQByteArrayBase64Options (..),+  base64Encoding,+  base64UrlEncoding,+  keepTrailingEquals,+  omitTrailingEquals,+  ) where++import qualified Data.Bits as QtahDB+import qualified Data.ByteString as QtahDBS+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 Prelude as HoppyP+import qualified Prelude as QtahP+++class QByteArrayValue a where+  withQByteArrayPtr :: a -> (QByteArrayConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QByteArrayConstPtr a => QByteArrayValue a++instance {-# OVERLAPPING #-} QByteArrayValue (QtahDBS.ByteString)++class (HoppyFHR.CppPtr this) => QByteArrayConstPtr this where+  toQByteArrayConst :: this -> QByteArrayConst++class (QByteArrayConstPtr this) => QByteArrayPtr this where+  toQByteArray :: this -> QByteArray++data QByteArrayConst =+    QByteArrayConst (HoppyF.Ptr QByteArrayConst)+  | QByteArrayConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QByteArrayConst)++castQByteArrayToConst :: QByteArray -> QByteArrayConst++instance HoppyFHR.CppPtr QByteArrayConst+instance HoppyFHR.Deletable QByteArrayConst+instance HoppyFHR.Copyable QByteArrayConst QByteArray++instance QByteArrayConstPtr QByteArrayConst++data QByteArray =+    QByteArray (HoppyF.Ptr QByteArray)+  | QByteArrayGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QByteArray)++castQByteArrayToNonconst :: QByteArrayConst -> QByteArray++instance HoppyFHR.CppPtr QByteArray+instance HoppyFHR.Deletable QByteArray+instance HoppyFHR.Copyable QByteArray QByteArray++instance QByteArrayConstPtr QByteArray++instance QByteArrayPtr QByteArray++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QByteArray)) QByteArray++instance HoppyFHR.Encodable QByteArray ((QtahDBS.ByteString))+instance HoppyFHR.Encodable QByteArrayConst ((QtahDBS.ByteString))++instance HoppyFHR.Decodable QByteArray ((QtahDBS.ByteString))+instance HoppyFHR.Decodable QByteArrayConst ((QtahDBS.ByteString))++data QByteArrayBase64Option+instance HoppyFHR.CppEnum (HoppyFC.CInt) QByteArrayBase64Option+instance HoppyP.Eq QByteArrayBase64Option+instance HoppyP.Ord QByteArrayBase64Option+instance HoppyP.Show QByteArrayBase64Option++newtype QByteArrayBase64Options = QByteArrayBase64Options (HoppyFC.CInt)+instance QtahDB.Bits QByteArrayBase64Options+instance QtahP.Eq QByteArrayBase64Options+instance QtahP.Ord QByteArrayBase64Options+instance QtahP.Show QByteArrayBase64Options++instance QtahFlags.Flags (HoppyFC.CInt) QByteArrayBase64Option QByteArrayBase64Options++class IsQByteArrayBase64Options a where+  toQByteArrayBase64Options :: a -> QByteArrayBase64Options++instance IsQByteArrayBase64Options QByteArrayBase64Options+instance IsQByteArrayBase64Options QByteArrayBase64Option+instance IsQByteArrayBase64Options HoppyFC.CInt++base64Encoding :: QByteArrayBase64Options+base64UrlEncoding :: QByteArrayBase64Options+keepTrailingEquals :: QByteArrayBase64Options+omitTrailingEquals :: QByteArrayBase64Options
src/Graphics/UI/Qtah/Generated/Core/QChar.hs view
@@ -0,0 +1,1803 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QChar (+  QCharValue (..),+  QCharConstPtr (..),+  category,+  cell,+  combiningClass,+  decomposition,+  decompositionTag,+  digitValue,+  direction,+  hasMirrored,+  isDigit,+  isHighSurrogate,+  isLetter,+  isLetterOrNumber,+  isLowSurrogate,+  isLower,+  isMark,+  isNull,+  isNumber,+  isPrint,+  isPunct,+  isSpace,+  isSymbol,+  isTitleCase,+  isUpper,+  joiningType,+  mirroredChar,+  row,+  script,+  toCaseFolded,+  toLatin1,+  toLower,+  toTitleCase,+  toUpper,+  unicode,+  unicodeVersion,+  eQ,+  nE,+  lT,+  lE,+  gT,+  gE,+  QCharPtr (..),+  unicodeRef,+  aSSIGN,+  fromLatin1,+  currentUnicodeVersion,+  categoryStatic,+  combiningClassStatic,+  decompositionStatic,+  decompositionTagStatic,+  digitValueStatic,+  directionStatic,+  hasMirroredStatic,+  highSurrogate,+  isDigitStatic,+  isHighSurrogateStatic,+  isLetterStatic,+  isLetterOrNumberStatic,+  isLowSurrogateStatic,+  isLowerStatic,+  isMarkStatic,+  isNonCharacterStatic,+  isNumberStatic,+  isPrintStatic,+  isPunctStatic,+  isSpaceStatic,+  isSurrogateStatic,+  isSymbolStatic,+  isTitleCaseStatic,+  isUpperStatic,+  joiningTypeStatic,+  lowSurrogate,+  mirroredCharStatic,+  requiresSurrogates,+  scriptStatic,+  surrogateToUcs4,+  surrogateToUcs4WithQChar,+  toCaseFoldedStatic,+  toLowerStatic,+  toTitleCaseStatic,+  toUpperStatic,+  unicodeVersionStatic,+  QCharConst (..),+  castQCharToConst,+  QChar (..),+  castQCharToNonconst,+  new,+  newFromCellRow,+  newFromInt,+  newFromSpecialCharacter,+  newCopy,+  QCharSuper (..),+  QCharSuperConst (..),+  QCharCategory (..),+  QCharDecomposition (..),+  QCharDirection (..),+  QCharJoiningType (..),+  QCharScript (..),+  QCharSpecialCharacter (..),+  QCharUnicodeVersion (..),+  ) where++import qualified Data.Char as QtahDC+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QChar_new" new' ::  HoppyP.IO (HoppyF.Ptr QChar)+foreign import ccall "genpop__QChar_newFromCellRow" newFromCellRow' ::  HoppyFC.CUChar -> HoppyFC.CUChar -> HoppyP.IO (HoppyF.Ptr QChar)+foreign import ccall "genpop__QChar_newFromInt" newFromInt' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QChar)+foreign import ccall "genpop__QChar_newFromSpecialCharacter" newFromSpecialCharacter' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QChar)+foreign import ccall "genpop__QChar_newCopy" newCopy' ::  HoppyF.Ptr QCharConst -> HoppyP.IO (HoppyF.Ptr QChar)+foreign import ccall "genpop__QChar_category" category' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QChar_cell" cell' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CUChar+foreign import ccall "genpop__QChar_combiningClass" combiningClass' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CUChar+foreign import ccall "genpop__QChar_decomposition" decomposition' ::  HoppyF.Ptr QCharConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QChar_decompositionTag" decompositionTag' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QChar_digitValue" digitValue' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QChar_direction" direction' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QChar_hasMirrored" hasMirrored' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isDigit" isDigit' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isHighSurrogate" isHighSurrogate' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isLetter" isLetter' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isLetterOrNumber" isLetterOrNumber' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isLowSurrogate" isLowSurrogate' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isLower" isLower' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isMark" isMark' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isNull" isNull' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isNumber" isNumber' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isPrint" isPrint' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isPunct" isPunct' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isSpace" isSpace' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isSymbol" isSymbol' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isTitleCase" isTitleCase' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isUpper" isUpper' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_joiningType" joiningType' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QChar_mirroredChar" mirroredChar' ::  HoppyF.Ptr QCharConst -> HoppyP.IO (HoppyF.Ptr QCharConst)+foreign import ccall "genpop__QChar_row" row' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CUChar+foreign import ccall "genpop__QChar_script" script' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QChar_toCaseFolded" toCaseFolded' ::  HoppyF.Ptr QCharConst -> HoppyP.IO (HoppyF.Ptr QCharConst)+foreign import ccall "genpop__QChar_toLatin1" toLatin1' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CChar+foreign import ccall "genpop__QChar_toLower" toLower' ::  HoppyF.Ptr QCharConst -> HoppyP.IO (HoppyF.Ptr QCharConst)+foreign import ccall "genpop__QChar_toTitleCase" toTitleCase' ::  HoppyF.Ptr QCharConst -> HoppyP.IO (HoppyF.Ptr QCharConst)+foreign import ccall "genpop__QChar_toUpper" toUpper' ::  HoppyF.Ptr QCharConst -> HoppyP.IO (HoppyF.Ptr QCharConst)+foreign import ccall "genpop__QChar_unicode" unicode' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CUShort+foreign import ccall "genpop__QChar_unicodeRef" unicodeRef' ::  HoppyF.Ptr QChar -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUShort)+foreign import ccall "genpop__QChar_unicodeVersion" unicodeVersion' ::  HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QChar_fromLatin1" fromLatin1' ::  HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QCharConst)+foreign import ccall "genpop__QChar_currentUnicodeVersion" currentUnicodeVersion' ::  HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QChar_categoryStatic" categoryStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QChar_combiningClassStatic" combiningClassStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CUChar+foreign import ccall "genpop__QChar_decompositionStatic" decompositionStatic' ::  HoppyFC.CUInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QChar_decompositionTagStatic" decompositionTagStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QChar_digitValueStatic" digitValueStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QChar_directionStatic" directionStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QChar_hasMirroredStatic" hasMirroredStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_highSurrogate" highSurrogate' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isDigitStatic" isDigitStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isHighSurrogateStatic" isHighSurrogateStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isLetterStatic" isLetterStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isLetterOrNumberStatic" isLetterOrNumberStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isLowSurrogateStatic" isLowSurrogateStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isLowerStatic" isLowerStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isMarkStatic" isMarkStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isNonCharacterStatic" isNonCharacterStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isNumberStatic" isNumberStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isPrintStatic" isPrintStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isPunctStatic" isPunctStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isSpaceStatic" isSpaceStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isSurrogateStatic" isSurrogateStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isSymbolStatic" isSymbolStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isTitleCaseStatic" isTitleCaseStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_isUpperStatic" isUpperStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_joiningTypeStatic" joiningTypeStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QChar_lowSurrogate" lowSurrogate' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CUShort+foreign import ccall "genpop__QChar_mirroredCharStatic" mirroredCharStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QChar_requiresSurrogates" requiresSurrogates' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_scriptStatic" scriptStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QChar_surrogateToUcs4" surrogateToUcs4' ::  HoppyFC.CUShort -> HoppyFC.CUShort -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QChar_surrogateToUcs4WithQChar" surrogateToUcs4WithQChar' ::  HoppyF.Ptr QCharConst -> HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QChar_toCaseFoldedStatic" toCaseFoldedStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QChar_toLowerStatic" toLowerStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QChar_toTitleCaseStatic" toTitleCaseStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QChar_toUpperStatic" toUpperStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QChar_unicodeVersionStatic" unicodeVersionStatic' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QChar_EQ" eQ' ::  HoppyF.Ptr QCharConst -> HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_NE" nE' ::  HoppyF.Ptr QCharConst -> HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_LT" lT' ::  HoppyF.Ptr QCharConst -> HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_LE" lE' ::  HoppyF.Ptr QCharConst -> HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_GT" gT' ::  HoppyF.Ptr QCharConst -> HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_GE" gE' ::  HoppyF.Ptr QCharConst -> HoppyF.Ptr QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChar_ASSIGN" aSSIGN' ::  HoppyF.Ptr QChar -> HoppyF.Ptr QCharConst -> HoppyP.IO (HoppyF.Ptr QChar)+foreign import ccall "gendel__QChar" delete'QChar :: HoppyF.Ptr QCharConst -> HoppyP.IO ()+foreign import ccall "&gendel__QChar" deletePtr'QChar :: HoppyF.FunPtr (HoppyF.Ptr QCharConst -> HoppyP.IO ())++class QCharValue a where+  withQCharPtr :: a -> (QCharConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QCharConstPtr a => QCharValue a where+  withQCharPtr = HoppyP.flip ($) . toQCharConst++instance {-# OVERLAPPING #-} QCharValue (QtahP.Char) where+  withQCharPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QCharConstPtr this where+  toQCharConst :: this -> QCharConst++category :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO QCharCategory)+category arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (category' arg'1')++cell :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CUChar)+cell arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (cell' arg'1')++combiningClass :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CUChar)+combiningClass arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (combiningClass' arg'1')++decomposition :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+decomposition arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (decomposition' arg'1')++decompositionTag :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO QCharDecomposition)+decompositionTag arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (decompositionTag' arg'1')++digitValue :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+digitValue arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (digitValue' arg'1')++direction :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO QCharDirection)+direction arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (direction' arg'1')++hasMirrored :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasMirrored arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasMirrored' arg'1')++isDigit :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isDigit arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isDigit' arg'1')++isHighSurrogate :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isHighSurrogate arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isHighSurrogate' arg'1')++isLetter :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isLetter arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isLetter' arg'1')++isLetterOrNumber :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isLetterOrNumber arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isLetterOrNumber' arg'1')++isLowSurrogate :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isLowSurrogate arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isLowSurrogate' arg'1')++isLower :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isLower arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isLower' arg'1')++isMark :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isMark arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isMark' arg'1')++isNull :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++isNumber :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNumber arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNumber' arg'1')++isPrint :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isPrint arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isPrint' arg'1')++isPunct :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isPunct arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isPunct' arg'1')++isSpace :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isSpace arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSpace' arg'1')++isSymbol :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isSymbol arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSymbol' arg'1')++isTitleCase :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isTitleCase arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isTitleCase' arg'1')++isUpper :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isUpper arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isUpper' arg'1')++joiningType :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO QCharJoiningType)+joiningType arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (joiningType' arg'1')++mirroredChar :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.Char)+mirroredChar arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QCharConst) =<<+  (mirroredChar' arg'1')++row :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CUChar)+row arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (row' arg'1')++script :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO QCharScript)+script arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (script' arg'1')++toCaseFolded :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.Char)+toCaseFolded arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QCharConst) =<<+  (toCaseFolded' arg'1')++toLatin1 :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CChar)+toLatin1 arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (toLatin1' arg'1')++toLower :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.Char)+toLower arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QCharConst) =<<+  (toLower' arg'1')++toTitleCase :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.Char)+toTitleCase arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QCharConst) =<<+  (toTitleCase' arg'1')++toUpper :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.Char)+toUpper arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QCharConst) =<<+  (toUpper' arg'1')++unicode :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CUShort)+unicode arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (unicode' arg'1')++unicodeVersion :: (QCharValue this) => (this) {- ^ this -} -> (HoppyP.IO QCharUnicodeVersion)+unicodeVersion arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (unicodeVersion' arg'1')++eQ :: (QCharValue this, QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QCharValue this, QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++lT :: (QCharValue this, QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lT arg'1 arg'2 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lT' arg'1' arg'2')++lE :: (QCharValue this, QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lE arg'1 arg'2 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lE' arg'1' arg'2')++gT :: (QCharValue this, QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gT arg'1 arg'2 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gT' arg'1' arg'2')++gE :: (QCharValue this, QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gE arg'1 arg'2 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gE' arg'1' arg'2')++class (QCharConstPtr this) => QCharPtr this where+  toQChar :: this -> QChar++unicodeRef :: (QCharPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUShort))+unicodeRef arg'1 =+  HoppyFHR.withCppPtr (toQChar arg'1) $ \arg'1' ->+  (unicodeRef' arg'1')++aSSIGN :: (QCharPtr this, QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QChar)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQChar arg'1) $ \arg'1' ->+  withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QChar+  (aSSIGN' arg'1' arg'2')++fromLatin1 :: (HoppyFC.CChar) -> (HoppyP.IO QtahP.Char)+fromLatin1 arg'1 =+  let arg'1' = arg'1 in+  (HoppyFHR.decodeAndDelete . QCharConst) =<<+  (fromLatin1' arg'1')++currentUnicodeVersion :: (HoppyP.IO QCharUnicodeVersion)+currentUnicodeVersion =+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (currentUnicodeVersion')++categoryStatic :: (HoppyFC.CUInt) -> (HoppyP.IO QCharCategory)+categoryStatic arg'1 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (categoryStatic' arg'1')++combiningClassStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyFC.CUChar)+combiningClassStatic arg'1 =+  let arg'1' = arg'1 in+  (combiningClassStatic' arg'1')++decompositionStatic :: (HoppyFC.CUInt) -> (HoppyP.IO QtahP.String)+decompositionStatic arg'1 =+  let arg'1' = arg'1 in+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (decompositionStatic' arg'1')++decompositionTagStatic :: (HoppyFC.CUInt) -> (HoppyP.IO QCharDecomposition)+decompositionTagStatic arg'1 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (decompositionTagStatic' arg'1')++digitValueStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Int)+digitValueStatic arg'1 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (digitValueStatic' arg'1')++directionStatic :: (HoppyFC.CUInt) -> (HoppyP.IO QCharDirection)+directionStatic arg'1 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (directionStatic' arg'1')++hasMirroredStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+hasMirroredStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasMirroredStatic' arg'1')++highSurrogate :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+highSurrogate arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (highSurrogate' arg'1')++isDigitStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isDigitStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isDigitStatic' arg'1')++isHighSurrogateStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isHighSurrogateStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isHighSurrogateStatic' arg'1')++isLetterStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isLetterStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isLetterStatic' arg'1')++isLetterOrNumberStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isLetterOrNumberStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isLetterOrNumberStatic' arg'1')++isLowSurrogateStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isLowSurrogateStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isLowSurrogateStatic' arg'1')++isLowerStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isLowerStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isLowerStatic' arg'1')++isMarkStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isMarkStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isMarkStatic' arg'1')++isNonCharacterStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isNonCharacterStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNonCharacterStatic' arg'1')++isNumberStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isNumberStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNumberStatic' arg'1')++isPrintStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isPrintStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isPrintStatic' arg'1')++isPunctStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isPunctStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isPunctStatic' arg'1')++isSpaceStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isSpaceStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSpaceStatic' arg'1')++isSurrogateStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isSurrogateStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSurrogateStatic' arg'1')++isSymbolStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isSymbolStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSymbolStatic' arg'1')++isTitleCaseStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isTitleCaseStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isTitleCaseStatic' arg'1')++isUpperStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+isUpperStatic arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isUpperStatic' arg'1')++joiningTypeStatic :: (HoppyFC.CUInt) -> (HoppyP.IO QCharJoiningType)+joiningTypeStatic arg'1 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (joiningTypeStatic' arg'1')++lowSurrogate :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyFC.CUShort)+lowSurrogate arg'1 =+  let arg'1' = arg'1 in+  (lowSurrogate' arg'1')++mirroredCharStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyFC.CUInt)+mirroredCharStatic arg'1 =+  let arg'1' = arg'1 in+  (mirroredCharStatic' arg'1')++requiresSurrogates :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+requiresSurrogates arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (requiresSurrogates' arg'1')++scriptStatic :: (HoppyFC.CUInt) -> (HoppyP.IO QCharScript)+scriptStatic arg'1 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (scriptStatic' arg'1')++surrogateToUcs4 :: (HoppyFC.CUShort) -> (HoppyFC.CUShort) -> (HoppyP.IO HoppyFC.CUInt)+surrogateToUcs4 arg'1 arg'2 =+  let arg'1' = arg'1 in+  let arg'2' = arg'2 in+  (surrogateToUcs4' arg'1' arg'2')++surrogateToUcs4WithQChar :: (QCharValue arg'1, QCharValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyFC.CUInt)+surrogateToUcs4WithQChar arg'1 arg'2 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (surrogateToUcs4WithQChar' arg'1' arg'2')++toCaseFoldedStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyFC.CUInt)+toCaseFoldedStatic arg'1 =+  let arg'1' = arg'1 in+  (toCaseFoldedStatic' arg'1')++toLowerStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyFC.CUInt)+toLowerStatic arg'1 =+  let arg'1' = arg'1 in+  (toLowerStatic' arg'1')++toTitleCaseStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyFC.CUInt)+toTitleCaseStatic arg'1 =+  let arg'1' = arg'1 in+  (toTitleCaseStatic' arg'1')++toUpperStatic :: (HoppyFC.CUInt) -> (HoppyP.IO HoppyFC.CUInt)+toUpperStatic arg'1 =+  let arg'1' = arg'1 in+  (toUpperStatic' arg'1')++unicodeVersionStatic :: (HoppyFC.CUInt) -> (HoppyP.IO QCharUnicodeVersion)+unicodeVersionStatic arg'1 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (unicodeVersionStatic' arg'1')++data QCharConst =+    QCharConst (HoppyF.Ptr QCharConst)+  | QCharConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QCharConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QCharConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QCharConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQCharToConst :: QChar -> QCharConst+castQCharToConst (QChar ptr') = QCharConst $ HoppyF.castPtr ptr'+castQCharToConst (QCharGc fptr' ptr') = QCharConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QCharConst where+  nullptr = QCharConst HoppyF.nullPtr+  +  withCppPtr (QCharConst ptr') f' = f' ptr'+  withCppPtr (QCharConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QCharConst ptr') = ptr'+  toPtr (QCharConstGc _ ptr') = ptr'+  +  touchCppPtr (QCharConst _) = HoppyP.return ()+  touchCppPtr (QCharConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QCharConst where+  delete (QCharConst ptr') = delete'QChar ptr'+  delete (QCharConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QCharConst", " object."]+  +  toGc this'@(QCharConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QCharConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QChar :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QCharConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QCharConst QChar where copy = newCopy++instance QCharConstPtr QCharConst where+  toQCharConst = HoppyP.id++data QChar =+    QChar (HoppyF.Ptr QChar)+  | QCharGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QChar)+  deriving (HoppyP.Show)++instance HoppyP.Eq QChar where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QChar where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQCharToNonconst :: QCharConst -> QChar+castQCharToNonconst (QCharConst ptr') = QChar $ HoppyF.castPtr ptr'+castQCharToNonconst (QCharConstGc fptr' ptr') = QCharGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QChar where+  nullptr = QChar HoppyF.nullPtr+  +  withCppPtr (QChar ptr') f' = f' ptr'+  withCppPtr (QCharGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QChar ptr') = ptr'+  toPtr (QCharGc _ ptr') = ptr'+  +  touchCppPtr (QChar _) = HoppyP.return ()+  touchCppPtr (QCharGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QChar where+  delete (QChar ptr') = delete'QChar $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QCharConst)+  delete (QCharGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QChar", " object."]+  +  toGc this'@(QChar ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QCharGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QChar :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QCharGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QChar QChar where copy = newCopy++instance QCharConstPtr QChar where+  toQCharConst (QChar ptr') = QCharConst $ (HoppyF.castPtr :: HoppyF.Ptr QChar -> HoppyF.Ptr QCharConst) ptr'+  toQCharConst (QCharGc fptr' ptr') = QCharConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QChar -> HoppyF.Ptr QCharConst) ptr'++instance QCharPtr QChar where+  toQChar = HoppyP.id++new :: (HoppyP.IO QChar)+new =+  HoppyP.fmap QChar+  (new')++newFromCellRow :: (HoppyFC.CUChar) -> (HoppyFC.CUChar) -> (HoppyP.IO QChar)+newFromCellRow arg'1 arg'2 =+  let arg'1' = arg'1 in+  let arg'2' = arg'2 in+  HoppyP.fmap QChar+  (newFromCellRow' arg'1' arg'2')++newFromInt :: (HoppyP.Int) -> (HoppyP.IO QChar)+newFromInt arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QChar+  (newFromInt' arg'1')++newFromSpecialCharacter :: (QCharSpecialCharacter) -> (HoppyP.IO QChar)+newFromSpecialCharacter arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QChar+  (newFromSpecialCharacter' arg'1')++newCopy :: (QCharValue arg'1) => (arg'1) -> (HoppyP.IO QChar)+newCopy arg'1 =+  withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QChar+  (newCopy' arg'1')++class QCharSuper a where+  downToQChar :: a -> QChar+++class QCharSuperConst a where+  downToQCharConst :: a -> QCharConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QChar)) QChar where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QCharValue a => HoppyFHR.Assignable QChar a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QChar)) QChar where+  decode = HoppyP.fmap QChar . HoppyF.peek++instance HoppyFHR.Encodable QChar (QtahP.Char) where+  encode =+    newFromInt . QtahFHR.coerceIntegral . QtahDC.ord++instance HoppyFHR.Encodable QCharConst (QtahP.Char) where+  encode = HoppyP.fmap (toQCharConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QChar)++instance HoppyFHR.Decodable QChar (QtahP.Char) where+  decode = HoppyFHR.decode . toQCharConst++instance HoppyFHR.Decodable QCharConst (QtahP.Char) where+  decode =+    QtahP.fmap (QtahDC.chr . QtahFHR.coerceIntegral) . unicode++data QCharCategory =+  MarkNonSpacing+  | MarkSpacingCombining+  | MarkEnclosing+  | NumberDecimalDigit+  | NumberLetter+  | NumberOther+  | SeparatorSpace+  | SeparatorLine+  | SeparatorParagraph+  | OtherControl+  | OtherFormat+  | OtherSurrogate+  | OtherPrivateUse+  | OtherNotAssigned+  | LetterUppercase+  | LetterLowercase+  | LetterTitlecase+  | LetterModifier+  | LetterOther+  | PunctuationConnector+  | PunctuationDash+  | PunctuationOpen+  | PunctuationClose+  | PunctuationInitialQuote+  | PunctuationFinalQuote+  | PunctuationOther+  | SymbolMath+  | SymbolCurrency+  | SymbolModifier+  | SymbolOther+  | UnknownQCharCategory (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QCharCategory where+  fromCppEnum MarkNonSpacing = 0+  fromCppEnum MarkSpacingCombining = 1+  fromCppEnum MarkEnclosing = 2+  fromCppEnum NumberDecimalDigit = 3+  fromCppEnum NumberLetter = 4+  fromCppEnum NumberOther = 5+  fromCppEnum SeparatorSpace = 6+  fromCppEnum SeparatorLine = 7+  fromCppEnum SeparatorParagraph = 8+  fromCppEnum OtherControl = 9+  fromCppEnum OtherFormat = 10+  fromCppEnum OtherSurrogate = 11+  fromCppEnum OtherPrivateUse = 12+  fromCppEnum OtherNotAssigned = 13+  fromCppEnum LetterUppercase = 14+  fromCppEnum LetterLowercase = 15+  fromCppEnum LetterTitlecase = 16+  fromCppEnum LetterModifier = 17+  fromCppEnum LetterOther = 18+  fromCppEnum PunctuationConnector = 19+  fromCppEnum PunctuationDash = 20+  fromCppEnum PunctuationOpen = 21+  fromCppEnum PunctuationClose = 22+  fromCppEnum PunctuationInitialQuote = 23+  fromCppEnum PunctuationFinalQuote = 24+  fromCppEnum PunctuationOther = 25+  fromCppEnum SymbolMath = 26+  fromCppEnum SymbolCurrency = 27+  fromCppEnum SymbolModifier = 28+  fromCppEnum SymbolOther = 29+  fromCppEnum (UnknownQCharCategory n) = n+  +  toCppEnum (0) = MarkNonSpacing+  toCppEnum (1) = MarkSpacingCombining+  toCppEnum (2) = MarkEnclosing+  toCppEnum (3) = NumberDecimalDigit+  toCppEnum (4) = NumberLetter+  toCppEnum (5) = NumberOther+  toCppEnum (6) = SeparatorSpace+  toCppEnum (7) = SeparatorLine+  toCppEnum (8) = SeparatorParagraph+  toCppEnum (9) = OtherControl+  toCppEnum (10) = OtherFormat+  toCppEnum (11) = OtherSurrogate+  toCppEnum (12) = OtherPrivateUse+  toCppEnum (13) = OtherNotAssigned+  toCppEnum (14) = LetterUppercase+  toCppEnum (15) = LetterLowercase+  toCppEnum (16) = LetterTitlecase+  toCppEnum (17) = LetterModifier+  toCppEnum (18) = LetterOther+  toCppEnum (19) = PunctuationConnector+  toCppEnum (20) = PunctuationDash+  toCppEnum (21) = PunctuationOpen+  toCppEnum (22) = PunctuationClose+  toCppEnum (23) = PunctuationInitialQuote+  toCppEnum (24) = PunctuationFinalQuote+  toCppEnum (25) = PunctuationOther+  toCppEnum (26) = SymbolMath+  toCppEnum (27) = SymbolCurrency+  toCppEnum (28) = SymbolModifier+  toCppEnum (29) = SymbolOther+  toCppEnum n = UnknownQCharCategory n++instance HoppyP.Eq QCharCategory where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QCharCategory where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QCharDecomposition =+  NoDecomposition+  | Canonical+  | Circle+  | Compat+  | Final+  | Font+  | Fraction+  | Initial+  | Isolated+  | Medial+  | Narrow+  | NoBreak+  | Small+  | Square+  | Sub+  | Super+  | Vertical+  | Wide+  | UnknownQCharDecomposition (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QCharDecomposition where+  fromCppEnum NoDecomposition = 0+  fromCppEnum Canonical = 1+  fromCppEnum Circle = 8+  fromCppEnum Compat = 16+  fromCppEnum Final = 6+  fromCppEnum Font = 2+  fromCppEnum Fraction = 17+  fromCppEnum Initial = 4+  fromCppEnum Isolated = 7+  fromCppEnum Medial = 5+  fromCppEnum Narrow = 13+  fromCppEnum NoBreak = 3+  fromCppEnum Small = 14+  fromCppEnum Square = 15+  fromCppEnum Sub = 10+  fromCppEnum Super = 9+  fromCppEnum Vertical = 11+  fromCppEnum Wide = 12+  fromCppEnum (UnknownQCharDecomposition n) = n+  +  toCppEnum (0) = NoDecomposition+  toCppEnum (1) = Canonical+  toCppEnum (2) = Font+  toCppEnum (3) = NoBreak+  toCppEnum (4) = Initial+  toCppEnum (5) = Medial+  toCppEnum (6) = Final+  toCppEnum (7) = Isolated+  toCppEnum (8) = Circle+  toCppEnum (9) = Super+  toCppEnum (10) = Sub+  toCppEnum (11) = Vertical+  toCppEnum (12) = Wide+  toCppEnum (13) = Narrow+  toCppEnum (14) = Small+  toCppEnum (15) = Square+  toCppEnum (16) = Compat+  toCppEnum (17) = Fraction+  toCppEnum n = UnknownQCharDecomposition n++instance HoppyP.Eq QCharDecomposition where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QCharDecomposition where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QCharDirection =+  DirAl+  | DirAn+  | DirB+  | DirBn+  | DirCs+  | DirEn+  | DirEs+  | DirEt+  | DirL+  | DirLre+  | DirLro+  | DirNsm+  | DirOn+  | DirPdf+  | DirR+  | DirRle+  | DirRlo+  | DirS+  | DirWs+  | UnknownQCharDirection (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QCharDirection where+  fromCppEnum DirAl = 13+  fromCppEnum DirAn = 5+  fromCppEnum DirB = 7+  fromCppEnum DirBn = 18+  fromCppEnum DirCs = 6+  fromCppEnum DirEn = 2+  fromCppEnum DirEs = 3+  fromCppEnum DirEt = 4+  fromCppEnum DirL = 0+  fromCppEnum DirLre = 11+  fromCppEnum DirLro = 12+  fromCppEnum DirNsm = 17+  fromCppEnum DirOn = 10+  fromCppEnum DirPdf = 16+  fromCppEnum DirR = 1+  fromCppEnum DirRle = 14+  fromCppEnum DirRlo = 15+  fromCppEnum DirS = 8+  fromCppEnum DirWs = 9+  fromCppEnum (UnknownQCharDirection n) = n+  +  toCppEnum (0) = DirL+  toCppEnum (1) = DirR+  toCppEnum (2) = DirEn+  toCppEnum (3) = DirEs+  toCppEnum (4) = DirEt+  toCppEnum (5) = DirAn+  toCppEnum (6) = DirCs+  toCppEnum (7) = DirB+  toCppEnum (8) = DirS+  toCppEnum (9) = DirWs+  toCppEnum (10) = DirOn+  toCppEnum (11) = DirLre+  toCppEnum (12) = DirLro+  toCppEnum (13) = DirAl+  toCppEnum (14) = DirRle+  toCppEnum (15) = DirRlo+  toCppEnum (16) = DirPdf+  toCppEnum (17) = DirNsm+  toCppEnum (18) = DirBn+  toCppEnum n = UnknownQCharDirection n++instance HoppyP.Eq QCharDirection where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QCharDirection where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QCharJoiningType =+  JoiningNone+  | JoiningCausing+  | JoiningDual+  | JoiningRight+  | JoiningLeft+  | JoiningTransparent+  | UnknownQCharJoiningType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QCharJoiningType where+  fromCppEnum JoiningNone = 0+  fromCppEnum JoiningCausing = 1+  fromCppEnum JoiningDual = 2+  fromCppEnum JoiningRight = 3+  fromCppEnum JoiningLeft = 4+  fromCppEnum JoiningTransparent = 5+  fromCppEnum (UnknownQCharJoiningType n) = n+  +  toCppEnum (0) = JoiningNone+  toCppEnum (1) = JoiningCausing+  toCppEnum (2) = JoiningDual+  toCppEnum (3) = JoiningRight+  toCppEnum (4) = JoiningLeft+  toCppEnum (5) = JoiningTransparent+  toCppEnum n = UnknownQCharJoiningType n++instance HoppyP.Eq QCharJoiningType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QCharJoiningType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QCharScript =+  ScriptUnknown+  | ScriptInherited+  | ScriptCommon+  | ScriptLatin+  | ScriptGreek+  | ScriptCyrillic+  | ScriptArmenian+  | ScriptHebrew+  | ScriptArabic+  | ScriptSyriac+  | ScriptThaana+  | ScriptDevanagari+  | ScriptBengali+  | ScriptGurmukhi+  | ScriptGujarati+  | ScriptOriya+  | ScriptTamil+  | ScriptTelugu+  | ScriptKannada+  | ScriptMalayalam+  | ScriptSinhala+  | ScriptThai+  | ScriptLao+  | ScriptTibetan+  | ScriptMyanmar+  | ScriptGeorgian+  | ScriptHangul+  | ScriptEthiopic+  | ScriptCherokee+  | ScriptCanadianAboriginal+  | ScriptOgham+  | ScriptRunic+  | ScriptKhmer+  | ScriptMongolian+  | ScriptHiragana+  | ScriptKatakana+  | ScriptBopomofo+  | ScriptHan+  | ScriptYi+  | ScriptOldItalic+  | ScriptGothic+  | ScriptDeseret+  | ScriptTagalog+  | ScriptHanunoo+  | ScriptBuhid+  | ScriptTagbanwa+  | ScriptCoptic+  | ScriptLimbu+  | ScriptTaiLe+  | ScriptLinearB+  | ScriptUgaritic+  | ScriptShavian+  | ScriptOsmanya+  | ScriptCypriot+  | ScriptBraille+  | ScriptBuginese+  | ScriptNewTaiLue+  | ScriptGlagolitic+  | ScriptTifinagh+  | ScriptSylotiNagri+  | ScriptOldPersian+  | ScriptKharoshthi+  | ScriptBalinese+  | ScriptCuneiform+  | ScriptPhoenician+  | ScriptPhagsPa+  | ScriptNko+  | ScriptSundanese+  | ScriptLepcha+  | ScriptOlChiki+  | ScriptVai+  | ScriptSaurashtra+  | ScriptKayahLi+  | ScriptRejang+  | ScriptLycian+  | ScriptCarian+  | ScriptLydian+  | ScriptCham+  | ScriptTaiTham+  | ScriptTaiViet+  | ScriptAvestan+  | ScriptEgyptianHieroglyphs+  | ScriptSamaritan+  | ScriptLisu+  | ScriptBamum+  | ScriptJavanese+  | ScriptMeeteiMayek+  | ScriptImperialAramaic+  | ScriptOldSouthArabian+  | ScriptInscriptionalParthian+  | ScriptInscriptionalPahlavi+  | ScriptOldTurkic+  | ScriptKaithi+  | ScriptBatak+  | ScriptBrahmi+  | ScriptMandaic+  | ScriptChakma+  | ScriptMeroiticCursive+  | ScriptMeroiticHieroglyphs+  | ScriptMiao+  | ScriptSharada+  | ScriptSoraSompeng+  | ScriptTakri+  | ScriptCaucasianAlbanian+  | ScriptBassaVah+  | ScriptDuployan+  | ScriptElbasan+  | ScriptGrantha+  | ScriptPahawhHmong+  | ScriptKhojki+  | ScriptLinearA+  | ScriptMahajani+  | ScriptManichaean+  | ScriptMendeKikakui+  | ScriptModi+  | ScriptMro+  | ScriptOldNorthArabian+  | ScriptNabataean+  | ScriptPalmyrene+  | ScriptPauCinHau+  | ScriptOldPermic+  | ScriptPsalterPahlavi+  | ScriptSiddham+  | ScriptKhudawadi+  | ScriptTirhuta+  | ScriptWarangCiti+  | ScriptAhom+  | ScriptAnatolianHieroglyphs+  | ScriptHatran+  | ScriptMultani+  | ScriptOldHungarian+  | ScriptSignWriting+  | ScriptAdlam+  | ScriptBhaiksuki+  | ScriptMarchen+  | ScriptNewa+  | ScriptOsage+  | ScriptTangut+  | ScriptMasaramGondi+  | ScriptNushu+  | ScriptSoyombo+  | ScriptZanabazarSquare+  | UnknownQCharScript (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QCharScript where+  fromCppEnum ScriptUnknown = 0+  fromCppEnum ScriptInherited = 1+  fromCppEnum ScriptCommon = 2+  fromCppEnum ScriptLatin = 3+  fromCppEnum ScriptGreek = 4+  fromCppEnum ScriptCyrillic = 5+  fromCppEnum ScriptArmenian = 6+  fromCppEnum ScriptHebrew = 7+  fromCppEnum ScriptArabic = 8+  fromCppEnum ScriptSyriac = 9+  fromCppEnum ScriptThaana = 10+  fromCppEnum ScriptDevanagari = 11+  fromCppEnum ScriptBengali = 12+  fromCppEnum ScriptGurmukhi = 13+  fromCppEnum ScriptGujarati = 14+  fromCppEnum ScriptOriya = 15+  fromCppEnum ScriptTamil = 16+  fromCppEnum ScriptTelugu = 17+  fromCppEnum ScriptKannada = 18+  fromCppEnum ScriptMalayalam = 19+  fromCppEnum ScriptSinhala = 20+  fromCppEnum ScriptThai = 21+  fromCppEnum ScriptLao = 22+  fromCppEnum ScriptTibetan = 23+  fromCppEnum ScriptMyanmar = 24+  fromCppEnum ScriptGeorgian = 25+  fromCppEnum ScriptHangul = 26+  fromCppEnum ScriptEthiopic = 27+  fromCppEnum ScriptCherokee = 28+  fromCppEnum ScriptCanadianAboriginal = 29+  fromCppEnum ScriptOgham = 30+  fromCppEnum ScriptRunic = 31+  fromCppEnum ScriptKhmer = 32+  fromCppEnum ScriptMongolian = 33+  fromCppEnum ScriptHiragana = 34+  fromCppEnum ScriptKatakana = 35+  fromCppEnum ScriptBopomofo = 36+  fromCppEnum ScriptHan = 37+  fromCppEnum ScriptYi = 38+  fromCppEnum ScriptOldItalic = 39+  fromCppEnum ScriptGothic = 40+  fromCppEnum ScriptDeseret = 41+  fromCppEnum ScriptTagalog = 42+  fromCppEnum ScriptHanunoo = 43+  fromCppEnum ScriptBuhid = 44+  fromCppEnum ScriptTagbanwa = 45+  fromCppEnum ScriptCoptic = 46+  fromCppEnum ScriptLimbu = 47+  fromCppEnum ScriptTaiLe = 48+  fromCppEnum ScriptLinearB = 49+  fromCppEnum ScriptUgaritic = 50+  fromCppEnum ScriptShavian = 51+  fromCppEnum ScriptOsmanya = 52+  fromCppEnum ScriptCypriot = 53+  fromCppEnum ScriptBraille = 54+  fromCppEnum ScriptBuginese = 55+  fromCppEnum ScriptNewTaiLue = 56+  fromCppEnum ScriptGlagolitic = 57+  fromCppEnum ScriptTifinagh = 58+  fromCppEnum ScriptSylotiNagri = 59+  fromCppEnum ScriptOldPersian = 60+  fromCppEnum ScriptKharoshthi = 61+  fromCppEnum ScriptBalinese = 62+  fromCppEnum ScriptCuneiform = 63+  fromCppEnum ScriptPhoenician = 64+  fromCppEnum ScriptPhagsPa = 65+  fromCppEnum ScriptNko = 66+  fromCppEnum ScriptSundanese = 67+  fromCppEnum ScriptLepcha = 68+  fromCppEnum ScriptOlChiki = 69+  fromCppEnum ScriptVai = 70+  fromCppEnum ScriptSaurashtra = 71+  fromCppEnum ScriptKayahLi = 72+  fromCppEnum ScriptRejang = 73+  fromCppEnum ScriptLycian = 74+  fromCppEnum ScriptCarian = 75+  fromCppEnum ScriptLydian = 76+  fromCppEnum ScriptCham = 77+  fromCppEnum ScriptTaiTham = 78+  fromCppEnum ScriptTaiViet = 79+  fromCppEnum ScriptAvestan = 80+  fromCppEnum ScriptEgyptianHieroglyphs = 81+  fromCppEnum ScriptSamaritan = 82+  fromCppEnum ScriptLisu = 83+  fromCppEnum ScriptBamum = 84+  fromCppEnum ScriptJavanese = 85+  fromCppEnum ScriptMeeteiMayek = 86+  fromCppEnum ScriptImperialAramaic = 87+  fromCppEnum ScriptOldSouthArabian = 88+  fromCppEnum ScriptInscriptionalParthian = 89+  fromCppEnum ScriptInscriptionalPahlavi = 90+  fromCppEnum ScriptOldTurkic = 91+  fromCppEnum ScriptKaithi = 92+  fromCppEnum ScriptBatak = 93+  fromCppEnum ScriptBrahmi = 94+  fromCppEnum ScriptMandaic = 95+  fromCppEnum ScriptChakma = 96+  fromCppEnum ScriptMeroiticCursive = 97+  fromCppEnum ScriptMeroiticHieroglyphs = 98+  fromCppEnum ScriptMiao = 99+  fromCppEnum ScriptSharada = 100+  fromCppEnum ScriptSoraSompeng = 101+  fromCppEnum ScriptTakri = 102+  fromCppEnum ScriptCaucasianAlbanian = 103+  fromCppEnum ScriptBassaVah = 104+  fromCppEnum ScriptDuployan = 105+  fromCppEnum ScriptElbasan = 106+  fromCppEnum ScriptGrantha = 107+  fromCppEnum ScriptPahawhHmong = 108+  fromCppEnum ScriptKhojki = 109+  fromCppEnum ScriptLinearA = 110+  fromCppEnum ScriptMahajani = 111+  fromCppEnum ScriptManichaean = 112+  fromCppEnum ScriptMendeKikakui = 113+  fromCppEnum ScriptModi = 114+  fromCppEnum ScriptMro = 115+  fromCppEnum ScriptOldNorthArabian = 116+  fromCppEnum ScriptNabataean = 117+  fromCppEnum ScriptPalmyrene = 118+  fromCppEnum ScriptPauCinHau = 119+  fromCppEnum ScriptOldPermic = 120+  fromCppEnum ScriptPsalterPahlavi = 121+  fromCppEnum ScriptSiddham = 122+  fromCppEnum ScriptKhudawadi = 123+  fromCppEnum ScriptTirhuta = 124+  fromCppEnum ScriptWarangCiti = 125+  fromCppEnum ScriptAhom = 126+  fromCppEnum ScriptAnatolianHieroglyphs = 127+  fromCppEnum ScriptHatran = 128+  fromCppEnum ScriptMultani = 129+  fromCppEnum ScriptOldHungarian = 130+  fromCppEnum ScriptSignWriting = 131+  fromCppEnum ScriptAdlam = 132+  fromCppEnum ScriptBhaiksuki = 133+  fromCppEnum ScriptMarchen = 134+  fromCppEnum ScriptNewa = 135+  fromCppEnum ScriptOsage = 136+  fromCppEnum ScriptTangut = 137+  fromCppEnum ScriptMasaramGondi = 138+  fromCppEnum ScriptNushu = 139+  fromCppEnum ScriptSoyombo = 140+  fromCppEnum ScriptZanabazarSquare = 141+  fromCppEnum (UnknownQCharScript n) = n+  +  toCppEnum (0) = ScriptUnknown+  toCppEnum (1) = ScriptInherited+  toCppEnum (2) = ScriptCommon+  toCppEnum (3) = ScriptLatin+  toCppEnum (4) = ScriptGreek+  toCppEnum (5) = ScriptCyrillic+  toCppEnum (6) = ScriptArmenian+  toCppEnum (7) = ScriptHebrew+  toCppEnum (8) = ScriptArabic+  toCppEnum (9) = ScriptSyriac+  toCppEnum (10) = ScriptThaana+  toCppEnum (11) = ScriptDevanagari+  toCppEnum (12) = ScriptBengali+  toCppEnum (13) = ScriptGurmukhi+  toCppEnum (14) = ScriptGujarati+  toCppEnum (15) = ScriptOriya+  toCppEnum (16) = ScriptTamil+  toCppEnum (17) = ScriptTelugu+  toCppEnum (18) = ScriptKannada+  toCppEnum (19) = ScriptMalayalam+  toCppEnum (20) = ScriptSinhala+  toCppEnum (21) = ScriptThai+  toCppEnum (22) = ScriptLao+  toCppEnum (23) = ScriptTibetan+  toCppEnum (24) = ScriptMyanmar+  toCppEnum (25) = ScriptGeorgian+  toCppEnum (26) = ScriptHangul+  toCppEnum (27) = ScriptEthiopic+  toCppEnum (28) = ScriptCherokee+  toCppEnum (29) = ScriptCanadianAboriginal+  toCppEnum (30) = ScriptOgham+  toCppEnum (31) = ScriptRunic+  toCppEnum (32) = ScriptKhmer+  toCppEnum (33) = ScriptMongolian+  toCppEnum (34) = ScriptHiragana+  toCppEnum (35) = ScriptKatakana+  toCppEnum (36) = ScriptBopomofo+  toCppEnum (37) = ScriptHan+  toCppEnum (38) = ScriptYi+  toCppEnum (39) = ScriptOldItalic+  toCppEnum (40) = ScriptGothic+  toCppEnum (41) = ScriptDeseret+  toCppEnum (42) = ScriptTagalog+  toCppEnum (43) = ScriptHanunoo+  toCppEnum (44) = ScriptBuhid+  toCppEnum (45) = ScriptTagbanwa+  toCppEnum (46) = ScriptCoptic+  toCppEnum (47) = ScriptLimbu+  toCppEnum (48) = ScriptTaiLe+  toCppEnum (49) = ScriptLinearB+  toCppEnum (50) = ScriptUgaritic+  toCppEnum (51) = ScriptShavian+  toCppEnum (52) = ScriptOsmanya+  toCppEnum (53) = ScriptCypriot+  toCppEnum (54) = ScriptBraille+  toCppEnum (55) = ScriptBuginese+  toCppEnum (56) = ScriptNewTaiLue+  toCppEnum (57) = ScriptGlagolitic+  toCppEnum (58) = ScriptTifinagh+  toCppEnum (59) = ScriptSylotiNagri+  toCppEnum (60) = ScriptOldPersian+  toCppEnum (61) = ScriptKharoshthi+  toCppEnum (62) = ScriptBalinese+  toCppEnum (63) = ScriptCuneiform+  toCppEnum (64) = ScriptPhoenician+  toCppEnum (65) = ScriptPhagsPa+  toCppEnum (66) = ScriptNko+  toCppEnum (67) = ScriptSundanese+  toCppEnum (68) = ScriptLepcha+  toCppEnum (69) = ScriptOlChiki+  toCppEnum (70) = ScriptVai+  toCppEnum (71) = ScriptSaurashtra+  toCppEnum (72) = ScriptKayahLi+  toCppEnum (73) = ScriptRejang+  toCppEnum (74) = ScriptLycian+  toCppEnum (75) = ScriptCarian+  toCppEnum (76) = ScriptLydian+  toCppEnum (77) = ScriptCham+  toCppEnum (78) = ScriptTaiTham+  toCppEnum (79) = ScriptTaiViet+  toCppEnum (80) = ScriptAvestan+  toCppEnum (81) = ScriptEgyptianHieroglyphs+  toCppEnum (82) = ScriptSamaritan+  toCppEnum (83) = ScriptLisu+  toCppEnum (84) = ScriptBamum+  toCppEnum (85) = ScriptJavanese+  toCppEnum (86) = ScriptMeeteiMayek+  toCppEnum (87) = ScriptImperialAramaic+  toCppEnum (88) = ScriptOldSouthArabian+  toCppEnum (89) = ScriptInscriptionalParthian+  toCppEnum (90) = ScriptInscriptionalPahlavi+  toCppEnum (91) = ScriptOldTurkic+  toCppEnum (92) = ScriptKaithi+  toCppEnum (93) = ScriptBatak+  toCppEnum (94) = ScriptBrahmi+  toCppEnum (95) = ScriptMandaic+  toCppEnum (96) = ScriptChakma+  toCppEnum (97) = ScriptMeroiticCursive+  toCppEnum (98) = ScriptMeroiticHieroglyphs+  toCppEnum (99) = ScriptMiao+  toCppEnum (100) = ScriptSharada+  toCppEnum (101) = ScriptSoraSompeng+  toCppEnum (102) = ScriptTakri+  toCppEnum (103) = ScriptCaucasianAlbanian+  toCppEnum (104) = ScriptBassaVah+  toCppEnum (105) = ScriptDuployan+  toCppEnum (106) = ScriptElbasan+  toCppEnum (107) = ScriptGrantha+  toCppEnum (108) = ScriptPahawhHmong+  toCppEnum (109) = ScriptKhojki+  toCppEnum (110) = ScriptLinearA+  toCppEnum (111) = ScriptMahajani+  toCppEnum (112) = ScriptManichaean+  toCppEnum (113) = ScriptMendeKikakui+  toCppEnum (114) = ScriptModi+  toCppEnum (115) = ScriptMro+  toCppEnum (116) = ScriptOldNorthArabian+  toCppEnum (117) = ScriptNabataean+  toCppEnum (118) = ScriptPalmyrene+  toCppEnum (119) = ScriptPauCinHau+  toCppEnum (120) = ScriptOldPermic+  toCppEnum (121) = ScriptPsalterPahlavi+  toCppEnum (122) = ScriptSiddham+  toCppEnum (123) = ScriptKhudawadi+  toCppEnum (124) = ScriptTirhuta+  toCppEnum (125) = ScriptWarangCiti+  toCppEnum (126) = ScriptAhom+  toCppEnum (127) = ScriptAnatolianHieroglyphs+  toCppEnum (128) = ScriptHatran+  toCppEnum (129) = ScriptMultani+  toCppEnum (130) = ScriptOldHungarian+  toCppEnum (131) = ScriptSignWriting+  toCppEnum (132) = ScriptAdlam+  toCppEnum (133) = ScriptBhaiksuki+  toCppEnum (134) = ScriptMarchen+  toCppEnum (135) = ScriptNewa+  toCppEnum (136) = ScriptOsage+  toCppEnum (137) = ScriptTangut+  toCppEnum (138) = ScriptMasaramGondi+  toCppEnum (139) = ScriptNushu+  toCppEnum (140) = ScriptSoyombo+  toCppEnum (141) = ScriptZanabazarSquare+  toCppEnum n = UnknownQCharScript n++instance HoppyP.Eq QCharScript where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QCharScript where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QCharSpecialCharacter =+  Null+  | Tabulation+  | LineFeed+  | CarriageReturn+  | Space+  | Nbsp+  | SoftHyphen+  | ReplacementCharacter+  | ObjectReplacementCharacter+  | ByteOrderMark+  | ByteOrderSwapped+  | ParagraphSeparator+  | LineSeparator+  | LastValidCodePoint+  | UnknownQCharSpecialCharacter (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QCharSpecialCharacter where+  fromCppEnum Null = 0+  fromCppEnum Tabulation = 9+  fromCppEnum LineFeed = 10+  fromCppEnum CarriageReturn = 13+  fromCppEnum Space = 32+  fromCppEnum Nbsp = 160+  fromCppEnum SoftHyphen = 173+  fromCppEnum ReplacementCharacter = 65533+  fromCppEnum ObjectReplacementCharacter = 65532+  fromCppEnum ByteOrderMark = 65279+  fromCppEnum ByteOrderSwapped = 65534+  fromCppEnum ParagraphSeparator = 8233+  fromCppEnum LineSeparator = 8232+  fromCppEnum LastValidCodePoint = 1114111+  fromCppEnum (UnknownQCharSpecialCharacter n) = n+  +  toCppEnum (0) = Null+  toCppEnum (9) = Tabulation+  toCppEnum (10) = LineFeed+  toCppEnum (13) = CarriageReturn+  toCppEnum (32) = Space+  toCppEnum (160) = Nbsp+  toCppEnum (173) = SoftHyphen+  toCppEnum (8232) = LineSeparator+  toCppEnum (8233) = ParagraphSeparator+  toCppEnum (65279) = ByteOrderMark+  toCppEnum (65532) = ObjectReplacementCharacter+  toCppEnum (65533) = ReplacementCharacter+  toCppEnum (65534) = ByteOrderSwapped+  toCppEnum (1114111) = LastValidCodePoint+  toCppEnum n = UnknownQCharSpecialCharacter n++instance HoppyP.Eq QCharSpecialCharacter where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QCharSpecialCharacter where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QCharUnicodeVersion =+  Unicode11+  | Unicode20+  | Unicode212+  | Unicode30+  | Unicode31+  | Unicode32+  | Unicode40+  | Unicode41+  | Unicode50+  | Unicode51+  | Unicode52+  | Unicode60+  | Unicode61+  | Unicode62+  | Unicode63+  | Unicode70+  | Unicode80+  | Unicode90+  | Unicode100+  | UnicodeUnassigned+  | UnknownQCharUnicodeVersion (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QCharUnicodeVersion where+  fromCppEnum Unicode11 = 1+  fromCppEnum Unicode20 = 2+  fromCppEnum Unicode212 = 3+  fromCppEnum Unicode30 = 4+  fromCppEnum Unicode31 = 5+  fromCppEnum Unicode32 = 6+  fromCppEnum Unicode40 = 7+  fromCppEnum Unicode41 = 8+  fromCppEnum Unicode50 = 9+  fromCppEnum Unicode51 = 10+  fromCppEnum Unicode52 = 11+  fromCppEnum Unicode60 = 12+  fromCppEnum Unicode61 = 13+  fromCppEnum Unicode62 = 14+  fromCppEnum Unicode63 = 15+  fromCppEnum Unicode70 = 16+  fromCppEnum Unicode80 = 17+  fromCppEnum Unicode90 = 18+  fromCppEnum Unicode100 = 19+  fromCppEnum UnicodeUnassigned = 0+  fromCppEnum (UnknownQCharUnicodeVersion n) = n+  +  toCppEnum (0) = UnicodeUnassigned+  toCppEnum (1) = Unicode11+  toCppEnum (2) = Unicode20+  toCppEnum (3) = Unicode212+  toCppEnum (4) = Unicode30+  toCppEnum (5) = Unicode31+  toCppEnum (6) = Unicode32+  toCppEnum (7) = Unicode40+  toCppEnum (8) = Unicode41+  toCppEnum (9) = Unicode50+  toCppEnum (10) = Unicode51+  toCppEnum (11) = Unicode52+  toCppEnum (12) = Unicode60+  toCppEnum (13) = Unicode61+  toCppEnum (14) = Unicode62+  toCppEnum (15) = Unicode63+  toCppEnum (16) = Unicode70+  toCppEnum (17) = Unicode80+  toCppEnum (18) = Unicode90+  toCppEnum (19) = Unicode100+  toCppEnum n = UnknownQCharUnicodeVersion n++instance HoppyP.Eq QCharUnicodeVersion where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QCharUnicodeVersion where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Core/QChar.hs-boot view
@@ -0,0 +1,115 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QChar (+  QCharValue (..),+  QCharConstPtr (..),+  QCharPtr (..),+  QCharConst (..),+  castQCharToConst,+  QChar (..),+  castQCharToNonconst,+  QCharCategory,+  QCharDecomposition,+  QCharDirection,+  QCharJoiningType,+  QCharScript,+  QCharSpecialCharacter,+  QCharUnicodeVersion,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++class QCharValue a where+  withQCharPtr :: a -> (QCharConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QCharConstPtr a => QCharValue a++instance {-# OVERLAPPING #-} QCharValue (QtahP.Char)++class (HoppyFHR.CppPtr this) => QCharConstPtr this where+  toQCharConst :: this -> QCharConst++class (QCharConstPtr this) => QCharPtr this where+  toQChar :: this -> QChar++data QCharConst =+    QCharConst (HoppyF.Ptr QCharConst)+  | QCharConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QCharConst)++castQCharToConst :: QChar -> QCharConst++instance HoppyFHR.CppPtr QCharConst+instance HoppyFHR.Deletable QCharConst+instance HoppyFHR.Copyable QCharConst QChar++instance QCharConstPtr QCharConst++data QChar =+    QChar (HoppyF.Ptr QChar)+  | QCharGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QChar)++castQCharToNonconst :: QCharConst -> QChar++instance HoppyFHR.CppPtr QChar+instance HoppyFHR.Deletable QChar+instance HoppyFHR.Copyable QChar QChar++instance QCharConstPtr QChar++instance QCharPtr QChar++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QChar)) QChar++instance HoppyFHR.Encodable QChar ((QtahP.Char))+instance HoppyFHR.Encodable QCharConst ((QtahP.Char))++instance HoppyFHR.Decodable QChar ((QtahP.Char))+instance HoppyFHR.Decodable QCharConst ((QtahP.Char))++data QCharCategory+instance HoppyFHR.CppEnum (HoppyFC.CInt) QCharCategory+instance HoppyP.Eq QCharCategory+instance HoppyP.Ord QCharCategory+instance HoppyP.Show QCharCategory++data QCharDecomposition+instance HoppyFHR.CppEnum (HoppyFC.CInt) QCharDecomposition+instance HoppyP.Eq QCharDecomposition+instance HoppyP.Ord QCharDecomposition+instance HoppyP.Show QCharDecomposition++data QCharDirection+instance HoppyFHR.CppEnum (HoppyFC.CInt) QCharDirection+instance HoppyP.Eq QCharDirection+instance HoppyP.Ord QCharDirection+instance HoppyP.Show QCharDirection++data QCharJoiningType+instance HoppyFHR.CppEnum (HoppyFC.CInt) QCharJoiningType+instance HoppyP.Eq QCharJoiningType+instance HoppyP.Ord QCharJoiningType+instance HoppyP.Show QCharJoiningType++data QCharScript+instance HoppyFHR.CppEnum (HoppyFC.CInt) QCharScript+instance HoppyP.Eq QCharScript+instance HoppyP.Ord QCharScript+instance HoppyP.Show QCharScript++data QCharSpecialCharacter+instance HoppyFHR.CppEnum (HoppyFC.CInt) QCharSpecialCharacter+instance HoppyP.Eq QCharSpecialCharacter+instance HoppyP.Ord QCharSpecialCharacter+instance HoppyP.Show QCharSpecialCharacter++data QCharUnicodeVersion+instance HoppyFHR.CppEnum (HoppyFC.CInt) QCharUnicodeVersion+instance HoppyP.Eq QCharUnicodeVersion+instance HoppyP.Ord QCharUnicodeVersion+instance HoppyP.Show QCharUnicodeVersion
src/Graphics/UI/Qtah/Generated/Core/QChildEvent.hs view
@@ -0,0 +1,204 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QChildEvent (+  castQChildEventToQEvent,+  castQEventToQChildEvent,+  QChildEventValue (..),+  QChildEventConstPtr (..),+  added,+  child,+  polished,+  removed,+  QChildEventPtr (..),+  QChildEventConst (..),+  castQChildEventToConst,+  QChildEvent (..),+  castQChildEventToNonconst,+  new,+  QChildEventSuper (..),+  QChildEventSuperConst (..),+  ) 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.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QChildEvent_new" new' ::  HoppyFC.CInt -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QChildEvent)+foreign import ccall "genpop__QChildEvent_added" added' ::  HoppyF.Ptr QChildEventConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChildEvent_child" child' ::  HoppyF.Ptr QChildEventConst -> HoppyP.IO (HoppyF.Ptr M94.QObject)+foreign import ccall "genpop__QChildEvent_polished" polished' ::  HoppyF.Ptr QChildEventConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QChildEvent_removed" removed' ::  HoppyF.Ptr QChildEventConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "gencast__QChildEvent__QEvent" castQChildEventToQEvent :: HoppyF.Ptr QChildEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QChildEvent" castQEventToQChildEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QChildEventConst+foreign import ccall "gendel__QChildEvent" delete'QChildEvent :: HoppyF.Ptr QChildEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QChildEvent" deletePtr'QChildEvent :: HoppyF.FunPtr (HoppyF.Ptr QChildEventConst -> HoppyP.IO ())++class QChildEventValue a where+  withQChildEventPtr :: a -> (QChildEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QChildEventConstPtr a => QChildEventValue a where+  withQChildEventPtr = HoppyP.flip ($) . toQChildEventConst++class (M34.QEventConstPtr this) => QChildEventConstPtr this where+  toQChildEventConst :: this -> QChildEventConst++added :: (QChildEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+added arg'1 =+  withQChildEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (added' arg'1')++child :: (QChildEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M94.QObject)+child arg'1 =+  withQChildEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M94.QObject+  (child' arg'1')++polished :: (QChildEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+polished arg'1 =+  withQChildEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (polished' arg'1')++removed :: (QChildEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+removed arg'1 =+  withQChildEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removed' arg'1')++class (QChildEventConstPtr this, M34.QEventPtr this) => QChildEventPtr this where+  toQChildEvent :: this -> QChildEvent++data QChildEventConst =+    QChildEventConst (HoppyF.Ptr QChildEventConst)+  | QChildEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QChildEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QChildEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QChildEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQChildEventToConst :: QChildEvent -> QChildEventConst+castQChildEventToConst (QChildEvent ptr') = QChildEventConst $ HoppyF.castPtr ptr'+castQChildEventToConst (QChildEventGc fptr' ptr') = QChildEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QChildEventConst where+  nullptr = QChildEventConst HoppyF.nullPtr+  +  withCppPtr (QChildEventConst ptr') f' = f' ptr'+  withCppPtr (QChildEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QChildEventConst ptr') = ptr'+  toPtr (QChildEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QChildEventConst _) = HoppyP.return ()+  touchCppPtr (QChildEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QChildEventConst where+  delete (QChildEventConst ptr') = delete'QChildEvent ptr'+  delete (QChildEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QChildEventConst", " object."]+  +  toGc this'@(QChildEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QChildEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QChildEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QChildEventConstGc {}) = HoppyP.return this'++instance QChildEventConstPtr QChildEventConst where+  toQChildEventConst = HoppyP.id++instance M34.QEventConstPtr QChildEventConst where+  toQEventConst (QChildEventConst ptr') = M34.QEventConst $ castQChildEventToQEvent ptr'+  toQEventConst (QChildEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQChildEventToQEvent ptr'++data QChildEvent =+    QChildEvent (HoppyF.Ptr QChildEvent)+  | QChildEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QChildEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QChildEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QChildEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQChildEventToNonconst :: QChildEventConst -> QChildEvent+castQChildEventToNonconst (QChildEventConst ptr') = QChildEvent $ HoppyF.castPtr ptr'+castQChildEventToNonconst (QChildEventConstGc fptr' ptr') = QChildEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QChildEvent where+  nullptr = QChildEvent HoppyF.nullPtr+  +  withCppPtr (QChildEvent ptr') f' = f' ptr'+  withCppPtr (QChildEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QChildEvent ptr') = ptr'+  toPtr (QChildEventGc _ ptr') = ptr'+  +  touchCppPtr (QChildEvent _) = HoppyP.return ()+  touchCppPtr (QChildEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QChildEvent where+  delete (QChildEvent ptr') = delete'QChildEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QChildEventConst)+  delete (QChildEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QChildEvent", " object."]+  +  toGc this'@(QChildEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QChildEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QChildEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QChildEventGc {}) = HoppyP.return this'++instance QChildEventConstPtr QChildEvent where+  toQChildEventConst (QChildEvent ptr') = QChildEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QChildEvent -> HoppyF.Ptr QChildEventConst) ptr'+  toQChildEventConst (QChildEventGc fptr' ptr') = QChildEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QChildEvent -> HoppyF.Ptr QChildEventConst) ptr'++instance QChildEventPtr QChildEvent where+  toQChildEvent = HoppyP.id++instance M34.QEventConstPtr QChildEvent where+  toQEventConst (QChildEvent ptr') = M34.QEventConst $ castQChildEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QChildEvent -> HoppyF.Ptr QChildEventConst) ptr'+  toQEventConst (QChildEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQChildEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QChildEvent -> HoppyF.Ptr QChildEventConst) ptr'++instance M34.QEventPtr QChildEvent where+  toQEvent (QChildEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQChildEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QChildEvent -> HoppyF.Ptr QChildEventConst) ptr'+  toQEvent (QChildEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQChildEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QChildEvent -> HoppyF.Ptr QChildEventConst) ptr'++new :: (M94.QObjectPtr arg'2) => (M34.QEventType) -> (arg'2) -> (HoppyP.IO QChildEvent)+new arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  HoppyP.fmap QChildEvent+  (new' arg'1' arg'2')++class QChildEventSuper a where+  downToQChildEvent :: a -> QChildEvent++instance QChildEventSuper M34.QEvent where+  downToQChildEvent = castQChildEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QChildEventConst $ castQEventToQChildEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QChildEventConstGc fptr' $ castQEventToQChildEvent ptr'++class QChildEventSuperConst a where+  downToQChildEventConst :: a -> QChildEventConst++instance QChildEventSuperConst M34.QEventConst where+  downToQChildEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QChildEventConst $ castQEventToQChildEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QChildEventConstGc fptr' $ castQEventToQChildEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QChildEvent)) QChildEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QChildEvent)) QChildEvent where+  decode = HoppyP.fmap QChildEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QCoreApplication.hs view
@@ -0,0 +1,496 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QCoreApplication (+  castQCoreApplicationToQObject,+  castQObjectToQCoreApplication,+  QCoreApplicationValue (..),+  QCoreApplicationConstPtr (..),+  QCoreApplicationPtr (..),+  new,+  addLibraryPath,+  applicationDirPath,+  applicationFilePath,+  applicationName,+  applicationPid,+  applicationVersion,+  arguments,+  closingDown,+  exec,+  exit,+  getInstance,+  isQuitLockEnabled,+  isSetuidAllowed,+  libraryPaths,+  organizationDomain,+  organizationName,+  postEvent,+  postEventWithPriority,+  quit,+  removeLibraryPath,+  removePostedEvents,+  removePostedEventsWithEventType,+  sendEvent,+  sendPostedEvents,+  sendPostedEventsWithObject,+  sendPostedEventsWithObjectAndEventType,+  setApplicationName,+  setApplicationVersion,+  setAttribute,+  setAttributeWithBool,+  setLibraryPaths,+  setOrganizationDomain,+  setOrganizationName,+  setQuitLockEnabled,+  setSetuidAllowed,+  startingUp,+  testAttribute,+  translate,+  translateWithDisambiguation,+  translateWithDisambiguationAndNum,+  QCoreApplicationConst (..),+  castQCoreApplicationToConst,+  QCoreApplication (..),+  castQCoreApplicationToNonconst,+  QCoreApplicationSuper (..),+  QCoreApplicationSuperConst (..),+  ) where++import qualified Data.Int as HoppyDI+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+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.QStringList as M144+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QCoreApplication_new" new' ::  HoppyF.Ptr M144.QStringListConst -> HoppyP.IO (HoppyF.Ptr QCoreApplication)+foreign import ccall "genpop__QCoreApplication_addLibraryPath" addLibraryPath' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_applicationDirPath" applicationDirPath' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QCoreApplication_applicationFilePath" applicationFilePath' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QCoreApplication_applicationName" applicationName' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QCoreApplication_applicationPid" applicationPid' ::  HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QCoreApplication_applicationVersion" applicationVersion' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QCoreApplication_arguments" arguments' ::  HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QCoreApplication_closingDown" closingDown' ::  HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QCoreApplication_exec" exec' ::  HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_exit" exit' ::  HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_getInstance" getInstance' ::  HoppyP.IO (HoppyF.Ptr QCoreApplication)+foreign import ccall "genpop__QCoreApplication_isQuitLockEnabled" isQuitLockEnabled' ::  HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QCoreApplication_isSetuidAllowed" isSetuidAllowed' ::  HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QCoreApplication_libraryPaths" libraryPaths' ::  HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QCoreApplication_organizationDomain" organizationDomain' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QCoreApplication_organizationName" organizationName' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QCoreApplication_postEvent" postEvent' ::  HoppyF.Ptr M94.QObject -> HoppyF.Ptr M34.QEvent -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_postEventWithPriority" postEventWithPriority' ::  HoppyF.Ptr M94.QObject -> HoppyF.Ptr M34.QEvent -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_quit" quit' ::  HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_removeLibraryPath" removeLibraryPath' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_removePostedEvents" removePostedEvents' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_removePostedEventsWithEventType" removePostedEventsWithEventType' ::  HoppyF.Ptr M94.QObject -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_sendEvent" sendEvent' ::  HoppyF.Ptr M94.QObject -> HoppyF.Ptr M34.QEvent -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QCoreApplication_sendPostedEvents" sendPostedEvents' ::  HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_sendPostedEventsWithObject" sendPostedEventsWithObject' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_sendPostedEventsWithObjectAndEventType" sendPostedEventsWithObjectAndEventType' ::  HoppyF.Ptr M94.QObject -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_setApplicationName" setApplicationName' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_setApplicationVersion" setApplicationVersion' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_setAttribute" setAttribute' ::  HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_setAttributeWithBool" setAttributeWithBool' ::  HoppyFC.CInt -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_setLibraryPaths" setLibraryPaths' ::  HoppyF.Ptr M144.QStringListConst -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_setOrganizationDomain" setOrganizationDomain' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_setOrganizationName" setOrganizationName' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_setQuitLockEnabled" setQuitLockEnabled' ::  HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_setSetuidAllowed" setSetuidAllowed' ::  HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QCoreApplication_startingUp" startingUp' ::  HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QCoreApplication_testAttribute" testAttribute' ::  HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QCoreApplication_translate" translate' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QCoreApplication_translateWithDisambiguation" translateWithDisambiguation' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QCoreApplication_translateWithDisambiguationAndNum" translateWithDisambiguationAndNum' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "gencast__QCoreApplication__QObject" castQCoreApplicationToQObject :: HoppyF.Ptr QCoreApplicationConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QCoreApplication" castQObjectToQCoreApplication :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QCoreApplicationConst+foreign import ccall "gendel__QCoreApplication" delete'QCoreApplication :: HoppyF.Ptr QCoreApplicationConst -> HoppyP.IO ()+foreign import ccall "&gendel__QCoreApplication" deletePtr'QCoreApplication :: HoppyF.FunPtr (HoppyF.Ptr QCoreApplicationConst -> HoppyP.IO ())++class QCoreApplicationValue a where+  withQCoreApplicationPtr :: a -> (QCoreApplicationConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QCoreApplicationConstPtr a => QCoreApplicationValue a where+  withQCoreApplicationPtr = HoppyP.flip ($) . toQCoreApplicationConst++class (M94.QObjectConstPtr this) => QCoreApplicationConstPtr this where+  toQCoreApplicationConst :: this -> QCoreApplicationConst++class (QCoreApplicationConstPtr this, M94.QObjectPtr this) => QCoreApplicationPtr this where+  toQCoreApplication :: this -> QCoreApplication++new :: (M144.QStringListValue arg'1) => (arg'1) -> (HoppyP.IO QCoreApplication)+new arg'1 =+  M144.withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QCoreApplication+  (new' arg'1')++addLibraryPath :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO ())+addLibraryPath arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (addLibraryPath' arg'1')++applicationDirPath :: (HoppyP.IO QtahP.String)+applicationDirPath =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (applicationDirPath')++applicationFilePath :: (HoppyP.IO QtahP.String)+applicationFilePath =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (applicationFilePath')++applicationName :: (HoppyP.IO QtahP.String)+applicationName =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (applicationName')++applicationPid :: (HoppyP.IO HoppyDI.Int64)+applicationPid =+  (applicationPid')++applicationVersion :: (HoppyP.IO QtahP.String)+applicationVersion =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (applicationVersion')++arguments :: (HoppyP.IO [QtahP.String])+arguments =+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (arguments')++closingDown :: (HoppyP.IO HoppyP.Bool)+closingDown =+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (closingDown')++exec :: (HoppyP.IO ())+exec =+  (exec')++exit :: (HoppyP.Int) -> (HoppyP.IO ())+exit arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (exit' arg'1')++getInstance :: (HoppyP.IO QCoreApplication)+getInstance =+  HoppyP.fmap QCoreApplication+  (getInstance')++isQuitLockEnabled :: (HoppyP.IO HoppyP.Bool)+isQuitLockEnabled =+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isQuitLockEnabled')++isSetuidAllowed :: (HoppyP.IO HoppyP.Bool)+isSetuidAllowed =+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSetuidAllowed')++libraryPaths :: (HoppyP.IO [QtahP.String])+libraryPaths =+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (libraryPaths')++organizationDomain :: (HoppyP.IO QtahP.String)+organizationDomain =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (organizationDomain')++organizationName :: (HoppyP.IO QtahP.String)+organizationName =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (organizationName')++postEvent :: (M94.QObjectPtr arg'1, M34.QEventPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO ())+postEvent arg'1 arg'2 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M34.toQEvent arg'2) $ \arg'2' ->+  (postEvent' arg'1' arg'2')++postEventWithPriority :: (M94.QObjectPtr arg'1, M34.QEventPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO ())+postEventWithPriority arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M34.toQEvent arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (postEventWithPriority' arg'1' arg'2' arg'3')++quit :: (HoppyP.IO ())+quit =+  (quit')++removeLibraryPath :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO ())+removeLibraryPath arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (removeLibraryPath' arg'1')++removePostedEvents :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO ())+removePostedEvents arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  (removePostedEvents' arg'1')++removePostedEventsWithEventType :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.Int) -> (HoppyP.IO ())+removePostedEventsWithEventType arg'1 arg'2 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (removePostedEventsWithEventType' arg'1' arg'2')++sendEvent :: (M94.QObjectPtr arg'1, M34.QEventPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+sendEvent arg'1 arg'2 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M34.toQEvent arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (sendEvent' arg'1' arg'2')++sendPostedEvents :: (HoppyP.IO ())+sendPostedEvents =+  (sendPostedEvents')++sendPostedEventsWithObject :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO ())+sendPostedEventsWithObject arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  (sendPostedEventsWithObject' arg'1')++sendPostedEventsWithObjectAndEventType :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.Int) -> (HoppyP.IO ())+sendPostedEventsWithObjectAndEventType arg'1 arg'2 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (sendPostedEventsWithObjectAndEventType' arg'1' arg'2')++setApplicationName :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO ())+setApplicationName arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (setApplicationName' arg'1')++setApplicationVersion :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO ())+setApplicationVersion arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (setApplicationVersion' arg'1')++setAttribute :: (M190.QtApplicationAttribute) -> (HoppyP.IO ())+setAttribute arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (setAttribute' arg'1')++setAttributeWithBool :: (M190.QtApplicationAttribute) -> (HoppyP.Bool) -> (HoppyP.IO ())+setAttributeWithBool arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAttributeWithBool' arg'1' arg'2')++setLibraryPaths :: (M144.QStringListValue arg'1) => (arg'1) -> (HoppyP.IO ())+setLibraryPaths arg'1 =+  M144.withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (setLibraryPaths' arg'1')++setOrganizationDomain :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO ())+setOrganizationDomain arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (setOrganizationDomain' arg'1')++setOrganizationName :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO ())+setOrganizationName arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (setOrganizationName' arg'1')++setQuitLockEnabled :: (HoppyP.Bool) -> (HoppyP.IO ())+setQuitLockEnabled arg'1 =+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'1 >>= \arg'1' ->+  (setQuitLockEnabled' arg'1')++setSetuidAllowed :: (HoppyP.Bool) -> (HoppyP.IO ())+setSetuidAllowed arg'1 =+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'1 >>= \arg'1' ->+  (setSetuidAllowed' arg'1')++startingUp :: (HoppyP.IO HoppyP.Bool)+startingUp =+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startingUp')++testAttribute :: (M190.QtApplicationAttribute) -> (HoppyP.IO HoppyP.Bool)+testAttribute arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (testAttribute' arg'1')++translate :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QtahP.String)+translate arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (translate' arg'1' arg'2')++translateWithDisambiguation :: (M142.QStringValue arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO QtahP.String)+translateWithDisambiguation arg'1 arg'2 arg'3 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (translateWithDisambiguation' arg'1' arg'2' arg'3')++translateWithDisambiguationAndNum :: (M142.QStringValue arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+translateWithDisambiguationAndNum arg'1 arg'2 arg'3 arg'4 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (translateWithDisambiguationAndNum' arg'1' arg'2' arg'3' arg'4')++data QCoreApplicationConst =+    QCoreApplicationConst (HoppyF.Ptr QCoreApplicationConst)+  | QCoreApplicationConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QCoreApplicationConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QCoreApplicationConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QCoreApplicationConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQCoreApplicationToConst :: QCoreApplication -> QCoreApplicationConst+castQCoreApplicationToConst (QCoreApplication ptr') = QCoreApplicationConst $ HoppyF.castPtr ptr'+castQCoreApplicationToConst (QCoreApplicationGc fptr' ptr') = QCoreApplicationConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QCoreApplicationConst where+  nullptr = QCoreApplicationConst HoppyF.nullPtr+  +  withCppPtr (QCoreApplicationConst ptr') f' = f' ptr'+  withCppPtr (QCoreApplicationConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QCoreApplicationConst ptr') = ptr'+  toPtr (QCoreApplicationConstGc _ ptr') = ptr'+  +  touchCppPtr (QCoreApplicationConst _) = HoppyP.return ()+  touchCppPtr (QCoreApplicationConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QCoreApplicationConst where+  delete (QCoreApplicationConst ptr') = delete'QCoreApplication ptr'+  delete (QCoreApplicationConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QCoreApplicationConst", " object."]+  +  toGc this'@(QCoreApplicationConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QCoreApplicationConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QCoreApplication :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QCoreApplicationConstGc {}) = HoppyP.return this'++instance QCoreApplicationConstPtr QCoreApplicationConst where+  toQCoreApplicationConst = HoppyP.id++instance M94.QObjectConstPtr QCoreApplicationConst where+  toQObjectConst (QCoreApplicationConst ptr') = M94.QObjectConst $ castQCoreApplicationToQObject ptr'+  toQObjectConst (QCoreApplicationConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQCoreApplicationToQObject ptr'++data QCoreApplication =+    QCoreApplication (HoppyF.Ptr QCoreApplication)+  | QCoreApplicationGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QCoreApplication)+  deriving (HoppyP.Show)++instance HoppyP.Eq QCoreApplication where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QCoreApplication where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQCoreApplicationToNonconst :: QCoreApplicationConst -> QCoreApplication+castQCoreApplicationToNonconst (QCoreApplicationConst ptr') = QCoreApplication $ HoppyF.castPtr ptr'+castQCoreApplicationToNonconst (QCoreApplicationConstGc fptr' ptr') = QCoreApplicationGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QCoreApplication where+  nullptr = QCoreApplication HoppyF.nullPtr+  +  withCppPtr (QCoreApplication ptr') f' = f' ptr'+  withCppPtr (QCoreApplicationGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QCoreApplication ptr') = ptr'+  toPtr (QCoreApplicationGc _ ptr') = ptr'+  +  touchCppPtr (QCoreApplication _) = HoppyP.return ()+  touchCppPtr (QCoreApplicationGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QCoreApplication where+  delete (QCoreApplication ptr') = delete'QCoreApplication $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QCoreApplicationConst)+  delete (QCoreApplicationGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QCoreApplication", " object."]+  +  toGc this'@(QCoreApplication ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QCoreApplicationGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QCoreApplication :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QCoreApplicationGc {}) = HoppyP.return this'++instance QCoreApplicationConstPtr QCoreApplication where+  toQCoreApplicationConst (QCoreApplication ptr') = QCoreApplicationConst $ (HoppyF.castPtr :: HoppyF.Ptr QCoreApplication -> HoppyF.Ptr QCoreApplicationConst) ptr'+  toQCoreApplicationConst (QCoreApplicationGc fptr' ptr') = QCoreApplicationConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QCoreApplication -> HoppyF.Ptr QCoreApplicationConst) ptr'++instance QCoreApplicationPtr QCoreApplication where+  toQCoreApplication = HoppyP.id++instance M94.QObjectConstPtr QCoreApplication where+  toQObjectConst (QCoreApplication ptr') = M94.QObjectConst $ castQCoreApplicationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QCoreApplication -> HoppyF.Ptr QCoreApplicationConst) ptr'+  toQObjectConst (QCoreApplicationGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQCoreApplicationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QCoreApplication -> HoppyF.Ptr QCoreApplicationConst) ptr'++instance M94.QObjectPtr QCoreApplication where+  toQObject (QCoreApplication ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQCoreApplicationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QCoreApplication -> HoppyF.Ptr QCoreApplicationConst) ptr'+  toQObject (QCoreApplicationGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQCoreApplicationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QCoreApplication -> HoppyF.Ptr QCoreApplicationConst) ptr'++class QCoreApplicationSuper a where+  downToQCoreApplication :: a -> QCoreApplication++instance QCoreApplicationSuper M94.QObject where+  downToQCoreApplication = castQCoreApplicationToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QCoreApplicationConst $ castQObjectToQCoreApplication ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QCoreApplicationConstGc fptr' $ castQObjectToQCoreApplication ptr'++class QCoreApplicationSuperConst a where+  downToQCoreApplicationConst :: a -> QCoreApplicationConst++instance QCoreApplicationSuperConst M94.QObjectConst where+  downToQCoreApplicationConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QCoreApplicationConst $ castQObjectToQCoreApplication ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QCoreApplicationConstGc fptr' $ castQObjectToQCoreApplication ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QCoreApplication)) QCoreApplication where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QCoreApplication)) QCoreApplication where+  decode = HoppyP.fmap QCoreApplication . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QCryptographicHash.hs view
@@ -0,0 +1,269 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QCryptographicHash (+  QCryptographicHashValue (..),+  QCryptographicHashConstPtr (..),+  result,+  QCryptographicHashPtr (..),+  addDataRaw,+  addDataByteArray,+  addDataIODevice,+  reset,+  hash,+  hashLength,+  QCryptographicHashConst (..),+  castQCryptographicHashToConst,+  QCryptographicHash (..),+  castQCryptographicHashToNonconst,+  new,+  QCryptographicHashSuper (..),+  QCryptographicHashSuperConst (..),+  QCryptographicHashAlgorithm (..),+  ) where++import qualified Data.ByteString as QtahDBS+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QIODevice as M48+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QCryptographicHash_new" new' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QCryptographicHash)+foreign import ccall "genpop__QCryptographicHash_addDataRaw" addDataRaw' ::  HoppyF.Ptr QCryptographicHash -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QCryptographicHash_addDataByteArray" addDataByteArray' ::  HoppyF.Ptr QCryptographicHash -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO ()+foreign import ccall "genpop__QCryptographicHash_addDataIODevice" addDataIODevice' ::  HoppyF.Ptr QCryptographicHash -> HoppyF.Ptr M48.QIODevice -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QCryptographicHash_hash" hash' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QCryptographicHash_hashLength" hashLength' ::  HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QCryptographicHash_reset" reset' ::  HoppyF.Ptr QCryptographicHash -> HoppyP.IO ()+foreign import ccall "genpop__QCryptographicHash_result" result' ::  HoppyF.Ptr QCryptographicHashConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "gendel__QCryptographicHash" delete'QCryptographicHash :: HoppyF.Ptr QCryptographicHashConst -> HoppyP.IO ()+foreign import ccall "&gendel__QCryptographicHash" deletePtr'QCryptographicHash :: HoppyF.FunPtr (HoppyF.Ptr QCryptographicHashConst -> HoppyP.IO ())++class QCryptographicHashValue a where+  withQCryptographicHashPtr :: a -> (QCryptographicHashConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QCryptographicHashConstPtr a => QCryptographicHashValue a where+  withQCryptographicHashPtr = HoppyP.flip ($) . toQCryptographicHashConst++class (HoppyFHR.CppPtr this) => QCryptographicHashConstPtr this where+  toQCryptographicHashConst :: this -> QCryptographicHashConst++result :: (QCryptographicHashValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+result arg'1 =+  withQCryptographicHashPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (result' arg'1')++class (QCryptographicHashConstPtr this) => QCryptographicHashPtr this where+  toQCryptographicHash :: this -> QCryptographicHash++addDataRaw :: (QCryptographicHashPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO ())+addDataRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQCryptographicHash arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (addDataRaw' arg'1' arg'2' arg'3')++addDataByteArray :: (QCryptographicHashPtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addDataByteArray arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQCryptographicHash arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (addDataByteArray' arg'1' arg'2')++addDataIODevice :: (QCryptographicHashPtr this, M48.QIODevicePtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+addDataIODevice arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQCryptographicHash arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M48.toQIODevice arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (addDataIODevice' arg'1' arg'2')++reset :: (QCryptographicHashPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+reset arg'1 =+  HoppyFHR.withCppPtr (toQCryptographicHash arg'1) $ \arg'1' ->+  (reset' arg'1')++hash :: (M12.QByteArrayValue arg'1) => (arg'1) -> (QCryptographicHashAlgorithm) -> (HoppyP.IO QtahDBS.ByteString)+hash arg'1 arg'2 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (hash' arg'1' arg'2')++hashLength :: (QCryptographicHashAlgorithm) -> (HoppyP.IO HoppyP.Int)+hashLength arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (hashLength' arg'1')++data QCryptographicHashConst =+    QCryptographicHashConst (HoppyF.Ptr QCryptographicHashConst)+  | QCryptographicHashConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QCryptographicHashConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QCryptographicHashConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QCryptographicHashConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQCryptographicHashToConst :: QCryptographicHash -> QCryptographicHashConst+castQCryptographicHashToConst (QCryptographicHash ptr') = QCryptographicHashConst $ HoppyF.castPtr ptr'+castQCryptographicHashToConst (QCryptographicHashGc fptr' ptr') = QCryptographicHashConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QCryptographicHashConst where+  nullptr = QCryptographicHashConst HoppyF.nullPtr+  +  withCppPtr (QCryptographicHashConst ptr') f' = f' ptr'+  withCppPtr (QCryptographicHashConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QCryptographicHashConst ptr') = ptr'+  toPtr (QCryptographicHashConstGc _ ptr') = ptr'+  +  touchCppPtr (QCryptographicHashConst _) = HoppyP.return ()+  touchCppPtr (QCryptographicHashConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QCryptographicHashConst where+  delete (QCryptographicHashConst ptr') = delete'QCryptographicHash ptr'+  delete (QCryptographicHashConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QCryptographicHashConst", " object."]+  +  toGc this'@(QCryptographicHashConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QCryptographicHashConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QCryptographicHash :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QCryptographicHashConstGc {}) = HoppyP.return this'++instance QCryptographicHashConstPtr QCryptographicHashConst where+  toQCryptographicHashConst = HoppyP.id++data QCryptographicHash =+    QCryptographicHash (HoppyF.Ptr QCryptographicHash)+  | QCryptographicHashGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QCryptographicHash)+  deriving (HoppyP.Show)++instance HoppyP.Eq QCryptographicHash where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QCryptographicHash where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQCryptographicHashToNonconst :: QCryptographicHashConst -> QCryptographicHash+castQCryptographicHashToNonconst (QCryptographicHashConst ptr') = QCryptographicHash $ HoppyF.castPtr ptr'+castQCryptographicHashToNonconst (QCryptographicHashConstGc fptr' ptr') = QCryptographicHashGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QCryptographicHash where+  nullptr = QCryptographicHash HoppyF.nullPtr+  +  withCppPtr (QCryptographicHash ptr') f' = f' ptr'+  withCppPtr (QCryptographicHashGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QCryptographicHash ptr') = ptr'+  toPtr (QCryptographicHashGc _ ptr') = ptr'+  +  touchCppPtr (QCryptographicHash _) = HoppyP.return ()+  touchCppPtr (QCryptographicHashGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QCryptographicHash where+  delete (QCryptographicHash ptr') = delete'QCryptographicHash $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QCryptographicHashConst)+  delete (QCryptographicHashGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QCryptographicHash", " object."]+  +  toGc this'@(QCryptographicHash ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QCryptographicHashGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QCryptographicHash :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QCryptographicHashGc {}) = HoppyP.return this'++instance QCryptographicHashConstPtr QCryptographicHash where+  toQCryptographicHashConst (QCryptographicHash ptr') = QCryptographicHashConst $ (HoppyF.castPtr :: HoppyF.Ptr QCryptographicHash -> HoppyF.Ptr QCryptographicHashConst) ptr'+  toQCryptographicHashConst (QCryptographicHashGc fptr' ptr') = QCryptographicHashConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QCryptographicHash -> HoppyF.Ptr QCryptographicHashConst) ptr'++instance QCryptographicHashPtr QCryptographicHash where+  toQCryptographicHash = HoppyP.id++new :: (QCryptographicHashAlgorithm) -> (HoppyP.IO QCryptographicHash)+new arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QCryptographicHash+  (new' arg'1')++class QCryptographicHashSuper a where+  downToQCryptographicHash :: a -> QCryptographicHash+++class QCryptographicHashSuperConst a where+  downToQCryptographicHashConst :: a -> QCryptographicHashConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QCryptographicHash)) QCryptographicHash where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QCryptographicHash)) QCryptographicHash where+  decode = HoppyP.fmap QCryptographicHash . HoppyF.peek++data QCryptographicHashAlgorithm =+  Md4+  | Md5+  | Sha1+  | Sha224+  | Sha256+  | Sha384+  | Sha512+  | Sha3224+  | Sha3256+  | Sha3384+  | Sha3512+  | Keccak224+  | Keccak256+  | Keccak384+  | Keccak512+  | UnknownQCryptographicHashAlgorithm (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QCryptographicHashAlgorithm where+  fromCppEnum Md4 = 0+  fromCppEnum Md5 = 1+  fromCppEnum Sha1 = 2+  fromCppEnum Sha224 = 3+  fromCppEnum Sha256 = 4+  fromCppEnum Sha384 = 5+  fromCppEnum Sha512 = 6+  fromCppEnum Sha3224 = 11+  fromCppEnum Sha3256 = 12+  fromCppEnum Sha3384 = 13+  fromCppEnum Sha3512 = 14+  fromCppEnum Keccak224 = 7+  fromCppEnum Keccak256 = 8+  fromCppEnum Keccak384 = 9+  fromCppEnum Keccak512 = 10+  fromCppEnum (UnknownQCryptographicHashAlgorithm n) = n+  +  toCppEnum (0) = Md4+  toCppEnum (1) = Md5+  toCppEnum (2) = Sha1+  toCppEnum (3) = Sha224+  toCppEnum (4) = Sha256+  toCppEnum (5) = Sha384+  toCppEnum (6) = Sha512+  toCppEnum (7) = Keccak224+  toCppEnum (8) = Keccak256+  toCppEnum (9) = Keccak384+  toCppEnum (10) = Keccak512+  toCppEnum (11) = Sha3224+  toCppEnum (12) = Sha3256+  toCppEnum (13) = Sha3384+  toCppEnum (14) = Sha3512+  toCppEnum n = UnknownQCryptographicHashAlgorithm n++instance HoppyP.Eq QCryptographicHashAlgorithm where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QCryptographicHashAlgorithm where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Core/QDate.hs view
@@ -0,0 +1,540 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QDate (+  QDateValue (..),+  QDateConstPtr (..),+  addDays,+  addMonths,+  addYears,+  day,+  dayOfWeek,+  dayOfYear,+  daysInMonth,+  daysInYear,+  daysTo,+  isNull,+  isValid,+  month,+  toJulianDay,+  toStringWithStringFormat,+  toStringWithDateFormat,+  toString,+  weekNumber,+  year,+  lT,+  lE,+  gT,+  gE,+  eQ,+  nE,+  QDatePtr (..),+  setDate,+  aSSIGN,+  currentDate,+  fromJulianDay,+  fromString,+  fromStringWithDateFormat,+  fromStringWithStringFormat,+  isLeapYear,+  isValidYmd,+  QDateConst (..),+  castQDateToConst,+  QDate (..),+  castQDateToNonconst,+  new,+  newWithYmd,+  newCopy,+  QDateSuper (..),+  QDateSuperConst (..),+  QDateMonthNameType (..),+  ) where++import Control.Monad ((>=>))+import qualified Data.Int as HoppyDI+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QDate_new" new' ::  HoppyP.IO (HoppyF.Ptr QDate)+foreign import ccall "genpop__QDate_newWithYmd" newWithYmd' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDate)+foreign import ccall "genpop__QDate_newCopy" newCopy' ::  HoppyF.Ptr QDateConst -> HoppyP.IO (HoppyF.Ptr QDate)+foreign import ccall "genpop__QDate_addDays" addDays' ::  HoppyF.Ptr QDateConst -> HoppyDI.Int64 -> HoppyP.IO (HoppyF.Ptr QDateConst)+foreign import ccall "genpop__QDate_addMonths" addMonths' ::  HoppyF.Ptr QDateConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDateConst)+foreign import ccall "genpop__QDate_addYears" addYears' ::  HoppyF.Ptr QDateConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDateConst)+foreign import ccall "genpop__QDate_day" day' ::  HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDate_dayOfWeek" dayOfWeek' ::  HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDate_dayOfYear" dayOfYear' ::  HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDate_daysInMonth" daysInMonth' ::  HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDate_daysInYear" daysInYear' ::  HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDate_daysTo" daysTo' ::  HoppyF.Ptr QDateConst -> HoppyF.Ptr QDateConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QDate_isNull" isNull' ::  HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDate_isValid" isValid' ::  HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDate_month" month' ::  HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDate_setDate" setDate' ::  HoppyF.Ptr QDate -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDate_toJulianDay" toJulianDay' ::  HoppyF.Ptr QDateConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QDate_toStringWithStringFormat" toStringWithStringFormat' ::  HoppyF.Ptr QDateConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDate_toStringWithDateFormat" toStringWithDateFormat' ::  HoppyF.Ptr QDateConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDate_toString" toString' ::  HoppyF.Ptr QDateConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDate_weekNumber" weekNumber' ::  HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDate_year" year' ::  HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDate_currentDate" currentDate' ::  HoppyP.IO (HoppyF.Ptr QDateConst)+foreign import ccall "genpop__QDate_fromJulianDay" fromJulianDay' ::  HoppyDI.Int64 -> HoppyP.IO (HoppyF.Ptr QDateConst)+foreign import ccall "genpop__QDate_fromString" fromString' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QDateConst)+foreign import ccall "genpop__QDate_fromStringWithDateFormat" fromStringWithDateFormat' ::  HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDateConst)+foreign import ccall "genpop__QDate_fromStringWithStringFormat" fromStringWithStringFormat' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QDateConst)+foreign import ccall "genpop__QDate_isLeapYear" isLeapYear' ::  HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDate_isValidYmd" isValidYmd' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDate_LT" lT' ::  HoppyF.Ptr QDateConst -> HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDate_LE" lE' ::  HoppyF.Ptr QDateConst -> HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDate_GT" gT' ::  HoppyF.Ptr QDateConst -> HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDate_GE" gE' ::  HoppyF.Ptr QDateConst -> HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDate_EQ" eQ' ::  HoppyF.Ptr QDateConst -> HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDate_NE" nE' ::  HoppyF.Ptr QDateConst -> HoppyF.Ptr QDateConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDate_ASSIGN" aSSIGN' ::  HoppyF.Ptr QDate -> HoppyF.Ptr QDateConst -> HoppyP.IO (HoppyF.Ptr QDate)+foreign import ccall "gendel__QDate" delete'QDate :: HoppyF.Ptr QDateConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDate" deletePtr'QDate :: HoppyF.FunPtr (HoppyF.Ptr QDateConst -> HoppyP.IO ())++class QDateValue a where+  withQDatePtr :: a -> (QDateConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDateConstPtr a => QDateValue a where+  withQDatePtr = HoppyP.flip ($) . toQDateConst++class (HoppyFHR.CppPtr this) => QDateConstPtr this where+  toQDateConst :: this -> QDateConst++addDays :: (QDateValue this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.IO QDate)+addDays arg'1 arg'2 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . QDateConst) =<<+  (addDays' arg'1' arg'2')++addMonths :: (QDateValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QDate)+addMonths arg'1 arg'2 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QDateConst) =<<+  (addMonths' arg'1' arg'2')++addYears :: (QDateValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QDate)+addYears arg'1 arg'2 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QDateConst) =<<+  (addYears' arg'1' arg'2')++day :: (QDateValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+day arg'1 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (day' arg'1')++dayOfWeek :: (QDateValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+dayOfWeek arg'1 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (dayOfWeek' arg'1')++dayOfYear :: (QDateValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+dayOfYear arg'1 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (dayOfYear' arg'1')++daysInMonth :: (QDateValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+daysInMonth arg'1 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (daysInMonth' arg'1')++daysInYear :: (QDateValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+daysInYear arg'1 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (daysInYear' arg'1')++daysTo :: (QDateValue this, QDateValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyDI.Int64)+daysTo arg'1 arg'2 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDatePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (daysTo' arg'1' arg'2')++isNull :: (QDateValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++isValid :: (QDateValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++month :: (QDateValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+month arg'1 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (month' arg'1')++toJulianDay :: (QDateValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+toJulianDay arg'1 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (toJulianDay' arg'1')++toStringWithStringFormat :: (QDateValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+toStringWithStringFormat arg'1 arg'2 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toStringWithStringFormat' arg'1' arg'2')++toStringWithDateFormat :: (QDateValue this) => (this) {- ^ this -} -> (M190.QtDateFormat) -> (HoppyP.IO QtahP.String)+toStringWithDateFormat arg'1 arg'2 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toStringWithDateFormat' arg'1' arg'2')++toString :: (QDateValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+toString arg'1 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toString' arg'1')++weekNumber :: (QDateValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+weekNumber arg'1 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (weekNumber' arg'1')++year :: (QDateValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+year arg'1 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (year' arg'1')++lT :: (QDateValue this, QDateValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lT arg'1 arg'2 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDatePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lT' arg'1' arg'2')++lE :: (QDateValue this, QDateValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lE arg'1 arg'2 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDatePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lE' arg'1' arg'2')++gT :: (QDateValue this, QDateValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gT arg'1 arg'2 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDatePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gT' arg'1' arg'2')++gE :: (QDateValue this, QDateValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gE arg'1 arg'2 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDatePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gE' arg'1' arg'2')++eQ :: (QDateValue this, QDateValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDatePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QDateValue this, QDateValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDatePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QDateConstPtr this) => QDatePtr this where+  toQDate :: this -> QDate++setDate :: (QDatePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+setDate arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQDate 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 . (/= 0))+  ) =<<+  (setDate' arg'1' arg'2' arg'3' arg'4')++aSSIGN :: (QDatePtr this, QDateValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QDate)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDate arg'1) $ \arg'1' ->+  withQDatePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QDate+  (aSSIGN' arg'1' arg'2')++currentDate :: (HoppyP.IO QDate)+currentDate =+  (HoppyFHR.decodeAndDelete . QDateConst) =<<+  (currentDate')++fromJulianDay :: (HoppyDI.Int64) -> (HoppyP.IO QDate)+fromJulianDay arg'1 =+  let arg'1' = arg'1 in+  (HoppyFHR.decodeAndDelete . QDateConst) =<<+  (fromJulianDay' arg'1')++fromString :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QDate)+fromString arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QDateConst) =<<+  (fromString' arg'1')++fromStringWithDateFormat :: (M142.QStringValue arg'1) => (arg'1) -> (M190.QtDateFormat) -> (HoppyP.IO QDate)+fromStringWithDateFormat arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QDateConst) =<<+  (fromStringWithDateFormat' arg'1' arg'2')++fromStringWithStringFormat :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QDate)+fromStringWithStringFormat arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QDateConst) =<<+  (fromStringWithStringFormat' arg'1' arg'2')++isLeapYear :: (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+isLeapYear arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isLeapYear' arg'1')++isValidYmd :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+isValidYmd arg'1 arg'2 arg'3 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValidYmd' arg'1' arg'2' arg'3')++data QDateConst =+    QDateConst (HoppyF.Ptr QDateConst)+  | QDateConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDateConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDateConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDateConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDateToConst :: QDate -> QDateConst+castQDateToConst (QDate ptr') = QDateConst $ HoppyF.castPtr ptr'+castQDateToConst (QDateGc fptr' ptr') = QDateConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDateConst where+  nullptr = QDateConst HoppyF.nullPtr+  +  withCppPtr (QDateConst ptr') f' = f' ptr'+  withCppPtr (QDateConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDateConst ptr') = ptr'+  toPtr (QDateConstGc _ ptr') = ptr'+  +  touchCppPtr (QDateConst _) = HoppyP.return ()+  touchCppPtr (QDateConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDateConst where+  delete (QDateConst ptr') = delete'QDate ptr'+  delete (QDateConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDateConst", " object."]+  +  toGc this'@(QDateConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDateConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDate :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDateConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QDateConst QDate where copy = newCopy++instance QDateConstPtr QDateConst where+  toQDateConst = HoppyP.id++data QDate =+    QDate (HoppyF.Ptr QDate)+  | QDateGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDate)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDate where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDate where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDateToNonconst :: QDateConst -> QDate+castQDateToNonconst (QDateConst ptr') = QDate $ HoppyF.castPtr ptr'+castQDateToNonconst (QDateConstGc fptr' ptr') = QDateGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDate where+  nullptr = QDate HoppyF.nullPtr+  +  withCppPtr (QDate ptr') f' = f' ptr'+  withCppPtr (QDateGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDate ptr') = ptr'+  toPtr (QDateGc _ ptr') = ptr'+  +  touchCppPtr (QDate _) = HoppyP.return ()+  touchCppPtr (QDateGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDate where+  delete (QDate ptr') = delete'QDate $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDateConst)+  delete (QDateGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDate", " object."]+  +  toGc this'@(QDate ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDateGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDate :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDateGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QDate QDate where copy = newCopy++instance QDateConstPtr QDate where+  toQDateConst (QDate ptr') = QDateConst $ (HoppyF.castPtr :: HoppyF.Ptr QDate -> HoppyF.Ptr QDateConst) ptr'+  toQDateConst (QDateGc fptr' ptr') = QDateConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDate -> HoppyF.Ptr QDateConst) ptr'++instance QDatePtr QDate where+  toQDate = HoppyP.id++new :: (HoppyP.IO QDate)+new =+  HoppyP.fmap QDate+  (new')++newWithYmd :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QDate)+newWithYmd arg'1 arg'2 arg'3 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QDate+  (newWithYmd' arg'1' arg'2' arg'3')++newCopy :: (QDateValue arg'1) => (arg'1) -> (HoppyP.IO QDate)+newCopy arg'1 =+  withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QDate+  (newCopy' arg'1')++class QDateSuper a where+  downToQDate :: a -> QDate+++class QDateSuperConst a where+  downToQDateConst :: a -> QDateConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDate)) QDate where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QDateValue a => HoppyFHR.Assignable QDate a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDate)) QDate where+  decode = HoppyP.fmap QDate . HoppyF.peek++instance HoppyFHR.Decodable QDate (QDate) where+  decode = HoppyFHR.decode . toQDateConst++instance HoppyFHR.Decodable QDateConst (QDate) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc++data QDateMonthNameType =+  DateFormat+  | StandaloneFormat+  | UnknownQDateMonthNameType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QDateMonthNameType where+  fromCppEnum DateFormat = 0+  fromCppEnum StandaloneFormat = 1+  fromCppEnum (UnknownQDateMonthNameType n) = n+  +  toCppEnum (0) = DateFormat+  toCppEnum (1) = StandaloneFormat+  toCppEnum n = UnknownQDateMonthNameType n++instance HoppyP.Eq QDateMonthNameType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QDateMonthNameType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Core/QDateTime.hs view
@@ -0,0 +1,745 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QDateTime (+  QDateTimeValue (..),+  QDateTimeConstPtr (..),+  addDays,+  addMSecs,+  addMonths,+  addSecs,+  addYears,+  date,+  daysTo,+  isDaylightTime,+  isNull,+  isValid,+  msecsTo,+  offsetFromUtc,+  secsTo,+  time,+  timeSpec,+  timeZone,+  timeZoneAbbreviation,+  toLocalTime,+  toMSecsSinceEpoch,+  toOffsetFromUtc,+  toSecsSinceEpoch,+  toString,+  toStringWithDateFormat,+  toStringWithStringFormat,+  toTimeSpec,+  toTimeZone,+  toUTC,+  eQ,+  nE,+  lT,+  lE,+  gT,+  gE,+  QDateTimePtr (..),+  setDate,+  setMSecsSinceEpoch,+  setOffsetFromUtc,+  setSecsSinceEpoch,+  setTime,+  setTimeSpec,+  setTimeZone,+  swap,+  aSSIGN,+  currentDateTime,+  currentDateTimeUtc,+  currentMSecsSinceEpoch,+  currentSecsSinceEpoch,+  fromMSecsSinceEpoch,+  fromMSecsSinceEpochWithTimeSpec,+  fromMSecsSinceEpochWithTimeSpecAndOffset,+  fromMSecsSinceEpochWithTimeZone,+  fromSecsSinceEpoch,+  fromSecsSinceEpochWithTimeSpec,+  fromSecsSinceEpochWithTimeSpecAndOffset,+  fromSecsSinceEpochWithTimeZone,+  fromString,+  fromStringWithDateFormat,+  fromStringWithStringFormat,+  QDateTimeConst (..),+  castQDateTimeToConst,+  QDateTime (..),+  castQDateTimeToNonconst,+  new,+  newWithDate,+  newWithDateAndTime,+  newWithDateAndTimeAndTimeSpec,+  newWithDateAndTimeAndTimeSpecAndOffset,+  newWithDateAndTimeAndTimeZone,+  newCopy,+  QDateTimeSuper (..),+  QDateTimeSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Data.Int as HoppyDI+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QDate as M22+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QTime as M158+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QTimeZone as M164+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QDateTime_new" new' ::  HoppyP.IO (HoppyF.Ptr QDateTime)+foreign import ccall "genpop__QDateTime_newWithDate" newWithDate' ::  HoppyF.Ptr M22.QDateConst -> HoppyP.IO (HoppyF.Ptr QDateTime)+foreign import ccall "genpop__QDateTime_newWithDateAndTime" newWithDateAndTime' ::  HoppyF.Ptr M22.QDateConst -> HoppyF.Ptr M158.QTimeConst -> HoppyP.IO (HoppyF.Ptr QDateTime)+foreign import ccall "genpop__QDateTime_newWithDateAndTimeAndTimeSpec" newWithDateAndTimeAndTimeSpec' ::  HoppyF.Ptr M22.QDateConst -> HoppyF.Ptr M158.QTimeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDateTime)+foreign import ccall "genpop__QDateTime_newWithDateAndTimeAndTimeSpecAndOffset" newWithDateAndTimeAndTimeSpecAndOffset' ::  HoppyF.Ptr M22.QDateConst -> HoppyF.Ptr M158.QTimeConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDateTime)+foreign import ccall "genpop__QDateTime_newWithDateAndTimeAndTimeZone" newWithDateAndTimeAndTimeZone' ::  HoppyF.Ptr M22.QDateConst -> HoppyF.Ptr M158.QTimeConst -> HoppyF.Ptr M164.QTimeZoneConst -> HoppyP.IO (HoppyF.Ptr QDateTime)+foreign import ccall "genpop__QDateTime_newCopy" newCopy' ::  HoppyF.Ptr QDateTimeConst -> HoppyP.IO (HoppyF.Ptr QDateTime)+foreign import ccall "genpop__QDateTime_addDays" addDays' ::  HoppyF.Ptr QDateTimeConst -> HoppyDI.Int64 -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_addMSecs" addMSecs' ::  HoppyF.Ptr QDateTimeConst -> HoppyDI.Int64 -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_addMonths" addMonths' ::  HoppyF.Ptr QDateTimeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_addSecs" addSecs' ::  HoppyF.Ptr QDateTimeConst -> HoppyDI.Int64 -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_addYears" addYears' ::  HoppyF.Ptr QDateTimeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_currentDateTime" currentDateTime' ::  HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_currentDateTimeUtc" currentDateTimeUtc' ::  HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_currentMSecsSinceEpoch" currentMSecsSinceEpoch' ::  HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QDateTime_currentSecsSinceEpoch" currentSecsSinceEpoch' ::  HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QDateTime_date" date' ::  HoppyF.Ptr QDateTimeConst -> HoppyP.IO (HoppyF.Ptr M22.QDateConst)+foreign import ccall "genpop__QDateTime_daysTo" daysTo' ::  HoppyF.Ptr QDateTimeConst -> HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QDateTime_fromMSecsSinceEpoch" fromMSecsSinceEpoch' ::  HoppyDI.Int64 -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_fromMSecsSinceEpochWithTimeSpec" fromMSecsSinceEpochWithTimeSpec' ::  HoppyDI.Int64 -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_fromMSecsSinceEpochWithTimeSpecAndOffset" fromMSecsSinceEpochWithTimeSpecAndOffset' ::  HoppyDI.Int64 -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_fromMSecsSinceEpochWithTimeZone" fromMSecsSinceEpochWithTimeZone' ::  HoppyDI.Int64 -> HoppyF.Ptr M164.QTimeZoneConst -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_fromSecsSinceEpoch" fromSecsSinceEpoch' ::  HoppyDI.Int64 -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_fromSecsSinceEpochWithTimeSpec" fromSecsSinceEpochWithTimeSpec' ::  HoppyDI.Int64 -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_fromSecsSinceEpochWithTimeSpecAndOffset" fromSecsSinceEpochWithTimeSpecAndOffset' ::  HoppyDI.Int64 -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_fromSecsSinceEpochWithTimeZone" fromSecsSinceEpochWithTimeZone' ::  HoppyDI.Int64 -> HoppyF.Ptr M164.QTimeZoneConst -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_fromString" fromString' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_fromStringWithDateFormat" fromStringWithDateFormat' ::  HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_fromStringWithStringFormat" fromStringWithStringFormat' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_isDaylightTime" isDaylightTime' ::  HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDateTime_isNull" isNull' ::  HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDateTime_isValid" isValid' ::  HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDateTime_msecsTo" msecsTo' ::  HoppyF.Ptr QDateTimeConst -> HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QDateTime_offsetFromUtc" offsetFromUtc' ::  HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDateTime_secsTo" secsTo' ::  HoppyF.Ptr QDateTimeConst -> HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QDateTime_setDate" setDate' ::  HoppyF.Ptr QDateTime -> HoppyF.Ptr M22.QDateConst -> HoppyP.IO ()+foreign import ccall "genpop__QDateTime_setMSecsSinceEpoch" setMSecsSinceEpoch' ::  HoppyF.Ptr QDateTime -> HoppyDI.Int64 -> HoppyP.IO ()+foreign import ccall "genpop__QDateTime_setOffsetFromUtc" setOffsetFromUtc' ::  HoppyF.Ptr QDateTime -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDateTime_setSecsSinceEpoch" setSecsSinceEpoch' ::  HoppyF.Ptr QDateTime -> HoppyDI.Int64 -> HoppyP.IO ()+foreign import ccall "genpop__QDateTime_setTime" setTime' ::  HoppyF.Ptr QDateTime -> HoppyF.Ptr M158.QTimeConst -> HoppyP.IO ()+foreign import ccall "genpop__QDateTime_setTimeSpec" setTimeSpec' ::  HoppyF.Ptr QDateTime -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDateTime_setTimeZone" setTimeZone' ::  HoppyF.Ptr QDateTime -> HoppyF.Ptr M164.QTimeZoneConst -> HoppyP.IO ()+foreign import ccall "genpop__QDateTime_swap" swap' ::  HoppyF.Ptr QDateTime -> HoppyF.Ptr QDateTime -> HoppyP.IO ()+foreign import ccall "genpop__QDateTime_time" time' ::  HoppyF.Ptr QDateTimeConst -> HoppyP.IO (HoppyF.Ptr M158.QTimeConst)+foreign import ccall "genpop__QDateTime_timeSpec" timeSpec' ::  HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDateTime_timeZone" timeZone' ::  HoppyF.Ptr QDateTimeConst -> HoppyP.IO (HoppyF.Ptr M164.QTimeZoneConst)+foreign import ccall "genpop__QDateTime_timeZoneAbbreviation" timeZoneAbbreviation' ::  HoppyF.Ptr QDateTimeConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDateTime_toLocalTime" toLocalTime' ::  HoppyF.Ptr QDateTimeConst -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_toMSecsSinceEpoch" toMSecsSinceEpoch' ::  HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QDateTime_toOffsetFromUtc" toOffsetFromUtc' ::  HoppyF.Ptr QDateTimeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_toSecsSinceEpoch" toSecsSinceEpoch' ::  HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QDateTime_toString" toString' ::  HoppyF.Ptr QDateTimeConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDateTime_toStringWithDateFormat" toStringWithDateFormat' ::  HoppyF.Ptr QDateTimeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDateTime_toStringWithStringFormat" toStringWithStringFormat' ::  HoppyF.Ptr QDateTimeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDateTime_toTimeSpec" toTimeSpec' ::  HoppyF.Ptr QDateTimeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_toTimeZone" toTimeZone' ::  HoppyF.Ptr QDateTimeConst -> HoppyF.Ptr M164.QTimeZoneConst -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_toUTC" toUTC' ::  HoppyF.Ptr QDateTimeConst -> HoppyP.IO (HoppyF.Ptr QDateTimeConst)+foreign import ccall "genpop__QDateTime_EQ" eQ' ::  HoppyF.Ptr QDateTimeConst -> HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDateTime_NE" nE' ::  HoppyF.Ptr QDateTimeConst -> HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDateTime_LT" lT' ::  HoppyF.Ptr QDateTimeConst -> HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDateTime_LE" lE' ::  HoppyF.Ptr QDateTimeConst -> HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDateTime_GT" gT' ::  HoppyF.Ptr QDateTimeConst -> HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDateTime_GE" gE' ::  HoppyF.Ptr QDateTimeConst -> HoppyF.Ptr QDateTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDateTime_ASSIGN" aSSIGN' ::  HoppyF.Ptr QDateTime -> HoppyF.Ptr QDateTimeConst -> HoppyP.IO (HoppyF.Ptr QDateTime)+foreign import ccall "gendel__QDateTime" delete'QDateTime :: HoppyF.Ptr QDateTimeConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDateTime" deletePtr'QDateTime :: HoppyF.FunPtr (HoppyF.Ptr QDateTimeConst -> HoppyP.IO ())++class QDateTimeValue a where+  withQDateTimePtr :: a -> (QDateTimeConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDateTimeConstPtr a => QDateTimeValue a where+  withQDateTimePtr = HoppyP.flip ($) . toQDateTimeConst++class (HoppyFHR.CppPtr this) => QDateTimeConstPtr this where+  toQDateTimeConst :: this -> QDateTimeConst++addDays :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.IO QDateTime)+addDays arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (addDays' arg'1' arg'2')++addMSecs :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.IO QDateTime)+addMSecs arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (addMSecs' arg'1' arg'2')++addMonths :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QDateTime)+addMonths arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (addMonths' arg'1' arg'2')++addSecs :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.IO QDateTime)+addSecs arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (addSecs' arg'1' arg'2')++addYears :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QDateTime)+addYears arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (addYears' arg'1' arg'2')++date :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO M22.QDate)+date arg'1 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M22.QDateConst) =<<+  (date' arg'1')++daysTo :: (QDateTimeValue this, QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyDI.Int64)+daysTo arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (daysTo' arg'1' arg'2')++isDaylightTime :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isDaylightTime arg'1 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isDaylightTime' arg'1')++isNull :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++isValid :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++msecsTo :: (QDateTimeValue this, QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyDI.Int64)+msecsTo arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (msecsTo' arg'1' arg'2')++offsetFromUtc :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+offsetFromUtc arg'1 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (offsetFromUtc' arg'1')++secsTo :: (QDateTimeValue this, QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyDI.Int64)+secsTo arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (secsTo' arg'1' arg'2')++time :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO M158.QTime)+time arg'1 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M158.QTimeConst) =<<+  (time' arg'1')++timeSpec :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtTimeSpec)+timeSpec arg'1 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (timeSpec' arg'1')++timeZone :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO M164.QTimeZone)+timeZone arg'1 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M164.QTimeZoneConst) =<<+  (timeZone' arg'1')++timeZoneAbbreviation :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+timeZoneAbbreviation arg'1 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (timeZoneAbbreviation' arg'1')++toLocalTime :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO QDateTime)+toLocalTime arg'1 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (toLocalTime' arg'1')++toMSecsSinceEpoch :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+toMSecsSinceEpoch arg'1 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (toMSecsSinceEpoch' arg'1')++toOffsetFromUtc :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QDateTime)+toOffsetFromUtc arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (toOffsetFromUtc' arg'1' arg'2')++toSecsSinceEpoch :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+toSecsSinceEpoch arg'1 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (toSecsSinceEpoch' arg'1')++toString :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+toString arg'1 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toString' arg'1')++toStringWithDateFormat :: (QDateTimeValue this) => (this) {- ^ this -} -> (M190.QtDateFormat) -> (HoppyP.IO QtahP.String)+toStringWithDateFormat arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toStringWithDateFormat' arg'1' arg'2')++toStringWithStringFormat :: (QDateTimeValue this) => (this) {- ^ this -} -> (M190.QtDateFormat) -> (HoppyP.IO QtahP.String)+toStringWithStringFormat arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toStringWithStringFormat' arg'1' arg'2')++toTimeSpec :: (QDateTimeValue this) => (this) {- ^ this -} -> (M190.QtTimeSpec) -> (HoppyP.IO QDateTime)+toTimeSpec arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (toTimeSpec' arg'1' arg'2')++toTimeZone :: (QDateTimeValue this, M164.QTimeZoneValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QDateTime)+toTimeZone arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M164.withQTimeZonePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (toTimeZone' arg'1' arg'2')++toUTC :: (QDateTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO QDateTime)+toUTC arg'1 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (toUTC' arg'1')++eQ :: (QDateTimeValue this, QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QDateTimeValue this, QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++lT :: (QDateTimeValue this, QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lT arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lT' arg'1' arg'2')++lE :: (QDateTimeValue this, QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lE arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lE' arg'1' arg'2')++gT :: (QDateTimeValue this, QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gT arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gT' arg'1' arg'2')++gE :: (QDateTimeValue this, QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gE arg'1 arg'2 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gE' arg'1' arg'2')++class (QDateTimeConstPtr this) => QDateTimePtr this where+  toQDateTime :: this -> QDateTime++setDate :: (QDateTimePtr this, M22.QDateValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setDate arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTime arg'1) $ \arg'1' ->+  M22.withQDatePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setDate' arg'1' arg'2')++setMSecsSinceEpoch :: (QDateTimePtr this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.IO ())+setMSecsSinceEpoch arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTime arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (setMSecsSinceEpoch' arg'1' arg'2')++setOffsetFromUtc :: (QDateTimePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setOffsetFromUtc arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTime arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setOffsetFromUtc' arg'1' arg'2')++setSecsSinceEpoch :: (QDateTimePtr this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.IO ())+setSecsSinceEpoch arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTime arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (setSecsSinceEpoch' arg'1' arg'2')++setTime :: (QDateTimePtr this, M158.QTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTime arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTime arg'1) $ \arg'1' ->+  M158.withQTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setTime' arg'1' arg'2')++setTimeSpec :: (QDateTimePtr this) => (this) {- ^ this -} -> (M190.QtTimeSpec) -> (HoppyP.IO ())+setTimeSpec arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTime arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setTimeSpec' arg'1' arg'2')++setTimeZone :: (QDateTimePtr this, M164.QTimeZoneValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTimeZone arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTime arg'1) $ \arg'1' ->+  M164.withQTimeZonePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setTimeZone' arg'1' arg'2')++swap :: (QDateTimePtr this, QDateTimePtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTime arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQDateTime arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++aSSIGN :: (QDateTimePtr this, QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QDateTime)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTime arg'1) $ \arg'1' ->+  withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QDateTime+  (aSSIGN' arg'1' arg'2')++currentDateTime :: (HoppyP.IO QDateTime)+currentDateTime =+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (currentDateTime')++currentDateTimeUtc :: (HoppyP.IO QDateTime)+currentDateTimeUtc =+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (currentDateTimeUtc')++currentMSecsSinceEpoch :: (HoppyP.IO HoppyDI.Int64)+currentMSecsSinceEpoch =+  (currentMSecsSinceEpoch')++currentSecsSinceEpoch :: (HoppyP.IO HoppyDI.Int64)+currentSecsSinceEpoch =+  (currentSecsSinceEpoch')++fromMSecsSinceEpoch :: (HoppyDI.Int64) -> (HoppyP.IO QDateTime)+fromMSecsSinceEpoch arg'1 =+  let arg'1' = arg'1 in+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (fromMSecsSinceEpoch' arg'1')++fromMSecsSinceEpochWithTimeSpec :: (HoppyDI.Int64) -> (M190.QtTimeSpec) -> (HoppyP.IO QDateTime)+fromMSecsSinceEpochWithTimeSpec arg'1 arg'2 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (fromMSecsSinceEpochWithTimeSpec' arg'1' arg'2')++fromMSecsSinceEpochWithTimeSpecAndOffset :: (HoppyDI.Int64) -> (M190.QtTimeSpec) -> (HoppyP.Int) -> (HoppyP.IO QDateTime)+fromMSecsSinceEpochWithTimeSpecAndOffset arg'1 arg'2 arg'3 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (fromMSecsSinceEpochWithTimeSpecAndOffset' arg'1' arg'2' arg'3')++fromMSecsSinceEpochWithTimeZone :: (M164.QTimeZoneValue arg'2) => (HoppyDI.Int64) -> (arg'2) -> (HoppyP.IO QDateTime)+fromMSecsSinceEpochWithTimeZone arg'1 arg'2 =+  let arg'1' = arg'1 in+  M164.withQTimeZonePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (fromMSecsSinceEpochWithTimeZone' arg'1' arg'2')++fromSecsSinceEpoch :: (HoppyDI.Int64) -> (HoppyP.IO QDateTime)+fromSecsSinceEpoch arg'1 =+  let arg'1' = arg'1 in+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (fromSecsSinceEpoch' arg'1')++fromSecsSinceEpochWithTimeSpec :: (HoppyDI.Int64) -> (M190.QtTimeSpec) -> (HoppyP.IO QDateTime)+fromSecsSinceEpochWithTimeSpec arg'1 arg'2 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (fromSecsSinceEpochWithTimeSpec' arg'1' arg'2')++fromSecsSinceEpochWithTimeSpecAndOffset :: (HoppyDI.Int64) -> (M190.QtTimeSpec) -> (HoppyP.Int) -> (HoppyP.IO QDateTime)+fromSecsSinceEpochWithTimeSpecAndOffset arg'1 arg'2 arg'3 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (fromSecsSinceEpochWithTimeSpecAndOffset' arg'1' arg'2' arg'3')++fromSecsSinceEpochWithTimeZone :: (M164.QTimeZoneValue arg'2) => (HoppyDI.Int64) -> (arg'2) -> (HoppyP.IO QDateTime)+fromSecsSinceEpochWithTimeZone arg'1 arg'2 =+  let arg'1' = arg'1 in+  M164.withQTimeZonePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (fromSecsSinceEpochWithTimeZone' arg'1' arg'2')++fromString :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QDateTime)+fromString arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (fromString' arg'1')++fromStringWithDateFormat :: (M142.QStringValue arg'1) => (arg'1) -> (M190.QtDateFormat) -> (HoppyP.IO QDateTime)+fromStringWithDateFormat arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (fromStringWithDateFormat' arg'1' arg'2')++fromStringWithStringFormat :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QDateTime)+fromStringWithStringFormat arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QDateTimeConst) =<<+  (fromStringWithStringFormat' arg'1' arg'2')++data QDateTimeConst =+    QDateTimeConst (HoppyF.Ptr QDateTimeConst)+  | QDateTimeConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDateTimeConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDateTimeConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDateTimeConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDateTimeToConst :: QDateTime -> QDateTimeConst+castQDateTimeToConst (QDateTime ptr') = QDateTimeConst $ HoppyF.castPtr ptr'+castQDateTimeToConst (QDateTimeGc fptr' ptr') = QDateTimeConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDateTimeConst where+  nullptr = QDateTimeConst HoppyF.nullPtr+  +  withCppPtr (QDateTimeConst ptr') f' = f' ptr'+  withCppPtr (QDateTimeConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDateTimeConst ptr') = ptr'+  toPtr (QDateTimeConstGc _ ptr') = ptr'+  +  touchCppPtr (QDateTimeConst _) = HoppyP.return ()+  touchCppPtr (QDateTimeConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDateTimeConst where+  delete (QDateTimeConst ptr') = delete'QDateTime ptr'+  delete (QDateTimeConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDateTimeConst", " object."]+  +  toGc this'@(QDateTimeConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDateTimeConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDateTime :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDateTimeConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QDateTimeConst QDateTime where copy = newCopy++instance QDateTimeConstPtr QDateTimeConst where+  toQDateTimeConst = HoppyP.id++data QDateTime =+    QDateTime (HoppyF.Ptr QDateTime)+  | QDateTimeGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDateTime)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDateTime where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDateTime where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDateTimeToNonconst :: QDateTimeConst -> QDateTime+castQDateTimeToNonconst (QDateTimeConst ptr') = QDateTime $ HoppyF.castPtr ptr'+castQDateTimeToNonconst (QDateTimeConstGc fptr' ptr') = QDateTimeGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDateTime where+  nullptr = QDateTime HoppyF.nullPtr+  +  withCppPtr (QDateTime ptr') f' = f' ptr'+  withCppPtr (QDateTimeGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDateTime ptr') = ptr'+  toPtr (QDateTimeGc _ ptr') = ptr'+  +  touchCppPtr (QDateTime _) = HoppyP.return ()+  touchCppPtr (QDateTimeGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDateTime where+  delete (QDateTime ptr') = delete'QDateTime $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDateTimeConst)+  delete (QDateTimeGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDateTime", " object."]+  +  toGc this'@(QDateTime ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDateTimeGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDateTime :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDateTimeGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QDateTime QDateTime where copy = newCopy++instance QDateTimeConstPtr QDateTime where+  toQDateTimeConst (QDateTime ptr') = QDateTimeConst $ (HoppyF.castPtr :: HoppyF.Ptr QDateTime -> HoppyF.Ptr QDateTimeConst) ptr'+  toQDateTimeConst (QDateTimeGc fptr' ptr') = QDateTimeConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDateTime -> HoppyF.Ptr QDateTimeConst) ptr'++instance QDateTimePtr QDateTime where+  toQDateTime = HoppyP.id++new :: (HoppyP.IO QDateTime)+new =+  HoppyP.fmap QDateTime+  (new')++newWithDate :: (M22.QDateValue arg'1) => (arg'1) -> (HoppyP.IO QDateTime)+newWithDate arg'1 =+  M22.withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QDateTime+  (newWithDate' arg'1')++newWithDateAndTime :: (M22.QDateValue arg'1, M158.QTimeValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QDateTime)+newWithDateAndTime arg'1 arg'2 =+  M22.withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M158.withQTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QDateTime+  (newWithDateAndTime' arg'1' arg'2')++newWithDateAndTimeAndTimeSpec :: (M22.QDateValue arg'1, M158.QTimeValue arg'2) => (arg'1) -> (arg'2) -> (M190.QtTimeSpec) -> (HoppyP.IO QDateTime)+newWithDateAndTimeAndTimeSpec arg'1 arg'2 arg'3 =+  M22.withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M158.withQTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QDateTime+  (newWithDateAndTimeAndTimeSpec' arg'1' arg'2' arg'3')++newWithDateAndTimeAndTimeSpecAndOffset :: (M22.QDateValue arg'1, M158.QTimeValue arg'2) => (arg'1) -> (arg'2) -> (M190.QtTimeSpec) -> (HoppyP.Int) -> (HoppyP.IO QDateTime)+newWithDateAndTimeAndTimeSpecAndOffset arg'1 arg'2 arg'3 arg'4 =+  M22.withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M158.withQTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QDateTime+  (newWithDateAndTimeAndTimeSpecAndOffset' arg'1' arg'2' arg'3' arg'4')++newWithDateAndTimeAndTimeZone :: (M22.QDateValue arg'1, M158.QTimeValue arg'2, M164.QTimeZoneValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO QDateTime)+newWithDateAndTimeAndTimeZone arg'1 arg'2 arg'3 =+  M22.withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M158.withQTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M164.withQTimeZonePtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap QDateTime+  (newWithDateAndTimeAndTimeZone' arg'1' arg'2' arg'3')++newCopy :: (QDateTimeValue arg'1) => (arg'1) -> (HoppyP.IO QDateTime)+newCopy arg'1 =+  withQDateTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QDateTime+  (newCopy' arg'1')++class QDateTimeSuper a where+  downToQDateTime :: a -> QDateTime+++class QDateTimeSuperConst a where+  downToQDateTimeConst :: a -> QDateTimeConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDateTime)) QDateTime where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QDateTimeValue a => HoppyFHR.Assignable QDateTime a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDateTime)) QDateTime where+  decode = HoppyP.fmap QDateTime . HoppyF.peek++instance HoppyFHR.Decodable QDateTime (QDateTime) where+  decode = HoppyFHR.decode . toQDateTimeConst++instance HoppyFHR.Decodable QDateTimeConst (QDateTime) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
+ src/Graphics/UI/Qtah/Generated/Core/QDateTime.hs-boot view
@@ -0,0 +1,59 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QDateTime (+  QDateTimeValue (..),+  QDateTimeConstPtr (..),+  QDateTimePtr (..),+  QDateTimeConst (..),+  castQDateTimeToConst,+  QDateTime (..),+  castQDateTimeToNonconst,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Prelude as HoppyP+++class QDateTimeValue a where+  withQDateTimePtr :: a -> (QDateTimeConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDateTimeConstPtr a => QDateTimeValue a++class (HoppyFHR.CppPtr this) => QDateTimeConstPtr this where+  toQDateTimeConst :: this -> QDateTimeConst++class (QDateTimeConstPtr this) => QDateTimePtr this where+  toQDateTime :: this -> QDateTime++data QDateTimeConst =+    QDateTimeConst (HoppyF.Ptr QDateTimeConst)+  | QDateTimeConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDateTimeConst)++castQDateTimeToConst :: QDateTime -> QDateTimeConst++instance HoppyFHR.CppPtr QDateTimeConst+instance HoppyFHR.Deletable QDateTimeConst+instance HoppyFHR.Copyable QDateTimeConst QDateTime++instance QDateTimeConstPtr QDateTimeConst++data QDateTime =+    QDateTime (HoppyF.Ptr QDateTime)+  | QDateTimeGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDateTime)++castQDateTimeToNonconst :: QDateTimeConst -> QDateTime++instance HoppyFHR.CppPtr QDateTime+instance HoppyFHR.Deletable QDateTime+instance HoppyFHR.Copyable QDateTime QDateTime++instance QDateTimeConstPtr QDateTime++instance QDateTimePtr QDateTime++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDateTime)) QDateTime++instance HoppyFHR.Decodable QDateTime ((QDateTime))+instance HoppyFHR.Decodable QDateTimeConst ((QDateTime))
src/Graphics/UI/Qtah/Generated/Core/QDebug.hs view
@@ -0,0 +1,477 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QDebug (+  QDebugValue (..),+  QDebugConstPtr (..),+  autoInsertSpaces,+  verbosity,+  QDebugPtr (..),+  maybeQuote,+  maybeQuoteWithChar,+  maybeSpace,+  noquote,+  nospace,+  quote,+  resetFormat,+  setAutoInsertSpaces,+  setVerbosity,+  space,+  swap,+  verbosityWithLevel,+  sHLQChar,+  sHLBool,+  sHLChar,+  sHLShort,+  sHLUshort,+  sHLInt,+  sHLUint,+  sHLLong,+  sHLUlong,+  sHLQlonglong,+  sHLQulonglong,+  sHLFloat,+  sHLDouble,+  sHLPtrConstChar,+  sHLString,+  sHLByteArray,+  sHLPtrVoid,+  aSSIGN,+  QDebugConst (..),+  castQDebugToConst,+  QDebug (..),+  castQDebugToNonconst,+  newWithMsgType,+  newWithString,+  newWithIODevice,+  newCopy,+  QDebugSuper (..),+  QDebugSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Data.Int as HoppyDI+import qualified Data.Word as HoppyDW+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QChar as M16+import qualified Graphics.UI.Qtah.Generated.Core.QIODevice as M48+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QDebug_newWithMsgType" newWithMsgType' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_newWithString" newWithString' ::  HoppyF.Ptr M142.QString -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_newWithIODevice" newWithIODevice' ::  HoppyF.Ptr M48.QIODevice -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_newCopy" newCopy' ::  HoppyF.Ptr QDebugConst -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_autoInsertSpaces" autoInsertSpaces' ::  HoppyF.Ptr QDebugConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDebug_maybeQuote" maybeQuote' ::  HoppyF.Ptr QDebug -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_maybeQuoteWithChar" maybeQuoteWithChar' ::  HoppyF.Ptr QDebug -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_maybeSpace" maybeSpace' ::  HoppyF.Ptr QDebug -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_noquote" noquote' ::  HoppyF.Ptr QDebug -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_nospace" nospace' ::  HoppyF.Ptr QDebug -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_quote" quote' ::  HoppyF.Ptr QDebug -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_resetFormat" resetFormat' ::  HoppyF.Ptr QDebug -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_setAutoInsertSpaces" setAutoInsertSpaces' ::  HoppyF.Ptr QDebug -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QDebug_setVerbosity" setVerbosity' ::  HoppyF.Ptr QDebug -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDebug_space" space' ::  HoppyF.Ptr QDebug -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_swap" swap' ::  HoppyF.Ptr QDebug -> HoppyF.Ptr QDebug -> HoppyP.IO ()+foreign import ccall "genpop__QDebug_verbosityWithLevel" verbosityWithLevel' ::  HoppyF.Ptr QDebug -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_verbosity" verbosity' ::  HoppyF.Ptr QDebugConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDebug_SHLQChar" sHLQChar' ::  HoppyF.Ptr QDebug -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLBool" sHLBool' ::  HoppyF.Ptr QDebug -> HoppyFC.CBool -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLChar" sHLChar' ::  HoppyF.Ptr QDebug -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLShort" sHLShort' ::  HoppyF.Ptr QDebug -> HoppyFC.CShort -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLUshort" sHLUshort' ::  HoppyF.Ptr QDebug -> HoppyFC.CUShort -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLInt" sHLInt' ::  HoppyF.Ptr QDebug -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLUint" sHLUint' ::  HoppyF.Ptr QDebug -> HoppyFC.CUInt -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLLong" sHLLong' ::  HoppyF.Ptr QDebug -> HoppyFC.CLong -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLUlong" sHLUlong' ::  HoppyF.Ptr QDebug -> HoppyFC.CULong -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLQlonglong" sHLQlonglong' ::  HoppyF.Ptr QDebug -> HoppyDI.Int64 -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLQulonglong" sHLQulonglong' ::  HoppyF.Ptr QDebug -> HoppyDW.Word64 -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLFloat" sHLFloat' ::  HoppyF.Ptr QDebug -> HoppyFC.CFloat -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLDouble" sHLDouble' ::  HoppyF.Ptr QDebug -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLPtrConstChar" sHLPtrConstChar' ::  HoppyF.Ptr QDebug -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLString" sHLString' ::  HoppyF.Ptr QDebug -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLByteArray" sHLByteArray' ::  HoppyF.Ptr QDebug -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_SHLPtrVoid" sHLPtrVoid' ::  HoppyF.Ptr QDebug -> HoppyF.Ptr () -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "genpop__QDebug_ASSIGN" aSSIGN' ::  HoppyF.Ptr QDebug -> HoppyF.Ptr QDebugConst -> HoppyP.IO (HoppyF.Ptr QDebug)+foreign import ccall "gendel__QDebug" delete'QDebug :: HoppyF.Ptr QDebugConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDebug" deletePtr'QDebug :: HoppyF.FunPtr (HoppyF.Ptr QDebugConst -> HoppyP.IO ())++class QDebugValue a where+  withQDebugPtr :: a -> (QDebugConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDebugConstPtr a => QDebugValue a where+  withQDebugPtr = HoppyP.flip ($) . toQDebugConst++class (HoppyFHR.CppPtr this) => QDebugConstPtr this where+  toQDebugConst :: this -> QDebugConst++autoInsertSpaces :: (QDebugValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+autoInsertSpaces arg'1 =+  withQDebugPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (autoInsertSpaces' arg'1')++verbosity :: (QDebugValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+verbosity arg'1 =+  withQDebugPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (verbosity' arg'1')++class (QDebugConstPtr this) => QDebugPtr this where+  toQDebug :: this -> QDebug++maybeQuote :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyP.IO QDebug)+maybeQuote arg'1 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  HoppyP.fmap QDebug+  (maybeQuote' arg'1')++maybeQuoteWithChar :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.IO QDebug)+maybeQuoteWithChar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QDebug+  (maybeQuoteWithChar' arg'1' arg'2')++maybeSpace :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyP.IO QDebug)+maybeSpace arg'1 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  HoppyP.fmap QDebug+  (maybeSpace' arg'1')++noquote :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyP.IO QDebug)+noquote arg'1 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  HoppyP.fmap QDebug+  (noquote' arg'1')++nospace :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyP.IO QDebug)+nospace arg'1 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  HoppyP.fmap QDebug+  (nospace' arg'1')++quote :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyP.IO QDebug)+quote arg'1 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  HoppyP.fmap QDebug+  (quote' arg'1')++resetFormat :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyP.IO QDebug)+resetFormat arg'1 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  HoppyP.fmap QDebug+  (resetFormat' arg'1')++setAutoInsertSpaces :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setAutoInsertSpaces arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAutoInsertSpaces' arg'1' arg'2')++setVerbosity :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setVerbosity arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setVerbosity' arg'1' arg'2')++space :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyP.IO QDebug)+space arg'1 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  HoppyP.fmap QDebug+  (space' arg'1')++swap :: (QDebugPtr this, QDebugPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQDebug arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++verbosityWithLevel :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QDebug)+verbosityWithLevel arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QDebug+  (verbosityWithLevel' arg'1' arg'2')++sHLQChar :: (QDebugPtr this, M16.QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QDebug)+sHLQChar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  M16.withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QDebug+  (sHLQChar' arg'1' arg'2')++sHLBool :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO QDebug)+sHLBool arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QDebug+  (sHLBool' arg'1' arg'2')++sHLChar :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.IO QDebug)+sHLChar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QDebug+  (sHLChar' arg'1' arg'2')++sHLShort :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyFC.CShort) -> (HoppyP.IO QDebug)+sHLShort arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QDebug+  (sHLShort' arg'1' arg'2')++sHLUshort :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyFC.CUShort) -> (HoppyP.IO QDebug)+sHLUshort arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QDebug+  (sHLUshort' arg'1' arg'2')++sHLInt :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QDebug)+sHLInt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QDebug+  (sHLInt' arg'1' arg'2')++sHLUint :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO QDebug)+sHLUint arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QDebug+  (sHLUint' arg'1' arg'2')++sHLLong :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyFC.CLong) -> (HoppyP.IO QDebug)+sHLLong arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QDebug+  (sHLLong' arg'1' arg'2')++sHLUlong :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyFC.CULong) -> (HoppyP.IO QDebug)+sHLUlong arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QDebug+  (sHLUlong' arg'1' arg'2')++sHLQlonglong :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.IO QDebug)+sHLQlonglong arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QDebug+  (sHLQlonglong' arg'1' arg'2')++sHLQulonglong :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyDW.Word64) -> (HoppyP.IO QDebug)+sHLQulonglong arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QDebug+  (sHLQulonglong' arg'1' arg'2')++sHLFloat :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyP.Float) -> (HoppyP.IO QDebug)+sHLFloat arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QDebug+  (sHLFloat' arg'1' arg'2')++sHLDouble :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QDebug)+sHLDouble arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QDebug+  (sHLDouble' arg'1' arg'2')++sHLPtrConstChar :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QDebug)+sHLPtrConstChar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QDebug+  (sHLPtrConstChar' arg'1' arg'2')++sHLString :: (QDebugPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QDebug)+sHLString arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QDebug+  (sHLString' arg'1' arg'2')++sHLByteArray :: (QDebugPtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QDebug)+sHLByteArray arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QDebug+  (sHLByteArray' arg'1' arg'2')++sHLPtrVoid :: (QDebugPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr ()) -> (HoppyP.IO QDebug)+sHLPtrVoid arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QDebug+  (sHLPtrVoid' arg'1' arg'2')++aSSIGN :: (QDebugPtr this, QDebugValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QDebug)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDebug arg'1) $ \arg'1' ->+  withQDebugPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QDebug+  (aSSIGN' arg'1' arg'2')++data QDebugConst =+    QDebugConst (HoppyF.Ptr QDebugConst)+  | QDebugConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDebugConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDebugConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDebugConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDebugToConst :: QDebug -> QDebugConst+castQDebugToConst (QDebug ptr') = QDebugConst $ HoppyF.castPtr ptr'+castQDebugToConst (QDebugGc fptr' ptr') = QDebugConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDebugConst where+  nullptr = QDebugConst HoppyF.nullPtr+  +  withCppPtr (QDebugConst ptr') f' = f' ptr'+  withCppPtr (QDebugConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDebugConst ptr') = ptr'+  toPtr (QDebugConstGc _ ptr') = ptr'+  +  touchCppPtr (QDebugConst _) = HoppyP.return ()+  touchCppPtr (QDebugConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDebugConst where+  delete (QDebugConst ptr') = delete'QDebug ptr'+  delete (QDebugConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDebugConst", " object."]+  +  toGc this'@(QDebugConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDebugConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDebug :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDebugConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QDebugConst QDebug where copy = newCopy++instance QDebugConstPtr QDebugConst where+  toQDebugConst = HoppyP.id++data QDebug =+    QDebug (HoppyF.Ptr QDebug)+  | QDebugGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDebug)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDebug where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDebug where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDebugToNonconst :: QDebugConst -> QDebug+castQDebugToNonconst (QDebugConst ptr') = QDebug $ HoppyF.castPtr ptr'+castQDebugToNonconst (QDebugConstGc fptr' ptr') = QDebugGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDebug where+  nullptr = QDebug HoppyF.nullPtr+  +  withCppPtr (QDebug ptr') f' = f' ptr'+  withCppPtr (QDebugGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDebug ptr') = ptr'+  toPtr (QDebugGc _ ptr') = ptr'+  +  touchCppPtr (QDebug _) = HoppyP.return ()+  touchCppPtr (QDebugGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDebug where+  delete (QDebug ptr') = delete'QDebug $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDebugConst)+  delete (QDebugGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDebug", " object."]+  +  toGc this'@(QDebug ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDebugGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDebug :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDebugGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QDebug QDebug where copy = newCopy++instance QDebugConstPtr QDebug where+  toQDebugConst (QDebug ptr') = QDebugConst $ (HoppyF.castPtr :: HoppyF.Ptr QDebug -> HoppyF.Ptr QDebugConst) ptr'+  toQDebugConst (QDebugGc fptr' ptr') = QDebugConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDebug -> HoppyF.Ptr QDebugConst) ptr'++instance QDebugPtr QDebug where+  toQDebug = HoppyP.id++newWithMsgType :: (M190.QtMsgType) -> (HoppyP.IO QDebug)+newWithMsgType arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QDebug+  (newWithMsgType' arg'1')++newWithString :: (M142.QStringPtr arg'1) => (arg'1) -> (HoppyP.IO QDebug)+newWithString arg'1 =+  HoppyFHR.withCppPtr (M142.toQString arg'1) $ \arg'1' ->+  HoppyP.fmap QDebug+  (newWithString' arg'1')++newWithIODevice :: (M48.QIODevicePtr arg'1) => (arg'1) -> (HoppyP.IO QDebug)+newWithIODevice arg'1 =+  HoppyFHR.withCppPtr (M48.toQIODevice arg'1) $ \arg'1' ->+  HoppyP.fmap QDebug+  (newWithIODevice' arg'1')++newCopy :: (QDebugValue arg'1) => (arg'1) -> (HoppyP.IO QDebug)+newCopy arg'1 =+  withQDebugPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QDebug+  (newCopy' arg'1')++class QDebugSuper a where+  downToQDebug :: a -> QDebug+++class QDebugSuperConst a where+  downToQDebugConst :: a -> QDebugConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDebug)) QDebug where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QDebugValue a => HoppyFHR.Assignable QDebug a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDebug)) QDebug where+  decode = HoppyP.fmap QDebug . HoppyF.peek++instance HoppyFHR.Decodable QDebug (QDebug) where+  decode = HoppyFHR.decode . toQDebugConst++instance HoppyFHR.Decodable QDebugConst (QDebug) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QDebugStateSaver.hs view
@@ -0,0 +1,135 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QDebugStateSaver (+  QDebugStateSaverValue (..),+  QDebugStateSaverConstPtr (..),+  QDebugStateSaverPtr (..),+  QDebugStateSaverConst (..),+  castQDebugStateSaverToConst,+  QDebugStateSaver (..),+  castQDebugStateSaverToNonconst,+  newWithDebug,+  QDebugStateSaverSuper (..),+  QDebugStateSaverSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QDebug as M26+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QDebugStateSaver_newWithDebug" newWithDebug' ::  HoppyF.Ptr M26.QDebug -> HoppyP.IO (HoppyF.Ptr QDebugStateSaver)+foreign import ccall "gendel__QDebugStateSaver" delete'QDebugStateSaver :: HoppyF.Ptr QDebugStateSaverConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDebugStateSaver" deletePtr'QDebugStateSaver :: HoppyF.FunPtr (HoppyF.Ptr QDebugStateSaverConst -> HoppyP.IO ())++class QDebugStateSaverValue a where+  withQDebugStateSaverPtr :: a -> (QDebugStateSaverConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDebugStateSaverConstPtr a => QDebugStateSaverValue a where+  withQDebugStateSaverPtr = HoppyP.flip ($) . toQDebugStateSaverConst++class (HoppyFHR.CppPtr this) => QDebugStateSaverConstPtr this where+  toQDebugStateSaverConst :: this -> QDebugStateSaverConst++class (QDebugStateSaverConstPtr this) => QDebugStateSaverPtr this where+  toQDebugStateSaver :: this -> QDebugStateSaver++data QDebugStateSaverConst =+    QDebugStateSaverConst (HoppyF.Ptr QDebugStateSaverConst)+  | QDebugStateSaverConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDebugStateSaverConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDebugStateSaverConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDebugStateSaverConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDebugStateSaverToConst :: QDebugStateSaver -> QDebugStateSaverConst+castQDebugStateSaverToConst (QDebugStateSaver ptr') = QDebugStateSaverConst $ HoppyF.castPtr ptr'+castQDebugStateSaverToConst (QDebugStateSaverGc fptr' ptr') = QDebugStateSaverConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDebugStateSaverConst where+  nullptr = QDebugStateSaverConst HoppyF.nullPtr+  +  withCppPtr (QDebugStateSaverConst ptr') f' = f' ptr'+  withCppPtr (QDebugStateSaverConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDebugStateSaverConst ptr') = ptr'+  toPtr (QDebugStateSaverConstGc _ ptr') = ptr'+  +  touchCppPtr (QDebugStateSaverConst _) = HoppyP.return ()+  touchCppPtr (QDebugStateSaverConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDebugStateSaverConst where+  delete (QDebugStateSaverConst ptr') = delete'QDebugStateSaver ptr'+  delete (QDebugStateSaverConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDebugStateSaverConst", " object."]+  +  toGc this'@(QDebugStateSaverConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDebugStateSaverConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDebugStateSaver :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDebugStateSaverConstGc {}) = HoppyP.return this'++instance QDebugStateSaverConstPtr QDebugStateSaverConst where+  toQDebugStateSaverConst = HoppyP.id++data QDebugStateSaver =+    QDebugStateSaver (HoppyF.Ptr QDebugStateSaver)+  | QDebugStateSaverGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDebugStateSaver)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDebugStateSaver where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDebugStateSaver where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDebugStateSaverToNonconst :: QDebugStateSaverConst -> QDebugStateSaver+castQDebugStateSaverToNonconst (QDebugStateSaverConst ptr') = QDebugStateSaver $ HoppyF.castPtr ptr'+castQDebugStateSaverToNonconst (QDebugStateSaverConstGc fptr' ptr') = QDebugStateSaverGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDebugStateSaver where+  nullptr = QDebugStateSaver HoppyF.nullPtr+  +  withCppPtr (QDebugStateSaver ptr') f' = f' ptr'+  withCppPtr (QDebugStateSaverGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDebugStateSaver ptr') = ptr'+  toPtr (QDebugStateSaverGc _ ptr') = ptr'+  +  touchCppPtr (QDebugStateSaver _) = HoppyP.return ()+  touchCppPtr (QDebugStateSaverGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDebugStateSaver where+  delete (QDebugStateSaver ptr') = delete'QDebugStateSaver $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDebugStateSaverConst)+  delete (QDebugStateSaverGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDebugStateSaver", " object."]+  +  toGc this'@(QDebugStateSaver ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDebugStateSaverGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDebugStateSaver :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDebugStateSaverGc {}) = HoppyP.return this'++instance QDebugStateSaverConstPtr QDebugStateSaver where+  toQDebugStateSaverConst (QDebugStateSaver ptr') = QDebugStateSaverConst $ (HoppyF.castPtr :: HoppyF.Ptr QDebugStateSaver -> HoppyF.Ptr QDebugStateSaverConst) ptr'+  toQDebugStateSaverConst (QDebugStateSaverGc fptr' ptr') = QDebugStateSaverConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDebugStateSaver -> HoppyF.Ptr QDebugStateSaverConst) ptr'++instance QDebugStateSaverPtr QDebugStateSaver where+  toQDebugStateSaver = HoppyP.id++newWithDebug :: (M26.QDebugPtr arg'1) => (arg'1) -> (HoppyP.IO QDebugStateSaver)+newWithDebug arg'1 =+  HoppyFHR.withCppPtr (M26.toQDebug arg'1) $ \arg'1' ->+  HoppyP.fmap QDebugStateSaver+  (newWithDebug' arg'1')++class QDebugStateSaverSuper a where+  downToQDebugStateSaver :: a -> QDebugStateSaver+++class QDebugStateSaverSuperConst a where+  downToQDebugStateSaverConst :: a -> QDebugStateSaverConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDebugStateSaver)) QDebugStateSaver where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDebugStateSaver)) QDebugStateSaver where+  decode = HoppyP.fmap QDebugStateSaver . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QDir.hs view
@@ -0,0 +1,927 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QDir (+  QDirValue (..),+  QDirConstPtr (..),+  absoluteFilePath,+  absolutePath,+  canonicalPath,+  count,+  dirName,+  exists,+  entryExists,+  filePath,+  filter,+  isAbsolute,+  isReadable,+  isRelative,+  isRoot,+  mkdir,+  mkpath,+  path,+  relativeFilePath,+  rmdir,+  rmpath,+  sorting,+  aRRAY,+  eQ,+  nE,+  QDirPtr (..),+  cd,+  cdUp,+  setFilter,+  makeAbsolute,+  setPath,+  refresh,+  remove,+  removeRecursively,+  rename,+  setSorting,+  swap,+  aSSIGN,+  addSearchPath,+  cleanPath,+  current,+  currentPath,+  fromNativeSeparators,+  home,+  homePath,+  isAbsolutePath,+  isRelativePath,+  match,+  root,+  rootPath,+  separator,+  setCurrent,+  temp,+  tempPath,+  toNativeSeparators,+  QDirConst (..),+  castQDirToConst,+  QDir (..),+  castQDirToNonconst,+  new,+  newCopy,+  QDirSuper (..),+  QDirSuperConst (..),+  QDirFilter (..),+  QDirFilters,+  IsQDirFilters (..),+  allDirs,+  allEntries,+  caseSensitive,+  dirs,+  drives,+  executable,+  files,+  hidden,+  modified,+  noDot,+  noDotAndDotDot,+  noDotDot,+  noSymLinks,+  readable,+  system,+  writable,+  QDirSortFlag (..),+  QDirSortFlags,+  IsQDirSortFlags (..),+  dirsFirst,+  dirsLast,+  ignoreCase,+  localeAware,+  name,+  noSort,+  reversed,+  size,+  time,+  typ,+  unsorted,+  ) where++import Control.Monad ((>=>))+import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QChar as M16+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QDir_new" new' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QDir)+foreign import ccall "genpop__QDir_newCopy" newCopy' ::  HoppyF.Ptr QDirConst -> HoppyP.IO (HoppyF.Ptr QDir)+foreign import ccall "genpop__QDir_absoluteFilePath" absoluteFilePath' ::  HoppyF.Ptr QDirConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDir_absolutePath" absolutePath' ::  HoppyF.Ptr QDirConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDir_addSearchPath" addSearchPath' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QDir_canonicalPath" canonicalPath' ::  HoppyF.Ptr QDirConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDir_cd" cd' ::  HoppyF.Ptr QDir -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_cdUp" cdUp' ::  HoppyF.Ptr QDir -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_cleanPath" cleanPath' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDir_count" count' ::  HoppyF.Ptr QDirConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDir_current" current' ::  HoppyP.IO (HoppyF.Ptr QDirConst)+foreign import ccall "genpop__QDir_currentPath" currentPath' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDir_dirName" dirName' ::  HoppyF.Ptr QDirConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDir_exists" exists' ::  HoppyF.Ptr QDirConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_entryExists" entryExists' ::  HoppyF.Ptr QDirConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_filePath" filePath' ::  HoppyF.Ptr QDirConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDir_filter" filter' ::  HoppyF.Ptr QDirConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDir_setFilter" setFilter' ::  HoppyF.Ptr QDir -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDir_fromNativeSeparators" fromNativeSeparators' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDir_home" home' ::  HoppyP.IO (HoppyF.Ptr QDirConst)+foreign import ccall "genpop__QDir_homePath" homePath' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDir_isAbsolute" isAbsolute' ::  HoppyF.Ptr QDirConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_isAbsolutePath" isAbsolutePath' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_isReadable" isReadable' ::  HoppyF.Ptr QDirConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_isRelative" isRelative' ::  HoppyF.Ptr QDirConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_isRelativePath" isRelativePath' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_isRoot" isRoot' ::  HoppyF.Ptr QDirConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_makeAbsolute" makeAbsolute' ::  HoppyF.Ptr QDir -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_match" match' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_mkdir" mkdir' ::  HoppyF.Ptr QDirConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_mkpath" mkpath' ::  HoppyF.Ptr QDirConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_path" path' ::  HoppyF.Ptr QDirConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDir_setPath" setPath' ::  HoppyF.Ptr QDir -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QDir_refresh" refresh' ::  HoppyF.Ptr QDir -> HoppyP.IO ()+foreign import ccall "genpop__QDir_relativeFilePath" relativeFilePath' ::  HoppyF.Ptr QDirConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDir_remove" remove' ::  HoppyF.Ptr QDir -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_removeRecursively" removeRecursively' ::  HoppyF.Ptr QDir -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_rename" rename' ::  HoppyF.Ptr QDir -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_rmdir" rmdir' ::  HoppyF.Ptr QDirConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_rmpath" rmpath' ::  HoppyF.Ptr QDirConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_root" root' ::  HoppyP.IO (HoppyF.Ptr QDirConst)+foreign import ccall "genpop__QDir_rootPath" rootPath' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDir_separator" separator' ::  HoppyP.IO (HoppyF.Ptr M16.QCharConst)+foreign import ccall "genpop__QDir_setCurrent" setCurrent' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_sorting" sorting' ::  HoppyF.Ptr QDirConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDir_setSorting" setSorting' ::  HoppyF.Ptr QDir -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDir_swap" swap' ::  HoppyF.Ptr QDir -> HoppyF.Ptr QDir -> HoppyP.IO ()+foreign import ccall "genpop__QDir_temp" temp' ::  HoppyP.IO (HoppyF.Ptr QDirConst)+foreign import ccall "genpop__QDir_tempPath" tempPath' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDir_toNativeSeparators" toNativeSeparators' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDir_ARRAY" aRRAY' ::  HoppyF.Ptr QDirConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDir_EQ" eQ' ::  HoppyF.Ptr QDirConst -> HoppyF.Ptr QDirConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_NE" nE' ::  HoppyF.Ptr QDirConst -> HoppyF.Ptr QDirConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDir_ASSIGN" aSSIGN' ::  HoppyF.Ptr QDir -> HoppyF.Ptr QDirConst -> HoppyP.IO (HoppyF.Ptr QDir)+foreign import ccall "gendel__QDir" delete'QDir :: HoppyF.Ptr QDirConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDir" deletePtr'QDir :: HoppyF.FunPtr (HoppyF.Ptr QDirConst -> HoppyP.IO ())++class QDirValue a where+  withQDirPtr :: a -> (QDirConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDirConstPtr a => QDirValue a where+  withQDirPtr = HoppyP.flip ($) . toQDirConst++class (HoppyFHR.CppPtr this) => QDirConstPtr this where+  toQDirConst :: this -> QDirConst++absoluteFilePath :: (QDirValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+absoluteFilePath arg'1 arg'2 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (absoluteFilePath' arg'1' arg'2')++absolutePath :: (QDirValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+absolutePath arg'1 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (absolutePath' arg'1')++canonicalPath :: (QDirValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+canonicalPath arg'1 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (canonicalPath' arg'1')++count :: (QDirValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+count arg'1 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1')++dirName :: (QDirValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+dirName arg'1 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (dirName' arg'1')++exists :: (QDirValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+exists arg'1 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (exists' arg'1')++entryExists :: (QDirValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+entryExists arg'1 arg'2 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (entryExists' arg'1' arg'2')++filePath :: (QDirValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+filePath arg'1 arg'2 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (filePath' arg'1' arg'2')++filter :: (QDirValue this) => (this) {- ^ this -} -> (HoppyP.IO QDirFilters)+filter arg'1 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (filter' arg'1')++isAbsolute :: (QDirValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isAbsolute arg'1 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isAbsolute' arg'1')++isReadable :: (QDirValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isReadable arg'1 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isReadable' arg'1')++isRelative :: (QDirValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isRelative arg'1 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isRelative' arg'1')++isRoot :: (QDirValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isRoot arg'1 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isRoot' arg'1')++mkdir :: (QDirValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+mkdir arg'1 arg'2 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (mkdir' arg'1' arg'2')++mkpath :: (QDirValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+mkpath arg'1 arg'2 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (mkpath' arg'1' arg'2')++path :: (QDirValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+path arg'1 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (path' arg'1')++relativeFilePath :: (QDirValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+relativeFilePath arg'1 arg'2 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (relativeFilePath' arg'1' arg'2')++rmdir :: (QDirValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+rmdir arg'1 arg'2 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (rmdir' arg'1' arg'2')++rmpath :: (QDirValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+rmpath arg'1 arg'2 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (rmpath' arg'1' arg'2')++sorting :: (QDirValue this) => (this) {- ^ this -} -> (HoppyP.IO QDirSortFlags)+sorting arg'1 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (sorting' arg'1')++aRRAY :: (QDirValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+aRRAY arg'1 arg'2 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (aRRAY' arg'1' arg'2')++eQ :: (QDirValue this, QDirValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDirPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QDirValue this, QDirValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQDirPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QDirConstPtr this) => QDirPtr this where+  toQDir :: this -> QDir++cd :: (QDirPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+cd arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDir arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (cd' arg'1' arg'2')++cdUp :: (QDirPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+cdUp arg'1 =+  HoppyFHR.withCppPtr (toQDir arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (cdUp' arg'1')++setFilter :: (QDirPtr this, IsQDirFilters arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFilter arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDir arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQDirFilters+  ) arg'2 >>= \arg'2' ->+  (setFilter' arg'1' arg'2')++makeAbsolute :: (QDirPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+makeAbsolute arg'1 =+  HoppyFHR.withCppPtr (toQDir arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (makeAbsolute' arg'1')++setPath :: (QDirPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setPath arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDir arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setPath' arg'1' arg'2')++refresh :: (QDirPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+refresh arg'1 =+  HoppyFHR.withCppPtr (toQDir arg'1) $ \arg'1' ->+  (refresh' arg'1')++remove :: (QDirPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+remove arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDir arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (remove' arg'1' arg'2')++removeRecursively :: (QDirPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+removeRecursively arg'1 =+  HoppyFHR.withCppPtr (toQDir arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeRecursively' arg'1')++rename :: (QDirPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+rename arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQDir arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (rename' arg'1' arg'2' arg'3')++setSorting :: (QDirPtr this, IsQDirSortFlags arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setSorting arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDir arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQDirSortFlags+  ) arg'2 >>= \arg'2' ->+  (setSorting' arg'1' arg'2')++swap :: (QDirPtr this, QDirPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDir arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQDir arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++aSSIGN :: (QDirPtr this, QDirValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QDir)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDir arg'1) $ \arg'1' ->+  withQDirPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QDir+  (aSSIGN' arg'1' arg'2')++addSearchPath :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO ())+addSearchPath arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (addSearchPath' arg'1' arg'2')++cleanPath :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QtahP.String)+cleanPath arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (cleanPath' arg'1')++current :: (HoppyP.IO QDir)+current =+  (HoppyFHR.decodeAndDelete . QDirConst) =<<+  (current')++currentPath :: (HoppyP.IO QtahP.String)+currentPath =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (currentPath')++fromNativeSeparators :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QtahP.String)+fromNativeSeparators arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (fromNativeSeparators' arg'1')++home :: (HoppyP.IO QDir)+home =+  (HoppyFHR.decodeAndDelete . QDirConst) =<<+  (home')++homePath :: (HoppyP.IO QtahP.String)+homePath =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (homePath')++isAbsolutePath :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Bool)+isAbsolutePath arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isAbsolutePath' arg'1')++isRelativePath :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Bool)+isRelativePath arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isRelativePath' arg'1')++match :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+match arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (match' arg'1' arg'2')++root :: (HoppyP.IO QDir)+root =+  (HoppyFHR.decodeAndDelete . QDirConst) =<<+  (root')++rootPath :: (HoppyP.IO QtahP.String)+rootPath =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (rootPath')++separator :: (HoppyP.IO QtahP.Char)+separator =+  (HoppyFHR.decodeAndDelete . M16.QCharConst) =<<+  (separator')++setCurrent :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Bool)+setCurrent arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (setCurrent' arg'1')++temp :: (HoppyP.IO QDir)+temp =+  (HoppyFHR.decodeAndDelete . QDirConst) =<<+  (temp')++tempPath :: (HoppyP.IO QtahP.String)+tempPath =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (tempPath')++toNativeSeparators :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QtahP.String)+toNativeSeparators arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toNativeSeparators' arg'1')++data QDirConst =+    QDirConst (HoppyF.Ptr QDirConst)+  | QDirConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDirConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDirConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDirConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDirToConst :: QDir -> QDirConst+castQDirToConst (QDir ptr') = QDirConst $ HoppyF.castPtr ptr'+castQDirToConst (QDirGc fptr' ptr') = QDirConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDirConst where+  nullptr = QDirConst HoppyF.nullPtr+  +  withCppPtr (QDirConst ptr') f' = f' ptr'+  withCppPtr (QDirConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDirConst ptr') = ptr'+  toPtr (QDirConstGc _ ptr') = ptr'+  +  touchCppPtr (QDirConst _) = HoppyP.return ()+  touchCppPtr (QDirConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDirConst where+  delete (QDirConst ptr') = delete'QDir ptr'+  delete (QDirConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDirConst", " object."]+  +  toGc this'@(QDirConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDirConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDir :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDirConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QDirConst QDir where copy = newCopy++instance QDirConstPtr QDirConst where+  toQDirConst = HoppyP.id++data QDir =+    QDir (HoppyF.Ptr QDir)+  | QDirGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDir)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDir where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDir where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDirToNonconst :: QDirConst -> QDir+castQDirToNonconst (QDirConst ptr') = QDir $ HoppyF.castPtr ptr'+castQDirToNonconst (QDirConstGc fptr' ptr') = QDirGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDir where+  nullptr = QDir HoppyF.nullPtr+  +  withCppPtr (QDir ptr') f' = f' ptr'+  withCppPtr (QDirGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDir ptr') = ptr'+  toPtr (QDirGc _ ptr') = ptr'+  +  touchCppPtr (QDir _) = HoppyP.return ()+  touchCppPtr (QDirGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDir where+  delete (QDir ptr') = delete'QDir $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDirConst)+  delete (QDirGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDir", " object."]+  +  toGc this'@(QDir ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDirGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDir :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDirGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QDir QDir where copy = newCopy++instance QDirConstPtr QDir where+  toQDirConst (QDir ptr') = QDirConst $ (HoppyF.castPtr :: HoppyF.Ptr QDir -> HoppyF.Ptr QDirConst) ptr'+  toQDirConst (QDirGc fptr' ptr') = QDirConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDir -> HoppyF.Ptr QDirConst) ptr'++instance QDirPtr QDir where+  toQDir = HoppyP.id++new :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QDir)+new arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QDir+  (new' arg'1')++newCopy :: (QDirValue arg'1) => (arg'1) -> (HoppyP.IO QDir)+newCopy arg'1 =+  withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QDir+  (newCopy' arg'1')++class QDirSuper a where+  downToQDir :: a -> QDir+++class QDirSuperConst a where+  downToQDirConst :: a -> QDirConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDir)) QDir where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QDirValue a => HoppyFHR.Assignable QDir a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDir)) QDir where+  decode = HoppyP.fmap QDir . HoppyF.peek++instance HoppyFHR.Decodable QDir (QDir) where+  decode = HoppyFHR.decode . toQDirConst++instance HoppyFHR.Decodable QDirConst (QDir) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc++data QDirFilter =+  Dirs+  | AllDirs+  | Files+  | Drives+  | NoSymLinks+  | NoDotAndDotDot+  | NoDot+  | NoDotDot+  | AllEntries+  | Readable+  | Writable+  | Executable+  | Modified+  | Hidden+  | System+  | CaseSensitive+  | UnknownQDirFilter (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QDirFilter where+  fromCppEnum Dirs = 1+  fromCppEnum AllDirs = 1024+  fromCppEnum Files = 2+  fromCppEnum Drives = 4+  fromCppEnum NoSymLinks = 8+  fromCppEnum NoDotAndDotDot = 24576+  fromCppEnum NoDot = 8192+  fromCppEnum NoDotDot = 16384+  fromCppEnum AllEntries = 7+  fromCppEnum Readable = 16+  fromCppEnum Writable = 32+  fromCppEnum Executable = 64+  fromCppEnum Modified = 128+  fromCppEnum Hidden = 256+  fromCppEnum System = 512+  fromCppEnum CaseSensitive = 2048+  fromCppEnum (UnknownQDirFilter n) = n+  +  toCppEnum (1) = Dirs+  toCppEnum (2) = Files+  toCppEnum (4) = Drives+  toCppEnum (7) = AllEntries+  toCppEnum (8) = NoSymLinks+  toCppEnum (16) = Readable+  toCppEnum (32) = Writable+  toCppEnum (64) = Executable+  toCppEnum (128) = Modified+  toCppEnum (256) = Hidden+  toCppEnum (512) = System+  toCppEnum (1024) = AllDirs+  toCppEnum (2048) = CaseSensitive+  toCppEnum (8192) = NoDot+  toCppEnum (16384) = NoDotDot+  toCppEnum (24576) = NoDotAndDotDot+  toCppEnum n = UnknownQDirFilter n++instance HoppyP.Eq QDirFilter where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QDirFilter where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QDirFilters = QDirFilters (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QDirFilter QDirFilters where+  enumToFlags = QDirFilters . QtahFHR.fromCppEnum+  flagsToEnum (QDirFilters x') = QtahFHR.toCppEnum x'++class IsQDirFilters a where+  toQDirFilters :: a -> QDirFilters++instance IsQDirFilters QDirFilters where toQDirFilters = QtahP.id+instance IsQDirFilters QDirFilter where toQDirFilters = QtahFlags.enumToFlags+instance IsQDirFilters (HoppyFC.CInt) where toQDirFilters = QtahFlags.numToFlags++allDirs :: QDirFilters+allDirs = QDirFilters (1024)++allEntries :: QDirFilters+allEntries = QDirFilters (7)++caseSensitive :: QDirFilters+caseSensitive = QDirFilters (2048)++dirs :: QDirFilters+dirs = QDirFilters (1)++drives :: QDirFilters+drives = QDirFilters (4)++executable :: QDirFilters+executable = QDirFilters (64)++files :: QDirFilters+files = QDirFilters (2)++hidden :: QDirFilters+hidden = QDirFilters (256)++modified :: QDirFilters+modified = QDirFilters (128)++noDot :: QDirFilters+noDot = QDirFilters (8192)++noDotAndDotDot :: QDirFilters+noDotAndDotDot = QDirFilters (24576)++noDotDot :: QDirFilters+noDotDot = QDirFilters (16384)++noSymLinks :: QDirFilters+noSymLinks = QDirFilters (8)++readable :: QDirFilters+readable = QDirFilters (16)++system :: QDirFilters+system = QDirFilters (512)++writable :: QDirFilters+writable = QDirFilters (32)++instance QtahDB.Bits QDirFilters where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QDirSortFlag =+  Name+  | Time+  | Size+  | Typ+  | Unsorted+  | NoSort+  | DirsFirst+  | DirsLast+  | Reversed+  | IgnoreCase+  | LocaleAware+  | UnknownQDirSortFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QDirSortFlag where+  fromCppEnum Name = 0+  fromCppEnum Time = 1+  fromCppEnum Size = 2+  fromCppEnum Typ = 128+  fromCppEnum Unsorted = 3+  fromCppEnum NoSort = -1+  fromCppEnum DirsFirst = 4+  fromCppEnum DirsLast = 32+  fromCppEnum Reversed = 8+  fromCppEnum IgnoreCase = 16+  fromCppEnum LocaleAware = 64+  fromCppEnum (UnknownQDirSortFlag n) = n+  +  toCppEnum (-1) = NoSort+  toCppEnum (0) = Name+  toCppEnum (1) = Time+  toCppEnum (2) = Size+  toCppEnum (3) = Unsorted+  toCppEnum (4) = DirsFirst+  toCppEnum (8) = Reversed+  toCppEnum (16) = IgnoreCase+  toCppEnum (32) = DirsLast+  toCppEnum (64) = LocaleAware+  toCppEnum (128) = Typ+  toCppEnum n = UnknownQDirSortFlag n++instance HoppyP.Eq QDirSortFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QDirSortFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QDirSortFlags = QDirSortFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QDirSortFlag QDirSortFlags where+  enumToFlags = QDirSortFlags . QtahFHR.fromCppEnum+  flagsToEnum (QDirSortFlags x') = QtahFHR.toCppEnum x'++class IsQDirSortFlags a where+  toQDirSortFlags :: a -> QDirSortFlags++instance IsQDirSortFlags QDirSortFlags where toQDirSortFlags = QtahP.id+instance IsQDirSortFlags QDirSortFlag where toQDirSortFlags = QtahFlags.enumToFlags+instance IsQDirSortFlags (HoppyFC.CInt) where toQDirSortFlags = QtahFlags.numToFlags++dirsFirst :: QDirSortFlags+dirsFirst = QDirSortFlags (4)++dirsLast :: QDirSortFlags+dirsLast = QDirSortFlags (32)++ignoreCase :: QDirSortFlags+ignoreCase = QDirSortFlags (16)++localeAware :: QDirSortFlags+localeAware = QDirSortFlags (64)++name :: QDirSortFlags+name = QDirSortFlags (0)++noSort :: QDirSortFlags+noSort = QDirSortFlags (-1)++reversed :: QDirSortFlags+reversed = QDirSortFlags (8)++size :: QDirSortFlags+size = QDirSortFlags (2)++time :: QDirSortFlags+time = QDirSortFlags (1)++typ :: QDirSortFlags+typ = QDirSortFlags (128)++unsorted :: QDirSortFlags+unsorted = QDirSortFlags (3)++instance QtahDB.Bits QDirSortFlags where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum
src/Graphics/UI/Qtah/Generated/Core/QDirIterator.hs view
@@ -0,0 +1,344 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QDirIterator (+  QDirIteratorValue (..),+  QDirIteratorConstPtr (..),+  fileName,+  filePath,+  hasNext,+  path,+  QDirIteratorPtr (..),+  next,+  QDirIteratorConst (..),+  castQDirIteratorToConst,+  QDirIterator (..),+  castQDirIteratorToNonconst,+  new,+  newWithDirAndFlags,+  newWithString,+  newWithStringAndFlags,+  newWithStringAndFilters,+  newWithStringAndFiltersAndFlags,+  newWithStringAndStringList,+  newWithStringAndStringListAndFilters,+  newWithStringAndStringListAndFiltersAndFlags,+  QDirIteratorSuper (..),+  QDirIteratorSuperConst (..),+  QDirIteratorIteratorFlag (..),+  QDirIteratorIteratorFlags,+  IsQDirIteratorIteratorFlags (..),+  followSymlinks,+  noIteratorFlags,+  subdirectories,+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QDir as M30+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QStringList as M144+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QDirIterator_new" new' ::  HoppyF.Ptr M30.QDirConst -> HoppyP.IO (HoppyF.Ptr QDirIterator)+foreign import ccall "genpop__QDirIterator_newWithDirAndFlags" newWithDirAndFlags' ::  HoppyF.Ptr M30.QDirConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDirIterator)+foreign import ccall "genpop__QDirIterator_newWithString" newWithString' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QDirIterator)+foreign import ccall "genpop__QDirIterator_newWithStringAndFlags" newWithStringAndFlags' ::  HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDirIterator)+foreign import ccall "genpop__QDirIterator_newWithStringAndFilters" newWithStringAndFilters' ::  HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDirIterator)+foreign import ccall "genpop__QDirIterator_newWithStringAndFiltersAndFlags" newWithStringAndFiltersAndFlags' ::  HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDirIterator)+foreign import ccall "genpop__QDirIterator_newWithStringAndStringList" newWithStringAndStringList' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO (HoppyF.Ptr QDirIterator)+foreign import ccall "genpop__QDirIterator_newWithStringAndStringListAndFilters" newWithStringAndStringListAndFilters' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M144.QStringListConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDirIterator)+foreign import ccall "genpop__QDirIterator_newWithStringAndStringListAndFiltersAndFlags" newWithStringAndStringListAndFiltersAndFlags' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M144.QStringListConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDirIterator)+foreign import ccall "genpop__QDirIterator_fileName" fileName' ::  HoppyF.Ptr QDirIteratorConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDirIterator_filePath" filePath' ::  HoppyF.Ptr QDirIteratorConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDirIterator_hasNext" hasNext' ::  HoppyF.Ptr QDirIteratorConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDirIterator_next" next' ::  HoppyF.Ptr QDirIterator -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDirIterator_path" path' ::  HoppyF.Ptr QDirIteratorConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "gendel__QDirIterator" delete'QDirIterator :: HoppyF.Ptr QDirIteratorConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDirIterator" deletePtr'QDirIterator :: HoppyF.FunPtr (HoppyF.Ptr QDirIteratorConst -> HoppyP.IO ())++class QDirIteratorValue a where+  withQDirIteratorPtr :: a -> (QDirIteratorConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDirIteratorConstPtr a => QDirIteratorValue a where+  withQDirIteratorPtr = HoppyP.flip ($) . toQDirIteratorConst++class (HoppyFHR.CppPtr this) => QDirIteratorConstPtr this where+  toQDirIteratorConst :: this -> QDirIteratorConst++fileName :: (QDirIteratorValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+fileName arg'1 =+  withQDirIteratorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (fileName' arg'1')++filePath :: (QDirIteratorValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+filePath arg'1 =+  withQDirIteratorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (filePath' arg'1')++hasNext :: (QDirIteratorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasNext arg'1 =+  withQDirIteratorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasNext' arg'1')++path :: (QDirIteratorValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+path arg'1 =+  withQDirIteratorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (path' arg'1')++class (QDirIteratorConstPtr this) => QDirIteratorPtr this where+  toQDirIterator :: this -> QDirIterator++next :: (QDirIteratorPtr this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+next arg'1 =+  HoppyFHR.withCppPtr (toQDirIterator arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (next' arg'1')++data QDirIteratorConst =+    QDirIteratorConst (HoppyF.Ptr QDirIteratorConst)+  | QDirIteratorConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDirIteratorConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDirIteratorConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDirIteratorConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDirIteratorToConst :: QDirIterator -> QDirIteratorConst+castQDirIteratorToConst (QDirIterator ptr') = QDirIteratorConst $ HoppyF.castPtr ptr'+castQDirIteratorToConst (QDirIteratorGc fptr' ptr') = QDirIteratorConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDirIteratorConst where+  nullptr = QDirIteratorConst HoppyF.nullPtr+  +  withCppPtr (QDirIteratorConst ptr') f' = f' ptr'+  withCppPtr (QDirIteratorConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDirIteratorConst ptr') = ptr'+  toPtr (QDirIteratorConstGc _ ptr') = ptr'+  +  touchCppPtr (QDirIteratorConst _) = HoppyP.return ()+  touchCppPtr (QDirIteratorConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDirIteratorConst where+  delete (QDirIteratorConst ptr') = delete'QDirIterator ptr'+  delete (QDirIteratorConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDirIteratorConst", " object."]+  +  toGc this'@(QDirIteratorConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDirIteratorConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDirIterator :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDirIteratorConstGc {}) = HoppyP.return this'++instance QDirIteratorConstPtr QDirIteratorConst where+  toQDirIteratorConst = HoppyP.id++data QDirIterator =+    QDirIterator (HoppyF.Ptr QDirIterator)+  | QDirIteratorGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDirIterator)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDirIterator where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDirIterator where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDirIteratorToNonconst :: QDirIteratorConst -> QDirIterator+castQDirIteratorToNonconst (QDirIteratorConst ptr') = QDirIterator $ HoppyF.castPtr ptr'+castQDirIteratorToNonconst (QDirIteratorConstGc fptr' ptr') = QDirIteratorGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDirIterator where+  nullptr = QDirIterator HoppyF.nullPtr+  +  withCppPtr (QDirIterator ptr') f' = f' ptr'+  withCppPtr (QDirIteratorGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDirIterator ptr') = ptr'+  toPtr (QDirIteratorGc _ ptr') = ptr'+  +  touchCppPtr (QDirIterator _) = HoppyP.return ()+  touchCppPtr (QDirIteratorGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDirIterator where+  delete (QDirIterator ptr') = delete'QDirIterator $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDirIteratorConst)+  delete (QDirIteratorGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDirIterator", " object."]+  +  toGc this'@(QDirIterator ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDirIteratorGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDirIterator :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDirIteratorGc {}) = HoppyP.return this'++instance QDirIteratorConstPtr QDirIterator where+  toQDirIteratorConst (QDirIterator ptr') = QDirIteratorConst $ (HoppyF.castPtr :: HoppyF.Ptr QDirIterator -> HoppyF.Ptr QDirIteratorConst) ptr'+  toQDirIteratorConst (QDirIteratorGc fptr' ptr') = QDirIteratorConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDirIterator -> HoppyF.Ptr QDirIteratorConst) ptr'++instance QDirIteratorPtr QDirIterator where+  toQDirIterator = HoppyP.id++new :: (M30.QDirValue arg'1) => (arg'1) -> (HoppyP.IO QDirIterator)+new arg'1 =+  M30.withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QDirIterator+  (new' arg'1')++newWithDirAndFlags :: (M30.QDirValue arg'1, IsQDirIteratorIteratorFlags arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QDirIterator)+newWithDirAndFlags arg'1 arg'2 =+  M30.withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQDirIteratorIteratorFlags+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QDirIterator+  (newWithDirAndFlags' arg'1' arg'2')++newWithString :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QDirIterator)+newWithString arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QDirIterator+  (newWithString' arg'1')++newWithStringAndFlags :: (M142.QStringValue arg'1, IsQDirIteratorIteratorFlags arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QDirIterator)+newWithStringAndFlags arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQDirIteratorIteratorFlags+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QDirIterator+  (newWithStringAndFlags' arg'1' arg'2')++newWithStringAndFilters :: (M142.QStringValue arg'1, M30.IsQDirFilters arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QDirIterator)+newWithStringAndFilters arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M30.toQDirFilters+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QDirIterator+  (newWithStringAndFilters' arg'1' arg'2')++newWithStringAndFiltersAndFlags :: (M142.QStringValue arg'1, M30.IsQDirFilters arg'2, IsQDirIteratorIteratorFlags arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO QDirIterator)+newWithStringAndFiltersAndFlags arg'1 arg'2 arg'3 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M30.toQDirFilters+  ) arg'2 >>= \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQDirIteratorIteratorFlags+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QDirIterator+  (newWithStringAndFiltersAndFlags' arg'1' arg'2' arg'3')++newWithStringAndStringList :: (M142.QStringValue arg'1, M144.QStringListValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QDirIterator)+newWithStringAndStringList arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QDirIterator+  (newWithStringAndStringList' arg'1' arg'2')++newWithStringAndStringListAndFilters :: (M142.QStringValue arg'1, M144.QStringListValue arg'2, M30.IsQDirFilters arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO QDirIterator)+newWithStringAndStringListAndFilters arg'1 arg'2 arg'3 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M30.toQDirFilters+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QDirIterator+  (newWithStringAndStringListAndFilters' arg'1' arg'2' arg'3')++newWithStringAndStringListAndFiltersAndFlags :: (M142.QStringValue arg'1, M144.QStringListValue arg'2, M30.IsQDirFilters arg'3, IsQDirIteratorIteratorFlags arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO QDirIterator)+newWithStringAndStringListAndFiltersAndFlags arg'1 arg'2 arg'3 arg'4 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M30.toQDirFilters+  ) arg'3 >>= \arg'3' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQDirIteratorIteratorFlags+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QDirIterator+  (newWithStringAndStringListAndFiltersAndFlags' arg'1' arg'2' arg'3' arg'4')++class QDirIteratorSuper a where+  downToQDirIterator :: a -> QDirIterator+++class QDirIteratorSuperConst a where+  downToQDirIteratorConst :: a -> QDirIteratorConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDirIterator)) QDirIterator where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDirIterator)) QDirIterator where+  decode = HoppyP.fmap QDirIterator . HoppyF.peek++data QDirIteratorIteratorFlag =+  NoIteratorFlags+  | Subdirectories+  | FollowSymlinks+  | UnknownQDirIteratorIteratorFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QDirIteratorIteratorFlag where+  fromCppEnum NoIteratorFlags = 0+  fromCppEnum Subdirectories = 2+  fromCppEnum FollowSymlinks = 1+  fromCppEnum (UnknownQDirIteratorIteratorFlag n) = n+  +  toCppEnum (0) = NoIteratorFlags+  toCppEnum (1) = FollowSymlinks+  toCppEnum (2) = Subdirectories+  toCppEnum n = UnknownQDirIteratorIteratorFlag n++instance HoppyP.Eq QDirIteratorIteratorFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QDirIteratorIteratorFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QDirIteratorIteratorFlags = QDirIteratorIteratorFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QDirIteratorIteratorFlag QDirIteratorIteratorFlags where+  enumToFlags = QDirIteratorIteratorFlags . QtahFHR.fromCppEnum+  flagsToEnum (QDirIteratorIteratorFlags x') = QtahFHR.toCppEnum x'++class IsQDirIteratorIteratorFlags a where+  toQDirIteratorIteratorFlags :: a -> QDirIteratorIteratorFlags++instance IsQDirIteratorIteratorFlags QDirIteratorIteratorFlags where toQDirIteratorIteratorFlags = QtahP.id+instance IsQDirIteratorIteratorFlags QDirIteratorIteratorFlag where toQDirIteratorIteratorFlags = QtahFlags.enumToFlags+instance IsQDirIteratorIteratorFlags (HoppyFC.CInt) where toQDirIteratorIteratorFlags = QtahFlags.numToFlags++followSymlinks :: QDirIteratorIteratorFlags+followSymlinks = QDirIteratorIteratorFlags (1)++noIteratorFlags :: QDirIteratorIteratorFlags+noIteratorFlags = QDirIteratorIteratorFlags (0)++subdirectories :: QDirIteratorIteratorFlags+subdirectories = QDirIteratorIteratorFlags (2)++instance QtahDB.Bits QDirIteratorIteratorFlags where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum
src/Graphics/UI/Qtah/Generated/Core/QEvent.hs view
@@ -0,0 +1,668 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QEvent (+  QEventValue (..),+  QEventConstPtr (..),+  isAccepted,+  spontaneous,+  eventType,+  QEventPtr (..),+  accept,+  setAccepted,+  ignore,+  registerEventType,+  registerEventTypeWithHint,+  QEventConst (..),+  castQEventToConst,+  QEvent (..),+  castQEventToNonconst,+  new,+  QEventSuper (..),+  QEventSuperConst (..),+  QEventType (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QEvent_new" new' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QEvent)+foreign import ccall "genpop__QEvent_accept" accept' ::  HoppyF.Ptr QEvent -> HoppyP.IO ()+foreign import ccall "genpop__QEvent_isAccepted" isAccepted' ::  HoppyF.Ptr QEventConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QEvent_setAccepted" setAccepted' ::  HoppyF.Ptr QEvent -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QEvent_ignore" ignore' ::  HoppyF.Ptr QEvent -> HoppyP.IO ()+foreign import ccall "genpop__QEvent_registerEventType" registerEventType' ::  HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QEvent_registerEventTypeWithHint" registerEventTypeWithHint' ::  HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QEvent_spontaneous" spontaneous' ::  HoppyF.Ptr QEventConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QEvent_eventType" eventType' ::  HoppyF.Ptr QEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "gendel__QEvent" delete'QEvent :: HoppyF.Ptr QEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QEvent" deletePtr'QEvent :: HoppyF.FunPtr (HoppyF.Ptr QEventConst -> HoppyP.IO ())++class QEventValue a where+  withQEventPtr :: a -> (QEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QEventConstPtr a => QEventValue a where+  withQEventPtr = HoppyP.flip ($) . toQEventConst++class (HoppyFHR.CppPtr this) => QEventConstPtr this where+  toQEventConst :: this -> QEventConst++isAccepted :: (QEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isAccepted arg'1 =+  withQEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isAccepted' arg'1')++spontaneous :: (QEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+spontaneous arg'1 =+  withQEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (spontaneous' arg'1')++eventType :: (QEventValue this) => (this) {- ^ this -} -> (HoppyP.IO QEventType)+eventType arg'1 =+  withQEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (eventType' arg'1')++class (QEventConstPtr this) => QEventPtr this where+  toQEvent :: this -> QEvent++accept :: (QEventPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+accept arg'1 =+  HoppyFHR.withCppPtr (toQEvent arg'1) $ \arg'1' ->+  (accept' arg'1')++setAccepted :: (QEventPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setAccepted arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQEvent arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAccepted' arg'1' arg'2')++ignore :: (QEventPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+ignore arg'1 =+  HoppyFHR.withCppPtr (toQEvent arg'1) $ \arg'1' ->+  (ignore' arg'1')++registerEventType :: (HoppyP.IO HoppyP.Int)+registerEventType =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (registerEventType')++registerEventTypeWithHint :: (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+registerEventTypeWithHint arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (registerEventTypeWithHint' arg'1')++data QEventConst =+    QEventConst (HoppyF.Ptr QEventConst)+  | QEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQEventToConst :: QEvent -> QEventConst+castQEventToConst (QEvent ptr') = QEventConst $ HoppyF.castPtr ptr'+castQEventToConst (QEventGc fptr' ptr') = QEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QEventConst where+  nullptr = QEventConst HoppyF.nullPtr+  +  withCppPtr (QEventConst ptr') f' = f' ptr'+  withCppPtr (QEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QEventConst ptr') = ptr'+  toPtr (QEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QEventConst _) = HoppyP.return ()+  touchCppPtr (QEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QEventConst where+  delete (QEventConst ptr') = delete'QEvent ptr'+  delete (QEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QEventConst", " object."]+  +  toGc this'@(QEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QEventConstGc {}) = HoppyP.return this'++instance QEventConstPtr QEventConst where+  toQEventConst = HoppyP.id++data QEvent =+    QEvent (HoppyF.Ptr QEvent)+  | QEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQEventToNonconst :: QEventConst -> QEvent+castQEventToNonconst (QEventConst ptr') = QEvent $ HoppyF.castPtr ptr'+castQEventToNonconst (QEventConstGc fptr' ptr') = QEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QEvent where+  nullptr = QEvent HoppyF.nullPtr+  +  withCppPtr (QEvent ptr') f' = f' ptr'+  withCppPtr (QEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QEvent ptr') = ptr'+  toPtr (QEventGc _ ptr') = ptr'+  +  touchCppPtr (QEvent _) = HoppyP.return ()+  touchCppPtr (QEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QEvent where+  delete (QEvent ptr') = delete'QEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QEventConst)+  delete (QEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QEvent", " object."]+  +  toGc this'@(QEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QEventGc {}) = HoppyP.return this'++instance QEventConstPtr QEvent where+  toQEventConst (QEvent ptr') = QEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QEvent -> HoppyF.Ptr QEventConst) ptr'+  toQEventConst (QEventGc fptr' ptr') = QEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QEvent -> HoppyF.Ptr QEventConst) ptr'++instance QEventPtr QEvent where+  toQEvent = HoppyP.id++new :: (QEventType) -> (HoppyP.IO QEvent)+new arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QEvent+  (new' arg'1')++class QEventSuper a where+  downToQEvent :: a -> QEvent+++class QEventSuperConst a where+  downToQEventConst :: a -> QEventConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QEvent)) QEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QEvent)) QEvent where+  decode = HoppyP.fmap QEvent . HoppyF.peek++data QEventType =+  None+  | ActionAdded+  | ActionChanged+  | ActionRemoved+  | ActivationChange+  | ApplicationActivate+  | ApplicationActivated+  | ApplicationDeactivate+  | ApplicationFontChange+  | ApplicationLayoutDirectionChange+  | ApplicationPaletteChange+  | ApplicationStateChange+  | ApplicationWindowIconChange+  | ChildAdded+  | ChildPolished+  | ChildRemoved+  | Clipboard+  | Close+  | CloseSoftwareInputPanel+  | ContentsRectChange+  | ContextMenu+  | CursorChange+  | DeferredDelete+  | DragEnter+  | DragLeave+  | DragMove+  | Drop+  | DynamicPropertyChange+  | EnabledChange+  | Enter+  | EnterWhatsThisMode+  | Expose+  | FileOpen+  | FocusIn+  | FocusOut+  | FocusAboutToChange+  | FontChange+  | Gesture+  | GestureOverride+  | GrabKeyboard+  | GrabMouse+  | GraphicsSceneContextMenu+  | GraphicsSceneDragEnter+  | GraphicsSceneDragLeave+  | GraphicsSceneDragMove+  | GraphicsSceneDrop+  | GraphicsSceneHelp+  | GraphicsSceneHoverEnter+  | GraphicsSceneHoverLeave+  | GraphicsSceneHoverMove+  | GraphicsSceneMouseDoubleClick+  | GraphicsSceneMouseMove+  | GraphicsSceneMousePress+  | GraphicsSceneMouseRelease+  | GraphicsSceneMove+  | GraphicsSceneResize+  | GraphicsSceneWheel+  | Hide+  | HideToParent+  | HoverEnter+  | HoverLeave+  | HoverMove+  | IconDrag+  | IconTextChange+  | InputMethod+  | InputMethodQuery+  | KeyboardLayoutChange+  | KeyPress+  | KeyRelease+  | LanguageChange+  | LayoutDirectionChange+  | LayoutRequest+  | Leave+  | LeaveWhatsThisMode+  | LocaleChange+  | NonClientAreaMouseButtonDblClick+  | NonClientAreaMouseButtonPress+  | NonClientAreaMouseButtonRelease+  | NonClientAreaMouseMove+  | MacSizeChange+  | MetaCall+  | ModifiedChange+  | MouseButtonDblClick+  | MouseButtonPress+  | MouseButtonRelease+  | MouseMove+  | MouseTrackingChange+  | Move+  | NativeGesture+  | OrientationChange+  | Paint+  | PaletteChange+  | ParentAboutToChange+  | ParentChange+  | PlatformPanel+  | PlatformSurface+  | Polish+  | PolishRequest+  | QueryWhatsThis+  | ReadOnlyChange+  | RequestSoftwareInputPanel+  | Resize+  | ScrollPrepare+  | Scroll+  | Shortcut+  | ShortcutOverride+  | Show+  | ShowToParent+  | SockAct+  | StateMachineSignal+  | StateMachineWrapped+  | StatusTip+  | StyleChange+  | TabletMove+  | TabletPress+  | TabletRelease+  | OkRequest+  | TabletEnterProximity+  | TabletLeaveProximity+  | ThreadChange+  | Timer+  | ToolBarChange+  | ToolTip+  | ToolTipChange+  | TouchBegin+  | TouchCancel+  | TouchEnd+  | TouchUpdate+  | UngrabKeyboard+  | UngrabMouse+  | UpdateLater+  | UpdateRequest+  | WhatsThis+  | WhatsThisClicked+  | Wheel+  | WinEventAct+  | WindowActivate+  | WindowBlocked+  | WindowDeactivate+  | WindowIconChange+  | WindowStateChange+  | WindowTitleChange+  | WindowUnblocked+  | WinIdChange+  | ZOrderChange+  | User+  | MaxUser+  | UnknownQEventType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QEventType where+  fromCppEnum None = 0+  fromCppEnum ActionAdded = 114+  fromCppEnum ActionChanged = 113+  fromCppEnum ActionRemoved = 115+  fromCppEnum ActivationChange = 99+  fromCppEnum ApplicationActivate = 121+  fromCppEnum ApplicationActivated = 121+  fromCppEnum ApplicationDeactivate = 122+  fromCppEnum ApplicationFontChange = 36+  fromCppEnum ApplicationLayoutDirectionChange = 37+  fromCppEnum ApplicationPaletteChange = 38+  fromCppEnum ApplicationStateChange = 214+  fromCppEnum ApplicationWindowIconChange = 35+  fromCppEnum ChildAdded = 68+  fromCppEnum ChildPolished = 69+  fromCppEnum ChildRemoved = 71+  fromCppEnum Clipboard = 40+  fromCppEnum Close = 19+  fromCppEnum CloseSoftwareInputPanel = 200+  fromCppEnum ContentsRectChange = 178+  fromCppEnum ContextMenu = 82+  fromCppEnum CursorChange = 183+  fromCppEnum DeferredDelete = 52+  fromCppEnum DragEnter = 60+  fromCppEnum DragLeave = 62+  fromCppEnum DragMove = 61+  fromCppEnum Drop = 63+  fromCppEnum DynamicPropertyChange = 170+  fromCppEnum EnabledChange = 98+  fromCppEnum Enter = 10+  fromCppEnum EnterWhatsThisMode = 124+  fromCppEnum Expose = 206+  fromCppEnum FileOpen = 116+  fromCppEnum FocusIn = 8+  fromCppEnum FocusOut = 9+  fromCppEnum FocusAboutToChange = 23+  fromCppEnum FontChange = 97+  fromCppEnum Gesture = 198+  fromCppEnum GestureOverride = 202+  fromCppEnum GrabKeyboard = 188+  fromCppEnum GrabMouse = 186+  fromCppEnum GraphicsSceneContextMenu = 159+  fromCppEnum GraphicsSceneDragEnter = 164+  fromCppEnum GraphicsSceneDragLeave = 166+  fromCppEnum GraphicsSceneDragMove = 165+  fromCppEnum GraphicsSceneDrop = 167+  fromCppEnum GraphicsSceneHelp = 163+  fromCppEnum GraphicsSceneHoverEnter = 160+  fromCppEnum GraphicsSceneHoverLeave = 162+  fromCppEnum GraphicsSceneHoverMove = 161+  fromCppEnum GraphicsSceneMouseDoubleClick = 158+  fromCppEnum GraphicsSceneMouseMove = 155+  fromCppEnum GraphicsSceneMousePress = 156+  fromCppEnum GraphicsSceneMouseRelease = 157+  fromCppEnum GraphicsSceneMove = 182+  fromCppEnum GraphicsSceneResize = 181+  fromCppEnum GraphicsSceneWheel = 168+  fromCppEnum Hide = 18+  fromCppEnum HideToParent = 27+  fromCppEnum HoverEnter = 127+  fromCppEnum HoverLeave = 128+  fromCppEnum HoverMove = 129+  fromCppEnum IconDrag = 96+  fromCppEnum IconTextChange = 101+  fromCppEnum InputMethod = 83+  fromCppEnum InputMethodQuery = 207+  fromCppEnum KeyboardLayoutChange = 169+  fromCppEnum KeyPress = 6+  fromCppEnum KeyRelease = 7+  fromCppEnum LanguageChange = 89+  fromCppEnum LayoutDirectionChange = 90+  fromCppEnum LayoutRequest = 76+  fromCppEnum Leave = 11+  fromCppEnum LeaveWhatsThisMode = 125+  fromCppEnum LocaleChange = 88+  fromCppEnum NonClientAreaMouseButtonDblClick = 176+  fromCppEnum NonClientAreaMouseButtonPress = 174+  fromCppEnum NonClientAreaMouseButtonRelease = 175+  fromCppEnum NonClientAreaMouseMove = 173+  fromCppEnum MacSizeChange = 177+  fromCppEnum MetaCall = 43+  fromCppEnum ModifiedChange = 102+  fromCppEnum MouseButtonDblClick = 4+  fromCppEnum MouseButtonPress = 2+  fromCppEnum MouseButtonRelease = 3+  fromCppEnum MouseMove = 5+  fromCppEnum MouseTrackingChange = 109+  fromCppEnum Move = 13+  fromCppEnum NativeGesture = 197+  fromCppEnum OrientationChange = 208+  fromCppEnum Paint = 12+  fromCppEnum PaletteChange = 39+  fromCppEnum ParentAboutToChange = 131+  fromCppEnum ParentChange = 21+  fromCppEnum PlatformPanel = 212+  fromCppEnum PlatformSurface = 217+  fromCppEnum Polish = 75+  fromCppEnum PolishRequest = 74+  fromCppEnum QueryWhatsThis = 123+  fromCppEnum ReadOnlyChange = 106+  fromCppEnum RequestSoftwareInputPanel = 199+  fromCppEnum Resize = 14+  fromCppEnum ScrollPrepare = 204+  fromCppEnum Scroll = 205+  fromCppEnum Shortcut = 117+  fromCppEnum ShortcutOverride = 51+  fromCppEnum Show = 17+  fromCppEnum ShowToParent = 26+  fromCppEnum SockAct = 50+  fromCppEnum StateMachineSignal = 192+  fromCppEnum StateMachineWrapped = 193+  fromCppEnum StatusTip = 112+  fromCppEnum StyleChange = 100+  fromCppEnum TabletMove = 87+  fromCppEnum TabletPress = 92+  fromCppEnum TabletRelease = 93+  fromCppEnum OkRequest = 94+  fromCppEnum TabletEnterProximity = 171+  fromCppEnum TabletLeaveProximity = 172+  fromCppEnum ThreadChange = 22+  fromCppEnum Timer = 1+  fromCppEnum ToolBarChange = 120+  fromCppEnum ToolTip = 110+  fromCppEnum ToolTipChange = 184+  fromCppEnum TouchBegin = 194+  fromCppEnum TouchCancel = 209+  fromCppEnum TouchEnd = 196+  fromCppEnum TouchUpdate = 195+  fromCppEnum UngrabKeyboard = 189+  fromCppEnum UngrabMouse = 187+  fromCppEnum UpdateLater = 78+  fromCppEnum UpdateRequest = 77+  fromCppEnum WhatsThis = 111+  fromCppEnum WhatsThisClicked = 118+  fromCppEnum Wheel = 31+  fromCppEnum WinEventAct = 132+  fromCppEnum WindowActivate = 24+  fromCppEnum WindowBlocked = 103+  fromCppEnum WindowDeactivate = 25+  fromCppEnum WindowIconChange = 34+  fromCppEnum WindowStateChange = 105+  fromCppEnum WindowTitleChange = 33+  fromCppEnum WindowUnblocked = 104+  fromCppEnum WinIdChange = 203+  fromCppEnum ZOrderChange = 126+  fromCppEnum User = 1000+  fromCppEnum MaxUser = 65535+  fromCppEnum (UnknownQEventType n) = n+  +  toCppEnum (0) = None+  toCppEnum (1) = Timer+  toCppEnum (2) = MouseButtonPress+  toCppEnum (3) = MouseButtonRelease+  toCppEnum (4) = MouseButtonDblClick+  toCppEnum (5) = MouseMove+  toCppEnum (6) = KeyPress+  toCppEnum (7) = KeyRelease+  toCppEnum (8) = FocusIn+  toCppEnum (9) = FocusOut+  toCppEnum (10) = Enter+  toCppEnum (11) = Leave+  toCppEnum (12) = Paint+  toCppEnum (13) = Move+  toCppEnum (14) = Resize+  toCppEnum (17) = Show+  toCppEnum (18) = Hide+  toCppEnum (19) = Close+  toCppEnum (21) = ParentChange+  toCppEnum (22) = ThreadChange+  toCppEnum (23) = FocusAboutToChange+  toCppEnum (24) = WindowActivate+  toCppEnum (25) = WindowDeactivate+  toCppEnum (26) = ShowToParent+  toCppEnum (27) = HideToParent+  toCppEnum (31) = Wheel+  toCppEnum (33) = WindowTitleChange+  toCppEnum (34) = WindowIconChange+  toCppEnum (35) = ApplicationWindowIconChange+  toCppEnum (36) = ApplicationFontChange+  toCppEnum (37) = ApplicationLayoutDirectionChange+  toCppEnum (38) = ApplicationPaletteChange+  toCppEnum (39) = PaletteChange+  toCppEnum (40) = Clipboard+  toCppEnum (43) = MetaCall+  toCppEnum (50) = SockAct+  toCppEnum (51) = ShortcutOverride+  toCppEnum (52) = DeferredDelete+  toCppEnum (60) = DragEnter+  toCppEnum (61) = DragMove+  toCppEnum (62) = DragLeave+  toCppEnum (63) = Drop+  toCppEnum (68) = ChildAdded+  toCppEnum (69) = ChildPolished+  toCppEnum (71) = ChildRemoved+  toCppEnum (74) = PolishRequest+  toCppEnum (75) = Polish+  toCppEnum (76) = LayoutRequest+  toCppEnum (77) = UpdateRequest+  toCppEnum (78) = UpdateLater+  toCppEnum (82) = ContextMenu+  toCppEnum (83) = InputMethod+  toCppEnum (87) = TabletMove+  toCppEnum (88) = LocaleChange+  toCppEnum (89) = LanguageChange+  toCppEnum (90) = LayoutDirectionChange+  toCppEnum (92) = TabletPress+  toCppEnum (93) = TabletRelease+  toCppEnum (94) = OkRequest+  toCppEnum (96) = IconDrag+  toCppEnum (97) = FontChange+  toCppEnum (98) = EnabledChange+  toCppEnum (99) = ActivationChange+  toCppEnum (100) = StyleChange+  toCppEnum (101) = IconTextChange+  toCppEnum (102) = ModifiedChange+  toCppEnum (103) = WindowBlocked+  toCppEnum (104) = WindowUnblocked+  toCppEnum (105) = WindowStateChange+  toCppEnum (106) = ReadOnlyChange+  toCppEnum (109) = MouseTrackingChange+  toCppEnum (110) = ToolTip+  toCppEnum (111) = WhatsThis+  toCppEnum (112) = StatusTip+  toCppEnum (113) = ActionChanged+  toCppEnum (114) = ActionAdded+  toCppEnum (115) = ActionRemoved+  toCppEnum (116) = FileOpen+  toCppEnum (117) = Shortcut+  toCppEnum (118) = WhatsThisClicked+  toCppEnum (120) = ToolBarChange+  toCppEnum (121) = ApplicationActivated+  toCppEnum (122) = ApplicationDeactivate+  toCppEnum (123) = QueryWhatsThis+  toCppEnum (124) = EnterWhatsThisMode+  toCppEnum (125) = LeaveWhatsThisMode+  toCppEnum (126) = ZOrderChange+  toCppEnum (127) = HoverEnter+  toCppEnum (128) = HoverLeave+  toCppEnum (129) = HoverMove+  toCppEnum (131) = ParentAboutToChange+  toCppEnum (132) = WinEventAct+  toCppEnum (155) = GraphicsSceneMouseMove+  toCppEnum (156) = GraphicsSceneMousePress+  toCppEnum (157) = GraphicsSceneMouseRelease+  toCppEnum (158) = GraphicsSceneMouseDoubleClick+  toCppEnum (159) = GraphicsSceneContextMenu+  toCppEnum (160) = GraphicsSceneHoverEnter+  toCppEnum (161) = GraphicsSceneHoverMove+  toCppEnum (162) = GraphicsSceneHoverLeave+  toCppEnum (163) = GraphicsSceneHelp+  toCppEnum (164) = GraphicsSceneDragEnter+  toCppEnum (165) = GraphicsSceneDragMove+  toCppEnum (166) = GraphicsSceneDragLeave+  toCppEnum (167) = GraphicsSceneDrop+  toCppEnum (168) = GraphicsSceneWheel+  toCppEnum (169) = KeyboardLayoutChange+  toCppEnum (170) = DynamicPropertyChange+  toCppEnum (171) = TabletEnterProximity+  toCppEnum (172) = TabletLeaveProximity+  toCppEnum (173) = NonClientAreaMouseMove+  toCppEnum (174) = NonClientAreaMouseButtonPress+  toCppEnum (175) = NonClientAreaMouseButtonRelease+  toCppEnum (176) = NonClientAreaMouseButtonDblClick+  toCppEnum (177) = MacSizeChange+  toCppEnum (178) = ContentsRectChange+  toCppEnum (181) = GraphicsSceneResize+  toCppEnum (182) = GraphicsSceneMove+  toCppEnum (183) = CursorChange+  toCppEnum (184) = ToolTipChange+  toCppEnum (186) = GrabMouse+  toCppEnum (187) = UngrabMouse+  toCppEnum (188) = GrabKeyboard+  toCppEnum (189) = UngrabKeyboard+  toCppEnum (192) = StateMachineSignal+  toCppEnum (193) = StateMachineWrapped+  toCppEnum (194) = TouchBegin+  toCppEnum (195) = TouchUpdate+  toCppEnum (196) = TouchEnd+  toCppEnum (197) = NativeGesture+  toCppEnum (198) = Gesture+  toCppEnum (199) = RequestSoftwareInputPanel+  toCppEnum (200) = CloseSoftwareInputPanel+  toCppEnum (202) = GestureOverride+  toCppEnum (203) = WinIdChange+  toCppEnum (204) = ScrollPrepare+  toCppEnum (205) = Scroll+  toCppEnum (206) = Expose+  toCppEnum (207) = InputMethodQuery+  toCppEnum (208) = OrientationChange+  toCppEnum (209) = TouchCancel+  toCppEnum (212) = PlatformPanel+  toCppEnum (214) = ApplicationStateChange+  toCppEnum (217) = PlatformSurface+  toCppEnum (1000) = User+  toCppEnum (65535) = MaxUser+  toCppEnum n = UnknownQEventType n++instance HoppyP.Eq QEventType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QEventType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Core/QFile.hs view
@@ -0,0 +1,461 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QFile (+  castQFileToQFileDevice,+  castQFileDeviceToQFile,+  castQFileToQIODevice,+  castQIODeviceToQFile,+  castQFileToQObject,+  castQObjectToQFile,+  QFileValue (..),+  QFileConstPtr (..),+  exists,+  symLinkTarget,+  QFilePtr (..),+  copy,+  link,+  openWithFileDesc,+  openWithFileDescAndFlags,+  remove,+  rename,+  setFileName,+  copyStatic,+  decodeName,+  encodeName,+  existsStatic,+  linkStatic,+  permissionsStatic,+  removeStatic,+  renameStatic,+  resizeStatic,+  setPermissionsStatic,+  symLinkTargetStatic,+  QFileConst (..),+  castQFileToConst,+  QFile (..),+  castQFileToNonconst,+  new,+  newWithParent,+  newWithName,+  newWithNameAndParent,+  QFileSuper (..),+  QFileSuperConst (..),+  ) where++import qualified Data.ByteString as QtahDBS+import qualified Data.Int as HoppyDI+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.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QFileDevice as M38+import qualified Graphics.UI.Qtah.Generated.Core.QIODevice as M48+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QFile_new" new' ::  HoppyP.IO (HoppyF.Ptr QFile)+foreign import ccall "genpop__QFile_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QFile)+foreign import ccall "genpop__QFile_newWithName" newWithName' ::  HoppyF.Ptr M142.QString -> HoppyP.IO (HoppyF.Ptr QFile)+foreign import ccall "genpop__QFile_newWithNameAndParent" newWithNameAndParent' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QFile)+foreign import ccall "genpop__QFile_copy" copy' ::  HoppyF.Ptr QFile -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFile_copyStatic" copyStatic' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFile_decodeName" decodeName' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFile_encodeName" encodeName' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QFile_exists" exists' ::  HoppyF.Ptr QFileConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFile_existsStatic" existsStatic' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFile_link" link' ::  HoppyF.Ptr QFile -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFile_linkStatic" linkStatic' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFile_openWithFileDesc" openWithFileDesc' ::  HoppyF.Ptr QFile -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFile_openWithFileDescAndFlags" openWithFileDescAndFlags' ::  HoppyF.Ptr QFile -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFile_permissionsStatic" permissionsStatic' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFile_remove" remove' ::  HoppyF.Ptr QFile -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFile_removeStatic" removeStatic' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFile_rename" rename' ::  HoppyF.Ptr QFile -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFile_renameStatic" renameStatic' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFile_resizeStatic" resizeStatic' ::  HoppyF.Ptr M142.QStringConst -> HoppyDI.Int64 -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFile_setFileName" setFileName' ::  HoppyF.Ptr QFile -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QFile_setPermissionsStatic" setPermissionsStatic' ::  HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFile_symLinkTargetStatic" symLinkTargetStatic' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFile_symLinkTarget" symLinkTarget' ::  HoppyF.Ptr QFileConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "gencast__QFile__QFileDevice" castQFileToQFileDevice :: HoppyF.Ptr QFileConst -> HoppyF.Ptr M38.QFileDeviceConst+foreign import ccall "gencast__QFileDevice__QFile" castQFileDeviceToQFile :: HoppyF.Ptr M38.QFileDeviceConst -> HoppyF.Ptr QFileConst+foreign import ccall "gencast__QFile__QIODevice" castQFileToQIODevice :: HoppyF.Ptr QFileConst -> HoppyF.Ptr M48.QIODeviceConst+foreign import ccall "gencast__QIODevice__QFile" castQIODeviceToQFile :: HoppyF.Ptr M48.QIODeviceConst -> HoppyF.Ptr QFileConst+foreign import ccall "gencast__QFile__QObject" castQFileToQObject :: HoppyF.Ptr QFileConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QFile" castQObjectToQFile :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QFileConst+foreign import ccall "gendel__QFile" delete'QFile :: HoppyF.Ptr QFileConst -> HoppyP.IO ()+foreign import ccall "&gendel__QFile" deletePtr'QFile :: HoppyF.FunPtr (HoppyF.Ptr QFileConst -> HoppyP.IO ())++class QFileValue a where+  withQFilePtr :: a -> (QFileConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QFileConstPtr a => QFileValue a where+  withQFilePtr = HoppyP.flip ($) . toQFileConst++class (M38.QFileDeviceConstPtr this) => QFileConstPtr this where+  toQFileConst :: this -> QFileConst++exists :: (QFileValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+exists arg'1 =+  withQFilePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (exists' arg'1')++symLinkTarget :: (QFileValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+symLinkTarget arg'1 =+  withQFilePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (symLinkTarget' arg'1')++class (QFileConstPtr this, M38.QFileDevicePtr this) => QFilePtr this where+  toQFile :: this -> QFile++copy :: (QFilePtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+copy arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFile arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (copy' arg'1' arg'2')++link :: (QFilePtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+link arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFile arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (link' arg'1' arg'2')++openWithFileDesc :: (QFilePtr this, M48.IsQIODeviceOpenMode arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+openWithFileDesc arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQFile arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M48.toQIODeviceOpenMode+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (openWithFileDesc' arg'1' arg'2' arg'3')++openWithFileDescAndFlags :: (QFilePtr this, M48.IsQIODeviceOpenMode arg'3, M38.IsQFileDeviceFileHandleFlags arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (arg'4) -> (HoppyP.IO HoppyP.Bool)+openWithFileDescAndFlags arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQFile arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M48.toQIODeviceOpenMode+  ) arg'3 >>= \arg'3' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M38.toQFileDeviceFileHandleFlags+  ) arg'4 >>= \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (openWithFileDescAndFlags' arg'1' arg'2' arg'3' arg'4')++remove :: (QFilePtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+remove arg'1 =+  HoppyFHR.withCppPtr (toQFile arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (remove' arg'1')++rename :: (QFilePtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+rename arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFile arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (rename' arg'1' arg'2')++setFileName :: (QFilePtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFileName arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFile arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setFileName' arg'1' arg'2')++copyStatic :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+copyStatic arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (copyStatic' arg'1' arg'2')++decodeName :: (M12.QByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO QtahP.String)+decodeName arg'1 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (decodeName' arg'1')++encodeName :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QtahDBS.ByteString)+encodeName arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (encodeName' arg'1')++existsStatic :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Bool)+existsStatic arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (existsStatic' arg'1')++linkStatic :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+linkStatic arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (linkStatic' arg'1' arg'2')++permissionsStatic :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO M38.QFileDevicePermissions)+permissionsStatic arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (permissionsStatic' arg'1')++removeStatic :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Bool)+removeStatic arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeStatic' arg'1')++renameStatic :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+renameStatic arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (renameStatic' arg'1' arg'2')++resizeStatic :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyDI.Int64) -> (HoppyP.IO HoppyP.Bool)+resizeStatic arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (resizeStatic' arg'1' arg'2')++setPermissionsStatic :: (M142.QStringValue arg'1, M38.IsQFileDevicePermissions arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+setPermissionsStatic arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M38.toQFileDevicePermissions+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (setPermissionsStatic' arg'1' arg'2')++symLinkTargetStatic :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QtahP.String)+symLinkTargetStatic arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (symLinkTargetStatic' arg'1')++data QFileConst =+    QFileConst (HoppyF.Ptr QFileConst)+  | QFileConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFileConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFileConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFileConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFileToConst :: QFile -> QFileConst+castQFileToConst (QFile ptr') = QFileConst $ HoppyF.castPtr ptr'+castQFileToConst (QFileGc fptr' ptr') = QFileConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFileConst where+  nullptr = QFileConst HoppyF.nullPtr+  +  withCppPtr (QFileConst ptr') f' = f' ptr'+  withCppPtr (QFileConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFileConst ptr') = ptr'+  toPtr (QFileConstGc _ ptr') = ptr'+  +  touchCppPtr (QFileConst _) = HoppyP.return ()+  touchCppPtr (QFileConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFileConst where+  delete (QFileConst ptr') = delete'QFile ptr'+  delete (QFileConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFileConst", " object."]+  +  toGc this'@(QFileConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFile :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFileConstGc {}) = HoppyP.return this'++instance QFileConstPtr QFileConst where+  toQFileConst = HoppyP.id++instance M38.QFileDeviceConstPtr QFileConst where+  toQFileDeviceConst (QFileConst ptr') = M38.QFileDeviceConst $ castQFileToQFileDevice ptr'+  toQFileDeviceConst (QFileConstGc fptr' ptr') = M38.QFileDeviceConstGc fptr' $ castQFileToQFileDevice ptr'++instance M48.QIODeviceConstPtr QFileConst where+  toQIODeviceConst (QFileConst ptr') = M48.QIODeviceConst $ castQFileToQIODevice ptr'+  toQIODeviceConst (QFileConstGc fptr' ptr') = M48.QIODeviceConstGc fptr' $ castQFileToQIODevice ptr'++instance M94.QObjectConstPtr QFileConst where+  toQObjectConst (QFileConst ptr') = M94.QObjectConst $ castQFileToQObject ptr'+  toQObjectConst (QFileConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFileToQObject ptr'++data QFile =+    QFile (HoppyF.Ptr QFile)+  | QFileGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFile)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFile where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFile where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFileToNonconst :: QFileConst -> QFile+castQFileToNonconst (QFileConst ptr') = QFile $ HoppyF.castPtr ptr'+castQFileToNonconst (QFileConstGc fptr' ptr') = QFileGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFile where+  nullptr = QFile HoppyF.nullPtr+  +  withCppPtr (QFile ptr') f' = f' ptr'+  withCppPtr (QFileGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFile ptr') = ptr'+  toPtr (QFileGc _ ptr') = ptr'+  +  touchCppPtr (QFile _) = HoppyP.return ()+  touchCppPtr (QFileGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFile where+  delete (QFile ptr') = delete'QFile $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QFileConst)+  delete (QFileGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFile", " object."]+  +  toGc this'@(QFile ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFile :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFileGc {}) = HoppyP.return this'++instance QFileConstPtr QFile where+  toQFileConst (QFile ptr') = QFileConst $ (HoppyF.castPtr :: HoppyF.Ptr QFile -> HoppyF.Ptr QFileConst) ptr'+  toQFileConst (QFileGc fptr' ptr') = QFileConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QFile -> HoppyF.Ptr QFileConst) ptr'++instance QFilePtr QFile where+  toQFile = HoppyP.id++instance M38.QFileDeviceConstPtr QFile where+  toQFileDeviceConst (QFile ptr') = M38.QFileDeviceConst $ castQFileToQFileDevice $ (HoppyF.castPtr :: HoppyF.Ptr QFile -> HoppyF.Ptr QFileConst) ptr'+  toQFileDeviceConst (QFileGc fptr' ptr') = M38.QFileDeviceConstGc fptr' $ castQFileToQFileDevice $ (HoppyF.castPtr :: HoppyF.Ptr QFile -> HoppyF.Ptr QFileConst) ptr'++instance M38.QFileDevicePtr QFile where+  toQFileDevice (QFile ptr') = M38.QFileDevice $ (HoppyF.castPtr :: HoppyF.Ptr M38.QFileDeviceConst -> HoppyF.Ptr M38.QFileDevice) $ castQFileToQFileDevice $ (HoppyF.castPtr :: HoppyF.Ptr QFile -> HoppyF.Ptr QFileConst) ptr'+  toQFileDevice (QFileGc fptr' ptr') = M38.QFileDeviceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M38.QFileDeviceConst -> HoppyF.Ptr M38.QFileDevice) $ castQFileToQFileDevice $ (HoppyF.castPtr :: HoppyF.Ptr QFile -> HoppyF.Ptr QFileConst) ptr'++instance M48.QIODeviceConstPtr QFile where+  toQIODeviceConst (QFile ptr') = M48.QIODeviceConst $ castQFileToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QFile -> HoppyF.Ptr QFileConst) ptr'+  toQIODeviceConst (QFileGc fptr' ptr') = M48.QIODeviceConstGc fptr' $ castQFileToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QFile -> HoppyF.Ptr QFileConst) ptr'++instance M48.QIODevicePtr QFile where+  toQIODevice (QFile ptr') = M48.QIODevice $ (HoppyF.castPtr :: HoppyF.Ptr M48.QIODeviceConst -> HoppyF.Ptr M48.QIODevice) $ castQFileToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QFile -> HoppyF.Ptr QFileConst) ptr'+  toQIODevice (QFileGc fptr' ptr') = M48.QIODeviceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M48.QIODeviceConst -> HoppyF.Ptr M48.QIODevice) $ castQFileToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QFile -> HoppyF.Ptr QFileConst) ptr'++instance M94.QObjectConstPtr QFile where+  toQObjectConst (QFile ptr') = M94.QObjectConst $ castQFileToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFile -> HoppyF.Ptr QFileConst) ptr'+  toQObjectConst (QFileGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFileToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFile -> HoppyF.Ptr QFileConst) ptr'++instance M94.QObjectPtr QFile where+  toQObject (QFile ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFileToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFile -> HoppyF.Ptr QFileConst) ptr'+  toQObject (QFileGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFileToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFile -> HoppyF.Ptr QFileConst) ptr'++new :: (HoppyP.IO QFile)+new =+  HoppyP.fmap QFile+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QFile)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QFile+  (newWithParent' arg'1')++newWithName :: (M142.QStringPtr arg'1) => (arg'1) -> (HoppyP.IO QFile)+newWithName arg'1 =+  HoppyFHR.withCppPtr (M142.toQString arg'1) $ \arg'1' ->+  HoppyP.fmap QFile+  (newWithName' arg'1')++newWithNameAndParent :: (M142.QStringValue arg'1, M94.QObjectPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QFile)+newWithNameAndParent arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  HoppyP.fmap QFile+  (newWithNameAndParent' arg'1' arg'2')++class QFileSuper a where+  downToQFile :: a -> QFile++instance QFileSuper M38.QFileDevice where+  downToQFile = castQFileToNonconst . cast' . M38.castQFileDeviceToConst+    where+      cast' (M38.QFileDeviceConst ptr') = QFileConst $ castQFileDeviceToQFile ptr'+      cast' (M38.QFileDeviceConstGc fptr' ptr') = QFileConstGc fptr' $ castQFileDeviceToQFile ptr'+instance QFileSuper M48.QIODevice where+  downToQFile = castQFileToNonconst . cast' . M48.castQIODeviceToConst+    where+      cast' (M48.QIODeviceConst ptr') = QFileConst $ castQIODeviceToQFile ptr'+      cast' (M48.QIODeviceConstGc fptr' ptr') = QFileConstGc fptr' $ castQIODeviceToQFile ptr'+instance QFileSuper M94.QObject where+  downToQFile = castQFileToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QFileConst $ castQObjectToQFile ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QFileConstGc fptr' $ castQObjectToQFile ptr'++class QFileSuperConst a where+  downToQFileConst :: a -> QFileConst++instance QFileSuperConst M38.QFileDeviceConst where+  downToQFileConst = cast'+    where+      cast' (M38.QFileDeviceConst ptr') = QFileConst $ castQFileDeviceToQFile ptr'+      cast' (M38.QFileDeviceConstGc fptr' ptr') = QFileConstGc fptr' $ castQFileDeviceToQFile ptr'+instance QFileSuperConst M48.QIODeviceConst where+  downToQFileConst = cast'+    where+      cast' (M48.QIODeviceConst ptr') = QFileConst $ castQIODeviceToQFile ptr'+      cast' (M48.QIODeviceConstGc fptr' ptr') = QFileConstGc fptr' $ castQIODeviceToQFile ptr'+instance QFileSuperConst M94.QObjectConst where+  downToQFileConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QFileConst $ castQObjectToQFile ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QFileConstGc fptr' $ castQObjectToQFile ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QFile)) QFile where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QFile)) QFile where+  decode = HoppyP.fmap QFile . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QFileDevice.hs view
@@ -0,0 +1,628 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QFileDevice (+  castQFileDeviceToQIODevice,+  castQIODeviceToQFileDevice,+  castQFileDeviceToQObject,+  castQObjectToQFileDevice,+  QFileDeviceValue (..),+  QFileDeviceConstPtr (..),+  error,+  fileName,+  fileTime,+  handle,+  permissions,+  QFileDevicePtr (..),+  flush,+  map,+  mapWithFlags,+  resize,+  setFileTime,+  setPermissions,+  unmap,+  unsetError,+  QFileDeviceConst (..),+  castQFileDeviceToConst,+  QFileDevice (..),+  castQFileDeviceToNonconst,+  QFileDeviceSuper (..),+  QFileDeviceSuperConst (..),+  QFileDeviceFileError (..),+  QFileDeviceFileHandleFlag (..),+  QFileDeviceFileHandleFlags,+  IsQFileDeviceFileHandleFlags (..),+  autoCloseHandle,+  dontCloseHandle,+  QFileDeviceFileTime (..),+  QFileDeviceMemoryMapFlags (..),+  QFileDevicePermission (..),+  QFileDevicePermissions,+  IsQFileDevicePermissions (..),+  exeGroup,+  exeOther,+  exeOwner,+  exeUser,+  readGroup,+  readOther,+  readOwner,+  readUser,+  writeGroup,+  writeOther,+  writeOwner,+  writeUser,+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Data.Int as HoppyDI+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QDateTime as M24+import qualified Graphics.UI.Qtah.Generated.Core.QIODevice as M48+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QFileDevice_error" error' ::  HoppyF.Ptr QFileDeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFileDevice_fileName" fileName' ::  HoppyF.Ptr QFileDeviceConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileDevice_fileTime" fileTime' ::  HoppyF.Ptr QFileDeviceConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M24.QDateTimeConst)+foreign import ccall "genpop__QFileDevice_flush" flush' ::  HoppyF.Ptr QFileDevice -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileDevice_handle" handle' ::  HoppyF.Ptr QFileDeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFileDevice_map" map' ::  HoppyF.Ptr QFileDevice -> HoppyDI.Int64 -> HoppyDI.Int64 -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar)+foreign import ccall "genpop__QFileDevice_mapWithFlags" mapWithFlags' ::  HoppyF.Ptr QFileDevice -> HoppyDI.Int64 -> HoppyDI.Int64 -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar)+foreign import ccall "genpop__QFileDevice_permissions" permissions' ::  HoppyF.Ptr QFileDeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFileDevice_resize" resize' ::  HoppyF.Ptr QFileDevice -> HoppyDI.Int64 -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileDevice_setFileTime" setFileTime' ::  HoppyF.Ptr QFileDevice -> HoppyF.Ptr M24.QDateTimeConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileDevice_setPermissions" setPermissions' ::  HoppyF.Ptr QFileDevice -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileDevice_unmap" unmap' ::  HoppyF.Ptr QFileDevice -> HoppyF.Ptr HoppyFC.CUChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileDevice_unsetError" unsetError' ::  HoppyF.Ptr QFileDevice -> HoppyP.IO ()+foreign import ccall "gencast__QFileDevice__QIODevice" castQFileDeviceToQIODevice :: HoppyF.Ptr QFileDeviceConst -> HoppyF.Ptr M48.QIODeviceConst+foreign import ccall "gencast__QIODevice__QFileDevice" castQIODeviceToQFileDevice :: HoppyF.Ptr M48.QIODeviceConst -> HoppyF.Ptr QFileDeviceConst+foreign import ccall "gencast__QFileDevice__QObject" castQFileDeviceToQObject :: HoppyF.Ptr QFileDeviceConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QFileDevice" castQObjectToQFileDevice :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QFileDeviceConst+foreign import ccall "gendel__QFileDevice" delete'QFileDevice :: HoppyF.Ptr QFileDeviceConst -> HoppyP.IO ()+foreign import ccall "&gendel__QFileDevice" deletePtr'QFileDevice :: HoppyF.FunPtr (HoppyF.Ptr QFileDeviceConst -> HoppyP.IO ())++class QFileDeviceValue a where+  withQFileDevicePtr :: a -> (QFileDeviceConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QFileDeviceConstPtr a => QFileDeviceValue a where+  withQFileDevicePtr = HoppyP.flip ($) . toQFileDeviceConst++class (M48.QIODeviceConstPtr this) => QFileDeviceConstPtr this where+  toQFileDeviceConst :: this -> QFileDeviceConst++error :: (QFileDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO QFileDeviceFileError)+error arg'1 =+  withQFileDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (error' arg'1')++fileName :: (QFileDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+fileName arg'1 =+  withQFileDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (fileName' arg'1')++fileTime :: (QFileDeviceValue this) => (this) {- ^ this -} -> (QFileDeviceFileTime) -> (HoppyP.IO M24.QDateTime)+fileTime arg'1 arg'2 =+  withQFileDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M24.QDateTimeConst) =<<+  (fileTime' arg'1' arg'2')++handle :: (QFileDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+handle arg'1 =+  withQFileDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (handle' arg'1')++permissions :: (QFileDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO QFileDevicePermissions)+permissions arg'1 =+  withQFileDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (permissions' arg'1')++class (QFileDeviceConstPtr this, M48.QIODevicePtr this) => QFileDevicePtr this where+  toQFileDevice :: this -> QFileDevice++flush :: (QFileDevicePtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+flush arg'1 =+  HoppyFHR.withCppPtr (toQFileDevice arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (flush' arg'1')++map :: (QFileDevicePtr this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyDI.Int64) -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar))+map arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQFileDevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  (map' arg'1' arg'2' arg'3')++mapWithFlags :: (QFileDevicePtr this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyDI.Int64) -> (QFileDeviceMemoryMapFlags) -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar))+mapWithFlags arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQFileDevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'4 >>= \arg'4' ->+  (mapWithFlags' arg'1' arg'2' arg'3' arg'4')++resize :: (QFileDevicePtr this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.IO HoppyP.Bool)+resize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (resize' arg'1' arg'2')++setFileTime :: (QFileDevicePtr this, M24.QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (QFileDeviceFileTime) -> (HoppyP.IO HoppyP.Bool)+setFileTime arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQFileDevice arg'1) $ \arg'1' ->+  M24.withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (setFileTime' arg'1' arg'2' arg'3')++setPermissions :: (QFileDevicePtr this, IsQFileDevicePermissions arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+setPermissions arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDevice arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQFileDevicePermissions+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (setPermissions' arg'1' arg'2')++unmap :: (QFileDevicePtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.IO HoppyP.Bool)+unmap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (unmap' arg'1' arg'2')++unsetError :: (QFileDevicePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+unsetError arg'1 =+  HoppyFHR.withCppPtr (toQFileDevice arg'1) $ \arg'1' ->+  (unsetError' arg'1')++data QFileDeviceConst =+    QFileDeviceConst (HoppyF.Ptr QFileDeviceConst)+  | QFileDeviceConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFileDeviceConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFileDeviceConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFileDeviceConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFileDeviceToConst :: QFileDevice -> QFileDeviceConst+castQFileDeviceToConst (QFileDevice ptr') = QFileDeviceConst $ HoppyF.castPtr ptr'+castQFileDeviceToConst (QFileDeviceGc fptr' ptr') = QFileDeviceConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFileDeviceConst where+  nullptr = QFileDeviceConst HoppyF.nullPtr+  +  withCppPtr (QFileDeviceConst ptr') f' = f' ptr'+  withCppPtr (QFileDeviceConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFileDeviceConst ptr') = ptr'+  toPtr (QFileDeviceConstGc _ ptr') = ptr'+  +  touchCppPtr (QFileDeviceConst _) = HoppyP.return ()+  touchCppPtr (QFileDeviceConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFileDeviceConst where+  delete (QFileDeviceConst ptr') = delete'QFileDevice ptr'+  delete (QFileDeviceConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFileDeviceConst", " object."]+  +  toGc this'@(QFileDeviceConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileDeviceConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFileDevice :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFileDeviceConstGc {}) = HoppyP.return this'++instance QFileDeviceConstPtr QFileDeviceConst where+  toQFileDeviceConst = HoppyP.id++instance M48.QIODeviceConstPtr QFileDeviceConst where+  toQIODeviceConst (QFileDeviceConst ptr') = M48.QIODeviceConst $ castQFileDeviceToQIODevice ptr'+  toQIODeviceConst (QFileDeviceConstGc fptr' ptr') = M48.QIODeviceConstGc fptr' $ castQFileDeviceToQIODevice ptr'++instance M94.QObjectConstPtr QFileDeviceConst where+  toQObjectConst (QFileDeviceConst ptr') = M94.QObjectConst $ castQFileDeviceToQObject ptr'+  toQObjectConst (QFileDeviceConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFileDeviceToQObject ptr'++data QFileDevice =+    QFileDevice (HoppyF.Ptr QFileDevice)+  | QFileDeviceGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFileDevice)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFileDevice where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFileDevice where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFileDeviceToNonconst :: QFileDeviceConst -> QFileDevice+castQFileDeviceToNonconst (QFileDeviceConst ptr') = QFileDevice $ HoppyF.castPtr ptr'+castQFileDeviceToNonconst (QFileDeviceConstGc fptr' ptr') = QFileDeviceGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFileDevice where+  nullptr = QFileDevice HoppyF.nullPtr+  +  withCppPtr (QFileDevice ptr') f' = f' ptr'+  withCppPtr (QFileDeviceGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFileDevice ptr') = ptr'+  toPtr (QFileDeviceGc _ ptr') = ptr'+  +  touchCppPtr (QFileDevice _) = HoppyP.return ()+  touchCppPtr (QFileDeviceGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFileDevice where+  delete (QFileDevice ptr') = delete'QFileDevice $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QFileDeviceConst)+  delete (QFileDeviceGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFileDevice", " object."]+  +  toGc this'@(QFileDevice ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileDeviceGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFileDevice :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFileDeviceGc {}) = HoppyP.return this'++instance QFileDeviceConstPtr QFileDevice where+  toQFileDeviceConst (QFileDevice ptr') = QFileDeviceConst $ (HoppyF.castPtr :: HoppyF.Ptr QFileDevice -> HoppyF.Ptr QFileDeviceConst) ptr'+  toQFileDeviceConst (QFileDeviceGc fptr' ptr') = QFileDeviceConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QFileDevice -> HoppyF.Ptr QFileDeviceConst) ptr'++instance QFileDevicePtr QFileDevice where+  toQFileDevice = HoppyP.id++instance M48.QIODeviceConstPtr QFileDevice where+  toQIODeviceConst (QFileDevice ptr') = M48.QIODeviceConst $ castQFileDeviceToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QFileDevice -> HoppyF.Ptr QFileDeviceConst) ptr'+  toQIODeviceConst (QFileDeviceGc fptr' ptr') = M48.QIODeviceConstGc fptr' $ castQFileDeviceToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QFileDevice -> HoppyF.Ptr QFileDeviceConst) ptr'++instance M48.QIODevicePtr QFileDevice where+  toQIODevice (QFileDevice ptr') = M48.QIODevice $ (HoppyF.castPtr :: HoppyF.Ptr M48.QIODeviceConst -> HoppyF.Ptr M48.QIODevice) $ castQFileDeviceToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QFileDevice -> HoppyF.Ptr QFileDeviceConst) ptr'+  toQIODevice (QFileDeviceGc fptr' ptr') = M48.QIODeviceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M48.QIODeviceConst -> HoppyF.Ptr M48.QIODevice) $ castQFileDeviceToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QFileDevice -> HoppyF.Ptr QFileDeviceConst) ptr'++instance M94.QObjectConstPtr QFileDevice where+  toQObjectConst (QFileDevice ptr') = M94.QObjectConst $ castQFileDeviceToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileDevice -> HoppyF.Ptr QFileDeviceConst) ptr'+  toQObjectConst (QFileDeviceGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFileDeviceToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileDevice -> HoppyF.Ptr QFileDeviceConst) ptr'++instance M94.QObjectPtr QFileDevice where+  toQObject (QFileDevice ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFileDeviceToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileDevice -> HoppyF.Ptr QFileDeviceConst) ptr'+  toQObject (QFileDeviceGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFileDeviceToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileDevice -> HoppyF.Ptr QFileDeviceConst) ptr'++class QFileDeviceSuper a where+  downToQFileDevice :: a -> QFileDevice++instance QFileDeviceSuper M48.QIODevice where+  downToQFileDevice = castQFileDeviceToNonconst . cast' . M48.castQIODeviceToConst+    where+      cast' (M48.QIODeviceConst ptr') = QFileDeviceConst $ castQIODeviceToQFileDevice ptr'+      cast' (M48.QIODeviceConstGc fptr' ptr') = QFileDeviceConstGc fptr' $ castQIODeviceToQFileDevice ptr'+instance QFileDeviceSuper M94.QObject where+  downToQFileDevice = castQFileDeviceToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QFileDeviceConst $ castQObjectToQFileDevice ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QFileDeviceConstGc fptr' $ castQObjectToQFileDevice ptr'++class QFileDeviceSuperConst a where+  downToQFileDeviceConst :: a -> QFileDeviceConst++instance QFileDeviceSuperConst M48.QIODeviceConst where+  downToQFileDeviceConst = cast'+    where+      cast' (M48.QIODeviceConst ptr') = QFileDeviceConst $ castQIODeviceToQFileDevice ptr'+      cast' (M48.QIODeviceConstGc fptr' ptr') = QFileDeviceConstGc fptr' $ castQIODeviceToQFileDevice ptr'+instance QFileDeviceSuperConst M94.QObjectConst where+  downToQFileDeviceConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QFileDeviceConst $ castQObjectToQFileDevice ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QFileDeviceConstGc fptr' $ castQObjectToQFileDevice ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QFileDevice)) QFileDevice where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QFileDevice)) QFileDevice where+  decode = HoppyP.fmap QFileDevice . HoppyF.peek++data QFileDeviceFileError =+  NoError+  | ReadError+  | WriteError+  | FatalError+  | ResourceError+  | OpenError+  | AbortError+  | TimeOutError+  | UnspecifiedError+  | RemoveError+  | RenameError+  | PositionError+  | ResizeError+  | PermissionsError+  | CopyError+  | UnknownQFileDeviceFileError (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFileDeviceFileError where+  fromCppEnum NoError = 0+  fromCppEnum ReadError = 1+  fromCppEnum WriteError = 2+  fromCppEnum FatalError = 3+  fromCppEnum ResourceError = 4+  fromCppEnum OpenError = 5+  fromCppEnum AbortError = 6+  fromCppEnum TimeOutError = 7+  fromCppEnum UnspecifiedError = 8+  fromCppEnum RemoveError = 9+  fromCppEnum RenameError = 10+  fromCppEnum PositionError = 11+  fromCppEnum ResizeError = 12+  fromCppEnum PermissionsError = 13+  fromCppEnum CopyError = 14+  fromCppEnum (UnknownQFileDeviceFileError n) = n+  +  toCppEnum (0) = NoError+  toCppEnum (1) = ReadError+  toCppEnum (2) = WriteError+  toCppEnum (3) = FatalError+  toCppEnum (4) = ResourceError+  toCppEnum (5) = OpenError+  toCppEnum (6) = AbortError+  toCppEnum (7) = TimeOutError+  toCppEnum (8) = UnspecifiedError+  toCppEnum (9) = RemoveError+  toCppEnum (10) = RenameError+  toCppEnum (11) = PositionError+  toCppEnum (12) = ResizeError+  toCppEnum (13) = PermissionsError+  toCppEnum (14) = CopyError+  toCppEnum n = UnknownQFileDeviceFileError n++instance HoppyP.Eq QFileDeviceFileError where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFileDeviceFileError where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QFileDeviceFileHandleFlag =+  DontCloseHandle+  | AutoCloseHandle+  | UnknownQFileDeviceFileHandleFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFileDeviceFileHandleFlag where+  fromCppEnum DontCloseHandle = 0+  fromCppEnum AutoCloseHandle = 1+  fromCppEnum (UnknownQFileDeviceFileHandleFlag n) = n+  +  toCppEnum (0) = DontCloseHandle+  toCppEnum (1) = AutoCloseHandle+  toCppEnum n = UnknownQFileDeviceFileHandleFlag n++instance HoppyP.Eq QFileDeviceFileHandleFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFileDeviceFileHandleFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QFileDeviceFileHandleFlags = QFileDeviceFileHandleFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QFileDeviceFileHandleFlag QFileDeviceFileHandleFlags where+  enumToFlags = QFileDeviceFileHandleFlags . QtahFHR.fromCppEnum+  flagsToEnum (QFileDeviceFileHandleFlags x') = QtahFHR.toCppEnum x'++class IsQFileDeviceFileHandleFlags a where+  toQFileDeviceFileHandleFlags :: a -> QFileDeviceFileHandleFlags++instance IsQFileDeviceFileHandleFlags QFileDeviceFileHandleFlags where toQFileDeviceFileHandleFlags = QtahP.id+instance IsQFileDeviceFileHandleFlags QFileDeviceFileHandleFlag where toQFileDeviceFileHandleFlags = QtahFlags.enumToFlags+instance IsQFileDeviceFileHandleFlags (HoppyFC.CInt) where toQFileDeviceFileHandleFlags = QtahFlags.numToFlags++autoCloseHandle :: QFileDeviceFileHandleFlags+autoCloseHandle = QFileDeviceFileHandleFlags (1)++dontCloseHandle :: QFileDeviceFileHandleFlags+dontCloseHandle = QFileDeviceFileHandleFlags (0)++instance QtahDB.Bits QFileDeviceFileHandleFlags where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QFileDeviceFileTime =+  FileAccessTime+  | FileBirthTime+  | FileMetadataChangeTime+  | FileModificationTime+  | UnknownQFileDeviceFileTime (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFileDeviceFileTime where+  fromCppEnum FileAccessTime = 0+  fromCppEnum FileBirthTime = 1+  fromCppEnum FileMetadataChangeTime = 2+  fromCppEnum FileModificationTime = 3+  fromCppEnum (UnknownQFileDeviceFileTime n) = n+  +  toCppEnum (0) = FileAccessTime+  toCppEnum (1) = FileBirthTime+  toCppEnum (2) = FileMetadataChangeTime+  toCppEnum (3) = FileModificationTime+  toCppEnum n = UnknownQFileDeviceFileTime n++instance HoppyP.Eq QFileDeviceFileTime where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFileDeviceFileTime where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QFileDeviceMemoryMapFlags =+  NoOptions+  | MapPrivateOption+  | UnknownQFileDeviceMemoryMapFlags (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFileDeviceMemoryMapFlags where+  fromCppEnum NoOptions = 0+  fromCppEnum MapPrivateOption = 1+  fromCppEnum (UnknownQFileDeviceMemoryMapFlags n) = n+  +  toCppEnum (0) = NoOptions+  toCppEnum (1) = MapPrivateOption+  toCppEnum n = UnknownQFileDeviceMemoryMapFlags n++instance HoppyP.Eq QFileDeviceMemoryMapFlags where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFileDeviceMemoryMapFlags where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QFileDevicePermission =+  ReadOwner+  | WriteOwner+  | ExeOwner+  | ReadUser+  | WriteUser+  | ExeUser+  | ReadGroup+  | WriteGroup+  | ExeGroup+  | ReadOther+  | WriteOther+  | ExeOther+  | UnknownQFileDevicePermission (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFileDevicePermission where+  fromCppEnum ReadOwner = 16384+  fromCppEnum WriteOwner = 8192+  fromCppEnum ExeOwner = 4096+  fromCppEnum ReadUser = 1024+  fromCppEnum WriteUser = 512+  fromCppEnum ExeUser = 256+  fromCppEnum ReadGroup = 64+  fromCppEnum WriteGroup = 32+  fromCppEnum ExeGroup = 16+  fromCppEnum ReadOther = 4+  fromCppEnum WriteOther = 2+  fromCppEnum ExeOther = 1+  fromCppEnum (UnknownQFileDevicePermission n) = n+  +  toCppEnum (1) = ExeOther+  toCppEnum (2) = WriteOther+  toCppEnum (4) = ReadOther+  toCppEnum (16) = ExeGroup+  toCppEnum (32) = WriteGroup+  toCppEnum (64) = ReadGroup+  toCppEnum (256) = ExeUser+  toCppEnum (512) = WriteUser+  toCppEnum (1024) = ReadUser+  toCppEnum (4096) = ExeOwner+  toCppEnum (8192) = WriteOwner+  toCppEnum (16384) = ReadOwner+  toCppEnum n = UnknownQFileDevicePermission n++instance HoppyP.Eq QFileDevicePermission where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFileDevicePermission where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QFileDevicePermissions = QFileDevicePermissions (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QFileDevicePermission QFileDevicePermissions where+  enumToFlags = QFileDevicePermissions . QtahFHR.fromCppEnum+  flagsToEnum (QFileDevicePermissions x') = QtahFHR.toCppEnum x'++class IsQFileDevicePermissions a where+  toQFileDevicePermissions :: a -> QFileDevicePermissions++instance IsQFileDevicePermissions QFileDevicePermissions where toQFileDevicePermissions = QtahP.id+instance IsQFileDevicePermissions QFileDevicePermission where toQFileDevicePermissions = QtahFlags.enumToFlags+instance IsQFileDevicePermissions (HoppyFC.CInt) where toQFileDevicePermissions = QtahFlags.numToFlags++exeGroup :: QFileDevicePermissions+exeGroup = QFileDevicePermissions (16)++exeOther :: QFileDevicePermissions+exeOther = QFileDevicePermissions (1)++exeOwner :: QFileDevicePermissions+exeOwner = QFileDevicePermissions (4096)++exeUser :: QFileDevicePermissions+exeUser = QFileDevicePermissions (256)++readGroup :: QFileDevicePermissions+readGroup = QFileDevicePermissions (64)++readOther :: QFileDevicePermissions+readOther = QFileDevicePermissions (4)++readOwner :: QFileDevicePermissions+readOwner = QFileDevicePermissions (16384)++readUser :: QFileDevicePermissions+readUser = QFileDevicePermissions (1024)++writeGroup :: QFileDevicePermissions+writeGroup = QFileDevicePermissions (32)++writeOther :: QFileDevicePermissions+writeOther = QFileDevicePermissions (2)++writeOwner :: QFileDevicePermissions+writeOwner = QFileDevicePermissions (8192)++writeUser :: QFileDevicePermissions+writeUser = QFileDevicePermissions (512)++instance QtahDB.Bits QFileDevicePermissions where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum
src/Graphics/UI/Qtah/Generated/Core/QFileInfo.hs view
@@ -0,0 +1,654 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QFileInfo (+  QFileInfoValue (..),+  QFileInfoConstPtr (..),+  absoluteDir,+  absoluteFilePath,+  absolutePath,+  baseName,+  birthTime,+  bundleName,+  caching,+  canonicalFilePath,+  canonicalPath,+  completeBaseName,+  completeSuffix,+  dir,+  exists,+  fileName,+  filePath,+  fileTime,+  group,+  groupId,+  isAbsolute,+  isBundle,+  isDir,+  isExecutable,+  isFile,+  isHidden,+  isNativePath,+  isReadable,+  isRelative,+  isRoot,+  isSymLink,+  isWritable,+  lastModified,+  lastRead,+  metadataChangeTime,+  owner,+  ownerId,+  path,+  permission,+  permissions,+  size,+  suffix,+  symLinkTarget,+  eQ,+  nE,+  QFileInfoPtr (..),+  makeAbsolute,+  refresh,+  setCaching,+  setFileString,+  setFile,+  setFileDirAndString,+  swap,+  aSSIGN,+  existsStatic,+  QFileInfoConst (..),+  castQFileInfoToConst,+  QFileInfo (..),+  castQFileInfoToNonconst,+  new,+  newWithString,+  newWithFile,+  newWithDirAndString,+  newCopy,+  QFileInfoSuper (..),+  QFileInfoSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Data.Int as HoppyDI+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.QDateTime as M24+import qualified Graphics.UI.Qtah.Generated.Core.QDir as M30+import qualified Graphics.UI.Qtah.Generated.Core.QFile as M36+import qualified Graphics.UI.Qtah.Generated.Core.QFileDevice as M38+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QFileInfo_new" new' ::  HoppyP.IO (HoppyF.Ptr QFileInfo)+foreign import ccall "genpop__QFileInfo_newWithString" newWithString' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QFileInfo)+foreign import ccall "genpop__QFileInfo_newWithFile" newWithFile' ::  HoppyF.Ptr M36.QFileConst -> HoppyP.IO (HoppyF.Ptr QFileInfo)+foreign import ccall "genpop__QFileInfo_newWithDirAndString" newWithDirAndString' ::  HoppyF.Ptr M30.QDirConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QFileInfo)+foreign import ccall "genpop__QFileInfo_newCopy" newCopy' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr QFileInfo)+foreign import ccall "genpop__QFileInfo_absoluteDir" absoluteDir' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M30.QDirConst)+foreign import ccall "genpop__QFileInfo_absoluteFilePath" absoluteFilePath' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileInfo_absolutePath" absolutePath' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileInfo_baseName" baseName' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileInfo_birthTime" birthTime' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M24.QDateTimeConst)+foreign import ccall "genpop__QFileInfo_bundleName" bundleName' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileInfo_caching" caching' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_canonicalFilePath" canonicalFilePath' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileInfo_canonicalPath" canonicalPath' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileInfo_completeBaseName" completeBaseName' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileInfo_completeSuffix" completeSuffix' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileInfo_dir" dir' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M30.QDirConst)+foreign import ccall "genpop__QFileInfo_exists" exists' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_existsStatic" existsStatic' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_fileName" fileName' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileInfo_filePath" filePath' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileInfo_fileTime" fileTime' ::  HoppyF.Ptr QFileInfoConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M24.QDateTimeConst)+foreign import ccall "genpop__QFileInfo_group" group' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileInfo_groupId" groupId' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QFileInfo_isAbsolute" isAbsolute' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_isBundle" isBundle' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_isDir" isDir' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_isExecutable" isExecutable' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_isFile" isFile' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_isHidden" isHidden' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_isNativePath" isNativePath' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_isReadable" isReadable' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_isRelative" isRelative' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_isRoot" isRoot' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_isSymLink" isSymLink' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_isWritable" isWritable' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_lastModified" lastModified' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M24.QDateTimeConst)+foreign import ccall "genpop__QFileInfo_lastRead" lastRead' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M24.QDateTimeConst)+foreign import ccall "genpop__QFileInfo_makeAbsolute" makeAbsolute' ::  HoppyF.Ptr QFileInfo -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_metadataChangeTime" metadataChangeTime' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M24.QDateTimeConst)+foreign import ccall "genpop__QFileInfo_owner" owner' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileInfo_ownerId" ownerId' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QFileInfo_path" path' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileInfo_permission" permission' ::  HoppyF.Ptr QFileInfoConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_permissions" permissions' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFileInfo_refresh" refresh' ::  HoppyF.Ptr QFileInfo -> HoppyP.IO ()+foreign import ccall "genpop__QFileInfo_setCaching" setCaching' ::  HoppyF.Ptr QFileInfo -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QFileInfo_setFileString" setFileString' ::  HoppyF.Ptr QFileInfo -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileInfo_setFile" setFile' ::  HoppyF.Ptr QFileInfo -> HoppyF.Ptr M36.QFileConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileInfo_setFileDirAndString" setFileDirAndString' ::  HoppyF.Ptr QFileInfo -> HoppyF.Ptr M30.QDirConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileInfo_size" size' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QFileInfo_suffix" suffix' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileInfo_swap" swap' ::  HoppyF.Ptr QFileInfo -> HoppyF.Ptr QFileInfo -> HoppyP.IO ()+foreign import ccall "genpop__QFileInfo_symLinkTarget" symLinkTarget' ::  HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileInfo_EQ" eQ' ::  HoppyF.Ptr QFileInfoConst -> HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_NE" nE' ::  HoppyF.Ptr QFileInfoConst -> HoppyF.Ptr QFileInfoConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileInfo_ASSIGN" aSSIGN' ::  HoppyF.Ptr QFileInfo -> HoppyF.Ptr QFileInfoConst -> HoppyP.IO (HoppyF.Ptr QFileInfo)+foreign import ccall "gendel__QFileInfo" delete'QFileInfo :: HoppyF.Ptr QFileInfoConst -> HoppyP.IO ()+foreign import ccall "&gendel__QFileInfo" deletePtr'QFileInfo :: HoppyF.FunPtr (HoppyF.Ptr QFileInfoConst -> HoppyP.IO ())++class QFileInfoValue a where+  withQFileInfoPtr :: a -> (QFileInfoConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QFileInfoConstPtr a => QFileInfoValue a where+  withQFileInfoPtr = HoppyP.flip ($) . toQFileInfoConst++class (HoppyFHR.CppPtr this) => QFileInfoConstPtr this where+  toQFileInfoConst :: this -> QFileInfoConst++absoluteDir :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO M30.QDir)+absoluteDir arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M30.QDirConst) =<<+  (absoluteDir' arg'1')++absoluteFilePath :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+absoluteFilePath arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (absoluteFilePath' arg'1')++absolutePath :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+absolutePath arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (absolutePath' arg'1')++baseName :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+baseName arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (baseName' arg'1')++birthTime :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO M24.QDateTime)+birthTime arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M24.QDateTimeConst) =<<+  (birthTime' arg'1')++bundleName :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+bundleName arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (bundleName' arg'1')++caching :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+caching arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (caching' arg'1')++canonicalFilePath :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+canonicalFilePath arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (canonicalFilePath' arg'1')++canonicalPath :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+canonicalPath arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (canonicalPath' arg'1')++completeBaseName :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+completeBaseName arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (completeBaseName' arg'1')++completeSuffix :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+completeSuffix arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (completeSuffix' arg'1')++dir :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO M30.QDir)+dir arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M30.QDirConst) =<<+  (dir' arg'1')++exists :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+exists arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (exists' arg'1')++fileName :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+fileName arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (fileName' arg'1')++filePath :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+filePath arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (filePath' arg'1')++fileTime :: (QFileInfoValue this) => (this) {- ^ this -} -> (M38.QFileDeviceFileTime) -> (HoppyP.IO M24.QDateTime)+fileTime arg'1 arg'2 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M24.QDateTimeConst) =<<+  (fileTime' arg'1' arg'2')++group :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+group arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (group' arg'1')++groupId :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CUInt)+groupId arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (groupId' arg'1')++isAbsolute :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isAbsolute arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isAbsolute' arg'1')++isBundle :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isBundle arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isBundle' arg'1')++isDir :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isDir arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isDir' arg'1')++isExecutable :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isExecutable arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isExecutable' arg'1')++isFile :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isFile arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isFile' arg'1')++isHidden :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isHidden arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isHidden' arg'1')++isNativePath :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNativePath arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNativePath' arg'1')++isReadable :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isReadable arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isReadable' arg'1')++isRelative :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isRelative arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isRelative' arg'1')++isRoot :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isRoot arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isRoot' arg'1')++isSymLink :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isSymLink arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSymLink' arg'1')++isWritable :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isWritable arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isWritable' arg'1')++lastModified :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO M24.QDateTime)+lastModified arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M24.QDateTimeConst) =<<+  (lastModified' arg'1')++lastRead :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO M24.QDateTime)+lastRead arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M24.QDateTimeConst) =<<+  (lastRead' arg'1')++metadataChangeTime :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO M24.QDateTime)+metadataChangeTime arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M24.QDateTimeConst) =<<+  (metadataChangeTime' arg'1')++owner :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+owner arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (owner' arg'1')++ownerId :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CUInt)+ownerId arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (ownerId' arg'1')++path :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+path arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (path' arg'1')++permission :: (QFileInfoValue this, M38.IsQFileDevicePermissions arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+permission arg'1 arg'2 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M38.toQFileDevicePermissions+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (permission' arg'1' arg'2')++permissions :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO M38.QFileDevicePermissions)+permissions arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (permissions' arg'1')++size :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+size arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (size' arg'1')++suffix :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+suffix arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (suffix' arg'1')++symLinkTarget :: (QFileInfoValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+symLinkTarget arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (symLinkTarget' arg'1')++eQ :: (QFileInfoValue this, QFileInfoValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQFileInfoPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QFileInfoValue this, QFileInfoValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQFileInfoPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QFileInfoConstPtr this) => QFileInfoPtr this where+  toQFileInfo :: this -> QFileInfo++makeAbsolute :: (QFileInfoPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+makeAbsolute arg'1 =+  HoppyFHR.withCppPtr (toQFileInfo arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (makeAbsolute' arg'1')++refresh :: (QFileInfoPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+refresh arg'1 =+  HoppyFHR.withCppPtr (toQFileInfo arg'1) $ \arg'1' ->+  (refresh' arg'1')++setCaching :: (QFileInfoPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setCaching arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileInfo arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setCaching' arg'1' arg'2')++setFileString :: (QFileInfoPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFileString arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileInfo arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setFileString' arg'1' arg'2')++setFile :: (QFileInfoPtr this, M36.QFileValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFile arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileInfo arg'1) $ \arg'1' ->+  M36.withQFilePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setFile' arg'1' arg'2')++setFileDirAndString :: (QFileInfoPtr this, M30.QDirValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+setFileDirAndString arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQFileInfo arg'1) $ \arg'1' ->+  M30.withQDirPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (setFileDirAndString' arg'1' arg'2' arg'3')++swap :: (QFileInfoPtr this, QFileInfoPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileInfo arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQFileInfo arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++aSSIGN :: (QFileInfoPtr this, QFileInfoValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QFileInfo)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileInfo arg'1) $ \arg'1' ->+  withQFileInfoPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QFileInfo+  (aSSIGN' arg'1' arg'2')++existsStatic :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Bool)+existsStatic arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (existsStatic' arg'1')++data QFileInfoConst =+    QFileInfoConst (HoppyF.Ptr QFileInfoConst)+  | QFileInfoConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFileInfoConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFileInfoConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFileInfoConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFileInfoToConst :: QFileInfo -> QFileInfoConst+castQFileInfoToConst (QFileInfo ptr') = QFileInfoConst $ HoppyF.castPtr ptr'+castQFileInfoToConst (QFileInfoGc fptr' ptr') = QFileInfoConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFileInfoConst where+  nullptr = QFileInfoConst HoppyF.nullPtr+  +  withCppPtr (QFileInfoConst ptr') f' = f' ptr'+  withCppPtr (QFileInfoConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFileInfoConst ptr') = ptr'+  toPtr (QFileInfoConstGc _ ptr') = ptr'+  +  touchCppPtr (QFileInfoConst _) = HoppyP.return ()+  touchCppPtr (QFileInfoConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFileInfoConst where+  delete (QFileInfoConst ptr') = delete'QFileInfo ptr'+  delete (QFileInfoConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFileInfoConst", " object."]+  +  toGc this'@(QFileInfoConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileInfoConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFileInfo :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFileInfoConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QFileInfoConst QFileInfo where copy = newCopy++instance QFileInfoConstPtr QFileInfoConst where+  toQFileInfoConst = HoppyP.id++data QFileInfo =+    QFileInfo (HoppyF.Ptr QFileInfo)+  | QFileInfoGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFileInfo)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFileInfo where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFileInfo where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFileInfoToNonconst :: QFileInfoConst -> QFileInfo+castQFileInfoToNonconst (QFileInfoConst ptr') = QFileInfo $ HoppyF.castPtr ptr'+castQFileInfoToNonconst (QFileInfoConstGc fptr' ptr') = QFileInfoGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFileInfo where+  nullptr = QFileInfo HoppyF.nullPtr+  +  withCppPtr (QFileInfo ptr') f' = f' ptr'+  withCppPtr (QFileInfoGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFileInfo ptr') = ptr'+  toPtr (QFileInfoGc _ ptr') = ptr'+  +  touchCppPtr (QFileInfo _) = HoppyP.return ()+  touchCppPtr (QFileInfoGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFileInfo where+  delete (QFileInfo ptr') = delete'QFileInfo $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QFileInfoConst)+  delete (QFileInfoGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFileInfo", " object."]+  +  toGc this'@(QFileInfo ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileInfoGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFileInfo :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFileInfoGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QFileInfo QFileInfo where copy = newCopy++instance QFileInfoConstPtr QFileInfo where+  toQFileInfoConst (QFileInfo ptr') = QFileInfoConst $ (HoppyF.castPtr :: HoppyF.Ptr QFileInfo -> HoppyF.Ptr QFileInfoConst) ptr'+  toQFileInfoConst (QFileInfoGc fptr' ptr') = QFileInfoConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QFileInfo -> HoppyF.Ptr QFileInfoConst) ptr'++instance QFileInfoPtr QFileInfo where+  toQFileInfo = HoppyP.id++new :: (HoppyP.IO QFileInfo)+new =+  HoppyP.fmap QFileInfo+  (new')++newWithString :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QFileInfo)+newWithString arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QFileInfo+  (newWithString' arg'1')++newWithFile :: (M36.QFileValue arg'1) => (arg'1) -> (HoppyP.IO QFileInfo)+newWithFile arg'1 =+  M36.withQFilePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QFileInfo+  (newWithFile' arg'1')++newWithDirAndString :: (M30.QDirValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QFileInfo)+newWithDirAndString arg'1 arg'2 =+  M30.withQDirPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QFileInfo+  (newWithDirAndString' arg'1' arg'2')++newCopy :: (QFileInfoValue arg'1) => (arg'1) -> (HoppyP.IO QFileInfo)+newCopy arg'1 =+  withQFileInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QFileInfo+  (newCopy' arg'1')++class QFileInfoSuper a where+  downToQFileInfo :: a -> QFileInfo+++class QFileInfoSuperConst a where+  downToQFileInfoConst :: a -> QFileInfoConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QFileInfo)) QFileInfo where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QFileInfoValue a => HoppyFHR.Assignable QFileInfo a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QFileInfo)) QFileInfo where+  decode = HoppyP.fmap QFileInfo . HoppyF.peek++instance HoppyFHR.Decodable QFileInfo (QFileInfo) where+  decode = HoppyFHR.decode . toQFileInfoConst++instance HoppyFHR.Decodable QFileInfoConst (QFileInfo) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QFileSelector.hs view
@@ -0,0 +1,204 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QFileSelector (+  castQFileSelectorToQObject,+  castQObjectToQFileSelector,+  QFileSelectorValue (..),+  QFileSelectorConstPtr (..),+  allSelectors,+  extraSelectors,+  select,+  QFileSelectorPtr (..),+  setExtraSelectors,+  QFileSelectorConst (..),+  castQFileSelectorToConst,+  QFileSelector (..),+  castQFileSelectorToNonconst,+  new,+  newWithParent,+  QFileSelectorSuper (..),+  QFileSelectorSuperConst (..),+  ) 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.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QStringList as M144+import Prelude (($), (.), (=<<), (==))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QFileSelector_new" new' ::  HoppyP.IO (HoppyF.Ptr QFileSelector)+foreign import ccall "genpop__QFileSelector_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QFileSelector)+foreign import ccall "genpop__QFileSelector_allSelectors" allSelectors' ::  HoppyF.Ptr QFileSelectorConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QFileSelector_extraSelectors" extraSelectors' ::  HoppyF.Ptr QFileSelectorConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QFileSelector_select" select' ::  HoppyF.Ptr QFileSelectorConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileSelector_setExtraSelectors" setExtraSelectors' ::  HoppyF.Ptr QFileSelector -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO ()+foreign import ccall "gencast__QFileSelector__QObject" castQFileSelectorToQObject :: HoppyF.Ptr QFileSelectorConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QFileSelector" castQObjectToQFileSelector :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QFileSelectorConst+foreign import ccall "gendel__QFileSelector" delete'QFileSelector :: HoppyF.Ptr QFileSelectorConst -> HoppyP.IO ()+foreign import ccall "&gendel__QFileSelector" deletePtr'QFileSelector :: HoppyF.FunPtr (HoppyF.Ptr QFileSelectorConst -> HoppyP.IO ())++class QFileSelectorValue a where+  withQFileSelectorPtr :: a -> (QFileSelectorConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QFileSelectorConstPtr a => QFileSelectorValue a where+  withQFileSelectorPtr = HoppyP.flip ($) . toQFileSelectorConst++class (M94.QObjectConstPtr this) => QFileSelectorConstPtr this where+  toQFileSelectorConst :: this -> QFileSelectorConst++allSelectors :: (QFileSelectorValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+allSelectors arg'1 =+  withQFileSelectorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (allSelectors' arg'1')++extraSelectors :: (QFileSelectorValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+extraSelectors arg'1 =+  withQFileSelectorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (extraSelectors' arg'1')++select :: (QFileSelectorValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+select arg'1 arg'2 =+  withQFileSelectorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (select' arg'1' arg'2')++class (QFileSelectorConstPtr this, M94.QObjectPtr this) => QFileSelectorPtr this where+  toQFileSelector :: this -> QFileSelector++setExtraSelectors :: (QFileSelectorPtr this, M144.QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setExtraSelectors arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileSelector arg'1) $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setExtraSelectors' arg'1' arg'2')++data QFileSelectorConst =+    QFileSelectorConst (HoppyF.Ptr QFileSelectorConst)+  | QFileSelectorConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFileSelectorConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFileSelectorConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFileSelectorConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFileSelectorToConst :: QFileSelector -> QFileSelectorConst+castQFileSelectorToConst (QFileSelector ptr') = QFileSelectorConst $ HoppyF.castPtr ptr'+castQFileSelectorToConst (QFileSelectorGc fptr' ptr') = QFileSelectorConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFileSelectorConst where+  nullptr = QFileSelectorConst HoppyF.nullPtr+  +  withCppPtr (QFileSelectorConst ptr') f' = f' ptr'+  withCppPtr (QFileSelectorConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFileSelectorConst ptr') = ptr'+  toPtr (QFileSelectorConstGc _ ptr') = ptr'+  +  touchCppPtr (QFileSelectorConst _) = HoppyP.return ()+  touchCppPtr (QFileSelectorConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFileSelectorConst where+  delete (QFileSelectorConst ptr') = delete'QFileSelector ptr'+  delete (QFileSelectorConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFileSelectorConst", " object."]+  +  toGc this'@(QFileSelectorConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileSelectorConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFileSelector :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFileSelectorConstGc {}) = HoppyP.return this'++instance QFileSelectorConstPtr QFileSelectorConst where+  toQFileSelectorConst = HoppyP.id++instance M94.QObjectConstPtr QFileSelectorConst where+  toQObjectConst (QFileSelectorConst ptr') = M94.QObjectConst $ castQFileSelectorToQObject ptr'+  toQObjectConst (QFileSelectorConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFileSelectorToQObject ptr'++data QFileSelector =+    QFileSelector (HoppyF.Ptr QFileSelector)+  | QFileSelectorGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFileSelector)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFileSelector where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFileSelector where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFileSelectorToNonconst :: QFileSelectorConst -> QFileSelector+castQFileSelectorToNonconst (QFileSelectorConst ptr') = QFileSelector $ HoppyF.castPtr ptr'+castQFileSelectorToNonconst (QFileSelectorConstGc fptr' ptr') = QFileSelectorGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFileSelector where+  nullptr = QFileSelector HoppyF.nullPtr+  +  withCppPtr (QFileSelector ptr') f' = f' ptr'+  withCppPtr (QFileSelectorGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFileSelector ptr') = ptr'+  toPtr (QFileSelectorGc _ ptr') = ptr'+  +  touchCppPtr (QFileSelector _) = HoppyP.return ()+  touchCppPtr (QFileSelectorGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFileSelector where+  delete (QFileSelector ptr') = delete'QFileSelector $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QFileSelectorConst)+  delete (QFileSelectorGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFileSelector", " object."]+  +  toGc this'@(QFileSelector ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileSelectorGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFileSelector :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFileSelectorGc {}) = HoppyP.return this'++instance QFileSelectorConstPtr QFileSelector where+  toQFileSelectorConst (QFileSelector ptr') = QFileSelectorConst $ (HoppyF.castPtr :: HoppyF.Ptr QFileSelector -> HoppyF.Ptr QFileSelectorConst) ptr'+  toQFileSelectorConst (QFileSelectorGc fptr' ptr') = QFileSelectorConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QFileSelector -> HoppyF.Ptr QFileSelectorConst) ptr'++instance QFileSelectorPtr QFileSelector where+  toQFileSelector = HoppyP.id++instance M94.QObjectConstPtr QFileSelector where+  toQObjectConst (QFileSelector ptr') = M94.QObjectConst $ castQFileSelectorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileSelector -> HoppyF.Ptr QFileSelectorConst) ptr'+  toQObjectConst (QFileSelectorGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFileSelectorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileSelector -> HoppyF.Ptr QFileSelectorConst) ptr'++instance M94.QObjectPtr QFileSelector where+  toQObject (QFileSelector ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFileSelectorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileSelector -> HoppyF.Ptr QFileSelectorConst) ptr'+  toQObject (QFileSelectorGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFileSelectorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileSelector -> HoppyF.Ptr QFileSelectorConst) ptr'++new :: (HoppyP.IO QFileSelector)+new =+  HoppyP.fmap QFileSelector+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QFileSelector)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QFileSelector+  (newWithParent' arg'1')++class QFileSelectorSuper a where+  downToQFileSelector :: a -> QFileSelector++instance QFileSelectorSuper M94.QObject where+  downToQFileSelector = castQFileSelectorToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QFileSelectorConst $ castQObjectToQFileSelector ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QFileSelectorConstGc fptr' $ castQObjectToQFileSelector ptr'++class QFileSelectorSuperConst a where+  downToQFileSelectorConst :: a -> QFileSelectorConst++instance QFileSelectorSuperConst M94.QObjectConst where+  downToQFileSelectorConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QFileSelectorConst $ castQObjectToQFileSelector ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QFileSelectorConstGc fptr' $ castQObjectToQFileSelector ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QFileSelector)) QFileSelector where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QFileSelector)) QFileSelector where+  decode = HoppyP.fmap QFileSelector . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QFileSystemWatcher.hs view
@@ -0,0 +1,245 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QFileSystemWatcher (+  castQFileSystemWatcherToQObject,+  castQObjectToQFileSystemWatcher,+  QFileSystemWatcherValue (..),+  QFileSystemWatcherConstPtr (..),+  directories,+  files,+  QFileSystemWatcherPtr (..),+  addPath,+  addPaths,+  removePath,+  removePaths,+  QFileSystemWatcherConst (..),+  castQFileSystemWatcherToConst,+  QFileSystemWatcher (..),+  castQFileSystemWatcherToNonconst,+  new,+  newWithParent,+  newWithPaths,+  newWithPathsAndParent,+  QFileSystemWatcherSuper (..),+  QFileSystemWatcherSuperConst (..),+  ) 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.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QStringList as M144+import Prelude (($), (.), (/=), (=<<), (==))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QFileSystemWatcher_new" new' ::  HoppyP.IO (HoppyF.Ptr QFileSystemWatcher)+foreign import ccall "genpop__QFileSystemWatcher_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QFileSystemWatcher)+foreign import ccall "genpop__QFileSystemWatcher_newWithPaths" newWithPaths' ::  HoppyF.Ptr M144.QStringListConst -> HoppyP.IO (HoppyF.Ptr QFileSystemWatcher)+foreign import ccall "genpop__QFileSystemWatcher_newWithPathsAndParent" newWithPathsAndParent' ::  HoppyF.Ptr M144.QStringListConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QFileSystemWatcher)+foreign import ccall "genpop__QFileSystemWatcher_addPath" addPath' ::  HoppyF.Ptr QFileSystemWatcher -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileSystemWatcher_addPaths" addPaths' ::  HoppyF.Ptr QFileSystemWatcher -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QFileSystemWatcher_directories" directories' ::  HoppyF.Ptr QFileSystemWatcherConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QFileSystemWatcher_files" files' ::  HoppyF.Ptr QFileSystemWatcherConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QFileSystemWatcher_removePath" removePath' ::  HoppyF.Ptr QFileSystemWatcher -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFileSystemWatcher_removePaths" removePaths' ::  HoppyF.Ptr QFileSystemWatcher -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "gencast__QFileSystemWatcher__QObject" castQFileSystemWatcherToQObject :: HoppyF.Ptr QFileSystemWatcherConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QFileSystemWatcher" castQObjectToQFileSystemWatcher :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QFileSystemWatcherConst+foreign import ccall "gendel__QFileSystemWatcher" delete'QFileSystemWatcher :: HoppyF.Ptr QFileSystemWatcherConst -> HoppyP.IO ()+foreign import ccall "&gendel__QFileSystemWatcher" deletePtr'QFileSystemWatcher :: HoppyF.FunPtr (HoppyF.Ptr QFileSystemWatcherConst -> HoppyP.IO ())++class QFileSystemWatcherValue a where+  withQFileSystemWatcherPtr :: a -> (QFileSystemWatcherConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QFileSystemWatcherConstPtr a => QFileSystemWatcherValue a where+  withQFileSystemWatcherPtr = HoppyP.flip ($) . toQFileSystemWatcherConst++class (M94.QObjectConstPtr this) => QFileSystemWatcherConstPtr this where+  toQFileSystemWatcherConst :: this -> QFileSystemWatcherConst++directories :: (QFileSystemWatcherValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+directories arg'1 =+  withQFileSystemWatcherPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (directories' arg'1')++files :: (QFileSystemWatcherValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+files arg'1 =+  withQFileSystemWatcherPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (files' arg'1')++class (QFileSystemWatcherConstPtr this, M94.QObjectPtr this) => QFileSystemWatcherPtr this where+  toQFileSystemWatcher :: this -> QFileSystemWatcher++addPath :: (QFileSystemWatcherPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+addPath arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileSystemWatcher arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (addPath' arg'1' arg'2')++addPaths :: (QFileSystemWatcherPtr this, M144.QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO [QtahP.String])+addPaths arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileSystemWatcher arg'1) $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (addPaths' arg'1' arg'2')++removePath :: (QFileSystemWatcherPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removePath arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileSystemWatcher arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removePath' arg'1' arg'2')++removePaths :: (QFileSystemWatcherPtr this, M144.QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO [QtahP.String])+removePaths arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileSystemWatcher arg'1) $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (removePaths' arg'1' arg'2')++data QFileSystemWatcherConst =+    QFileSystemWatcherConst (HoppyF.Ptr QFileSystemWatcherConst)+  | QFileSystemWatcherConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFileSystemWatcherConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFileSystemWatcherConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFileSystemWatcherConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFileSystemWatcherToConst :: QFileSystemWatcher -> QFileSystemWatcherConst+castQFileSystemWatcherToConst (QFileSystemWatcher ptr') = QFileSystemWatcherConst $ HoppyF.castPtr ptr'+castQFileSystemWatcherToConst (QFileSystemWatcherGc fptr' ptr') = QFileSystemWatcherConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFileSystemWatcherConst where+  nullptr = QFileSystemWatcherConst HoppyF.nullPtr+  +  withCppPtr (QFileSystemWatcherConst ptr') f' = f' ptr'+  withCppPtr (QFileSystemWatcherConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFileSystemWatcherConst ptr') = ptr'+  toPtr (QFileSystemWatcherConstGc _ ptr') = ptr'+  +  touchCppPtr (QFileSystemWatcherConst _) = HoppyP.return ()+  touchCppPtr (QFileSystemWatcherConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFileSystemWatcherConst where+  delete (QFileSystemWatcherConst ptr') = delete'QFileSystemWatcher ptr'+  delete (QFileSystemWatcherConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFileSystemWatcherConst", " object."]+  +  toGc this'@(QFileSystemWatcherConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileSystemWatcherConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFileSystemWatcher :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFileSystemWatcherConstGc {}) = HoppyP.return this'++instance QFileSystemWatcherConstPtr QFileSystemWatcherConst where+  toQFileSystemWatcherConst = HoppyP.id++instance M94.QObjectConstPtr QFileSystemWatcherConst where+  toQObjectConst (QFileSystemWatcherConst ptr') = M94.QObjectConst $ castQFileSystemWatcherToQObject ptr'+  toQObjectConst (QFileSystemWatcherConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFileSystemWatcherToQObject ptr'++data QFileSystemWatcher =+    QFileSystemWatcher (HoppyF.Ptr QFileSystemWatcher)+  | QFileSystemWatcherGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFileSystemWatcher)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFileSystemWatcher where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFileSystemWatcher where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFileSystemWatcherToNonconst :: QFileSystemWatcherConst -> QFileSystemWatcher+castQFileSystemWatcherToNonconst (QFileSystemWatcherConst ptr') = QFileSystemWatcher $ HoppyF.castPtr ptr'+castQFileSystemWatcherToNonconst (QFileSystemWatcherConstGc fptr' ptr') = QFileSystemWatcherGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFileSystemWatcher where+  nullptr = QFileSystemWatcher HoppyF.nullPtr+  +  withCppPtr (QFileSystemWatcher ptr') f' = f' ptr'+  withCppPtr (QFileSystemWatcherGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFileSystemWatcher ptr') = ptr'+  toPtr (QFileSystemWatcherGc _ ptr') = ptr'+  +  touchCppPtr (QFileSystemWatcher _) = HoppyP.return ()+  touchCppPtr (QFileSystemWatcherGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFileSystemWatcher where+  delete (QFileSystemWatcher ptr') = delete'QFileSystemWatcher $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QFileSystemWatcherConst)+  delete (QFileSystemWatcherGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFileSystemWatcher", " object."]+  +  toGc this'@(QFileSystemWatcher ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileSystemWatcherGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFileSystemWatcher :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFileSystemWatcherGc {}) = HoppyP.return this'++instance QFileSystemWatcherConstPtr QFileSystemWatcher where+  toQFileSystemWatcherConst (QFileSystemWatcher ptr') = QFileSystemWatcherConst $ (HoppyF.castPtr :: HoppyF.Ptr QFileSystemWatcher -> HoppyF.Ptr QFileSystemWatcherConst) ptr'+  toQFileSystemWatcherConst (QFileSystemWatcherGc fptr' ptr') = QFileSystemWatcherConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QFileSystemWatcher -> HoppyF.Ptr QFileSystemWatcherConst) ptr'++instance QFileSystemWatcherPtr QFileSystemWatcher where+  toQFileSystemWatcher = HoppyP.id++instance M94.QObjectConstPtr QFileSystemWatcher where+  toQObjectConst (QFileSystemWatcher ptr') = M94.QObjectConst $ castQFileSystemWatcherToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileSystemWatcher -> HoppyF.Ptr QFileSystemWatcherConst) ptr'+  toQObjectConst (QFileSystemWatcherGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFileSystemWatcherToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileSystemWatcher -> HoppyF.Ptr QFileSystemWatcherConst) ptr'++instance M94.QObjectPtr QFileSystemWatcher where+  toQObject (QFileSystemWatcher ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFileSystemWatcherToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileSystemWatcher -> HoppyF.Ptr QFileSystemWatcherConst) ptr'+  toQObject (QFileSystemWatcherGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFileSystemWatcherToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileSystemWatcher -> HoppyF.Ptr QFileSystemWatcherConst) ptr'++new :: (HoppyP.IO QFileSystemWatcher)+new =+  HoppyP.fmap QFileSystemWatcher+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QFileSystemWatcher)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QFileSystemWatcher+  (newWithParent' arg'1')++newWithPaths :: (M144.QStringListValue arg'1) => (arg'1) -> (HoppyP.IO QFileSystemWatcher)+newWithPaths arg'1 =+  M144.withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QFileSystemWatcher+  (newWithPaths' arg'1')++newWithPathsAndParent :: (M144.QStringListValue arg'1, M94.QObjectPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QFileSystemWatcher)+newWithPathsAndParent arg'1 arg'2 =+  M144.withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  HoppyP.fmap QFileSystemWatcher+  (newWithPathsAndParent' arg'1' arg'2')++class QFileSystemWatcherSuper a where+  downToQFileSystemWatcher :: a -> QFileSystemWatcher++instance QFileSystemWatcherSuper M94.QObject where+  downToQFileSystemWatcher = castQFileSystemWatcherToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QFileSystemWatcherConst $ castQObjectToQFileSystemWatcher ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QFileSystemWatcherConstGc fptr' $ castQObjectToQFileSystemWatcher ptr'++class QFileSystemWatcherSuperConst a where+  downToQFileSystemWatcherConst :: a -> QFileSystemWatcherConst++instance QFileSystemWatcherSuperConst M94.QObjectConst where+  downToQFileSystemWatcherConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QFileSystemWatcherConst $ castQObjectToQFileSystemWatcher ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QFileSystemWatcherConstGc fptr' $ castQObjectToQFileSystemWatcher ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QFileSystemWatcher)) QFileSystemWatcher where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QFileSystemWatcher)) QFileSystemWatcher where+  decode = HoppyP.fmap QFileSystemWatcher . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QIODevice.hs view
@@ -0,0 +1,736 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QIODevice (+  castQIODeviceToQObject,+  castQObjectToQIODevice,+  QIODeviceValue (..),+  QIODeviceConstPtr (..),+  atEnd,+  bytesAvailable,+  bytesToWrite,+  canReadLine,+  currentReadChannel,+  currentWriteChannel,+  errorString,+  isOpen,+  isReadable,+  isSequential,+  isTextModeEnabled,+  isTransactionStarted,+  isWritable,+  openMode,+  pos,+  readChannelCount,+  size,+  writeChannelCount,+  QIODevicePtr (..),+  close,+  commitTransaction,+  open,+  peekByteArray,+  peekRaw,+  putChar,+  readByteArray,+  readRaw,+  readAll,+  readLineByteArray,+  readLineByteArrayWithSize,+  readLineRaw,+  reset,+  rollbackTransaction,+  seek,+  setCurrentReadChannel,+  setCurrentWriteChannel,+  setTextModeEnabled,+  skip,+  startTransaction,+  ungetChar,+  waitForBytesWritten,+  waitForReadyRead,+  writeByteArray,+  writeRaw,+  writeRawWithSize,+  emitAboutToClose,+  emitBytesWritten,+  emitChannelBytesWritten,+  emitChannelReadyRead,+  emitReadChannelFinished,+  emitReadyRead,+  QIODeviceConst (..),+  castQIODeviceToConst,+  QIODevice (..),+  castQIODeviceToNonconst,+  QIODeviceSuper (..),+  QIODeviceSuperConst (..),+  QIODeviceOpenMode,+  IsQIODeviceOpenMode (..),+  append,+  existingOnly,+  newOnly,+  notOpen,+  readOnly,+  readWrite,+  text,+  truncate,+  unbuffered,+  writeOnly,+  QIODeviceOpenModeFlag (..),+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Data.ByteString as QtahDBS+import qualified Data.Int as HoppyDI+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QIODevice_atEnd" atEnd' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIODevice_bytesAvailable" bytesAvailable' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QIODevice_bytesToWrite" bytesToWrite' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QIODevice_canReadLine" canReadLine' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIODevice_close" close' ::  HoppyF.Ptr QIODevice -> HoppyP.IO ()+foreign import ccall "genpop__QIODevice_commitTransaction" commitTransaction' ::  HoppyF.Ptr QIODevice -> HoppyP.IO ()+foreign import ccall "genpop__QIODevice_currentReadChannel" currentReadChannel' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QIODevice_currentWriteChannel" currentWriteChannel' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QIODevice_errorString" errorString' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QIODevice_isOpen" isOpen' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIODevice_isReadable" isReadable' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIODevice_isSequential" isSequential' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIODevice_isTextModeEnabled" isTextModeEnabled' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIODevice_isTransactionStarted" isTransactionStarted' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIODevice_isWritable" isWritable' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIODevice_open" open' ::  HoppyF.Ptr QIODevice -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIODevice_openMode" openMode' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QIODevice_peekByteArray" peekByteArray' ::  HoppyF.Ptr QIODevice -> HoppyDI.Int64 -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QIODevice_peekRaw" peekRaw' ::  HoppyF.Ptr QIODevice -> HoppyF.Ptr HoppyFC.CChar -> HoppyDI.Int64 -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QIODevice_pos" pos' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QIODevice_putChar" putChar' ::  HoppyF.Ptr QIODevice -> HoppyFC.CChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIODevice_readByteArray" readByteArray' ::  HoppyF.Ptr QIODevice -> HoppyDI.Int64 -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QIODevice_readRaw" readRaw' ::  HoppyF.Ptr QIODevice -> HoppyF.Ptr HoppyFC.CChar -> HoppyDI.Int64 -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QIODevice_readAll" readAll' ::  HoppyF.Ptr QIODevice -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QIODevice_readChannelCount" readChannelCount' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QIODevice_readLineByteArray" readLineByteArray' ::  HoppyF.Ptr QIODevice -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QIODevice_readLineByteArrayWithSize" readLineByteArrayWithSize' ::  HoppyF.Ptr QIODevice -> HoppyDI.Int64 -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QIODevice_readLineRaw" readLineRaw' ::  HoppyF.Ptr QIODevice -> HoppyF.Ptr HoppyFC.CChar -> HoppyDI.Int64 -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QIODevice_reset" reset' ::  HoppyF.Ptr QIODevice -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIODevice_rollbackTransaction" rollbackTransaction' ::  HoppyF.Ptr QIODevice -> HoppyP.IO ()+foreign import ccall "genpop__QIODevice_seek" seek' ::  HoppyF.Ptr QIODevice -> HoppyDI.Int64 -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIODevice_setCurrentReadChannel" setCurrentReadChannel' ::  HoppyF.Ptr QIODevice -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QIODevice_setCurrentWriteChannel" setCurrentWriteChannel' ::  HoppyF.Ptr QIODevice -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QIODevice_setTextModeEnabled" setTextModeEnabled' ::  HoppyF.Ptr QIODevice -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QIODevice_size" size' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QIODevice_skip" skip' ::  HoppyF.Ptr QIODevice -> HoppyDI.Int64 -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QIODevice_startTransaction" startTransaction' ::  HoppyF.Ptr QIODevice -> HoppyP.IO ()+foreign import ccall "genpop__QIODevice_ungetChar" ungetChar' ::  HoppyF.Ptr QIODevice -> HoppyFC.CChar -> HoppyP.IO ()+foreign import ccall "genpop__QIODevice_waitForBytesWritten" waitForBytesWritten' ::  HoppyF.Ptr QIODevice -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIODevice_waitForReadyRead" waitForReadyRead' ::  HoppyF.Ptr QIODevice -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIODevice_writeByteArray" writeByteArray' ::  HoppyF.Ptr QIODevice -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QIODevice_writeRaw" writeRaw' ::  HoppyF.Ptr QIODevice -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QIODevice_writeRawWithSize" writeRawWithSize' ::  HoppyF.Ptr QIODevice -> HoppyF.Ptr HoppyFC.CChar -> HoppyDI.Int64 -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QIODevice_writeChannelCount" writeChannelCount' ::  HoppyF.Ptr QIODeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QIODevice_emitAboutToClose" emitAboutToClose' ::  HoppyF.Ptr QIODevice -> HoppyP.IO ()+foreign import ccall "genpop__QIODevice_emitBytesWritten" emitBytesWritten' ::  HoppyF.Ptr QIODevice -> HoppyDI.Int64 -> HoppyP.IO ()+foreign import ccall "genpop__QIODevice_emitChannelBytesWritten" emitChannelBytesWritten' ::  HoppyF.Ptr QIODevice -> HoppyFC.CInt -> HoppyDI.Int64 -> HoppyP.IO ()+foreign import ccall "genpop__QIODevice_emitChannelReadyRead" emitChannelReadyRead' ::  HoppyF.Ptr QIODevice -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QIODevice_emitReadChannelFinished" emitReadChannelFinished' ::  HoppyF.Ptr QIODevice -> HoppyP.IO ()+foreign import ccall "genpop__QIODevice_emitReadyRead" emitReadyRead' ::  HoppyF.Ptr QIODevice -> HoppyP.IO ()+foreign import ccall "gencast__QIODevice__QObject" castQIODeviceToQObject :: HoppyF.Ptr QIODeviceConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QIODevice" castQObjectToQIODevice :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QIODeviceConst+foreign import ccall "gendel__QIODevice" delete'QIODevice :: HoppyF.Ptr QIODeviceConst -> HoppyP.IO ()+foreign import ccall "&gendel__QIODevice" deletePtr'QIODevice :: HoppyF.FunPtr (HoppyF.Ptr QIODeviceConst -> HoppyP.IO ())++class QIODeviceValue a where+  withQIODevicePtr :: a -> (QIODeviceConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QIODeviceConstPtr a => QIODeviceValue a where+  withQIODevicePtr = HoppyP.flip ($) . toQIODeviceConst++class (M94.QObjectConstPtr this) => QIODeviceConstPtr this where+  toQIODeviceConst :: this -> QIODeviceConst++atEnd :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+atEnd arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (atEnd' arg'1')++bytesAvailable :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+bytesAvailable arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (bytesAvailable' arg'1')++bytesToWrite :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+bytesToWrite arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (bytesToWrite' arg'1')++canReadLine :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+canReadLine arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (canReadLine' arg'1')++currentReadChannel :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+currentReadChannel arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (currentReadChannel' arg'1')++currentWriteChannel :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+currentWriteChannel arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (currentWriteChannel' arg'1')++errorString :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+errorString arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (errorString' arg'1')++isOpen :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isOpen arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isOpen' arg'1')++isReadable :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isReadable arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isReadable' arg'1')++isSequential :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isSequential arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSequential' arg'1')++isTextModeEnabled :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isTextModeEnabled arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isTextModeEnabled' arg'1')++isTransactionStarted :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isTransactionStarted arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isTransactionStarted' arg'1')++isWritable :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isWritable arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isWritable' arg'1')++openMode :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO QIODeviceOpenMode)+openMode arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (openMode' arg'1')++pos :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+pos arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (pos' arg'1')++readChannelCount :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+readChannelCount arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (readChannelCount' arg'1')++size :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+size arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (size' arg'1')++writeChannelCount :: (QIODeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+writeChannelCount arg'1 =+  withQIODevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (writeChannelCount' arg'1')++class (QIODeviceConstPtr this, M94.QObjectPtr this) => QIODevicePtr this where+  toQIODevice :: this -> QIODevice++close :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+close arg'1 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (close' arg'1')++commitTransaction :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+commitTransaction arg'1 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (commitTransaction' arg'1')++open :: (QIODevicePtr this, IsQIODeviceOpenMode arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+open arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQIODeviceOpenMode+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (open' arg'1' arg'2')++peekByteArray :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.IO QtahDBS.ByteString)+peekByteArray arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (peekByteArray' arg'1' arg'2')++peekRaw :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyDI.Int64) -> (HoppyP.IO HoppyDI.Int64)+peekRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  (peekRaw' arg'1' arg'2' arg'3')++putChar :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.IO HoppyP.Bool)+putChar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (putChar' arg'1' arg'2')++readByteArray :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.IO QtahDBS.ByteString)+readByteArray arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (readByteArray' arg'1' arg'2')++readRaw :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyDI.Int64) -> (HoppyP.IO HoppyDI.Int64)+readRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  (readRaw' arg'1' arg'2' arg'3')++readAll :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+readAll arg'1 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (readAll' arg'1')++readLineByteArray :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+readLineByteArray arg'1 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (readLineByteArray' arg'1')++readLineByteArrayWithSize :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.IO QtahDBS.ByteString)+readLineByteArrayWithSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (readLineByteArrayWithSize' arg'1' arg'2')++readLineRaw :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyDI.Int64) -> (HoppyP.IO HoppyDI.Int64)+readLineRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  (readLineRaw' arg'1' arg'2' arg'3')++reset :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+reset arg'1 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (reset' arg'1')++rollbackTransaction :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+rollbackTransaction arg'1 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (rollbackTransaction' arg'1')++seek :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.IO HoppyP.Bool)+seek arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (seek' arg'1' arg'2')++setCurrentReadChannel :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setCurrentReadChannel arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setCurrentReadChannel' arg'1' arg'2')++setCurrentWriteChannel :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setCurrentWriteChannel arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setCurrentWriteChannel' arg'1' arg'2')++setTextModeEnabled :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setTextModeEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setTextModeEnabled' arg'1' arg'2')++skip :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.IO HoppyDI.Int64)+skip arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (skip' arg'1' arg'2')++startTransaction :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+startTransaction arg'1 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (startTransaction' arg'1')++ungetChar :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.IO ())+ungetChar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (ungetChar' arg'1' arg'2')++waitForBytesWritten :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+waitForBytesWritten arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (waitForBytesWritten' arg'1' arg'2')++waitForReadyRead :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+waitForReadyRead arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (waitForReadyRead' arg'1' arg'2')++writeByteArray :: (QIODevicePtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyDI.Int64)+writeByteArray arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (writeByteArray' arg'1' arg'2')++writeRaw :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyDI.Int64)+writeRaw arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (writeRaw' arg'1' arg'2')++writeRawWithSize :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyDI.Int64) -> (HoppyP.IO HoppyDI.Int64)+writeRawWithSize arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  (writeRawWithSize' arg'1' arg'2' arg'3')++emitAboutToClose :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitAboutToClose arg'1 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (emitAboutToClose' arg'1')++emitBytesWritten :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.IO ())+emitBytesWritten arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (emitBytesWritten' arg'1' arg'2')++emitChannelBytesWritten :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyDI.Int64) -> (HoppyP.IO ())+emitChannelBytesWritten arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  (emitChannelBytesWritten' arg'1' arg'2' arg'3')++emitChannelReadyRead :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitChannelReadyRead arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitChannelReadyRead' arg'1' arg'2')++emitReadChannelFinished :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitReadChannelFinished arg'1 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (emitReadChannelFinished' arg'1')++emitReadyRead :: (QIODevicePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitReadyRead arg'1 =+  HoppyFHR.withCppPtr (toQIODevice arg'1) $ \arg'1' ->+  (emitReadyRead' arg'1')++data QIODeviceConst =+    QIODeviceConst (HoppyF.Ptr QIODeviceConst)+  | QIODeviceConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QIODeviceConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QIODeviceConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QIODeviceConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQIODeviceToConst :: QIODevice -> QIODeviceConst+castQIODeviceToConst (QIODevice ptr') = QIODeviceConst $ HoppyF.castPtr ptr'+castQIODeviceToConst (QIODeviceGc fptr' ptr') = QIODeviceConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QIODeviceConst where+  nullptr = QIODeviceConst HoppyF.nullPtr+  +  withCppPtr (QIODeviceConst ptr') f' = f' ptr'+  withCppPtr (QIODeviceConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QIODeviceConst ptr') = ptr'+  toPtr (QIODeviceConstGc _ ptr') = ptr'+  +  touchCppPtr (QIODeviceConst _) = HoppyP.return ()+  touchCppPtr (QIODeviceConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QIODeviceConst where+  delete (QIODeviceConst ptr') = delete'QIODevice ptr'+  delete (QIODeviceConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QIODeviceConst", " object."]+  +  toGc this'@(QIODeviceConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QIODeviceConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QIODevice :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QIODeviceConstGc {}) = HoppyP.return this'++instance QIODeviceConstPtr QIODeviceConst where+  toQIODeviceConst = HoppyP.id++instance M94.QObjectConstPtr QIODeviceConst where+  toQObjectConst (QIODeviceConst ptr') = M94.QObjectConst $ castQIODeviceToQObject ptr'+  toQObjectConst (QIODeviceConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQIODeviceToQObject ptr'++data QIODevice =+    QIODevice (HoppyF.Ptr QIODevice)+  | QIODeviceGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QIODevice)+  deriving (HoppyP.Show)++instance HoppyP.Eq QIODevice where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QIODevice where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQIODeviceToNonconst :: QIODeviceConst -> QIODevice+castQIODeviceToNonconst (QIODeviceConst ptr') = QIODevice $ HoppyF.castPtr ptr'+castQIODeviceToNonconst (QIODeviceConstGc fptr' ptr') = QIODeviceGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QIODevice where+  nullptr = QIODevice HoppyF.nullPtr+  +  withCppPtr (QIODevice ptr') f' = f' ptr'+  withCppPtr (QIODeviceGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QIODevice ptr') = ptr'+  toPtr (QIODeviceGc _ ptr') = ptr'+  +  touchCppPtr (QIODevice _) = HoppyP.return ()+  touchCppPtr (QIODeviceGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QIODevice where+  delete (QIODevice ptr') = delete'QIODevice $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QIODeviceConst)+  delete (QIODeviceGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QIODevice", " object."]+  +  toGc this'@(QIODevice ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QIODeviceGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QIODevice :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QIODeviceGc {}) = HoppyP.return this'++instance QIODeviceConstPtr QIODevice where+  toQIODeviceConst (QIODevice ptr') = QIODeviceConst $ (HoppyF.castPtr :: HoppyF.Ptr QIODevice -> HoppyF.Ptr QIODeviceConst) ptr'+  toQIODeviceConst (QIODeviceGc fptr' ptr') = QIODeviceConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QIODevice -> HoppyF.Ptr QIODeviceConst) ptr'++instance QIODevicePtr QIODevice where+  toQIODevice = HoppyP.id++instance M94.QObjectConstPtr QIODevice where+  toQObjectConst (QIODevice ptr') = M94.QObjectConst $ castQIODeviceToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QIODevice -> HoppyF.Ptr QIODeviceConst) ptr'+  toQObjectConst (QIODeviceGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQIODeviceToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QIODevice -> HoppyF.Ptr QIODeviceConst) ptr'++instance M94.QObjectPtr QIODevice where+  toQObject (QIODevice ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQIODeviceToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QIODevice -> HoppyF.Ptr QIODeviceConst) ptr'+  toQObject (QIODeviceGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQIODeviceToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QIODevice -> HoppyF.Ptr QIODeviceConst) ptr'++class QIODeviceSuper a where+  downToQIODevice :: a -> QIODevice++instance QIODeviceSuper M94.QObject where+  downToQIODevice = castQIODeviceToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QIODeviceConst $ castQObjectToQIODevice ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QIODeviceConstGc fptr' $ castQObjectToQIODevice ptr'++class QIODeviceSuperConst a where+  downToQIODeviceConst :: a -> QIODeviceConst++instance QIODeviceSuperConst M94.QObjectConst where+  downToQIODeviceConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QIODeviceConst $ castQObjectToQIODevice ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QIODeviceConstGc fptr' $ castQObjectToQIODevice ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QIODevice)) QIODevice where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QIODevice)) QIODevice where+  decode = HoppyP.fmap QIODevice . HoppyF.peek++newtype QIODeviceOpenMode = QIODeviceOpenMode (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QIODeviceOpenModeFlag QIODeviceOpenMode where+  enumToFlags = QIODeviceOpenMode . QtahFHR.fromCppEnum+  flagsToEnum (QIODeviceOpenMode x') = QtahFHR.toCppEnum x'++class IsQIODeviceOpenMode a where+  toQIODeviceOpenMode :: a -> QIODeviceOpenMode++instance IsQIODeviceOpenMode QIODeviceOpenMode where toQIODeviceOpenMode = QtahP.id+instance IsQIODeviceOpenMode QIODeviceOpenModeFlag where toQIODeviceOpenMode = QtahFlags.enumToFlags+instance IsQIODeviceOpenMode (HoppyFC.CInt) where toQIODeviceOpenMode = QtahFlags.numToFlags++append :: QIODeviceOpenMode+append = QIODeviceOpenMode (4)++existingOnly :: QIODeviceOpenMode+existingOnly = QIODeviceOpenMode (128)++newOnly :: QIODeviceOpenMode+newOnly = QIODeviceOpenMode (64)++notOpen :: QIODeviceOpenMode+notOpen = QIODeviceOpenMode (0)++readOnly :: QIODeviceOpenMode+readOnly = QIODeviceOpenMode (1)++readWrite :: QIODeviceOpenMode+readWrite = QIODeviceOpenMode (3)++text :: QIODeviceOpenMode+text = QIODeviceOpenMode (16)++truncate :: QIODeviceOpenMode+truncate = QIODeviceOpenMode (8)++unbuffered :: QIODeviceOpenMode+unbuffered = QIODeviceOpenMode (32)++writeOnly :: QIODeviceOpenMode+writeOnly = QIODeviceOpenMode (2)++instance QtahDB.Bits QIODeviceOpenMode where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QIODeviceOpenModeFlag =+  NotOpen+  | ReadOnly+  | WriteOnly+  | ReadWrite+  | Append+  | Truncate+  | Text+  | Unbuffered+  | NewOnly+  | ExistingOnly+  | UnknownQioDeviceOpenModeFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QIODeviceOpenModeFlag where+  fromCppEnum NotOpen = 0+  fromCppEnum ReadOnly = 1+  fromCppEnum WriteOnly = 2+  fromCppEnum ReadWrite = 3+  fromCppEnum Append = 4+  fromCppEnum Truncate = 8+  fromCppEnum Text = 16+  fromCppEnum Unbuffered = 32+  fromCppEnum NewOnly = 64+  fromCppEnum ExistingOnly = 128+  fromCppEnum (UnknownQioDeviceOpenModeFlag n) = n+  +  toCppEnum (0) = NotOpen+  toCppEnum (1) = ReadOnly+  toCppEnum (2) = WriteOnly+  toCppEnum (3) = ReadWrite+  toCppEnum (4) = Append+  toCppEnum (8) = Truncate+  toCppEnum (16) = Text+  toCppEnum (32) = Unbuffered+  toCppEnum (64) = NewOnly+  toCppEnum (128) = ExistingOnly+  toCppEnum n = UnknownQioDeviceOpenModeFlag n++instance HoppyP.Eq QIODeviceOpenModeFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QIODeviceOpenModeFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Core/QItemSelection.hs view
@@ -0,0 +1,224 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QItemSelection (+  castQItemSelectionToQListQItemSelectionRange,+  QItemSelectionValue (..),+  QItemSelectionConstPtr (..),+  contains,+  indexes,+  QItemSelectionPtr (..),+  merge,+  select,+  split,+  QItemSelectionConst (..),+  castQItemSelectionToConst,+  QItemSelection (..),+  castQItemSelectionToNonconst,+  new,+  newWithRange,+  QItemSelectionSuper (..),+  QItemSelectionSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QItemSelectionModel as M52+import qualified Graphics.UI.Qtah.Generated.Core.QItemSelectionRange as M54+import qualified Graphics.UI.Qtah.Generated.Core.QList.QItemSelectionRange as M198+import qualified Graphics.UI.Qtah.Generated.Core.QList.QModelIndex as M200+import qualified Graphics.UI.Qtah.Generated.Core.QModelIndex as M92+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QItemSelection_new" new' ::  HoppyP.IO (HoppyF.Ptr QItemSelection)+foreign import ccall "genpop__QItemSelection_newWithRange" newWithRange' ::  HoppyF.Ptr M92.QModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr QItemSelection)+foreign import ccall "genpop__QItemSelection_contains" contains' ::  HoppyF.Ptr QItemSelectionConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QItemSelection_indexes" indexes' ::  HoppyF.Ptr QItemSelectionConst -> HoppyP.IO (HoppyF.Ptr M200.QListQModelIndexConst)+foreign import ccall "genpop__QItemSelection_merge" merge' ::  HoppyF.Ptr QItemSelection -> HoppyF.Ptr QItemSelectionConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QItemSelection_select" select' ::  HoppyF.Ptr QItemSelection -> HoppyF.Ptr M92.QModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QItemSelection_split" split' ::  HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyF.Ptr QItemSelection -> HoppyP.IO ()+foreign import ccall "gencast__QItemSelection__QListQItemSelectionRange" castQItemSelectionToQListQItemSelectionRange :: HoppyF.Ptr QItemSelectionConst -> HoppyF.Ptr M198.QListQItemSelectionRangeConst+foreign import ccall "gendel__QItemSelection" delete'QItemSelection :: HoppyF.Ptr QItemSelectionConst -> HoppyP.IO ()+foreign import ccall "&gendel__QItemSelection" deletePtr'QItemSelection :: HoppyF.FunPtr (HoppyF.Ptr QItemSelectionConst -> HoppyP.IO ())++class QItemSelectionValue a where+  withQItemSelectionPtr :: a -> (QItemSelectionConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QItemSelectionConstPtr a => QItemSelectionValue a where+  withQItemSelectionPtr = HoppyP.flip ($) . toQItemSelectionConst++class (M198.QListQItemSelectionRangeConstPtr this) => QItemSelectionConstPtr this where+  toQItemSelectionConst :: this -> QItemSelectionConst++contains :: (QItemSelectionValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQItemSelectionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++indexes :: (QItemSelectionValue this) => (this) {- ^ this -} -> (HoppyP.IO [M92.QModelIndex])+indexes arg'1 =+  withQItemSelectionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M200.QListQModelIndexConst) =<<+  (indexes' arg'1')++class (QItemSelectionConstPtr this, M198.QListQItemSelectionRangePtr this) => QItemSelectionPtr this where+  toQItemSelection :: this -> QItemSelection++merge :: (QItemSelectionPtr this, QItemSelectionValue arg'2, M52.IsQItemSelectionModelSelectionFlags arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+merge arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQItemSelection arg'1) $ \arg'1' ->+  withQItemSelectionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M52.toQItemSelectionModelSelectionFlags+  ) arg'3 >>= \arg'3' ->+  (merge' arg'1' arg'2' arg'3')++select :: (QItemSelectionPtr this, M92.QModelIndexValue arg'2, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+select arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQItemSelection arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (select' arg'1' arg'2' arg'3')++split :: (M54.QItemSelectionRangeValue arg'1, M54.QItemSelectionRangeValue arg'2, QItemSelectionPtr arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+split arg'1 arg'2 arg'3 =+  M54.withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M54.withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.withCppPtr (toQItemSelection arg'3) $ \arg'3' ->+  (split' arg'1' arg'2' arg'3')++data QItemSelectionConst =+    QItemSelectionConst (HoppyF.Ptr QItemSelectionConst)+  | QItemSelectionConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QItemSelectionConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QItemSelectionConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QItemSelectionConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQItemSelectionToConst :: QItemSelection -> QItemSelectionConst+castQItemSelectionToConst (QItemSelection ptr') = QItemSelectionConst $ HoppyF.castPtr ptr'+castQItemSelectionToConst (QItemSelectionGc fptr' ptr') = QItemSelectionConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QItemSelectionConst where+  nullptr = QItemSelectionConst HoppyF.nullPtr+  +  withCppPtr (QItemSelectionConst ptr') f' = f' ptr'+  withCppPtr (QItemSelectionConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QItemSelectionConst ptr') = ptr'+  toPtr (QItemSelectionConstGc _ ptr') = ptr'+  +  touchCppPtr (QItemSelectionConst _) = HoppyP.return ()+  touchCppPtr (QItemSelectionConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QItemSelectionConst where+  delete (QItemSelectionConst ptr') = delete'QItemSelection ptr'+  delete (QItemSelectionConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QItemSelectionConst", " object."]+  +  toGc this'@(QItemSelectionConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QItemSelectionConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QItemSelection :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QItemSelectionConstGc {}) = HoppyP.return this'++instance QItemSelectionConstPtr QItemSelectionConst where+  toQItemSelectionConst = HoppyP.id++instance M198.QListQItemSelectionRangeConstPtr QItemSelectionConst where+  toQListQItemSelectionRangeConst (QItemSelectionConst ptr') = M198.QListQItemSelectionRangeConst $ castQItemSelectionToQListQItemSelectionRange ptr'+  toQListQItemSelectionRangeConst (QItemSelectionConstGc fptr' ptr') = M198.QListQItemSelectionRangeConstGc fptr' $ castQItemSelectionToQListQItemSelectionRange ptr'++data QItemSelection =+    QItemSelection (HoppyF.Ptr QItemSelection)+  | QItemSelectionGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QItemSelection)+  deriving (HoppyP.Show)++instance HoppyP.Eq QItemSelection where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QItemSelection where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQItemSelectionToNonconst :: QItemSelectionConst -> QItemSelection+castQItemSelectionToNonconst (QItemSelectionConst ptr') = QItemSelection $ HoppyF.castPtr ptr'+castQItemSelectionToNonconst (QItemSelectionConstGc fptr' ptr') = QItemSelectionGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QItemSelection where+  nullptr = QItemSelection HoppyF.nullPtr+  +  withCppPtr (QItemSelection ptr') f' = f' ptr'+  withCppPtr (QItemSelectionGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QItemSelection ptr') = ptr'+  toPtr (QItemSelectionGc _ ptr') = ptr'+  +  touchCppPtr (QItemSelection _) = HoppyP.return ()+  touchCppPtr (QItemSelectionGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QItemSelection where+  delete (QItemSelection ptr') = delete'QItemSelection $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QItemSelectionConst)+  delete (QItemSelectionGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QItemSelection", " object."]+  +  toGc this'@(QItemSelection ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QItemSelectionGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QItemSelection :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QItemSelectionGc {}) = HoppyP.return this'++instance QItemSelectionConstPtr QItemSelection where+  toQItemSelectionConst (QItemSelection ptr') = QItemSelectionConst $ (HoppyF.castPtr :: HoppyF.Ptr QItemSelection -> HoppyF.Ptr QItemSelectionConst) ptr'+  toQItemSelectionConst (QItemSelectionGc fptr' ptr') = QItemSelectionConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QItemSelection -> HoppyF.Ptr QItemSelectionConst) ptr'++instance QItemSelectionPtr QItemSelection where+  toQItemSelection = HoppyP.id++instance M198.QListQItemSelectionRangeConstPtr QItemSelection where+  toQListQItemSelectionRangeConst (QItemSelection ptr') = M198.QListQItemSelectionRangeConst $ castQItemSelectionToQListQItemSelectionRange $ (HoppyF.castPtr :: HoppyF.Ptr QItemSelection -> HoppyF.Ptr QItemSelectionConst) ptr'+  toQListQItemSelectionRangeConst (QItemSelectionGc fptr' ptr') = M198.QListQItemSelectionRangeConstGc fptr' $ castQItemSelectionToQListQItemSelectionRange $ (HoppyF.castPtr :: HoppyF.Ptr QItemSelection -> HoppyF.Ptr QItemSelectionConst) ptr'++instance M198.QListQItemSelectionRangePtr QItemSelection where+  toQListQItemSelectionRange (QItemSelection ptr') = M198.QListQItemSelectionRange $ (HoppyF.castPtr :: HoppyF.Ptr M198.QListQItemSelectionRangeConst -> HoppyF.Ptr M198.QListQItemSelectionRange) $ castQItemSelectionToQListQItemSelectionRange $ (HoppyF.castPtr :: HoppyF.Ptr QItemSelection -> HoppyF.Ptr QItemSelectionConst) ptr'+  toQListQItemSelectionRange (QItemSelectionGc fptr' ptr') = M198.QListQItemSelectionRangeGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M198.QListQItemSelectionRangeConst -> HoppyF.Ptr M198.QListQItemSelectionRange) $ castQItemSelectionToQListQItemSelectionRange $ (HoppyF.castPtr :: HoppyF.Ptr QItemSelection -> HoppyF.Ptr QItemSelectionConst) ptr'++new :: (HoppyP.IO QItemSelection)+new =+  HoppyP.fmap QItemSelection+  (new')++newWithRange :: (M92.QModelIndexValue arg'1, M92.QModelIndexValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QItemSelection)+newWithRange arg'1 arg'2 =+  M92.withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QItemSelection+  (newWithRange' arg'1' arg'2')++class QItemSelectionSuper a where+  downToQItemSelection :: a -> QItemSelection+++class QItemSelectionSuperConst a where+  downToQItemSelectionConst :: a -> QItemSelectionConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QItemSelection)) QItemSelection where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QItemSelection)) QItemSelection where+  decode = HoppyP.fmap QItemSelection . HoppyF.peek++instance HoppyFHR.Decodable QItemSelection ([M54.QItemSelectionRange]) where+  decode = HoppyFHR.decode . toQItemSelectionConst++instance HoppyFHR.Decodable QItemSelectionConst ([M54.QItemSelectionRange]) where+  decode =+    QtahFHR.toContents+instance QtahFHR.HasContents QItemSelectionConst (M54.QItemSelectionRange) where+  toContents = QtahFHR.toContents . M198.toQListQItemSelectionRangeConst+instance QtahFHR.HasContents QItemSelection (M54.QItemSelectionRange) where+  toContents = QtahFHR.toContents . M198.toQListQItemSelectionRange
+ src/Graphics/UI/Qtah/Generated/Core/QItemSelection.hs-boot view
@@ -0,0 +1,67 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QItemSelection (+  QItemSelectionValue (..),+  QItemSelectionConstPtr (..),+  QItemSelectionPtr (..),+  QItemSelectionConst (..),+  castQItemSelectionToConst,+  QItemSelection (..),+  castQItemSelectionToNonconst,+  castQItemSelectionToQListQItemSelectionRange,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QItemSelectionRange as M54+import qualified Graphics.UI.Qtah.Generated.Core.QList.QItemSelectionRange as M198+import qualified Prelude as HoppyP+++class QItemSelectionValue a where+  withQItemSelectionPtr :: a -> (QItemSelectionConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QItemSelectionConstPtr a => QItemSelectionValue a++class (M198.QListQItemSelectionRangeConstPtr this) => QItemSelectionConstPtr this where+  toQItemSelectionConst :: this -> QItemSelectionConst++class (QItemSelectionConstPtr this, M198.QListQItemSelectionRangePtr this) => QItemSelectionPtr this where+  toQItemSelection :: this -> QItemSelection++data QItemSelectionConst =+    QItemSelectionConst (HoppyF.Ptr QItemSelectionConst)+  | QItemSelectionConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QItemSelectionConst)++castQItemSelectionToConst :: QItemSelection -> QItemSelectionConst++instance HoppyFHR.CppPtr QItemSelectionConst+instance HoppyFHR.Deletable QItemSelectionConst++instance QItemSelectionConstPtr QItemSelectionConst++instance M198.QListQItemSelectionRangeConstPtr QItemSelectionConst++data QItemSelection =+    QItemSelection (HoppyF.Ptr QItemSelection)+  | QItemSelectionGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QItemSelection)++castQItemSelectionToNonconst :: QItemSelectionConst -> QItemSelection++instance HoppyFHR.CppPtr QItemSelection+instance HoppyFHR.Deletable QItemSelection++instance QItemSelectionConstPtr QItemSelection++instance QItemSelectionPtr QItemSelection++instance M198.QListQItemSelectionRangeConstPtr QItemSelection++instance M198.QListQItemSelectionRangePtr QItemSelection+castQItemSelectionToQListQItemSelectionRange :: HoppyF.Ptr QItemSelectionConst -> HoppyF.Ptr M198.QListQItemSelectionRangeConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QItemSelection)) QItemSelection++instance HoppyFHR.Decodable QItemSelection (([M54.QItemSelectionRange]))+instance HoppyFHR.Decodable QItemSelectionConst (([M54.QItemSelectionRange]))
src/Graphics/UI/Qtah/Generated/Core/QItemSelectionModel.hs view
@@ -0,0 +1,564 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QItemSelectionModel (+  castQItemSelectionModelToQObject,+  castQObjectToQItemSelectionModel,+  QItemSelectionModelValue (..),+  QItemSelectionModelConstPtr (..),+  columnIntersectsSelection,+  currentIndex,+  hasSelection,+  isColumnSelected,+  isRowSelected,+  isSelected,+  modelConst,+  rowIntersectsSelection,+  selectedColumns,+  selectedIndexes,+  selectedRows,+  selection,+  QItemSelectionModelPtr (..),+  clear,+  clearCurrentIndex,+  clearSelection,+  model,+  reset,+  selectIndex,+  selectSelection,+  setCurrentIndex,+  setModel,+  emitCurrentChanged,+  emitCurrentColumnChanged,+  emitCurrentRowChanged,+  emitModelChanged,+  emitSelectionChanged,+  QItemSelectionModelConst (..),+  castQItemSelectionModelToConst,+  QItemSelectionModel (..),+  castQItemSelectionModelToNonconst,+  new,+  newWithModel,+  newWithModelAndParent,+  QItemSelectionModelSuper (..),+  QItemSelectionModelSuperConst (..),+  QItemSelectionModelSelectionFlag (..),+  QItemSelectionModelSelectionFlags,+  IsQItemSelectionModelSelectionFlags (..),+  clearFlag,+  clearAndSelect,+  columns,+  current,+  deselect,+  noUpdate,+  rows,+  select,+  selectCurrent,+  toggle,+  toggleCurrent,+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QAbstractItemModel as M4+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QItemSelection as M50+import qualified Graphics.UI.Qtah.Generated.Core.QItemSelectionRange as M54+import qualified Graphics.UI.Qtah.Generated.Core.QList.QModelIndex as M200+import qualified Graphics.UI.Qtah.Generated.Core.QModelIndex as M92+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QItemSelectionModel_new" new' ::  HoppyP.IO (HoppyF.Ptr QItemSelectionModel)+foreign import ccall "genpop__QItemSelectionModel_newWithModel" newWithModel' ::  HoppyF.Ptr M4.QAbstractItemModel -> HoppyP.IO (HoppyF.Ptr QItemSelectionModel)+foreign import ccall "genpop__QItemSelectionModel_newWithModelAndParent" newWithModelAndParent' ::  HoppyF.Ptr M4.QAbstractItemModel -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QItemSelectionModel)+foreign import ccall "genpop__QItemSelectionModel_clear" clear' ::  HoppyF.Ptr QItemSelectionModel -> HoppyP.IO ()+foreign import ccall "genpop__QItemSelectionModel_clearCurrentIndex" clearCurrentIndex' ::  HoppyF.Ptr QItemSelectionModel -> HoppyP.IO ()+foreign import ccall "genpop__QItemSelectionModel_clearSelection" clearSelection' ::  HoppyF.Ptr QItemSelectionModel -> HoppyP.IO ()+foreign import ccall "genpop__QItemSelectionModel_columnIntersectsSelection" columnIntersectsSelection' ::  HoppyF.Ptr QItemSelectionModelConst -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QItemSelectionModel_currentIndex" currentIndex' ::  HoppyF.Ptr QItemSelectionModelConst -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QItemSelectionModel_hasSelection" hasSelection' ::  HoppyF.Ptr QItemSelectionModelConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QItemSelectionModel_isColumnSelected" isColumnSelected' ::  HoppyF.Ptr QItemSelectionModelConst -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QItemSelectionModel_isRowSelected" isRowSelected' ::  HoppyF.Ptr QItemSelectionModelConst -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QItemSelectionModel_isSelected" isSelected' ::  HoppyF.Ptr QItemSelectionModelConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QItemSelectionModel_model" model' ::  HoppyF.Ptr QItemSelectionModel -> HoppyP.IO (HoppyF.Ptr M4.QAbstractItemModel)+foreign import ccall "genpop__QItemSelectionModel_modelConst" modelConst' ::  HoppyF.Ptr QItemSelectionModelConst -> HoppyP.IO (HoppyF.Ptr M4.QAbstractItemModelConst)+foreign import ccall "genpop__QItemSelectionModel_reset" reset' ::  HoppyF.Ptr QItemSelectionModel -> HoppyP.IO ()+foreign import ccall "genpop__QItemSelectionModel_rowIntersectsSelection" rowIntersectsSelection' ::  HoppyF.Ptr QItemSelectionModelConst -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QItemSelectionModel_selectIndex" selectIndex' ::  HoppyF.Ptr QItemSelectionModel -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QItemSelectionModel_selectSelection" selectSelection' ::  HoppyF.Ptr QItemSelectionModel -> HoppyF.Ptr M50.QItemSelectionConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QItemSelectionModel_selectedColumns" selectedColumns' ::  HoppyF.Ptr QItemSelectionModelConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M200.QListQModelIndexConst)+foreign import ccall "genpop__QItemSelectionModel_selectedIndexes" selectedIndexes' ::  HoppyF.Ptr QItemSelectionModelConst -> HoppyP.IO (HoppyF.Ptr M200.QListQModelIndexConst)+foreign import ccall "genpop__QItemSelectionModel_selectedRows" selectedRows' ::  HoppyF.Ptr QItemSelectionModelConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M200.QListQModelIndexConst)+foreign import ccall "genpop__QItemSelectionModel_selection" selection' ::  HoppyF.Ptr QItemSelectionModelConst -> HoppyP.IO (HoppyF.Ptr M50.QItemSelectionConst)+foreign import ccall "genpop__QItemSelectionModel_setCurrentIndex" setCurrentIndex' ::  HoppyF.Ptr QItemSelectionModel -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QItemSelectionModel_setModel" setModel' ::  HoppyF.Ptr QItemSelectionModel -> HoppyF.Ptr M4.QAbstractItemModel -> HoppyP.IO ()+foreign import ccall "genpop__QItemSelectionModel_emitCurrentChanged" emitCurrentChanged' ::  HoppyF.Ptr QItemSelectionModel -> HoppyF.Ptr M92.QModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QItemSelectionModel_emitCurrentColumnChanged" emitCurrentColumnChanged' ::  HoppyF.Ptr QItemSelectionModel -> HoppyF.Ptr M92.QModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QItemSelectionModel_emitCurrentRowChanged" emitCurrentRowChanged' ::  HoppyF.Ptr QItemSelectionModel -> HoppyF.Ptr M92.QModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QItemSelectionModel_emitModelChanged" emitModelChanged' ::  HoppyF.Ptr QItemSelectionModel -> HoppyF.Ptr M4.QAbstractItemModel -> HoppyP.IO ()+foreign import ccall "genpop__QItemSelectionModel_emitSelectionChanged" emitSelectionChanged' ::  HoppyF.Ptr QItemSelectionModel -> HoppyF.Ptr M50.QItemSelectionConst -> HoppyF.Ptr M50.QItemSelectionConst -> HoppyP.IO ()+foreign import ccall "gencast__QItemSelectionModel__QObject" castQItemSelectionModelToQObject :: HoppyF.Ptr QItemSelectionModelConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QItemSelectionModel" castQObjectToQItemSelectionModel :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QItemSelectionModelConst+foreign import ccall "gendel__QItemSelectionModel" delete'QItemSelectionModel :: HoppyF.Ptr QItemSelectionModelConst -> HoppyP.IO ()+foreign import ccall "&gendel__QItemSelectionModel" deletePtr'QItemSelectionModel :: HoppyF.FunPtr (HoppyF.Ptr QItemSelectionModelConst -> HoppyP.IO ())++class QItemSelectionModelValue a where+  withQItemSelectionModelPtr :: a -> (QItemSelectionModelConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QItemSelectionModelConstPtr a => QItemSelectionModelValue a where+  withQItemSelectionModelPtr = HoppyP.flip ($) . toQItemSelectionModelConst++class (M94.QObjectConstPtr this) => QItemSelectionModelConstPtr this where+  toQItemSelectionModelConst :: this -> QItemSelectionModelConst++columnIntersectsSelection :: (QItemSelectionModelValue this, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+columnIntersectsSelection arg'1 arg'2 arg'3 =+  withQItemSelectionModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (columnIntersectsSelection' arg'1' arg'2' arg'3')++currentIndex :: (QItemSelectionModelValue this) => (this) {- ^ this -} -> (HoppyP.IO M92.QModelIndex)+currentIndex arg'1 =+  withQItemSelectionModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (currentIndex' arg'1')++hasSelection :: (QItemSelectionModelValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasSelection arg'1 =+  withQItemSelectionModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasSelection' arg'1')++isColumnSelected :: (QItemSelectionModelValue this, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+isColumnSelected arg'1 arg'2 arg'3 =+  withQItemSelectionModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isColumnSelected' arg'1' arg'2' arg'3')++isRowSelected :: (QItemSelectionModelValue this, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+isRowSelected arg'1 arg'2 arg'3 =+  withQItemSelectionModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isRowSelected' arg'1' arg'2' arg'3')++isSelected :: (QItemSelectionModelValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+isSelected arg'1 arg'2 =+  withQItemSelectionModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSelected' arg'1' arg'2')++modelConst :: (QItemSelectionModelValue this) => (this) {- ^ this -} -> (HoppyP.IO M4.QAbstractItemModelConst)+modelConst arg'1 =+  withQItemSelectionModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M4.QAbstractItemModelConst+  (modelConst' arg'1')++rowIntersectsSelection :: (QItemSelectionModelValue this, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+rowIntersectsSelection arg'1 arg'2 arg'3 =+  withQItemSelectionModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (rowIntersectsSelection' arg'1' arg'2' arg'3')++selectedColumns :: (QItemSelectionModelValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO [M92.QModelIndex])+selectedColumns arg'1 arg'2 =+  withQItemSelectionModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M200.QListQModelIndexConst) =<<+  (selectedColumns' arg'1' arg'2')++selectedIndexes :: (QItemSelectionModelValue this) => (this) {- ^ this -} -> (HoppyP.IO [M92.QModelIndex])+selectedIndexes arg'1 =+  withQItemSelectionModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M200.QListQModelIndexConst) =<<+  (selectedIndexes' arg'1')++selectedRows :: (QItemSelectionModelValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO [M92.QModelIndex])+selectedRows arg'1 arg'2 =+  withQItemSelectionModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M200.QListQModelIndexConst) =<<+  (selectedRows' arg'1' arg'2')++selection :: (QItemSelectionModelValue this) => (this) {- ^ this -} -> (HoppyP.IO [M54.QItemSelectionRange])+selection arg'1 =+  withQItemSelectionModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M50.QItemSelectionConst) =<<+  (selection' arg'1')++class (QItemSelectionModelConstPtr this, M94.QObjectPtr this) => QItemSelectionModelPtr this where+  toQItemSelectionModel :: this -> QItemSelectionModel++clear :: (QItemSelectionModelPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQItemSelectionModel arg'1) $ \arg'1' ->+  (clear' arg'1')++clearCurrentIndex :: (QItemSelectionModelPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clearCurrentIndex arg'1 =+  HoppyFHR.withCppPtr (toQItemSelectionModel arg'1) $ \arg'1' ->+  (clearCurrentIndex' arg'1')++clearSelection :: (QItemSelectionModelPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clearSelection arg'1 =+  HoppyFHR.withCppPtr (toQItemSelectionModel arg'1) $ \arg'1' ->+  (clearSelection' arg'1')++model :: (QItemSelectionModelPtr this) => (this) {- ^ this -} -> (HoppyP.IO M4.QAbstractItemModel)+model arg'1 =+  HoppyFHR.withCppPtr (toQItemSelectionModel arg'1) $ \arg'1' ->+  HoppyP.fmap M4.QAbstractItemModel+  (model' arg'1')++reset :: (QItemSelectionModelPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+reset arg'1 =+  HoppyFHR.withCppPtr (toQItemSelectionModel arg'1) $ \arg'1' ->+  (reset' arg'1')++selectIndex :: (QItemSelectionModelPtr this, M92.QModelIndexValue arg'2, IsQItemSelectionModelSelectionFlags arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+selectIndex arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQItemSelectionModel arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQItemSelectionModelSelectionFlags+  ) arg'3 >>= \arg'3' ->+  (selectIndex' arg'1' arg'2' arg'3')++selectSelection :: (QItemSelectionModelPtr this, M50.QItemSelectionValue arg'2, IsQItemSelectionModelSelectionFlags arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+selectSelection arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQItemSelectionModel arg'1) $ \arg'1' ->+  M50.withQItemSelectionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQItemSelectionModelSelectionFlags+  ) arg'3 >>= \arg'3' ->+  (selectSelection' arg'1' arg'2' arg'3')++setCurrentIndex :: (QItemSelectionModelPtr this, M92.QModelIndexValue arg'2, IsQItemSelectionModelSelectionFlags arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+setCurrentIndex arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQItemSelectionModel arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQItemSelectionModelSelectionFlags+  ) arg'3 >>= \arg'3' ->+  (setCurrentIndex' arg'1' arg'2' arg'3')++setModel :: (QItemSelectionModelPtr this, M4.QAbstractItemModelPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setModel arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQItemSelectionModel arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M4.toQAbstractItemModel arg'2) $ \arg'2' ->+  (setModel' arg'1' arg'2')++emitCurrentChanged :: (QItemSelectionModelPtr this, M92.QModelIndexValue arg'2, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+emitCurrentChanged arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQItemSelectionModel arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (emitCurrentChanged' arg'1' arg'2' arg'3')++emitCurrentColumnChanged :: (QItemSelectionModelPtr this, M92.QModelIndexValue arg'2, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+emitCurrentColumnChanged arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQItemSelectionModel arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (emitCurrentColumnChanged' arg'1' arg'2' arg'3')++emitCurrentRowChanged :: (QItemSelectionModelPtr this, M92.QModelIndexValue arg'2, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+emitCurrentRowChanged arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQItemSelectionModel arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (emitCurrentRowChanged' arg'1' arg'2' arg'3')++emitModelChanged :: (QItemSelectionModelPtr this, M4.QAbstractItemModelPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitModelChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQItemSelectionModel arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M4.toQAbstractItemModel arg'2) $ \arg'2' ->+  (emitModelChanged' arg'1' arg'2')++emitSelectionChanged :: (QItemSelectionModelPtr this, M50.QItemSelectionValue arg'2, M50.QItemSelectionValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+emitSelectionChanged arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQItemSelectionModel arg'1) $ \arg'1' ->+  M50.withQItemSelectionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M50.withQItemSelectionPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (emitSelectionChanged' arg'1' arg'2' arg'3')++data QItemSelectionModelConst =+    QItemSelectionModelConst (HoppyF.Ptr QItemSelectionModelConst)+  | QItemSelectionModelConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QItemSelectionModelConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QItemSelectionModelConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QItemSelectionModelConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQItemSelectionModelToConst :: QItemSelectionModel -> QItemSelectionModelConst+castQItemSelectionModelToConst (QItemSelectionModel ptr') = QItemSelectionModelConst $ HoppyF.castPtr ptr'+castQItemSelectionModelToConst (QItemSelectionModelGc fptr' ptr') = QItemSelectionModelConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QItemSelectionModelConst where+  nullptr = QItemSelectionModelConst HoppyF.nullPtr+  +  withCppPtr (QItemSelectionModelConst ptr') f' = f' ptr'+  withCppPtr (QItemSelectionModelConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QItemSelectionModelConst ptr') = ptr'+  toPtr (QItemSelectionModelConstGc _ ptr') = ptr'+  +  touchCppPtr (QItemSelectionModelConst _) = HoppyP.return ()+  touchCppPtr (QItemSelectionModelConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QItemSelectionModelConst where+  delete (QItemSelectionModelConst ptr') = delete'QItemSelectionModel ptr'+  delete (QItemSelectionModelConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QItemSelectionModelConst", " object."]+  +  toGc this'@(QItemSelectionModelConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QItemSelectionModelConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QItemSelectionModel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QItemSelectionModelConstGc {}) = HoppyP.return this'++instance QItemSelectionModelConstPtr QItemSelectionModelConst where+  toQItemSelectionModelConst = HoppyP.id++instance M94.QObjectConstPtr QItemSelectionModelConst where+  toQObjectConst (QItemSelectionModelConst ptr') = M94.QObjectConst $ castQItemSelectionModelToQObject ptr'+  toQObjectConst (QItemSelectionModelConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQItemSelectionModelToQObject ptr'++data QItemSelectionModel =+    QItemSelectionModel (HoppyF.Ptr QItemSelectionModel)+  | QItemSelectionModelGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QItemSelectionModel)+  deriving (HoppyP.Show)++instance HoppyP.Eq QItemSelectionModel where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QItemSelectionModel where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQItemSelectionModelToNonconst :: QItemSelectionModelConst -> QItemSelectionModel+castQItemSelectionModelToNonconst (QItemSelectionModelConst ptr') = QItemSelectionModel $ HoppyF.castPtr ptr'+castQItemSelectionModelToNonconst (QItemSelectionModelConstGc fptr' ptr') = QItemSelectionModelGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QItemSelectionModel where+  nullptr = QItemSelectionModel HoppyF.nullPtr+  +  withCppPtr (QItemSelectionModel ptr') f' = f' ptr'+  withCppPtr (QItemSelectionModelGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QItemSelectionModel ptr') = ptr'+  toPtr (QItemSelectionModelGc _ ptr') = ptr'+  +  touchCppPtr (QItemSelectionModel _) = HoppyP.return ()+  touchCppPtr (QItemSelectionModelGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QItemSelectionModel where+  delete (QItemSelectionModel ptr') = delete'QItemSelectionModel $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QItemSelectionModelConst)+  delete (QItemSelectionModelGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QItemSelectionModel", " object."]+  +  toGc this'@(QItemSelectionModel ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QItemSelectionModelGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QItemSelectionModel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QItemSelectionModelGc {}) = HoppyP.return this'++instance QItemSelectionModelConstPtr QItemSelectionModel where+  toQItemSelectionModelConst (QItemSelectionModel ptr') = QItemSelectionModelConst $ (HoppyF.castPtr :: HoppyF.Ptr QItemSelectionModel -> HoppyF.Ptr QItemSelectionModelConst) ptr'+  toQItemSelectionModelConst (QItemSelectionModelGc fptr' ptr') = QItemSelectionModelConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QItemSelectionModel -> HoppyF.Ptr QItemSelectionModelConst) ptr'++instance QItemSelectionModelPtr QItemSelectionModel where+  toQItemSelectionModel = HoppyP.id++instance M94.QObjectConstPtr QItemSelectionModel where+  toQObjectConst (QItemSelectionModel ptr') = M94.QObjectConst $ castQItemSelectionModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QItemSelectionModel -> HoppyF.Ptr QItemSelectionModelConst) ptr'+  toQObjectConst (QItemSelectionModelGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQItemSelectionModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QItemSelectionModel -> HoppyF.Ptr QItemSelectionModelConst) ptr'++instance M94.QObjectPtr QItemSelectionModel where+  toQObject (QItemSelectionModel ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQItemSelectionModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QItemSelectionModel -> HoppyF.Ptr QItemSelectionModelConst) ptr'+  toQObject (QItemSelectionModelGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQItemSelectionModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QItemSelectionModel -> HoppyF.Ptr QItemSelectionModelConst) ptr'++new :: (HoppyP.IO QItemSelectionModel)+new =+  HoppyP.fmap QItemSelectionModel+  (new')++newWithModel :: (M4.QAbstractItemModelPtr arg'1) => (arg'1) -> (HoppyP.IO QItemSelectionModel)+newWithModel arg'1 =+  HoppyFHR.withCppPtr (M4.toQAbstractItemModel arg'1) $ \arg'1' ->+  HoppyP.fmap QItemSelectionModel+  (newWithModel' arg'1')++newWithModelAndParent :: (M4.QAbstractItemModelPtr arg'1, M94.QObjectPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QItemSelectionModel)+newWithModelAndParent arg'1 arg'2 =+  HoppyFHR.withCppPtr (M4.toQAbstractItemModel arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  HoppyP.fmap QItemSelectionModel+  (newWithModelAndParent' arg'1' arg'2')++class QItemSelectionModelSuper a where+  downToQItemSelectionModel :: a -> QItemSelectionModel++instance QItemSelectionModelSuper M94.QObject where+  downToQItemSelectionModel = castQItemSelectionModelToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QItemSelectionModelConst $ castQObjectToQItemSelectionModel ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QItemSelectionModelConstGc fptr' $ castQObjectToQItemSelectionModel ptr'++class QItemSelectionModelSuperConst a where+  downToQItemSelectionModelConst :: a -> QItemSelectionModelConst++instance QItemSelectionModelSuperConst M94.QObjectConst where+  downToQItemSelectionModelConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QItemSelectionModelConst $ castQObjectToQItemSelectionModel ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QItemSelectionModelConstGc fptr' $ castQObjectToQItemSelectionModel ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QItemSelectionModel)) QItemSelectionModel where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QItemSelectionModel)) QItemSelectionModel where+  decode = HoppyP.fmap QItemSelectionModel . HoppyF.peek++data QItemSelectionModelSelectionFlag =+  NoUpdate+  | ClearFlag+  | Select+  | Deselect+  | Toggle+  | Current+  | Rows+  | Columns+  | SelectCurrent+  | ToggleCurrent+  | ClearAndSelect+  | UnknownQItemSelectionModelSelectionFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QItemSelectionModelSelectionFlag where+  fromCppEnum NoUpdate = 0+  fromCppEnum ClearFlag = 1+  fromCppEnum Select = 2+  fromCppEnum Deselect = 4+  fromCppEnum Toggle = 8+  fromCppEnum Current = 16+  fromCppEnum Rows = 32+  fromCppEnum Columns = 64+  fromCppEnum SelectCurrent = 18+  fromCppEnum ToggleCurrent = 24+  fromCppEnum ClearAndSelect = 3+  fromCppEnum (UnknownQItemSelectionModelSelectionFlag n) = n+  +  toCppEnum (0) = NoUpdate+  toCppEnum (1) = ClearFlag+  toCppEnum (2) = Select+  toCppEnum (3) = ClearAndSelect+  toCppEnum (4) = Deselect+  toCppEnum (8) = Toggle+  toCppEnum (16) = Current+  toCppEnum (18) = SelectCurrent+  toCppEnum (24) = ToggleCurrent+  toCppEnum (32) = Rows+  toCppEnum (64) = Columns+  toCppEnum n = UnknownQItemSelectionModelSelectionFlag n++instance HoppyP.Eq QItemSelectionModelSelectionFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QItemSelectionModelSelectionFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QItemSelectionModelSelectionFlags = QItemSelectionModelSelectionFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QItemSelectionModelSelectionFlag QItemSelectionModelSelectionFlags where+  enumToFlags = QItemSelectionModelSelectionFlags . QtahFHR.fromCppEnum+  flagsToEnum (QItemSelectionModelSelectionFlags x') = QtahFHR.toCppEnum x'++class IsQItemSelectionModelSelectionFlags a where+  toQItemSelectionModelSelectionFlags :: a -> QItemSelectionModelSelectionFlags++instance IsQItemSelectionModelSelectionFlags QItemSelectionModelSelectionFlags where toQItemSelectionModelSelectionFlags = QtahP.id+instance IsQItemSelectionModelSelectionFlags QItemSelectionModelSelectionFlag where toQItemSelectionModelSelectionFlags = QtahFlags.enumToFlags+instance IsQItemSelectionModelSelectionFlags (HoppyFC.CInt) where toQItemSelectionModelSelectionFlags = QtahFlags.numToFlags++clearFlag :: QItemSelectionModelSelectionFlags+clearFlag = QItemSelectionModelSelectionFlags (1)++clearAndSelect :: QItemSelectionModelSelectionFlags+clearAndSelect = QItemSelectionModelSelectionFlags (3)++columns :: QItemSelectionModelSelectionFlags+columns = QItemSelectionModelSelectionFlags (64)++current :: QItemSelectionModelSelectionFlags+current = QItemSelectionModelSelectionFlags (16)++deselect :: QItemSelectionModelSelectionFlags+deselect = QItemSelectionModelSelectionFlags (4)++noUpdate :: QItemSelectionModelSelectionFlags+noUpdate = QItemSelectionModelSelectionFlags (0)++rows :: QItemSelectionModelSelectionFlags+rows = QItemSelectionModelSelectionFlags (32)++select :: QItemSelectionModelSelectionFlags+select = QItemSelectionModelSelectionFlags (2)++selectCurrent :: QItemSelectionModelSelectionFlags+selectCurrent = QItemSelectionModelSelectionFlags (18)++toggle :: QItemSelectionModelSelectionFlags+toggle = QItemSelectionModelSelectionFlags (8)++toggleCurrent :: QItemSelectionModelSelectionFlags+toggleCurrent = QItemSelectionModelSelectionFlags (24)++instance QtahDB.Bits QItemSelectionModelSelectionFlags where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum
+ src/Graphics/UI/Qtah/Generated/Core/QItemSelectionModel.hs-boot view
@@ -0,0 +1,114 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QItemSelectionModel (+  QItemSelectionModelValue (..),+  QItemSelectionModelConstPtr (..),+  QItemSelectionModelPtr (..),+  QItemSelectionModelConst (..),+  castQItemSelectionModelToConst,+  QItemSelectionModel (..),+  castQItemSelectionModelToNonconst,+  castQItemSelectionModelToQObject,+  QItemSelectionModelSelectionFlag,+  QItemSelectionModelSelectionFlags,+  IsQItemSelectionModelSelectionFlags (..),+  clearFlag,+  clearAndSelect,+  columns,+  current,+  deselect,+  noUpdate,+  rows,+  select,+  selectCurrent,+  toggle,+  toggleCurrent,+  ) where++import qualified Data.Bits as QtahDB+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 Prelude as HoppyP+import qualified Prelude as QtahP+++class QItemSelectionModelValue a where+  withQItemSelectionModelPtr :: a -> (QItemSelectionModelConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QItemSelectionModelConstPtr a => QItemSelectionModelValue a++class (M94.QObjectConstPtr this) => QItemSelectionModelConstPtr this where+  toQItemSelectionModelConst :: this -> QItemSelectionModelConst++class (QItemSelectionModelConstPtr this, M94.QObjectPtr this) => QItemSelectionModelPtr this where+  toQItemSelectionModel :: this -> QItemSelectionModel++data QItemSelectionModelConst =+    QItemSelectionModelConst (HoppyF.Ptr QItemSelectionModelConst)+  | QItemSelectionModelConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QItemSelectionModelConst)++castQItemSelectionModelToConst :: QItemSelectionModel -> QItemSelectionModelConst++instance HoppyFHR.CppPtr QItemSelectionModelConst+instance HoppyFHR.Deletable QItemSelectionModelConst++instance QItemSelectionModelConstPtr QItemSelectionModelConst++instance M94.QObjectConstPtr QItemSelectionModelConst++data QItemSelectionModel =+    QItemSelectionModel (HoppyF.Ptr QItemSelectionModel)+  | QItemSelectionModelGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QItemSelectionModel)++castQItemSelectionModelToNonconst :: QItemSelectionModelConst -> QItemSelectionModel++instance HoppyFHR.CppPtr QItemSelectionModel+instance HoppyFHR.Deletable QItemSelectionModel++instance QItemSelectionModelConstPtr QItemSelectionModel++instance QItemSelectionModelPtr QItemSelectionModel++instance M94.QObjectConstPtr QItemSelectionModel++instance M94.QObjectPtr QItemSelectionModel+castQItemSelectionModelToQObject :: HoppyF.Ptr QItemSelectionModelConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QItemSelectionModel)) QItemSelectionModel++data QItemSelectionModelSelectionFlag+instance HoppyFHR.CppEnum (HoppyFC.CInt) QItemSelectionModelSelectionFlag+instance HoppyP.Eq QItemSelectionModelSelectionFlag+instance HoppyP.Ord QItemSelectionModelSelectionFlag+instance HoppyP.Show QItemSelectionModelSelectionFlag++newtype QItemSelectionModelSelectionFlags = QItemSelectionModelSelectionFlags (HoppyFC.CInt)+instance QtahDB.Bits QItemSelectionModelSelectionFlags+instance QtahP.Eq QItemSelectionModelSelectionFlags+instance QtahP.Ord QItemSelectionModelSelectionFlags+instance QtahP.Show QItemSelectionModelSelectionFlags++instance QtahFlags.Flags (HoppyFC.CInt) QItemSelectionModelSelectionFlag QItemSelectionModelSelectionFlags++class IsQItemSelectionModelSelectionFlags a where+  toQItemSelectionModelSelectionFlags :: a -> QItemSelectionModelSelectionFlags++instance IsQItemSelectionModelSelectionFlags QItemSelectionModelSelectionFlags+instance IsQItemSelectionModelSelectionFlags QItemSelectionModelSelectionFlag+instance IsQItemSelectionModelSelectionFlags HoppyFC.CInt++clearFlag :: QItemSelectionModelSelectionFlags+clearAndSelect :: QItemSelectionModelSelectionFlags+columns :: QItemSelectionModelSelectionFlags+current :: QItemSelectionModelSelectionFlags+deselect :: QItemSelectionModelSelectionFlags+noUpdate :: QItemSelectionModelSelectionFlags+rows :: QItemSelectionModelSelectionFlags+select :: QItemSelectionModelSelectionFlags+selectCurrent :: QItemSelectionModelSelectionFlags+toggle :: QItemSelectionModelSelectionFlags+toggleCurrent :: QItemSelectionModelSelectionFlags
src/Graphics/UI/Qtah/Generated/Core/QItemSelectionRange.hs view
@@ -0,0 +1,385 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QItemSelectionRange (+  QItemSelectionRangeValue (..),+  QItemSelectionRangeConstPtr (..),+  bottom,+  bottomRight,+  containsIndex,+  containsBelowParent,+  height,+  indexes,+  intersected,+  intersects,+  isEmpty,+  isValid,+  left,+  model,+  parent,+  right,+  top,+  topLeft,+  width,+  eQ,+  nE,+  QItemSelectionRangePtr (..),+  swap,+  aSSIGN,+  QItemSelectionRangeConst (..),+  castQItemSelectionRangeToConst,+  QItemSelectionRange (..),+  castQItemSelectionRangeToNonconst,+  new,+  newWithIndex,+  newWithIndices,+  newCopy,+  QItemSelectionRangeSuper (..),+  QItemSelectionRangeSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QAbstractItemModel as M4+import qualified Graphics.UI.Qtah.Generated.Core.QList.QModelIndex as M200+import qualified Graphics.UI.Qtah.Generated.Core.QModelIndex as M92+import qualified Graphics.UI.Qtah.Generated.Core.QPersistentModelIndex as M104+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QItemSelectionRange_new" new' ::  HoppyP.IO (HoppyF.Ptr QItemSelectionRange)+foreign import ccall "genpop__QItemSelectionRange_newWithIndex" newWithIndex' ::  HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr QItemSelectionRange)+foreign import ccall "genpop__QItemSelectionRange_newWithIndices" newWithIndices' ::  HoppyF.Ptr M92.QModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr QItemSelectionRange)+foreign import ccall "genpop__QItemSelectionRange_newCopy" newCopy' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO (HoppyF.Ptr QItemSelectionRange)+foreign import ccall "genpop__QItemSelectionRange_bottom" bottom' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QItemSelectionRange_bottomRight" bottomRight' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO (HoppyF.Ptr M104.QPersistentModelIndexConst)+foreign import ccall "genpop__QItemSelectionRange_containsIndex" containsIndex' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QItemSelectionRange_containsBelowParent" containsBelowParent' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QItemSelectionRange_height" height' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QItemSelectionRange_indexes" indexes' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO (HoppyF.Ptr M200.QListQModelIndexConst)+foreign import ccall "genpop__QItemSelectionRange_intersected" intersected' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO (HoppyF.Ptr QItemSelectionRangeConst)+foreign import ccall "genpop__QItemSelectionRange_intersects" intersects' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QItemSelectionRange_isEmpty" isEmpty' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QItemSelectionRange_isValid" isValid' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QItemSelectionRange_left" left' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QItemSelectionRange_model" model' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO (HoppyF.Ptr M4.QAbstractItemModelConst)+foreign import ccall "genpop__QItemSelectionRange_parent" parent' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QItemSelectionRange_right" right' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QItemSelectionRange_swap" swap' ::  HoppyF.Ptr QItemSelectionRange -> HoppyF.Ptr QItemSelectionRange -> HoppyP.IO ()+foreign import ccall "genpop__QItemSelectionRange_top" top' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QItemSelectionRange_topLeft" topLeft' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO (HoppyF.Ptr M104.QPersistentModelIndexConst)+foreign import ccall "genpop__QItemSelectionRange_width" width' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QItemSelectionRange_EQ" eQ' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QItemSelectionRange_NE" nE' ::  HoppyF.Ptr QItemSelectionRangeConst -> HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QItemSelectionRange_ASSIGN" aSSIGN' ::  HoppyF.Ptr QItemSelectionRange -> HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO (HoppyF.Ptr QItemSelectionRange)+foreign import ccall "gendel__QItemSelectionRange" delete'QItemSelectionRange :: HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO ()+foreign import ccall "&gendel__QItemSelectionRange" deletePtr'QItemSelectionRange :: HoppyF.FunPtr (HoppyF.Ptr QItemSelectionRangeConst -> HoppyP.IO ())++class QItemSelectionRangeValue a where+  withQItemSelectionRangePtr :: a -> (QItemSelectionRangeConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QItemSelectionRangeConstPtr a => QItemSelectionRangeValue a where+  withQItemSelectionRangePtr = HoppyP.flip ($) . toQItemSelectionRangeConst++class (HoppyFHR.CppPtr this) => QItemSelectionRangeConstPtr this where+  toQItemSelectionRangeConst :: this -> QItemSelectionRangeConst++bottom :: (QItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+bottom arg'1 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (bottom' arg'1')++bottomRight :: (QItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO M104.QPersistentModelIndexConst)+bottomRight arg'1 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M104.QPersistentModelIndexConst+  (bottomRight' arg'1')++containsIndex :: (QItemSelectionRangeValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+containsIndex arg'1 arg'2 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (containsIndex' arg'1' arg'2')++containsBelowParent :: (QItemSelectionRangeValue this, M92.QModelIndexValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO HoppyP.Bool)+containsBelowParent arg'1 arg'2 arg'3 arg'4 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M92.withQModelIndexPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (containsBelowParent' arg'1' arg'2' arg'3' arg'4')++height :: (QItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+height arg'1 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (height' arg'1')++indexes :: (QItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO [M92.QModelIndex])+indexes arg'1 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M200.QListQModelIndexConst) =<<+  (indexes' arg'1')++intersected :: (QItemSelectionRangeValue this, QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QItemSelectionRange)+intersected arg'1 arg'2 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QItemSelectionRangeConst) =<<+  (intersected' arg'1' arg'2')++intersects :: (QItemSelectionRangeValue this, QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+intersects arg'1 arg'2 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (intersects' arg'1' arg'2')++isEmpty :: (QItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++isValid :: (QItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++left :: (QItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+left arg'1 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (left' arg'1')++model :: (QItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO M4.QAbstractItemModelConst)+model arg'1 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M4.QAbstractItemModelConst+  (model' arg'1')++parent :: (QItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO M92.QModelIndex)+parent arg'1 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (parent' arg'1')++right :: (QItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+right arg'1 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (right' arg'1')++top :: (QItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+top arg'1 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (top' arg'1')++topLeft :: (QItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO M104.QPersistentModelIndexConst)+topLeft arg'1 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M104.QPersistentModelIndexConst+  (topLeft' arg'1')++width :: (QItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+width arg'1 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (width' arg'1')++eQ :: (QItemSelectionRangeValue this, QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QItemSelectionRangeValue this, QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QItemSelectionRangeConstPtr this) => QItemSelectionRangePtr this where+  toQItemSelectionRange :: this -> QItemSelectionRange++swap :: (QItemSelectionRangePtr this, QItemSelectionRangePtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQItemSelectionRange arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQItemSelectionRange arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++aSSIGN :: (QItemSelectionRangePtr this, QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QItemSelectionRange)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQItemSelectionRange arg'1) $ \arg'1' ->+  withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QItemSelectionRange+  (aSSIGN' arg'1' arg'2')++data QItemSelectionRangeConst =+    QItemSelectionRangeConst (HoppyF.Ptr QItemSelectionRangeConst)+  | QItemSelectionRangeConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QItemSelectionRangeConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QItemSelectionRangeConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QItemSelectionRangeConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQItemSelectionRangeToConst :: QItemSelectionRange -> QItemSelectionRangeConst+castQItemSelectionRangeToConst (QItemSelectionRange ptr') = QItemSelectionRangeConst $ HoppyF.castPtr ptr'+castQItemSelectionRangeToConst (QItemSelectionRangeGc fptr' ptr') = QItemSelectionRangeConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QItemSelectionRangeConst where+  nullptr = QItemSelectionRangeConst HoppyF.nullPtr+  +  withCppPtr (QItemSelectionRangeConst ptr') f' = f' ptr'+  withCppPtr (QItemSelectionRangeConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QItemSelectionRangeConst ptr') = ptr'+  toPtr (QItemSelectionRangeConstGc _ ptr') = ptr'+  +  touchCppPtr (QItemSelectionRangeConst _) = HoppyP.return ()+  touchCppPtr (QItemSelectionRangeConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QItemSelectionRangeConst where+  delete (QItemSelectionRangeConst ptr') = delete'QItemSelectionRange ptr'+  delete (QItemSelectionRangeConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QItemSelectionRangeConst", " object."]+  +  toGc this'@(QItemSelectionRangeConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QItemSelectionRangeConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QItemSelectionRange :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QItemSelectionRangeConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QItemSelectionRangeConst QItemSelectionRange where copy = newCopy++instance QItemSelectionRangeConstPtr QItemSelectionRangeConst where+  toQItemSelectionRangeConst = HoppyP.id++data QItemSelectionRange =+    QItemSelectionRange (HoppyF.Ptr QItemSelectionRange)+  | QItemSelectionRangeGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QItemSelectionRange)+  deriving (HoppyP.Show)++instance HoppyP.Eq QItemSelectionRange where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QItemSelectionRange where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQItemSelectionRangeToNonconst :: QItemSelectionRangeConst -> QItemSelectionRange+castQItemSelectionRangeToNonconst (QItemSelectionRangeConst ptr') = QItemSelectionRange $ HoppyF.castPtr ptr'+castQItemSelectionRangeToNonconst (QItemSelectionRangeConstGc fptr' ptr') = QItemSelectionRangeGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QItemSelectionRange where+  nullptr = QItemSelectionRange HoppyF.nullPtr+  +  withCppPtr (QItemSelectionRange ptr') f' = f' ptr'+  withCppPtr (QItemSelectionRangeGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QItemSelectionRange ptr') = ptr'+  toPtr (QItemSelectionRangeGc _ ptr') = ptr'+  +  touchCppPtr (QItemSelectionRange _) = HoppyP.return ()+  touchCppPtr (QItemSelectionRangeGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QItemSelectionRange where+  delete (QItemSelectionRange ptr') = delete'QItemSelectionRange $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QItemSelectionRangeConst)+  delete (QItemSelectionRangeGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QItemSelectionRange", " object."]+  +  toGc this'@(QItemSelectionRange ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QItemSelectionRangeGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QItemSelectionRange :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QItemSelectionRangeGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QItemSelectionRange QItemSelectionRange where copy = newCopy++instance QItemSelectionRangeConstPtr QItemSelectionRange where+  toQItemSelectionRangeConst (QItemSelectionRange ptr') = QItemSelectionRangeConst $ (HoppyF.castPtr :: HoppyF.Ptr QItemSelectionRange -> HoppyF.Ptr QItemSelectionRangeConst) ptr'+  toQItemSelectionRangeConst (QItemSelectionRangeGc fptr' ptr') = QItemSelectionRangeConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QItemSelectionRange -> HoppyF.Ptr QItemSelectionRangeConst) ptr'++instance QItemSelectionRangePtr QItemSelectionRange where+  toQItemSelectionRange = HoppyP.id++new :: (HoppyP.IO QItemSelectionRange)+new =+  HoppyP.fmap QItemSelectionRange+  (new')++newWithIndex :: (M92.QModelIndexValue arg'1) => (arg'1) -> (HoppyP.IO QItemSelectionRange)+newWithIndex arg'1 =+  M92.withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QItemSelectionRange+  (newWithIndex' arg'1')++newWithIndices :: (M92.QModelIndexValue arg'1, M92.QModelIndexValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QItemSelectionRange)+newWithIndices arg'1 arg'2 =+  M92.withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QItemSelectionRange+  (newWithIndices' arg'1' arg'2')++newCopy :: (QItemSelectionRangeValue arg'1) => (arg'1) -> (HoppyP.IO QItemSelectionRange)+newCopy arg'1 =+  withQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QItemSelectionRange+  (newCopy' arg'1')++class QItemSelectionRangeSuper a where+  downToQItemSelectionRange :: a -> QItemSelectionRange+++class QItemSelectionRangeSuperConst a where+  downToQItemSelectionRangeConst :: a -> QItemSelectionRangeConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QItemSelectionRange)) QItemSelectionRange where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QItemSelectionRangeValue a => HoppyFHR.Assignable QItemSelectionRange a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QItemSelectionRange)) QItemSelectionRange where+  decode = HoppyP.fmap QItemSelectionRange . HoppyF.peek++instance HoppyFHR.Decodable QItemSelectionRange (QItemSelectionRange) where+  decode = HoppyFHR.decode . toQItemSelectionRangeConst++instance HoppyFHR.Decodable QItemSelectionRangeConst (QItemSelectionRange) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QLatin1Char.hs view
@@ -0,0 +1,149 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QLatin1Char (+  QLatin1CharValue (..),+  QLatin1CharConstPtr (..),+  toLatin1,+  unicode,+  QLatin1CharPtr (..),+  QLatin1CharConst (..),+  castQLatin1CharToConst,+  QLatin1Char (..),+  castQLatin1CharToNonconst,+  new,+  QLatin1CharSuper (..),+  QLatin1CharSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QLatin1Char_new" new' ::  HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QLatin1Char)+foreign import ccall "genpop__QLatin1Char_toLatin1" toLatin1' ::  HoppyF.Ptr QLatin1CharConst -> HoppyP.IO HoppyFC.CChar+foreign import ccall "genpop__QLatin1Char_unicode" unicode' ::  HoppyF.Ptr QLatin1CharConst -> HoppyP.IO HoppyFC.CUShort+foreign import ccall "gendel__QLatin1Char" delete'QLatin1Char :: HoppyF.Ptr QLatin1CharConst -> HoppyP.IO ()+foreign import ccall "&gendel__QLatin1Char" deletePtr'QLatin1Char :: HoppyF.FunPtr (HoppyF.Ptr QLatin1CharConst -> HoppyP.IO ())++class QLatin1CharValue a where+  withQLatin1CharPtr :: a -> (QLatin1CharConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QLatin1CharConstPtr a => QLatin1CharValue a where+  withQLatin1CharPtr = HoppyP.flip ($) . toQLatin1CharConst++class (HoppyFHR.CppPtr this) => QLatin1CharConstPtr this where+  toQLatin1CharConst :: this -> QLatin1CharConst++toLatin1 :: (QLatin1CharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CChar)+toLatin1 arg'1 =+  withQLatin1CharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (toLatin1' arg'1')++unicode :: (QLatin1CharValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CUShort)+unicode arg'1 =+  withQLatin1CharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (unicode' arg'1')++class (QLatin1CharConstPtr this) => QLatin1CharPtr this where+  toQLatin1Char :: this -> QLatin1Char++data QLatin1CharConst =+    QLatin1CharConst (HoppyF.Ptr QLatin1CharConst)+  | QLatin1CharConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLatin1CharConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLatin1CharConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLatin1CharConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLatin1CharToConst :: QLatin1Char -> QLatin1CharConst+castQLatin1CharToConst (QLatin1Char ptr') = QLatin1CharConst $ HoppyF.castPtr ptr'+castQLatin1CharToConst (QLatin1CharGc fptr' ptr') = QLatin1CharConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLatin1CharConst where+  nullptr = QLatin1CharConst HoppyF.nullPtr+  +  withCppPtr (QLatin1CharConst ptr') f' = f' ptr'+  withCppPtr (QLatin1CharConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLatin1CharConst ptr') = ptr'+  toPtr (QLatin1CharConstGc _ ptr') = ptr'+  +  touchCppPtr (QLatin1CharConst _) = HoppyP.return ()+  touchCppPtr (QLatin1CharConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLatin1CharConst where+  delete (QLatin1CharConst ptr') = delete'QLatin1Char ptr'+  delete (QLatin1CharConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLatin1CharConst", " object."]+  +  toGc this'@(QLatin1CharConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLatin1CharConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLatin1Char :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLatin1CharConstGc {}) = HoppyP.return this'++instance QLatin1CharConstPtr QLatin1CharConst where+  toQLatin1CharConst = HoppyP.id++data QLatin1Char =+    QLatin1Char (HoppyF.Ptr QLatin1Char)+  | QLatin1CharGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLatin1Char)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLatin1Char where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLatin1Char where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLatin1CharToNonconst :: QLatin1CharConst -> QLatin1Char+castQLatin1CharToNonconst (QLatin1CharConst ptr') = QLatin1Char $ HoppyF.castPtr ptr'+castQLatin1CharToNonconst (QLatin1CharConstGc fptr' ptr') = QLatin1CharGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLatin1Char where+  nullptr = QLatin1Char HoppyF.nullPtr+  +  withCppPtr (QLatin1Char ptr') f' = f' ptr'+  withCppPtr (QLatin1CharGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLatin1Char ptr') = ptr'+  toPtr (QLatin1CharGc _ ptr') = ptr'+  +  touchCppPtr (QLatin1Char _) = HoppyP.return ()+  touchCppPtr (QLatin1CharGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLatin1Char where+  delete (QLatin1Char ptr') = delete'QLatin1Char $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QLatin1CharConst)+  delete (QLatin1CharGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLatin1Char", " object."]+  +  toGc this'@(QLatin1Char ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLatin1CharGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLatin1Char :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLatin1CharGc {}) = HoppyP.return this'++instance QLatin1CharConstPtr QLatin1Char where+  toQLatin1CharConst (QLatin1Char ptr') = QLatin1CharConst $ (HoppyF.castPtr :: HoppyF.Ptr QLatin1Char -> HoppyF.Ptr QLatin1CharConst) ptr'+  toQLatin1CharConst (QLatin1CharGc fptr' ptr') = QLatin1CharConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QLatin1Char -> HoppyF.Ptr QLatin1CharConst) ptr'++instance QLatin1CharPtr QLatin1Char where+  toQLatin1Char = HoppyP.id++new :: (HoppyFC.CChar) -> (HoppyP.IO QLatin1Char)+new arg'1 =+  let arg'1' = arg'1 in+  HoppyP.fmap QLatin1Char+  (new' arg'1')++class QLatin1CharSuper a where+  downToQLatin1Char :: a -> QLatin1Char+++class QLatin1CharSuperConst a where+  downToQLatin1CharConst :: a -> QLatin1CharConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QLatin1Char)) QLatin1Char where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QLatin1Char)) QLatin1Char where+  decode = HoppyP.fmap QLatin1Char . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QLatin1String.hs view
@@ -0,0 +1,731 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QLatin1String (+  QLatin1StringValue (..),+  QLatin1StringConstPtr (..),+  at,+  back,+  chopped,+  dataString,+  front,+  isEmpty,+  isNull,+  latin1,+  left,+  mid,+  midWithLength,+  right,+  size,+  trimmed,+  endsWithLatin1String,+  endsWithLatin1StringWithCase,+  endsWithChar,+  endsWithCharWithCase,+  startsWithLatin1String,+  startsWithLatin1StringWithCase,+  startsWithCharWith,+  startsWithCharWithCase,+  nEString,+  nEPtrConstChar,+  nEByteArray,+  lTString,+  lTPtrConstChar,+  lTByteArray,+  lEString,+  lEPtrConstChar,+  lEByteArray,+  eQString,+  eQPtrConstChar,+  eQByteArray,+  gTString,+  gTPtrConstChar,+  gTByteArray,+  gEString,+  gEPtrConstChar,+  gEByteArray,+  get,+  lT,+  lE,+  gT,+  gE,+  eQ,+  nE,+  QLatin1StringPtr (..),+  chop,+  truncate,+  QLatin1StringConst (..),+  castQLatin1StringToConst,+  QLatin1String (..),+  castQLatin1StringToNonconst,+  new,+  newWithCharPtr,+  newWithCharPtrRange,+  newWithCharPtrAndSize,+  newWithByteArray,+  newCopy,+  QLatin1StringSuper (..),+  QLatin1StringSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QChar as M16+import qualified Graphics.UI.Qtah.Generated.Core.QLatin1Char as M56+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QLatin1String_new" new' ::  HoppyP.IO (HoppyF.Ptr QLatin1String)+foreign import ccall "genpop__QLatin1String_newWithCharPtr" newWithCharPtr' ::  HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QLatin1String)+foreign import ccall "genpop__QLatin1String_newWithCharPtrRange" newWithCharPtrRange' ::  HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QLatin1String)+foreign import ccall "genpop__QLatin1String_newWithCharPtrAndSize" newWithCharPtrAndSize' ::  HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QLatin1String)+foreign import ccall "genpop__QLatin1String_newWithByteArray" newWithByteArray' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QLatin1String)+foreign import ccall "genpop__QLatin1String_newCopy" newCopy' ::  HoppyF.Ptr QLatin1StringConst -> HoppyP.IO (HoppyF.Ptr QLatin1String)+foreign import ccall "genpop__QLatin1String_at" at' ::  HoppyF.Ptr QLatin1StringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M56.QLatin1Char)+foreign import ccall "genpop__QLatin1String_back" back' ::  HoppyF.Ptr QLatin1StringConst -> HoppyP.IO (HoppyF.Ptr M56.QLatin1Char)+foreign import ccall "genpop__QLatin1String_chop" chop' ::  HoppyF.Ptr QLatin1String -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLatin1String_chopped" chopped' ::  HoppyF.Ptr QLatin1StringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QLatin1StringConst)+foreign import ccall "genpop__QLatin1String_dataString" dataString' ::  HoppyF.Ptr QLatin1StringConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "genpop__QLatin1String_front" front' ::  HoppyF.Ptr QLatin1StringConst -> HoppyP.IO (HoppyF.Ptr M56.QLatin1Char)+foreign import ccall "genpop__QLatin1String_isEmpty" isEmpty' ::  HoppyF.Ptr QLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_isNull" isNull' ::  HoppyF.Ptr QLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_latin1" latin1' ::  HoppyF.Ptr QLatin1StringConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "genpop__QLatin1String_left" left' ::  HoppyF.Ptr QLatin1StringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QLatin1StringConst)+foreign import ccall "genpop__QLatin1String_mid" mid' ::  HoppyF.Ptr QLatin1StringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QLatin1StringConst)+foreign import ccall "genpop__QLatin1String_midWithLength" midWithLength' ::  HoppyF.Ptr QLatin1StringConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QLatin1StringConst)+foreign import ccall "genpop__QLatin1String_right" right' ::  HoppyF.Ptr QLatin1StringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QLatin1StringConst)+foreign import ccall "genpop__QLatin1String_size" size' ::  HoppyF.Ptr QLatin1StringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLatin1String_trimmed" trimmed' ::  HoppyF.Ptr QLatin1StringConst -> HoppyP.IO (HoppyF.Ptr QLatin1StringConst)+foreign import ccall "genpop__QLatin1String_truncate" truncate' ::  HoppyF.Ptr QLatin1String -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLatin1String_endsWithLatin1String" endsWithLatin1String' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr QLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_endsWithLatin1StringWithCase" endsWithLatin1StringWithCase' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr QLatin1StringConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_endsWithChar" endsWithChar' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_endsWithCharWithCase" endsWithCharWithCase' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M16.QCharConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_startsWithLatin1String" startsWithLatin1String' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr QLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_startsWithLatin1StringWithCase" startsWithLatin1StringWithCase' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr QLatin1StringConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_startsWithCharWith" startsWithCharWith' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_startsWithCharWithCase" startsWithCharWithCase' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M16.QCharConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_NEString" nEString' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_NEPtrConstChar" nEPtrConstChar' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_NEByteArray" nEByteArray' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_LTString" lTString' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_LTPtrConstChar" lTPtrConstChar' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_LTByteArray" lTByteArray' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_LEString" lEString' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_LEPtrConstChar" lEPtrConstChar' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_LEByteArray" lEByteArray' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_EQString" eQString' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_EQPtrConstChar" eQPtrConstChar' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_EQByteArray" eQByteArray' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_GTString" gTString' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_GTPtrConstChar" gTPtrConstChar' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_GTByteArray" gTByteArray' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_GEString" gEString' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_GEPtrConstChar" gEPtrConstChar' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_GEByteArray" gEByteArray' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_get" get' ::  HoppyF.Ptr QLatin1StringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M56.QLatin1Char)+foreign import ccall "genpop__QLatin1String_LT" lT' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr QLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_LE" lE' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr QLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_GT" gT' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr QLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_GE" gE' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr QLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_EQ" eQ' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr QLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLatin1String_NE" nE' ::  HoppyF.Ptr QLatin1StringConst -> HoppyF.Ptr QLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "gendel__QLatin1String" delete'QLatin1String :: HoppyF.Ptr QLatin1StringConst -> HoppyP.IO ()+foreign import ccall "&gendel__QLatin1String" deletePtr'QLatin1String :: HoppyF.FunPtr (HoppyF.Ptr QLatin1StringConst -> HoppyP.IO ())++class QLatin1StringValue a where+  withQLatin1StringPtr :: a -> (QLatin1StringConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QLatin1StringConstPtr a => QLatin1StringValue a where+  withQLatin1StringPtr = HoppyP.flip ($) . toQLatin1StringConst++class (HoppyFHR.CppPtr this) => QLatin1StringConstPtr this where+  toQLatin1StringConst :: this -> QLatin1StringConst++at :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M56.QLatin1Char)+at arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap M56.QLatin1Char+  (at' arg'1' arg'2')++back :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.IO M56.QLatin1Char)+back arg'1 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap M56.QLatin1Char+  (back' arg'1')++chopped :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QLatin1String)+chopped arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QLatin1StringConst) =<<+  (chopped' arg'1' arg'2')++dataString :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+dataString arg'1 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (dataString' arg'1')++front :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.IO M56.QLatin1Char)+front arg'1 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap M56.QLatin1Char+  (front' arg'1')++isEmpty :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++isNull :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++latin1 :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+latin1 arg'1 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (latin1' arg'1')++left :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QLatin1String)+left arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QLatin1StringConst) =<<+  (left' arg'1' arg'2')++mid :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QLatin1String)+mid arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QLatin1StringConst) =<<+  (mid' arg'1' arg'2')++midWithLength :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QLatin1String)+midWithLength arg'1 arg'2 arg'3 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QLatin1StringConst) =<<+  (midWithLength' arg'1' arg'2' arg'3')++right :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QLatin1String)+right arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QLatin1StringConst) =<<+  (right' arg'1' arg'2')++size :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++trimmed :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.IO QLatin1String)+trimmed arg'1 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QLatin1StringConst) =<<+  (trimmed' arg'1')++endsWithLatin1String :: (QLatin1StringValue this, QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWithLatin1String arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWithLatin1String' arg'1' arg'2')++endsWithLatin1StringWithCase :: (QLatin1StringValue this, QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtCaseSensitivity) -> (HoppyP.IO HoppyP.Bool)+endsWithLatin1StringWithCase arg'1 arg'2 arg'3 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWithLatin1StringWithCase' arg'1' arg'2' arg'3')++endsWithChar :: (QLatin1StringValue this, M16.QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWithChar arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M16.withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWithChar' arg'1' arg'2')++endsWithCharWithCase :: (QLatin1StringValue this, M16.QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtCaseSensitivity) -> (HoppyP.IO HoppyP.Bool)+endsWithCharWithCase arg'1 arg'2 arg'3 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M16.withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWithCharWithCase' arg'1' arg'2' arg'3')++startsWithLatin1String :: (QLatin1StringValue this, QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWithLatin1String arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWithLatin1String' arg'1' arg'2')++startsWithLatin1StringWithCase :: (QLatin1StringValue this, QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtCaseSensitivity) -> (HoppyP.IO HoppyP.Bool)+startsWithLatin1StringWithCase arg'1 arg'2 arg'3 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWithLatin1StringWithCase' arg'1' arg'2' arg'3')++startsWithCharWith :: (QLatin1StringValue this, M16.QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWithCharWith arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M16.withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWithCharWith' arg'1' arg'2')++startsWithCharWithCase :: (QLatin1StringValue this, M16.QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtCaseSensitivity) -> (HoppyP.IO HoppyP.Bool)+startsWithCharWithCase arg'1 arg'2 arg'3 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M16.withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWithCharWithCase' arg'1' arg'2' arg'3')++nEString :: (QLatin1StringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nEString arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nEString' arg'1' arg'2')++nEPtrConstChar :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Bool)+nEPtrConstChar arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nEPtrConstChar' arg'1' arg'2')++nEByteArray :: (QLatin1StringValue this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nEByteArray arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nEByteArray' arg'1' arg'2')++lTString :: (QLatin1StringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lTString arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lTString' arg'1' arg'2')++lTPtrConstChar :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Bool)+lTPtrConstChar arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lTPtrConstChar' arg'1' arg'2')++lTByteArray :: (QLatin1StringValue this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lTByteArray arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lTByteArray' arg'1' arg'2')++lEString :: (QLatin1StringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lEString arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lEString' arg'1' arg'2')++lEPtrConstChar :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Bool)+lEPtrConstChar arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lEPtrConstChar' arg'1' arg'2')++lEByteArray :: (QLatin1StringValue this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lEByteArray arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lEByteArray' arg'1' arg'2')++eQString :: (QLatin1StringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQString arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQString' arg'1' arg'2')++eQPtrConstChar :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Bool)+eQPtrConstChar arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQPtrConstChar' arg'1' arg'2')++eQByteArray :: (QLatin1StringValue this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQByteArray arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQByteArray' arg'1' arg'2')++gTString :: (QLatin1StringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gTString arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gTString' arg'1' arg'2')++gTPtrConstChar :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Bool)+gTPtrConstChar arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gTPtrConstChar' arg'1' arg'2')++gTByteArray :: (QLatin1StringValue this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gTByteArray arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gTByteArray' arg'1' arg'2')++gEString :: (QLatin1StringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gEString arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gEString' arg'1' arg'2')++gEPtrConstChar :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Bool)+gEPtrConstChar arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gEPtrConstChar' arg'1' arg'2')++gEByteArray :: (QLatin1StringValue this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gEByteArray arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gEByteArray' arg'1' arg'2')++get :: (QLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M56.QLatin1Char)+get arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap M56.QLatin1Char+  (get' arg'1' arg'2')++lT :: (QLatin1StringValue this, QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lT arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lT' arg'1' arg'2')++lE :: (QLatin1StringValue this, QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lE arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lE' arg'1' arg'2')++gT :: (QLatin1StringValue this, QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gT arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gT' arg'1' arg'2')++gE :: (QLatin1StringValue this, QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gE arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gE' arg'1' arg'2')++eQ :: (QLatin1StringValue this, QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QLatin1StringValue this, QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QLatin1StringConstPtr this) => QLatin1StringPtr this where+  toQLatin1String :: this -> QLatin1String++chop :: (QLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+chop arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLatin1String arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (chop' arg'1' arg'2')++truncate :: (QLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+truncate arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLatin1String arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (truncate' arg'1' arg'2')++data QLatin1StringConst =+    QLatin1StringConst (HoppyF.Ptr QLatin1StringConst)+  | QLatin1StringConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLatin1StringConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLatin1StringConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLatin1StringConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLatin1StringToConst :: QLatin1String -> QLatin1StringConst+castQLatin1StringToConst (QLatin1String ptr') = QLatin1StringConst $ HoppyF.castPtr ptr'+castQLatin1StringToConst (QLatin1StringGc fptr' ptr') = QLatin1StringConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLatin1StringConst where+  nullptr = QLatin1StringConst HoppyF.nullPtr+  +  withCppPtr (QLatin1StringConst ptr') f' = f' ptr'+  withCppPtr (QLatin1StringConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLatin1StringConst ptr') = ptr'+  toPtr (QLatin1StringConstGc _ ptr') = ptr'+  +  touchCppPtr (QLatin1StringConst _) = HoppyP.return ()+  touchCppPtr (QLatin1StringConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLatin1StringConst where+  delete (QLatin1StringConst ptr') = delete'QLatin1String ptr'+  delete (QLatin1StringConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLatin1StringConst", " object."]+  +  toGc this'@(QLatin1StringConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLatin1StringConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLatin1String :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLatin1StringConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QLatin1StringConst QLatin1String where copy = newCopy++instance QLatin1StringConstPtr QLatin1StringConst where+  toQLatin1StringConst = HoppyP.id++data QLatin1String =+    QLatin1String (HoppyF.Ptr QLatin1String)+  | QLatin1StringGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLatin1String)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLatin1String where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLatin1String where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLatin1StringToNonconst :: QLatin1StringConst -> QLatin1String+castQLatin1StringToNonconst (QLatin1StringConst ptr') = QLatin1String $ HoppyF.castPtr ptr'+castQLatin1StringToNonconst (QLatin1StringConstGc fptr' ptr') = QLatin1StringGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLatin1String where+  nullptr = QLatin1String HoppyF.nullPtr+  +  withCppPtr (QLatin1String ptr') f' = f' ptr'+  withCppPtr (QLatin1StringGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLatin1String ptr') = ptr'+  toPtr (QLatin1StringGc _ ptr') = ptr'+  +  touchCppPtr (QLatin1String _) = HoppyP.return ()+  touchCppPtr (QLatin1StringGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLatin1String where+  delete (QLatin1String ptr') = delete'QLatin1String $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QLatin1StringConst)+  delete (QLatin1StringGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLatin1String", " object."]+  +  toGc this'@(QLatin1String ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLatin1StringGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLatin1String :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLatin1StringGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QLatin1String QLatin1String where copy = newCopy++instance QLatin1StringConstPtr QLatin1String where+  toQLatin1StringConst (QLatin1String ptr') = QLatin1StringConst $ (HoppyF.castPtr :: HoppyF.Ptr QLatin1String -> HoppyF.Ptr QLatin1StringConst) ptr'+  toQLatin1StringConst (QLatin1StringGc fptr' ptr') = QLatin1StringConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QLatin1String -> HoppyF.Ptr QLatin1StringConst) ptr'++instance QLatin1StringPtr QLatin1String where+  toQLatin1String = HoppyP.id++new :: (HoppyP.IO QLatin1String)+new =+  HoppyP.fmap QLatin1String+  (new')++newWithCharPtr :: (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QLatin1String)+newWithCharPtr arg'1 =+  let arg'1' = arg'1 in+  HoppyP.fmap QLatin1String+  (newWithCharPtr' arg'1')++newWithCharPtrRange :: (HoppyF.Ptr HoppyFC.CChar) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QLatin1String)+newWithCharPtrRange arg'1 arg'2 =+  let arg'1' = arg'1 in+  let arg'2' = arg'2 in+  HoppyP.fmap QLatin1String+  (newWithCharPtrRange' arg'1' arg'2')++newWithCharPtrAndSize :: (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO QLatin1String)+newWithCharPtrAndSize arg'1 arg'2 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QLatin1String+  (newWithCharPtrAndSize' arg'1' arg'2')++newWithByteArray :: (M12.QByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO QLatin1String)+newWithByteArray arg'1 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QLatin1String+  (newWithByteArray' arg'1')++newCopy :: (QLatin1StringValue arg'1) => (arg'1) -> (HoppyP.IO QLatin1String)+newCopy arg'1 =+  withQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QLatin1String+  (newCopy' arg'1')++class QLatin1StringSuper a where+  downToQLatin1String :: a -> QLatin1String+++class QLatin1StringSuperConst a where+  downToQLatin1StringConst :: a -> QLatin1StringConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QLatin1String)) QLatin1String where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QLatin1String)) QLatin1String where+  decode = HoppyP.fmap QLatin1String . HoppyF.peek++instance HoppyFHR.Decodable QLatin1String (QLatin1String) where+  decode = HoppyFHR.decode . toQLatin1StringConst++instance HoppyFHR.Decodable QLatin1StringConst (QLatin1String) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QLibrary.hs view
@@ -0,0 +1,456 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QLibrary (+  castQLibraryToQObject,+  castQObjectToQLibrary,+  QLibraryValue (..),+  QLibraryConstPtr (..),+  errorString,+  isLoaded,+  fileName,+  loadHints,+  QLibraryPtr (..),+  load,+  resolve,+  setFileNameAndMajorVersion,+  setFileNameAndVersion,+  unload,+  setFileName,+  setLoadHints,+  isLibrary,+  resolveStatic,+  resolveStaticWithMajorVersion,+  resolveStaticWithVersion,+  QLibraryConst (..),+  castQLibraryToConst,+  QLibrary (..),+  castQLibraryToNonconst,+  new,+  newWithParent,+  newWithFilename,+  newWithFilenameAndParent,+  newWithFilenameAndMajorVersion,+  newWithFilenameAndMajorVersionAndParent,+  newWithFilenameAndVersion,+  newWithFilenameAndVersionAndParent,+  QLibrarySuper (..),+  QLibrarySuperConst (..),+  QLibraryLoadHint (..),+  QLibraryLoadHints,+  IsQLibraryLoadHints (..),+  deepBindHint,+  exportExternalSymbolsHint,+  loadArchiveMemberHint,+  preventUnloadHint,+  resolveAllSymbolsHint,+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+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 Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QLibrary_new" new' ::  HoppyP.IO (HoppyF.Ptr QLibrary)+foreign import ccall "genpop__QLibrary_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QLibrary)+foreign import ccall "genpop__QLibrary_newWithFilename" newWithFilename' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QLibrary)+foreign import ccall "genpop__QLibrary_newWithFilenameAndParent" newWithFilenameAndParent' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QLibrary)+foreign import ccall "genpop__QLibrary_newWithFilenameAndMajorVersion" newWithFilenameAndMajorVersion' ::  HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QLibrary)+foreign import ccall "genpop__QLibrary_newWithFilenameAndMajorVersionAndParent" newWithFilenameAndMajorVersionAndParent' ::  HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QLibrary)+foreign import ccall "genpop__QLibrary_newWithFilenameAndVersion" newWithFilenameAndVersion' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QLibrary)+foreign import ccall "genpop__QLibrary_newWithFilenameAndVersionAndParent" newWithFilenameAndVersionAndParent' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QLibrary)+foreign import ccall "genpop__QLibrary_errorString" errorString' ::  HoppyF.Ptr QLibraryConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QLibrary_isLibrary" isLibrary' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLibrary_isLoaded" isLoaded' ::  HoppyF.Ptr QLibraryConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLibrary_load" load' ::  HoppyF.Ptr QLibrary -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLibrary_resolve" resolve' ::  HoppyF.Ptr QLibrary -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.FunPtr (HoppyP.IO ()))+foreign import ccall "genpop__QLibrary_resolveStatic" resolveStatic' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.FunPtr (HoppyP.IO ()))+foreign import ccall "genpop__QLibrary_resolveStaticWithMajorVersion" resolveStaticWithMajorVersion' ::  HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.FunPtr (HoppyP.IO ()))+foreign import ccall "genpop__QLibrary_resolveStaticWithVersion" resolveStaticWithVersion' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.FunPtr (HoppyP.IO ()))+foreign import ccall "genpop__QLibrary_setFileNameAndMajorVersion" setFileNameAndMajorVersion' ::  HoppyF.Ptr QLibrary -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLibrary_setFileNameAndVersion" setFileNameAndVersion' ::  HoppyF.Ptr QLibrary -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QLibrary_unload" unload' ::  HoppyF.Ptr QLibrary -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLibrary_fileName" fileName' ::  HoppyF.Ptr QLibraryConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QLibrary_setFileName" setFileName' ::  HoppyF.Ptr QLibrary -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QLibrary_loadHints" loadHints' ::  HoppyF.Ptr QLibraryConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLibrary_setLoadHints" setLoadHints' ::  HoppyF.Ptr QLibrary -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QLibrary__QObject" castQLibraryToQObject :: HoppyF.Ptr QLibraryConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QLibrary" castQObjectToQLibrary :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QLibraryConst+foreign import ccall "gendel__QLibrary" delete'QLibrary :: HoppyF.Ptr QLibraryConst -> HoppyP.IO ()+foreign import ccall "&gendel__QLibrary" deletePtr'QLibrary :: HoppyF.FunPtr (HoppyF.Ptr QLibraryConst -> HoppyP.IO ())++class QLibraryValue a where+  withQLibraryPtr :: a -> (QLibraryConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QLibraryConstPtr a => QLibraryValue a where+  withQLibraryPtr = HoppyP.flip ($) . toQLibraryConst++class (M94.QObjectConstPtr this) => QLibraryConstPtr this where+  toQLibraryConst :: this -> QLibraryConst++errorString :: (QLibraryValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+errorString arg'1 =+  withQLibraryPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (errorString' arg'1')++isLoaded :: (QLibraryValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isLoaded arg'1 =+  withQLibraryPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isLoaded' arg'1')++fileName :: (QLibraryValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+fileName arg'1 =+  withQLibraryPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (fileName' arg'1')++loadHints :: (QLibraryValue this) => (this) {- ^ this -} -> (HoppyP.IO QLibraryLoadHints)+loadHints arg'1 =+  withQLibraryPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (loadHints' arg'1')++class (QLibraryConstPtr this, M94.QObjectPtr this) => QLibraryPtr this where+  toQLibrary :: this -> QLibrary++load :: (QLibraryPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+load arg'1 =+  HoppyFHR.withCppPtr (toQLibrary arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (load' arg'1')++resolve :: (QLibraryPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO (HoppyF.FunPtr (HoppyP.IO ())))+resolve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLibrary arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (resolve' arg'1' arg'2')++setFileNameAndMajorVersion :: (QLibraryPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO ())+setFileNameAndMajorVersion arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQLibrary arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (setFileNameAndMajorVersion' arg'1' arg'2' arg'3')++setFileNameAndVersion :: (QLibraryPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+setFileNameAndVersion arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQLibrary arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (setFileNameAndVersion' arg'1' arg'2' arg'3')++unload :: (QLibraryPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+unload arg'1 =+  HoppyFHR.withCppPtr (toQLibrary arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (unload' arg'1')++setFileName :: (QLibraryPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFileName arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLibrary arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setFileName' arg'1' arg'2')++setLoadHints :: (QLibraryPtr this, IsQLibraryLoadHints arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setLoadHints arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLibrary arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQLibraryLoadHints+  ) arg'2 >>= \arg'2' ->+  (setLoadHints' arg'1' arg'2')++isLibrary :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Bool)+isLibrary arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isLibrary' arg'1')++resolveStatic :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO (HoppyF.FunPtr (HoppyP.IO ())))+resolveStatic arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (resolveStatic' arg'1' arg'2')++resolveStaticWithMajorVersion :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.Int) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO (HoppyF.FunPtr (HoppyP.IO ())))+resolveStaticWithMajorVersion arg'1 arg'2 arg'3 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  (resolveStaticWithMajorVersion' arg'1' arg'2' arg'3')++resolveStaticWithVersion :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO (HoppyF.FunPtr (HoppyP.IO ())))+resolveStaticWithVersion arg'1 arg'2 arg'3 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  let arg'3' = arg'3 in+  (resolveStaticWithVersion' arg'1' arg'2' arg'3')++data QLibraryConst =+    QLibraryConst (HoppyF.Ptr QLibraryConst)+  | QLibraryConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLibraryConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLibraryConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLibraryConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLibraryToConst :: QLibrary -> QLibraryConst+castQLibraryToConst (QLibrary ptr') = QLibraryConst $ HoppyF.castPtr ptr'+castQLibraryToConst (QLibraryGc fptr' ptr') = QLibraryConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLibraryConst where+  nullptr = QLibraryConst HoppyF.nullPtr+  +  withCppPtr (QLibraryConst ptr') f' = f' ptr'+  withCppPtr (QLibraryConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLibraryConst ptr') = ptr'+  toPtr (QLibraryConstGc _ ptr') = ptr'+  +  touchCppPtr (QLibraryConst _) = HoppyP.return ()+  touchCppPtr (QLibraryConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLibraryConst where+  delete (QLibraryConst ptr') = delete'QLibrary ptr'+  delete (QLibraryConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLibraryConst", " object."]+  +  toGc this'@(QLibraryConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLibraryConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLibrary :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLibraryConstGc {}) = HoppyP.return this'++instance QLibraryConstPtr QLibraryConst where+  toQLibraryConst = HoppyP.id++instance M94.QObjectConstPtr QLibraryConst where+  toQObjectConst (QLibraryConst ptr') = M94.QObjectConst $ castQLibraryToQObject ptr'+  toQObjectConst (QLibraryConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQLibraryToQObject ptr'++data QLibrary =+    QLibrary (HoppyF.Ptr QLibrary)+  | QLibraryGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLibrary)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLibrary where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLibrary where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLibraryToNonconst :: QLibraryConst -> QLibrary+castQLibraryToNonconst (QLibraryConst ptr') = QLibrary $ HoppyF.castPtr ptr'+castQLibraryToNonconst (QLibraryConstGc fptr' ptr') = QLibraryGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLibrary where+  nullptr = QLibrary HoppyF.nullPtr+  +  withCppPtr (QLibrary ptr') f' = f' ptr'+  withCppPtr (QLibraryGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLibrary ptr') = ptr'+  toPtr (QLibraryGc _ ptr') = ptr'+  +  touchCppPtr (QLibrary _) = HoppyP.return ()+  touchCppPtr (QLibraryGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLibrary where+  delete (QLibrary ptr') = delete'QLibrary $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QLibraryConst)+  delete (QLibraryGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLibrary", " object."]+  +  toGc this'@(QLibrary ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLibraryGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLibrary :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLibraryGc {}) = HoppyP.return this'++instance QLibraryConstPtr QLibrary where+  toQLibraryConst (QLibrary ptr') = QLibraryConst $ (HoppyF.castPtr :: HoppyF.Ptr QLibrary -> HoppyF.Ptr QLibraryConst) ptr'+  toQLibraryConst (QLibraryGc fptr' ptr') = QLibraryConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QLibrary -> HoppyF.Ptr QLibraryConst) ptr'++instance QLibraryPtr QLibrary where+  toQLibrary = HoppyP.id++instance M94.QObjectConstPtr QLibrary where+  toQObjectConst (QLibrary ptr') = M94.QObjectConst $ castQLibraryToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLibrary -> HoppyF.Ptr QLibraryConst) ptr'+  toQObjectConst (QLibraryGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQLibraryToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLibrary -> HoppyF.Ptr QLibraryConst) ptr'++instance M94.QObjectPtr QLibrary where+  toQObject (QLibrary ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQLibraryToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLibrary -> HoppyF.Ptr QLibraryConst) ptr'+  toQObject (QLibraryGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQLibraryToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLibrary -> HoppyF.Ptr QLibraryConst) ptr'++new :: (HoppyP.IO QLibrary)+new =+  HoppyP.fmap QLibrary+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QLibrary)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QLibrary+  (newWithParent' arg'1')++newWithFilename :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QLibrary)+newWithFilename arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QLibrary+  (newWithFilename' arg'1')++newWithFilenameAndParent :: (M142.QStringValue arg'1, M94.QObjectPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QLibrary)+newWithFilenameAndParent arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  HoppyP.fmap QLibrary+  (newWithFilenameAndParent' arg'1' arg'2')++newWithFilenameAndMajorVersion :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.Int) -> (HoppyP.IO QLibrary)+newWithFilenameAndMajorVersion arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QLibrary+  (newWithFilenameAndMajorVersion' arg'1' arg'2')++newWithFilenameAndMajorVersionAndParent :: (M142.QStringValue arg'1, M94.QObjectPtr arg'3) => (arg'1) -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO QLibrary)+newWithFilenameAndMajorVersionAndParent arg'1 arg'2 arg'3 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'3) $ \arg'3' ->+  HoppyP.fmap QLibrary+  (newWithFilenameAndMajorVersionAndParent' arg'1' arg'2' arg'3')++newWithFilenameAndVersion :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QLibrary)+newWithFilenameAndVersion arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QLibrary+  (newWithFilenameAndVersion' arg'1' arg'2')++newWithFilenameAndVersionAndParent :: (M142.QStringValue arg'1, M142.QStringValue arg'2, M94.QObjectPtr arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO QLibrary)+newWithFilenameAndVersionAndParent arg'1 arg'2 arg'3 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'3) $ \arg'3' ->+  HoppyP.fmap QLibrary+  (newWithFilenameAndVersionAndParent' arg'1' arg'2' arg'3')++class QLibrarySuper a where+  downToQLibrary :: a -> QLibrary++instance QLibrarySuper M94.QObject where+  downToQLibrary = castQLibraryToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QLibraryConst $ castQObjectToQLibrary ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QLibraryConstGc fptr' $ castQObjectToQLibrary ptr'++class QLibrarySuperConst a where+  downToQLibraryConst :: a -> QLibraryConst++instance QLibrarySuperConst M94.QObjectConst where+  downToQLibraryConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QLibraryConst $ castQObjectToQLibrary ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QLibraryConstGc fptr' $ castQObjectToQLibrary ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QLibrary)) QLibrary where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QLibrary)) QLibrary where+  decode = HoppyP.fmap QLibrary . HoppyF.peek++data QLibraryLoadHint =+  ResolveAllSymbolsHint+  | ExportExternalSymbolsHint+  | LoadArchiveMemberHint+  | PreventUnloadHint+  | DeepBindHint+  | UnknownQLibraryLoadHint (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QLibraryLoadHint where+  fromCppEnum ResolveAllSymbolsHint = 1+  fromCppEnum ExportExternalSymbolsHint = 2+  fromCppEnum LoadArchiveMemberHint = 4+  fromCppEnum PreventUnloadHint = 8+  fromCppEnum DeepBindHint = 16+  fromCppEnum (UnknownQLibraryLoadHint n) = n+  +  toCppEnum (1) = ResolveAllSymbolsHint+  toCppEnum (2) = ExportExternalSymbolsHint+  toCppEnum (4) = LoadArchiveMemberHint+  toCppEnum (8) = PreventUnloadHint+  toCppEnum (16) = DeepBindHint+  toCppEnum n = UnknownQLibraryLoadHint n++instance HoppyP.Eq QLibraryLoadHint where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QLibraryLoadHint where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QLibraryLoadHints = QLibraryLoadHints (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QLibraryLoadHint QLibraryLoadHints where+  enumToFlags = QLibraryLoadHints . QtahFHR.fromCppEnum+  flagsToEnum (QLibraryLoadHints x') = QtahFHR.toCppEnum x'++class IsQLibraryLoadHints a where+  toQLibraryLoadHints :: a -> QLibraryLoadHints++instance IsQLibraryLoadHints QLibraryLoadHints where toQLibraryLoadHints = QtahP.id+instance IsQLibraryLoadHints QLibraryLoadHint where toQLibraryLoadHints = QtahFlags.enumToFlags+instance IsQLibraryLoadHints (HoppyFC.CInt) where toQLibraryLoadHints = QtahFlags.numToFlags++deepBindHint :: QLibraryLoadHints+deepBindHint = QLibraryLoadHints (16)++exportExternalSymbolsHint :: QLibraryLoadHints+exportExternalSymbolsHint = QLibraryLoadHints (2)++loadArchiveMemberHint :: QLibraryLoadHints+loadArchiveMemberHint = QLibraryLoadHints (4)++preventUnloadHint :: QLibraryLoadHints+preventUnloadHint = QLibraryLoadHints (8)++resolveAllSymbolsHint :: QLibraryLoadHints+resolveAllSymbolsHint = QLibraryLoadHints (1)++instance QtahDB.Bits QLibraryLoadHints where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum
src/Graphics/UI/Qtah/Generated/Core/QLibraryInfo.hs view
@@ -0,0 +1,217 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QLibraryInfo (+  QLibraryInfoValue (..),+  QLibraryInfoConstPtr (..),+  QLibraryInfoPtr (..),+  isDebugBuild,+  location,+  version,+  QLibraryInfoConst (..),+  castQLibraryInfoToConst,+  QLibraryInfo (..),+  castQLibraryInfoToNonconst,+  QLibraryInfoSuper (..),+  QLibraryInfoSuperConst (..),+  QLibraryInfoLibraryLocation (..),+  ) 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.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QVersionNumber as M172+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QLibraryInfo_isDebugBuild" isDebugBuild' ::  HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLibraryInfo_location" location' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QLibraryInfo_version" version' ::  HoppyP.IO (HoppyF.Ptr M172.QVersionNumberConst)+foreign import ccall "gendel__QLibraryInfo" delete'QLibraryInfo :: HoppyF.Ptr QLibraryInfoConst -> HoppyP.IO ()+foreign import ccall "&gendel__QLibraryInfo" deletePtr'QLibraryInfo :: HoppyF.FunPtr (HoppyF.Ptr QLibraryInfoConst -> HoppyP.IO ())++class QLibraryInfoValue a where+  withQLibraryInfoPtr :: a -> (QLibraryInfoConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QLibraryInfoConstPtr a => QLibraryInfoValue a where+  withQLibraryInfoPtr = HoppyP.flip ($) . toQLibraryInfoConst++class (HoppyFHR.CppPtr this) => QLibraryInfoConstPtr this where+  toQLibraryInfoConst :: this -> QLibraryInfoConst++class (QLibraryInfoConstPtr this) => QLibraryInfoPtr this where+  toQLibraryInfo :: this -> QLibraryInfo++isDebugBuild :: (HoppyP.IO HoppyP.Bool)+isDebugBuild =+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isDebugBuild')++location :: (QLibraryInfoLibraryLocation) -> (HoppyP.IO QtahP.String)+location arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (location' arg'1')++version :: (HoppyP.IO M172.QVersionNumber)+version =+  (HoppyFHR.decodeAndDelete . M172.QVersionNumberConst) =<<+  (version')++data QLibraryInfoConst =+    QLibraryInfoConst (HoppyF.Ptr QLibraryInfoConst)+  | QLibraryInfoConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLibraryInfoConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLibraryInfoConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLibraryInfoConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLibraryInfoToConst :: QLibraryInfo -> QLibraryInfoConst+castQLibraryInfoToConst (QLibraryInfo ptr') = QLibraryInfoConst $ HoppyF.castPtr ptr'+castQLibraryInfoToConst (QLibraryInfoGc fptr' ptr') = QLibraryInfoConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLibraryInfoConst where+  nullptr = QLibraryInfoConst HoppyF.nullPtr+  +  withCppPtr (QLibraryInfoConst ptr') f' = f' ptr'+  withCppPtr (QLibraryInfoConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLibraryInfoConst ptr') = ptr'+  toPtr (QLibraryInfoConstGc _ ptr') = ptr'+  +  touchCppPtr (QLibraryInfoConst _) = HoppyP.return ()+  touchCppPtr (QLibraryInfoConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLibraryInfoConst where+  delete (QLibraryInfoConst ptr') = delete'QLibraryInfo ptr'+  delete (QLibraryInfoConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLibraryInfoConst", " object."]+  +  toGc this'@(QLibraryInfoConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLibraryInfoConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLibraryInfo :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLibraryInfoConstGc {}) = HoppyP.return this'++instance QLibraryInfoConstPtr QLibraryInfoConst where+  toQLibraryInfoConst = HoppyP.id++data QLibraryInfo =+    QLibraryInfo (HoppyF.Ptr QLibraryInfo)+  | QLibraryInfoGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLibraryInfo)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLibraryInfo where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLibraryInfo where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLibraryInfoToNonconst :: QLibraryInfoConst -> QLibraryInfo+castQLibraryInfoToNonconst (QLibraryInfoConst ptr') = QLibraryInfo $ HoppyF.castPtr ptr'+castQLibraryInfoToNonconst (QLibraryInfoConstGc fptr' ptr') = QLibraryInfoGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLibraryInfo where+  nullptr = QLibraryInfo HoppyF.nullPtr+  +  withCppPtr (QLibraryInfo ptr') f' = f' ptr'+  withCppPtr (QLibraryInfoGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLibraryInfo ptr') = ptr'+  toPtr (QLibraryInfoGc _ ptr') = ptr'+  +  touchCppPtr (QLibraryInfo _) = HoppyP.return ()+  touchCppPtr (QLibraryInfoGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLibraryInfo where+  delete (QLibraryInfo ptr') = delete'QLibraryInfo $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QLibraryInfoConst)+  delete (QLibraryInfoGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLibraryInfo", " object."]+  +  toGc this'@(QLibraryInfo ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLibraryInfoGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLibraryInfo :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLibraryInfoGc {}) = HoppyP.return this'++instance QLibraryInfoConstPtr QLibraryInfo where+  toQLibraryInfoConst (QLibraryInfo ptr') = QLibraryInfoConst $ (HoppyF.castPtr :: HoppyF.Ptr QLibraryInfo -> HoppyF.Ptr QLibraryInfoConst) ptr'+  toQLibraryInfoConst (QLibraryInfoGc fptr' ptr') = QLibraryInfoConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QLibraryInfo -> HoppyF.Ptr QLibraryInfoConst) ptr'++instance QLibraryInfoPtr QLibraryInfo where+  toQLibraryInfo = HoppyP.id++class QLibraryInfoSuper a where+  downToQLibraryInfo :: a -> QLibraryInfo+++class QLibraryInfoSuperConst a where+  downToQLibraryInfoConst :: a -> QLibraryInfoConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QLibraryInfo)) QLibraryInfo where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QLibraryInfo)) QLibraryInfo where+  decode = HoppyP.fmap QLibraryInfo . HoppyF.peek++data QLibraryInfoLibraryLocation =+  PrefixPath+  | DocumentationPath+  | HeadersPath+  | LibrariesPath+  | LibraryExecutablesPath+  | BinariesPath+  | PluginsPath+  | ImportsPath+  | Qml2ImportsPath+  | ArchDataPath+  | DataPath+  | TranslationsPath+  | ExamplesPath+  | TestsPath+  | SettingsPath+  | UnknownQLibraryInfoLibraryLocation (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QLibraryInfoLibraryLocation where+  fromCppEnum PrefixPath = 0+  fromCppEnum DocumentationPath = 1+  fromCppEnum HeadersPath = 2+  fromCppEnum LibrariesPath = 3+  fromCppEnum LibraryExecutablesPath = 4+  fromCppEnum BinariesPath = 5+  fromCppEnum PluginsPath = 6+  fromCppEnum ImportsPath = 7+  fromCppEnum Qml2ImportsPath = 8+  fromCppEnum ArchDataPath = 9+  fromCppEnum DataPath = 10+  fromCppEnum TranslationsPath = 11+  fromCppEnum ExamplesPath = 12+  fromCppEnum TestsPath = 13+  fromCppEnum SettingsPath = 100+  fromCppEnum (UnknownQLibraryInfoLibraryLocation n) = n+  +  toCppEnum (0) = PrefixPath+  toCppEnum (1) = DocumentationPath+  toCppEnum (2) = HeadersPath+  toCppEnum (3) = LibrariesPath+  toCppEnum (4) = LibraryExecutablesPath+  toCppEnum (5) = BinariesPath+  toCppEnum (6) = PluginsPath+  toCppEnum (7) = ImportsPath+  toCppEnum (8) = Qml2ImportsPath+  toCppEnum (9) = ArchDataPath+  toCppEnum (10) = DataPath+  toCppEnum (11) = TranslationsPath+  toCppEnum (12) = ExamplesPath+  toCppEnum (13) = TestsPath+  toCppEnum (100) = SettingsPath+  toCppEnum n = UnknownQLibraryInfoLibraryLocation n++instance HoppyP.Eq QLibraryInfoLibraryLocation where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QLibraryInfoLibraryLocation where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Core/QList/Int.hs view
@@ -0,0 +1,632 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.Int (+  QListIntValue (..),+  QListIntConstPtr (..),+  atConst,+  contains,+  count,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QListIntPtr (..),+  append,+  appendList,+  at,+  clear,+  first,+  insert,+  last,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QListIntConst (..),+  castQListIntToConst,+  QListInt (..),+  castQListIntToNonconst,+  new,+  newCopy,+  QListIntSuper (..),+  QListIntSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QListInt_new" new' ::  HoppyP.IO (HoppyF.Ptr QListInt)+foreign import ccall "genpop__QListInt_newCopy" newCopy' ::  HoppyF.Ptr QListIntConst -> HoppyP.IO (HoppyF.Ptr QListInt)+foreign import ccall "genpop__QListInt_append" append' ::  HoppyF.Ptr QListInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListInt_appendList" appendList' ::  HoppyF.Ptr QListInt -> HoppyF.Ptr QListIntConst -> HoppyP.IO ()+foreign import ccall "genpop__QListInt_at" at' ::  HoppyF.Ptr QListInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CInt)+foreign import ccall "genpop__QListInt_atConst" atConst' ::  HoppyF.Ptr QListIntConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CInt)+foreign import ccall "genpop__QListInt_clear" clear' ::  HoppyF.Ptr QListInt -> HoppyP.IO ()+foreign import ccall "genpop__QListInt_contains" contains' ::  HoppyF.Ptr QListIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListInt_count" count' ::  HoppyF.Ptr QListIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListInt_endsWith" endsWith' ::  HoppyF.Ptr QListIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListInt_first" first' ::  HoppyF.Ptr QListInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CInt)+foreign import ccall "genpop__QListInt_firstConst" firstConst' ::  HoppyF.Ptr QListIntConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CInt)+foreign import ccall "genpop__QListInt_get" get' ::  HoppyF.Ptr QListIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListInt_indexOf" indexOf' ::  HoppyF.Ptr QListIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListInt_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QListIntConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListInt_insert" insert' ::  HoppyF.Ptr QListInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListInt_isEmpty" isEmpty' ::  HoppyF.Ptr QListIntConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListInt_last" last' ::  HoppyF.Ptr QListInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CInt)+foreign import ccall "genpop__QListInt_lastConst" lastConst' ::  HoppyF.Ptr QListIntConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CInt)+foreign import ccall "genpop__QListInt_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QListIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListInt_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QListIntConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListInt_mid" mid' ::  HoppyF.Ptr QListIntConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListInt)+foreign import ccall "genpop__QListInt_midLength" midLength' ::  HoppyF.Ptr QListIntConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListInt)+foreign import ccall "genpop__QListInt_move" move' ::  HoppyF.Ptr QListInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListInt_prepend" prepend' ::  HoppyF.Ptr QListInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListInt_removeAll" removeAll' ::  HoppyF.Ptr QListInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListInt_removeAt" removeAt' ::  HoppyF.Ptr QListInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListInt_removeFirst" removeFirst' ::  HoppyF.Ptr QListInt -> HoppyP.IO ()+foreign import ccall "genpop__QListInt_removeLast" removeLast' ::  HoppyF.Ptr QListInt -> HoppyP.IO ()+foreign import ccall "genpop__QListInt_removeOne" removeOne' ::  HoppyF.Ptr QListInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListInt_replace" replace' ::  HoppyF.Ptr QListInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListInt_reserve" reserve' ::  HoppyF.Ptr QListInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListInt_size" size' ::  HoppyF.Ptr QListIntConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListInt_startsWith" startsWith' ::  HoppyF.Ptr QListIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListInt_swap" swap' ::  HoppyF.Ptr QListInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListInt_takeAt" takeAt' ::  HoppyF.Ptr QListInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListInt_takeFirst" takeFirst' ::  HoppyF.Ptr QListInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListInt_takeLast" takeLast' ::  HoppyF.Ptr QListInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListInt_value" value' ::  HoppyF.Ptr QListIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListInt_valueOr" valueOr' ::  HoppyF.Ptr QListIntConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListInt_ADD" aDD' ::  HoppyF.Ptr QListIntConst -> HoppyF.Ptr QListIntConst -> HoppyP.IO (HoppyF.Ptr QListInt)+foreign import ccall "genpop__QListInt_ASSIGN" aSSIGN' ::  HoppyF.Ptr QListInt -> HoppyF.Ptr QListIntConst -> HoppyP.IO (HoppyF.Ptr QListInt)+foreign import ccall "gendel__QListInt" delete'QListInt :: HoppyF.Ptr QListIntConst -> HoppyP.IO ()+foreign import ccall "&gendel__QListInt" deletePtr'QListInt :: HoppyF.FunPtr (HoppyF.Ptr QListIntConst -> HoppyP.IO ())++class QListIntValue a where+  withQListIntPtr :: a -> (QListIntConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListIntConstPtr a => QListIntValue a where+  withQListIntPtr = HoppyP.flip ($) . toQListIntConst++instance {-# OVERLAPPING #-} QListIntValue ([HoppyP.Int]) where+  withQListIntPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QListIntConstPtr this where+  toQListIntConst :: this -> QListIntConst++atConst :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CInt))+atConst arg'1 arg'2 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (atConst' arg'1' arg'2')++contains :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++endsWith :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CInt))+firstConst arg'1 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (firstConst' arg'1')++get :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+get arg'1 arg'2 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (get' arg'1' arg'2')++indexOf :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CInt))+lastConst arg'1 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (lastConst' arg'1')++lastIndexOf :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QListInt)+mid arg'1 arg'2 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListInt+  (mid' arg'1' arg'2')++midLength :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QListInt)+midLength arg'1 arg'2 arg'3 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListInt+  (midLength' arg'1' arg'2' arg'3')++size :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+value arg'1 arg'2 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (value' arg'1' arg'2')++valueOr :: (QListIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+valueOr arg'1 arg'2 arg'3 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QListIntValue this, QListIntValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListInt)+aDD arg'1 arg'2 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQListIntPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListInt+  (aDD' arg'1' arg'2')++class (QListIntConstPtr this) => QListIntPtr this where+  toQListInt :: this -> QListInt++append :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (append' arg'1' arg'2')++appendList :: (QListIntPtr this, QListIntValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendList arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  withQListIntPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendList' arg'1' arg'2')++at :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CInt))+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (at' arg'1' arg'2')++clear :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (clear' arg'1')++first :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CInt))+first arg'1 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (first' arg'1')++insert :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++last :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CInt))+last arg'1 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (last' arg'1')++move :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+move arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (move' arg'1' arg'2' arg'3')++prepend :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (prepend' arg'1' arg'2')++removeAll :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeAt :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+removeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (removeAt' arg'1' arg'2')++removeFirst :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++swap :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+swap arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (swap' arg'1' arg'2' arg'3')++takeAt :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (takeFirst' arg'1')++takeLast :: (QListIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (takeLast' arg'1')++aSSIGN :: (QListIntPtr this, QListIntValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListInt)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListInt arg'1) $ \arg'1' ->+  withQListIntPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QListInt+  (aSSIGN' arg'1' arg'2')++data QListIntConst =+    QListIntConst (HoppyF.Ptr QListIntConst)+  | QListIntConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListIntConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListIntConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListIntConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListIntToConst :: QListInt -> QListIntConst+castQListIntToConst (QListInt ptr') = QListIntConst $ HoppyF.castPtr ptr'+castQListIntToConst (QListIntGc fptr' ptr') = QListIntConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListIntConst where+  nullptr = QListIntConst HoppyF.nullPtr+  +  withCppPtr (QListIntConst ptr') f' = f' ptr'+  withCppPtr (QListIntConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListIntConst ptr') = ptr'+  toPtr (QListIntConstGc _ ptr') = ptr'+  +  touchCppPtr (QListIntConst _) = HoppyP.return ()+  touchCppPtr (QListIntConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListIntConst where+  delete (QListIntConst ptr') = delete'QListInt ptr'+  delete (QListIntConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListIntConst", " object."]+  +  toGc this'@(QListIntConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListIntConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListIntConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListIntConst QListInt where copy = newCopy++instance QListIntConstPtr QListIntConst where+  toQListIntConst = HoppyP.id++data QListInt =+    QListInt (HoppyF.Ptr QListInt)+  | QListIntGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListInt)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListInt where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListInt where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListIntToNonconst :: QListIntConst -> QListInt+castQListIntToNonconst (QListIntConst ptr') = QListInt $ HoppyF.castPtr ptr'+castQListIntToNonconst (QListIntConstGc fptr' ptr') = QListIntGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListInt where+  nullptr = QListInt HoppyF.nullPtr+  +  withCppPtr (QListInt ptr') f' = f' ptr'+  withCppPtr (QListIntGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListInt ptr') = ptr'+  toPtr (QListIntGc _ ptr') = ptr'+  +  touchCppPtr (QListInt _) = HoppyP.return ()+  touchCppPtr (QListIntGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListInt where+  delete (QListInt ptr') = delete'QListInt $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QListIntConst)+  delete (QListIntGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListInt", " object."]+  +  toGc this'@(QListInt ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListIntGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListIntGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListInt QListInt where copy = newCopy++instance QListIntConstPtr QListInt where+  toQListIntConst (QListInt ptr') = QListIntConst $ (HoppyF.castPtr :: HoppyF.Ptr QListInt -> HoppyF.Ptr QListIntConst) ptr'+  toQListIntConst (QListIntGc fptr' ptr') = QListIntConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QListInt -> HoppyF.Ptr QListIntConst) ptr'++instance QListIntPtr QListInt where+  toQListInt = HoppyP.id++new :: (HoppyP.IO QListInt)+new =+  HoppyP.fmap QListInt+  (new')++newCopy :: (QListIntValue arg'1) => (arg'1) -> (HoppyP.IO QListInt)+newCopy arg'1 =+  withQListIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QListInt+  (newCopy' arg'1')++class QListIntSuper a where+  downToQListInt :: a -> QListInt+++class QListIntSuperConst a where+  downToQListIntConst :: a -> QListIntConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QListInt)) QListInt where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QListIntValue a => HoppyFHR.Assignable QListInt a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListInt)) QListInt where+  decode = HoppyP.fmap QListInt . HoppyF.peek++instance HoppyFHR.Encodable QListInt ([HoppyP.Int]) where+  encode =+    QtahFHR.fromContents++instance HoppyFHR.Encodable QListIntConst ([HoppyP.Int]) where+  encode = HoppyP.fmap (toQListIntConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QListInt)++instance HoppyFHR.Decodable QListInt ([HoppyP.Int]) where+  decode = HoppyFHR.decode . toQListIntConst++instance HoppyFHR.Decodable QListIntConst ([HoppyP.Int]) where+  decode =+    QtahFHR.toContents++instance QtahFHR.HasContents QListIntConst (HoppyP.Int) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QListInt (HoppyP.Int) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QListInt (HoppyP.Int) where+  fromContents values' = do+    list' <- new+    reserve list' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append list') values'+    QtahP.return list'
src/Graphics/UI/Qtah/Generated/Core/QList/QAbstractButton.hs view
@@ -0,0 +1,591 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QAbstractButton (+  QListQAbstractButtonValue (..),+  QListQAbstractButtonConstPtr (..),+  atConst,+  contains,+  count,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QListQAbstractButtonPtr (..),+  append,+  appendList,+  at,+  clear,+  first,+  insert,+  last,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QListQAbstractButtonConst (..),+  castQListQAbstractButtonToConst,+  QListQAbstractButton (..),+  castQListQAbstractButtonToNonconst,+  new,+  newCopy,+  QListQAbstractButtonSuper (..),+  QListQAbstractButtonSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractButton as M354+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QListQAbstractButton_new" new' ::  HoppyP.IO (HoppyF.Ptr QListQAbstractButton)+foreign import ccall "genpop__QListQAbstractButton_newCopy" newCopy' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyP.IO (HoppyF.Ptr QListQAbstractButton)+foreign import ccall "genpop__QListQAbstractButton_append" append' ::  HoppyF.Ptr QListQAbstractButton -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QListQAbstractButton_appendList" appendList' ::  HoppyF.Ptr QListQAbstractButton -> HoppyF.Ptr QListQAbstractButtonConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQAbstractButton_at" at' ::  HoppyF.Ptr QListQAbstractButton -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M354.QAbstractButton))+foreign import ccall "genpop__QListQAbstractButton_atConst" atConst' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M354.QAbstractButton))+foreign import ccall "genpop__QListQAbstractButton_clear" clear' ::  HoppyF.Ptr QListQAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QListQAbstractButton_contains" contains' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQAbstractButton_count" count' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQAbstractButton_endsWith" endsWith' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQAbstractButton_first" first' ::  HoppyF.Ptr QListQAbstractButton -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M354.QAbstractButton))+foreign import ccall "genpop__QListQAbstractButton_firstConst" firstConst' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M354.QAbstractButton))+foreign import ccall "genpop__QListQAbstractButton_get" get' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M354.QAbstractButton)+foreign import ccall "genpop__QListQAbstractButton_indexOf" indexOf' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQAbstractButton_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyF.Ptr M354.QAbstractButton -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQAbstractButton_insert" insert' ::  HoppyF.Ptr QListQAbstractButton -> HoppyFC.CInt -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QListQAbstractButton_isEmpty" isEmpty' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQAbstractButton_last" last' ::  HoppyF.Ptr QListQAbstractButton -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M354.QAbstractButton))+foreign import ccall "genpop__QListQAbstractButton_lastConst" lastConst' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M354.QAbstractButton))+foreign import ccall "genpop__QListQAbstractButton_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQAbstractButton_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyF.Ptr M354.QAbstractButton -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQAbstractButton_mid" mid' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQAbstractButton)+foreign import ccall "genpop__QListQAbstractButton_midLength" midLength' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQAbstractButton)+foreign import ccall "genpop__QListQAbstractButton_move" move' ::  HoppyF.Ptr QListQAbstractButton -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQAbstractButton_prepend" prepend' ::  HoppyF.Ptr QListQAbstractButton -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QListQAbstractButton_removeAll" removeAll' ::  HoppyF.Ptr QListQAbstractButton -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQAbstractButton_removeAt" removeAt' ::  HoppyF.Ptr QListQAbstractButton -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQAbstractButton_removeFirst" removeFirst' ::  HoppyF.Ptr QListQAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QListQAbstractButton_removeLast" removeLast' ::  HoppyF.Ptr QListQAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QListQAbstractButton_removeOne" removeOne' ::  HoppyF.Ptr QListQAbstractButton -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQAbstractButton_replace" replace' ::  HoppyF.Ptr QListQAbstractButton -> HoppyFC.CInt -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QListQAbstractButton_reserve" reserve' ::  HoppyF.Ptr QListQAbstractButton -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQAbstractButton_size" size' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQAbstractButton_startsWith" startsWith' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQAbstractButton_swap" swap' ::  HoppyF.Ptr QListQAbstractButton -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQAbstractButton_takeAt" takeAt' ::  HoppyF.Ptr QListQAbstractButton -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M354.QAbstractButton)+foreign import ccall "genpop__QListQAbstractButton_takeFirst" takeFirst' ::  HoppyF.Ptr QListQAbstractButton -> HoppyP.IO (HoppyF.Ptr M354.QAbstractButton)+foreign import ccall "genpop__QListQAbstractButton_takeLast" takeLast' ::  HoppyF.Ptr QListQAbstractButton -> HoppyP.IO (HoppyF.Ptr M354.QAbstractButton)+foreign import ccall "genpop__QListQAbstractButton_value" value' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M354.QAbstractButton)+foreign import ccall "genpop__QListQAbstractButton_valueOr" valueOr' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyFC.CInt -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO (HoppyF.Ptr M354.QAbstractButton)+foreign import ccall "genpop__QListQAbstractButton_ADD" aDD' ::  HoppyF.Ptr QListQAbstractButtonConst -> HoppyF.Ptr QListQAbstractButtonConst -> HoppyP.IO (HoppyF.Ptr QListQAbstractButton)+foreign import ccall "genpop__QListQAbstractButton_ASSIGN" aSSIGN' ::  HoppyF.Ptr QListQAbstractButton -> HoppyF.Ptr QListQAbstractButtonConst -> HoppyP.IO (HoppyF.Ptr QListQAbstractButton)+foreign import ccall "gendel__QListQAbstractButton" delete'QListQAbstractButton :: HoppyF.Ptr QListQAbstractButtonConst -> HoppyP.IO ()+foreign import ccall "&gendel__QListQAbstractButton" deletePtr'QListQAbstractButton :: HoppyF.FunPtr (HoppyF.Ptr QListQAbstractButtonConst -> HoppyP.IO ())++class QListQAbstractButtonValue a where+  withQListQAbstractButtonPtr :: a -> (QListQAbstractButtonConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQAbstractButtonConstPtr a => QListQAbstractButtonValue a where+  withQListQAbstractButtonPtr = HoppyP.flip ($) . toQListQAbstractButtonConst++instance {-# OVERLAPPING #-} QListQAbstractButtonValue ([M354.QAbstractButton]) where+  withQListQAbstractButtonPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QListQAbstractButtonConstPtr this where+  toQListQAbstractButtonConst :: this -> QListQAbstractButtonConst++atConst :: (QListQAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M354.QAbstractButton)))+atConst arg'1 arg'2 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (atConst' arg'1' arg'2')++contains :: (QListQAbstractButtonValue this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QListQAbstractButtonValue this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++endsWith :: (QListQAbstractButtonValue this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QListQAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M354.QAbstractButton)))+firstConst arg'1 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (firstConst' arg'1')++get :: (QListQAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M354.QAbstractButton)+get arg'1 arg'2 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M354.QAbstractButton+  (get' arg'1' arg'2')++indexOf :: (QListQAbstractButtonValue this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QListQAbstractButtonValue this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QListQAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QListQAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M354.QAbstractButton)))+lastConst arg'1 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (lastConst' arg'1')++lastIndexOf :: (QListQAbstractButtonValue this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QListQAbstractButtonValue this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QListQAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QListQAbstractButton)+mid arg'1 arg'2 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQAbstractButton+  (mid' arg'1' arg'2')++midLength :: (QListQAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QListQAbstractButton)+midLength arg'1 arg'2 arg'3 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQAbstractButton+  (midLength' arg'1' arg'2' arg'3')++size :: (QListQAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QListQAbstractButtonValue this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QListQAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M354.QAbstractButton)+value arg'1 arg'2 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M354.QAbstractButton+  (value' arg'1' arg'2')++valueOr :: (QListQAbstractButtonValue this, M354.QAbstractButtonPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO M354.QAbstractButton)+valueOr arg'1 arg'2 arg'3 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'3) $ \arg'3' ->+  HoppyP.fmap M354.QAbstractButton+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QListQAbstractButtonValue this, QListQAbstractButtonValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQAbstractButton)+aDD arg'1 arg'2 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQListQAbstractButtonPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQAbstractButton+  (aDD' arg'1' arg'2')++class (QListQAbstractButtonConstPtr this) => QListQAbstractButtonPtr this where+  toQListQAbstractButton :: this -> QListQAbstractButton++append :: (QListQAbstractButtonPtr this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (append' arg'1' arg'2')++appendList :: (QListQAbstractButtonPtr this, QListQAbstractButtonValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendList arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  withQListQAbstractButtonPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendList' arg'1' arg'2')++at :: (QListQAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M354.QAbstractButton)))+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (at' arg'1' arg'2')++clear :: (QListQAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  (clear' arg'1')++first :: (QListQAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M354.QAbstractButton)))+first arg'1 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  (first' arg'1')++insert :: (QListQAbstractButtonPtr this, M354.QAbstractButtonPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'3) $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++last :: (QListQAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M354.QAbstractButton)))+last arg'1 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  (last' arg'1')++move :: (QListQAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+move arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (move' arg'1' arg'2' arg'3')++prepend :: (QListQAbstractButtonPtr this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (prepend' arg'1' arg'2')++removeAll :: (QListQAbstractButtonPtr this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeAt :: (QListQAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+removeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (removeAt' arg'1' arg'2')++removeFirst :: (QListQAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QListQAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QListQAbstractButtonPtr this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QListQAbstractButtonPtr this, M354.QAbstractButtonPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'3) $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QListQAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++swap :: (QListQAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+swap arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (swap' arg'1' arg'2' arg'3')++takeAt :: (QListQAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M354.QAbstractButton)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M354.QAbstractButton+  (takeAt' arg'1' arg'2')++takeFirst :: (QListQAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.IO M354.QAbstractButton)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  HoppyP.fmap M354.QAbstractButton+  (takeFirst' arg'1')++takeLast :: (QListQAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.IO M354.QAbstractButton)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  HoppyP.fmap M354.QAbstractButton+  (takeLast' arg'1')++aSSIGN :: (QListQAbstractButtonPtr this, QListQAbstractButtonValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQAbstractButton)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQAbstractButton arg'1) $ \arg'1' ->+  withQListQAbstractButtonPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QListQAbstractButton+  (aSSIGN' arg'1' arg'2')++data QListQAbstractButtonConst =+    QListQAbstractButtonConst (HoppyF.Ptr QListQAbstractButtonConst)+  | QListQAbstractButtonConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQAbstractButtonConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQAbstractButtonConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQAbstractButtonConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQAbstractButtonToConst :: QListQAbstractButton -> QListQAbstractButtonConst+castQListQAbstractButtonToConst (QListQAbstractButton ptr') = QListQAbstractButtonConst $ HoppyF.castPtr ptr'+castQListQAbstractButtonToConst (QListQAbstractButtonGc fptr' ptr') = QListQAbstractButtonConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQAbstractButtonConst where+  nullptr = QListQAbstractButtonConst HoppyF.nullPtr+  +  withCppPtr (QListQAbstractButtonConst ptr') f' = f' ptr'+  withCppPtr (QListQAbstractButtonConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQAbstractButtonConst ptr') = ptr'+  toPtr (QListQAbstractButtonConstGc _ ptr') = ptr'+  +  touchCppPtr (QListQAbstractButtonConst _) = HoppyP.return ()+  touchCppPtr (QListQAbstractButtonConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQAbstractButtonConst where+  delete (QListQAbstractButtonConst ptr') = delete'QListQAbstractButton ptr'+  delete (QListQAbstractButtonConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQAbstractButtonConst", " object."]+  +  toGc this'@(QListQAbstractButtonConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQAbstractButtonConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQAbstractButton :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQAbstractButtonConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQAbstractButtonConst QListQAbstractButton where copy = newCopy++instance QListQAbstractButtonConstPtr QListQAbstractButtonConst where+  toQListQAbstractButtonConst = HoppyP.id++data QListQAbstractButton =+    QListQAbstractButton (HoppyF.Ptr QListQAbstractButton)+  | QListQAbstractButtonGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQAbstractButton)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQAbstractButton where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQAbstractButton where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQAbstractButtonToNonconst :: QListQAbstractButtonConst -> QListQAbstractButton+castQListQAbstractButtonToNonconst (QListQAbstractButtonConst ptr') = QListQAbstractButton $ HoppyF.castPtr ptr'+castQListQAbstractButtonToNonconst (QListQAbstractButtonConstGc fptr' ptr') = QListQAbstractButtonGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQAbstractButton where+  nullptr = QListQAbstractButton HoppyF.nullPtr+  +  withCppPtr (QListQAbstractButton ptr') f' = f' ptr'+  withCppPtr (QListQAbstractButtonGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQAbstractButton ptr') = ptr'+  toPtr (QListQAbstractButtonGc _ ptr') = ptr'+  +  touchCppPtr (QListQAbstractButton _) = HoppyP.return ()+  touchCppPtr (QListQAbstractButtonGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQAbstractButton where+  delete (QListQAbstractButton ptr') = delete'QListQAbstractButton $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QListQAbstractButtonConst)+  delete (QListQAbstractButtonGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQAbstractButton", " object."]+  +  toGc this'@(QListQAbstractButton ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQAbstractButtonGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQAbstractButton :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQAbstractButtonGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQAbstractButton QListQAbstractButton where copy = newCopy++instance QListQAbstractButtonConstPtr QListQAbstractButton where+  toQListQAbstractButtonConst (QListQAbstractButton ptr') = QListQAbstractButtonConst $ (HoppyF.castPtr :: HoppyF.Ptr QListQAbstractButton -> HoppyF.Ptr QListQAbstractButtonConst) ptr'+  toQListQAbstractButtonConst (QListQAbstractButtonGc fptr' ptr') = QListQAbstractButtonConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QListQAbstractButton -> HoppyF.Ptr QListQAbstractButtonConst) ptr'++instance QListQAbstractButtonPtr QListQAbstractButton where+  toQListQAbstractButton = HoppyP.id++new :: (HoppyP.IO QListQAbstractButton)+new =+  HoppyP.fmap QListQAbstractButton+  (new')++newCopy :: (QListQAbstractButtonValue arg'1) => (arg'1) -> (HoppyP.IO QListQAbstractButton)+newCopy arg'1 =+  withQListQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QListQAbstractButton+  (newCopy' arg'1')++class QListQAbstractButtonSuper a where+  downToQListQAbstractButton :: a -> QListQAbstractButton+++class QListQAbstractButtonSuperConst a where+  downToQListQAbstractButtonConst :: a -> QListQAbstractButtonConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QListQAbstractButton)) QListQAbstractButton where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QListQAbstractButtonValue a => HoppyFHR.Assignable QListQAbstractButton a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQAbstractButton)) QListQAbstractButton where+  decode = HoppyP.fmap QListQAbstractButton . HoppyF.peek++instance HoppyFHR.Encodable QListQAbstractButton ([M354.QAbstractButton]) where+  encode =+    QtahFHR.fromContents++instance HoppyFHR.Encodable QListQAbstractButtonConst ([M354.QAbstractButton]) where+  encode = HoppyP.fmap (toQListQAbstractButtonConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QListQAbstractButton)++instance HoppyFHR.Decodable QListQAbstractButton ([M354.QAbstractButton]) where+  decode = HoppyFHR.decode . toQListQAbstractButtonConst++instance HoppyFHR.Decodable QListQAbstractButtonConst ([M354.QAbstractButton]) where+  decode =+    QtahFHR.toContents++instance QtahFHR.HasContents QListQAbstractButtonConst (M354.QAbstractButton) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QListQAbstractButton (M354.QAbstractButton) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QListQAbstractButton (M354.QAbstractButton) where+  fromContents values' = do+    list' <- new+    reserve list' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append list') values'+    QtahP.return list'
+ src/Graphics/UI/Qtah/Generated/Core/QList/QAbstractButton.hs-boot view
@@ -0,0 +1,65 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QAbstractButton (+  QListQAbstractButtonValue (..),+  QListQAbstractButtonConstPtr (..),+  QListQAbstractButtonPtr (..),+  QListQAbstractButtonConst (..),+  castQListQAbstractButtonToConst,+  QListQAbstractButton (..),+  castQListQAbstractButtonToNonconst,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractButton as M354+import qualified Prelude as HoppyP+++class QListQAbstractButtonValue a where+  withQListQAbstractButtonPtr :: a -> (QListQAbstractButtonConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQAbstractButtonConstPtr a => QListQAbstractButtonValue a++instance {-# OVERLAPPING #-} QListQAbstractButtonValue ([M354.QAbstractButton])++class (HoppyFHR.CppPtr this) => QListQAbstractButtonConstPtr this where+  toQListQAbstractButtonConst :: this -> QListQAbstractButtonConst++class (QListQAbstractButtonConstPtr this) => QListQAbstractButtonPtr this where+  toQListQAbstractButton :: this -> QListQAbstractButton++data QListQAbstractButtonConst =+    QListQAbstractButtonConst (HoppyF.Ptr QListQAbstractButtonConst)+  | QListQAbstractButtonConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQAbstractButtonConst)++castQListQAbstractButtonToConst :: QListQAbstractButton -> QListQAbstractButtonConst++instance HoppyFHR.CppPtr QListQAbstractButtonConst+instance HoppyFHR.Deletable QListQAbstractButtonConst+instance HoppyFHR.Copyable QListQAbstractButtonConst QListQAbstractButton++instance QListQAbstractButtonConstPtr QListQAbstractButtonConst++data QListQAbstractButton =+    QListQAbstractButton (HoppyF.Ptr QListQAbstractButton)+  | QListQAbstractButtonGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQAbstractButton)++castQListQAbstractButtonToNonconst :: QListQAbstractButtonConst -> QListQAbstractButton++instance HoppyFHR.CppPtr QListQAbstractButton+instance HoppyFHR.Deletable QListQAbstractButton+instance HoppyFHR.Copyable QListQAbstractButton QListQAbstractButton++instance QListQAbstractButtonConstPtr QListQAbstractButton++instance QListQAbstractButtonPtr QListQAbstractButton++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQAbstractButton)) QListQAbstractButton++instance HoppyFHR.Encodable QListQAbstractButton (([M354.QAbstractButton]))+instance HoppyFHR.Encodable QListQAbstractButtonConst (([M354.QAbstractButton]))++instance HoppyFHR.Decodable QListQAbstractButton (([M354.QAbstractButton]))+instance HoppyFHR.Decodable QListQAbstractButtonConst (([M354.QAbstractButton]))
src/Graphics/UI/Qtah/Generated/Core/QList/QByteArray.hs view
@@ -0,0 +1,598 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QByteArray (+  QListQByteArrayValue (..),+  QListQByteArrayConstPtr (..),+  atConst,+  contains,+  count,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QListQByteArrayPtr (..),+  append,+  appendList,+  at,+  clear,+  first,+  insert,+  last,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QListQByteArrayConst (..),+  castQListQByteArrayToConst,+  QListQByteArray (..),+  castQListQByteArrayToNonconst,+  new,+  newCopy,+  QListQByteArraySuper (..),+  QListQByteArraySuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Data.ByteString as QtahDBS+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QListQByteArray_new" new' ::  HoppyP.IO (HoppyF.Ptr QListQByteArray)+foreign import ccall "genpop__QListQByteArray_newCopy" newCopy' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyP.IO (HoppyF.Ptr QListQByteArray)+foreign import ccall "genpop__QListQByteArray_append" append' ::  HoppyF.Ptr QListQByteArray -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQByteArray_appendList" appendList' ::  HoppyF.Ptr QListQByteArray -> HoppyF.Ptr QListQByteArrayConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQByteArray_at" at' ::  HoppyF.Ptr QListQByteArray -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M12.QByteArray)+foreign import ccall "genpop__QListQByteArray_atConst" atConst' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QListQByteArray_clear" clear' ::  HoppyF.Ptr QListQByteArray -> HoppyP.IO ()+foreign import ccall "genpop__QListQByteArray_contains" contains' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQByteArray_count" count' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQByteArray_endsWith" endsWith' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQByteArray_first" first' ::  HoppyF.Ptr QListQByteArray -> HoppyP.IO (HoppyF.Ptr M12.QByteArray)+foreign import ccall "genpop__QListQByteArray_firstConst" firstConst' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QListQByteArray_get" get' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QListQByteArray_indexOf" indexOf' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQByteArray_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQByteArray_insert" insert' ::  HoppyF.Ptr QListQByteArray -> HoppyFC.CInt -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQByteArray_isEmpty" isEmpty' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQByteArray_last" last' ::  HoppyF.Ptr QListQByteArray -> HoppyP.IO (HoppyF.Ptr M12.QByteArray)+foreign import ccall "genpop__QListQByteArray_lastConst" lastConst' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QListQByteArray_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQByteArray_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQByteArray_mid" mid' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQByteArray)+foreign import ccall "genpop__QListQByteArray_midLength" midLength' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQByteArray)+foreign import ccall "genpop__QListQByteArray_move" move' ::  HoppyF.Ptr QListQByteArray -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQByteArray_prepend" prepend' ::  HoppyF.Ptr QListQByteArray -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQByteArray_removeAll" removeAll' ::  HoppyF.Ptr QListQByteArray -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQByteArray_removeAt" removeAt' ::  HoppyF.Ptr QListQByteArray -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQByteArray_removeFirst" removeFirst' ::  HoppyF.Ptr QListQByteArray -> HoppyP.IO ()+foreign import ccall "genpop__QListQByteArray_removeLast" removeLast' ::  HoppyF.Ptr QListQByteArray -> HoppyP.IO ()+foreign import ccall "genpop__QListQByteArray_removeOne" removeOne' ::  HoppyF.Ptr QListQByteArray -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQByteArray_replace" replace' ::  HoppyF.Ptr QListQByteArray -> HoppyFC.CInt -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQByteArray_reserve" reserve' ::  HoppyF.Ptr QListQByteArray -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQByteArray_size" size' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQByteArray_startsWith" startsWith' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQByteArray_swap" swap' ::  HoppyF.Ptr QListQByteArray -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQByteArray_takeAt" takeAt' ::  HoppyF.Ptr QListQByteArray -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QListQByteArray_takeFirst" takeFirst' ::  HoppyF.Ptr QListQByteArray -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QListQByteArray_takeLast" takeLast' ::  HoppyF.Ptr QListQByteArray -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QListQByteArray_value" value' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QListQByteArray_valueOr" valueOr' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyFC.CInt -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QListQByteArray_ADD" aDD' ::  HoppyF.Ptr QListQByteArrayConst -> HoppyF.Ptr QListQByteArrayConst -> HoppyP.IO (HoppyF.Ptr QListQByteArray)+foreign import ccall "genpop__QListQByteArray_ASSIGN" aSSIGN' ::  HoppyF.Ptr QListQByteArray -> HoppyF.Ptr QListQByteArrayConst -> HoppyP.IO (HoppyF.Ptr QListQByteArray)+foreign import ccall "gendel__QListQByteArray" delete'QListQByteArray :: HoppyF.Ptr QListQByteArrayConst -> HoppyP.IO ()+foreign import ccall "&gendel__QListQByteArray" deletePtr'QListQByteArray :: HoppyF.FunPtr (HoppyF.Ptr QListQByteArrayConst -> HoppyP.IO ())++class QListQByteArrayValue a where+  withQListQByteArrayPtr :: a -> (QListQByteArrayConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQByteArrayConstPtr a => QListQByteArrayValue a where+  withQListQByteArrayPtr = HoppyP.flip ($) . toQListQByteArrayConst++instance {-# OVERLAPPING #-} QListQByteArrayValue ([QtahDBS.ByteString]) where+  withQListQByteArrayPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QListQByteArrayConstPtr this where+  toQListQByteArrayConst :: this -> QListQByteArrayConst++atConst :: (QListQByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M12.QByteArrayConst)+atConst arg'1 arg'2 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M12.QByteArrayConst+  (atConst' arg'1' arg'2')++contains :: (QListQByteArrayValue this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QListQByteArrayValue this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++endsWith :: (QListQByteArrayValue this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QListQByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO M12.QByteArrayConst)+firstConst arg'1 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M12.QByteArrayConst+  (firstConst' arg'1')++get :: (QListQByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahDBS.ByteString)+get arg'1 arg'2 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (get' arg'1' arg'2')++indexOf :: (QListQByteArrayValue this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QListQByteArrayValue this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QListQByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QListQByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO M12.QByteArrayConst)+lastConst arg'1 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M12.QByteArrayConst+  (lastConst' arg'1')++lastIndexOf :: (QListQByteArrayValue this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QListQByteArrayValue this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QListQByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QListQByteArray)+mid arg'1 arg'2 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQByteArray+  (mid' arg'1' arg'2')++midLength :: (QListQByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QListQByteArray)+midLength arg'1 arg'2 arg'3 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQByteArray+  (midLength' arg'1' arg'2' arg'3')++size :: (QListQByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QListQByteArrayValue this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QListQByteArrayValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahDBS.ByteString)+value arg'1 arg'2 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (value' arg'1' arg'2')++valueOr :: (QListQByteArrayValue this, M12.QByteArrayValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO QtahDBS.ByteString)+valueOr arg'1 arg'2 arg'3 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M12.withQByteArrayPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QListQByteArrayValue this, QListQByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQByteArray)+aDD arg'1 arg'2 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQListQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQByteArray+  (aDD' arg'1' arg'2')++class (QListQByteArrayConstPtr this) => QListQByteArrayPtr this where+  toQListQByteArray :: this -> QListQByteArray++append :: (QListQByteArrayPtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (append' arg'1' arg'2')++appendList :: (QListQByteArrayPtr this, QListQByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendList arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  withQListQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendList' arg'1' arg'2')++at :: (QListQByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M12.QByteArray)+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M12.QByteArray+  (at' arg'1' arg'2')++clear :: (QListQByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  (clear' arg'1')++first :: (QListQByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.IO M12.QByteArray)+first arg'1 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  HoppyP.fmap M12.QByteArray+  (first' arg'1')++insert :: (QListQByteArrayPtr this, M12.QByteArrayValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M12.withQByteArrayPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++last :: (QListQByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.IO M12.QByteArray)+last arg'1 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  HoppyP.fmap M12.QByteArray+  (last' arg'1')++move :: (QListQByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+move arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (move' arg'1' arg'2' arg'3')++prepend :: (QListQByteArrayPtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (prepend' arg'1' arg'2')++removeAll :: (QListQByteArrayPtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeAt :: (QListQByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+removeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (removeAt' arg'1' arg'2')++removeFirst :: (QListQByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QListQByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QListQByteArrayPtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QListQByteArrayPtr this, M12.QByteArrayValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M12.withQByteArrayPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QListQByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++swap :: (QListQByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+swap arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (swap' arg'1' arg'2' arg'3')++takeAt :: (QListQByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahDBS.ByteString)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QListQByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (takeFirst' arg'1')++takeLast :: (QListQByteArrayPtr this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (takeLast' arg'1')++aSSIGN :: (QListQByteArrayPtr this, QListQByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQByteArray)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQByteArray arg'1) $ \arg'1' ->+  withQListQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QListQByteArray+  (aSSIGN' arg'1' arg'2')++data QListQByteArrayConst =+    QListQByteArrayConst (HoppyF.Ptr QListQByteArrayConst)+  | QListQByteArrayConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQByteArrayConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQByteArrayConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQByteArrayConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQByteArrayToConst :: QListQByteArray -> QListQByteArrayConst+castQListQByteArrayToConst (QListQByteArray ptr') = QListQByteArrayConst $ HoppyF.castPtr ptr'+castQListQByteArrayToConst (QListQByteArrayGc fptr' ptr') = QListQByteArrayConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQByteArrayConst where+  nullptr = QListQByteArrayConst HoppyF.nullPtr+  +  withCppPtr (QListQByteArrayConst ptr') f' = f' ptr'+  withCppPtr (QListQByteArrayConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQByteArrayConst ptr') = ptr'+  toPtr (QListQByteArrayConstGc _ ptr') = ptr'+  +  touchCppPtr (QListQByteArrayConst _) = HoppyP.return ()+  touchCppPtr (QListQByteArrayConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQByteArrayConst where+  delete (QListQByteArrayConst ptr') = delete'QListQByteArray ptr'+  delete (QListQByteArrayConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQByteArrayConst", " object."]+  +  toGc this'@(QListQByteArrayConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQByteArrayConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQByteArray :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQByteArrayConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQByteArrayConst QListQByteArray where copy = newCopy++instance QListQByteArrayConstPtr QListQByteArrayConst where+  toQListQByteArrayConst = HoppyP.id++data QListQByteArray =+    QListQByteArray (HoppyF.Ptr QListQByteArray)+  | QListQByteArrayGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQByteArray)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQByteArray where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQByteArray where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQByteArrayToNonconst :: QListQByteArrayConst -> QListQByteArray+castQListQByteArrayToNonconst (QListQByteArrayConst ptr') = QListQByteArray $ HoppyF.castPtr ptr'+castQListQByteArrayToNonconst (QListQByteArrayConstGc fptr' ptr') = QListQByteArrayGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQByteArray where+  nullptr = QListQByteArray HoppyF.nullPtr+  +  withCppPtr (QListQByteArray ptr') f' = f' ptr'+  withCppPtr (QListQByteArrayGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQByteArray ptr') = ptr'+  toPtr (QListQByteArrayGc _ ptr') = ptr'+  +  touchCppPtr (QListQByteArray _) = HoppyP.return ()+  touchCppPtr (QListQByteArrayGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQByteArray where+  delete (QListQByteArray ptr') = delete'QListQByteArray $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QListQByteArrayConst)+  delete (QListQByteArrayGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQByteArray", " object."]+  +  toGc this'@(QListQByteArray ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQByteArrayGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQByteArray :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQByteArrayGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQByteArray QListQByteArray where copy = newCopy++instance QListQByteArrayConstPtr QListQByteArray where+  toQListQByteArrayConst (QListQByteArray ptr') = QListQByteArrayConst $ (HoppyF.castPtr :: HoppyF.Ptr QListQByteArray -> HoppyF.Ptr QListQByteArrayConst) ptr'+  toQListQByteArrayConst (QListQByteArrayGc fptr' ptr') = QListQByteArrayConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QListQByteArray -> HoppyF.Ptr QListQByteArrayConst) ptr'++instance QListQByteArrayPtr QListQByteArray where+  toQListQByteArray = HoppyP.id++new :: (HoppyP.IO QListQByteArray)+new =+  HoppyP.fmap QListQByteArray+  (new')++newCopy :: (QListQByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO QListQByteArray)+newCopy arg'1 =+  withQListQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QListQByteArray+  (newCopy' arg'1')++class QListQByteArraySuper a where+  downToQListQByteArray :: a -> QListQByteArray+++class QListQByteArraySuperConst a where+  downToQListQByteArrayConst :: a -> QListQByteArrayConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QListQByteArray)) QListQByteArray where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QListQByteArrayValue a => HoppyFHR.Assignable QListQByteArray a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQByteArray)) QListQByteArray where+  decode = HoppyP.fmap QListQByteArray . HoppyF.peek++instance HoppyFHR.Encodable QListQByteArray ([QtahDBS.ByteString]) where+  encode =+    QtahFHR.fromContents++instance HoppyFHR.Encodable QListQByteArrayConst ([QtahDBS.ByteString]) where+  encode = HoppyP.fmap (toQListQByteArrayConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QListQByteArray)++instance HoppyFHR.Decodable QListQByteArray ([QtahDBS.ByteString]) where+  decode = HoppyFHR.decode . toQListQByteArrayConst++instance HoppyFHR.Decodable QListQByteArrayConst ([QtahDBS.ByteString]) where+  decode =+    QtahFHR.toContents++instance QtahFHR.HasContents QListQByteArrayConst (QtahDBS.ByteString) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QListQByteArray (QtahDBS.ByteString) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QListQByteArray (QtahDBS.ByteString) where+  fromContents values' = do+    list' <- new+    reserve list' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append list') values'+    QtahP.return list'
src/Graphics/UI/Qtah/Generated/Core/QList/QItemSelectionRange.hs view
@@ -0,0 +1,597 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QItemSelectionRange (+  QListQItemSelectionRangeValue (..),+  QListQItemSelectionRangeConstPtr (..),+  atConst,+  contains,+  count,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QListQItemSelectionRangePtr (..),+  append,+  appendList,+  at,+  clear,+  first,+  insert,+  last,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QListQItemSelectionRangeConst (..),+  castQListQItemSelectionRangeToConst,+  QListQItemSelectionRange (..),+  castQListQItemSelectionRangeToNonconst,+  new,+  newCopy,+  QListQItemSelectionRangeSuper (..),+  QListQItemSelectionRangeSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QItemSelectionRange as M54+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QListQItemSelectionRange_new" new' ::  HoppyP.IO (HoppyF.Ptr QListQItemSelectionRange)+foreign import ccall "genpop__QListQItemSelectionRange_newCopy" newCopy' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyP.IO (HoppyF.Ptr QListQItemSelectionRange)+foreign import ccall "genpop__QListQItemSelectionRange_append" append' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQItemSelectionRange_appendList" appendList' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQItemSelectionRange_at" at' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M54.QItemSelectionRange)+foreign import ccall "genpop__QListQItemSelectionRange_atConst" atConst' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M54.QItemSelectionRangeConst)+foreign import ccall "genpop__QListQItemSelectionRange_clear" clear' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyP.IO ()+foreign import ccall "genpop__QListQItemSelectionRange_contains" contains' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQItemSelectionRange_count" count' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQItemSelectionRange_endsWith" endsWith' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQItemSelectionRange_first" first' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyP.IO (HoppyF.Ptr M54.QItemSelectionRange)+foreign import ccall "genpop__QListQItemSelectionRange_firstConst" firstConst' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyP.IO (HoppyF.Ptr M54.QItemSelectionRangeConst)+foreign import ccall "genpop__QListQItemSelectionRange_get" get' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M54.QItemSelectionRangeConst)+foreign import ccall "genpop__QListQItemSelectionRange_indexOf" indexOf' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQItemSelectionRange_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQItemSelectionRange_insert" insert' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyFC.CInt -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQItemSelectionRange_isEmpty" isEmpty' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQItemSelectionRange_last" last' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyP.IO (HoppyF.Ptr M54.QItemSelectionRange)+foreign import ccall "genpop__QListQItemSelectionRange_lastConst" lastConst' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyP.IO (HoppyF.Ptr M54.QItemSelectionRangeConst)+foreign import ccall "genpop__QListQItemSelectionRange_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQItemSelectionRange_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQItemSelectionRange_mid" mid' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQItemSelectionRange)+foreign import ccall "genpop__QListQItemSelectionRange_midLength" midLength' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQItemSelectionRange)+foreign import ccall "genpop__QListQItemSelectionRange_move" move' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQItemSelectionRange_prepend" prepend' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQItemSelectionRange_removeAll" removeAll' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQItemSelectionRange_removeAt" removeAt' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQItemSelectionRange_removeFirst" removeFirst' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyP.IO ()+foreign import ccall "genpop__QListQItemSelectionRange_removeLast" removeLast' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyP.IO ()+foreign import ccall "genpop__QListQItemSelectionRange_removeOne" removeOne' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQItemSelectionRange_replace" replace' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyFC.CInt -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQItemSelectionRange_reserve" reserve' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQItemSelectionRange_size" size' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQItemSelectionRange_startsWith" startsWith' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQItemSelectionRange_swap" swap' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQItemSelectionRange_takeAt" takeAt' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M54.QItemSelectionRangeConst)+foreign import ccall "genpop__QListQItemSelectionRange_takeFirst" takeFirst' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyP.IO (HoppyF.Ptr M54.QItemSelectionRangeConst)+foreign import ccall "genpop__QListQItemSelectionRange_takeLast" takeLast' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyP.IO (HoppyF.Ptr M54.QItemSelectionRangeConst)+foreign import ccall "genpop__QListQItemSelectionRange_value" value' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M54.QItemSelectionRangeConst)+foreign import ccall "genpop__QListQItemSelectionRange_valueOr" valueOr' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyFC.CInt -> HoppyF.Ptr M54.QItemSelectionRangeConst -> HoppyP.IO (HoppyF.Ptr M54.QItemSelectionRangeConst)+foreign import ccall "genpop__QListQItemSelectionRange_ADD" aDD' ::  HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyP.IO (HoppyF.Ptr QListQItemSelectionRange)+foreign import ccall "genpop__QListQItemSelectionRange_ASSIGN" aSSIGN' ::  HoppyF.Ptr QListQItemSelectionRange -> HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyP.IO (HoppyF.Ptr QListQItemSelectionRange)+foreign import ccall "gendel__QListQItemSelectionRange" delete'QListQItemSelectionRange :: HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyP.IO ()+foreign import ccall "&gendel__QListQItemSelectionRange" deletePtr'QListQItemSelectionRange :: HoppyF.FunPtr (HoppyF.Ptr QListQItemSelectionRangeConst -> HoppyP.IO ())++class QListQItemSelectionRangeValue a where+  withQListQItemSelectionRangePtr :: a -> (QListQItemSelectionRangeConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQItemSelectionRangeConstPtr a => QListQItemSelectionRangeValue a where+  withQListQItemSelectionRangePtr = HoppyP.flip ($) . toQListQItemSelectionRangeConst++instance {-# OVERLAPPING #-} QListQItemSelectionRangeValue ([M54.QItemSelectionRange]) where+  withQListQItemSelectionRangePtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QListQItemSelectionRangeConstPtr this where+  toQListQItemSelectionRangeConst :: this -> QListQItemSelectionRangeConst++atConst :: (QListQItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M54.QItemSelectionRangeConst)+atConst arg'1 arg'2 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M54.QItemSelectionRangeConst+  (atConst' arg'1' arg'2')++contains :: (QListQItemSelectionRangeValue this, M54.QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M54.withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QListQItemSelectionRangeValue this, M54.QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M54.withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++endsWith :: (QListQItemSelectionRangeValue this, M54.QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M54.withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QListQItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO M54.QItemSelectionRangeConst)+firstConst arg'1 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M54.QItemSelectionRangeConst+  (firstConst' arg'1')++get :: (QListQItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M54.QItemSelectionRange)+get arg'1 arg'2 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M54.QItemSelectionRangeConst) =<<+  (get' arg'1' arg'2')++indexOf :: (QListQItemSelectionRangeValue this, M54.QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M54.withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QListQItemSelectionRangeValue this, M54.QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M54.withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QListQItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QListQItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO M54.QItemSelectionRangeConst)+lastConst arg'1 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M54.QItemSelectionRangeConst+  (lastConst' arg'1')++lastIndexOf :: (QListQItemSelectionRangeValue this, M54.QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M54.withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QListQItemSelectionRangeValue this, M54.QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M54.withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QListQItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QListQItemSelectionRange)+mid arg'1 arg'2 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQItemSelectionRange+  (mid' arg'1' arg'2')++midLength :: (QListQItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QListQItemSelectionRange)+midLength arg'1 arg'2 arg'3 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQItemSelectionRange+  (midLength' arg'1' arg'2' arg'3')++size :: (QListQItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QListQItemSelectionRangeValue this, M54.QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M54.withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QListQItemSelectionRangeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M54.QItemSelectionRange)+value arg'1 arg'2 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M54.QItemSelectionRangeConst) =<<+  (value' arg'1' arg'2')++valueOr :: (QListQItemSelectionRangeValue this, M54.QItemSelectionRangeValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO M54.QItemSelectionRange)+valueOr arg'1 arg'2 arg'3 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M54.withQItemSelectionRangePtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M54.QItemSelectionRangeConst) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QListQItemSelectionRangeValue this, QListQItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQItemSelectionRange)+aDD arg'1 arg'2 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQListQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQItemSelectionRange+  (aDD' arg'1' arg'2')++class (QListQItemSelectionRangeConstPtr this) => QListQItemSelectionRangePtr this where+  toQListQItemSelectionRange :: this -> QListQItemSelectionRange++append :: (QListQItemSelectionRangePtr this, M54.QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  M54.withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (append' arg'1' arg'2')++appendList :: (QListQItemSelectionRangePtr this, QListQItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendList arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  withQListQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendList' arg'1' arg'2')++at :: (QListQItemSelectionRangePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M54.QItemSelectionRange)+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M54.QItemSelectionRange+  (at' arg'1' arg'2')++clear :: (QListQItemSelectionRangePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  (clear' arg'1')++first :: (QListQItemSelectionRangePtr this) => (this) {- ^ this -} -> (HoppyP.IO M54.QItemSelectionRange)+first arg'1 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  HoppyP.fmap M54.QItemSelectionRange+  (first' arg'1')++insert :: (QListQItemSelectionRangePtr this, M54.QItemSelectionRangeValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M54.withQItemSelectionRangePtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++last :: (QListQItemSelectionRangePtr this) => (this) {- ^ this -} -> (HoppyP.IO M54.QItemSelectionRange)+last arg'1 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  HoppyP.fmap M54.QItemSelectionRange+  (last' arg'1')++move :: (QListQItemSelectionRangePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+move arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (move' arg'1' arg'2' arg'3')++prepend :: (QListQItemSelectionRangePtr this, M54.QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  M54.withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (prepend' arg'1' arg'2')++removeAll :: (QListQItemSelectionRangePtr this, M54.QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  M54.withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeAt :: (QListQItemSelectionRangePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+removeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (removeAt' arg'1' arg'2')++removeFirst :: (QListQItemSelectionRangePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QListQItemSelectionRangePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QListQItemSelectionRangePtr this, M54.QItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  M54.withQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QListQItemSelectionRangePtr this, M54.QItemSelectionRangeValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M54.withQItemSelectionRangePtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QListQItemSelectionRangePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++swap :: (QListQItemSelectionRangePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+swap arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (swap' arg'1' arg'2' arg'3')++takeAt :: (QListQItemSelectionRangePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M54.QItemSelectionRange)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M54.QItemSelectionRangeConst) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QListQItemSelectionRangePtr this) => (this) {- ^ this -} -> (HoppyP.IO M54.QItemSelectionRange)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M54.QItemSelectionRangeConst) =<<+  (takeFirst' arg'1')++takeLast :: (QListQItemSelectionRangePtr this) => (this) {- ^ this -} -> (HoppyP.IO M54.QItemSelectionRange)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M54.QItemSelectionRangeConst) =<<+  (takeLast' arg'1')++aSSIGN :: (QListQItemSelectionRangePtr this, QListQItemSelectionRangeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQItemSelectionRange)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQItemSelectionRange arg'1) $ \arg'1' ->+  withQListQItemSelectionRangePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QListQItemSelectionRange+  (aSSIGN' arg'1' arg'2')++data QListQItemSelectionRangeConst =+    QListQItemSelectionRangeConst (HoppyF.Ptr QListQItemSelectionRangeConst)+  | QListQItemSelectionRangeConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQItemSelectionRangeConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQItemSelectionRangeConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQItemSelectionRangeConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQItemSelectionRangeToConst :: QListQItemSelectionRange -> QListQItemSelectionRangeConst+castQListQItemSelectionRangeToConst (QListQItemSelectionRange ptr') = QListQItemSelectionRangeConst $ HoppyF.castPtr ptr'+castQListQItemSelectionRangeToConst (QListQItemSelectionRangeGc fptr' ptr') = QListQItemSelectionRangeConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQItemSelectionRangeConst where+  nullptr = QListQItemSelectionRangeConst HoppyF.nullPtr+  +  withCppPtr (QListQItemSelectionRangeConst ptr') f' = f' ptr'+  withCppPtr (QListQItemSelectionRangeConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQItemSelectionRangeConst ptr') = ptr'+  toPtr (QListQItemSelectionRangeConstGc _ ptr') = ptr'+  +  touchCppPtr (QListQItemSelectionRangeConst _) = HoppyP.return ()+  touchCppPtr (QListQItemSelectionRangeConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQItemSelectionRangeConst where+  delete (QListQItemSelectionRangeConst ptr') = delete'QListQItemSelectionRange ptr'+  delete (QListQItemSelectionRangeConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQItemSelectionRangeConst", " object."]+  +  toGc this'@(QListQItemSelectionRangeConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQItemSelectionRangeConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQItemSelectionRange :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQItemSelectionRangeConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQItemSelectionRangeConst QListQItemSelectionRange where copy = newCopy++instance QListQItemSelectionRangeConstPtr QListQItemSelectionRangeConst where+  toQListQItemSelectionRangeConst = HoppyP.id++data QListQItemSelectionRange =+    QListQItemSelectionRange (HoppyF.Ptr QListQItemSelectionRange)+  | QListQItemSelectionRangeGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQItemSelectionRange)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQItemSelectionRange where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQItemSelectionRange where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQItemSelectionRangeToNonconst :: QListQItemSelectionRangeConst -> QListQItemSelectionRange+castQListQItemSelectionRangeToNonconst (QListQItemSelectionRangeConst ptr') = QListQItemSelectionRange $ HoppyF.castPtr ptr'+castQListQItemSelectionRangeToNonconst (QListQItemSelectionRangeConstGc fptr' ptr') = QListQItemSelectionRangeGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQItemSelectionRange where+  nullptr = QListQItemSelectionRange HoppyF.nullPtr+  +  withCppPtr (QListQItemSelectionRange ptr') f' = f' ptr'+  withCppPtr (QListQItemSelectionRangeGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQItemSelectionRange ptr') = ptr'+  toPtr (QListQItemSelectionRangeGc _ ptr') = ptr'+  +  touchCppPtr (QListQItemSelectionRange _) = HoppyP.return ()+  touchCppPtr (QListQItemSelectionRangeGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQItemSelectionRange where+  delete (QListQItemSelectionRange ptr') = delete'QListQItemSelectionRange $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QListQItemSelectionRangeConst)+  delete (QListQItemSelectionRangeGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQItemSelectionRange", " object."]+  +  toGc this'@(QListQItemSelectionRange ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQItemSelectionRangeGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQItemSelectionRange :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQItemSelectionRangeGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQItemSelectionRange QListQItemSelectionRange where copy = newCopy++instance QListQItemSelectionRangeConstPtr QListQItemSelectionRange where+  toQListQItemSelectionRangeConst (QListQItemSelectionRange ptr') = QListQItemSelectionRangeConst $ (HoppyF.castPtr :: HoppyF.Ptr QListQItemSelectionRange -> HoppyF.Ptr QListQItemSelectionRangeConst) ptr'+  toQListQItemSelectionRangeConst (QListQItemSelectionRangeGc fptr' ptr') = QListQItemSelectionRangeConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QListQItemSelectionRange -> HoppyF.Ptr QListQItemSelectionRangeConst) ptr'++instance QListQItemSelectionRangePtr QListQItemSelectionRange where+  toQListQItemSelectionRange = HoppyP.id++new :: (HoppyP.IO QListQItemSelectionRange)+new =+  HoppyP.fmap QListQItemSelectionRange+  (new')++newCopy :: (QListQItemSelectionRangeValue arg'1) => (arg'1) -> (HoppyP.IO QListQItemSelectionRange)+newCopy arg'1 =+  withQListQItemSelectionRangePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QListQItemSelectionRange+  (newCopy' arg'1')++class QListQItemSelectionRangeSuper a where+  downToQListQItemSelectionRange :: a -> QListQItemSelectionRange+++class QListQItemSelectionRangeSuperConst a where+  downToQListQItemSelectionRangeConst :: a -> QListQItemSelectionRangeConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QListQItemSelectionRange)) QListQItemSelectionRange where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QListQItemSelectionRangeValue a => HoppyFHR.Assignable QListQItemSelectionRange a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQItemSelectionRange)) QListQItemSelectionRange where+  decode = HoppyP.fmap QListQItemSelectionRange . HoppyF.peek++instance HoppyFHR.Encodable QListQItemSelectionRange ([M54.QItemSelectionRange]) where+  encode =+    QtahFHR.fromContents++instance HoppyFHR.Encodable QListQItemSelectionRangeConst ([M54.QItemSelectionRange]) where+  encode = HoppyP.fmap (toQListQItemSelectionRangeConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QListQItemSelectionRange)++instance HoppyFHR.Decodable QListQItemSelectionRange ([M54.QItemSelectionRange]) where+  decode = HoppyFHR.decode . toQListQItemSelectionRangeConst++instance HoppyFHR.Decodable QListQItemSelectionRangeConst ([M54.QItemSelectionRange]) where+  decode =+    QtahFHR.toContents++instance QtahFHR.HasContents QListQItemSelectionRangeConst (M54.QItemSelectionRange) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QListQItemSelectionRange (M54.QItemSelectionRange) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QListQItemSelectionRange (M54.QItemSelectionRange) where+  fromContents values' = do+    list' <- new+    reserve list' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append list') values'+    QtahP.return list'
src/Graphics/UI/Qtah/Generated/Core/QList/QModelIndex.hs view
@@ -0,0 +1,597 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QModelIndex (+  QListQModelIndexValue (..),+  QListQModelIndexConstPtr (..),+  atConst,+  contains,+  count,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QListQModelIndexPtr (..),+  append,+  appendList,+  at,+  clear,+  first,+  insert,+  last,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QListQModelIndexConst (..),+  castQListQModelIndexToConst,+  QListQModelIndex (..),+  castQListQModelIndexToNonconst,+  new,+  newCopy,+  QListQModelIndexSuper (..),+  QListQModelIndexSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QModelIndex as M92+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QListQModelIndex_new" new' ::  HoppyP.IO (HoppyF.Ptr QListQModelIndex)+foreign import ccall "genpop__QListQModelIndex_newCopy" newCopy' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyP.IO (HoppyF.Ptr QListQModelIndex)+foreign import ccall "genpop__QListQModelIndex_append" append' ::  HoppyF.Ptr QListQModelIndex -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQModelIndex_appendList" appendList' ::  HoppyF.Ptr QListQModelIndex -> HoppyF.Ptr QListQModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQModelIndex_at" at' ::  HoppyF.Ptr QListQModelIndex -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M92.QModelIndex)+foreign import ccall "genpop__QListQModelIndex_atConst" atConst' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QListQModelIndex_clear" clear' ::  HoppyF.Ptr QListQModelIndex -> HoppyP.IO ()+foreign import ccall "genpop__QListQModelIndex_contains" contains' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQModelIndex_count" count' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQModelIndex_endsWith" endsWith' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQModelIndex_first" first' ::  HoppyF.Ptr QListQModelIndex -> HoppyP.IO (HoppyF.Ptr M92.QModelIndex)+foreign import ccall "genpop__QListQModelIndex_firstConst" firstConst' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QListQModelIndex_get" get' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QListQModelIndex_indexOf" indexOf' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQModelIndex_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQModelIndex_insert" insert' ::  HoppyF.Ptr QListQModelIndex -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQModelIndex_isEmpty" isEmpty' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQModelIndex_last" last' ::  HoppyF.Ptr QListQModelIndex -> HoppyP.IO (HoppyF.Ptr M92.QModelIndex)+foreign import ccall "genpop__QListQModelIndex_lastConst" lastConst' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QListQModelIndex_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQModelIndex_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQModelIndex_mid" mid' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQModelIndex)+foreign import ccall "genpop__QListQModelIndex_midLength" midLength' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQModelIndex)+foreign import ccall "genpop__QListQModelIndex_move" move' ::  HoppyF.Ptr QListQModelIndex -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQModelIndex_prepend" prepend' ::  HoppyF.Ptr QListQModelIndex -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQModelIndex_removeAll" removeAll' ::  HoppyF.Ptr QListQModelIndex -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQModelIndex_removeAt" removeAt' ::  HoppyF.Ptr QListQModelIndex -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQModelIndex_removeFirst" removeFirst' ::  HoppyF.Ptr QListQModelIndex -> HoppyP.IO ()+foreign import ccall "genpop__QListQModelIndex_removeLast" removeLast' ::  HoppyF.Ptr QListQModelIndex -> HoppyP.IO ()+foreign import ccall "genpop__QListQModelIndex_removeOne" removeOne' ::  HoppyF.Ptr QListQModelIndex -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQModelIndex_replace" replace' ::  HoppyF.Ptr QListQModelIndex -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQModelIndex_reserve" reserve' ::  HoppyF.Ptr QListQModelIndex -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQModelIndex_size" size' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQModelIndex_startsWith" startsWith' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQModelIndex_swap" swap' ::  HoppyF.Ptr QListQModelIndex -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQModelIndex_takeAt" takeAt' ::  HoppyF.Ptr QListQModelIndex -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QListQModelIndex_takeFirst" takeFirst' ::  HoppyF.Ptr QListQModelIndex -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QListQModelIndex_takeLast" takeLast' ::  HoppyF.Ptr QListQModelIndex -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QListQModelIndex_value" value' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QListQModelIndex_valueOr" valueOr' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QListQModelIndex_ADD" aDD' ::  HoppyF.Ptr QListQModelIndexConst -> HoppyF.Ptr QListQModelIndexConst -> HoppyP.IO (HoppyF.Ptr QListQModelIndex)+foreign import ccall "genpop__QListQModelIndex_ASSIGN" aSSIGN' ::  HoppyF.Ptr QListQModelIndex -> HoppyF.Ptr QListQModelIndexConst -> HoppyP.IO (HoppyF.Ptr QListQModelIndex)+foreign import ccall "gendel__QListQModelIndex" delete'QListQModelIndex :: HoppyF.Ptr QListQModelIndexConst -> HoppyP.IO ()+foreign import ccall "&gendel__QListQModelIndex" deletePtr'QListQModelIndex :: HoppyF.FunPtr (HoppyF.Ptr QListQModelIndexConst -> HoppyP.IO ())++class QListQModelIndexValue a where+  withQListQModelIndexPtr :: a -> (QListQModelIndexConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQModelIndexConstPtr a => QListQModelIndexValue a where+  withQListQModelIndexPtr = HoppyP.flip ($) . toQListQModelIndexConst++instance {-# OVERLAPPING #-} QListQModelIndexValue ([M92.QModelIndex]) where+  withQListQModelIndexPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QListQModelIndexConstPtr this where+  toQListQModelIndexConst :: this -> QListQModelIndexConst++atConst :: (QListQModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M92.QModelIndexConst)+atConst arg'1 arg'2 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M92.QModelIndexConst+  (atConst' arg'1' arg'2')++contains :: (QListQModelIndexValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QListQModelIndexValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++endsWith :: (QListQModelIndexValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QListQModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO M92.QModelIndexConst)+firstConst arg'1 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M92.QModelIndexConst+  (firstConst' arg'1')++get :: (QListQModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M92.QModelIndex)+get arg'1 arg'2 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (get' arg'1' arg'2')++indexOf :: (QListQModelIndexValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QListQModelIndexValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QListQModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QListQModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO M92.QModelIndexConst)+lastConst arg'1 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M92.QModelIndexConst+  (lastConst' arg'1')++lastIndexOf :: (QListQModelIndexValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QListQModelIndexValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QListQModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QListQModelIndex)+mid arg'1 arg'2 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQModelIndex+  (mid' arg'1' arg'2')++midLength :: (QListQModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QListQModelIndex)+midLength arg'1 arg'2 arg'3 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQModelIndex+  (midLength' arg'1' arg'2' arg'3')++size :: (QListQModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QListQModelIndexValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QListQModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M92.QModelIndex)+value arg'1 arg'2 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (value' arg'1' arg'2')++valueOr :: (QListQModelIndexValue this, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO M92.QModelIndex)+valueOr arg'1 arg'2 arg'3 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QListQModelIndexValue this, QListQModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQModelIndex)+aDD arg'1 arg'2 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQListQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQModelIndex+  (aDD' arg'1' arg'2')++class (QListQModelIndexConstPtr this) => QListQModelIndexPtr this where+  toQListQModelIndex :: this -> QListQModelIndex++append :: (QListQModelIndexPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (append' arg'1' arg'2')++appendList :: (QListQModelIndexPtr this, QListQModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendList arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  withQListQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendList' arg'1' arg'2')++at :: (QListQModelIndexPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M92.QModelIndex)+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M92.QModelIndex+  (at' arg'1' arg'2')++clear :: (QListQModelIndexPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  (clear' arg'1')++first :: (QListQModelIndexPtr this) => (this) {- ^ this -} -> (HoppyP.IO M92.QModelIndex)+first arg'1 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  HoppyP.fmap M92.QModelIndex+  (first' arg'1')++insert :: (QListQModelIndexPtr this, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++last :: (QListQModelIndexPtr this) => (this) {- ^ this -} -> (HoppyP.IO M92.QModelIndex)+last arg'1 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  HoppyP.fmap M92.QModelIndex+  (last' arg'1')++move :: (QListQModelIndexPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+move arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (move' arg'1' arg'2' arg'3')++prepend :: (QListQModelIndexPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (prepend' arg'1' arg'2')++removeAll :: (QListQModelIndexPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeAt :: (QListQModelIndexPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+removeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (removeAt' arg'1' arg'2')++removeFirst :: (QListQModelIndexPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QListQModelIndexPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QListQModelIndexPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QListQModelIndexPtr this, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QListQModelIndexPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++swap :: (QListQModelIndexPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+swap arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (swap' arg'1' arg'2' arg'3')++takeAt :: (QListQModelIndexPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M92.QModelIndex)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QListQModelIndexPtr this) => (this) {- ^ this -} -> (HoppyP.IO M92.QModelIndex)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (takeFirst' arg'1')++takeLast :: (QListQModelIndexPtr this) => (this) {- ^ this -} -> (HoppyP.IO M92.QModelIndex)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (takeLast' arg'1')++aSSIGN :: (QListQModelIndexPtr this, QListQModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQModelIndex)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQModelIndex arg'1) $ \arg'1' ->+  withQListQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QListQModelIndex+  (aSSIGN' arg'1' arg'2')++data QListQModelIndexConst =+    QListQModelIndexConst (HoppyF.Ptr QListQModelIndexConst)+  | QListQModelIndexConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQModelIndexConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQModelIndexConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQModelIndexConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQModelIndexToConst :: QListQModelIndex -> QListQModelIndexConst+castQListQModelIndexToConst (QListQModelIndex ptr') = QListQModelIndexConst $ HoppyF.castPtr ptr'+castQListQModelIndexToConst (QListQModelIndexGc fptr' ptr') = QListQModelIndexConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQModelIndexConst where+  nullptr = QListQModelIndexConst HoppyF.nullPtr+  +  withCppPtr (QListQModelIndexConst ptr') f' = f' ptr'+  withCppPtr (QListQModelIndexConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQModelIndexConst ptr') = ptr'+  toPtr (QListQModelIndexConstGc _ ptr') = ptr'+  +  touchCppPtr (QListQModelIndexConst _) = HoppyP.return ()+  touchCppPtr (QListQModelIndexConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQModelIndexConst where+  delete (QListQModelIndexConst ptr') = delete'QListQModelIndex ptr'+  delete (QListQModelIndexConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQModelIndexConst", " object."]+  +  toGc this'@(QListQModelIndexConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQModelIndexConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQModelIndex :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQModelIndexConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQModelIndexConst QListQModelIndex where copy = newCopy++instance QListQModelIndexConstPtr QListQModelIndexConst where+  toQListQModelIndexConst = HoppyP.id++data QListQModelIndex =+    QListQModelIndex (HoppyF.Ptr QListQModelIndex)+  | QListQModelIndexGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQModelIndex)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQModelIndex where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQModelIndex where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQModelIndexToNonconst :: QListQModelIndexConst -> QListQModelIndex+castQListQModelIndexToNonconst (QListQModelIndexConst ptr') = QListQModelIndex $ HoppyF.castPtr ptr'+castQListQModelIndexToNonconst (QListQModelIndexConstGc fptr' ptr') = QListQModelIndexGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQModelIndex where+  nullptr = QListQModelIndex HoppyF.nullPtr+  +  withCppPtr (QListQModelIndex ptr') f' = f' ptr'+  withCppPtr (QListQModelIndexGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQModelIndex ptr') = ptr'+  toPtr (QListQModelIndexGc _ ptr') = ptr'+  +  touchCppPtr (QListQModelIndex _) = HoppyP.return ()+  touchCppPtr (QListQModelIndexGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQModelIndex where+  delete (QListQModelIndex ptr') = delete'QListQModelIndex $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QListQModelIndexConst)+  delete (QListQModelIndexGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQModelIndex", " object."]+  +  toGc this'@(QListQModelIndex ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQModelIndexGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQModelIndex :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQModelIndexGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQModelIndex QListQModelIndex where copy = newCopy++instance QListQModelIndexConstPtr QListQModelIndex where+  toQListQModelIndexConst (QListQModelIndex ptr') = QListQModelIndexConst $ (HoppyF.castPtr :: HoppyF.Ptr QListQModelIndex -> HoppyF.Ptr QListQModelIndexConst) ptr'+  toQListQModelIndexConst (QListQModelIndexGc fptr' ptr') = QListQModelIndexConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QListQModelIndex -> HoppyF.Ptr QListQModelIndexConst) ptr'++instance QListQModelIndexPtr QListQModelIndex where+  toQListQModelIndex = HoppyP.id++new :: (HoppyP.IO QListQModelIndex)+new =+  HoppyP.fmap QListQModelIndex+  (new')++newCopy :: (QListQModelIndexValue arg'1) => (arg'1) -> (HoppyP.IO QListQModelIndex)+newCopy arg'1 =+  withQListQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QListQModelIndex+  (newCopy' arg'1')++class QListQModelIndexSuper a where+  downToQListQModelIndex :: a -> QListQModelIndex+++class QListQModelIndexSuperConst a where+  downToQListQModelIndexConst :: a -> QListQModelIndexConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QListQModelIndex)) QListQModelIndex where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QListQModelIndexValue a => HoppyFHR.Assignable QListQModelIndex a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQModelIndex)) QListQModelIndex where+  decode = HoppyP.fmap QListQModelIndex . HoppyF.peek++instance HoppyFHR.Encodable QListQModelIndex ([M92.QModelIndex]) where+  encode =+    QtahFHR.fromContents++instance HoppyFHR.Encodable QListQModelIndexConst ([M92.QModelIndex]) where+  encode = HoppyP.fmap (toQListQModelIndexConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QListQModelIndex)++instance HoppyFHR.Decodable QListQModelIndex ([M92.QModelIndex]) where+  decode = HoppyFHR.decode . toQListQModelIndexConst++instance HoppyFHR.Decodable QListQModelIndexConst ([M92.QModelIndex]) where+  decode =+    QtahFHR.toContents++instance QtahFHR.HasContents QListQModelIndexConst (M92.QModelIndex) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QListQModelIndex (M92.QModelIndex) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QListQModelIndex (M92.QModelIndex) where+  fromContents values' = do+    list' <- new+    reserve list' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append list') values'+    QtahP.return list'
src/Graphics/UI/Qtah/Generated/Core/QList/QObject.hs view
@@ -0,0 +1,591 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QObject (+  QListQObjectValue (..),+  QListQObjectConstPtr (..),+  atConst,+  contains,+  count,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QListQObjectPtr (..),+  append,+  appendList,+  at,+  clear,+  first,+  insert,+  last,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QListQObjectConst (..),+  castQListQObjectToConst,+  QListQObject (..),+  castQListQObjectToNonconst,+  new,+  newCopy,+  QListQObjectSuper (..),+  QListQObjectSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QListQObject_new" new' ::  HoppyP.IO (HoppyF.Ptr QListQObject)+foreign import ccall "genpop__QListQObject_newCopy" newCopy' ::  HoppyF.Ptr QListQObjectConst -> HoppyP.IO (HoppyF.Ptr QListQObject)+foreign import ccall "genpop__QListQObject_append" append' ::  HoppyF.Ptr QListQObject -> HoppyF.Ptr M94.QObject -> HoppyP.IO ()+foreign import ccall "genpop__QListQObject_appendList" appendList' ::  HoppyF.Ptr QListQObject -> HoppyF.Ptr QListQObjectConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQObject_at" at' ::  HoppyF.Ptr QListQObject -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M94.QObject))+foreign import ccall "genpop__QListQObject_atConst" atConst' ::  HoppyF.Ptr QListQObjectConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M94.QObject))+foreign import ccall "genpop__QListQObject_clear" clear' ::  HoppyF.Ptr QListQObject -> HoppyP.IO ()+foreign import ccall "genpop__QListQObject_contains" contains' ::  HoppyF.Ptr QListQObjectConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQObject_count" count' ::  HoppyF.Ptr QListQObjectConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQObject_endsWith" endsWith' ::  HoppyF.Ptr QListQObjectConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQObject_first" first' ::  HoppyF.Ptr QListQObject -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M94.QObject))+foreign import ccall "genpop__QListQObject_firstConst" firstConst' ::  HoppyF.Ptr QListQObjectConst -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M94.QObject))+foreign import ccall "genpop__QListQObject_get" get' ::  HoppyF.Ptr QListQObjectConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M94.QObject)+foreign import ccall "genpop__QListQObject_indexOf" indexOf' ::  HoppyF.Ptr QListQObjectConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQObject_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QListQObjectConst -> HoppyF.Ptr M94.QObject -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQObject_insert" insert' ::  HoppyF.Ptr QListQObject -> HoppyFC.CInt -> HoppyF.Ptr M94.QObject -> HoppyP.IO ()+foreign import ccall "genpop__QListQObject_isEmpty" isEmpty' ::  HoppyF.Ptr QListQObjectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQObject_last" last' ::  HoppyF.Ptr QListQObject -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M94.QObject))+foreign import ccall "genpop__QListQObject_lastConst" lastConst' ::  HoppyF.Ptr QListQObjectConst -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M94.QObject))+foreign import ccall "genpop__QListQObject_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QListQObjectConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQObject_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QListQObjectConst -> HoppyF.Ptr M94.QObject -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQObject_mid" mid' ::  HoppyF.Ptr QListQObjectConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQObject)+foreign import ccall "genpop__QListQObject_midLength" midLength' ::  HoppyF.Ptr QListQObjectConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQObject)+foreign import ccall "genpop__QListQObject_move" move' ::  HoppyF.Ptr QListQObject -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQObject_prepend" prepend' ::  HoppyF.Ptr QListQObject -> HoppyF.Ptr M94.QObject -> HoppyP.IO ()+foreign import ccall "genpop__QListQObject_removeAll" removeAll' ::  HoppyF.Ptr QListQObject -> HoppyF.Ptr M94.QObject -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQObject_removeAt" removeAt' ::  HoppyF.Ptr QListQObject -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQObject_removeFirst" removeFirst' ::  HoppyF.Ptr QListQObject -> HoppyP.IO ()+foreign import ccall "genpop__QListQObject_removeLast" removeLast' ::  HoppyF.Ptr QListQObject -> HoppyP.IO ()+foreign import ccall "genpop__QListQObject_removeOne" removeOne' ::  HoppyF.Ptr QListQObject -> HoppyF.Ptr M94.QObject -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQObject_replace" replace' ::  HoppyF.Ptr QListQObject -> HoppyFC.CInt -> HoppyF.Ptr M94.QObject -> HoppyP.IO ()+foreign import ccall "genpop__QListQObject_reserve" reserve' ::  HoppyF.Ptr QListQObject -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQObject_size" size' ::  HoppyF.Ptr QListQObjectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQObject_startsWith" startsWith' ::  HoppyF.Ptr QListQObjectConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQObject_swap" swap' ::  HoppyF.Ptr QListQObject -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQObject_takeAt" takeAt' ::  HoppyF.Ptr QListQObject -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M94.QObject)+foreign import ccall "genpop__QListQObject_takeFirst" takeFirst' ::  HoppyF.Ptr QListQObject -> HoppyP.IO (HoppyF.Ptr M94.QObject)+foreign import ccall "genpop__QListQObject_takeLast" takeLast' ::  HoppyF.Ptr QListQObject -> HoppyP.IO (HoppyF.Ptr M94.QObject)+foreign import ccall "genpop__QListQObject_value" value' ::  HoppyF.Ptr QListQObjectConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M94.QObject)+foreign import ccall "genpop__QListQObject_valueOr" valueOr' ::  HoppyF.Ptr QListQObjectConst -> HoppyFC.CInt -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr M94.QObject)+foreign import ccall "genpop__QListQObject_ADD" aDD' ::  HoppyF.Ptr QListQObjectConst -> HoppyF.Ptr QListQObjectConst -> HoppyP.IO (HoppyF.Ptr QListQObject)+foreign import ccall "genpop__QListQObject_ASSIGN" aSSIGN' ::  HoppyF.Ptr QListQObject -> HoppyF.Ptr QListQObjectConst -> HoppyP.IO (HoppyF.Ptr QListQObject)+foreign import ccall "gendel__QListQObject" delete'QListQObject :: HoppyF.Ptr QListQObjectConst -> HoppyP.IO ()+foreign import ccall "&gendel__QListQObject" deletePtr'QListQObject :: HoppyF.FunPtr (HoppyF.Ptr QListQObjectConst -> HoppyP.IO ())++class QListQObjectValue a where+  withQListQObjectPtr :: a -> (QListQObjectConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQObjectConstPtr a => QListQObjectValue a where+  withQListQObjectPtr = HoppyP.flip ($) . toQListQObjectConst++instance {-# OVERLAPPING #-} QListQObjectValue ([M94.QObject]) where+  withQListQObjectPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QListQObjectConstPtr this where+  toQListQObjectConst :: this -> QListQObjectConst++atConst :: (QListQObjectValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M94.QObject)))+atConst arg'1 arg'2 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (atConst' arg'1' arg'2')++contains :: (QListQObjectValue this, M94.QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QListQObjectValue this, M94.QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++endsWith :: (QListQObjectValue this, M94.QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QListQObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M94.QObject)))+firstConst arg'1 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (firstConst' arg'1')++get :: (QListQObjectValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M94.QObject)+get arg'1 arg'2 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M94.QObject+  (get' arg'1' arg'2')++indexOf :: (QListQObjectValue this, M94.QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QListQObjectValue this, M94.QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QListQObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QListQObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M94.QObject)))+lastConst arg'1 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (lastConst' arg'1')++lastIndexOf :: (QListQObjectValue this, M94.QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QListQObjectValue this, M94.QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QListQObjectValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QListQObject)+mid arg'1 arg'2 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQObject+  (mid' arg'1' arg'2')++midLength :: (QListQObjectValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QListQObject)+midLength arg'1 arg'2 arg'3 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQObject+  (midLength' arg'1' arg'2' arg'3')++size :: (QListQObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QListQObjectValue this, M94.QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QListQObjectValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M94.QObject)+value arg'1 arg'2 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M94.QObject+  (value' arg'1' arg'2')++valueOr :: (QListQObjectValue this, M94.QObjectPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO M94.QObject)+valueOr arg'1 arg'2 arg'3 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'3) $ \arg'3' ->+  HoppyP.fmap M94.QObject+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QListQObjectValue this, QListQObjectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQObject)+aDD arg'1 arg'2 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQListQObjectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQObject+  (aDD' arg'1' arg'2')++class (QListQObjectConstPtr this) => QListQObjectPtr this where+  toQListQObject :: this -> QListQObject++append :: (QListQObjectPtr this, M94.QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  (append' arg'1' arg'2')++appendList :: (QListQObjectPtr this, QListQObjectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendList arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  withQListQObjectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendList' arg'1' arg'2')++at :: (QListQObjectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M94.QObject)))+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (at' arg'1' arg'2')++clear :: (QListQObjectPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  (clear' arg'1')++first :: (QListQObjectPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M94.QObject)))+first arg'1 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  (first' arg'1')++insert :: (QListQObjectPtr this, M94.QObjectPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'3) $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++last :: (QListQObjectPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M94.QObject)))+last arg'1 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  (last' arg'1')++move :: (QListQObjectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+move arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (move' arg'1' arg'2' arg'3')++prepend :: (QListQObjectPtr this, M94.QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  (prepend' arg'1' arg'2')++removeAll :: (QListQObjectPtr this, M94.QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeAt :: (QListQObjectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+removeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (removeAt' arg'1' arg'2')++removeFirst :: (QListQObjectPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QListQObjectPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QListQObjectPtr this, M94.QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QListQObjectPtr this, M94.QObjectPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'3) $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QListQObjectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++swap :: (QListQObjectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+swap arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (swap' arg'1' arg'2' arg'3')++takeAt :: (QListQObjectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M94.QObject)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M94.QObject+  (takeAt' arg'1' arg'2')++takeFirst :: (QListQObjectPtr this) => (this) {- ^ this -} -> (HoppyP.IO M94.QObject)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  HoppyP.fmap M94.QObject+  (takeFirst' arg'1')++takeLast :: (QListQObjectPtr this) => (this) {- ^ this -} -> (HoppyP.IO M94.QObject)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  HoppyP.fmap M94.QObject+  (takeLast' arg'1')++aSSIGN :: (QListQObjectPtr this, QListQObjectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQObject)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQObject arg'1) $ \arg'1' ->+  withQListQObjectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QListQObject+  (aSSIGN' arg'1' arg'2')++data QListQObjectConst =+    QListQObjectConst (HoppyF.Ptr QListQObjectConst)+  | QListQObjectConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQObjectConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQObjectConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQObjectConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQObjectToConst :: QListQObject -> QListQObjectConst+castQListQObjectToConst (QListQObject ptr') = QListQObjectConst $ HoppyF.castPtr ptr'+castQListQObjectToConst (QListQObjectGc fptr' ptr') = QListQObjectConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQObjectConst where+  nullptr = QListQObjectConst HoppyF.nullPtr+  +  withCppPtr (QListQObjectConst ptr') f' = f' ptr'+  withCppPtr (QListQObjectConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQObjectConst ptr') = ptr'+  toPtr (QListQObjectConstGc _ ptr') = ptr'+  +  touchCppPtr (QListQObjectConst _) = HoppyP.return ()+  touchCppPtr (QListQObjectConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQObjectConst where+  delete (QListQObjectConst ptr') = delete'QListQObject ptr'+  delete (QListQObjectConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQObjectConst", " object."]+  +  toGc this'@(QListQObjectConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQObjectConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQObject :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQObjectConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQObjectConst QListQObject where copy = newCopy++instance QListQObjectConstPtr QListQObjectConst where+  toQListQObjectConst = HoppyP.id++data QListQObject =+    QListQObject (HoppyF.Ptr QListQObject)+  | QListQObjectGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQObject)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQObject where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQObject where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQObjectToNonconst :: QListQObjectConst -> QListQObject+castQListQObjectToNonconst (QListQObjectConst ptr') = QListQObject $ HoppyF.castPtr ptr'+castQListQObjectToNonconst (QListQObjectConstGc fptr' ptr') = QListQObjectGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQObject where+  nullptr = QListQObject HoppyF.nullPtr+  +  withCppPtr (QListQObject ptr') f' = f' ptr'+  withCppPtr (QListQObjectGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQObject ptr') = ptr'+  toPtr (QListQObjectGc _ ptr') = ptr'+  +  touchCppPtr (QListQObject _) = HoppyP.return ()+  touchCppPtr (QListQObjectGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQObject where+  delete (QListQObject ptr') = delete'QListQObject $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QListQObjectConst)+  delete (QListQObjectGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQObject", " object."]+  +  toGc this'@(QListQObject ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQObjectGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQObject :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQObjectGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQObject QListQObject where copy = newCopy++instance QListQObjectConstPtr QListQObject where+  toQListQObjectConst (QListQObject ptr') = QListQObjectConst $ (HoppyF.castPtr :: HoppyF.Ptr QListQObject -> HoppyF.Ptr QListQObjectConst) ptr'+  toQListQObjectConst (QListQObjectGc fptr' ptr') = QListQObjectConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QListQObject -> HoppyF.Ptr QListQObjectConst) ptr'++instance QListQObjectPtr QListQObject where+  toQListQObject = HoppyP.id++new :: (HoppyP.IO QListQObject)+new =+  HoppyP.fmap QListQObject+  (new')++newCopy :: (QListQObjectValue arg'1) => (arg'1) -> (HoppyP.IO QListQObject)+newCopy arg'1 =+  withQListQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QListQObject+  (newCopy' arg'1')++class QListQObjectSuper a where+  downToQListQObject :: a -> QListQObject+++class QListQObjectSuperConst a where+  downToQListQObjectConst :: a -> QListQObjectConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QListQObject)) QListQObject where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QListQObjectValue a => HoppyFHR.Assignable QListQObject a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQObject)) QListQObject where+  decode = HoppyP.fmap QListQObject . HoppyF.peek++instance HoppyFHR.Encodable QListQObject ([M94.QObject]) where+  encode =+    QtahFHR.fromContents++instance HoppyFHR.Encodable QListQObjectConst ([M94.QObject]) where+  encode = HoppyP.fmap (toQListQObjectConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QListQObject)++instance HoppyFHR.Decodable QListQObject ([M94.QObject]) where+  decode = HoppyFHR.decode . toQListQObjectConst++instance HoppyFHR.Decodable QListQObjectConst ([M94.QObject]) where+  decode =+    QtahFHR.toContents++instance QtahFHR.HasContents QListQObjectConst (M94.QObject) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QListQObject (M94.QObject) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QListQObject (M94.QObject) where+  fromContents values' = do+    list' <- new+    reserve list' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append list') values'+    QtahP.return list'
+ src/Graphics/UI/Qtah/Generated/Core/QList/QObject.hs-boot view
@@ -0,0 +1,65 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QObject (+  QListQObjectValue (..),+  QListQObjectConstPtr (..),+  QListQObjectPtr (..),+  QListQObjectConst (..),+  castQListQObjectToConst,+  QListQObject (..),+  castQListQObjectToNonconst,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Prelude as HoppyP+++class QListQObjectValue a where+  withQListQObjectPtr :: a -> (QListQObjectConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQObjectConstPtr a => QListQObjectValue a++instance {-# OVERLAPPING #-} QListQObjectValue ([M94.QObject])++class (HoppyFHR.CppPtr this) => QListQObjectConstPtr this where+  toQListQObjectConst :: this -> QListQObjectConst++class (QListQObjectConstPtr this) => QListQObjectPtr this where+  toQListQObject :: this -> QListQObject++data QListQObjectConst =+    QListQObjectConst (HoppyF.Ptr QListQObjectConst)+  | QListQObjectConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQObjectConst)++castQListQObjectToConst :: QListQObject -> QListQObjectConst++instance HoppyFHR.CppPtr QListQObjectConst+instance HoppyFHR.Deletable QListQObjectConst+instance HoppyFHR.Copyable QListQObjectConst QListQObject++instance QListQObjectConstPtr QListQObjectConst++data QListQObject =+    QListQObject (HoppyF.Ptr QListQObject)+  | QListQObjectGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQObject)++castQListQObjectToNonconst :: QListQObjectConst -> QListQObject++instance HoppyFHR.CppPtr QListQObject+instance HoppyFHR.Deletable QListQObject+instance HoppyFHR.Copyable QListQObject QListQObject++instance QListQObjectConstPtr QListQObject++instance QListQObjectPtr QListQObject++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQObject)) QListQObject++instance HoppyFHR.Encodable QListQObject (([M94.QObject]))+instance HoppyFHR.Encodable QListQObjectConst (([M94.QObject]))++instance HoppyFHR.Decodable QListQObject (([M94.QObject]))+instance HoppyFHR.Decodable QListQObjectConst (([M94.QObject]))
src/Graphics/UI/Qtah/Generated/Core/QList/QSize.hs view
@@ -0,0 +1,598 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QSize (+  QListQSizeValue (..),+  QListQSizeConstPtr (..),+  atConst,+  contains,+  count,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QListQSizePtr (..),+  append,+  appendList,+  at,+  clear,+  first,+  insert,+  last,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QListQSizeConst (..),+  castQListQSizeToConst,+  QListQSize (..),+  castQListQSizeToNonconst,+  new,+  newCopy,+  QListQSizeSuper (..),+  QListQSizeSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Core.HSize as HSize+import qualified Graphics.UI.Qtah.Generated.Core.QSize as M134+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QListQSize_new" new' ::  HoppyP.IO (HoppyF.Ptr QListQSize)+foreign import ccall "genpop__QListQSize_newCopy" newCopy' ::  HoppyF.Ptr QListQSizeConst -> HoppyP.IO (HoppyF.Ptr QListQSize)+foreign import ccall "genpop__QListQSize_append" append' ::  HoppyF.Ptr QListQSize -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQSize_appendList" appendList' ::  HoppyF.Ptr QListQSize -> HoppyF.Ptr QListQSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQSize_at" at' ::  HoppyF.Ptr QListQSize -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M134.QSize)+foreign import ccall "genpop__QListQSize_atConst" atConst' ::  HoppyF.Ptr QListQSizeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QListQSize_clear" clear' ::  HoppyF.Ptr QListQSize -> HoppyP.IO ()+foreign import ccall "genpop__QListQSize_contains" contains' ::  HoppyF.Ptr QListQSizeConst -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQSize_count" count' ::  HoppyF.Ptr QListQSizeConst -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQSize_endsWith" endsWith' ::  HoppyF.Ptr QListQSizeConst -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQSize_first" first' ::  HoppyF.Ptr QListQSize -> HoppyP.IO (HoppyF.Ptr M134.QSize)+foreign import ccall "genpop__QListQSize_firstConst" firstConst' ::  HoppyF.Ptr QListQSizeConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QListQSize_get" get' ::  HoppyF.Ptr QListQSizeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QListQSize_indexOf" indexOf' ::  HoppyF.Ptr QListQSizeConst -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQSize_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QListQSizeConst -> HoppyF.Ptr M134.QSizeConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQSize_insert" insert' ::  HoppyF.Ptr QListQSize -> HoppyFC.CInt -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQSize_isEmpty" isEmpty' ::  HoppyF.Ptr QListQSizeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQSize_last" last' ::  HoppyF.Ptr QListQSize -> HoppyP.IO (HoppyF.Ptr M134.QSize)+foreign import ccall "genpop__QListQSize_lastConst" lastConst' ::  HoppyF.Ptr QListQSizeConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QListQSize_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QListQSizeConst -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQSize_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QListQSizeConst -> HoppyF.Ptr M134.QSizeConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQSize_mid" mid' ::  HoppyF.Ptr QListQSizeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQSize)+foreign import ccall "genpop__QListQSize_midLength" midLength' ::  HoppyF.Ptr QListQSizeConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQSize)+foreign import ccall "genpop__QListQSize_move" move' ::  HoppyF.Ptr QListQSize -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQSize_prepend" prepend' ::  HoppyF.Ptr QListQSize -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQSize_removeAll" removeAll' ::  HoppyF.Ptr QListQSize -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQSize_removeAt" removeAt' ::  HoppyF.Ptr QListQSize -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQSize_removeFirst" removeFirst' ::  HoppyF.Ptr QListQSize -> HoppyP.IO ()+foreign import ccall "genpop__QListQSize_removeLast" removeLast' ::  HoppyF.Ptr QListQSize -> HoppyP.IO ()+foreign import ccall "genpop__QListQSize_removeOne" removeOne' ::  HoppyF.Ptr QListQSize -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQSize_replace" replace' ::  HoppyF.Ptr QListQSize -> HoppyFC.CInt -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQSize_reserve" reserve' ::  HoppyF.Ptr QListQSize -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQSize_size" size' ::  HoppyF.Ptr QListQSizeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQSize_startsWith" startsWith' ::  HoppyF.Ptr QListQSizeConst -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQSize_swap" swap' ::  HoppyF.Ptr QListQSize -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQSize_takeAt" takeAt' ::  HoppyF.Ptr QListQSize -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QListQSize_takeFirst" takeFirst' ::  HoppyF.Ptr QListQSize -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QListQSize_takeLast" takeLast' ::  HoppyF.Ptr QListQSize -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QListQSize_value" value' ::  HoppyF.Ptr QListQSizeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QListQSize_valueOr" valueOr' ::  HoppyF.Ptr QListQSizeConst -> HoppyFC.CInt -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QListQSize_ADD" aDD' ::  HoppyF.Ptr QListQSizeConst -> HoppyF.Ptr QListQSizeConst -> HoppyP.IO (HoppyF.Ptr QListQSize)+foreign import ccall "genpop__QListQSize_ASSIGN" aSSIGN' ::  HoppyF.Ptr QListQSize -> HoppyF.Ptr QListQSizeConst -> HoppyP.IO (HoppyF.Ptr QListQSize)+foreign import ccall "gendel__QListQSize" delete'QListQSize :: HoppyF.Ptr QListQSizeConst -> HoppyP.IO ()+foreign import ccall "&gendel__QListQSize" deletePtr'QListQSize :: HoppyF.FunPtr (HoppyF.Ptr QListQSizeConst -> HoppyP.IO ())++class QListQSizeValue a where+  withQListQSizePtr :: a -> (QListQSizeConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQSizeConstPtr a => QListQSizeValue a where+  withQListQSizePtr = HoppyP.flip ($) . toQListQSizeConst++instance {-# OVERLAPPING #-} QListQSizeValue ([HSize.HSize]) where+  withQListQSizePtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QListQSizeConstPtr this where+  toQListQSizeConst :: this -> QListQSizeConst++atConst :: (QListQSizeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M134.QSizeConst)+atConst arg'1 arg'2 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M134.QSizeConst+  (atConst' arg'1' arg'2')++contains :: (QListQSizeValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QListQSizeValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++endsWith :: (QListQSizeValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QListQSizeValue this) => (this) {- ^ this -} -> (HoppyP.IO M134.QSizeConst)+firstConst arg'1 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M134.QSizeConst+  (firstConst' arg'1')++get :: (QListQSizeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HSize.HSize)+get arg'1 arg'2 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (get' arg'1' arg'2')++indexOf :: (QListQSizeValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QListQSizeValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QListQSizeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QListQSizeValue this) => (this) {- ^ this -} -> (HoppyP.IO M134.QSizeConst)+lastConst arg'1 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M134.QSizeConst+  (lastConst' arg'1')++lastIndexOf :: (QListQSizeValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QListQSizeValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QListQSizeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QListQSize)+mid arg'1 arg'2 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQSize+  (mid' arg'1' arg'2')++midLength :: (QListQSizeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QListQSize)+midLength arg'1 arg'2 arg'3 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQSize+  (midLength' arg'1' arg'2' arg'3')++size :: (QListQSizeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QListQSizeValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QListQSizeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HSize.HSize)+value arg'1 arg'2 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (value' arg'1' arg'2')++valueOr :: (QListQSizeValue this, M134.QSizeValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO HSize.HSize)+valueOr arg'1 arg'2 arg'3 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M134.withQSizePtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QListQSizeValue this, QListQSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQSize)+aDD arg'1 arg'2 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQListQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQSize+  (aDD' arg'1' arg'2')++class (QListQSizeConstPtr this) => QListQSizePtr this where+  toQListQSize :: this -> QListQSize++append :: (QListQSizePtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (append' arg'1' arg'2')++appendList :: (QListQSizePtr this, QListQSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendList arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  withQListQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendList' arg'1' arg'2')++at :: (QListQSizePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M134.QSize)+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M134.QSize+  (at' arg'1' arg'2')++clear :: (QListQSizePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  (clear' arg'1')++first :: (QListQSizePtr this) => (this) {- ^ this -} -> (HoppyP.IO M134.QSize)+first arg'1 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  HoppyP.fmap M134.QSize+  (first' arg'1')++insert :: (QListQSizePtr this, M134.QSizeValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M134.withQSizePtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++last :: (QListQSizePtr this) => (this) {- ^ this -} -> (HoppyP.IO M134.QSize)+last arg'1 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  HoppyP.fmap M134.QSize+  (last' arg'1')++move :: (QListQSizePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+move arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (move' arg'1' arg'2' arg'3')++prepend :: (QListQSizePtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (prepend' arg'1' arg'2')++removeAll :: (QListQSizePtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeAt :: (QListQSizePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+removeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (removeAt' arg'1' arg'2')++removeFirst :: (QListQSizePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QListQSizePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QListQSizePtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QListQSizePtr this, M134.QSizeValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M134.withQSizePtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QListQSizePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++swap :: (QListQSizePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+swap arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (swap' arg'1' arg'2' arg'3')++takeAt :: (QListQSizePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HSize.HSize)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QListQSizePtr this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (takeFirst' arg'1')++takeLast :: (QListQSizePtr this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (takeLast' arg'1')++aSSIGN :: (QListQSizePtr this, QListQSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQSize)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQSize arg'1) $ \arg'1' ->+  withQListQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QListQSize+  (aSSIGN' arg'1' arg'2')++data QListQSizeConst =+    QListQSizeConst (HoppyF.Ptr QListQSizeConst)+  | QListQSizeConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQSizeConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQSizeConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQSizeConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQSizeToConst :: QListQSize -> QListQSizeConst+castQListQSizeToConst (QListQSize ptr') = QListQSizeConst $ HoppyF.castPtr ptr'+castQListQSizeToConst (QListQSizeGc fptr' ptr') = QListQSizeConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQSizeConst where+  nullptr = QListQSizeConst HoppyF.nullPtr+  +  withCppPtr (QListQSizeConst ptr') f' = f' ptr'+  withCppPtr (QListQSizeConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQSizeConst ptr') = ptr'+  toPtr (QListQSizeConstGc _ ptr') = ptr'+  +  touchCppPtr (QListQSizeConst _) = HoppyP.return ()+  touchCppPtr (QListQSizeConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQSizeConst where+  delete (QListQSizeConst ptr') = delete'QListQSize ptr'+  delete (QListQSizeConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQSizeConst", " object."]+  +  toGc this'@(QListQSizeConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQSizeConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQSize :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQSizeConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQSizeConst QListQSize where copy = newCopy++instance QListQSizeConstPtr QListQSizeConst where+  toQListQSizeConst = HoppyP.id++data QListQSize =+    QListQSize (HoppyF.Ptr QListQSize)+  | QListQSizeGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQSize)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQSize where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQSize where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQSizeToNonconst :: QListQSizeConst -> QListQSize+castQListQSizeToNonconst (QListQSizeConst ptr') = QListQSize $ HoppyF.castPtr ptr'+castQListQSizeToNonconst (QListQSizeConstGc fptr' ptr') = QListQSizeGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQSize where+  nullptr = QListQSize HoppyF.nullPtr+  +  withCppPtr (QListQSize ptr') f' = f' ptr'+  withCppPtr (QListQSizeGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQSize ptr') = ptr'+  toPtr (QListQSizeGc _ ptr') = ptr'+  +  touchCppPtr (QListQSize _) = HoppyP.return ()+  touchCppPtr (QListQSizeGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQSize where+  delete (QListQSize ptr') = delete'QListQSize $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QListQSizeConst)+  delete (QListQSizeGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQSize", " object."]+  +  toGc this'@(QListQSize ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQSizeGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQSize :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQSizeGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQSize QListQSize where copy = newCopy++instance QListQSizeConstPtr QListQSize where+  toQListQSizeConst (QListQSize ptr') = QListQSizeConst $ (HoppyF.castPtr :: HoppyF.Ptr QListQSize -> HoppyF.Ptr QListQSizeConst) ptr'+  toQListQSizeConst (QListQSizeGc fptr' ptr') = QListQSizeConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QListQSize -> HoppyF.Ptr QListQSizeConst) ptr'++instance QListQSizePtr QListQSize where+  toQListQSize = HoppyP.id++new :: (HoppyP.IO QListQSize)+new =+  HoppyP.fmap QListQSize+  (new')++newCopy :: (QListQSizeValue arg'1) => (arg'1) -> (HoppyP.IO QListQSize)+newCopy arg'1 =+  withQListQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QListQSize+  (newCopy' arg'1')++class QListQSizeSuper a where+  downToQListQSize :: a -> QListQSize+++class QListQSizeSuperConst a where+  downToQListQSizeConst :: a -> QListQSizeConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QListQSize)) QListQSize where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QListQSizeValue a => HoppyFHR.Assignable QListQSize a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQSize)) QListQSize where+  decode = HoppyP.fmap QListQSize . HoppyF.peek++instance HoppyFHR.Encodable QListQSize ([HSize.HSize]) where+  encode =+    QtahFHR.fromContents++instance HoppyFHR.Encodable QListQSizeConst ([HSize.HSize]) where+  encode = HoppyP.fmap (toQListQSizeConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QListQSize)++instance HoppyFHR.Decodable QListQSize ([HSize.HSize]) where+  decode = HoppyFHR.decode . toQListQSizeConst++instance HoppyFHR.Decodable QListQSizeConst ([HSize.HSize]) where+  decode =+    QtahFHR.toContents++instance QtahFHR.HasContents QListQSizeConst (HSize.HSize) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QListQSize (HSize.HSize) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QListQSize (HSize.HSize) where+  fromContents values' = do+    list' <- new+    reserve list' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append list') values'+    QtahP.return list'
src/Graphics/UI/Qtah/Generated/Core/QList/QStandardItem.hs view
@@ -0,0 +1,591 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QStandardItem (+  QListQStandardItemValue (..),+  QListQStandardItemConstPtr (..),+  atConst,+  contains,+  count,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QListQStandardItemPtr (..),+  append,+  appendList,+  at,+  clear,+  first,+  insert,+  last,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QListQStandardItemConst (..),+  castQListQStandardItemToConst,+  QListQStandardItem (..),+  castQListQStandardItemToNonconst,+  new,+  newCopy,+  QListQStandardItemSuper (..),+  QListQStandardItemSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QStandardItem as M330+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QListQStandardItem_new" new' ::  HoppyP.IO (HoppyF.Ptr QListQStandardItem)+foreign import ccall "genpop__QListQStandardItem_newCopy" newCopy' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyP.IO (HoppyF.Ptr QListQStandardItem)+foreign import ccall "genpop__QListQStandardItem_append" append' ::  HoppyF.Ptr QListQStandardItem -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QListQStandardItem_appendList" appendList' ::  HoppyF.Ptr QListQStandardItem -> HoppyF.Ptr QListQStandardItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQStandardItem_at" at' ::  HoppyF.Ptr QListQStandardItem -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M330.QStandardItem))+foreign import ccall "genpop__QListQStandardItem_atConst" atConst' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M330.QStandardItem))+foreign import ccall "genpop__QListQStandardItem_clear" clear' ::  HoppyF.Ptr QListQStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QListQStandardItem_contains" contains' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQStandardItem_count" count' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQStandardItem_endsWith" endsWith' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQStandardItem_first" first' ::  HoppyF.Ptr QListQStandardItem -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M330.QStandardItem))+foreign import ccall "genpop__QListQStandardItem_firstConst" firstConst' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M330.QStandardItem))+foreign import ccall "genpop__QListQStandardItem_get" get' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "genpop__QListQStandardItem_indexOf" indexOf' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQStandardItem_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyF.Ptr M330.QStandardItem -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQStandardItem_insert" insert' ::  HoppyF.Ptr QListQStandardItem -> HoppyFC.CInt -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QListQStandardItem_isEmpty" isEmpty' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQStandardItem_last" last' ::  HoppyF.Ptr QListQStandardItem -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M330.QStandardItem))+foreign import ccall "genpop__QListQStandardItem_lastConst" lastConst' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M330.QStandardItem))+foreign import ccall "genpop__QListQStandardItem_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQStandardItem_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyF.Ptr M330.QStandardItem -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQStandardItem_mid" mid' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQStandardItem)+foreign import ccall "genpop__QListQStandardItem_midLength" midLength' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQStandardItem)+foreign import ccall "genpop__QListQStandardItem_move" move' ::  HoppyF.Ptr QListQStandardItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQStandardItem_prepend" prepend' ::  HoppyF.Ptr QListQStandardItem -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QListQStandardItem_removeAll" removeAll' ::  HoppyF.Ptr QListQStandardItem -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQStandardItem_removeAt" removeAt' ::  HoppyF.Ptr QListQStandardItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQStandardItem_removeFirst" removeFirst' ::  HoppyF.Ptr QListQStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QListQStandardItem_removeLast" removeLast' ::  HoppyF.Ptr QListQStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QListQStandardItem_removeOne" removeOne' ::  HoppyF.Ptr QListQStandardItem -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQStandardItem_replace" replace' ::  HoppyF.Ptr QListQStandardItem -> HoppyFC.CInt -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QListQStandardItem_reserve" reserve' ::  HoppyF.Ptr QListQStandardItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQStandardItem_size" size' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQStandardItem_startsWith" startsWith' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQStandardItem_swap" swap' ::  HoppyF.Ptr QListQStandardItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQStandardItem_takeAt" takeAt' ::  HoppyF.Ptr QListQStandardItem -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "genpop__QListQStandardItem_takeFirst" takeFirst' ::  HoppyF.Ptr QListQStandardItem -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "genpop__QListQStandardItem_takeLast" takeLast' ::  HoppyF.Ptr QListQStandardItem -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "genpop__QListQStandardItem_value" value' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "genpop__QListQStandardItem_valueOr" valueOr' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyFC.CInt -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "genpop__QListQStandardItem_ADD" aDD' ::  HoppyF.Ptr QListQStandardItemConst -> HoppyF.Ptr QListQStandardItemConst -> HoppyP.IO (HoppyF.Ptr QListQStandardItem)+foreign import ccall "genpop__QListQStandardItem_ASSIGN" aSSIGN' ::  HoppyF.Ptr QListQStandardItem -> HoppyF.Ptr QListQStandardItemConst -> HoppyP.IO (HoppyF.Ptr QListQStandardItem)+foreign import ccall "gendel__QListQStandardItem" delete'QListQStandardItem :: HoppyF.Ptr QListQStandardItemConst -> HoppyP.IO ()+foreign import ccall "&gendel__QListQStandardItem" deletePtr'QListQStandardItem :: HoppyF.FunPtr (HoppyF.Ptr QListQStandardItemConst -> HoppyP.IO ())++class QListQStandardItemValue a where+  withQListQStandardItemPtr :: a -> (QListQStandardItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQStandardItemConstPtr a => QListQStandardItemValue a where+  withQListQStandardItemPtr = HoppyP.flip ($) . toQListQStandardItemConst++instance {-# OVERLAPPING #-} QListQStandardItemValue ([M330.QStandardItem]) where+  withQListQStandardItemPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QListQStandardItemConstPtr this where+  toQListQStandardItemConst :: this -> QListQStandardItemConst++atConst :: (QListQStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M330.QStandardItem)))+atConst arg'1 arg'2 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (atConst' arg'1' arg'2')++contains :: (QListQStandardItemValue this, M330.QStandardItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QListQStandardItemValue this, M330.QStandardItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++endsWith :: (QListQStandardItemValue this, M330.QStandardItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QListQStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M330.QStandardItem)))+firstConst arg'1 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (firstConst' arg'1')++get :: (QListQStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M330.QStandardItem)+get arg'1 arg'2 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M330.QStandardItem+  (get' arg'1' arg'2')++indexOf :: (QListQStandardItemValue this, M330.QStandardItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QListQStandardItemValue this, M330.QStandardItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QListQStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QListQStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M330.QStandardItem)))+lastConst arg'1 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (lastConst' arg'1')++lastIndexOf :: (QListQStandardItemValue this, M330.QStandardItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QListQStandardItemValue this, M330.QStandardItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QListQStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QListQStandardItem)+mid arg'1 arg'2 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQStandardItem+  (mid' arg'1' arg'2')++midLength :: (QListQStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QListQStandardItem)+midLength arg'1 arg'2 arg'3 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQStandardItem+  (midLength' arg'1' arg'2' arg'3')++size :: (QListQStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QListQStandardItemValue this, M330.QStandardItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QListQStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M330.QStandardItem)+value arg'1 arg'2 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M330.QStandardItem+  (value' arg'1' arg'2')++valueOr :: (QListQStandardItemValue this, M330.QStandardItemPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO M330.QStandardItem)+valueOr arg'1 arg'2 arg'3 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'3) $ \arg'3' ->+  HoppyP.fmap M330.QStandardItem+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QListQStandardItemValue this, QListQStandardItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQStandardItem)+aDD arg'1 arg'2 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQListQStandardItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQStandardItem+  (aDD' arg'1' arg'2')++class (QListQStandardItemConstPtr this) => QListQStandardItemPtr this where+  toQListQStandardItem :: this -> QListQStandardItem++append :: (QListQStandardItemPtr this, M330.QStandardItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'2) $ \arg'2' ->+  (append' arg'1' arg'2')++appendList :: (QListQStandardItemPtr this, QListQStandardItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendList arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  withQListQStandardItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendList' arg'1' arg'2')++at :: (QListQStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M330.QStandardItem)))+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (at' arg'1' arg'2')++clear :: (QListQStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  (clear' arg'1')++first :: (QListQStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M330.QStandardItem)))+first arg'1 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  (first' arg'1')++insert :: (QListQStandardItemPtr this, M330.QStandardItemPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'3) $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++last :: (QListQStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M330.QStandardItem)))+last arg'1 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  (last' arg'1')++move :: (QListQStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+move arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (move' arg'1' arg'2' arg'3')++prepend :: (QListQStandardItemPtr this, M330.QStandardItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'2) $ \arg'2' ->+  (prepend' arg'1' arg'2')++removeAll :: (QListQStandardItemPtr this, M330.QStandardItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeAt :: (QListQStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+removeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (removeAt' arg'1' arg'2')++removeFirst :: (QListQStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QListQStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QListQStandardItemPtr this, M330.QStandardItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QListQStandardItemPtr this, M330.QStandardItemPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'3) $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QListQStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++swap :: (QListQStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+swap arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (swap' arg'1' arg'2' arg'3')++takeAt :: (QListQStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M330.QStandardItem)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M330.QStandardItem+  (takeAt' arg'1' arg'2')++takeFirst :: (QListQStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO M330.QStandardItem)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  HoppyP.fmap M330.QStandardItem+  (takeFirst' arg'1')++takeLast :: (QListQStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO M330.QStandardItem)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  HoppyP.fmap M330.QStandardItem+  (takeLast' arg'1')++aSSIGN :: (QListQStandardItemPtr this, QListQStandardItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQStandardItem)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQStandardItem arg'1) $ \arg'1' ->+  withQListQStandardItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QListQStandardItem+  (aSSIGN' arg'1' arg'2')++data QListQStandardItemConst =+    QListQStandardItemConst (HoppyF.Ptr QListQStandardItemConst)+  | QListQStandardItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQStandardItemConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQStandardItemConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQStandardItemConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQStandardItemToConst :: QListQStandardItem -> QListQStandardItemConst+castQListQStandardItemToConst (QListQStandardItem ptr') = QListQStandardItemConst $ HoppyF.castPtr ptr'+castQListQStandardItemToConst (QListQStandardItemGc fptr' ptr') = QListQStandardItemConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQStandardItemConst where+  nullptr = QListQStandardItemConst HoppyF.nullPtr+  +  withCppPtr (QListQStandardItemConst ptr') f' = f' ptr'+  withCppPtr (QListQStandardItemConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQStandardItemConst ptr') = ptr'+  toPtr (QListQStandardItemConstGc _ ptr') = ptr'+  +  touchCppPtr (QListQStandardItemConst _) = HoppyP.return ()+  touchCppPtr (QListQStandardItemConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQStandardItemConst where+  delete (QListQStandardItemConst ptr') = delete'QListQStandardItem ptr'+  delete (QListQStandardItemConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQStandardItemConst", " object."]+  +  toGc this'@(QListQStandardItemConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQStandardItemConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQStandardItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQStandardItemConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQStandardItemConst QListQStandardItem where copy = newCopy++instance QListQStandardItemConstPtr QListQStandardItemConst where+  toQListQStandardItemConst = HoppyP.id++data QListQStandardItem =+    QListQStandardItem (HoppyF.Ptr QListQStandardItem)+  | QListQStandardItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQStandardItem)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQStandardItem where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQStandardItem where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQStandardItemToNonconst :: QListQStandardItemConst -> QListQStandardItem+castQListQStandardItemToNonconst (QListQStandardItemConst ptr') = QListQStandardItem $ HoppyF.castPtr ptr'+castQListQStandardItemToNonconst (QListQStandardItemConstGc fptr' ptr') = QListQStandardItemGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQStandardItem where+  nullptr = QListQStandardItem HoppyF.nullPtr+  +  withCppPtr (QListQStandardItem ptr') f' = f' ptr'+  withCppPtr (QListQStandardItemGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQStandardItem ptr') = ptr'+  toPtr (QListQStandardItemGc _ ptr') = ptr'+  +  touchCppPtr (QListQStandardItem _) = HoppyP.return ()+  touchCppPtr (QListQStandardItemGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQStandardItem where+  delete (QListQStandardItem ptr') = delete'QListQStandardItem $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QListQStandardItemConst)+  delete (QListQStandardItemGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQStandardItem", " object."]+  +  toGc this'@(QListQStandardItem ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQStandardItemGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQStandardItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQStandardItemGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQStandardItem QListQStandardItem where copy = newCopy++instance QListQStandardItemConstPtr QListQStandardItem where+  toQListQStandardItemConst (QListQStandardItem ptr') = QListQStandardItemConst $ (HoppyF.castPtr :: HoppyF.Ptr QListQStandardItem -> HoppyF.Ptr QListQStandardItemConst) ptr'+  toQListQStandardItemConst (QListQStandardItemGc fptr' ptr') = QListQStandardItemConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QListQStandardItem -> HoppyF.Ptr QListQStandardItemConst) ptr'++instance QListQStandardItemPtr QListQStandardItem where+  toQListQStandardItem = HoppyP.id++new :: (HoppyP.IO QListQStandardItem)+new =+  HoppyP.fmap QListQStandardItem+  (new')++newCopy :: (QListQStandardItemValue arg'1) => (arg'1) -> (HoppyP.IO QListQStandardItem)+newCopy arg'1 =+  withQListQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QListQStandardItem+  (newCopy' arg'1')++class QListQStandardItemSuper a where+  downToQListQStandardItem :: a -> QListQStandardItem+++class QListQStandardItemSuperConst a where+  downToQListQStandardItemConst :: a -> QListQStandardItemConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QListQStandardItem)) QListQStandardItem where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QListQStandardItemValue a => HoppyFHR.Assignable QListQStandardItem a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQStandardItem)) QListQStandardItem where+  decode = HoppyP.fmap QListQStandardItem . HoppyF.peek++instance HoppyFHR.Encodable QListQStandardItem ([M330.QStandardItem]) where+  encode =+    QtahFHR.fromContents++instance HoppyFHR.Encodable QListQStandardItemConst ([M330.QStandardItem]) where+  encode = HoppyP.fmap (toQListQStandardItemConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QListQStandardItem)++instance HoppyFHR.Decodable QListQStandardItem ([M330.QStandardItem]) where+  decode = HoppyFHR.decode . toQListQStandardItemConst++instance HoppyFHR.Decodable QListQStandardItemConst ([M330.QStandardItem]) where+  decode =+    QtahFHR.toContents++instance QtahFHR.HasContents QListQStandardItemConst (M330.QStandardItem) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QListQStandardItem (M330.QStandardItem) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QListQStandardItem (M330.QStandardItem) where+  fromContents values' = do+    list' <- new+    reserve list' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append list') values'+    QtahP.return list'
+ src/Graphics/UI/Qtah/Generated/Core/QList/QStandardItem.hs-boot view
@@ -0,0 +1,65 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QStandardItem (+  QListQStandardItemValue (..),+  QListQStandardItemConstPtr (..),+  QListQStandardItemPtr (..),+  QListQStandardItemConst (..),+  castQListQStandardItemToConst,+  QListQStandardItem (..),+  castQListQStandardItemToNonconst,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QStandardItem as M330+import qualified Prelude as HoppyP+++class QListQStandardItemValue a where+  withQListQStandardItemPtr :: a -> (QListQStandardItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQStandardItemConstPtr a => QListQStandardItemValue a++instance {-# OVERLAPPING #-} QListQStandardItemValue ([M330.QStandardItem])++class (HoppyFHR.CppPtr this) => QListQStandardItemConstPtr this where+  toQListQStandardItemConst :: this -> QListQStandardItemConst++class (QListQStandardItemConstPtr this) => QListQStandardItemPtr this where+  toQListQStandardItem :: this -> QListQStandardItem++data QListQStandardItemConst =+    QListQStandardItemConst (HoppyF.Ptr QListQStandardItemConst)+  | QListQStandardItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQStandardItemConst)++castQListQStandardItemToConst :: QListQStandardItem -> QListQStandardItemConst++instance HoppyFHR.CppPtr QListQStandardItemConst+instance HoppyFHR.Deletable QListQStandardItemConst+instance HoppyFHR.Copyable QListQStandardItemConst QListQStandardItem++instance QListQStandardItemConstPtr QListQStandardItemConst++data QListQStandardItem =+    QListQStandardItem (HoppyF.Ptr QListQStandardItem)+  | QListQStandardItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQStandardItem)++castQListQStandardItemToNonconst :: QListQStandardItemConst -> QListQStandardItem++instance HoppyFHR.CppPtr QListQStandardItem+instance HoppyFHR.Deletable QListQStandardItem+instance HoppyFHR.Copyable QListQStandardItem QListQStandardItem++instance QListQStandardItemConstPtr QListQStandardItem++instance QListQStandardItemPtr QListQStandardItem++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQStandardItem)) QListQStandardItem++instance HoppyFHR.Encodable QListQStandardItem (([M330.QStandardItem]))+instance HoppyFHR.Encodable QListQStandardItemConst (([M330.QStandardItem]))++instance HoppyFHR.Decodable QListQStandardItem (([M330.QStandardItem]))+instance HoppyFHR.Decodable QListQStandardItemConst (([M330.QStandardItem]))
src/Graphics/UI/Qtah/Generated/Core/QList/QString.hs view
@@ -0,0 +1,597 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QString (+  QListQStringValue (..),+  QListQStringConstPtr (..),+  atConst,+  contains,+  count,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QListQStringPtr (..),+  append,+  appendList,+  at,+  clear,+  first,+  insert,+  last,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QListQStringConst (..),+  castQListQStringToConst,+  QListQString (..),+  castQListQStringToNonconst,+  new,+  newCopy,+  QListQStringSuper (..),+  QListQStringSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QListQString_new" new' ::  HoppyP.IO (HoppyF.Ptr QListQString)+foreign import ccall "genpop__QListQString_newCopy" newCopy' ::  HoppyF.Ptr QListQStringConst -> HoppyP.IO (HoppyF.Ptr QListQString)+foreign import ccall "genpop__QListQString_append" append' ::  HoppyF.Ptr QListQString -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQString_appendList" appendList' ::  HoppyF.Ptr QListQString -> HoppyF.Ptr QListQStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQString_at" at' ::  HoppyF.Ptr QListQString -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QString)+foreign import ccall "genpop__QListQString_atConst" atConst' ::  HoppyF.Ptr QListQStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QListQString_clear" clear' ::  HoppyF.Ptr QListQString -> HoppyP.IO ()+foreign import ccall "genpop__QListQString_contains" contains' ::  HoppyF.Ptr QListQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQString_count" count' ::  HoppyF.Ptr QListQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQString_endsWith" endsWith' ::  HoppyF.Ptr QListQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQString_first" first' ::  HoppyF.Ptr QListQString -> HoppyP.IO (HoppyF.Ptr M142.QString)+foreign import ccall "genpop__QListQString_firstConst" firstConst' ::  HoppyF.Ptr QListQStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QListQString_get" get' ::  HoppyF.Ptr QListQStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QListQString_indexOf" indexOf' ::  HoppyF.Ptr QListQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQString_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QListQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQString_insert" insert' ::  HoppyF.Ptr QListQString -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQString_isEmpty" isEmpty' ::  HoppyF.Ptr QListQStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQString_last" last' ::  HoppyF.Ptr QListQString -> HoppyP.IO (HoppyF.Ptr M142.QString)+foreign import ccall "genpop__QListQString_lastConst" lastConst' ::  HoppyF.Ptr QListQStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QListQString_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QListQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQString_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QListQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQString_mid" mid' ::  HoppyF.Ptr QListQStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQString)+foreign import ccall "genpop__QListQString_midLength" midLength' ::  HoppyF.Ptr QListQStringConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQString)+foreign import ccall "genpop__QListQString_move" move' ::  HoppyF.Ptr QListQString -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQString_prepend" prepend' ::  HoppyF.Ptr QListQString -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQString_removeAll" removeAll' ::  HoppyF.Ptr QListQString -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQString_removeAt" removeAt' ::  HoppyF.Ptr QListQString -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQString_removeFirst" removeFirst' ::  HoppyF.Ptr QListQString -> HoppyP.IO ()+foreign import ccall "genpop__QListQString_removeLast" removeLast' ::  HoppyF.Ptr QListQString -> HoppyP.IO ()+foreign import ccall "genpop__QListQString_removeOne" removeOne' ::  HoppyF.Ptr QListQString -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQString_replace" replace' ::  HoppyF.Ptr QListQString -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQString_reserve" reserve' ::  HoppyF.Ptr QListQString -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQString_size" size' ::  HoppyF.Ptr QListQStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQString_startsWith" startsWith' ::  HoppyF.Ptr QListQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQString_swap" swap' ::  HoppyF.Ptr QListQString -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQString_takeAt" takeAt' ::  HoppyF.Ptr QListQString -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QListQString_takeFirst" takeFirst' ::  HoppyF.Ptr QListQString -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QListQString_takeLast" takeLast' ::  HoppyF.Ptr QListQString -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QListQString_value" value' ::  HoppyF.Ptr QListQStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QListQString_valueOr" valueOr' ::  HoppyF.Ptr QListQStringConst -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QListQString_ADD" aDD' ::  HoppyF.Ptr QListQStringConst -> HoppyF.Ptr QListQStringConst -> HoppyP.IO (HoppyF.Ptr QListQString)+foreign import ccall "genpop__QListQString_ASSIGN" aSSIGN' ::  HoppyF.Ptr QListQString -> HoppyF.Ptr QListQStringConst -> HoppyP.IO (HoppyF.Ptr QListQString)+foreign import ccall "gendel__QListQString" delete'QListQString :: HoppyF.Ptr QListQStringConst -> HoppyP.IO ()+foreign import ccall "&gendel__QListQString" deletePtr'QListQString :: HoppyF.FunPtr (HoppyF.Ptr QListQStringConst -> HoppyP.IO ())++class QListQStringValue a where+  withQListQStringPtr :: a -> (QListQStringConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQStringConstPtr a => QListQStringValue a where+  withQListQStringPtr = HoppyP.flip ($) . toQListQStringConst++instance {-# OVERLAPPING #-} QListQStringValue ([QtahP.String]) where+  withQListQStringPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QListQStringConstPtr this where+  toQListQStringConst :: this -> QListQStringConst++atConst :: (QListQStringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M142.QStringConst)+atConst arg'1 arg'2 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M142.QStringConst+  (atConst' arg'1' arg'2')++contains :: (QListQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QListQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++endsWith :: (QListQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QListQStringValue this) => (this) {- ^ this -} -> (HoppyP.IO M142.QStringConst)+firstConst arg'1 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M142.QStringConst+  (firstConst' arg'1')++get :: (QListQStringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+get arg'1 arg'2 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (get' arg'1' arg'2')++indexOf :: (QListQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QListQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QListQStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QListQStringValue this) => (this) {- ^ this -} -> (HoppyP.IO M142.QStringConst)+lastConst arg'1 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M142.QStringConst+  (lastConst' arg'1')++lastIndexOf :: (QListQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QListQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QListQStringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QListQString)+mid arg'1 arg'2 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQString+  (mid' arg'1' arg'2')++midLength :: (QListQStringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QListQString)+midLength arg'1 arg'2 arg'3 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQString+  (midLength' arg'1' arg'2' arg'3')++size :: (QListQStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QListQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QListQStringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+value arg'1 arg'2 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (value' arg'1' arg'2')++valueOr :: (QListQStringValue this, M142.QStringValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO QtahP.String)+valueOr arg'1 arg'2 arg'3 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QListQStringValue this, QListQStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQString)+aDD arg'1 arg'2 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQListQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQString+  (aDD' arg'1' arg'2')++class (QListQStringConstPtr this) => QListQStringPtr this where+  toQListQString :: this -> QListQString++append :: (QListQStringPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (append' arg'1' arg'2')++appendList :: (QListQStringPtr this, QListQStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendList arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  withQListQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendList' arg'1' arg'2')++at :: (QListQStringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M142.QString)+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M142.QString+  (at' arg'1' arg'2')++clear :: (QListQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  (clear' arg'1')++first :: (QListQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO M142.QString)+first arg'1 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  HoppyP.fmap M142.QString+  (first' arg'1')++insert :: (QListQStringPtr this, M142.QStringValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++last :: (QListQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO M142.QString)+last arg'1 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  HoppyP.fmap M142.QString+  (last' arg'1')++move :: (QListQStringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+move arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (move' arg'1' arg'2' arg'3')++prepend :: (QListQStringPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (prepend' arg'1' arg'2')++removeAll :: (QListQStringPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeAt :: (QListQStringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+removeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (removeAt' arg'1' arg'2')++removeFirst :: (QListQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QListQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QListQStringPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QListQStringPtr this, M142.QStringValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QListQStringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++swap :: (QListQStringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+swap arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (swap' arg'1' arg'2' arg'3')++takeAt :: (QListQStringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QListQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (takeFirst' arg'1')++takeLast :: (QListQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (takeLast' arg'1')++aSSIGN :: (QListQStringPtr this, QListQStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQString)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQString arg'1) $ \arg'1' ->+  withQListQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QListQString+  (aSSIGN' arg'1' arg'2')++data QListQStringConst =+    QListQStringConst (HoppyF.Ptr QListQStringConst)+  | QListQStringConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQStringConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQStringConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQStringConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQStringToConst :: QListQString -> QListQStringConst+castQListQStringToConst (QListQString ptr') = QListQStringConst $ HoppyF.castPtr ptr'+castQListQStringToConst (QListQStringGc fptr' ptr') = QListQStringConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQStringConst where+  nullptr = QListQStringConst HoppyF.nullPtr+  +  withCppPtr (QListQStringConst ptr') f' = f' ptr'+  withCppPtr (QListQStringConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQStringConst ptr') = ptr'+  toPtr (QListQStringConstGc _ ptr') = ptr'+  +  touchCppPtr (QListQStringConst _) = HoppyP.return ()+  touchCppPtr (QListQStringConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQStringConst where+  delete (QListQStringConst ptr') = delete'QListQString ptr'+  delete (QListQStringConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQStringConst", " object."]+  +  toGc this'@(QListQStringConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQStringConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQString :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQStringConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQStringConst QListQString where copy = newCopy++instance QListQStringConstPtr QListQStringConst where+  toQListQStringConst = HoppyP.id++data QListQString =+    QListQString (HoppyF.Ptr QListQString)+  | QListQStringGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQString)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQString where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQString where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQStringToNonconst :: QListQStringConst -> QListQString+castQListQStringToNonconst (QListQStringConst ptr') = QListQString $ HoppyF.castPtr ptr'+castQListQStringToNonconst (QListQStringConstGc fptr' ptr') = QListQStringGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQString where+  nullptr = QListQString HoppyF.nullPtr+  +  withCppPtr (QListQString ptr') f' = f' ptr'+  withCppPtr (QListQStringGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQString ptr') = ptr'+  toPtr (QListQStringGc _ ptr') = ptr'+  +  touchCppPtr (QListQString _) = HoppyP.return ()+  touchCppPtr (QListQStringGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQString where+  delete (QListQString ptr') = delete'QListQString $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QListQStringConst)+  delete (QListQStringGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQString", " object."]+  +  toGc this'@(QListQString ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQStringGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQString :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQStringGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQString QListQString where copy = newCopy++instance QListQStringConstPtr QListQString where+  toQListQStringConst (QListQString ptr') = QListQStringConst $ (HoppyF.castPtr :: HoppyF.Ptr QListQString -> HoppyF.Ptr QListQStringConst) ptr'+  toQListQStringConst (QListQStringGc fptr' ptr') = QListQStringConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QListQString -> HoppyF.Ptr QListQStringConst) ptr'++instance QListQStringPtr QListQString where+  toQListQString = HoppyP.id++new :: (HoppyP.IO QListQString)+new =+  HoppyP.fmap QListQString+  (new')++newCopy :: (QListQStringValue arg'1) => (arg'1) -> (HoppyP.IO QListQString)+newCopy arg'1 =+  withQListQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QListQString+  (newCopy' arg'1')++class QListQStringSuper a where+  downToQListQString :: a -> QListQString+++class QListQStringSuperConst a where+  downToQListQStringConst :: a -> QListQStringConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QListQString)) QListQString where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QListQStringValue a => HoppyFHR.Assignable QListQString a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQString)) QListQString where+  decode = HoppyP.fmap QListQString . HoppyF.peek++instance HoppyFHR.Encodable QListQString ([QtahP.String]) where+  encode =+    QtahFHR.fromContents++instance HoppyFHR.Encodable QListQStringConst ([QtahP.String]) where+  encode = HoppyP.fmap (toQListQStringConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QListQString)++instance HoppyFHR.Decodable QListQString ([QtahP.String]) where+  decode = HoppyFHR.decode . toQListQStringConst++instance HoppyFHR.Decodable QListQStringConst ([QtahP.String]) where+  decode =+    QtahFHR.toContents++instance QtahFHR.HasContents QListQStringConst (QtahP.String) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QListQString (QtahP.String) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QListQString (QtahP.String) where+  fromContents values' = do+    list' <- new+    reserve list' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append list') values'+    QtahP.return list'
src/Graphics/UI/Qtah/Generated/Core/QList/QTreeWidgetItem.hs view
@@ -0,0 +1,591 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QTreeWidgetItem (+  QListQTreeWidgetItemValue (..),+  QListQTreeWidgetItemConstPtr (..),+  atConst,+  contains,+  count,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QListQTreeWidgetItemPtr (..),+  append,+  appendList,+  at,+  clear,+  first,+  insert,+  last,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QListQTreeWidgetItemConst (..),+  castQListQTreeWidgetItemToConst,+  QListQTreeWidgetItem (..),+  castQListQTreeWidgetItemToNonconst,+  new,+  newCopy,+  QListQTreeWidgetItemSuper (..),+  QListQTreeWidgetItemSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QTreeWidgetItem as M502+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QListQTreeWidgetItem_new" new' ::  HoppyP.IO (HoppyF.Ptr QListQTreeWidgetItem)+foreign import ccall "genpop__QListQTreeWidgetItem_newCopy" newCopy' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyP.IO (HoppyF.Ptr QListQTreeWidgetItem)+foreign import ccall "genpop__QListQTreeWidgetItem_append" append' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyP.IO ()+foreign import ccall "genpop__QListQTreeWidgetItem_appendList" appendList' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQTreeWidgetItem_at" at' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M502.QTreeWidgetItem))+foreign import ccall "genpop__QListQTreeWidgetItem_atConst" atConst' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M502.QTreeWidgetItem))+foreign import ccall "genpop__QListQTreeWidgetItem_clear" clear' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyP.IO ()+foreign import ccall "genpop__QListQTreeWidgetItem_contains" contains' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQTreeWidgetItem_count" count' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQTreeWidgetItem_endsWith" endsWith' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQTreeWidgetItem_first" first' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M502.QTreeWidgetItem))+foreign import ccall "genpop__QListQTreeWidgetItem_firstConst" firstConst' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M502.QTreeWidgetItem))+foreign import ccall "genpop__QListQTreeWidgetItem_get" get' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M502.QTreeWidgetItem)+foreign import ccall "genpop__QListQTreeWidgetItem_indexOf" indexOf' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQTreeWidgetItem_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQTreeWidgetItem_insert" insert' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyFC.CInt -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyP.IO ()+foreign import ccall "genpop__QListQTreeWidgetItem_isEmpty" isEmpty' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQTreeWidgetItem_last" last' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M502.QTreeWidgetItem))+foreign import ccall "genpop__QListQTreeWidgetItem_lastConst" lastConst' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M502.QTreeWidgetItem))+foreign import ccall "genpop__QListQTreeWidgetItem_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQTreeWidgetItem_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQTreeWidgetItem_mid" mid' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQTreeWidgetItem)+foreign import ccall "genpop__QListQTreeWidgetItem_midLength" midLength' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQTreeWidgetItem)+foreign import ccall "genpop__QListQTreeWidgetItem_move" move' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQTreeWidgetItem_prepend" prepend' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyP.IO ()+foreign import ccall "genpop__QListQTreeWidgetItem_removeAll" removeAll' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQTreeWidgetItem_removeAt" removeAt' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQTreeWidgetItem_removeFirst" removeFirst' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyP.IO ()+foreign import ccall "genpop__QListQTreeWidgetItem_removeLast" removeLast' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyP.IO ()+foreign import ccall "genpop__QListQTreeWidgetItem_removeOne" removeOne' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQTreeWidgetItem_replace" replace' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyFC.CInt -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyP.IO ()+foreign import ccall "genpop__QListQTreeWidgetItem_reserve" reserve' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQTreeWidgetItem_size" size' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQTreeWidgetItem_startsWith" startsWith' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQTreeWidgetItem_swap" swap' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQTreeWidgetItem_takeAt" takeAt' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M502.QTreeWidgetItem)+foreign import ccall "genpop__QListQTreeWidgetItem_takeFirst" takeFirst' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyP.IO (HoppyF.Ptr M502.QTreeWidgetItem)+foreign import ccall "genpop__QListQTreeWidgetItem_takeLast" takeLast' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyP.IO (HoppyF.Ptr M502.QTreeWidgetItem)+foreign import ccall "genpop__QListQTreeWidgetItem_value" value' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M502.QTreeWidgetItem)+foreign import ccall "genpop__QListQTreeWidgetItem_valueOr" valueOr' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyFC.CInt -> HoppyF.Ptr M502.QTreeWidgetItem -> HoppyP.IO (HoppyF.Ptr M502.QTreeWidgetItem)+foreign import ccall "genpop__QListQTreeWidgetItem_ADD" aDD' ::  HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyP.IO (HoppyF.Ptr QListQTreeWidgetItem)+foreign import ccall "genpop__QListQTreeWidgetItem_ASSIGN" aSSIGN' ::  HoppyF.Ptr QListQTreeWidgetItem -> HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyP.IO (HoppyF.Ptr QListQTreeWidgetItem)+foreign import ccall "gendel__QListQTreeWidgetItem" delete'QListQTreeWidgetItem :: HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyP.IO ()+foreign import ccall "&gendel__QListQTreeWidgetItem" deletePtr'QListQTreeWidgetItem :: HoppyF.FunPtr (HoppyF.Ptr QListQTreeWidgetItemConst -> HoppyP.IO ())++class QListQTreeWidgetItemValue a where+  withQListQTreeWidgetItemPtr :: a -> (QListQTreeWidgetItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQTreeWidgetItemConstPtr a => QListQTreeWidgetItemValue a where+  withQListQTreeWidgetItemPtr = HoppyP.flip ($) . toQListQTreeWidgetItemConst++instance {-# OVERLAPPING #-} QListQTreeWidgetItemValue ([M502.QTreeWidgetItem]) where+  withQListQTreeWidgetItemPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QListQTreeWidgetItemConstPtr this where+  toQListQTreeWidgetItemConst :: this -> QListQTreeWidgetItemConst++atConst :: (QListQTreeWidgetItemValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M502.QTreeWidgetItem)))+atConst arg'1 arg'2 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (atConst' arg'1' arg'2')++contains :: (QListQTreeWidgetItemValue this, M502.QTreeWidgetItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M502.toQTreeWidgetItem arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QListQTreeWidgetItemValue this, M502.QTreeWidgetItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M502.toQTreeWidgetItem arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++endsWith :: (QListQTreeWidgetItemValue this, M502.QTreeWidgetItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M502.toQTreeWidgetItem arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QListQTreeWidgetItemValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M502.QTreeWidgetItem)))+firstConst arg'1 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (firstConst' arg'1')++get :: (QListQTreeWidgetItemValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M502.QTreeWidgetItem)+get arg'1 arg'2 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M502.QTreeWidgetItem+  (get' arg'1' arg'2')++indexOf :: (QListQTreeWidgetItemValue this, M502.QTreeWidgetItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M502.toQTreeWidgetItem arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QListQTreeWidgetItemValue this, M502.QTreeWidgetItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M502.toQTreeWidgetItem arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QListQTreeWidgetItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QListQTreeWidgetItemValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M502.QTreeWidgetItem)))+lastConst arg'1 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (lastConst' arg'1')++lastIndexOf :: (QListQTreeWidgetItemValue this, M502.QTreeWidgetItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M502.toQTreeWidgetItem arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QListQTreeWidgetItemValue this, M502.QTreeWidgetItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M502.toQTreeWidgetItem arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QListQTreeWidgetItemValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QListQTreeWidgetItem)+mid arg'1 arg'2 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQTreeWidgetItem+  (mid' arg'1' arg'2')++midLength :: (QListQTreeWidgetItemValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QListQTreeWidgetItem)+midLength arg'1 arg'2 arg'3 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQTreeWidgetItem+  (midLength' arg'1' arg'2' arg'3')++size :: (QListQTreeWidgetItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QListQTreeWidgetItemValue this, M502.QTreeWidgetItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M502.toQTreeWidgetItem arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QListQTreeWidgetItemValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M502.QTreeWidgetItem)+value arg'1 arg'2 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M502.QTreeWidgetItem+  (value' arg'1' arg'2')++valueOr :: (QListQTreeWidgetItemValue this, M502.QTreeWidgetItemPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO M502.QTreeWidgetItem)+valueOr arg'1 arg'2 arg'3 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M502.toQTreeWidgetItem arg'3) $ \arg'3' ->+  HoppyP.fmap M502.QTreeWidgetItem+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QListQTreeWidgetItemValue this, QListQTreeWidgetItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQTreeWidgetItem)+aDD arg'1 arg'2 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQListQTreeWidgetItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQTreeWidgetItem+  (aDD' arg'1' arg'2')++class (QListQTreeWidgetItemConstPtr this) => QListQTreeWidgetItemPtr this where+  toQListQTreeWidgetItem :: this -> QListQTreeWidgetItem++append :: (QListQTreeWidgetItemPtr this, M502.QTreeWidgetItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M502.toQTreeWidgetItem arg'2) $ \arg'2' ->+  (append' arg'1' arg'2')++appendList :: (QListQTreeWidgetItemPtr this, QListQTreeWidgetItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendList arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  withQListQTreeWidgetItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendList' arg'1' arg'2')++at :: (QListQTreeWidgetItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M502.QTreeWidgetItem)))+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (at' arg'1' arg'2')++clear :: (QListQTreeWidgetItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  (clear' arg'1')++first :: (QListQTreeWidgetItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M502.QTreeWidgetItem)))+first arg'1 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  (first' arg'1')++insert :: (QListQTreeWidgetItemPtr this, M502.QTreeWidgetItemPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M502.toQTreeWidgetItem arg'3) $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++last :: (QListQTreeWidgetItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M502.QTreeWidgetItem)))+last arg'1 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  (last' arg'1')++move :: (QListQTreeWidgetItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+move arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (move' arg'1' arg'2' arg'3')++prepend :: (QListQTreeWidgetItemPtr this, M502.QTreeWidgetItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M502.toQTreeWidgetItem arg'2) $ \arg'2' ->+  (prepend' arg'1' arg'2')++removeAll :: (QListQTreeWidgetItemPtr this, M502.QTreeWidgetItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M502.toQTreeWidgetItem arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeAt :: (QListQTreeWidgetItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+removeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (removeAt' arg'1' arg'2')++removeFirst :: (QListQTreeWidgetItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QListQTreeWidgetItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QListQTreeWidgetItemPtr this, M502.QTreeWidgetItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M502.toQTreeWidgetItem arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QListQTreeWidgetItemPtr this, M502.QTreeWidgetItemPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M502.toQTreeWidgetItem arg'3) $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QListQTreeWidgetItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++swap :: (QListQTreeWidgetItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+swap arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (swap' arg'1' arg'2' arg'3')++takeAt :: (QListQTreeWidgetItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M502.QTreeWidgetItem)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M502.QTreeWidgetItem+  (takeAt' arg'1' arg'2')++takeFirst :: (QListQTreeWidgetItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO M502.QTreeWidgetItem)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  HoppyP.fmap M502.QTreeWidgetItem+  (takeFirst' arg'1')++takeLast :: (QListQTreeWidgetItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO M502.QTreeWidgetItem)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  HoppyP.fmap M502.QTreeWidgetItem+  (takeLast' arg'1')++aSSIGN :: (QListQTreeWidgetItemPtr this, QListQTreeWidgetItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQTreeWidgetItem)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQTreeWidgetItem arg'1) $ \arg'1' ->+  withQListQTreeWidgetItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QListQTreeWidgetItem+  (aSSIGN' arg'1' arg'2')++data QListQTreeWidgetItemConst =+    QListQTreeWidgetItemConst (HoppyF.Ptr QListQTreeWidgetItemConst)+  | QListQTreeWidgetItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQTreeWidgetItemConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQTreeWidgetItemConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQTreeWidgetItemConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQTreeWidgetItemToConst :: QListQTreeWidgetItem -> QListQTreeWidgetItemConst+castQListQTreeWidgetItemToConst (QListQTreeWidgetItem ptr') = QListQTreeWidgetItemConst $ HoppyF.castPtr ptr'+castQListQTreeWidgetItemToConst (QListQTreeWidgetItemGc fptr' ptr') = QListQTreeWidgetItemConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQTreeWidgetItemConst where+  nullptr = QListQTreeWidgetItemConst HoppyF.nullPtr+  +  withCppPtr (QListQTreeWidgetItemConst ptr') f' = f' ptr'+  withCppPtr (QListQTreeWidgetItemConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQTreeWidgetItemConst ptr') = ptr'+  toPtr (QListQTreeWidgetItemConstGc _ ptr') = ptr'+  +  touchCppPtr (QListQTreeWidgetItemConst _) = HoppyP.return ()+  touchCppPtr (QListQTreeWidgetItemConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQTreeWidgetItemConst where+  delete (QListQTreeWidgetItemConst ptr') = delete'QListQTreeWidgetItem ptr'+  delete (QListQTreeWidgetItemConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQTreeWidgetItemConst", " object."]+  +  toGc this'@(QListQTreeWidgetItemConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQTreeWidgetItemConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQTreeWidgetItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQTreeWidgetItemConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQTreeWidgetItemConst QListQTreeWidgetItem where copy = newCopy++instance QListQTreeWidgetItemConstPtr QListQTreeWidgetItemConst where+  toQListQTreeWidgetItemConst = HoppyP.id++data QListQTreeWidgetItem =+    QListQTreeWidgetItem (HoppyF.Ptr QListQTreeWidgetItem)+  | QListQTreeWidgetItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQTreeWidgetItem)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQTreeWidgetItem where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQTreeWidgetItem where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQTreeWidgetItemToNonconst :: QListQTreeWidgetItemConst -> QListQTreeWidgetItem+castQListQTreeWidgetItemToNonconst (QListQTreeWidgetItemConst ptr') = QListQTreeWidgetItem $ HoppyF.castPtr ptr'+castQListQTreeWidgetItemToNonconst (QListQTreeWidgetItemConstGc fptr' ptr') = QListQTreeWidgetItemGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQTreeWidgetItem where+  nullptr = QListQTreeWidgetItem HoppyF.nullPtr+  +  withCppPtr (QListQTreeWidgetItem ptr') f' = f' ptr'+  withCppPtr (QListQTreeWidgetItemGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQTreeWidgetItem ptr') = ptr'+  toPtr (QListQTreeWidgetItemGc _ ptr') = ptr'+  +  touchCppPtr (QListQTreeWidgetItem _) = HoppyP.return ()+  touchCppPtr (QListQTreeWidgetItemGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQTreeWidgetItem where+  delete (QListQTreeWidgetItem ptr') = delete'QListQTreeWidgetItem $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QListQTreeWidgetItemConst)+  delete (QListQTreeWidgetItemGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQTreeWidgetItem", " object."]+  +  toGc this'@(QListQTreeWidgetItem ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQTreeWidgetItemGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQTreeWidgetItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQTreeWidgetItemGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQTreeWidgetItem QListQTreeWidgetItem where copy = newCopy++instance QListQTreeWidgetItemConstPtr QListQTreeWidgetItem where+  toQListQTreeWidgetItemConst (QListQTreeWidgetItem ptr') = QListQTreeWidgetItemConst $ (HoppyF.castPtr :: HoppyF.Ptr QListQTreeWidgetItem -> HoppyF.Ptr QListQTreeWidgetItemConst) ptr'+  toQListQTreeWidgetItemConst (QListQTreeWidgetItemGc fptr' ptr') = QListQTreeWidgetItemConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QListQTreeWidgetItem -> HoppyF.Ptr QListQTreeWidgetItemConst) ptr'++instance QListQTreeWidgetItemPtr QListQTreeWidgetItem where+  toQListQTreeWidgetItem = HoppyP.id++new :: (HoppyP.IO QListQTreeWidgetItem)+new =+  HoppyP.fmap QListQTreeWidgetItem+  (new')++newCopy :: (QListQTreeWidgetItemValue arg'1) => (arg'1) -> (HoppyP.IO QListQTreeWidgetItem)+newCopy arg'1 =+  withQListQTreeWidgetItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QListQTreeWidgetItem+  (newCopy' arg'1')++class QListQTreeWidgetItemSuper a where+  downToQListQTreeWidgetItem :: a -> QListQTreeWidgetItem+++class QListQTreeWidgetItemSuperConst a where+  downToQListQTreeWidgetItemConst :: a -> QListQTreeWidgetItemConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QListQTreeWidgetItem)) QListQTreeWidgetItem where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QListQTreeWidgetItemValue a => HoppyFHR.Assignable QListQTreeWidgetItem a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQTreeWidgetItem)) QListQTreeWidgetItem where+  decode = HoppyP.fmap QListQTreeWidgetItem . HoppyF.peek++instance HoppyFHR.Encodable QListQTreeWidgetItem ([M502.QTreeWidgetItem]) where+  encode =+    QtahFHR.fromContents++instance HoppyFHR.Encodable QListQTreeWidgetItemConst ([M502.QTreeWidgetItem]) where+  encode = HoppyP.fmap (toQListQTreeWidgetItemConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QListQTreeWidgetItem)++instance HoppyFHR.Decodable QListQTreeWidgetItem ([M502.QTreeWidgetItem]) where+  decode = HoppyFHR.decode . toQListQTreeWidgetItemConst++instance HoppyFHR.Decodable QListQTreeWidgetItemConst ([M502.QTreeWidgetItem]) where+  decode =+    QtahFHR.toContents++instance QtahFHR.HasContents QListQTreeWidgetItemConst (M502.QTreeWidgetItem) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QListQTreeWidgetItem (M502.QTreeWidgetItem) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QListQTreeWidgetItem (M502.QTreeWidgetItem) where+  fromContents values' = do+    list' <- new+    reserve list' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append list') values'+    QtahP.return list'
+ src/Graphics/UI/Qtah/Generated/Core/QList/QTreeWidgetItem.hs-boot view
@@ -0,0 +1,65 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QTreeWidgetItem (+  QListQTreeWidgetItemValue (..),+  QListQTreeWidgetItemConstPtr (..),+  QListQTreeWidgetItemPtr (..),+  QListQTreeWidgetItemConst (..),+  castQListQTreeWidgetItemToConst,+  QListQTreeWidgetItem (..),+  castQListQTreeWidgetItemToNonconst,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QTreeWidgetItem as M502+import qualified Prelude as HoppyP+++class QListQTreeWidgetItemValue a where+  withQListQTreeWidgetItemPtr :: a -> (QListQTreeWidgetItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQTreeWidgetItemConstPtr a => QListQTreeWidgetItemValue a++instance {-# OVERLAPPING #-} QListQTreeWidgetItemValue ([M502.QTreeWidgetItem])++class (HoppyFHR.CppPtr this) => QListQTreeWidgetItemConstPtr this where+  toQListQTreeWidgetItemConst :: this -> QListQTreeWidgetItemConst++class (QListQTreeWidgetItemConstPtr this) => QListQTreeWidgetItemPtr this where+  toQListQTreeWidgetItem :: this -> QListQTreeWidgetItem++data QListQTreeWidgetItemConst =+    QListQTreeWidgetItemConst (HoppyF.Ptr QListQTreeWidgetItemConst)+  | QListQTreeWidgetItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQTreeWidgetItemConst)++castQListQTreeWidgetItemToConst :: QListQTreeWidgetItem -> QListQTreeWidgetItemConst++instance HoppyFHR.CppPtr QListQTreeWidgetItemConst+instance HoppyFHR.Deletable QListQTreeWidgetItemConst+instance HoppyFHR.Copyable QListQTreeWidgetItemConst QListQTreeWidgetItem++instance QListQTreeWidgetItemConstPtr QListQTreeWidgetItemConst++data QListQTreeWidgetItem =+    QListQTreeWidgetItem (HoppyF.Ptr QListQTreeWidgetItem)+  | QListQTreeWidgetItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQTreeWidgetItem)++castQListQTreeWidgetItemToNonconst :: QListQTreeWidgetItemConst -> QListQTreeWidgetItem++instance HoppyFHR.CppPtr QListQTreeWidgetItem+instance HoppyFHR.Deletable QListQTreeWidgetItem+instance HoppyFHR.Copyable QListQTreeWidgetItem QListQTreeWidgetItem++instance QListQTreeWidgetItemConstPtr QListQTreeWidgetItem++instance QListQTreeWidgetItemPtr QListQTreeWidgetItem++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQTreeWidgetItem)) QListQTreeWidgetItem++instance HoppyFHR.Encodable QListQTreeWidgetItem (([M502.QTreeWidgetItem]))+instance HoppyFHR.Encodable QListQTreeWidgetItemConst (([M502.QTreeWidgetItem]))++instance HoppyFHR.Decodable QListQTreeWidgetItem (([M502.QTreeWidgetItem]))+instance HoppyFHR.Decodable QListQTreeWidgetItemConst (([M502.QTreeWidgetItem]))
src/Graphics/UI/Qtah/Generated/Core/QList/QVariant.hs view
@@ -0,0 +1,597 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QVariant (+  QListQVariantValue (..),+  QListQVariantConstPtr (..),+  atConst,+  contains,+  count,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QListQVariantPtr (..),+  append,+  appendList,+  at,+  clear,+  first,+  insert,+  last,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QListQVariantConst (..),+  castQListQVariantToConst,+  QListQVariant (..),+  castQListQVariantToNonconst,+  new,+  newCopy,+  QListQVariantSuper (..),+  QListQVariantSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QListQVariant_new" new' ::  HoppyP.IO (HoppyF.Ptr QListQVariant)+foreign import ccall "genpop__QListQVariant_newCopy" newCopy' ::  HoppyF.Ptr QListQVariantConst -> HoppyP.IO (HoppyF.Ptr QListQVariant)+foreign import ccall "genpop__QListQVariant_append" append' ::  HoppyF.Ptr QListQVariant -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQVariant_appendList" appendList' ::  HoppyF.Ptr QListQVariant -> HoppyF.Ptr QListQVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQVariant_at" at' ::  HoppyF.Ptr QListQVariant -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M168.QVariant)+foreign import ccall "genpop__QListQVariant_atConst" atConst' ::  HoppyF.Ptr QListQVariantConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QListQVariant_clear" clear' ::  HoppyF.Ptr QListQVariant -> HoppyP.IO ()+foreign import ccall "genpop__QListQVariant_contains" contains' ::  HoppyF.Ptr QListQVariantConst -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQVariant_count" count' ::  HoppyF.Ptr QListQVariantConst -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQVariant_endsWith" endsWith' ::  HoppyF.Ptr QListQVariantConst -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQVariant_first" first' ::  HoppyF.Ptr QListQVariant -> HoppyP.IO (HoppyF.Ptr M168.QVariant)+foreign import ccall "genpop__QListQVariant_firstConst" firstConst' ::  HoppyF.Ptr QListQVariantConst -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QListQVariant_get" get' ::  HoppyF.Ptr QListQVariantConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QListQVariant_indexOf" indexOf' ::  HoppyF.Ptr QListQVariantConst -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQVariant_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QListQVariantConst -> HoppyF.Ptr M168.QVariantConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQVariant_insert" insert' ::  HoppyF.Ptr QListQVariant -> HoppyFC.CInt -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQVariant_isEmpty" isEmpty' ::  HoppyF.Ptr QListQVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQVariant_last" last' ::  HoppyF.Ptr QListQVariant -> HoppyP.IO (HoppyF.Ptr M168.QVariant)+foreign import ccall "genpop__QListQVariant_lastConst" lastConst' ::  HoppyF.Ptr QListQVariantConst -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QListQVariant_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QListQVariantConst -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQVariant_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QListQVariantConst -> HoppyF.Ptr M168.QVariantConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQVariant_mid" mid' ::  HoppyF.Ptr QListQVariantConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQVariant)+foreign import ccall "genpop__QListQVariant_midLength" midLength' ::  HoppyF.Ptr QListQVariantConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQVariant)+foreign import ccall "genpop__QListQVariant_move" move' ::  HoppyF.Ptr QListQVariant -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQVariant_prepend" prepend' ::  HoppyF.Ptr QListQVariant -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQVariant_removeAll" removeAll' ::  HoppyF.Ptr QListQVariant -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQVariant_removeAt" removeAt' ::  HoppyF.Ptr QListQVariant -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQVariant_removeFirst" removeFirst' ::  HoppyF.Ptr QListQVariant -> HoppyP.IO ()+foreign import ccall "genpop__QListQVariant_removeLast" removeLast' ::  HoppyF.Ptr QListQVariant -> HoppyP.IO ()+foreign import ccall "genpop__QListQVariant_removeOne" removeOne' ::  HoppyF.Ptr QListQVariant -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQVariant_replace" replace' ::  HoppyF.Ptr QListQVariant -> HoppyFC.CInt -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQVariant_reserve" reserve' ::  HoppyF.Ptr QListQVariant -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQVariant_size" size' ::  HoppyF.Ptr QListQVariantConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQVariant_startsWith" startsWith' ::  HoppyF.Ptr QListQVariantConst -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQVariant_swap" swap' ::  HoppyF.Ptr QListQVariant -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQVariant_takeAt" takeAt' ::  HoppyF.Ptr QListQVariant -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QListQVariant_takeFirst" takeFirst' ::  HoppyF.Ptr QListQVariant -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QListQVariant_takeLast" takeLast' ::  HoppyF.Ptr QListQVariant -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QListQVariant_value" value' ::  HoppyF.Ptr QListQVariantConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QListQVariant_valueOr" valueOr' ::  HoppyF.Ptr QListQVariantConst -> HoppyFC.CInt -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QListQVariant_ADD" aDD' ::  HoppyF.Ptr QListQVariantConst -> HoppyF.Ptr QListQVariantConst -> HoppyP.IO (HoppyF.Ptr QListQVariant)+foreign import ccall "genpop__QListQVariant_ASSIGN" aSSIGN' ::  HoppyF.Ptr QListQVariant -> HoppyF.Ptr QListQVariantConst -> HoppyP.IO (HoppyF.Ptr QListQVariant)+foreign import ccall "gendel__QListQVariant" delete'QListQVariant :: HoppyF.Ptr QListQVariantConst -> HoppyP.IO ()+foreign import ccall "&gendel__QListQVariant" deletePtr'QListQVariant :: HoppyF.FunPtr (HoppyF.Ptr QListQVariantConst -> HoppyP.IO ())++class QListQVariantValue a where+  withQListQVariantPtr :: a -> (QListQVariantConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQVariantConstPtr a => QListQVariantValue a where+  withQListQVariantPtr = HoppyP.flip ($) . toQListQVariantConst++instance {-# OVERLAPPING #-} QListQVariantValue ([M168.QVariant]) where+  withQListQVariantPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QListQVariantConstPtr this where+  toQListQVariantConst :: this -> QListQVariantConst++atConst :: (QListQVariantValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M168.QVariantConst)+atConst arg'1 arg'2 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M168.QVariantConst+  (atConst' arg'1' arg'2')++contains :: (QListQVariantValue this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QListQVariantValue this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++endsWith :: (QListQVariantValue this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QListQVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO M168.QVariantConst)+firstConst arg'1 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M168.QVariantConst+  (firstConst' arg'1')++get :: (QListQVariantValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M168.QVariant)+get arg'1 arg'2 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (get' arg'1' arg'2')++indexOf :: (QListQVariantValue this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QListQVariantValue this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QListQVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QListQVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO M168.QVariantConst)+lastConst arg'1 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M168.QVariantConst+  (lastConst' arg'1')++lastIndexOf :: (QListQVariantValue this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QListQVariantValue this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QListQVariantValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QListQVariant)+mid arg'1 arg'2 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQVariant+  (mid' arg'1' arg'2')++midLength :: (QListQVariantValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QListQVariant)+midLength arg'1 arg'2 arg'3 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQVariant+  (midLength' arg'1' arg'2' arg'3')++size :: (QListQVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QListQVariantValue this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QListQVariantValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M168.QVariant)+value arg'1 arg'2 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (value' arg'1' arg'2')++valueOr :: (QListQVariantValue this, M168.QVariantValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO M168.QVariant)+valueOr arg'1 arg'2 arg'3 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M168.withQVariantPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QListQVariantValue this, QListQVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQVariant)+aDD arg'1 arg'2 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQListQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQVariant+  (aDD' arg'1' arg'2')++class (QListQVariantConstPtr this) => QListQVariantPtr this where+  toQListQVariant :: this -> QListQVariant++append :: (QListQVariantPtr this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (append' arg'1' arg'2')++appendList :: (QListQVariantPtr this, QListQVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendList arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  withQListQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendList' arg'1' arg'2')++at :: (QListQVariantPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M168.QVariant)+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M168.QVariant+  (at' arg'1' arg'2')++clear :: (QListQVariantPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  (clear' arg'1')++first :: (QListQVariantPtr this) => (this) {- ^ this -} -> (HoppyP.IO M168.QVariant)+first arg'1 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  HoppyP.fmap M168.QVariant+  (first' arg'1')++insert :: (QListQVariantPtr this, M168.QVariantValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M168.withQVariantPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++last :: (QListQVariantPtr this) => (this) {- ^ this -} -> (HoppyP.IO M168.QVariant)+last arg'1 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  HoppyP.fmap M168.QVariant+  (last' arg'1')++move :: (QListQVariantPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+move arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (move' arg'1' arg'2' arg'3')++prepend :: (QListQVariantPtr this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (prepend' arg'1' arg'2')++removeAll :: (QListQVariantPtr this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeAt :: (QListQVariantPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+removeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (removeAt' arg'1' arg'2')++removeFirst :: (QListQVariantPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QListQVariantPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QListQVariantPtr this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QListQVariantPtr this, M168.QVariantValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M168.withQVariantPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QListQVariantPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++swap :: (QListQVariantPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+swap arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (swap' arg'1' arg'2' arg'3')++takeAt :: (QListQVariantPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M168.QVariant)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QListQVariantPtr this) => (this) {- ^ this -} -> (HoppyP.IO M168.QVariant)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (takeFirst' arg'1')++takeLast :: (QListQVariantPtr this) => (this) {- ^ this -} -> (HoppyP.IO M168.QVariant)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (takeLast' arg'1')++aSSIGN :: (QListQVariantPtr this, QListQVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQVariant)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQVariant arg'1) $ \arg'1' ->+  withQListQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QListQVariant+  (aSSIGN' arg'1' arg'2')++data QListQVariantConst =+    QListQVariantConst (HoppyF.Ptr QListQVariantConst)+  | QListQVariantConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQVariantConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQVariantConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQVariantConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQVariantToConst :: QListQVariant -> QListQVariantConst+castQListQVariantToConst (QListQVariant ptr') = QListQVariantConst $ HoppyF.castPtr ptr'+castQListQVariantToConst (QListQVariantGc fptr' ptr') = QListQVariantConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQVariantConst where+  nullptr = QListQVariantConst HoppyF.nullPtr+  +  withCppPtr (QListQVariantConst ptr') f' = f' ptr'+  withCppPtr (QListQVariantConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQVariantConst ptr') = ptr'+  toPtr (QListQVariantConstGc _ ptr') = ptr'+  +  touchCppPtr (QListQVariantConst _) = HoppyP.return ()+  touchCppPtr (QListQVariantConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQVariantConst where+  delete (QListQVariantConst ptr') = delete'QListQVariant ptr'+  delete (QListQVariantConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQVariantConst", " object."]+  +  toGc this'@(QListQVariantConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQVariantConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQVariant :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQVariantConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQVariantConst QListQVariant where copy = newCopy++instance QListQVariantConstPtr QListQVariantConst where+  toQListQVariantConst = HoppyP.id++data QListQVariant =+    QListQVariant (HoppyF.Ptr QListQVariant)+  | QListQVariantGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQVariant)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQVariant where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQVariant where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQVariantToNonconst :: QListQVariantConst -> QListQVariant+castQListQVariantToNonconst (QListQVariantConst ptr') = QListQVariant $ HoppyF.castPtr ptr'+castQListQVariantToNonconst (QListQVariantConstGc fptr' ptr') = QListQVariantGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQVariant where+  nullptr = QListQVariant HoppyF.nullPtr+  +  withCppPtr (QListQVariant ptr') f' = f' ptr'+  withCppPtr (QListQVariantGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQVariant ptr') = ptr'+  toPtr (QListQVariantGc _ ptr') = ptr'+  +  touchCppPtr (QListQVariant _) = HoppyP.return ()+  touchCppPtr (QListQVariantGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQVariant where+  delete (QListQVariant ptr') = delete'QListQVariant $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QListQVariantConst)+  delete (QListQVariantGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQVariant", " object."]+  +  toGc this'@(QListQVariant ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQVariantGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQVariant :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQVariantGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQVariant QListQVariant where copy = newCopy++instance QListQVariantConstPtr QListQVariant where+  toQListQVariantConst (QListQVariant ptr') = QListQVariantConst $ (HoppyF.castPtr :: HoppyF.Ptr QListQVariant -> HoppyF.Ptr QListQVariantConst) ptr'+  toQListQVariantConst (QListQVariantGc fptr' ptr') = QListQVariantConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QListQVariant -> HoppyF.Ptr QListQVariantConst) ptr'++instance QListQVariantPtr QListQVariant where+  toQListQVariant = HoppyP.id++new :: (HoppyP.IO QListQVariant)+new =+  HoppyP.fmap QListQVariant+  (new')++newCopy :: (QListQVariantValue arg'1) => (arg'1) -> (HoppyP.IO QListQVariant)+newCopy arg'1 =+  withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QListQVariant+  (newCopy' arg'1')++class QListQVariantSuper a where+  downToQListQVariant :: a -> QListQVariant+++class QListQVariantSuperConst a where+  downToQListQVariantConst :: a -> QListQVariantConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QListQVariant)) QListQVariant where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QListQVariantValue a => HoppyFHR.Assignable QListQVariant a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQVariant)) QListQVariant where+  decode = HoppyP.fmap QListQVariant . HoppyF.peek++instance HoppyFHR.Encodable QListQVariant ([M168.QVariant]) where+  encode =+    QtahFHR.fromContents++instance HoppyFHR.Encodable QListQVariantConst ([M168.QVariant]) where+  encode = HoppyP.fmap (toQListQVariantConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QListQVariant)++instance HoppyFHR.Decodable QListQVariant ([M168.QVariant]) where+  decode = HoppyFHR.decode . toQListQVariantConst++instance HoppyFHR.Decodable QListQVariantConst ([M168.QVariant]) where+  decode =+    QtahFHR.toContents++instance QtahFHR.HasContents QListQVariantConst (M168.QVariant) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QListQVariant (M168.QVariant) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QListQVariant (M168.QVariant) where+  fromContents values' = do+    list' <- new+    reserve list' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append list') values'+    QtahP.return list'
+ src/Graphics/UI/Qtah/Generated/Core/QList/QVariant.hs-boot view
@@ -0,0 +1,65 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QVariant (+  QListQVariantValue (..),+  QListQVariantConstPtr (..),+  QListQVariantPtr (..),+  QListQVariantConst (..),+  castQListQVariantToConst,+  QListQVariant (..),+  castQListQVariantToNonconst,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168+import qualified Prelude as HoppyP+++class QListQVariantValue a where+  withQListQVariantPtr :: a -> (QListQVariantConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQVariantConstPtr a => QListQVariantValue a++instance {-# OVERLAPPING #-} QListQVariantValue ([M168.QVariant])++class (HoppyFHR.CppPtr this) => QListQVariantConstPtr this where+  toQListQVariantConst :: this -> QListQVariantConst++class (QListQVariantConstPtr this) => QListQVariantPtr this where+  toQListQVariant :: this -> QListQVariant++data QListQVariantConst =+    QListQVariantConst (HoppyF.Ptr QListQVariantConst)+  | QListQVariantConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQVariantConst)++castQListQVariantToConst :: QListQVariant -> QListQVariantConst++instance HoppyFHR.CppPtr QListQVariantConst+instance HoppyFHR.Deletable QListQVariantConst+instance HoppyFHR.Copyable QListQVariantConst QListQVariant++instance QListQVariantConstPtr QListQVariantConst++data QListQVariant =+    QListQVariant (HoppyF.Ptr QListQVariant)+  | QListQVariantGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQVariant)++castQListQVariantToNonconst :: QListQVariantConst -> QListQVariant++instance HoppyFHR.CppPtr QListQVariant+instance HoppyFHR.Deletable QListQVariant+instance HoppyFHR.Copyable QListQVariant QListQVariant++instance QListQVariantConstPtr QListQVariant++instance QListQVariantPtr QListQVariant++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQVariant)) QListQVariant++instance HoppyFHR.Encodable QListQVariant (([M168.QVariant]))+instance HoppyFHR.Encodable QListQVariantConst (([M168.QVariant]))++instance HoppyFHR.Decodable QListQVariant (([M168.QVariant]))+instance HoppyFHR.Decodable QListQVariantConst (([M168.QVariant]))
src/Graphics/UI/Qtah/Generated/Core/QList/QWidget.hs view
@@ -0,0 +1,591 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QList.QWidget (+  QListQWidgetValue (..),+  QListQWidgetConstPtr (..),+  atConst,+  contains,+  count,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QListQWidgetPtr (..),+  append,+  appendList,+  at,+  clear,+  first,+  insert,+  last,+  move,+  prepend,+  removeAll,+  removeAt,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QListQWidgetConst (..),+  castQListQWidgetToConst,+  QListQWidget (..),+  castQListQWidgetToNonconst,+  new,+  newCopy,+  QListQWidgetSuper (..),+  QListQWidgetSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+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__QListQWidget_new" new' ::  HoppyP.IO (HoppyF.Ptr QListQWidget)+foreign import ccall "genpop__QListQWidget_newCopy" newCopy' ::  HoppyF.Ptr QListQWidgetConst -> HoppyP.IO (HoppyF.Ptr QListQWidget)+foreign import ccall "genpop__QListQWidget_append" append' ::  HoppyF.Ptr QListQWidget -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QListQWidget_appendList" appendList' ::  HoppyF.Ptr QListQWidget -> HoppyF.Ptr QListQWidgetConst -> HoppyP.IO ()+foreign import ccall "genpop__QListQWidget_at" at' ::  HoppyF.Ptr QListQWidget -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M506.QWidget))+foreign import ccall "genpop__QListQWidget_atConst" atConst' ::  HoppyF.Ptr QListQWidgetConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M506.QWidget))+foreign import ccall "genpop__QListQWidget_clear" clear' ::  HoppyF.Ptr QListQWidget -> HoppyP.IO ()+foreign import ccall "genpop__QListQWidget_contains" contains' ::  HoppyF.Ptr QListQWidgetConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQWidget_count" count' ::  HoppyF.Ptr QListQWidgetConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQWidget_endsWith" endsWith' ::  HoppyF.Ptr QListQWidgetConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQWidget_first" first' ::  HoppyF.Ptr QListQWidget -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M506.QWidget))+foreign import ccall "genpop__QListQWidget_firstConst" firstConst' ::  HoppyF.Ptr QListQWidgetConst -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M506.QWidget))+foreign import ccall "genpop__QListQWidget_get" get' ::  HoppyF.Ptr QListQWidgetConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QListQWidget_indexOf" indexOf' ::  HoppyF.Ptr QListQWidgetConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQWidget_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QListQWidgetConst -> HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQWidget_insert" insert' ::  HoppyF.Ptr QListQWidget -> HoppyFC.CInt -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QListQWidget_isEmpty" isEmpty' ::  HoppyF.Ptr QListQWidgetConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQWidget_last" last' ::  HoppyF.Ptr QListQWidget -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M506.QWidget))+foreign import ccall "genpop__QListQWidget_lastConst" lastConst' ::  HoppyF.Ptr QListQWidgetConst -> HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M506.QWidget))+foreign import ccall "genpop__QListQWidget_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QListQWidgetConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQWidget_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QListQWidgetConst -> HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQWidget_mid" mid' ::  HoppyF.Ptr QListQWidgetConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQWidget)+foreign import ccall "genpop__QListQWidget_midLength" midLength' ::  HoppyF.Ptr QListQWidgetConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QListQWidget)+foreign import ccall "genpop__QListQWidget_move" move' ::  HoppyF.Ptr QListQWidget -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQWidget_prepend" prepend' ::  HoppyF.Ptr QListQWidget -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QListQWidget_removeAll" removeAll' ::  HoppyF.Ptr QListQWidget -> HoppyF.Ptr M506.QWidget -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQWidget_removeAt" removeAt' ::  HoppyF.Ptr QListQWidget -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQWidget_removeFirst" removeFirst' ::  HoppyF.Ptr QListQWidget -> HoppyP.IO ()+foreign import ccall "genpop__QListQWidget_removeLast" removeLast' ::  HoppyF.Ptr QListQWidget -> HoppyP.IO ()+foreign import ccall "genpop__QListQWidget_removeOne" removeOne' ::  HoppyF.Ptr QListQWidget -> HoppyF.Ptr M506.QWidget -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQWidget_replace" replace' ::  HoppyF.Ptr QListQWidget -> HoppyFC.CInt -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QListQWidget_reserve" reserve' ::  HoppyF.Ptr QListQWidget -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQWidget_size" size' ::  HoppyF.Ptr QListQWidgetConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListQWidget_startsWith" startsWith' ::  HoppyF.Ptr QListQWidgetConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListQWidget_swap" swap' ::  HoppyF.Ptr QListQWidget -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListQWidget_takeAt" takeAt' ::  HoppyF.Ptr QListQWidget -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QListQWidget_takeFirst" takeFirst' ::  HoppyF.Ptr QListQWidget -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QListQWidget_takeLast" takeLast' ::  HoppyF.Ptr QListQWidget -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QListQWidget_value" value' ::  HoppyF.Ptr QListQWidgetConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QListQWidget_valueOr" valueOr' ::  HoppyF.Ptr QListQWidgetConst -> HoppyFC.CInt -> HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QListQWidget_ADD" aDD' ::  HoppyF.Ptr QListQWidgetConst -> HoppyF.Ptr QListQWidgetConst -> HoppyP.IO (HoppyF.Ptr QListQWidget)+foreign import ccall "genpop__QListQWidget_ASSIGN" aSSIGN' ::  HoppyF.Ptr QListQWidget -> HoppyF.Ptr QListQWidgetConst -> HoppyP.IO (HoppyF.Ptr QListQWidget)+foreign import ccall "gendel__QListQWidget" delete'QListQWidget :: HoppyF.Ptr QListQWidgetConst -> HoppyP.IO ()+foreign import ccall "&gendel__QListQWidget" deletePtr'QListQWidget :: HoppyF.FunPtr (HoppyF.Ptr QListQWidgetConst -> HoppyP.IO ())++class QListQWidgetValue a where+  withQListQWidgetPtr :: a -> (QListQWidgetConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListQWidgetConstPtr a => QListQWidgetValue a where+  withQListQWidgetPtr = HoppyP.flip ($) . toQListQWidgetConst++instance {-# OVERLAPPING #-} QListQWidgetValue ([M506.QWidget]) where+  withQListQWidgetPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QListQWidgetConstPtr this where+  toQListQWidgetConst :: this -> QListQWidgetConst++atConst :: (QListQWidgetValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M506.QWidget)))+atConst arg'1 arg'2 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (atConst' arg'1' arg'2')++contains :: (QListQWidgetValue this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QListQWidgetValue this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++endsWith :: (QListQWidgetValue this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QListQWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M506.QWidget)))+firstConst arg'1 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (firstConst' arg'1')++get :: (QListQWidgetValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M506.QWidget)+get arg'1 arg'2 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M506.QWidget+  (get' arg'1' arg'2')++indexOf :: (QListQWidgetValue this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QListQWidgetValue this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QListQWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QListQWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M506.QWidget)))+lastConst arg'1 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (lastConst' arg'1')++lastIndexOf :: (QListQWidgetValue this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QListQWidgetValue this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QListQWidgetValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QListQWidget)+mid arg'1 arg'2 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQWidget+  (mid' arg'1' arg'2')++midLength :: (QListQWidgetValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QListQWidget)+midLength arg'1 arg'2 arg'3 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQWidget+  (midLength' arg'1' arg'2' arg'3')++size :: (QListQWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QListQWidgetValue this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QListQWidgetValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M506.QWidget)+value arg'1 arg'2 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M506.QWidget+  (value' arg'1' arg'2')++valueOr :: (QListQWidgetValue this, M506.QWidgetPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO M506.QWidget)+valueOr arg'1 arg'2 arg'3 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'3) $ \arg'3' ->+  HoppyP.fmap M506.QWidget+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QListQWidgetValue this, QListQWidgetValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQWidget)+aDD arg'1 arg'2 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQListQWidgetPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QListQWidget+  (aDD' arg'1' arg'2')++class (QListQWidgetConstPtr this) => QListQWidgetPtr this where+  toQListQWidget :: this -> QListQWidget++append :: (QListQWidgetPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (append' arg'1' arg'2')++appendList :: (QListQWidgetPtr this, QListQWidgetValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendList arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  withQListQWidgetPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendList' arg'1' arg'2')++at :: (QListQWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M506.QWidget)))+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (at' arg'1' arg'2')++clear :: (QListQWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  (clear' arg'1')++first :: (QListQWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M506.QWidget)))+first arg'1 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  (first' arg'1')++insert :: (QListQWidgetPtr this, M506.QWidgetPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'3) $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++last :: (QListQWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr (HoppyF.Ptr M506.QWidget)))+last arg'1 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  (last' arg'1')++move :: (QListQWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+move arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (move' arg'1' arg'2' arg'3')++prepend :: (QListQWidgetPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (prepend' arg'1' arg'2')++removeAll :: (QListQWidgetPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeAt :: (QListQWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+removeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (removeAt' arg'1' arg'2')++removeFirst :: (QListQWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QListQWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QListQWidgetPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QListQWidgetPtr this, M506.QWidgetPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'3) $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QListQWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++swap :: (QListQWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+swap arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (swap' arg'1' arg'2' arg'3')++takeAt :: (QListQWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M506.QWidget)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M506.QWidget+  (takeAt' arg'1' arg'2')++takeFirst :: (QListQWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (takeFirst' arg'1')++takeLast :: (QListQWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (takeLast' arg'1')++aSSIGN :: (QListQWidgetPtr this, QListQWidgetValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QListQWidget)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListQWidget arg'1) $ \arg'1' ->+  withQListQWidgetPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QListQWidget+  (aSSIGN' arg'1' arg'2')++data QListQWidgetConst =+    QListQWidgetConst (HoppyF.Ptr QListQWidgetConst)+  | QListQWidgetConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQWidgetConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQWidgetConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQWidgetConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQWidgetToConst :: QListQWidget -> QListQWidgetConst+castQListQWidgetToConst (QListQWidget ptr') = QListQWidgetConst $ HoppyF.castPtr ptr'+castQListQWidgetToConst (QListQWidgetGc fptr' ptr') = QListQWidgetConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQWidgetConst where+  nullptr = QListQWidgetConst HoppyF.nullPtr+  +  withCppPtr (QListQWidgetConst ptr') f' = f' ptr'+  withCppPtr (QListQWidgetConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQWidgetConst ptr') = ptr'+  toPtr (QListQWidgetConstGc _ ptr') = ptr'+  +  touchCppPtr (QListQWidgetConst _) = HoppyP.return ()+  touchCppPtr (QListQWidgetConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQWidgetConst where+  delete (QListQWidgetConst ptr') = delete'QListQWidget ptr'+  delete (QListQWidgetConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQWidgetConst", " object."]+  +  toGc this'@(QListQWidgetConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQWidgetConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQWidget :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQWidgetConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQWidgetConst QListQWidget where copy = newCopy++instance QListQWidgetConstPtr QListQWidgetConst where+  toQListQWidgetConst = HoppyP.id++data QListQWidget =+    QListQWidget (HoppyF.Ptr QListQWidget)+  | QListQWidgetGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListQWidget)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListQWidget where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListQWidget where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListQWidgetToNonconst :: QListQWidgetConst -> QListQWidget+castQListQWidgetToNonconst (QListQWidgetConst ptr') = QListQWidget $ HoppyF.castPtr ptr'+castQListQWidgetToNonconst (QListQWidgetConstGc fptr' ptr') = QListQWidgetGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListQWidget where+  nullptr = QListQWidget HoppyF.nullPtr+  +  withCppPtr (QListQWidget ptr') f' = f' ptr'+  withCppPtr (QListQWidgetGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListQWidget ptr') = ptr'+  toPtr (QListQWidgetGc _ ptr') = ptr'+  +  touchCppPtr (QListQWidget _) = HoppyP.return ()+  touchCppPtr (QListQWidgetGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListQWidget where+  delete (QListQWidget ptr') = delete'QListQWidget $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QListQWidgetConst)+  delete (QListQWidgetGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListQWidget", " object."]+  +  toGc this'@(QListQWidget ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListQWidgetGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListQWidget :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListQWidgetGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QListQWidget QListQWidget where copy = newCopy++instance QListQWidgetConstPtr QListQWidget where+  toQListQWidgetConst (QListQWidget ptr') = QListQWidgetConst $ (HoppyF.castPtr :: HoppyF.Ptr QListQWidget -> HoppyF.Ptr QListQWidgetConst) ptr'+  toQListQWidgetConst (QListQWidgetGc fptr' ptr') = QListQWidgetConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QListQWidget -> HoppyF.Ptr QListQWidgetConst) ptr'++instance QListQWidgetPtr QListQWidget where+  toQListQWidget = HoppyP.id++new :: (HoppyP.IO QListQWidget)+new =+  HoppyP.fmap QListQWidget+  (new')++newCopy :: (QListQWidgetValue arg'1) => (arg'1) -> (HoppyP.IO QListQWidget)+newCopy arg'1 =+  withQListQWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QListQWidget+  (newCopy' arg'1')++class QListQWidgetSuper a where+  downToQListQWidget :: a -> QListQWidget+++class QListQWidgetSuperConst a where+  downToQListQWidgetConst :: a -> QListQWidgetConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QListQWidget)) QListQWidget where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QListQWidgetValue a => HoppyFHR.Assignable QListQWidget a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListQWidget)) QListQWidget where+  decode = HoppyP.fmap QListQWidget . HoppyF.peek++instance HoppyFHR.Encodable QListQWidget ([M506.QWidget]) where+  encode =+    QtahFHR.fromContents++instance HoppyFHR.Encodable QListQWidgetConst ([M506.QWidget]) where+  encode = HoppyP.fmap (toQListQWidgetConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QListQWidget)++instance HoppyFHR.Decodable QListQWidget ([M506.QWidget]) where+  decode = HoppyFHR.decode . toQListQWidgetConst++instance HoppyFHR.Decodable QListQWidgetConst ([M506.QWidget]) where+  decode =+    QtahFHR.toContents++instance QtahFHR.HasContents QListQWidgetConst (M506.QWidget) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QListQWidget (M506.QWidget) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QListQWidget (M506.QWidget) where+  fromContents values' = do+    list' <- new+    reserve list' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append list') values'+    QtahP.return list'
src/Graphics/UI/Qtah/Generated/Core/QLockFile.hs view
@@ -0,0 +1,267 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QLockFile (+  QLockFileValue (..),+  QLockFileConstPtr (..),+  error,+  getLockInfo,+  isLocked,+  staleLockTime,+  QLockFilePtr (..),+  lock,+  removeStaleLockFile,+  setStaleLockTime,+  tryLock,+  tryLockWithTimeout,+  unlock,+  QLockFileConst (..),+  castQLockFileToConst,+  QLockFile (..),+  castQLockFileToNonconst,+  new,+  QLockFileSuper (..),+  QLockFileSuperConst (..),+  QLockFileLockError (..),+  ) 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.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QLockFile_new" new' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QLockFile)+foreign import ccall "genpop__QLockFile_error" error' ::  HoppyF.Ptr QLockFileConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLockFile_getLockInfo" getLockInfo' ::  HoppyF.Ptr QLockFileConst -> HoppyF.Ptr HoppyFC.CLLong -> HoppyF.Ptr M142.QString -> HoppyF.Ptr M142.QString -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLockFile_isLocked" isLocked' ::  HoppyF.Ptr QLockFileConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLockFile_lock" lock' ::  HoppyF.Ptr QLockFile -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLockFile_removeStaleLockFile" removeStaleLockFile' ::  HoppyF.Ptr QLockFile -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLockFile_setStaleLockTime" setStaleLockTime' ::  HoppyF.Ptr QLockFile -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLockFile_staleLockTime" staleLockTime' ::  HoppyF.Ptr QLockFileConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLockFile_tryLock" tryLock' ::  HoppyF.Ptr QLockFile -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLockFile_tryLockWithTimeout" tryLockWithTimeout' ::  HoppyF.Ptr QLockFile -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLockFile_unlock" unlock' ::  HoppyF.Ptr QLockFile -> HoppyP.IO ()+foreign import ccall "gendel__QLockFile" delete'QLockFile :: HoppyF.Ptr QLockFileConst -> HoppyP.IO ()+foreign import ccall "&gendel__QLockFile" deletePtr'QLockFile :: HoppyF.FunPtr (HoppyF.Ptr QLockFileConst -> HoppyP.IO ())++class QLockFileValue a where+  withQLockFilePtr :: a -> (QLockFileConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QLockFileConstPtr a => QLockFileValue a where+  withQLockFilePtr = HoppyP.flip ($) . toQLockFileConst++class (HoppyFHR.CppPtr this) => QLockFileConstPtr this where+  toQLockFileConst :: this -> QLockFileConst++error :: (QLockFileValue this) => (this) {- ^ this -} -> (HoppyP.IO QLockFileLockError)+error arg'1 =+  withQLockFilePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (error' arg'1')++getLockInfo :: (QLockFileValue this, M142.QStringPtr arg'3, M142.QStringPtr arg'4) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CLLong) -> (arg'3) -> (arg'4) -> (HoppyP.IO HoppyP.Bool)+getLockInfo arg'1 arg'2 arg'3 arg'4 =+  withQLockFilePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyFHR.withCppPtr (M142.toQString arg'3) $ \arg'3' ->+  HoppyFHR.withCppPtr (M142.toQString arg'4) $ \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (getLockInfo' arg'1' arg'2' arg'3' arg'4')++isLocked :: (QLockFileValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isLocked arg'1 =+  withQLockFilePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isLocked' arg'1')++staleLockTime :: (QLockFileValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+staleLockTime arg'1 =+  withQLockFilePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (staleLockTime' arg'1')++class (QLockFileConstPtr this) => QLockFilePtr this where+  toQLockFile :: this -> QLockFile++lock :: (QLockFilePtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+lock arg'1 =+  HoppyFHR.withCppPtr (toQLockFile arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lock' arg'1')++removeStaleLockFile :: (QLockFilePtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+removeStaleLockFile arg'1 =+  HoppyFHR.withCppPtr (toQLockFile arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeStaleLockFile' arg'1')++setStaleLockTime :: (QLockFilePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setStaleLockTime arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLockFile arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setStaleLockTime' arg'1' arg'2')++tryLock :: (QLockFilePtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+tryLock arg'1 =+  HoppyFHR.withCppPtr (toQLockFile arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (tryLock' arg'1')++tryLockWithTimeout :: (QLockFilePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+tryLockWithTimeout arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLockFile arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (tryLockWithTimeout' arg'1' arg'2')++unlock :: (QLockFilePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+unlock arg'1 =+  HoppyFHR.withCppPtr (toQLockFile arg'1) $ \arg'1' ->+  (unlock' arg'1')++data QLockFileConst =+    QLockFileConst (HoppyF.Ptr QLockFileConst)+  | QLockFileConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLockFileConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLockFileConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLockFileConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLockFileToConst :: QLockFile -> QLockFileConst+castQLockFileToConst (QLockFile ptr') = QLockFileConst $ HoppyF.castPtr ptr'+castQLockFileToConst (QLockFileGc fptr' ptr') = QLockFileConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLockFileConst where+  nullptr = QLockFileConst HoppyF.nullPtr+  +  withCppPtr (QLockFileConst ptr') f' = f' ptr'+  withCppPtr (QLockFileConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLockFileConst ptr') = ptr'+  toPtr (QLockFileConstGc _ ptr') = ptr'+  +  touchCppPtr (QLockFileConst _) = HoppyP.return ()+  touchCppPtr (QLockFileConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLockFileConst where+  delete (QLockFileConst ptr') = delete'QLockFile ptr'+  delete (QLockFileConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLockFileConst", " object."]+  +  toGc this'@(QLockFileConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLockFileConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLockFile :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLockFileConstGc {}) = HoppyP.return this'++instance QLockFileConstPtr QLockFileConst where+  toQLockFileConst = HoppyP.id++data QLockFile =+    QLockFile (HoppyF.Ptr QLockFile)+  | QLockFileGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLockFile)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLockFile where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLockFile where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLockFileToNonconst :: QLockFileConst -> QLockFile+castQLockFileToNonconst (QLockFileConst ptr') = QLockFile $ HoppyF.castPtr ptr'+castQLockFileToNonconst (QLockFileConstGc fptr' ptr') = QLockFileGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLockFile where+  nullptr = QLockFile HoppyF.nullPtr+  +  withCppPtr (QLockFile ptr') f' = f' ptr'+  withCppPtr (QLockFileGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLockFile ptr') = ptr'+  toPtr (QLockFileGc _ ptr') = ptr'+  +  touchCppPtr (QLockFile _) = HoppyP.return ()+  touchCppPtr (QLockFileGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLockFile where+  delete (QLockFile ptr') = delete'QLockFile $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QLockFileConst)+  delete (QLockFileGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLockFile", " object."]+  +  toGc this'@(QLockFile ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLockFileGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLockFile :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLockFileGc {}) = HoppyP.return this'++instance QLockFileConstPtr QLockFile where+  toQLockFileConst (QLockFile ptr') = QLockFileConst $ (HoppyF.castPtr :: HoppyF.Ptr QLockFile -> HoppyF.Ptr QLockFileConst) ptr'+  toQLockFileConst (QLockFileGc fptr' ptr') = QLockFileConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QLockFile -> HoppyF.Ptr QLockFileConst) ptr'++instance QLockFilePtr QLockFile where+  toQLockFile = HoppyP.id++new :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QLockFile)+new arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QLockFile+  (new' arg'1')++class QLockFileSuper a where+  downToQLockFile :: a -> QLockFile+++class QLockFileSuperConst a where+  downToQLockFileConst :: a -> QLockFileConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QLockFile)) QLockFile where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QLockFile)) QLockFile where+  decode = HoppyP.fmap QLockFile . HoppyF.peek++data QLockFileLockError =+  NoError+  | LockFailedError+  | PermissionError+  | UnknownError+  | UnknownQLockFileLockError (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QLockFileLockError where+  fromCppEnum NoError = 0+  fromCppEnum LockFailedError = 1+  fromCppEnum PermissionError = 2+  fromCppEnum UnknownError = 3+  fromCppEnum (UnknownQLockFileLockError n) = n+  +  toCppEnum (0) = NoError+  toCppEnum (1) = LockFailedError+  toCppEnum (2) = PermissionError+  toCppEnum (3) = UnknownError+  toCppEnum n = UnknownQLockFileLockError n++instance HoppyP.Eq QLockFileLockError where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QLockFileLockError where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Core/QLoggingCategory.hs view
@@ -0,0 +1,242 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QLoggingCategory (+  QLoggingCategoryValue (..),+  QLoggingCategoryConstPtr (..),+  categoryName,+  isCriticalEnabled,+  isDebugEnabled,+  isEnabled,+  isInfoEnabled,+  isWarningEnabled,+  QLoggingCategoryPtr (..),+  setEnabled,+  defaultCategory,+  installFilter,+  setFilterRules,+  QLoggingCategoryConst (..),+  castQLoggingCategoryToConst,+  QLoggingCategory (..),+  castQLoggingCategoryToNonconst,+  newWithMsgType,+  new,+  QLoggingCategorySuper (..),+  QLoggingCategorySuperConst (..),+  ) 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.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QLoggingCategory_newWithMsgType" newWithMsgType' ::  HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QLoggingCategory)+foreign import ccall "genpop__QLoggingCategory_new" new' ::  HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QLoggingCategory)+foreign import ccall "genpop__QLoggingCategory_categoryName" categoryName' ::  HoppyF.Ptr QLoggingCategoryConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "genpop__QLoggingCategory_defaultCategory" defaultCategory' ::  HoppyP.IO (HoppyF.Ptr QLoggingCategory)+foreign import ccall "genpop__QLoggingCategory_installFilter" installFilter' ::  HoppyF.FunPtr (HoppyF.Ptr QLoggingCategory -> HoppyP.IO ()) -> HoppyP.IO (HoppyF.FunPtr (HoppyF.Ptr QLoggingCategory -> HoppyP.IO ()))+foreign import ccall "genpop__QLoggingCategory_isCriticalEnabled" isCriticalEnabled' ::  HoppyF.Ptr QLoggingCategoryConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLoggingCategory_isDebugEnabled" isDebugEnabled' ::  HoppyF.Ptr QLoggingCategoryConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLoggingCategory_isEnabled" isEnabled' ::  HoppyF.Ptr QLoggingCategoryConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLoggingCategory_isInfoEnabled" isInfoEnabled' ::  HoppyF.Ptr QLoggingCategoryConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLoggingCategory_isWarningEnabled" isWarningEnabled' ::  HoppyF.Ptr QLoggingCategoryConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLoggingCategory_setEnabled" setEnabled' ::  HoppyF.Ptr QLoggingCategory -> HoppyFC.CInt -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QLoggingCategory_setFilterRules" setFilterRules' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "gendel__QLoggingCategory" delete'QLoggingCategory :: HoppyF.Ptr QLoggingCategoryConst -> HoppyP.IO ()+foreign import ccall "&gendel__QLoggingCategory" deletePtr'QLoggingCategory :: HoppyF.FunPtr (HoppyF.Ptr QLoggingCategoryConst -> HoppyP.IO ())++class QLoggingCategoryValue a where+  withQLoggingCategoryPtr :: a -> (QLoggingCategoryConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QLoggingCategoryConstPtr a => QLoggingCategoryValue a where+  withQLoggingCategoryPtr = HoppyP.flip ($) . toQLoggingCategoryConst++class (HoppyFHR.CppPtr this) => QLoggingCategoryConstPtr this where+  toQLoggingCategoryConst :: this -> QLoggingCategoryConst++categoryName :: (QLoggingCategoryValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+categoryName arg'1 =+  withQLoggingCategoryPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (categoryName' arg'1')++isCriticalEnabled :: (QLoggingCategoryValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isCriticalEnabled arg'1 =+  withQLoggingCategoryPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isCriticalEnabled' arg'1')++isDebugEnabled :: (QLoggingCategoryValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isDebugEnabled arg'1 =+  withQLoggingCategoryPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isDebugEnabled' arg'1')++isEnabled :: (QLoggingCategoryValue this) => (this) {- ^ this -} -> (M190.QtMsgType) -> (HoppyP.IO HoppyP.Bool)+isEnabled arg'1 arg'2 =+  withQLoggingCategoryPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEnabled' arg'1' arg'2')++isInfoEnabled :: (QLoggingCategoryValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isInfoEnabled arg'1 =+  withQLoggingCategoryPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isInfoEnabled' arg'1')++isWarningEnabled :: (QLoggingCategoryValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isWarningEnabled arg'1 =+  withQLoggingCategoryPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isWarningEnabled' arg'1')++class (QLoggingCategoryConstPtr this) => QLoggingCategoryPtr this where+  toQLoggingCategory :: this -> QLoggingCategory++setEnabled :: (QLoggingCategoryPtr this) => (this) {- ^ this -} -> (M190.QtMsgType) -> (HoppyP.Bool) -> (HoppyP.IO ())+setEnabled arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQLoggingCategory arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'3 >>= \arg'3' ->+  (setEnabled' arg'1' arg'2' arg'3')++defaultCategory :: (HoppyP.IO QLoggingCategory)+defaultCategory =+  HoppyP.fmap QLoggingCategory+  (defaultCategory')++installFilter :: (HoppyF.FunPtr (HoppyF.Ptr QLoggingCategory -> HoppyP.IO ())) -> (HoppyP.IO (HoppyF.FunPtr (HoppyF.Ptr QLoggingCategory -> HoppyP.IO ())))+installFilter arg'1 =+  let arg'1' = arg'1 in+  (installFilter' arg'1')++setFilterRules :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO ())+setFilterRules arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (setFilterRules' arg'1')++data QLoggingCategoryConst =+    QLoggingCategoryConst (HoppyF.Ptr QLoggingCategoryConst)+  | QLoggingCategoryConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLoggingCategoryConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLoggingCategoryConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLoggingCategoryConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLoggingCategoryToConst :: QLoggingCategory -> QLoggingCategoryConst+castQLoggingCategoryToConst (QLoggingCategory ptr') = QLoggingCategoryConst $ HoppyF.castPtr ptr'+castQLoggingCategoryToConst (QLoggingCategoryGc fptr' ptr') = QLoggingCategoryConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLoggingCategoryConst where+  nullptr = QLoggingCategoryConst HoppyF.nullPtr+  +  withCppPtr (QLoggingCategoryConst ptr') f' = f' ptr'+  withCppPtr (QLoggingCategoryConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLoggingCategoryConst ptr') = ptr'+  toPtr (QLoggingCategoryConstGc _ ptr') = ptr'+  +  touchCppPtr (QLoggingCategoryConst _) = HoppyP.return ()+  touchCppPtr (QLoggingCategoryConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLoggingCategoryConst where+  delete (QLoggingCategoryConst ptr') = delete'QLoggingCategory ptr'+  delete (QLoggingCategoryConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLoggingCategoryConst", " object."]+  +  toGc this'@(QLoggingCategoryConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLoggingCategoryConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLoggingCategory :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLoggingCategoryConstGc {}) = HoppyP.return this'++instance QLoggingCategoryConstPtr QLoggingCategoryConst where+  toQLoggingCategoryConst = HoppyP.id++data QLoggingCategory =+    QLoggingCategory (HoppyF.Ptr QLoggingCategory)+  | QLoggingCategoryGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLoggingCategory)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLoggingCategory where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLoggingCategory where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLoggingCategoryToNonconst :: QLoggingCategoryConst -> QLoggingCategory+castQLoggingCategoryToNonconst (QLoggingCategoryConst ptr') = QLoggingCategory $ HoppyF.castPtr ptr'+castQLoggingCategoryToNonconst (QLoggingCategoryConstGc fptr' ptr') = QLoggingCategoryGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLoggingCategory where+  nullptr = QLoggingCategory HoppyF.nullPtr+  +  withCppPtr (QLoggingCategory ptr') f' = f' ptr'+  withCppPtr (QLoggingCategoryGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLoggingCategory ptr') = ptr'+  toPtr (QLoggingCategoryGc _ ptr') = ptr'+  +  touchCppPtr (QLoggingCategory _) = HoppyP.return ()+  touchCppPtr (QLoggingCategoryGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLoggingCategory where+  delete (QLoggingCategory ptr') = delete'QLoggingCategory $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QLoggingCategoryConst)+  delete (QLoggingCategoryGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLoggingCategory", " object."]+  +  toGc this'@(QLoggingCategory ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLoggingCategoryGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLoggingCategory :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLoggingCategoryGc {}) = HoppyP.return this'++instance QLoggingCategoryConstPtr QLoggingCategory where+  toQLoggingCategoryConst (QLoggingCategory ptr') = QLoggingCategoryConst $ (HoppyF.castPtr :: HoppyF.Ptr QLoggingCategory -> HoppyF.Ptr QLoggingCategoryConst) ptr'+  toQLoggingCategoryConst (QLoggingCategoryGc fptr' ptr') = QLoggingCategoryConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QLoggingCategory -> HoppyF.Ptr QLoggingCategoryConst) ptr'++instance QLoggingCategoryPtr QLoggingCategory where+  toQLoggingCategory = HoppyP.id++newWithMsgType :: (HoppyF.Ptr HoppyFC.CChar) -> (M190.QtMsgType) -> (HoppyP.IO QLoggingCategory)+newWithMsgType arg'1 arg'2 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QLoggingCategory+  (newWithMsgType' arg'1' arg'2')++new :: (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QLoggingCategory)+new arg'1 =+  let arg'1' = arg'1 in+  HoppyP.fmap QLoggingCategory+  (new' arg'1')++class QLoggingCategorySuper a where+  downToQLoggingCategory :: a -> QLoggingCategory+++class QLoggingCategorySuperConst a where+  downToQLoggingCategoryConst :: a -> QLoggingCategoryConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QLoggingCategory)) QLoggingCategory where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QLoggingCategory)) QLoggingCategory where+  decode = HoppyP.fmap QLoggingCategory . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QMargins.hs view
@@ -0,0 +1,392 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QMargins (+  QMarginsValue (..),+  QMarginsConstPtr (..),+  bottom,+  isNull,+  left,+  right,+  top,+  eQ,+  nE,+  QMarginsPtr (..),+  setBottom,+  setLeft,+  setRight,+  setTop,+  aDDA,+  aDDAInt,+  sUBA,+  sUBAInt,+  mULA,+  mULAReal,+  dIVA,+  dIVAReal,+  aSSIGN,+  QMarginsConst (..),+  castQMarginsToConst,+  QMargins (..),+  castQMarginsToNonconst,+  newNull,+  new,+  newCopy,+  QMarginsSuper (..),+  QMarginsSuperConst (..),+  ) where++import Control.Applicative ((<$>), (<*>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Core.HMargins as HMargins+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QMargins_newNull" newNull' ::  HoppyP.IO (HoppyF.Ptr QMargins)+foreign import ccall "genpop__QMargins_new" new' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QMargins)+foreign import ccall "genpop__QMargins_newCopy" newCopy' ::  HoppyF.Ptr QMarginsConst -> HoppyP.IO (HoppyF.Ptr QMargins)+foreign import ccall "genpop__QMargins_bottom" bottom' ::  HoppyF.Ptr QMarginsConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMargins_setBottom" setBottom' ::  HoppyF.Ptr QMargins -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QMargins_isNull" isNull' ::  HoppyF.Ptr QMarginsConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMargins_left" left' ::  HoppyF.Ptr QMarginsConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMargins_setLeft" setLeft' ::  HoppyF.Ptr QMargins -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QMargins_right" right' ::  HoppyF.Ptr QMarginsConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMargins_setRight" setRight' ::  HoppyF.Ptr QMargins -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QMargins_top" top' ::  HoppyF.Ptr QMarginsConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMargins_setTop" setTop' ::  HoppyF.Ptr QMargins -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QMargins_ADDA" aDDA' ::  HoppyF.Ptr QMargins -> HoppyF.Ptr QMarginsConst -> HoppyP.IO (HoppyF.Ptr QMargins)+foreign import ccall "genpop__QMargins_ADDAInt" aDDAInt' ::  HoppyF.Ptr QMargins -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QMargins)+foreign import ccall "genpop__QMargins_SUBA" sUBA' ::  HoppyF.Ptr QMargins -> HoppyF.Ptr QMarginsConst -> HoppyP.IO (HoppyF.Ptr QMargins)+foreign import ccall "genpop__QMargins_SUBAInt" sUBAInt' ::  HoppyF.Ptr QMargins -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QMargins)+foreign import ccall "genpop__QMargins_MULA" mULA' ::  HoppyF.Ptr QMargins -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QMargins)+foreign import ccall "genpop__QMargins_MULAReal" mULAReal' ::  HoppyF.Ptr QMargins -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QMargins)+foreign import ccall "genpop__QMargins_DIVA" dIVA' ::  HoppyF.Ptr QMargins -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QMargins)+foreign import ccall "genpop__QMargins_DIVAReal" dIVAReal' ::  HoppyF.Ptr QMargins -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QMargins)+foreign import ccall "genpop__QMargins_EQ" eQ' ::  HoppyF.Ptr QMarginsConst -> HoppyF.Ptr QMarginsConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMargins_NE" nE' ::  HoppyF.Ptr QMarginsConst -> HoppyF.Ptr QMarginsConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMargins_ASSIGN" aSSIGN' ::  HoppyF.Ptr QMargins -> HoppyF.Ptr QMarginsConst -> HoppyP.IO (HoppyF.Ptr QMargins)+foreign import ccall "gendel__QMargins" delete'QMargins :: HoppyF.Ptr QMarginsConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMargins" deletePtr'QMargins :: HoppyF.FunPtr (HoppyF.Ptr QMarginsConst -> HoppyP.IO ())++class QMarginsValue a where+  withQMarginsPtr :: a -> (QMarginsConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMarginsConstPtr a => QMarginsValue a where+  withQMarginsPtr = HoppyP.flip ($) . toQMarginsConst++instance {-# OVERLAPPING #-} QMarginsValue (HMargins.HMargins) where+  withQMarginsPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QMarginsConstPtr this where+  toQMarginsConst :: this -> QMarginsConst++bottom :: (QMarginsValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+bottom arg'1 =+  withQMarginsPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (bottom' arg'1')++isNull :: (QMarginsValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQMarginsPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++left :: (QMarginsValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+left arg'1 =+  withQMarginsPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (left' arg'1')++right :: (QMarginsValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+right arg'1 =+  withQMarginsPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (right' arg'1')++top :: (QMarginsValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+top arg'1 =+  withQMarginsPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (top' arg'1')++eQ :: (QMarginsValue this, QMarginsValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQMarginsPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQMarginsPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QMarginsValue this, QMarginsValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQMarginsPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQMarginsPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QMarginsConstPtr this) => QMarginsPtr this where+  toQMargins :: this -> QMargins++setBottom :: (QMarginsPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setBottom arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMargins arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setBottom' arg'1' arg'2')++setLeft :: (QMarginsPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setLeft arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMargins arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setLeft' arg'1' arg'2')++setRight :: (QMarginsPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setRight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMargins arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setRight' arg'1' arg'2')++setTop :: (QMarginsPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setTop arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMargins arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setTop' arg'1' arg'2')++aDDA :: (QMarginsPtr this, QMarginsValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QMargins)+aDDA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMargins arg'1) $ \arg'1' ->+  withQMarginsPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QMargins+  (aDDA' arg'1' arg'2')++aDDAInt :: (QMarginsPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QMargins)+aDDAInt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMargins arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QMargins+  (aDDAInt' arg'1' arg'2')++sUBA :: (QMarginsPtr this, QMarginsValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QMargins)+sUBA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMargins arg'1) $ \arg'1' ->+  withQMarginsPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QMargins+  (sUBA' arg'1' arg'2')++sUBAInt :: (QMarginsPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QMargins)+sUBAInt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMargins arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QMargins+  (sUBAInt' arg'1' arg'2')++mULA :: (QMarginsPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QMargins)+mULA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMargins arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QMargins+  (mULA' arg'1' arg'2')++mULAReal :: (QMarginsPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QMargins)+mULAReal arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMargins arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QMargins+  (mULAReal' arg'1' arg'2')++dIVA :: (QMarginsPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QMargins)+dIVA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMargins arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QMargins+  (dIVA' arg'1' arg'2')++dIVAReal :: (QMarginsPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QMargins)+dIVAReal arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMargins arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QMargins+  (dIVAReal' arg'1' arg'2')++aSSIGN :: (QMarginsPtr this, QMarginsValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QMargins)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMargins arg'1) $ \arg'1' ->+  withQMarginsPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QMargins+  (aSSIGN' arg'1' arg'2')++data QMarginsConst =+    QMarginsConst (HoppyF.Ptr QMarginsConst)+  | QMarginsConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMarginsConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMarginsConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMarginsConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMarginsToConst :: QMargins -> QMarginsConst+castQMarginsToConst (QMargins ptr') = QMarginsConst $ HoppyF.castPtr ptr'+castQMarginsToConst (QMarginsGc fptr' ptr') = QMarginsConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMarginsConst where+  nullptr = QMarginsConst HoppyF.nullPtr+  +  withCppPtr (QMarginsConst ptr') f' = f' ptr'+  withCppPtr (QMarginsConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMarginsConst ptr') = ptr'+  toPtr (QMarginsConstGc _ ptr') = ptr'+  +  touchCppPtr (QMarginsConst _) = HoppyP.return ()+  touchCppPtr (QMarginsConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMarginsConst where+  delete (QMarginsConst ptr') = delete'QMargins ptr'+  delete (QMarginsConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMarginsConst", " object."]+  +  toGc this'@(QMarginsConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMarginsConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMargins :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMarginsConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QMarginsConst QMargins where copy = newCopy++instance QMarginsConstPtr QMarginsConst where+  toQMarginsConst = HoppyP.id++data QMargins =+    QMargins (HoppyF.Ptr QMargins)+  | QMarginsGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMargins)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMargins where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMargins where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMarginsToNonconst :: QMarginsConst -> QMargins+castQMarginsToNonconst (QMarginsConst ptr') = QMargins $ HoppyF.castPtr ptr'+castQMarginsToNonconst (QMarginsConstGc fptr' ptr') = QMarginsGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMargins where+  nullptr = QMargins HoppyF.nullPtr+  +  withCppPtr (QMargins ptr') f' = f' ptr'+  withCppPtr (QMarginsGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMargins ptr') = ptr'+  toPtr (QMarginsGc _ ptr') = ptr'+  +  touchCppPtr (QMargins _) = HoppyP.return ()+  touchCppPtr (QMarginsGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMargins where+  delete (QMargins ptr') = delete'QMargins $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMarginsConst)+  delete (QMarginsGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMargins", " object."]+  +  toGc this'@(QMargins ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMarginsGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMargins :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMarginsGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QMargins QMargins where copy = newCopy++instance QMarginsConstPtr QMargins where+  toQMarginsConst (QMargins ptr') = QMarginsConst $ (HoppyF.castPtr :: HoppyF.Ptr QMargins -> HoppyF.Ptr QMarginsConst) ptr'+  toQMarginsConst (QMarginsGc fptr' ptr') = QMarginsConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMargins -> HoppyF.Ptr QMarginsConst) ptr'++instance QMarginsPtr QMargins where+  toQMargins = HoppyP.id++newNull :: (HoppyP.IO QMargins)+newNull =+  HoppyP.fmap QMargins+  (newNull')++new :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QMargins)+new 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.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QMargins+  (new' arg'1' arg'2' arg'3' arg'4')++newCopy :: (QMarginsValue arg'1) => (arg'1) -> (HoppyP.IO QMargins)+newCopy arg'1 =+  withQMarginsPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QMargins+  (newCopy' arg'1')++class QMarginsSuper a where+  downToQMargins :: a -> QMargins+++class QMarginsSuperConst a where+  downToQMarginsConst :: a -> QMarginsConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMargins)) QMargins where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QMarginsValue a => HoppyFHR.Assignable QMargins a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMargins)) QMargins where+  decode = HoppyP.fmap QMargins . HoppyF.peek++instance HoppyFHR.Encodable QMargins (HMargins.HMargins) where+  encode =+    new <$> HMargins.left <*> HMargins.top <*> HMargins.right <*> HMargins.bottom++instance HoppyFHR.Encodable QMarginsConst (HMargins.HMargins) where+  encode = HoppyP.fmap (toQMarginsConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QMargins)++instance HoppyFHR.Decodable QMargins (HMargins.HMargins) where+  decode = HoppyFHR.decode . toQMarginsConst++instance HoppyFHR.Decodable QMarginsConst (HMargins.HMargins) where+  decode =+    \q -> HMargins.HMargins <$> left q <*> top q <*> right q <*> bottom q
src/Graphics/UI/Qtah/Generated/Core/QMarginsF.hs view
@@ -0,0 +1,360 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QMarginsF (+  QMarginsFValue (..),+  QMarginsFConstPtr (..),+  bottom,+  isNull,+  left,+  right,+  top,+  eQ,+  nE,+  QMarginsFPtr (..),+  setBottom,+  setLeft,+  setRight,+  setTop,+  aDDA,+  aDDAReal,+  sUBA,+  sUBAReal,+  mULA,+  dIVA,+  aSSIGN,+  QMarginsFConst (..),+  castQMarginsFToConst,+  QMarginsF (..),+  castQMarginsFToNonconst,+  newNull,+  new,+  newWithMargins,+  newCopy,+  QMarginsFSuper (..),+  QMarginsFSuperConst (..),+  ) 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.Core.QMargins as M68+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QMarginsF_newNull" newNull' ::  HoppyP.IO (HoppyF.Ptr QMarginsF)+foreign import ccall "genpop__QMarginsF_new" new' ::  HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QMarginsF)+foreign import ccall "genpop__QMarginsF_newWithMargins" newWithMargins' ::  HoppyF.Ptr M68.QMarginsConst -> HoppyP.IO (HoppyF.Ptr QMarginsF)+foreign import ccall "genpop__QMarginsF_newCopy" newCopy' ::  HoppyF.Ptr QMarginsFConst -> HoppyP.IO (HoppyF.Ptr QMarginsF)+foreign import ccall "genpop__QMarginsF_bottom" bottom' ::  HoppyF.Ptr QMarginsFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QMarginsF_setBottom" setBottom' ::  HoppyF.Ptr QMarginsF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QMarginsF_isNull" isNull' ::  HoppyF.Ptr QMarginsFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMarginsF_left" left' ::  HoppyF.Ptr QMarginsFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QMarginsF_setLeft" setLeft' ::  HoppyF.Ptr QMarginsF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QMarginsF_right" right' ::  HoppyF.Ptr QMarginsFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QMarginsF_setRight" setRight' ::  HoppyF.Ptr QMarginsF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QMarginsF_top" top' ::  HoppyF.Ptr QMarginsFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QMarginsF_setTop" setTop' ::  HoppyF.Ptr QMarginsF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QMarginsF_ADDA" aDDA' ::  HoppyF.Ptr QMarginsF -> HoppyF.Ptr QMarginsFConst -> HoppyP.IO (HoppyF.Ptr QMarginsF)+foreign import ccall "genpop__QMarginsF_ADDAReal" aDDAReal' ::  HoppyF.Ptr QMarginsF -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QMarginsF)+foreign import ccall "genpop__QMarginsF_SUBA" sUBA' ::  HoppyF.Ptr QMarginsF -> HoppyF.Ptr QMarginsFConst -> HoppyP.IO (HoppyF.Ptr QMarginsF)+foreign import ccall "genpop__QMarginsF_SUBAReal" sUBAReal' ::  HoppyF.Ptr QMarginsF -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QMarginsF)+foreign import ccall "genpop__QMarginsF_MULA" mULA' ::  HoppyF.Ptr QMarginsF -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QMarginsF)+foreign import ccall "genpop__QMarginsF_DIVA" dIVA' ::  HoppyF.Ptr QMarginsF -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QMarginsF)+foreign import ccall "genpop__QMarginsF_EQ" eQ' ::  HoppyF.Ptr QMarginsFConst -> HoppyF.Ptr QMarginsFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMarginsF_NE" nE' ::  HoppyF.Ptr QMarginsFConst -> HoppyF.Ptr QMarginsFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMarginsF_ASSIGN" aSSIGN' ::  HoppyF.Ptr QMarginsF -> HoppyF.Ptr QMarginsFConst -> HoppyP.IO (HoppyF.Ptr QMarginsF)+foreign import ccall "gendel__QMarginsF" delete'QMarginsF :: HoppyF.Ptr QMarginsFConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMarginsF" deletePtr'QMarginsF :: HoppyF.FunPtr (HoppyF.Ptr QMarginsFConst -> HoppyP.IO ())++class QMarginsFValue a where+  withQMarginsFPtr :: a -> (QMarginsFConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMarginsFConstPtr a => QMarginsFValue a where+  withQMarginsFPtr = HoppyP.flip ($) . toQMarginsFConst++class (HoppyFHR.CppPtr this) => QMarginsFConstPtr this where+  toQMarginsFConst :: this -> QMarginsFConst++bottom :: (QMarginsFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+bottom arg'1 =+  withQMarginsFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (bottom' arg'1')++isNull :: (QMarginsFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQMarginsFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++left :: (QMarginsFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+left arg'1 =+  withQMarginsFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (left' arg'1')++right :: (QMarginsFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+right arg'1 =+  withQMarginsFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (right' arg'1')++top :: (QMarginsFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+top arg'1 =+  withQMarginsFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (top' arg'1')++eQ :: (QMarginsFValue this, QMarginsFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQMarginsFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQMarginsFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QMarginsFValue this, QMarginsFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQMarginsFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQMarginsFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QMarginsFConstPtr this) => QMarginsFPtr this where+  toQMarginsF :: this -> QMarginsF++setBottom :: (QMarginsFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setBottom arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMarginsF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setBottom' arg'1' arg'2')++setLeft :: (QMarginsFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setLeft arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMarginsF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setLeft' arg'1' arg'2')++setRight :: (QMarginsFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setRight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMarginsF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setRight' arg'1' arg'2')++setTop :: (QMarginsFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setTop arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMarginsF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setTop' arg'1' arg'2')++aDDA :: (QMarginsFPtr this, QMarginsFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QMarginsF)+aDDA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMarginsF arg'1) $ \arg'1' ->+  withQMarginsFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QMarginsF+  (aDDA' arg'1' arg'2')++aDDAReal :: (QMarginsFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QMarginsF)+aDDAReal arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMarginsF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QMarginsF+  (aDDAReal' arg'1' arg'2')++sUBA :: (QMarginsFPtr this, QMarginsFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QMarginsF)+sUBA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMarginsF arg'1) $ \arg'1' ->+  withQMarginsFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QMarginsF+  (sUBA' arg'1' arg'2')++sUBAReal :: (QMarginsFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QMarginsF)+sUBAReal arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMarginsF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QMarginsF+  (sUBAReal' arg'1' arg'2')++mULA :: (QMarginsFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QMarginsF)+mULA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMarginsF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QMarginsF+  (mULA' arg'1' arg'2')++dIVA :: (QMarginsFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QMarginsF)+dIVA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMarginsF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QMarginsF+  (dIVA' arg'1' arg'2')++aSSIGN :: (QMarginsFPtr this, QMarginsFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QMarginsF)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMarginsF arg'1) $ \arg'1' ->+  withQMarginsFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QMarginsF+  (aSSIGN' arg'1' arg'2')++data QMarginsFConst =+    QMarginsFConst (HoppyF.Ptr QMarginsFConst)+  | QMarginsFConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMarginsFConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMarginsFConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMarginsFConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMarginsFToConst :: QMarginsF -> QMarginsFConst+castQMarginsFToConst (QMarginsF ptr') = QMarginsFConst $ HoppyF.castPtr ptr'+castQMarginsFToConst (QMarginsFGc fptr' ptr') = QMarginsFConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMarginsFConst where+  nullptr = QMarginsFConst HoppyF.nullPtr+  +  withCppPtr (QMarginsFConst ptr') f' = f' ptr'+  withCppPtr (QMarginsFConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMarginsFConst ptr') = ptr'+  toPtr (QMarginsFConstGc _ ptr') = ptr'+  +  touchCppPtr (QMarginsFConst _) = HoppyP.return ()+  touchCppPtr (QMarginsFConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMarginsFConst where+  delete (QMarginsFConst ptr') = delete'QMarginsF ptr'+  delete (QMarginsFConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMarginsFConst", " object."]+  +  toGc this'@(QMarginsFConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMarginsFConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMarginsF :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMarginsFConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QMarginsFConst QMarginsF where copy = newCopy++instance QMarginsFConstPtr QMarginsFConst where+  toQMarginsFConst = HoppyP.id++data QMarginsF =+    QMarginsF (HoppyF.Ptr QMarginsF)+  | QMarginsFGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMarginsF)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMarginsF where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMarginsF where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMarginsFToNonconst :: QMarginsFConst -> QMarginsF+castQMarginsFToNonconst (QMarginsFConst ptr') = QMarginsF $ HoppyF.castPtr ptr'+castQMarginsFToNonconst (QMarginsFConstGc fptr' ptr') = QMarginsFGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMarginsF where+  nullptr = QMarginsF HoppyF.nullPtr+  +  withCppPtr (QMarginsF ptr') f' = f' ptr'+  withCppPtr (QMarginsFGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMarginsF ptr') = ptr'+  toPtr (QMarginsFGc _ ptr') = ptr'+  +  touchCppPtr (QMarginsF _) = HoppyP.return ()+  touchCppPtr (QMarginsFGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMarginsF where+  delete (QMarginsF ptr') = delete'QMarginsF $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMarginsFConst)+  delete (QMarginsFGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMarginsF", " object."]+  +  toGc this'@(QMarginsF ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMarginsFGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMarginsF :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMarginsFGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QMarginsF QMarginsF where copy = newCopy++instance QMarginsFConstPtr QMarginsF where+  toQMarginsFConst (QMarginsF ptr') = QMarginsFConst $ (HoppyF.castPtr :: HoppyF.Ptr QMarginsF -> HoppyF.Ptr QMarginsFConst) ptr'+  toQMarginsFConst (QMarginsFGc fptr' ptr') = QMarginsFConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMarginsF -> HoppyF.Ptr QMarginsFConst) ptr'++instance QMarginsFPtr QMarginsF where+  toQMarginsF = HoppyP.id++newNull :: (HoppyP.IO QMarginsF)+newNull =+  HoppyP.fmap QMarginsF+  (newNull')++new :: (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO QMarginsF)+new arg'1 arg'2 arg'3 arg'4 =+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QMarginsF+  (new' arg'1' arg'2' arg'3' arg'4')++newWithMargins :: (M68.QMarginsValue arg'1) => (arg'1) -> (HoppyP.IO QMarginsF)+newWithMargins arg'1 =+  M68.withQMarginsPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QMarginsF+  (newWithMargins' arg'1')++newCopy :: (QMarginsFValue arg'1) => (arg'1) -> (HoppyP.IO QMarginsF)+newCopy arg'1 =+  withQMarginsFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QMarginsF+  (newCopy' arg'1')++class QMarginsFSuper a where+  downToQMarginsF :: a -> QMarginsF+++class QMarginsFSuperConst a where+  downToQMarginsFConst :: a -> QMarginsFConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMarginsF)) QMarginsF where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QMarginsFValue a => HoppyFHR.Assignable QMarginsF a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMarginsF)) QMarginsF where+  decode = HoppyP.fmap QMarginsF . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QMessageAuthenticationCode.hs view
@@ -0,0 +1,217 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QMessageAuthenticationCode (+  QMessageAuthenticationCodeValue (..),+  QMessageAuthenticationCodeConstPtr (..),+  result,+  QMessageAuthenticationCodePtr (..),+  addDataRaw,+  addDataByteArray,+  addDataDevice,+  reset,+  setKey,+  hash,+  QMessageAuthenticationCodeConst (..),+  castQMessageAuthenticationCodeToConst,+  QMessageAuthenticationCode (..),+  castQMessageAuthenticationCodeToNonconst,+  new,+  newWithKey,+  QMessageAuthenticationCodeSuper (..),+  QMessageAuthenticationCodeSuperConst (..),+  ) where++import qualified Data.ByteString as QtahDBS+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QCryptographicHash as M46+import qualified Graphics.UI.Qtah.Generated.Core.QIODevice as M48+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QMessageAuthenticationCode_new" new' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QMessageAuthenticationCode)+foreign import ccall "genpop__QMessageAuthenticationCode_newWithKey" newWithKey' ::  HoppyFC.CInt -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QMessageAuthenticationCode)+foreign import ccall "genpop__QMessageAuthenticationCode_addDataRaw" addDataRaw' ::  HoppyF.Ptr QMessageAuthenticationCode -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QMessageAuthenticationCode_addDataByteArray" addDataByteArray' ::  HoppyF.Ptr QMessageAuthenticationCode -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO ()+foreign import ccall "genpop__QMessageAuthenticationCode_addDataDevice" addDataDevice' ::  HoppyF.Ptr QMessageAuthenticationCode -> HoppyF.Ptr M48.QIODevice -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMessageAuthenticationCode_hash" hash' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QMessageAuthenticationCode_reset" reset' ::  HoppyF.Ptr QMessageAuthenticationCode -> HoppyP.IO ()+foreign import ccall "genpop__QMessageAuthenticationCode_result" result' ::  HoppyF.Ptr QMessageAuthenticationCodeConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QMessageAuthenticationCode_setKey" setKey' ::  HoppyF.Ptr QMessageAuthenticationCode -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO ()+foreign import ccall "gendel__QMessageAuthenticationCode" delete'QMessageAuthenticationCode :: HoppyF.Ptr QMessageAuthenticationCodeConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMessageAuthenticationCode" deletePtr'QMessageAuthenticationCode :: HoppyF.FunPtr (HoppyF.Ptr QMessageAuthenticationCodeConst -> HoppyP.IO ())++class QMessageAuthenticationCodeValue a where+  withQMessageAuthenticationCodePtr :: a -> (QMessageAuthenticationCodeConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMessageAuthenticationCodeConstPtr a => QMessageAuthenticationCodeValue a where+  withQMessageAuthenticationCodePtr = HoppyP.flip ($) . toQMessageAuthenticationCodeConst++class (HoppyFHR.CppPtr this) => QMessageAuthenticationCodeConstPtr this where+  toQMessageAuthenticationCodeConst :: this -> QMessageAuthenticationCodeConst++result :: (QMessageAuthenticationCodeValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+result arg'1 =+  withQMessageAuthenticationCodePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (result' arg'1')++class (QMessageAuthenticationCodeConstPtr this) => QMessageAuthenticationCodePtr this where+  toQMessageAuthenticationCode :: this -> QMessageAuthenticationCode++addDataRaw :: (QMessageAuthenticationCodePtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO ())+addDataRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMessageAuthenticationCode arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (addDataRaw' arg'1' arg'2' arg'3')++addDataByteArray :: (QMessageAuthenticationCodePtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addDataByteArray arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMessageAuthenticationCode arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (addDataByteArray' arg'1' arg'2')++addDataDevice :: (QMessageAuthenticationCodePtr this, M48.QIODevicePtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+addDataDevice arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMessageAuthenticationCode arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M48.toQIODevice arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (addDataDevice' arg'1' arg'2')++reset :: (QMessageAuthenticationCodePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+reset arg'1 =+  HoppyFHR.withCppPtr (toQMessageAuthenticationCode arg'1) $ \arg'1' ->+  (reset' arg'1')++setKey :: (QMessageAuthenticationCodePtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setKey arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMessageAuthenticationCode arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setKey' arg'1' arg'2')++hash :: (M12.QByteArrayValue arg'1, M12.QByteArrayValue arg'2) => (arg'1) -> (arg'2) -> (M46.QCryptographicHashAlgorithm) -> (HoppyP.IO QtahDBS.ByteString)+hash arg'1 arg'2 arg'3 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (hash' arg'1' arg'2' arg'3')++data QMessageAuthenticationCodeConst =+    QMessageAuthenticationCodeConst (HoppyF.Ptr QMessageAuthenticationCodeConst)+  | QMessageAuthenticationCodeConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMessageAuthenticationCodeConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMessageAuthenticationCodeConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMessageAuthenticationCodeConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMessageAuthenticationCodeToConst :: QMessageAuthenticationCode -> QMessageAuthenticationCodeConst+castQMessageAuthenticationCodeToConst (QMessageAuthenticationCode ptr') = QMessageAuthenticationCodeConst $ HoppyF.castPtr ptr'+castQMessageAuthenticationCodeToConst (QMessageAuthenticationCodeGc fptr' ptr') = QMessageAuthenticationCodeConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMessageAuthenticationCodeConst where+  nullptr = QMessageAuthenticationCodeConst HoppyF.nullPtr+  +  withCppPtr (QMessageAuthenticationCodeConst ptr') f' = f' ptr'+  withCppPtr (QMessageAuthenticationCodeConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMessageAuthenticationCodeConst ptr') = ptr'+  toPtr (QMessageAuthenticationCodeConstGc _ ptr') = ptr'+  +  touchCppPtr (QMessageAuthenticationCodeConst _) = HoppyP.return ()+  touchCppPtr (QMessageAuthenticationCodeConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMessageAuthenticationCodeConst where+  delete (QMessageAuthenticationCodeConst ptr') = delete'QMessageAuthenticationCode ptr'+  delete (QMessageAuthenticationCodeConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMessageAuthenticationCodeConst", " object."]+  +  toGc this'@(QMessageAuthenticationCodeConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMessageAuthenticationCodeConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMessageAuthenticationCode :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMessageAuthenticationCodeConstGc {}) = HoppyP.return this'++instance QMessageAuthenticationCodeConstPtr QMessageAuthenticationCodeConst where+  toQMessageAuthenticationCodeConst = HoppyP.id++data QMessageAuthenticationCode =+    QMessageAuthenticationCode (HoppyF.Ptr QMessageAuthenticationCode)+  | QMessageAuthenticationCodeGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMessageAuthenticationCode)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMessageAuthenticationCode where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMessageAuthenticationCode where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMessageAuthenticationCodeToNonconst :: QMessageAuthenticationCodeConst -> QMessageAuthenticationCode+castQMessageAuthenticationCodeToNonconst (QMessageAuthenticationCodeConst ptr') = QMessageAuthenticationCode $ HoppyF.castPtr ptr'+castQMessageAuthenticationCodeToNonconst (QMessageAuthenticationCodeConstGc fptr' ptr') = QMessageAuthenticationCodeGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMessageAuthenticationCode where+  nullptr = QMessageAuthenticationCode HoppyF.nullPtr+  +  withCppPtr (QMessageAuthenticationCode ptr') f' = f' ptr'+  withCppPtr (QMessageAuthenticationCodeGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMessageAuthenticationCode ptr') = ptr'+  toPtr (QMessageAuthenticationCodeGc _ ptr') = ptr'+  +  touchCppPtr (QMessageAuthenticationCode _) = HoppyP.return ()+  touchCppPtr (QMessageAuthenticationCodeGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMessageAuthenticationCode where+  delete (QMessageAuthenticationCode ptr') = delete'QMessageAuthenticationCode $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMessageAuthenticationCodeConst)+  delete (QMessageAuthenticationCodeGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMessageAuthenticationCode", " object."]+  +  toGc this'@(QMessageAuthenticationCode ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMessageAuthenticationCodeGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMessageAuthenticationCode :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMessageAuthenticationCodeGc {}) = HoppyP.return this'++instance QMessageAuthenticationCodeConstPtr QMessageAuthenticationCode where+  toQMessageAuthenticationCodeConst (QMessageAuthenticationCode ptr') = QMessageAuthenticationCodeConst $ (HoppyF.castPtr :: HoppyF.Ptr QMessageAuthenticationCode -> HoppyF.Ptr QMessageAuthenticationCodeConst) ptr'+  toQMessageAuthenticationCodeConst (QMessageAuthenticationCodeGc fptr' ptr') = QMessageAuthenticationCodeConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMessageAuthenticationCode -> HoppyF.Ptr QMessageAuthenticationCodeConst) ptr'++instance QMessageAuthenticationCodePtr QMessageAuthenticationCode where+  toQMessageAuthenticationCode = HoppyP.id++new :: (M46.QCryptographicHashAlgorithm) -> (HoppyP.IO QMessageAuthenticationCode)+new arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QMessageAuthenticationCode+  (new' arg'1')++newWithKey :: (M12.QByteArrayValue arg'2) => (M46.QCryptographicHashAlgorithm) -> (arg'2) -> (HoppyP.IO QMessageAuthenticationCode)+newWithKey arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QMessageAuthenticationCode+  (newWithKey' arg'1' arg'2')++class QMessageAuthenticationCodeSuper a where+  downToQMessageAuthenticationCode :: a -> QMessageAuthenticationCode+++class QMessageAuthenticationCodeSuperConst a where+  downToQMessageAuthenticationCodeConst :: a -> QMessageAuthenticationCodeConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMessageAuthenticationCode)) QMessageAuthenticationCode where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMessageAuthenticationCode)) QMessageAuthenticationCode where+  decode = HoppyP.fmap QMessageAuthenticationCode . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QMessageLogContext.hs view
@@ -0,0 +1,126 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QMessageLogContext (+  QMessageLogContextValue (..),+  QMessageLogContextConstPtr (..),+  QMessageLogContextPtr (..),+  QMessageLogContextConst (..),+  castQMessageLogContextToConst,+  QMessageLogContext (..),+  castQMessageLogContextToNonconst,+  QMessageLogContextSuper (..),+  QMessageLogContextSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "gendel__QMessageLogContext" delete'QMessageLogContext :: HoppyF.Ptr QMessageLogContextConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMessageLogContext" deletePtr'QMessageLogContext :: HoppyF.FunPtr (HoppyF.Ptr QMessageLogContextConst -> HoppyP.IO ())++class QMessageLogContextValue a where+  withQMessageLogContextPtr :: a -> (QMessageLogContextConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMessageLogContextConstPtr a => QMessageLogContextValue a where+  withQMessageLogContextPtr = HoppyP.flip ($) . toQMessageLogContextConst++class (HoppyFHR.CppPtr this) => QMessageLogContextConstPtr this where+  toQMessageLogContextConst :: this -> QMessageLogContextConst++class (QMessageLogContextConstPtr this) => QMessageLogContextPtr this where+  toQMessageLogContext :: this -> QMessageLogContext++data QMessageLogContextConst =+    QMessageLogContextConst (HoppyF.Ptr QMessageLogContextConst)+  | QMessageLogContextConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMessageLogContextConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMessageLogContextConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMessageLogContextConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMessageLogContextToConst :: QMessageLogContext -> QMessageLogContextConst+castQMessageLogContextToConst (QMessageLogContext ptr') = QMessageLogContextConst $ HoppyF.castPtr ptr'+castQMessageLogContextToConst (QMessageLogContextGc fptr' ptr') = QMessageLogContextConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMessageLogContextConst where+  nullptr = QMessageLogContextConst HoppyF.nullPtr+  +  withCppPtr (QMessageLogContextConst ptr') f' = f' ptr'+  withCppPtr (QMessageLogContextConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMessageLogContextConst ptr') = ptr'+  toPtr (QMessageLogContextConstGc _ ptr') = ptr'+  +  touchCppPtr (QMessageLogContextConst _) = HoppyP.return ()+  touchCppPtr (QMessageLogContextConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMessageLogContextConst where+  delete (QMessageLogContextConst ptr') = delete'QMessageLogContext ptr'+  delete (QMessageLogContextConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMessageLogContextConst", " object."]+  +  toGc this'@(QMessageLogContextConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMessageLogContextConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMessageLogContext :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMessageLogContextConstGc {}) = HoppyP.return this'++instance QMessageLogContextConstPtr QMessageLogContextConst where+  toQMessageLogContextConst = HoppyP.id++data QMessageLogContext =+    QMessageLogContext (HoppyF.Ptr QMessageLogContext)+  | QMessageLogContextGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMessageLogContext)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMessageLogContext where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMessageLogContext where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMessageLogContextToNonconst :: QMessageLogContextConst -> QMessageLogContext+castQMessageLogContextToNonconst (QMessageLogContextConst ptr') = QMessageLogContext $ HoppyF.castPtr ptr'+castQMessageLogContextToNonconst (QMessageLogContextConstGc fptr' ptr') = QMessageLogContextGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMessageLogContext where+  nullptr = QMessageLogContext HoppyF.nullPtr+  +  withCppPtr (QMessageLogContext ptr') f' = f' ptr'+  withCppPtr (QMessageLogContextGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMessageLogContext ptr') = ptr'+  toPtr (QMessageLogContextGc _ ptr') = ptr'+  +  touchCppPtr (QMessageLogContext _) = HoppyP.return ()+  touchCppPtr (QMessageLogContextGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMessageLogContext where+  delete (QMessageLogContext ptr') = delete'QMessageLogContext $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMessageLogContextConst)+  delete (QMessageLogContextGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMessageLogContext", " object."]+  +  toGc this'@(QMessageLogContext ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMessageLogContextGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMessageLogContext :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMessageLogContextGc {}) = HoppyP.return this'++instance QMessageLogContextConstPtr QMessageLogContext where+  toQMessageLogContextConst (QMessageLogContext ptr') = QMessageLogContextConst $ (HoppyF.castPtr :: HoppyF.Ptr QMessageLogContext -> HoppyF.Ptr QMessageLogContextConst) ptr'+  toQMessageLogContextConst (QMessageLogContextGc fptr' ptr') = QMessageLogContextConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMessageLogContext -> HoppyF.Ptr QMessageLogContextConst) ptr'++instance QMessageLogContextPtr QMessageLogContext where+  toQMessageLogContext = HoppyP.id++class QMessageLogContextSuper a where+  downToQMessageLogContext :: a -> QMessageLogContext+++class QMessageLogContextSuperConst a where+  downToQMessageLogContextConst :: a -> QMessageLogContextConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMessageLogContext)) QMessageLogContext where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMessageLogContext)) QMessageLogContext where+  decode = HoppyP.fmap QMessageLogContext . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QMessageLogger.hs view
@@ -0,0 +1,192 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QMessageLogger (+  QMessageLoggerValue (..),+  QMessageLoggerConstPtr (..),+  critical,+  debug,+  info,+  warning,+  QMessageLoggerPtr (..),+  QMessageLoggerConst (..),+  castQMessageLoggerToConst,+  QMessageLogger (..),+  castQMessageLoggerToNonconst,+  new,+  newWithContext,+  newWithContextAndCategory,+  QMessageLoggerSuper (..),+  QMessageLoggerSuperConst (..),+  ) 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.Core.QDebug as M26+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QMessageLogger_new" new' ::  HoppyP.IO (HoppyF.Ptr QMessageLogger)+foreign import ccall "genpop__QMessageLogger_newWithContext" newWithContext' ::  HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QMessageLogger)+foreign import ccall "genpop__QMessageLogger_newWithContextAndCategory" newWithContextAndCategory' ::  HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QMessageLogger)+foreign import ccall "genpop__QMessageLogger_critical" critical' ::  HoppyF.Ptr QMessageLoggerConst -> HoppyP.IO (HoppyF.Ptr M26.QDebugConst)+foreign import ccall "genpop__QMessageLogger_debug" debug' ::  HoppyF.Ptr QMessageLoggerConst -> HoppyP.IO (HoppyF.Ptr M26.QDebugConst)+foreign import ccall "genpop__QMessageLogger_info" info' ::  HoppyF.Ptr QMessageLoggerConst -> HoppyP.IO (HoppyF.Ptr M26.QDebugConst)+foreign import ccall "genpop__QMessageLogger_warning" warning' ::  HoppyF.Ptr QMessageLoggerConst -> HoppyP.IO (HoppyF.Ptr M26.QDebugConst)+foreign import ccall "gendel__QMessageLogger" delete'QMessageLogger :: HoppyF.Ptr QMessageLoggerConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMessageLogger" deletePtr'QMessageLogger :: HoppyF.FunPtr (HoppyF.Ptr QMessageLoggerConst -> HoppyP.IO ())++class QMessageLoggerValue a where+  withQMessageLoggerPtr :: a -> (QMessageLoggerConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMessageLoggerConstPtr a => QMessageLoggerValue a where+  withQMessageLoggerPtr = HoppyP.flip ($) . toQMessageLoggerConst++class (HoppyFHR.CppPtr this) => QMessageLoggerConstPtr this where+  toQMessageLoggerConst :: this -> QMessageLoggerConst++critical :: (QMessageLoggerValue this) => (this) {- ^ this -} -> (HoppyP.IO M26.QDebug)+critical arg'1 =+  withQMessageLoggerPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M26.QDebugConst) =<<+  (critical' arg'1')++debug :: (QMessageLoggerValue this) => (this) {- ^ this -} -> (HoppyP.IO M26.QDebug)+debug arg'1 =+  withQMessageLoggerPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M26.QDebugConst) =<<+  (debug' arg'1')++info :: (QMessageLoggerValue this) => (this) {- ^ this -} -> (HoppyP.IO M26.QDebug)+info arg'1 =+  withQMessageLoggerPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M26.QDebugConst) =<<+  (info' arg'1')++warning :: (QMessageLoggerValue this) => (this) {- ^ this -} -> (HoppyP.IO M26.QDebug)+warning arg'1 =+  withQMessageLoggerPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M26.QDebugConst) =<<+  (warning' arg'1')++class (QMessageLoggerConstPtr this) => QMessageLoggerPtr this where+  toQMessageLogger :: this -> QMessageLogger++data QMessageLoggerConst =+    QMessageLoggerConst (HoppyF.Ptr QMessageLoggerConst)+  | QMessageLoggerConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMessageLoggerConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMessageLoggerConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMessageLoggerConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMessageLoggerToConst :: QMessageLogger -> QMessageLoggerConst+castQMessageLoggerToConst (QMessageLogger ptr') = QMessageLoggerConst $ HoppyF.castPtr ptr'+castQMessageLoggerToConst (QMessageLoggerGc fptr' ptr') = QMessageLoggerConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMessageLoggerConst where+  nullptr = QMessageLoggerConst HoppyF.nullPtr+  +  withCppPtr (QMessageLoggerConst ptr') f' = f' ptr'+  withCppPtr (QMessageLoggerConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMessageLoggerConst ptr') = ptr'+  toPtr (QMessageLoggerConstGc _ ptr') = ptr'+  +  touchCppPtr (QMessageLoggerConst _) = HoppyP.return ()+  touchCppPtr (QMessageLoggerConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMessageLoggerConst where+  delete (QMessageLoggerConst ptr') = delete'QMessageLogger ptr'+  delete (QMessageLoggerConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMessageLoggerConst", " object."]+  +  toGc this'@(QMessageLoggerConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMessageLoggerConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMessageLogger :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMessageLoggerConstGc {}) = HoppyP.return this'++instance QMessageLoggerConstPtr QMessageLoggerConst where+  toQMessageLoggerConst = HoppyP.id++data QMessageLogger =+    QMessageLogger (HoppyF.Ptr QMessageLogger)+  | QMessageLoggerGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMessageLogger)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMessageLogger where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMessageLogger where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMessageLoggerToNonconst :: QMessageLoggerConst -> QMessageLogger+castQMessageLoggerToNonconst (QMessageLoggerConst ptr') = QMessageLogger $ HoppyF.castPtr ptr'+castQMessageLoggerToNonconst (QMessageLoggerConstGc fptr' ptr') = QMessageLoggerGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMessageLogger where+  nullptr = QMessageLogger HoppyF.nullPtr+  +  withCppPtr (QMessageLogger ptr') f' = f' ptr'+  withCppPtr (QMessageLoggerGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMessageLogger ptr') = ptr'+  toPtr (QMessageLoggerGc _ ptr') = ptr'+  +  touchCppPtr (QMessageLogger _) = HoppyP.return ()+  touchCppPtr (QMessageLoggerGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMessageLogger where+  delete (QMessageLogger ptr') = delete'QMessageLogger $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMessageLoggerConst)+  delete (QMessageLoggerGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMessageLogger", " object."]+  +  toGc this'@(QMessageLogger ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMessageLoggerGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMessageLogger :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMessageLoggerGc {}) = HoppyP.return this'++instance QMessageLoggerConstPtr QMessageLogger where+  toQMessageLoggerConst (QMessageLogger ptr') = QMessageLoggerConst $ (HoppyF.castPtr :: HoppyF.Ptr QMessageLogger -> HoppyF.Ptr QMessageLoggerConst) ptr'+  toQMessageLoggerConst (QMessageLoggerGc fptr' ptr') = QMessageLoggerConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMessageLogger -> HoppyF.Ptr QMessageLoggerConst) ptr'++instance QMessageLoggerPtr QMessageLogger where+  toQMessageLogger = HoppyP.id++new :: (HoppyP.IO QMessageLogger)+new =+  HoppyP.fmap QMessageLogger+  (new')++newWithContext :: (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QMessageLogger)+newWithContext arg'1 arg'2 arg'3 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  HoppyP.fmap QMessageLogger+  (newWithContext' arg'1' arg'2' arg'3')++newWithContextAndCategory :: (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QMessageLogger)+newWithContextAndCategory arg'1 arg'2 arg'3 arg'4 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  let arg'4' = arg'4 in+  HoppyP.fmap QMessageLogger+  (newWithContextAndCategory' arg'1' arg'2' arg'3' arg'4')++class QMessageLoggerSuper a where+  downToQMessageLogger :: a -> QMessageLogger+++class QMessageLoggerSuperConst a where+  downToQMessageLoggerConst :: a -> QMessageLoggerConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMessageLogger)) QMessageLogger where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMessageLogger)) QMessageLogger where+  decode = HoppyP.fmap QMessageLogger . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QMetaClassInfo.hs view
@@ -0,0 +1,164 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QMetaClassInfo (+  QMetaClassInfoValue (..),+  QMetaClassInfoConstPtr (..),+  name,+  value,+  QMetaClassInfoPtr (..),+  QMetaClassInfoConst (..),+  castQMetaClassInfoToConst,+  QMetaClassInfo (..),+  castQMetaClassInfoToNonconst,+  newCopy,+  QMetaClassInfoSuper (..),+  QMetaClassInfoSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (=<<), (==))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QMetaClassInfo_newCopy" newCopy' ::  HoppyF.Ptr QMetaClassInfoConst -> HoppyP.IO (HoppyF.Ptr QMetaClassInfo)+foreign import ccall "genpop__QMetaClassInfo_name" name' ::  HoppyF.Ptr QMetaClassInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QMetaClassInfo_value" value' ::  HoppyF.Ptr QMetaClassInfoConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "gendel__QMetaClassInfo" delete'QMetaClassInfo :: HoppyF.Ptr QMetaClassInfoConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMetaClassInfo" deletePtr'QMetaClassInfo :: HoppyF.FunPtr (HoppyF.Ptr QMetaClassInfoConst -> HoppyP.IO ())++class QMetaClassInfoValue a where+  withQMetaClassInfoPtr :: a -> (QMetaClassInfoConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMetaClassInfoConstPtr a => QMetaClassInfoValue a where+  withQMetaClassInfoPtr = HoppyP.flip ($) . toQMetaClassInfoConst++class (HoppyFHR.CppPtr this) => QMetaClassInfoConstPtr this where+  toQMetaClassInfoConst :: this -> QMetaClassInfoConst++name :: (QMetaClassInfoValue arg'1) => (arg'1) -> (HoppyP.IO QtahP.String)+name arg'1 =+  withQMetaClassInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (name' arg'1')++value :: (QMetaClassInfoValue arg'1) => (arg'1) -> (HoppyP.IO QtahP.String)+value arg'1 =+  withQMetaClassInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (value' arg'1')++class (QMetaClassInfoConstPtr this) => QMetaClassInfoPtr this where+  toQMetaClassInfo :: this -> QMetaClassInfo++data QMetaClassInfoConst =+    QMetaClassInfoConst (HoppyF.Ptr QMetaClassInfoConst)+  | QMetaClassInfoConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMetaClassInfoConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMetaClassInfoConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMetaClassInfoConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMetaClassInfoToConst :: QMetaClassInfo -> QMetaClassInfoConst+castQMetaClassInfoToConst (QMetaClassInfo ptr') = QMetaClassInfoConst $ HoppyF.castPtr ptr'+castQMetaClassInfoToConst (QMetaClassInfoGc fptr' ptr') = QMetaClassInfoConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMetaClassInfoConst where+  nullptr = QMetaClassInfoConst HoppyF.nullPtr+  +  withCppPtr (QMetaClassInfoConst ptr') f' = f' ptr'+  withCppPtr (QMetaClassInfoConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMetaClassInfoConst ptr') = ptr'+  toPtr (QMetaClassInfoConstGc _ ptr') = ptr'+  +  touchCppPtr (QMetaClassInfoConst _) = HoppyP.return ()+  touchCppPtr (QMetaClassInfoConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMetaClassInfoConst where+  delete (QMetaClassInfoConst ptr') = delete'QMetaClassInfo ptr'+  delete (QMetaClassInfoConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMetaClassInfoConst", " object."]+  +  toGc this'@(QMetaClassInfoConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMetaClassInfoConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMetaClassInfo :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMetaClassInfoConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QMetaClassInfoConst QMetaClassInfo where copy = newCopy++instance QMetaClassInfoConstPtr QMetaClassInfoConst where+  toQMetaClassInfoConst = HoppyP.id++data QMetaClassInfo =+    QMetaClassInfo (HoppyF.Ptr QMetaClassInfo)+  | QMetaClassInfoGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMetaClassInfo)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMetaClassInfo where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMetaClassInfo where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMetaClassInfoToNonconst :: QMetaClassInfoConst -> QMetaClassInfo+castQMetaClassInfoToNonconst (QMetaClassInfoConst ptr') = QMetaClassInfo $ HoppyF.castPtr ptr'+castQMetaClassInfoToNonconst (QMetaClassInfoConstGc fptr' ptr') = QMetaClassInfoGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMetaClassInfo where+  nullptr = QMetaClassInfo HoppyF.nullPtr+  +  withCppPtr (QMetaClassInfo ptr') f' = f' ptr'+  withCppPtr (QMetaClassInfoGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMetaClassInfo ptr') = ptr'+  toPtr (QMetaClassInfoGc _ ptr') = ptr'+  +  touchCppPtr (QMetaClassInfo _) = HoppyP.return ()+  touchCppPtr (QMetaClassInfoGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMetaClassInfo where+  delete (QMetaClassInfo ptr') = delete'QMetaClassInfo $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMetaClassInfoConst)+  delete (QMetaClassInfoGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMetaClassInfo", " object."]+  +  toGc this'@(QMetaClassInfo ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMetaClassInfoGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMetaClassInfo :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMetaClassInfoGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QMetaClassInfo QMetaClassInfo where copy = newCopy++instance QMetaClassInfoConstPtr QMetaClassInfo where+  toQMetaClassInfoConst (QMetaClassInfo ptr') = QMetaClassInfoConst $ (HoppyF.castPtr :: HoppyF.Ptr QMetaClassInfo -> HoppyF.Ptr QMetaClassInfoConst) ptr'+  toQMetaClassInfoConst (QMetaClassInfoGc fptr' ptr') = QMetaClassInfoConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMetaClassInfo -> HoppyF.Ptr QMetaClassInfoConst) ptr'++instance QMetaClassInfoPtr QMetaClassInfo where+  toQMetaClassInfo = HoppyP.id++newCopy :: (QMetaClassInfoValue arg'1) => (arg'1) -> (HoppyP.IO QMetaClassInfo)+newCopy arg'1 =+  withQMetaClassInfoPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QMetaClassInfo+  (newCopy' arg'1')++class QMetaClassInfoSuper a where+  downToQMetaClassInfo :: a -> QMetaClassInfo+++class QMetaClassInfoSuperConst a where+  downToQMetaClassInfoConst :: a -> QMetaClassInfoConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMetaClassInfo)) QMetaClassInfo where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMetaClassInfo)) QMetaClassInfo where+  decode = HoppyP.fmap QMetaClassInfo . HoppyF.peek++instance HoppyFHR.Decodable QMetaClassInfo (QMetaClassInfo) where+  decode = HoppyFHR.decode . toQMetaClassInfoConst++instance HoppyFHR.Decodable QMetaClassInfoConst (QMetaClassInfo) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QMetaEnum.hs view
@@ -0,0 +1,300 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QMetaEnum (+  QMetaEnumValue (..),+  QMetaEnumConstPtr (..),+  enumName,+  isFlag,+  isScoped,+  isValid,+  key,+  keyCount,+  keyToValue,+  keyToValueWithPtrBool,+  keysToValue,+  keysToValueWithPtrBool,+  name,+  scope,+  value,+  valueToKey,+  valueToKeys,+  QMetaEnumPtr (..),+  QMetaEnumConst (..),+  castQMetaEnumToConst,+  QMetaEnum (..),+  castQMetaEnumToNonconst,+  newCopy,+  QMetaEnumSuper (..),+  QMetaEnumSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Data.ByteString as QtahDBS+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QMetaEnum_newCopy" newCopy' ::  HoppyF.Ptr QMetaEnumConst -> HoppyP.IO (HoppyF.Ptr QMetaEnum)+foreign import ccall "genpop__QMetaEnum_enumName" enumName' ::  HoppyF.Ptr QMetaEnumConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "genpop__QMetaEnum_isFlag" isFlag' ::  HoppyF.Ptr QMetaEnumConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaEnum_isScoped" isScoped' ::  HoppyF.Ptr QMetaEnumConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaEnum_isValid" isValid' ::  HoppyF.Ptr QMetaEnumConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaEnum_key" key' ::  HoppyF.Ptr QMetaEnumConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "genpop__QMetaEnum_keyCount" keyCount' ::  HoppyF.Ptr QMetaEnumConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaEnum_keyToValue" keyToValue' ::  HoppyF.Ptr QMetaEnumConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaEnum_keyToValueWithPtrBool" keyToValueWithPtrBool' ::  HoppyF.Ptr QMetaEnumConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr HoppyFC.CBool -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaEnum_keysToValue" keysToValue' ::  HoppyF.Ptr QMetaEnumConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaEnum_keysToValueWithPtrBool" keysToValueWithPtrBool' ::  HoppyF.Ptr QMetaEnumConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr HoppyFC.CBool -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaEnum_name" name' ::  HoppyF.Ptr QMetaEnumConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "genpop__QMetaEnum_scope" scope' ::  HoppyF.Ptr QMetaEnumConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "genpop__QMetaEnum_value" value' ::  HoppyF.Ptr QMetaEnumConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaEnum_valueToKey" valueToKey' ::  HoppyF.Ptr QMetaEnumConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "genpop__QMetaEnum_valueToKeys" valueToKeys' ::  HoppyF.Ptr QMetaEnumConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "gendel__QMetaEnum" delete'QMetaEnum :: HoppyF.Ptr QMetaEnumConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMetaEnum" deletePtr'QMetaEnum :: HoppyF.FunPtr (HoppyF.Ptr QMetaEnumConst -> HoppyP.IO ())++class QMetaEnumValue a where+  withQMetaEnumPtr :: a -> (QMetaEnumConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMetaEnumConstPtr a => QMetaEnumValue a where+  withQMetaEnumPtr = HoppyP.flip ($) . toQMetaEnumConst++class (HoppyFHR.CppPtr this) => QMetaEnumConstPtr this where+  toQMetaEnumConst :: this -> QMetaEnumConst++enumName :: (QMetaEnumValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+enumName arg'1 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (enumName' arg'1')++isFlag :: (QMetaEnumValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isFlag arg'1 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isFlag' arg'1')++isScoped :: (QMetaEnumValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isScoped arg'1 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isScoped' arg'1')++isValid :: (QMetaEnumValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++key :: (QMetaEnumValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+key arg'1 arg'2 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (key' arg'1' arg'2')++keyCount :: (QMetaEnumValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+keyCount arg'1 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (keyCount' arg'1')++keyToValue :: (QMetaEnumValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Int)+keyToValue arg'1 arg'2 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (keyToValue' arg'1' arg'2')++keyToValueWithPtrBool :: (QMetaEnumValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.IO HoppyP.Int)+keyToValueWithPtrBool arg'1 arg'2 arg'3 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (keyToValueWithPtrBool' arg'1' arg'2' arg'3')++keysToValue :: (QMetaEnumValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Int)+keysToValue arg'1 arg'2 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (keysToValue' arg'1' arg'2')++keysToValueWithPtrBool :: (QMetaEnumValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.IO HoppyP.Int)+keysToValueWithPtrBool arg'1 arg'2 arg'3 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (keysToValueWithPtrBool' arg'1' arg'2' arg'3')++name :: (QMetaEnumValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+name arg'1 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (name' arg'1')++scope :: (QMetaEnumValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+scope arg'1 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (scope' arg'1')++value :: (QMetaEnumValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+value arg'1 arg'2 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (value' arg'1' arg'2')++valueToKey :: (QMetaEnumValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+valueToKey arg'1 arg'2 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (valueToKey' arg'1' arg'2')++valueToKeys :: (QMetaEnumValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahDBS.ByteString)+valueToKeys arg'1 arg'2 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (valueToKeys' arg'1' arg'2')++class (QMetaEnumConstPtr this) => QMetaEnumPtr this where+  toQMetaEnum :: this -> QMetaEnum++data QMetaEnumConst =+    QMetaEnumConst (HoppyF.Ptr QMetaEnumConst)+  | QMetaEnumConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMetaEnumConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMetaEnumConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMetaEnumConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMetaEnumToConst :: QMetaEnum -> QMetaEnumConst+castQMetaEnumToConst (QMetaEnum ptr') = QMetaEnumConst $ HoppyF.castPtr ptr'+castQMetaEnumToConst (QMetaEnumGc fptr' ptr') = QMetaEnumConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMetaEnumConst where+  nullptr = QMetaEnumConst HoppyF.nullPtr+  +  withCppPtr (QMetaEnumConst ptr') f' = f' ptr'+  withCppPtr (QMetaEnumConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMetaEnumConst ptr') = ptr'+  toPtr (QMetaEnumConstGc _ ptr') = ptr'+  +  touchCppPtr (QMetaEnumConst _) = HoppyP.return ()+  touchCppPtr (QMetaEnumConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMetaEnumConst where+  delete (QMetaEnumConst ptr') = delete'QMetaEnum ptr'+  delete (QMetaEnumConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMetaEnumConst", " object."]+  +  toGc this'@(QMetaEnumConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMetaEnumConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMetaEnum :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMetaEnumConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QMetaEnumConst QMetaEnum where copy = newCopy++instance QMetaEnumConstPtr QMetaEnumConst where+  toQMetaEnumConst = HoppyP.id++data QMetaEnum =+    QMetaEnum (HoppyF.Ptr QMetaEnum)+  | QMetaEnumGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMetaEnum)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMetaEnum where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMetaEnum where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMetaEnumToNonconst :: QMetaEnumConst -> QMetaEnum+castQMetaEnumToNonconst (QMetaEnumConst ptr') = QMetaEnum $ HoppyF.castPtr ptr'+castQMetaEnumToNonconst (QMetaEnumConstGc fptr' ptr') = QMetaEnumGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMetaEnum where+  nullptr = QMetaEnum HoppyF.nullPtr+  +  withCppPtr (QMetaEnum ptr') f' = f' ptr'+  withCppPtr (QMetaEnumGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMetaEnum ptr') = ptr'+  toPtr (QMetaEnumGc _ ptr') = ptr'+  +  touchCppPtr (QMetaEnum _) = HoppyP.return ()+  touchCppPtr (QMetaEnumGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMetaEnum where+  delete (QMetaEnum ptr') = delete'QMetaEnum $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMetaEnumConst)+  delete (QMetaEnumGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMetaEnum", " object."]+  +  toGc this'@(QMetaEnum ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMetaEnumGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMetaEnum :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMetaEnumGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QMetaEnum QMetaEnum where copy = newCopy++instance QMetaEnumConstPtr QMetaEnum where+  toQMetaEnumConst (QMetaEnum ptr') = QMetaEnumConst $ (HoppyF.castPtr :: HoppyF.Ptr QMetaEnum -> HoppyF.Ptr QMetaEnumConst) ptr'+  toQMetaEnumConst (QMetaEnumGc fptr' ptr') = QMetaEnumConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMetaEnum -> HoppyF.Ptr QMetaEnumConst) ptr'++instance QMetaEnumPtr QMetaEnum where+  toQMetaEnum = HoppyP.id++newCopy :: (QMetaEnumValue arg'1) => (arg'1) -> (HoppyP.IO QMetaEnum)+newCopy arg'1 =+  withQMetaEnumPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QMetaEnum+  (newCopy' arg'1')++class QMetaEnumSuper a where+  downToQMetaEnum :: a -> QMetaEnum+++class QMetaEnumSuperConst a where+  downToQMetaEnumConst :: a -> QMetaEnumConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMetaEnum)) QMetaEnum where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMetaEnum)) QMetaEnum where+  decode = HoppyP.fmap QMetaEnum . HoppyF.peek++instance HoppyFHR.Decodable QMetaEnum (QMetaEnum) where+  decode = HoppyFHR.decode . toQMetaEnumConst++instance HoppyFHR.Decodable QMetaEnumConst (QMetaEnum) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QMetaMethod.hs view
@@ -0,0 +1,354 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QMetaMethod (+  QMetaMethodValue (..),+  QMetaMethodConstPtr (..),+  access,+  isValid,+  methodIndex,+  methodSignature,+  methodType,+  name,+  parameterCount,+  parameterNames,+  parameterType,+  parameterTypes,+  returnType,+  revision,+  tag,+  typeName,+  QMetaMethodPtr (..),+  nE,+  eQ,+  QMetaMethodConst (..),+  castQMetaMethodToConst,+  QMetaMethod (..),+  castQMetaMethodToNonconst,+  newCopy,+  QMetaMethodSuper (..),+  QMetaMethodSuperConst (..),+  QMetaMethodAccess (..),+  QMetaMethodMethodType (..),+  ) where++import Control.Monad ((>=>))+import qualified Data.ByteString as QtahDBS+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QList.QByteArray as M196+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QMetaMethod_newCopy" newCopy' ::  HoppyF.Ptr QMetaMethodConst -> HoppyP.IO (HoppyF.Ptr QMetaMethod)+foreign import ccall "genpop__QMetaMethod_access" access' ::  HoppyF.Ptr QMetaMethodConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaMethod_isValid" isValid' ::  HoppyF.Ptr QMetaMethodConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaMethod_methodIndex" methodIndex' ::  HoppyF.Ptr QMetaMethodConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaMethod_methodSignature" methodSignature' ::  HoppyF.Ptr QMetaMethodConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QMetaMethod_methodType" methodType' ::  HoppyF.Ptr QMetaMethodConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaMethod_name" name' ::  HoppyF.Ptr QMetaMethodConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QMetaMethod_parameterCount" parameterCount' ::  HoppyF.Ptr QMetaMethodConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaMethod_parameterNames" parameterNames' ::  HoppyF.Ptr QMetaMethodConst -> HoppyP.IO (HoppyF.Ptr M196.QListQByteArrayConst)+foreign import ccall "genpop__QMetaMethod_parameterType" parameterType' ::  HoppyF.Ptr QMetaMethodConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaMethod_parameterTypes" parameterTypes' ::  HoppyF.Ptr QMetaMethodConst -> HoppyP.IO (HoppyF.Ptr M196.QListQByteArrayConst)+foreign import ccall "genpop__QMetaMethod_returnType" returnType' ::  HoppyF.Ptr QMetaMethodConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaMethod_revision" revision' ::  HoppyF.Ptr QMetaMethodConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaMethod_tag" tag' ::  HoppyF.Ptr QMetaMethodConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "genpop__QMetaMethod_typeName" typeName' ::  HoppyF.Ptr QMetaMethodConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "genpop__QMetaMethod_NE" nE' ::  HoppyF.Ptr QMetaMethod -> HoppyF.Ptr QMetaMethodConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaMethod_EQ" eQ' ::  HoppyF.Ptr QMetaMethod -> HoppyF.Ptr QMetaMethodConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "gendel__QMetaMethod" delete'QMetaMethod :: HoppyF.Ptr QMetaMethodConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMetaMethod" deletePtr'QMetaMethod :: HoppyF.FunPtr (HoppyF.Ptr QMetaMethodConst -> HoppyP.IO ())++class QMetaMethodValue a where+  withQMetaMethodPtr :: a -> (QMetaMethodConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMetaMethodConstPtr a => QMetaMethodValue a where+  withQMetaMethodPtr = HoppyP.flip ($) . toQMetaMethodConst++class (HoppyFHR.CppPtr this) => QMetaMethodConstPtr this where+  toQMetaMethodConst :: this -> QMetaMethodConst++access :: (QMetaMethodValue this) => (this) {- ^ this -} -> (HoppyP.IO QMetaMethodAccess)+access arg'1 =+  withQMetaMethodPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (access' arg'1')++isValid :: (QMetaMethodValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQMetaMethodPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++methodIndex :: (QMetaMethodValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+methodIndex arg'1 =+  withQMetaMethodPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (methodIndex' arg'1')++methodSignature :: (QMetaMethodValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+methodSignature arg'1 =+  withQMetaMethodPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (methodSignature' arg'1')++methodType :: (QMetaMethodValue this) => (this) {- ^ this -} -> (HoppyP.IO QMetaMethodMethodType)+methodType arg'1 =+  withQMetaMethodPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (methodType' arg'1')++name :: (QMetaMethodValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+name arg'1 =+  withQMetaMethodPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (name' arg'1')++parameterCount :: (QMetaMethodValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+parameterCount arg'1 =+  withQMetaMethodPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (parameterCount' arg'1')++parameterNames :: (QMetaMethodValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahDBS.ByteString])+parameterNames arg'1 =+  withQMetaMethodPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M196.QListQByteArrayConst) =<<+  (parameterNames' arg'1')++parameterType :: (QMetaMethodValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+parameterType arg'1 arg'2 =+  withQMetaMethodPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (parameterType' arg'1' arg'2')++parameterTypes :: (QMetaMethodValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahDBS.ByteString])+parameterTypes arg'1 =+  withQMetaMethodPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M196.QListQByteArrayConst) =<<+  (parameterTypes' arg'1')++returnType :: (QMetaMethodValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+returnType arg'1 =+  withQMetaMethodPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (returnType' arg'1')++revision :: (QMetaMethodValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+revision arg'1 =+  withQMetaMethodPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (revision' arg'1')++tag :: (QMetaMethodValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+tag arg'1 =+  withQMetaMethodPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (tag' arg'1')++typeName :: (QMetaMethodValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+typeName arg'1 =+  withQMetaMethodPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (typeName' arg'1')++class (QMetaMethodConstPtr this) => QMetaMethodPtr this where+  toQMetaMethod :: this -> QMetaMethod++nE :: (QMetaMethodPtr this, QMetaMethodValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMetaMethod arg'1) $ \arg'1' ->+  withQMetaMethodPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++eQ :: (QMetaMethodPtr this, QMetaMethodValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMetaMethod arg'1) $ \arg'1' ->+  withQMetaMethodPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++data QMetaMethodConst =+    QMetaMethodConst (HoppyF.Ptr QMetaMethodConst)+  | QMetaMethodConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMetaMethodConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMetaMethodConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMetaMethodConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMetaMethodToConst :: QMetaMethod -> QMetaMethodConst+castQMetaMethodToConst (QMetaMethod ptr') = QMetaMethodConst $ HoppyF.castPtr ptr'+castQMetaMethodToConst (QMetaMethodGc fptr' ptr') = QMetaMethodConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMetaMethodConst where+  nullptr = QMetaMethodConst HoppyF.nullPtr+  +  withCppPtr (QMetaMethodConst ptr') f' = f' ptr'+  withCppPtr (QMetaMethodConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMetaMethodConst ptr') = ptr'+  toPtr (QMetaMethodConstGc _ ptr') = ptr'+  +  touchCppPtr (QMetaMethodConst _) = HoppyP.return ()+  touchCppPtr (QMetaMethodConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMetaMethodConst where+  delete (QMetaMethodConst ptr') = delete'QMetaMethod ptr'+  delete (QMetaMethodConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMetaMethodConst", " object."]+  +  toGc this'@(QMetaMethodConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMetaMethodConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMetaMethod :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMetaMethodConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QMetaMethodConst QMetaMethod where copy = newCopy++instance QMetaMethodConstPtr QMetaMethodConst where+  toQMetaMethodConst = HoppyP.id++data QMetaMethod =+    QMetaMethod (HoppyF.Ptr QMetaMethod)+  | QMetaMethodGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMetaMethod)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMetaMethod where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMetaMethod where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMetaMethodToNonconst :: QMetaMethodConst -> QMetaMethod+castQMetaMethodToNonconst (QMetaMethodConst ptr') = QMetaMethod $ HoppyF.castPtr ptr'+castQMetaMethodToNonconst (QMetaMethodConstGc fptr' ptr') = QMetaMethodGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMetaMethod where+  nullptr = QMetaMethod HoppyF.nullPtr+  +  withCppPtr (QMetaMethod ptr') f' = f' ptr'+  withCppPtr (QMetaMethodGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMetaMethod ptr') = ptr'+  toPtr (QMetaMethodGc _ ptr') = ptr'+  +  touchCppPtr (QMetaMethod _) = HoppyP.return ()+  touchCppPtr (QMetaMethodGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMetaMethod where+  delete (QMetaMethod ptr') = delete'QMetaMethod $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMetaMethodConst)+  delete (QMetaMethodGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMetaMethod", " object."]+  +  toGc this'@(QMetaMethod ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMetaMethodGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMetaMethod :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMetaMethodGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QMetaMethod QMetaMethod where copy = newCopy++instance QMetaMethodConstPtr QMetaMethod where+  toQMetaMethodConst (QMetaMethod ptr') = QMetaMethodConst $ (HoppyF.castPtr :: HoppyF.Ptr QMetaMethod -> HoppyF.Ptr QMetaMethodConst) ptr'+  toQMetaMethodConst (QMetaMethodGc fptr' ptr') = QMetaMethodConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMetaMethod -> HoppyF.Ptr QMetaMethodConst) ptr'++instance QMetaMethodPtr QMetaMethod where+  toQMetaMethod = HoppyP.id++newCopy :: (QMetaMethodValue arg'1) => (arg'1) -> (HoppyP.IO QMetaMethod)+newCopy arg'1 =+  withQMetaMethodPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QMetaMethod+  (newCopy' arg'1')++class QMetaMethodSuper a where+  downToQMetaMethod :: a -> QMetaMethod+++class QMetaMethodSuperConst a where+  downToQMetaMethodConst :: a -> QMetaMethodConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMetaMethod)) QMetaMethod where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMetaMethod)) QMetaMethod where+  decode = HoppyP.fmap QMetaMethod . HoppyF.peek++instance HoppyFHR.Decodable QMetaMethod (QMetaMethod) where+  decode = HoppyFHR.decode . toQMetaMethodConst++instance HoppyFHR.Decodable QMetaMethodConst (QMetaMethod) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc++data QMetaMethodAccess =+  Private+  | Protected+  | Public+  | UnknownQMetaMethodAccess (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QMetaMethodAccess where+  fromCppEnum Private = 0+  fromCppEnum Protected = 1+  fromCppEnum Public = 2+  fromCppEnum (UnknownQMetaMethodAccess n) = n+  +  toCppEnum (0) = Private+  toCppEnum (1) = Protected+  toCppEnum (2) = Public+  toCppEnum n = UnknownQMetaMethodAccess n++instance HoppyP.Eq QMetaMethodAccess where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QMetaMethodAccess where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QMetaMethodMethodType =+  Method+  | Signal+  | Slot+  | Constructor+  | UnknownQMetaMethodMethodType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QMetaMethodMethodType where+  fromCppEnum Method = 0+  fromCppEnum Signal = 1+  fromCppEnum Slot = 2+  fromCppEnum Constructor = 3+  fromCppEnum (UnknownQMetaMethodMethodType n) = n+  +  toCppEnum (0) = Method+  toCppEnum (1) = Signal+  toCppEnum (2) = Slot+  toCppEnum (3) = Constructor+  toCppEnum n = UnknownQMetaMethodMethodType n++instance HoppyP.Eq QMetaMethodMethodType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QMetaMethodMethodType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Core/QMetaObject.hs view
@@ -0,0 +1,381 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QMetaObject (+  QMetaObjectValue (..),+  QMetaObjectConstPtr (..),+  classInfo,+  classInfoCount,+  classInfoOffset,+  constructor,+  constructorCount,+  enumerator,+  enumeratorCount,+  enumeratorOffset,+  indexOfClassInfo,+  indexOfConstructor,+  indexOfEnumerator,+  indexOfMethod,+  indexOfProperty,+  indexOfSignal,+  indexOfSlot,+  inherits,+  method,+  methodCount,+  methodOffset,+  property,+  propertyCount,+  propertyOffset,+  superClass,+  userProperty,+  QMetaObjectPtr (..),+  QMetaObjectConst (..),+  castQMetaObjectToConst,+  QMetaObject (..),+  castQMetaObjectToNonconst,+  QMetaObjectSuper (..),+  QMetaObjectSuperConst (..),+  ) 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.Core.QMetaClassInfo as M78+import qualified Graphics.UI.Qtah.Generated.Core.QMetaEnum as M80+import qualified Graphics.UI.Qtah.Generated.Core.QMetaMethod as M82+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QMetaProperty as M88+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QMetaObject_classInfo" classInfo' ::  HoppyF.Ptr QMetaObjectConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M78.QMetaClassInfoConst)+foreign import ccall "genpop__QMetaObject_classInfoCount" classInfoCount' ::  HoppyF.Ptr QMetaObjectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_classInfoOffset" classInfoOffset' ::  HoppyF.Ptr QMetaObjectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_constructor" constructor' ::  HoppyF.Ptr QMetaObjectConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M82.QMetaMethodConst)+foreign import ccall "genpop__QMetaObject_constructorCount" constructorCount' ::  HoppyF.Ptr QMetaObjectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_enumerator" enumerator' ::  HoppyF.Ptr QMetaObjectConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M80.QMetaEnumConst)+foreign import ccall "genpop__QMetaObject_enumeratorCount" enumeratorCount' ::  HoppyF.Ptr QMetaObjectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_enumeratorOffset" enumeratorOffset' ::  HoppyF.Ptr QMetaObjectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_indexOfClassInfo" indexOfClassInfo' ::  HoppyF.Ptr QMetaObjectConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_indexOfConstructor" indexOfConstructor' ::  HoppyF.Ptr QMetaObjectConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_indexOfEnumerator" indexOfEnumerator' ::  HoppyF.Ptr QMetaObjectConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_indexOfMethod" indexOfMethod' ::  HoppyF.Ptr QMetaObjectConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_indexOfProperty" indexOfProperty' ::  HoppyF.Ptr QMetaObjectConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_indexOfSignal" indexOfSignal' ::  HoppyF.Ptr QMetaObjectConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_indexOfSlot" indexOfSlot' ::  HoppyF.Ptr QMetaObjectConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_inherits" inherits' ::  HoppyF.Ptr QMetaObjectConst -> HoppyF.Ptr QMetaObjectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaObject_method" method' ::  HoppyF.Ptr QMetaObjectConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M82.QMetaMethodConst)+foreign import ccall "genpop__QMetaObject_methodCount" methodCount' ::  HoppyF.Ptr QMetaObjectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_methodOffset" methodOffset' ::  HoppyF.Ptr QMetaObjectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_property" property' ::  HoppyF.Ptr QMetaObjectConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M88.QMetaPropertyConst)+foreign import ccall "genpop__QMetaObject_propertyCount" propertyCount' ::  HoppyF.Ptr QMetaObjectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_propertyOffset" propertyOffset' ::  HoppyF.Ptr QMetaObjectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaObject_superClass" superClass' ::  HoppyF.Ptr QMetaObjectConst -> HoppyP.IO (HoppyF.Ptr QMetaObjectConst)+foreign import ccall "genpop__QMetaObject_userProperty" userProperty' ::  HoppyF.Ptr QMetaObjectConst -> HoppyP.IO (HoppyF.Ptr M88.QMetaPropertyConst)+foreign import ccall "gendel__QMetaObject" delete'QMetaObject :: HoppyF.Ptr QMetaObjectConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMetaObject" deletePtr'QMetaObject :: HoppyF.FunPtr (HoppyF.Ptr QMetaObjectConst -> HoppyP.IO ())++class QMetaObjectValue a where+  withQMetaObjectPtr :: a -> (QMetaObjectConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMetaObjectConstPtr a => QMetaObjectValue a where+  withQMetaObjectPtr = HoppyP.flip ($) . toQMetaObjectConst++class (HoppyFHR.CppPtr this) => QMetaObjectConstPtr this where+  toQMetaObjectConst :: this -> QMetaObjectConst++classInfo :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M78.QMetaClassInfo)+classInfo arg'1 arg'2 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M78.QMetaClassInfoConst) =<<+  (classInfo' arg'1' arg'2')++classInfoCount :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+classInfoCount arg'1 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (classInfoCount' arg'1')++classInfoOffset :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+classInfoOffset arg'1 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (classInfoOffset' arg'1')++constructor :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M82.QMetaMethod)+constructor arg'1 arg'2 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M82.QMetaMethodConst) =<<+  (constructor' arg'1' arg'2')++constructorCount :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+constructorCount arg'1 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (constructorCount' arg'1')++enumerator :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M80.QMetaEnum)+enumerator arg'1 arg'2 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M80.QMetaEnumConst) =<<+  (enumerator' arg'1' arg'2')++enumeratorCount :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+enumeratorCount arg'1 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (enumeratorCount' arg'1')++enumeratorOffset :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+enumeratorOffset arg'1 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (enumeratorOffset' arg'1')++indexOfClassInfo :: (QMetaObjectValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOfClassInfo arg'1 arg'2 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfClassInfo' arg'1' arg'2')++indexOfConstructor :: (QMetaObjectValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOfConstructor arg'1 arg'2 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfConstructor' arg'1' arg'2')++indexOfEnumerator :: (QMetaObjectValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOfEnumerator arg'1 arg'2 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfEnumerator' arg'1' arg'2')++indexOfMethod :: (QMetaObjectValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOfMethod arg'1 arg'2 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfMethod' arg'1' arg'2')++indexOfProperty :: (QMetaObjectValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOfProperty arg'1 arg'2 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfProperty' arg'1' arg'2')++indexOfSignal :: (QMetaObjectValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOfSignal arg'1 arg'2 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfSignal' arg'1' arg'2')++indexOfSlot :: (QMetaObjectValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOfSlot arg'1 arg'2 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfSlot' arg'1' arg'2')++inherits :: (QMetaObjectValue this, QMetaObjectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+inherits arg'1 arg'2 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQMetaObjectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (inherits' arg'1' arg'2')++method :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M82.QMetaMethod)+method arg'1 arg'2 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M82.QMetaMethodConst) =<<+  (method' arg'1' arg'2')++methodCount :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+methodCount arg'1 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (methodCount' arg'1')++methodOffset :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+methodOffset arg'1 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (methodOffset' arg'1')++property :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M88.QMetaProperty)+property arg'1 arg'2 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M88.QMetaPropertyConst) =<<+  (property' arg'1' arg'2')++propertyCount :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+propertyCount arg'1 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (propertyCount' arg'1')++propertyOffset :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+propertyOffset arg'1 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (propertyOffset' arg'1')++superClass :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO QMetaObjectConst)+superClass arg'1 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QMetaObjectConst+  (superClass' arg'1')++userProperty :: (QMetaObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO M88.QMetaProperty)+userProperty arg'1 =+  withQMetaObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M88.QMetaPropertyConst) =<<+  (userProperty' arg'1')++class (QMetaObjectConstPtr this) => QMetaObjectPtr this where+  toQMetaObject :: this -> QMetaObject++data QMetaObjectConst =+    QMetaObjectConst (HoppyF.Ptr QMetaObjectConst)+  | QMetaObjectConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMetaObjectConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMetaObjectConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMetaObjectConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMetaObjectToConst :: QMetaObject -> QMetaObjectConst+castQMetaObjectToConst (QMetaObject ptr') = QMetaObjectConst $ HoppyF.castPtr ptr'+castQMetaObjectToConst (QMetaObjectGc fptr' ptr') = QMetaObjectConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMetaObjectConst where+  nullptr = QMetaObjectConst HoppyF.nullPtr+  +  withCppPtr (QMetaObjectConst ptr') f' = f' ptr'+  withCppPtr (QMetaObjectConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMetaObjectConst ptr') = ptr'+  toPtr (QMetaObjectConstGc _ ptr') = ptr'+  +  touchCppPtr (QMetaObjectConst _) = HoppyP.return ()+  touchCppPtr (QMetaObjectConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMetaObjectConst where+  delete (QMetaObjectConst ptr') = delete'QMetaObject ptr'+  delete (QMetaObjectConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMetaObjectConst", " object."]+  +  toGc this'@(QMetaObjectConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMetaObjectConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMetaObject :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMetaObjectConstGc {}) = HoppyP.return this'++instance QMetaObjectConstPtr QMetaObjectConst where+  toQMetaObjectConst = HoppyP.id++data QMetaObject =+    QMetaObject (HoppyF.Ptr QMetaObject)+  | QMetaObjectGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMetaObject)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMetaObject where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMetaObject where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMetaObjectToNonconst :: QMetaObjectConst -> QMetaObject+castQMetaObjectToNonconst (QMetaObjectConst ptr') = QMetaObject $ HoppyF.castPtr ptr'+castQMetaObjectToNonconst (QMetaObjectConstGc fptr' ptr') = QMetaObjectGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMetaObject where+  nullptr = QMetaObject HoppyF.nullPtr+  +  withCppPtr (QMetaObject ptr') f' = f' ptr'+  withCppPtr (QMetaObjectGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMetaObject ptr') = ptr'+  toPtr (QMetaObjectGc _ ptr') = ptr'+  +  touchCppPtr (QMetaObject _) = HoppyP.return ()+  touchCppPtr (QMetaObjectGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMetaObject where+  delete (QMetaObject ptr') = delete'QMetaObject $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMetaObjectConst)+  delete (QMetaObjectGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMetaObject", " object."]+  +  toGc this'@(QMetaObject ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMetaObjectGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMetaObject :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMetaObjectGc {}) = HoppyP.return this'++instance QMetaObjectConstPtr QMetaObject where+  toQMetaObjectConst (QMetaObject ptr') = QMetaObjectConst $ (HoppyF.castPtr :: HoppyF.Ptr QMetaObject -> HoppyF.Ptr QMetaObjectConst) ptr'+  toQMetaObjectConst (QMetaObjectGc fptr' ptr') = QMetaObjectConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMetaObject -> HoppyF.Ptr QMetaObjectConst) ptr'++instance QMetaObjectPtr QMetaObject where+  toQMetaObject = HoppyP.id++class QMetaObjectSuper a where+  downToQMetaObject :: a -> QMetaObject+++class QMetaObjectSuperConst a where+  downToQMetaObjectConst :: a -> QMetaObjectConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMetaObject)) QMetaObject where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMetaObject)) QMetaObject where+  decode = HoppyP.fmap QMetaObject . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Core/QMetaObject.hs-boot view
@@ -0,0 +1,54 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QMetaObject (+  QMetaObjectValue (..),+  QMetaObjectConstPtr (..),+  QMetaObjectPtr (..),+  QMetaObjectConst (..),+  castQMetaObjectToConst,+  QMetaObject (..),+  castQMetaObjectToNonconst,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Prelude as HoppyP+++class QMetaObjectValue a where+  withQMetaObjectPtr :: a -> (QMetaObjectConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMetaObjectConstPtr a => QMetaObjectValue a++class (HoppyFHR.CppPtr this) => QMetaObjectConstPtr this where+  toQMetaObjectConst :: this -> QMetaObjectConst++class (QMetaObjectConstPtr this) => QMetaObjectPtr this where+  toQMetaObject :: this -> QMetaObject++data QMetaObjectConst =+    QMetaObjectConst (HoppyF.Ptr QMetaObjectConst)+  | QMetaObjectConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMetaObjectConst)++castQMetaObjectToConst :: QMetaObject -> QMetaObjectConst++instance HoppyFHR.CppPtr QMetaObjectConst+instance HoppyFHR.Deletable QMetaObjectConst++instance QMetaObjectConstPtr QMetaObjectConst++data QMetaObject =+    QMetaObject (HoppyF.Ptr QMetaObject)+  | QMetaObjectGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMetaObject)++castQMetaObjectToNonconst :: QMetaObjectConst -> QMetaObject++instance HoppyFHR.CppPtr QMetaObject+instance HoppyFHR.Deletable QMetaObject++instance QMetaObjectConstPtr QMetaObject++instance QMetaObjectPtr QMetaObject++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMetaObject)) QMetaObject
src/Graphics/UI/Qtah/Generated/Core/QMetaObject/Connection.hs view
@@ -0,0 +1,176 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QMetaObject.Connection (+  ConnectionValue (..),+  ConnectionConstPtr (..),+  isValid,+  ConnectionPtr (..),+  aSSIGN,+  ConnectionConst (..),+  castConnectionToConst,+  Connection (..),+  castConnectionToNonconst,+  new,+  newCopy,+  ConnectionSuper (..),+  ConnectionSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import Prelude (($), (.), (/=), (=<<), (==), (>>))+import qualified Prelude as HoppyP++foreign import ccall "genpop__Connection_new" new' ::  HoppyP.IO (HoppyF.Ptr Connection)+foreign import ccall "genpop__Connection_newCopy" newCopy' ::  HoppyF.Ptr ConnectionConst -> HoppyP.IO (HoppyF.Ptr Connection)+foreign import ccall "genpop__Connection_isValid" isValid' ::  HoppyF.Ptr ConnectionConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__Connection_ASSIGN" aSSIGN' ::  HoppyF.Ptr Connection -> HoppyF.Ptr ConnectionConst -> HoppyP.IO (HoppyF.Ptr Connection)+foreign import ccall "gendel__Connection" delete'Connection :: HoppyF.Ptr ConnectionConst -> HoppyP.IO ()+foreign import ccall "&gendel__Connection" deletePtr'Connection :: HoppyF.FunPtr (HoppyF.Ptr ConnectionConst -> HoppyP.IO ())++class ConnectionValue a where+  withConnectionPtr :: a -> (ConnectionConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} ConnectionConstPtr a => ConnectionValue a where+  withConnectionPtr = HoppyP.flip ($) . toConnectionConst++class (HoppyFHR.CppPtr this) => ConnectionConstPtr this where+  toConnectionConst :: this -> ConnectionConst++isValid :: (ConnectionValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withConnectionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++class (ConnectionConstPtr this) => ConnectionPtr this where+  toConnection :: this -> Connection++aSSIGN :: (ConnectionPtr this, ConnectionValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO Connection)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toConnection arg'1) $ \arg'1' ->+  withConnectionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap Connection+  (aSSIGN' arg'1' arg'2')++data ConnectionConst =+    ConnectionConst (HoppyF.Ptr ConnectionConst)+  | ConnectionConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr ConnectionConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq ConnectionConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord ConnectionConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castConnectionToConst :: Connection -> ConnectionConst+castConnectionToConst (Connection ptr') = ConnectionConst $ HoppyF.castPtr ptr'+castConnectionToConst (ConnectionGc fptr' ptr') = ConnectionConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr ConnectionConst where+  nullptr = ConnectionConst HoppyF.nullPtr+  +  withCppPtr (ConnectionConst ptr') f' = f' ptr'+  withCppPtr (ConnectionConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (ConnectionConst ptr') = ptr'+  toPtr (ConnectionConstGc _ ptr') = ptr'+  +  touchCppPtr (ConnectionConst _) = HoppyP.return ()+  touchCppPtr (ConnectionConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable ConnectionConst where+  delete (ConnectionConst ptr') = delete'Connection ptr'+  delete (ConnectionConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "ConnectionConst", " object."]+  +  toGc this'@(ConnectionConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ConnectionConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'Connection :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(ConnectionConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable ConnectionConst Connection where copy = newCopy++instance ConnectionConstPtr ConnectionConst where+  toConnectionConst = HoppyP.id++data Connection =+    Connection (HoppyF.Ptr Connection)+  | ConnectionGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr Connection)+  deriving (HoppyP.Show)++instance HoppyP.Eq Connection where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord Connection where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castConnectionToNonconst :: ConnectionConst -> Connection+castConnectionToNonconst (ConnectionConst ptr') = Connection $ HoppyF.castPtr ptr'+castConnectionToNonconst (ConnectionConstGc fptr' ptr') = ConnectionGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr Connection where+  nullptr = Connection HoppyF.nullPtr+  +  withCppPtr (Connection ptr') f' = f' ptr'+  withCppPtr (ConnectionGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (Connection ptr') = ptr'+  toPtr (ConnectionGc _ ptr') = ptr'+  +  touchCppPtr (Connection _) = HoppyP.return ()+  touchCppPtr (ConnectionGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable Connection where+  delete (Connection ptr') = delete'Connection $ (HoppyF.castPtr ptr' :: HoppyF.Ptr ConnectionConst)+  delete (ConnectionGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "Connection", " object."]+  +  toGc this'@(Connection ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip ConnectionGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'Connection :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(ConnectionGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable Connection Connection where copy = newCopy++instance ConnectionConstPtr Connection where+  toConnectionConst (Connection ptr') = ConnectionConst $ (HoppyF.castPtr :: HoppyF.Ptr Connection -> HoppyF.Ptr ConnectionConst) ptr'+  toConnectionConst (ConnectionGc fptr' ptr') = ConnectionConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr Connection -> HoppyF.Ptr ConnectionConst) ptr'++instance ConnectionPtr Connection where+  toConnection = HoppyP.id++new :: (HoppyP.IO Connection)+new =+  HoppyP.fmap Connection+  (new')++newCopy :: (ConnectionValue arg'1) => (arg'1) -> (HoppyP.IO Connection)+newCopy arg'1 =+  withConnectionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap Connection+  (newCopy' arg'1')++class ConnectionSuper a where+  downToConnection :: a -> Connection+++class ConnectionSuperConst a where+  downToConnectionConst :: a -> ConnectionConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr Connection)) Connection where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance ConnectionValue a => HoppyFHR.Assignable Connection a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr Connection)) Connection where+  decode = HoppyP.fmap Connection . HoppyF.peek++instance HoppyFHR.Decodable Connection (Connection) where+  decode = HoppyFHR.decode . toConnectionConst++instance HoppyFHR.Decodable ConnectionConst (Connection) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QMetaProperty.hs view
@@ -0,0 +1,469 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QMetaProperty (+  QMetaPropertyValue (..),+  QMetaPropertyConstPtr (..),+  enumerator,+  hasNotifySignal,+  isConstant,+  isDesignable,+  isDesignableWithObject,+  isEnumType,+  isFinal,+  isFlagType,+  isReadable,+  isResettable,+  isScriptable,+  isScriptableWithObject,+  isStored,+  isStoredWithObject,+  isUser,+  isUserWithObject,+  isValid,+  isWritable,+  name,+  notifySignal,+  notifySignalIndex,+  propertyIndex,+  read,+  readOnGadget,+  reset,+  resetOnGadget,+  revision,+  getType,+  typeName,+  userType,+  write,+  writeOnGadget,+  QMetaPropertyPtr (..),+  QMetaPropertyConst (..),+  castQMetaPropertyToConst,+  QMetaProperty (..),+  castQMetaPropertyToNonconst,+  newCopy,+  QMetaPropertySuper (..),+  QMetaPropertySuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QMetaEnum as M80+import qualified Graphics.UI.Qtah.Generated.Core.QMetaMethod as M82+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168+import Prelude (($), (.), (/=), (=<<), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QMetaProperty_newCopy" newCopy' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO (HoppyF.Ptr QMetaProperty)+foreign import ccall "genpop__QMetaProperty_enumerator" enumerator' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO (HoppyF.Ptr M80.QMetaEnumConst)+foreign import ccall "genpop__QMetaProperty_hasNotifySignal" hasNotifySignal' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isConstant" isConstant' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isDesignable" isDesignable' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isDesignableWithObject" isDesignableWithObject' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyF.Ptr M94.QObjectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isEnumType" isEnumType' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isFinal" isFinal' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isFlagType" isFlagType' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isReadable" isReadable' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isResettable" isResettable' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isScriptable" isScriptable' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isScriptableWithObject" isScriptableWithObject' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyF.Ptr M94.QObjectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isStored" isStored' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isStoredWithObject" isStoredWithObject' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyF.Ptr M94.QObjectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isUser" isUser' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isUserWithObject" isUserWithObject' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyF.Ptr M94.QObjectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isValid" isValid' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_isWritable" isWritable' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_name" name' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "genpop__QMetaProperty_notifySignal" notifySignal' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO (HoppyF.Ptr M82.QMetaMethodConst)+foreign import ccall "genpop__QMetaProperty_notifySignalIndex" notifySignalIndex' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaProperty_propertyIndex" propertyIndex' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaProperty_read" read' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyF.Ptr M94.QObjectConst -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QMetaProperty_readOnGadget" readOnGadget' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyF.Ptr () -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QMetaProperty_reset" reset' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_resetOnGadget" resetOnGadget' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyF.Ptr () -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_revision" revision' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaProperty_getType" getType' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaProperty_typeName" typeName' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "genpop__QMetaProperty_userType" userType' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMetaProperty_write" write' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyF.Ptr M94.QObject -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMetaProperty_writeOnGadget" writeOnGadget' ::  HoppyF.Ptr QMetaPropertyConst -> HoppyF.Ptr () -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "gendel__QMetaProperty" delete'QMetaProperty :: HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMetaProperty" deletePtr'QMetaProperty :: HoppyF.FunPtr (HoppyF.Ptr QMetaPropertyConst -> HoppyP.IO ())++class QMetaPropertyValue a where+  withQMetaPropertyPtr :: a -> (QMetaPropertyConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMetaPropertyConstPtr a => QMetaPropertyValue a where+  withQMetaPropertyPtr = HoppyP.flip ($) . toQMetaPropertyConst++class (HoppyFHR.CppPtr this) => QMetaPropertyConstPtr this where+  toQMetaPropertyConst :: this -> QMetaPropertyConst++enumerator :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO M80.QMetaEnum)+enumerator arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M80.QMetaEnumConst) =<<+  (enumerator' arg'1')++hasNotifySignal :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasNotifySignal arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasNotifySignal' arg'1')++isConstant :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isConstant arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isConstant' arg'1')++isDesignable :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isDesignable arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isDesignable' arg'1')++isDesignableWithObject :: (QMetaPropertyValue this, M94.QObjectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+isDesignableWithObject arg'1 arg'2 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M94.withQObjectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isDesignableWithObject' arg'1' arg'2')++isEnumType :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEnumType arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEnumType' arg'1')++isFinal :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isFinal arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isFinal' arg'1')++isFlagType :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isFlagType arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isFlagType' arg'1')++isReadable :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isReadable arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isReadable' arg'1')++isResettable :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isResettable arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isResettable' arg'1')++isScriptable :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isScriptable arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isScriptable' arg'1')++isScriptableWithObject :: (QMetaPropertyValue this, M94.QObjectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+isScriptableWithObject arg'1 arg'2 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M94.withQObjectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isScriptableWithObject' arg'1' arg'2')++isStored :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isStored arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isStored' arg'1')++isStoredWithObject :: (QMetaPropertyValue this, M94.QObjectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+isStoredWithObject arg'1 arg'2 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M94.withQObjectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isStoredWithObject' arg'1' arg'2')++isUser :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isUser arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isUser' arg'1')++isUserWithObject :: (QMetaPropertyValue this, M94.QObjectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+isUserWithObject arg'1 arg'2 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M94.withQObjectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isUserWithObject' arg'1' arg'2')++isValid :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++isWritable :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isWritable arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isWritable' arg'1')++name :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+name arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (name' arg'1')++notifySignal :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO M82.QMetaMethod)+notifySignal arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M82.QMetaMethodConst) =<<+  (notifySignal' arg'1')++notifySignalIndex :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+notifySignalIndex arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (notifySignalIndex' arg'1')++propertyIndex :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+propertyIndex arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (propertyIndex' arg'1')++read :: (QMetaPropertyValue this, M94.QObjectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M168.QVariant)+read arg'1 arg'2 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M94.withQObjectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (read' arg'1' arg'2')++readOnGadget :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyF.Ptr ()) -> (HoppyP.IO M168.QVariant)+readOnGadget arg'1 arg'2 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (readOnGadget' arg'1' arg'2')++reset :: (QMetaPropertyValue this, M94.QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+reset arg'1 arg'2 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (reset' arg'1' arg'2')++resetOnGadget :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyF.Ptr ()) -> (HoppyP.IO HoppyP.Bool)+resetOnGadget arg'1 arg'2 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (resetOnGadget' arg'1' arg'2')++revision :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+revision arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (revision' arg'1')++getType :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO M168.QVariantType)+getType arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (getType' arg'1')++typeName :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+typeName arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (typeName' arg'1')++userType :: (QMetaPropertyValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+userType arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (userType' arg'1')++write :: (QMetaPropertyValue this, M94.QObjectPtr arg'2, M168.QVariantValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+write arg'1 arg'2 arg'3 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  M168.withQVariantPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (write' arg'1' arg'2' arg'3')++writeOnGadget :: (QMetaPropertyValue this, M168.QVariantValue arg'3) => (this) {- ^ this -} -> (HoppyF.Ptr ()) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+writeOnGadget arg'1 arg'2 arg'3 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  M168.withQVariantPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (writeOnGadget' arg'1' arg'2' arg'3')++class (QMetaPropertyConstPtr this) => QMetaPropertyPtr this where+  toQMetaProperty :: this -> QMetaProperty++data QMetaPropertyConst =+    QMetaPropertyConst (HoppyF.Ptr QMetaPropertyConst)+  | QMetaPropertyConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMetaPropertyConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMetaPropertyConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMetaPropertyConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMetaPropertyToConst :: QMetaProperty -> QMetaPropertyConst+castQMetaPropertyToConst (QMetaProperty ptr') = QMetaPropertyConst $ HoppyF.castPtr ptr'+castQMetaPropertyToConst (QMetaPropertyGc fptr' ptr') = QMetaPropertyConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMetaPropertyConst where+  nullptr = QMetaPropertyConst HoppyF.nullPtr+  +  withCppPtr (QMetaPropertyConst ptr') f' = f' ptr'+  withCppPtr (QMetaPropertyConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMetaPropertyConst ptr') = ptr'+  toPtr (QMetaPropertyConstGc _ ptr') = ptr'+  +  touchCppPtr (QMetaPropertyConst _) = HoppyP.return ()+  touchCppPtr (QMetaPropertyConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMetaPropertyConst where+  delete (QMetaPropertyConst ptr') = delete'QMetaProperty ptr'+  delete (QMetaPropertyConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMetaPropertyConst", " object."]+  +  toGc this'@(QMetaPropertyConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMetaPropertyConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMetaProperty :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMetaPropertyConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QMetaPropertyConst QMetaProperty where copy = newCopy++instance QMetaPropertyConstPtr QMetaPropertyConst where+  toQMetaPropertyConst = HoppyP.id++data QMetaProperty =+    QMetaProperty (HoppyF.Ptr QMetaProperty)+  | QMetaPropertyGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMetaProperty)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMetaProperty where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMetaProperty where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMetaPropertyToNonconst :: QMetaPropertyConst -> QMetaProperty+castQMetaPropertyToNonconst (QMetaPropertyConst ptr') = QMetaProperty $ HoppyF.castPtr ptr'+castQMetaPropertyToNonconst (QMetaPropertyConstGc fptr' ptr') = QMetaPropertyGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMetaProperty where+  nullptr = QMetaProperty HoppyF.nullPtr+  +  withCppPtr (QMetaProperty ptr') f' = f' ptr'+  withCppPtr (QMetaPropertyGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMetaProperty ptr') = ptr'+  toPtr (QMetaPropertyGc _ ptr') = ptr'+  +  touchCppPtr (QMetaProperty _) = HoppyP.return ()+  touchCppPtr (QMetaPropertyGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMetaProperty where+  delete (QMetaProperty ptr') = delete'QMetaProperty $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMetaPropertyConst)+  delete (QMetaPropertyGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMetaProperty", " object."]+  +  toGc this'@(QMetaProperty ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMetaPropertyGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMetaProperty :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMetaPropertyGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QMetaProperty QMetaProperty where copy = newCopy++instance QMetaPropertyConstPtr QMetaProperty where+  toQMetaPropertyConst (QMetaProperty ptr') = QMetaPropertyConst $ (HoppyF.castPtr :: HoppyF.Ptr QMetaProperty -> HoppyF.Ptr QMetaPropertyConst) ptr'+  toQMetaPropertyConst (QMetaPropertyGc fptr' ptr') = QMetaPropertyConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMetaProperty -> HoppyF.Ptr QMetaPropertyConst) ptr'++instance QMetaPropertyPtr QMetaProperty where+  toQMetaProperty = HoppyP.id++newCopy :: (QMetaPropertyValue arg'1) => (arg'1) -> (HoppyP.IO QMetaProperty)+newCopy arg'1 =+  withQMetaPropertyPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QMetaProperty+  (newCopy' arg'1')++class QMetaPropertySuper a where+  downToQMetaProperty :: a -> QMetaProperty+++class QMetaPropertySuperConst a where+  downToQMetaPropertyConst :: a -> QMetaPropertyConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMetaProperty)) QMetaProperty where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMetaProperty)) QMetaProperty where+  decode = HoppyP.fmap QMetaProperty . HoppyF.peek++instance HoppyFHR.Decodable QMetaProperty (QMetaProperty) where+  decode = HoppyFHR.decode . toQMetaPropertyConst++instance HoppyFHR.Decodable QMetaPropertyConst (QMetaProperty) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
+ src/Graphics/UI/Qtah/Generated/Core/QMetaProperty.hs-boot view
@@ -0,0 +1,59 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QMetaProperty (+  QMetaPropertyValue (..),+  QMetaPropertyConstPtr (..),+  QMetaPropertyPtr (..),+  QMetaPropertyConst (..),+  castQMetaPropertyToConst,+  QMetaProperty (..),+  castQMetaPropertyToNonconst,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Prelude as HoppyP+++class QMetaPropertyValue a where+  withQMetaPropertyPtr :: a -> (QMetaPropertyConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMetaPropertyConstPtr a => QMetaPropertyValue a++class (HoppyFHR.CppPtr this) => QMetaPropertyConstPtr this where+  toQMetaPropertyConst :: this -> QMetaPropertyConst++class (QMetaPropertyConstPtr this) => QMetaPropertyPtr this where+  toQMetaProperty :: this -> QMetaProperty++data QMetaPropertyConst =+    QMetaPropertyConst (HoppyF.Ptr QMetaPropertyConst)+  | QMetaPropertyConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMetaPropertyConst)++castQMetaPropertyToConst :: QMetaProperty -> QMetaPropertyConst++instance HoppyFHR.CppPtr QMetaPropertyConst+instance HoppyFHR.Deletable QMetaPropertyConst+instance HoppyFHR.Copyable QMetaPropertyConst QMetaProperty++instance QMetaPropertyConstPtr QMetaPropertyConst++data QMetaProperty =+    QMetaProperty (HoppyF.Ptr QMetaProperty)+  | QMetaPropertyGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMetaProperty)++castQMetaPropertyToNonconst :: QMetaPropertyConst -> QMetaProperty++instance HoppyFHR.CppPtr QMetaProperty+instance HoppyFHR.Deletable QMetaProperty+instance HoppyFHR.Copyable QMetaProperty QMetaProperty++instance QMetaPropertyConstPtr QMetaProperty++instance QMetaPropertyPtr QMetaProperty++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMetaProperty)) QMetaProperty++instance HoppyFHR.Decodable QMetaProperty ((QMetaProperty))+instance HoppyFHR.Decodable QMetaPropertyConst ((QMetaProperty))
+ src/Graphics/UI/Qtah/Generated/Core/QMimeData.hs view
@@ -0,0 +1,333 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QMimeData (+  castQMimeDataToQObject,+  castQObjectToQMimeData,+  QMimeDataValue (..),+  QMimeDataConstPtr (..),+  colorData,+  getData,+  formats,+  hasColor,+  hasFormat,+  hasHtml,+  hasImage,+  hasText,+  hasUrls,+  html,+  imageData,+  text,+  QMimeDataPtr (..),+  clear,+  setColorData,+  setHtml,+  setImageData,+  removeFormat,+  setData,+  setText,+  QMimeDataConst (..),+  castQMimeDataToConst,+  QMimeData (..),+  castQMimeDataToNonconst,+  new,+  QMimeDataSuper (..),+  QMimeDataSuperConst (..),+  ) where++import qualified Data.ByteString as QtahDBS+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+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.QStringList as M144+import qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168+import Prelude (($), (.), (/=), (=<<), (==))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QMimeData_new" new' ::  HoppyP.IO (HoppyF.Ptr QMimeData)+foreign import ccall "genpop__QMimeData_clear" clear' ::  HoppyF.Ptr QMimeData -> HoppyP.IO ()+foreign import ccall "genpop__QMimeData_colorData" colorData' ::  HoppyF.Ptr QMimeDataConst -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QMimeData_setColorData" setColorData' ::  HoppyF.Ptr QMimeData -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QMimeData_getData" getData' ::  HoppyF.Ptr QMimeDataConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QMimeData_formats" formats' ::  HoppyF.Ptr QMimeDataConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QMimeData_hasColor" hasColor' ::  HoppyF.Ptr QMimeDataConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMimeData_hasFormat" hasFormat' ::  HoppyF.Ptr QMimeDataConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMimeData_hasHtml" hasHtml' ::  HoppyF.Ptr QMimeDataConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMimeData_hasImage" hasImage' ::  HoppyF.Ptr QMimeDataConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMimeData_hasText" hasText' ::  HoppyF.Ptr QMimeDataConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMimeData_hasUrls" hasUrls' ::  HoppyF.Ptr QMimeDataConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMimeData_html" html' ::  HoppyF.Ptr QMimeDataConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QMimeData_setHtml" setHtml' ::  HoppyF.Ptr QMimeData -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QMimeData_imageData" imageData' ::  HoppyF.Ptr QMimeDataConst -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QMimeData_setImageData" setImageData' ::  HoppyF.Ptr QMimeData -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QMimeData_removeFormat" removeFormat' ::  HoppyF.Ptr QMimeData -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QMimeData_setData" setData' ::  HoppyF.Ptr QMimeData -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO ()+foreign import ccall "genpop__QMimeData_text" text' ::  HoppyF.Ptr QMimeDataConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QMimeData_setText" setText' ::  HoppyF.Ptr QMimeData -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "gencast__QMimeData__QObject" castQMimeDataToQObject :: HoppyF.Ptr QMimeDataConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QMimeData" castQObjectToQMimeData :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QMimeDataConst+foreign import ccall "gendel__QMimeData" delete'QMimeData :: HoppyF.Ptr QMimeDataConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMimeData" deletePtr'QMimeData :: HoppyF.FunPtr (HoppyF.Ptr QMimeDataConst -> HoppyP.IO ())++class QMimeDataValue a where+  withQMimeDataPtr :: a -> (QMimeDataConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMimeDataConstPtr a => QMimeDataValue a where+  withQMimeDataPtr = HoppyP.flip ($) . toQMimeDataConst++class (M94.QObjectConstPtr this) => QMimeDataConstPtr this where+  toQMimeDataConst :: this -> QMimeDataConst++colorData :: (QMimeDataValue this) => (this) {- ^ this -} -> (HoppyP.IO M168.QVariant)+colorData arg'1 =+  withQMimeDataPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (colorData' arg'1')++getData :: (QMimeDataValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahDBS.ByteString)+getData arg'1 arg'2 =+  withQMimeDataPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (getData' arg'1' arg'2')++formats :: (QMimeDataValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+formats arg'1 =+  withQMimeDataPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (formats' arg'1')++hasColor :: (QMimeDataValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasColor arg'1 =+  withQMimeDataPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasColor' arg'1')++hasFormat :: (QMimeDataValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+hasFormat arg'1 arg'2 =+  withQMimeDataPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasFormat' arg'1' arg'2')++hasHtml :: (QMimeDataValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasHtml arg'1 =+  withQMimeDataPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasHtml' arg'1')++hasImage :: (QMimeDataValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasImage arg'1 =+  withQMimeDataPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasImage' arg'1')++hasText :: (QMimeDataValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasText arg'1 =+  withQMimeDataPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasText' arg'1')++hasUrls :: (QMimeDataValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasUrls arg'1 =+  withQMimeDataPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasUrls' arg'1')++html :: (QMimeDataValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+html arg'1 =+  withQMimeDataPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (html' arg'1')++imageData :: (QMimeDataValue this) => (this) {- ^ this -} -> (HoppyP.IO M168.QVariant)+imageData arg'1 =+  withQMimeDataPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (imageData' arg'1')++text :: (QMimeDataValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+text arg'1 =+  withQMimeDataPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (text' arg'1')++class (QMimeDataConstPtr this, M94.QObjectPtr this) => QMimeDataPtr this where+  toQMimeData :: this -> QMimeData++clear :: (QMimeDataPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQMimeData arg'1) $ \arg'1' ->+  (clear' arg'1')++setColorData :: (QMimeDataPtr this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setColorData arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMimeData arg'1) $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setColorData' arg'1' arg'2')++setHtml :: (QMimeDataPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setHtml arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMimeData arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setHtml' arg'1' arg'2')++setImageData :: (QMimeDataPtr this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setImageData arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMimeData arg'1) $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setImageData' arg'1' arg'2')++removeFormat :: (QMimeDataPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+removeFormat arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMimeData arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (removeFormat' arg'1' arg'2')++setData :: (QMimeDataPtr this, M142.QStringValue arg'2, M12.QByteArrayValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+setData arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMimeData arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M12.withQByteArrayPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (setData' arg'1' arg'2' arg'3')++setText :: (QMimeDataPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMimeData arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setText' arg'1' arg'2')++data QMimeDataConst =+    QMimeDataConst (HoppyF.Ptr QMimeDataConst)+  | QMimeDataConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMimeDataConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMimeDataConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMimeDataConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMimeDataToConst :: QMimeData -> QMimeDataConst+castQMimeDataToConst (QMimeData ptr') = QMimeDataConst $ HoppyF.castPtr ptr'+castQMimeDataToConst (QMimeDataGc fptr' ptr') = QMimeDataConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMimeDataConst where+  nullptr = QMimeDataConst HoppyF.nullPtr+  +  withCppPtr (QMimeDataConst ptr') f' = f' ptr'+  withCppPtr (QMimeDataConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMimeDataConst ptr') = ptr'+  toPtr (QMimeDataConstGc _ ptr') = ptr'+  +  touchCppPtr (QMimeDataConst _) = HoppyP.return ()+  touchCppPtr (QMimeDataConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMimeDataConst where+  delete (QMimeDataConst ptr') = delete'QMimeData ptr'+  delete (QMimeDataConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMimeDataConst", " object."]+  +  toGc this'@(QMimeDataConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMimeDataConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMimeData :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMimeDataConstGc {}) = HoppyP.return this'++instance QMimeDataConstPtr QMimeDataConst where+  toQMimeDataConst = HoppyP.id++instance M94.QObjectConstPtr QMimeDataConst where+  toQObjectConst (QMimeDataConst ptr') = M94.QObjectConst $ castQMimeDataToQObject ptr'+  toQObjectConst (QMimeDataConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQMimeDataToQObject ptr'++data QMimeData =+    QMimeData (HoppyF.Ptr QMimeData)+  | QMimeDataGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMimeData)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMimeData where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMimeData where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMimeDataToNonconst :: QMimeDataConst -> QMimeData+castQMimeDataToNonconst (QMimeDataConst ptr') = QMimeData $ HoppyF.castPtr ptr'+castQMimeDataToNonconst (QMimeDataConstGc fptr' ptr') = QMimeDataGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMimeData where+  nullptr = QMimeData HoppyF.nullPtr+  +  withCppPtr (QMimeData ptr') f' = f' ptr'+  withCppPtr (QMimeDataGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMimeData ptr') = ptr'+  toPtr (QMimeDataGc _ ptr') = ptr'+  +  touchCppPtr (QMimeData _) = HoppyP.return ()+  touchCppPtr (QMimeDataGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMimeData where+  delete (QMimeData ptr') = delete'QMimeData $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMimeDataConst)+  delete (QMimeDataGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMimeData", " object."]+  +  toGc this'@(QMimeData ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMimeDataGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMimeData :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMimeDataGc {}) = HoppyP.return this'++instance QMimeDataConstPtr QMimeData where+  toQMimeDataConst (QMimeData ptr') = QMimeDataConst $ (HoppyF.castPtr :: HoppyF.Ptr QMimeData -> HoppyF.Ptr QMimeDataConst) ptr'+  toQMimeDataConst (QMimeDataGc fptr' ptr') = QMimeDataConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMimeData -> HoppyF.Ptr QMimeDataConst) ptr'++instance QMimeDataPtr QMimeData where+  toQMimeData = HoppyP.id++instance M94.QObjectConstPtr QMimeData where+  toQObjectConst (QMimeData ptr') = M94.QObjectConst $ castQMimeDataToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMimeData -> HoppyF.Ptr QMimeDataConst) ptr'+  toQObjectConst (QMimeDataGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQMimeDataToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMimeData -> HoppyF.Ptr QMimeDataConst) ptr'++instance M94.QObjectPtr QMimeData where+  toQObject (QMimeData ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQMimeDataToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMimeData -> HoppyF.Ptr QMimeDataConst) ptr'+  toQObject (QMimeDataGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQMimeDataToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMimeData -> HoppyF.Ptr QMimeDataConst) ptr'++new :: (HoppyP.IO QMimeData)+new =+  HoppyP.fmap QMimeData+  (new')++class QMimeDataSuper a where+  downToQMimeData :: a -> QMimeData++instance QMimeDataSuper M94.QObject where+  downToQMimeData = castQMimeDataToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QMimeDataConst $ castQObjectToQMimeData ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QMimeDataConstGc fptr' $ castQObjectToQMimeData ptr'++class QMimeDataSuperConst a where+  downToQMimeDataConst :: a -> QMimeDataConst++instance QMimeDataSuperConst M94.QObjectConst where+  downToQMimeDataConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QMimeDataConst $ castQObjectToQMimeData ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QMimeDataConstGc fptr' $ castQObjectToQMimeData ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMimeData)) QMimeData where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMimeData)) QMimeData where+  decode = HoppyP.fmap QMimeData . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QModelIndex.hs view
@@ -0,0 +1,296 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QModelIndex (+  QModelIndexValue (..),+  QModelIndexConstPtr (..),+  child,+  column,+  getData,+  getDataWithRole,+  flags,+  isValid,+  model,+  parent,+  row,+  sibling,+  eQ,+  nE,+  QModelIndexPtr (..),+  aSSIGN,+  QModelIndexConst (..),+  castQModelIndexToConst,+  QModelIndex (..),+  castQModelIndexToNonconst,+  new,+  newCopy,+  QModelIndexSuper (..),+  QModelIndexSuperConst (..),+  ) where++import Control.Monad ((>=>))+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 {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QAbstractItemModel as M4+import qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QModelIndex_new" new' ::  HoppyP.IO (HoppyF.Ptr QModelIndex)+foreign import ccall "genpop__QModelIndex_newCopy" newCopy' ::  HoppyF.Ptr QModelIndexConst -> HoppyP.IO (HoppyF.Ptr QModelIndex)+foreign import ccall "genpop__QModelIndex_child" child' ::  HoppyF.Ptr QModelIndexConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QModelIndexConst)+foreign import ccall "genpop__QModelIndex_column" column' ::  HoppyF.Ptr QModelIndexConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QModelIndex_getData" getData' ::  HoppyF.Ptr QModelIndexConst -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QModelIndex_getDataWithRole" getDataWithRole' ::  HoppyF.Ptr QModelIndexConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QModelIndex_flags" flags' ::  HoppyF.Ptr QModelIndexConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QModelIndex_isValid" isValid' ::  HoppyF.Ptr QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QModelIndex_model" model' ::  HoppyF.Ptr QModelIndexConst -> HoppyP.IO (HoppyF.Ptr M4.QAbstractItemModelConst)+foreign import ccall "genpop__QModelIndex_parent" parent' ::  HoppyF.Ptr QModelIndexConst -> HoppyP.IO (HoppyF.Ptr QModelIndexConst)+foreign import ccall "genpop__QModelIndex_row" row' ::  HoppyF.Ptr QModelIndexConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QModelIndex_sibling" sibling' ::  HoppyF.Ptr QModelIndexConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QModelIndexConst)+foreign import ccall "genpop__QModelIndex_EQ" eQ' ::  HoppyF.Ptr QModelIndexConst -> HoppyF.Ptr QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QModelIndex_NE" nE' ::  HoppyF.Ptr QModelIndexConst -> HoppyF.Ptr QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QModelIndex_ASSIGN" aSSIGN' ::  HoppyF.Ptr QModelIndex -> HoppyF.Ptr QModelIndexConst -> HoppyP.IO (HoppyF.Ptr QModelIndex)+foreign import ccall "gendel__QModelIndex" delete'QModelIndex :: HoppyF.Ptr QModelIndexConst -> HoppyP.IO ()+foreign import ccall "&gendel__QModelIndex" deletePtr'QModelIndex :: HoppyF.FunPtr (HoppyF.Ptr QModelIndexConst -> HoppyP.IO ())++class QModelIndexValue a where+  withQModelIndexPtr :: a -> (QModelIndexConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QModelIndexConstPtr a => QModelIndexValue a where+  withQModelIndexPtr = HoppyP.flip ($) . toQModelIndexConst++class (HoppyFHR.CppPtr this) => QModelIndexConstPtr this where+  toQModelIndexConst :: this -> QModelIndexConst++child :: (QModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QModelIndex)+child arg'1 arg'2 arg'3 =+  withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QModelIndexConst) =<<+  (child' arg'1' arg'2' arg'3')++column :: (QModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+column arg'1 =+  withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (column' arg'1')++getData :: (QModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO M168.QVariant)+getData arg'1 =+  withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (getData' arg'1')++getDataWithRole :: (QModelIndexValue this) => (this) {- ^ this -} -> (M190.QtItemDataRole) -> (HoppyP.IO M168.QVariant)+getDataWithRole arg'1 arg'2 =+  withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (getDataWithRole' arg'1' arg'2')++flags :: (QModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtItemFlags)+flags arg'1 =+  withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (flags' arg'1')++isValid :: (QModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++model :: (QModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO M4.QAbstractItemModelConst)+model arg'1 =+  withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M4.QAbstractItemModelConst+  (model' arg'1')++parent :: (QModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO QModelIndex)+parent arg'1 =+  withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QModelIndexConst) =<<+  (parent' arg'1')++row :: (QModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+row arg'1 =+  withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (row' arg'1')++sibling :: (QModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QModelIndex)+sibling arg'1 arg'2 arg'3 =+  withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QModelIndexConst) =<<+  (sibling' arg'1' arg'2' arg'3')++eQ :: (QModelIndexValue this, QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QModelIndexValue this, QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QModelIndexConstPtr this) => QModelIndexPtr this where+  toQModelIndex :: this -> QModelIndex++aSSIGN :: (QModelIndexPtr this, QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QModelIndex)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQModelIndex arg'1) $ \arg'1' ->+  withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QModelIndex+  (aSSIGN' arg'1' arg'2')++data QModelIndexConst =+    QModelIndexConst (HoppyF.Ptr QModelIndexConst)+  | QModelIndexConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QModelIndexConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QModelIndexConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QModelIndexConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQModelIndexToConst :: QModelIndex -> QModelIndexConst+castQModelIndexToConst (QModelIndex ptr') = QModelIndexConst $ HoppyF.castPtr ptr'+castQModelIndexToConst (QModelIndexGc fptr' ptr') = QModelIndexConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QModelIndexConst where+  nullptr = QModelIndexConst HoppyF.nullPtr+  +  withCppPtr (QModelIndexConst ptr') f' = f' ptr'+  withCppPtr (QModelIndexConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QModelIndexConst ptr') = ptr'+  toPtr (QModelIndexConstGc _ ptr') = ptr'+  +  touchCppPtr (QModelIndexConst _) = HoppyP.return ()+  touchCppPtr (QModelIndexConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QModelIndexConst where+  delete (QModelIndexConst ptr') = delete'QModelIndex ptr'+  delete (QModelIndexConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QModelIndexConst", " object."]+  +  toGc this'@(QModelIndexConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QModelIndexConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QModelIndex :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QModelIndexConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QModelIndexConst QModelIndex where copy = newCopy++instance QModelIndexConstPtr QModelIndexConst where+  toQModelIndexConst = HoppyP.id++data QModelIndex =+    QModelIndex (HoppyF.Ptr QModelIndex)+  | QModelIndexGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QModelIndex)+  deriving (HoppyP.Show)++instance HoppyP.Eq QModelIndex where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QModelIndex where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQModelIndexToNonconst :: QModelIndexConst -> QModelIndex+castQModelIndexToNonconst (QModelIndexConst ptr') = QModelIndex $ HoppyF.castPtr ptr'+castQModelIndexToNonconst (QModelIndexConstGc fptr' ptr') = QModelIndexGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QModelIndex where+  nullptr = QModelIndex HoppyF.nullPtr+  +  withCppPtr (QModelIndex ptr') f' = f' ptr'+  withCppPtr (QModelIndexGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QModelIndex ptr') = ptr'+  toPtr (QModelIndexGc _ ptr') = ptr'+  +  touchCppPtr (QModelIndex _) = HoppyP.return ()+  touchCppPtr (QModelIndexGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QModelIndex where+  delete (QModelIndex ptr') = delete'QModelIndex $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QModelIndexConst)+  delete (QModelIndexGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QModelIndex", " object."]+  +  toGc this'@(QModelIndex ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QModelIndexGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QModelIndex :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QModelIndexGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QModelIndex QModelIndex where copy = newCopy++instance QModelIndexConstPtr QModelIndex where+  toQModelIndexConst (QModelIndex ptr') = QModelIndexConst $ (HoppyF.castPtr :: HoppyF.Ptr QModelIndex -> HoppyF.Ptr QModelIndexConst) ptr'+  toQModelIndexConst (QModelIndexGc fptr' ptr') = QModelIndexConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QModelIndex -> HoppyF.Ptr QModelIndexConst) ptr'++instance QModelIndexPtr QModelIndex where+  toQModelIndex = HoppyP.id++new :: (HoppyP.IO QModelIndex)+new =+  HoppyP.fmap QModelIndex+  (new')++newCopy :: (QModelIndexValue arg'1) => (arg'1) -> (HoppyP.IO QModelIndex)+newCopy arg'1 =+  withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QModelIndex+  (newCopy' arg'1')++class QModelIndexSuper a where+  downToQModelIndex :: a -> QModelIndex+++class QModelIndexSuperConst a where+  downToQModelIndexConst :: a -> QModelIndexConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QModelIndex)) QModelIndex where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QModelIndexValue a => HoppyFHR.Assignable QModelIndex a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QModelIndex)) QModelIndex where+  decode = HoppyP.fmap QModelIndex . HoppyF.peek++instance HoppyFHR.Decodable QModelIndex (QModelIndex) where+  decode = HoppyFHR.decode . toQModelIndexConst++instance HoppyFHR.Decodable QModelIndexConst (QModelIndex) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
+ src/Graphics/UI/Qtah/Generated/Core/QModelIndex.hs-boot view
@@ -0,0 +1,59 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QModelIndex (+  QModelIndexValue (..),+  QModelIndexConstPtr (..),+  QModelIndexPtr (..),+  QModelIndexConst (..),+  castQModelIndexToConst,+  QModelIndex (..),+  castQModelIndexToNonconst,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Prelude as HoppyP+++class QModelIndexValue a where+  withQModelIndexPtr :: a -> (QModelIndexConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QModelIndexConstPtr a => QModelIndexValue a++class (HoppyFHR.CppPtr this) => QModelIndexConstPtr this where+  toQModelIndexConst :: this -> QModelIndexConst++class (QModelIndexConstPtr this) => QModelIndexPtr this where+  toQModelIndex :: this -> QModelIndex++data QModelIndexConst =+    QModelIndexConst (HoppyF.Ptr QModelIndexConst)+  | QModelIndexConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QModelIndexConst)++castQModelIndexToConst :: QModelIndex -> QModelIndexConst++instance HoppyFHR.CppPtr QModelIndexConst+instance HoppyFHR.Deletable QModelIndexConst+instance HoppyFHR.Copyable QModelIndexConst QModelIndex++instance QModelIndexConstPtr QModelIndexConst++data QModelIndex =+    QModelIndex (HoppyF.Ptr QModelIndex)+  | QModelIndexGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QModelIndex)++castQModelIndexToNonconst :: QModelIndexConst -> QModelIndex++instance HoppyFHR.CppPtr QModelIndex+instance HoppyFHR.Deletable QModelIndex+instance HoppyFHR.Copyable QModelIndex QModelIndex++instance QModelIndexConstPtr QModelIndex++instance QModelIndexPtr QModelIndex++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QModelIndex)) QModelIndex++instance HoppyFHR.Decodable QModelIndex ((QModelIndex))+instance HoppyFHR.Decodable QModelIndexConst ((QModelIndex))
src/Graphics/UI/Qtah/Generated/Core/QObject.hs view
@@ -0,0 +1,557 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QObject (+  QObjectValue (..),+  QObjectConstPtr (..),+  connect,+  connectWithType,+  disconnect,+  disconnectWithReceiver,+  disconnectWithReceiverAndMethod,+  disconnectWithSignal,+  disconnectWithSignalAndReceiver,+  disconnectWithSignalAndReceiverAndMethod,+  dynamicPropertyNames,+  inherits,+  isWidgetType,+  isWindowType,+  metaObject,+  objectName,+  parent,+  property,+  signalsBlocked,+  thread,+  QObjectPtr (..),+  blockSignals,+  children,+  deleteLater,+  dumpObjectInfo,+  dumpObjectTree,+  event,+  eventFilter,+  installEventFilter,+  killTimer,+  moveToThread,+  setObjectName,+  setParent,+  removeEventFilter,+  setProperty,+  startTimer,+  emitDestroyed,+  connectWithTypeStatic,+  connectWithSenderSignalStatic,+  connectWithSenderSignalTypeStatic,+  connectStatic,+  disconnectStatic,+  disconnectWithMetaobject,+  QObjectConst (..),+  castQObjectToConst,+  QObject (..),+  castQObjectToNonconst,+  new,+  newWithParent,+  QObjectSuper (..),+  QObjectSuperConst (..),+  ) where++import qualified Data.ByteString as QtahDBS+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QList.QByteArray as M196+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QList.QObject as M202+import qualified Graphics.UI.Qtah.Generated.Core.QMetaMethod as M82+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QMetaObject as M84+import qualified Graphics.UI.Qtah.Generated.Core.QMetaObject.Connection as M86+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QThread as M156+import qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Std as M1+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QObject_new" new' ::  HoppyP.IO (HoppyF.Ptr QObject)+foreign import ccall "genpop__QObject_newWithParent" newWithParent' ::  HoppyF.Ptr QObject -> HoppyP.IO (HoppyF.Ptr QObject)+foreign import ccall "genpop__QObject_blockSignals" blockSignals' ::  HoppyF.Ptr QObject -> HoppyFC.CBool -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QObject_children" children' ::  HoppyF.Ptr QObject -> HoppyP.IO (HoppyF.Ptr M202.QListQObjectConst)+foreign import ccall "genpop__QObject_connect" connect' ::  HoppyF.Ptr QObjectConst -> HoppyF.Ptr QObjectConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr M86.ConnectionConst)+foreign import ccall "genpop__QObject_connectWithType" connectWithType' ::  HoppyF.Ptr QObjectConst -> HoppyF.Ptr QObjectConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M86.ConnectionConst)+foreign import ccall "genpop__QObject_connectWithTypeStatic" connectWithTypeStatic' ::  HoppyF.Ptr QObjectConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr QObjectConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M86.ConnectionConst)+foreign import ccall "genpop__QObject_connectWithSenderSignalStatic" connectWithSenderSignalStatic' ::  HoppyF.Ptr QObjectConst -> HoppyF.Ptr M82.QMetaMethodConst -> HoppyF.Ptr QObjectConst -> HoppyF.Ptr M82.QMetaMethodConst -> HoppyP.IO (HoppyF.Ptr M86.ConnectionConst)+foreign import ccall "genpop__QObject_connectWithSenderSignalTypeStatic" connectWithSenderSignalTypeStatic' ::  HoppyF.Ptr QObjectConst -> HoppyF.Ptr M82.QMetaMethodConst -> HoppyF.Ptr QObjectConst -> HoppyF.Ptr M82.QMetaMethodConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M86.ConnectionConst)+foreign import ccall "genpop__QObject_connectStatic" connectStatic' ::  HoppyF.Ptr QObjectConst -> HoppyF.Ptr M1.StdStringConst -> HoppyF.Ptr QObjectConst -> HoppyF.Ptr M1.StdStringConst -> HoppyP.IO (HoppyF.Ptr M86.ConnectionConst)+foreign import ccall "genpop__QObject_disconnectStatic" disconnectStatic' ::  HoppyF.Ptr QObjectConst -> HoppyF.Ptr M1.StdStringConst -> HoppyF.Ptr QObjectConst -> HoppyF.Ptr M1.StdStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QObject_deleteLater" deleteLater' ::  HoppyF.Ptr QObject -> HoppyP.IO ()+foreign import ccall "genpop__QObject_disconnect" disconnect' ::  HoppyF.Ptr QObjectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QObject_disconnectWithReceiver" disconnectWithReceiver' ::  HoppyF.Ptr QObjectConst -> HoppyF.Ptr QObjectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QObject_disconnectWithReceiverAndMethod" disconnectWithReceiverAndMethod' ::  HoppyF.Ptr QObjectConst -> HoppyF.Ptr QObjectConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QObject_disconnectWithSignal" disconnectWithSignal' ::  HoppyF.Ptr QObjectConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QObject_disconnectWithSignalAndReceiver" disconnectWithSignalAndReceiver' ::  HoppyF.Ptr QObjectConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr QObjectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QObject_disconnectWithSignalAndReceiverAndMethod" disconnectWithSignalAndReceiverAndMethod' ::  HoppyF.Ptr QObjectConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr QObjectConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QObject_disconnectWithMetaobject" disconnectWithMetaobject' ::  HoppyF.Ptr M86.ConnectionConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QObject_dumpObjectInfo" dumpObjectInfo' ::  HoppyF.Ptr QObject -> HoppyP.IO ()+foreign import ccall "genpop__QObject_dumpObjectTree" dumpObjectTree' ::  HoppyF.Ptr QObject -> HoppyP.IO ()+foreign import ccall "genpop__QObject_dynamicPropertyNames" dynamicPropertyNames' ::  HoppyF.Ptr QObjectConst -> HoppyP.IO (HoppyF.Ptr M196.QListQByteArrayConst)+foreign import ccall "genpop__QObject_event" event' ::  HoppyF.Ptr QObject -> HoppyF.Ptr M34.QEvent -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QObject_eventFilter" eventFilter' ::  HoppyF.Ptr QObject -> HoppyF.Ptr QObject -> HoppyF.Ptr M34.QEvent -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QObject_inherits" inherits' ::  HoppyF.Ptr QObjectConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QObject_installEventFilter" installEventFilter' ::  HoppyF.Ptr QObject -> HoppyF.Ptr QObject -> HoppyP.IO ()+foreign import ccall "genpop__QObject_isWidgetType" isWidgetType' ::  HoppyF.Ptr QObjectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QObject_isWindowType" isWindowType' ::  HoppyF.Ptr QObjectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QObject_killTimer" killTimer' ::  HoppyF.Ptr QObject -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QObject_metaObject" metaObject' ::  HoppyF.Ptr QObjectConst -> HoppyP.IO (HoppyF.Ptr M84.QMetaObjectConst)+foreign import ccall "genpop__QObject_moveToThread" moveToThread' ::  HoppyF.Ptr QObject -> HoppyF.Ptr M156.QThread -> HoppyP.IO ()+foreign import ccall "genpop__QObject_objectName" objectName' ::  HoppyF.Ptr QObjectConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QObject_setObjectName" setObjectName' ::  HoppyF.Ptr QObject -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QObject_parent" parent' ::  HoppyF.Ptr QObjectConst -> HoppyP.IO (HoppyF.Ptr QObject)+foreign import ccall "genpop__QObject_setParent" setParent' ::  HoppyF.Ptr QObject -> HoppyF.Ptr QObject -> HoppyP.IO ()+foreign import ccall "genpop__QObject_property" property' ::  HoppyF.Ptr QObjectConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QObject_removeEventFilter" removeEventFilter' ::  HoppyF.Ptr QObject -> HoppyF.Ptr QObject -> HoppyP.IO ()+foreign import ccall "genpop__QObject_setProperty" setProperty' ::  HoppyF.Ptr QObject -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QObject_signalsBlocked" signalsBlocked' ::  HoppyF.Ptr QObjectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QObject_startTimer" startTimer' ::  HoppyF.Ptr QObject -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QObject_thread" thread' ::  HoppyF.Ptr QObjectConst -> HoppyP.IO (HoppyF.Ptr M156.QThread)+foreign import ccall "genpop__QObject_emitDestroyed" emitDestroyed' ::  HoppyF.Ptr QObject -> HoppyF.Ptr QObject -> HoppyP.IO ()+foreign import ccall "gendel__QObject" delete'QObject :: HoppyF.Ptr QObjectConst -> HoppyP.IO ()+foreign import ccall "&gendel__QObject" deletePtr'QObject :: HoppyF.FunPtr (HoppyF.Ptr QObjectConst -> HoppyP.IO ())++class QObjectValue a where+  withQObjectPtr :: a -> (QObjectConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QObjectConstPtr a => QObjectValue a where+  withQObjectPtr = HoppyP.flip ($) . toQObjectConst++class (HoppyFHR.CppPtr this) => QObjectConstPtr this where+  toQObjectConst :: this -> QObjectConst++connect :: (QObjectValue this, QObjectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO M86.Connection)+connect arg'1 arg'2 arg'3 arg'4 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQObjectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  let arg'3' = arg'3 in+  let arg'4' = arg'4 in+  (HoppyFHR.decodeAndDelete . M86.ConnectionConst) =<<+  (connect' arg'1' arg'2' arg'3' arg'4')++connectWithType :: (QObjectValue this, QObjectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyF.Ptr HoppyFC.CChar) -> (M190.QtConnectionType) -> (HoppyP.IO M86.Connection)+connectWithType arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQObjectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  let arg'3' = arg'3 in+  let arg'4' = arg'4 in+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'5 >>= \arg'5' ->+  (HoppyFHR.decodeAndDelete . M86.ConnectionConst) =<<+  (connectWithType' arg'1' arg'2' arg'3' arg'4' arg'5')++disconnect :: (QObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+disconnect arg'1 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (disconnect' arg'1')++disconnectWithReceiver :: (QObjectValue this, QObjectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+disconnectWithReceiver arg'1 arg'2 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQObjectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (disconnectWithReceiver' arg'1' arg'2')++disconnectWithReceiverAndMethod :: (QObjectValue this, QObjectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Bool)+disconnectWithReceiverAndMethod arg'1 arg'2 arg'3 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQObjectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  let arg'3' = arg'3 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (disconnectWithReceiverAndMethod' arg'1' arg'2' arg'3')++disconnectWithSignal :: (QObjectValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Bool)+disconnectWithSignal arg'1 arg'2 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (disconnectWithSignal' arg'1' arg'2')++disconnectWithSignalAndReceiver :: (QObjectValue this, QObjectValue arg'3) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+disconnectWithSignalAndReceiver arg'1 arg'2 arg'3 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  withQObjectPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (disconnectWithSignalAndReceiver' arg'1' arg'2' arg'3')++disconnectWithSignalAndReceiverAndMethod :: (QObjectValue this, QObjectValue arg'3) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (arg'3) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO HoppyP.Bool)+disconnectWithSignalAndReceiverAndMethod arg'1 arg'2 arg'3 arg'4 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  withQObjectPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  let arg'4' = arg'4 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (disconnectWithSignalAndReceiverAndMethod' arg'1' arg'2' arg'3' arg'4')++dynamicPropertyNames :: (QObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahDBS.ByteString])+dynamicPropertyNames arg'1 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M196.QListQByteArrayConst) =<<+  (dynamicPropertyNames' arg'1')++inherits :: (QObjectValue arg'1, M142.QStringValue className) => (arg'1) -> (className) {- ^ className -} -> (HoppyP.IO HoppyP.Bool)+inherits arg'1 arg'2 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (inherits' arg'1' arg'2')++isWidgetType :: (QObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isWidgetType arg'1 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isWidgetType' arg'1')++isWindowType :: (QObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isWindowType arg'1 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isWindowType' arg'1')++metaObject :: (QObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO M84.QMetaObjectConst)+metaObject arg'1 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M84.QMetaObjectConst+  (metaObject' arg'1')++objectName :: (QObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+objectName arg'1 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (objectName' arg'1')++parent :: (QObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO QObject)+parent arg'1 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QObject+  (parent' arg'1')++property :: (QObjectValue arg'1, M142.QStringValue name) => (arg'1) -> (name) {- ^ name -} -> (HoppyP.IO M168.QVariant)+property arg'1 arg'2 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (property' arg'1' arg'2')++signalsBlocked :: (QObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+signalsBlocked arg'1 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (signalsBlocked' arg'1')++thread :: (QObjectValue this) => (this) {- ^ this -} -> (HoppyP.IO M156.QThread)+thread arg'1 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M156.QThread+  (thread' arg'1')++class (QObjectConstPtr this) => QObjectPtr this where+  toQObject :: this -> QObject++blockSignals :: (QObjectPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) {- ^ block -} -> (HoppyP.IO HoppyP.Bool)+blockSignals arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (blockSignals' arg'1' arg'2')++children :: (QObjectPtr this) => (this) {- ^ this -} -> (HoppyP.IO [QObject])+children arg'1 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M202.QListQObjectConst) =<<+  (children' arg'1')++deleteLater :: (QObjectPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+deleteLater arg'1 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  (deleteLater' arg'1')++dumpObjectInfo :: (QObjectPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+dumpObjectInfo arg'1 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  (dumpObjectInfo' arg'1')++dumpObjectTree :: (QObjectPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+dumpObjectTree arg'1 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  (dumpObjectTree' arg'1')++event :: (QObjectPtr this, M34.QEventPtr event) => (this) {- ^ this -} -> (event) {- ^ event -} -> (HoppyP.IO HoppyP.Bool)+event arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M34.toQEvent arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (event' arg'1' arg'2')++eventFilter :: (QObjectPtr this, QObjectPtr watched, M34.QEventPtr event) => (this) {- ^ this -} -> (watched) {- ^ watched -} -> (event) {- ^ event -} -> (HoppyP.IO HoppyP.Bool)+eventFilter arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQObject arg'2) $ \arg'2' ->+  HoppyFHR.withCppPtr (M34.toQEvent arg'3) $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eventFilter' arg'1' arg'2' arg'3')++installEventFilter :: (QObjectPtr this, QObjectPtr filterObj) => (this) {- ^ this -} -> (filterObj) {- ^ filterObj -} -> (HoppyP.IO ())+installEventFilter arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQObject arg'2) $ \arg'2' ->+  (installEventFilter' arg'1' arg'2')++killTimer :: (QObjectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) {- ^ id -} -> (HoppyP.IO ())+killTimer arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (killTimer' arg'1' arg'2')++moveToThread :: (QObjectPtr this, M156.QThreadPtr targetThread) => (this) {- ^ this -} -> (targetThread) {- ^ targetThread -} -> (HoppyP.IO ())+moveToThread arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M156.toQThread arg'2) $ \arg'2' ->+  (moveToThread' arg'1' arg'2')++setObjectName :: (QObjectPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setObjectName arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setObjectName' arg'1' arg'2')++setParent :: (QObjectPtr this, QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setParent arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQObject arg'2) $ \arg'2' ->+  (setParent' arg'1' arg'2')++removeEventFilter :: (QObjectPtr this, QObjectPtr obj) => (this) {- ^ this -} -> (obj) {- ^ obj -} -> (HoppyP.IO ())+removeEventFilter arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQObject arg'2) $ \arg'2' ->+  (removeEventFilter' arg'1' arg'2')++setProperty :: (QObjectPtr arg'1, M142.QStringValue name, M168.QVariantValue value) => (arg'1) -> (name) {- ^ name -} -> (value) {- ^ value -} -> (HoppyP.IO ())+setProperty arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M168.withQVariantPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (setProperty' arg'1' arg'2' arg'3')++startTimer :: (QObjectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) {- ^ interval -} -> (HoppyP.IO HoppyP.Int)+startTimer arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (startTimer' arg'1' arg'2')++emitDestroyed :: (QObjectPtr this, QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitDestroyed arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQObject arg'2) $ \arg'2' ->+  (emitDestroyed' arg'1' arg'2')++connectWithTypeStatic :: (QObjectValue arg'1, QObjectValue arg'3) => (arg'1) -> (HoppyF.Ptr HoppyFC.CChar) -> (arg'3) -> (HoppyF.Ptr HoppyFC.CChar) -> (M190.QtConnectionType) -> (HoppyP.IO M86.Connection)+connectWithTypeStatic arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  withQObjectPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  let arg'4' = arg'4 in+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'5 >>= \arg'5' ->+  (HoppyFHR.decodeAndDelete . M86.ConnectionConst) =<<+  (connectWithTypeStatic' arg'1' arg'2' arg'3' arg'4' arg'5')++connectWithSenderSignalStatic :: (QObjectValue arg'1, M82.QMetaMethodValue arg'2, QObjectValue arg'3, M82.QMetaMethodValue arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO M86.Connection)+connectWithSenderSignalStatic arg'1 arg'2 arg'3 arg'4 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M82.withQMetaMethodPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  withQObjectPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M82.withQMetaMethodPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (HoppyFHR.decodeAndDelete . M86.ConnectionConst) =<<+  (connectWithSenderSignalStatic' arg'1' arg'2' arg'3' arg'4')++connectWithSenderSignalTypeStatic :: (QObjectValue arg'1, M82.QMetaMethodValue arg'2, QObjectValue arg'3, M82.QMetaMethodValue arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (M190.QtConnectionType) -> (HoppyP.IO M86.Connection)+connectWithSenderSignalTypeStatic arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M82.withQMetaMethodPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  withQObjectPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M82.withQMetaMethodPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'5 >>= \arg'5' ->+  (HoppyFHR.decodeAndDelete . M86.ConnectionConst) =<<+  (connectWithSenderSignalTypeStatic' arg'1' arg'2' arg'3' arg'4' arg'5')++connectStatic :: (QObjectValue arg'1, M1.StdStringValue arg'2, QObjectValue arg'3, M1.StdStringValue arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO M86.Connection)+connectStatic arg'1 arg'2 arg'3 arg'4 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  withQObjectPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M1.withStdStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (HoppyFHR.decodeAndDelete . M86.ConnectionConst) =<<+  (connectStatic' arg'1' arg'2' arg'3' arg'4')++disconnectStatic :: (QObjectValue arg'1, M1.StdStringValue arg'2, QObjectValue arg'3, M1.StdStringValue arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO HoppyP.Bool)+disconnectStatic arg'1 arg'2 arg'3 arg'4 =+  withQObjectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M1.withStdStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  withQObjectPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M1.withStdStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (disconnectStatic' arg'1' arg'2' arg'3' arg'4')++disconnectWithMetaobject :: (M86.ConnectionValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Bool)+disconnectWithMetaobject arg'1 =+  M86.withConnectionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (disconnectWithMetaobject' arg'1')++data QObjectConst =+    QObjectConst (HoppyF.Ptr QObjectConst)+  | QObjectConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QObjectConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QObjectConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QObjectConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQObjectToConst :: QObject -> QObjectConst+castQObjectToConst (QObject ptr') = QObjectConst $ HoppyF.castPtr ptr'+castQObjectToConst (QObjectGc fptr' ptr') = QObjectConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QObjectConst where+  nullptr = QObjectConst HoppyF.nullPtr+  +  withCppPtr (QObjectConst ptr') f' = f' ptr'+  withCppPtr (QObjectConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QObjectConst ptr') = ptr'+  toPtr (QObjectConstGc _ ptr') = ptr'+  +  touchCppPtr (QObjectConst _) = HoppyP.return ()+  touchCppPtr (QObjectConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QObjectConst where+  delete (QObjectConst ptr') = delete'QObject ptr'+  delete (QObjectConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QObjectConst", " object."]+  +  toGc this'@(QObjectConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QObjectConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QObject :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QObjectConstGc {}) = HoppyP.return this'++instance QObjectConstPtr QObjectConst where+  toQObjectConst = HoppyP.id++data QObject =+    QObject (HoppyF.Ptr QObject)+  | QObjectGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QObject)+  deriving (HoppyP.Show)++instance HoppyP.Eq QObject where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QObject where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQObjectToNonconst :: QObjectConst -> QObject+castQObjectToNonconst (QObjectConst ptr') = QObject $ HoppyF.castPtr ptr'+castQObjectToNonconst (QObjectConstGc fptr' ptr') = QObjectGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QObject where+  nullptr = QObject HoppyF.nullPtr+  +  withCppPtr (QObject ptr') f' = f' ptr'+  withCppPtr (QObjectGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QObject ptr') = ptr'+  toPtr (QObjectGc _ ptr') = ptr'+  +  touchCppPtr (QObject _) = HoppyP.return ()+  touchCppPtr (QObjectGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QObject where+  delete (QObject ptr') = delete'QObject $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QObjectConst)+  delete (QObjectGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QObject", " object."]+  +  toGc this'@(QObject ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QObjectGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QObject :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QObjectGc {}) = HoppyP.return this'++instance QObjectConstPtr QObject where+  toQObjectConst (QObject ptr') = QObjectConst $ (HoppyF.castPtr :: HoppyF.Ptr QObject -> HoppyF.Ptr QObjectConst) ptr'+  toQObjectConst (QObjectGc fptr' ptr') = QObjectConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QObject -> HoppyF.Ptr QObjectConst) ptr'++instance QObjectPtr QObject where+  toQObject = HoppyP.id++new :: (HoppyP.IO QObject)+new =+  HoppyP.fmap QObject+  (new')++newWithParent :: (QObjectPtr parent) => (parent) {- ^ parent -} -> (HoppyP.IO QObject)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QObject+  (newWithParent' arg'1')++class QObjectSuper a where+  downToQObject :: a -> QObject+++class QObjectSuperConst a where+  downToQObjectConst :: a -> QObjectConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QObject)) QObject where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QObject)) QObject where+  decode = HoppyP.fmap QObject . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Core/QObject.hs-boot view
@@ -0,0 +1,54 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QObject (+  QObjectValue (..),+  QObjectConstPtr (..),+  QObjectPtr (..),+  QObjectConst (..),+  castQObjectToConst,+  QObject (..),+  castQObjectToNonconst,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Prelude as HoppyP+++class QObjectValue a where+  withQObjectPtr :: a -> (QObjectConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QObjectConstPtr a => QObjectValue a++class (HoppyFHR.CppPtr this) => QObjectConstPtr this where+  toQObjectConst :: this -> QObjectConst++class (QObjectConstPtr this) => QObjectPtr this where+  toQObject :: this -> QObject++data QObjectConst =+    QObjectConst (HoppyF.Ptr QObjectConst)+  | QObjectConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QObjectConst)++castQObjectToConst :: QObject -> QObjectConst++instance HoppyFHR.CppPtr QObjectConst+instance HoppyFHR.Deletable QObjectConst++instance QObjectConstPtr QObjectConst++data QObject =+    QObject (HoppyF.Ptr QObject)+  | QObjectGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QObject)++castQObjectToNonconst :: QObjectConst -> QObject++instance HoppyFHR.CppPtr QObject+instance HoppyFHR.Deletable QObject++instance QObjectConstPtr QObject++instance QObjectPtr QObject++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QObject)) QObject
src/Graphics/UI/Qtah/Generated/Core/QOperatingSystemVersion.hs view
@@ -0,0 +1,308 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QOperatingSystemVersion (+  QOperatingSystemVersionValue (..),+  QOperatingSystemVersionConstPtr (..),+  majorVersion,+  microVersion,+  minorVersion,+  name,+  segmentCount,+  getType,+  QOperatingSystemVersionPtr (..),+  current,+  currentType,+  QOperatingSystemVersionConst (..),+  castQOperatingSystemVersionToConst,+  QOperatingSystemVersion (..),+  castQOperatingSystemVersionToNonconst,+  new,+  newWithMinor,+  newWithMinorAndMicro,+  newCopy,+  QOperatingSystemVersionSuper (..),+  QOperatingSystemVersionSuperConst (..),+  QOperatingSystemVersionOSType (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QOperatingSystemVersion_new" new' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QOperatingSystemVersion)+foreign import ccall "genpop__QOperatingSystemVersion_newWithMinor" newWithMinor' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QOperatingSystemVersion)+foreign import ccall "genpop__QOperatingSystemVersion_newWithMinorAndMicro" newWithMinorAndMicro' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QOperatingSystemVersion)+foreign import ccall "genpop__QOperatingSystemVersion_newCopy" newCopy' ::  HoppyF.Ptr QOperatingSystemVersionConst -> HoppyP.IO (HoppyF.Ptr QOperatingSystemVersion)+foreign import ccall "genpop__QOperatingSystemVersion_current" current' ::  HoppyP.IO (HoppyF.Ptr QOperatingSystemVersionConst)+foreign import ccall "genpop__QOperatingSystemVersion_currentType" currentType' ::  HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QOperatingSystemVersion_majorVersion" majorVersion' ::  HoppyF.Ptr QOperatingSystemVersionConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QOperatingSystemVersion_microVersion" microVersion' ::  HoppyF.Ptr QOperatingSystemVersionConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QOperatingSystemVersion_minorVersion" minorVersion' ::  HoppyF.Ptr QOperatingSystemVersionConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QOperatingSystemVersion_name" name' ::  HoppyF.Ptr QOperatingSystemVersionConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QOperatingSystemVersion_segmentCount" segmentCount' ::  HoppyF.Ptr QOperatingSystemVersionConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QOperatingSystemVersion_getType" getType' ::  HoppyF.Ptr QOperatingSystemVersionConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "gendel__QOperatingSystemVersion" delete'QOperatingSystemVersion :: HoppyF.Ptr QOperatingSystemVersionConst -> HoppyP.IO ()+foreign import ccall "&gendel__QOperatingSystemVersion" deletePtr'QOperatingSystemVersion :: HoppyF.FunPtr (HoppyF.Ptr QOperatingSystemVersionConst -> HoppyP.IO ())++class QOperatingSystemVersionValue a where+  withQOperatingSystemVersionPtr :: a -> (QOperatingSystemVersionConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QOperatingSystemVersionConstPtr a => QOperatingSystemVersionValue a where+  withQOperatingSystemVersionPtr = HoppyP.flip ($) . toQOperatingSystemVersionConst++class (HoppyFHR.CppPtr this) => QOperatingSystemVersionConstPtr this where+  toQOperatingSystemVersionConst :: this -> QOperatingSystemVersionConst++majorVersion :: (QOperatingSystemVersionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+majorVersion arg'1 =+  withQOperatingSystemVersionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (majorVersion' arg'1')++microVersion :: (QOperatingSystemVersionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+microVersion arg'1 =+  withQOperatingSystemVersionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (microVersion' arg'1')++minorVersion :: (QOperatingSystemVersionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+minorVersion arg'1 =+  withQOperatingSystemVersionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (minorVersion' arg'1')++name :: (QOperatingSystemVersionValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+name arg'1 =+  withQOperatingSystemVersionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (name' arg'1')++segmentCount :: (QOperatingSystemVersionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+segmentCount arg'1 =+  withQOperatingSystemVersionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (segmentCount' arg'1')++getType :: (QOperatingSystemVersionValue this) => (this) {- ^ this -} -> (HoppyP.IO QOperatingSystemVersionOSType)+getType arg'1 =+  withQOperatingSystemVersionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (getType' arg'1')++class (QOperatingSystemVersionConstPtr this) => QOperatingSystemVersionPtr this where+  toQOperatingSystemVersion :: this -> QOperatingSystemVersion++current :: (HoppyP.IO QOperatingSystemVersion)+current =+  (HoppyFHR.decodeAndDelete . QOperatingSystemVersionConst) =<<+  (current')++currentType :: (HoppyP.IO QOperatingSystemVersionOSType)+currentType =+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (currentType')++data QOperatingSystemVersionConst =+    QOperatingSystemVersionConst (HoppyF.Ptr QOperatingSystemVersionConst)+  | QOperatingSystemVersionConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QOperatingSystemVersionConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QOperatingSystemVersionConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QOperatingSystemVersionConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQOperatingSystemVersionToConst :: QOperatingSystemVersion -> QOperatingSystemVersionConst+castQOperatingSystemVersionToConst (QOperatingSystemVersion ptr') = QOperatingSystemVersionConst $ HoppyF.castPtr ptr'+castQOperatingSystemVersionToConst (QOperatingSystemVersionGc fptr' ptr') = QOperatingSystemVersionConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QOperatingSystemVersionConst where+  nullptr = QOperatingSystemVersionConst HoppyF.nullPtr+  +  withCppPtr (QOperatingSystemVersionConst ptr') f' = f' ptr'+  withCppPtr (QOperatingSystemVersionConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QOperatingSystemVersionConst ptr') = ptr'+  toPtr (QOperatingSystemVersionConstGc _ ptr') = ptr'+  +  touchCppPtr (QOperatingSystemVersionConst _) = HoppyP.return ()+  touchCppPtr (QOperatingSystemVersionConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QOperatingSystemVersionConst where+  delete (QOperatingSystemVersionConst ptr') = delete'QOperatingSystemVersion ptr'+  delete (QOperatingSystemVersionConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QOperatingSystemVersionConst", " object."]+  +  toGc this'@(QOperatingSystemVersionConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QOperatingSystemVersionConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QOperatingSystemVersion :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QOperatingSystemVersionConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QOperatingSystemVersionConst QOperatingSystemVersion where copy = newCopy++instance QOperatingSystemVersionConstPtr QOperatingSystemVersionConst where+  toQOperatingSystemVersionConst = HoppyP.id++data QOperatingSystemVersion =+    QOperatingSystemVersion (HoppyF.Ptr QOperatingSystemVersion)+  | QOperatingSystemVersionGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QOperatingSystemVersion)+  deriving (HoppyP.Show)++instance HoppyP.Eq QOperatingSystemVersion where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QOperatingSystemVersion where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQOperatingSystemVersionToNonconst :: QOperatingSystemVersionConst -> QOperatingSystemVersion+castQOperatingSystemVersionToNonconst (QOperatingSystemVersionConst ptr') = QOperatingSystemVersion $ HoppyF.castPtr ptr'+castQOperatingSystemVersionToNonconst (QOperatingSystemVersionConstGc fptr' ptr') = QOperatingSystemVersionGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QOperatingSystemVersion where+  nullptr = QOperatingSystemVersion HoppyF.nullPtr+  +  withCppPtr (QOperatingSystemVersion ptr') f' = f' ptr'+  withCppPtr (QOperatingSystemVersionGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QOperatingSystemVersion ptr') = ptr'+  toPtr (QOperatingSystemVersionGc _ ptr') = ptr'+  +  touchCppPtr (QOperatingSystemVersion _) = HoppyP.return ()+  touchCppPtr (QOperatingSystemVersionGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QOperatingSystemVersion where+  delete (QOperatingSystemVersion ptr') = delete'QOperatingSystemVersion $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QOperatingSystemVersionConst)+  delete (QOperatingSystemVersionGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QOperatingSystemVersion", " object."]+  +  toGc this'@(QOperatingSystemVersion ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QOperatingSystemVersionGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QOperatingSystemVersion :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QOperatingSystemVersionGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QOperatingSystemVersion QOperatingSystemVersion where copy = newCopy++instance QOperatingSystemVersionConstPtr QOperatingSystemVersion where+  toQOperatingSystemVersionConst (QOperatingSystemVersion ptr') = QOperatingSystemVersionConst $ (HoppyF.castPtr :: HoppyF.Ptr QOperatingSystemVersion -> HoppyF.Ptr QOperatingSystemVersionConst) ptr'+  toQOperatingSystemVersionConst (QOperatingSystemVersionGc fptr' ptr') = QOperatingSystemVersionConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QOperatingSystemVersion -> HoppyF.Ptr QOperatingSystemVersionConst) ptr'++instance QOperatingSystemVersionPtr QOperatingSystemVersion where+  toQOperatingSystemVersion = HoppyP.id++new :: (QOperatingSystemVersionOSType) -> (HoppyP.Int) -> (HoppyP.IO QOperatingSystemVersion)+new arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QOperatingSystemVersion+  (new' arg'1' arg'2')++newWithMinor :: (QOperatingSystemVersionOSType) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QOperatingSystemVersion)+newWithMinor arg'1 arg'2 arg'3 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QOperatingSystemVersion+  (newWithMinor' arg'1' arg'2' arg'3')++newWithMinorAndMicro :: (QOperatingSystemVersionOSType) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QOperatingSystemVersion)+newWithMinorAndMicro arg'1 arg'2 arg'3 arg'4 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) 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.fmap QOperatingSystemVersion+  (newWithMinorAndMicro' arg'1' arg'2' arg'3' arg'4')++newCopy :: (QOperatingSystemVersionValue arg'1) => (arg'1) -> (HoppyP.IO QOperatingSystemVersion)+newCopy arg'1 =+  withQOperatingSystemVersionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QOperatingSystemVersion+  (newCopy' arg'1')++class QOperatingSystemVersionSuper a where+  downToQOperatingSystemVersion :: a -> QOperatingSystemVersion+++class QOperatingSystemVersionSuperConst a where+  downToQOperatingSystemVersionConst :: a -> QOperatingSystemVersionConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QOperatingSystemVersion)) QOperatingSystemVersion where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QOperatingSystemVersion)) QOperatingSystemVersion where+  decode = HoppyP.fmap QOperatingSystemVersion . HoppyF.peek++instance HoppyFHR.Decodable QOperatingSystemVersion (QOperatingSystemVersion) where+  decode = HoppyFHR.decode . toQOperatingSystemVersionConst++instance HoppyFHR.Decodable QOperatingSystemVersionConst (QOperatingSystemVersion) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc++data QOperatingSystemVersionOSType =+  Unknown+  | Windows+  | MacOs+  | Ios+  | TvOs+  | WatchOs+  | Android+  | UnknownQOperatingSystemVersionOsType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QOperatingSystemVersionOSType where+  fromCppEnum Unknown = 0+  fromCppEnum Windows = 1+  fromCppEnum MacOs = 2+  fromCppEnum Ios = 3+  fromCppEnum TvOs = 4+  fromCppEnum WatchOs = 5+  fromCppEnum Android = 6+  fromCppEnum (UnknownQOperatingSystemVersionOsType n) = n+  +  toCppEnum (0) = Unknown+  toCppEnum (1) = Windows+  toCppEnum (2) = MacOs+  toCppEnum (3) = Ios+  toCppEnum (4) = TvOs+  toCppEnum (5) = WatchOs+  toCppEnum (6) = Android+  toCppEnum n = UnknownQOperatingSystemVersionOsType n++instance HoppyP.Eq QOperatingSystemVersionOSType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QOperatingSystemVersionOSType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Core/QPair/IntInt.hs view
@@ -0,0 +1,175 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QPair.IntInt (+  QPairIntIntValue (..),+  QPairIntIntConstPtr (..),+  QPairIntIntPtr (..),+  swap,+  aSSIGN,+  QPairIntIntConst (..),+  castQPairIntIntToConst,+  QPairIntInt (..),+  castQPairIntIntToNonconst,+  new,+  newWithValues,+  newCopy,+  QPairIntIntSuper (..),+  QPairIntIntSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import Prelude (($), (.), (==), (>>))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QPairIntInt_new" new' ::  HoppyP.IO (HoppyF.Ptr QPairIntInt)+foreign import ccall "genpop__QPairIntInt_newWithValues" newWithValues' ::  HoppyF.Ptr HoppyFC.CInt -> HoppyF.Ptr HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPairIntInt)+foreign import ccall "genpop__QPairIntInt_newCopy" newCopy' ::  HoppyF.Ptr QPairIntIntConst -> HoppyP.IO (HoppyF.Ptr QPairIntInt)+foreign import ccall "genpop__QPairIntInt_swap" swap' ::  HoppyF.Ptr QPairIntInt -> HoppyF.Ptr QPairIntInt -> HoppyP.IO ()+foreign import ccall "genpop__QPairIntInt_ASSIGN" aSSIGN' ::  HoppyF.Ptr QPairIntInt -> HoppyF.Ptr QPairIntIntConst -> HoppyP.IO (HoppyF.Ptr QPairIntInt)+foreign import ccall "gendel__QPairIntInt" delete'QPairIntInt :: HoppyF.Ptr QPairIntIntConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPairIntInt" deletePtr'QPairIntInt :: HoppyF.FunPtr (HoppyF.Ptr QPairIntIntConst -> HoppyP.IO ())++class QPairIntIntValue a where+  withQPairIntIntPtr :: a -> (QPairIntIntConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPairIntIntConstPtr a => QPairIntIntValue a where+  withQPairIntIntPtr = HoppyP.flip ($) . toQPairIntIntConst++class (HoppyFHR.CppPtr this) => QPairIntIntConstPtr this where+  toQPairIntIntConst :: this -> QPairIntIntConst++class (QPairIntIntConstPtr this) => QPairIntIntPtr this where+  toQPairIntInt :: this -> QPairIntInt++swap :: (QPairIntIntPtr this, QPairIntIntPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPairIntInt arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQPairIntInt arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++aSSIGN :: (QPairIntIntPtr this, QPairIntIntValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPairIntInt)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPairIntInt arg'1) $ \arg'1' ->+  withQPairIntIntPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QPairIntInt+  (aSSIGN' arg'1' arg'2')++data QPairIntIntConst =+    QPairIntIntConst (HoppyF.Ptr QPairIntIntConst)+  | QPairIntIntConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPairIntIntConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPairIntIntConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPairIntIntConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPairIntIntToConst :: QPairIntInt -> QPairIntIntConst+castQPairIntIntToConst (QPairIntInt ptr') = QPairIntIntConst $ HoppyF.castPtr ptr'+castQPairIntIntToConst (QPairIntIntGc fptr' ptr') = QPairIntIntConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPairIntIntConst where+  nullptr = QPairIntIntConst HoppyF.nullPtr+  +  withCppPtr (QPairIntIntConst ptr') f' = f' ptr'+  withCppPtr (QPairIntIntConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPairIntIntConst ptr') = ptr'+  toPtr (QPairIntIntConstGc _ ptr') = ptr'+  +  touchCppPtr (QPairIntIntConst _) = HoppyP.return ()+  touchCppPtr (QPairIntIntConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPairIntIntConst where+  delete (QPairIntIntConst ptr') = delete'QPairIntInt ptr'+  delete (QPairIntIntConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPairIntIntConst", " object."]+  +  toGc this'@(QPairIntIntConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPairIntIntConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPairIntInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPairIntIntConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPairIntIntConst QPairIntInt where copy = newCopy++instance QPairIntIntConstPtr QPairIntIntConst where+  toQPairIntIntConst = HoppyP.id++data QPairIntInt =+    QPairIntInt (HoppyF.Ptr QPairIntInt)+  | QPairIntIntGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPairIntInt)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPairIntInt where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPairIntInt where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPairIntIntToNonconst :: QPairIntIntConst -> QPairIntInt+castQPairIntIntToNonconst (QPairIntIntConst ptr') = QPairIntInt $ HoppyF.castPtr ptr'+castQPairIntIntToNonconst (QPairIntIntConstGc fptr' ptr') = QPairIntIntGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPairIntInt where+  nullptr = QPairIntInt HoppyF.nullPtr+  +  withCppPtr (QPairIntInt ptr') f' = f' ptr'+  withCppPtr (QPairIntIntGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPairIntInt ptr') = ptr'+  toPtr (QPairIntIntGc _ ptr') = ptr'+  +  touchCppPtr (QPairIntInt _) = HoppyP.return ()+  touchCppPtr (QPairIntIntGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPairIntInt where+  delete (QPairIntInt ptr') = delete'QPairIntInt $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPairIntIntConst)+  delete (QPairIntIntGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPairIntInt", " object."]+  +  toGc this'@(QPairIntInt ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPairIntIntGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPairIntInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPairIntIntGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPairIntInt QPairIntInt where copy = newCopy++instance QPairIntIntConstPtr QPairIntInt where+  toQPairIntIntConst (QPairIntInt ptr') = QPairIntIntConst $ (HoppyF.castPtr :: HoppyF.Ptr QPairIntInt -> HoppyF.Ptr QPairIntIntConst) ptr'+  toQPairIntIntConst (QPairIntIntGc fptr' ptr') = QPairIntIntConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPairIntInt -> HoppyF.Ptr QPairIntIntConst) ptr'++instance QPairIntIntPtr QPairIntInt where+  toQPairIntInt = HoppyP.id++new :: (HoppyP.IO QPairIntInt)+new =+  HoppyP.fmap QPairIntInt+  (new')++newWithValues :: (HoppyF.Ptr HoppyFC.CInt) -> (HoppyF.Ptr HoppyFC.CInt) -> (HoppyP.IO QPairIntInt)+newWithValues arg'1 arg'2 =+  let arg'1' = arg'1 in+  let arg'2' = arg'2 in+  HoppyP.fmap QPairIntInt+  (newWithValues' arg'1' arg'2')++newCopy :: (QPairIntIntValue arg'1) => (arg'1) -> (HoppyP.IO QPairIntInt)+newCopy arg'1 =+  withQPairIntIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPairIntInt+  (newCopy' arg'1')++class QPairIntIntSuper a where+  downToQPairIntInt :: a -> QPairIntInt+++class QPairIntIntSuperConst a where+  downToQPairIntIntConst :: a -> QPairIntIntConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPairIntInt)) QPairIntInt where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QPairIntIntValue a => HoppyFHR.Assignable QPairIntInt a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPairIntInt)) QPairIntInt where+  decode = HoppyP.fmap QPairIntInt . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QPalette.hs view
@@ -0,0 +1,665 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QPalette (+  QPaletteValue (..),+  QPaletteConstPtr (..),+  alternateBase,+  base,+  brightText,+  brushWithGroup,+  brush,+  button,+  buttonText,+  cacheKey,+  colorWithGroup,+  color,+  currentColorGroup,+  dark,+  highlight,+  highlightedText,+  isBrushSet,+  isCopyOf,+  isEqual,+  light,+  link,+  linkVisited,+  mid,+  midlight,+  placeholderText,+  shadow,+  text,+  toolTipBase,+  toolTipText,+  window,+  windowText,+  eQ,+  nE,+  QPalettePtr (..),+  setBrush,+  setBrushWithGroup,+  setColor,+  setColorWithGroup,+  setColorGroup,+  setCurrentColorGroup,+  swap,+  aSSIGN,+  QPaletteConst (..),+  castQPaletteToConst,+  QPalette (..),+  castQPaletteToNonconst,+  new,+  newWithColor,+  newWithColors,+  newWithGlobalColor,+  newWithBrushes,+  newCopy,+  QPaletteSuper (..),+  QPaletteSuperConst (..),+  QPaletteColorGroup (..),+  QPaletteColorRole (..),+  ) where++import Control.Monad ((>=>))+import qualified Data.Int as HoppyDI+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QBrush as M246+import qualified Graphics.UI.Qtah.Generated.Gui.QColor as M252+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QPalette_new" new' ::  HoppyP.IO (HoppyF.Ptr QPalette)+foreign import ccall "genpop__QPalette_newWithColor" newWithColor' ::  HoppyF.Ptr M252.QColorConst -> HoppyP.IO (HoppyF.Ptr QPalette)+foreign import ccall "genpop__QPalette_newWithColors" newWithColors' ::  HoppyF.Ptr M252.QColorConst -> HoppyF.Ptr M252.QColorConst -> HoppyP.IO (HoppyF.Ptr QPalette)+foreign import ccall "genpop__QPalette_newWithGlobalColor" newWithGlobalColor' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPalette)+foreign import ccall "genpop__QPalette_newWithBrushes" newWithBrushes' ::  HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO (HoppyF.Ptr QPalette)+foreign import ccall "genpop__QPalette_newCopy" newCopy' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr QPalette)+foreign import ccall "genpop__QPalette_alternateBase" alternateBase' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_base" base' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_brightText" brightText' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_brushWithGroup" brushWithGroup' ::  HoppyF.Ptr QPaletteConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_brush" brush' ::  HoppyF.Ptr QPaletteConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_button" button' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_buttonText" buttonText' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_cacheKey" cacheKey' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QPalette_colorWithGroup" colorWithGroup' ::  HoppyF.Ptr QPaletteConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M252.QColorConst)+foreign import ccall "genpop__QPalette_color" color' ::  HoppyF.Ptr QPaletteConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M252.QColorConst)+foreign import ccall "genpop__QPalette_currentColorGroup" currentColorGroup' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPalette_dark" dark' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_highlight" highlight' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_highlightedText" highlightedText' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_isBrushSet" isBrushSet' ::  HoppyF.Ptr QPaletteConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPalette_isCopyOf" isCopyOf' ::  HoppyF.Ptr QPaletteConst -> HoppyF.Ptr QPaletteConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPalette_isEqual" isEqual' ::  HoppyF.Ptr QPaletteConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPalette_light" light' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_link" link' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_linkVisited" linkVisited' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_mid" mid' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_midlight" midlight' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_placeholderText" placeholderText' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_setBrush" setBrush' ::  HoppyF.Ptr QPalette -> HoppyFC.CInt -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO ()+foreign import ccall "genpop__QPalette_setBrushWithGroup" setBrushWithGroup' ::  HoppyF.Ptr QPalette -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO ()+foreign import ccall "genpop__QPalette_setColor" setColor' ::  HoppyF.Ptr QPalette -> HoppyFC.CInt -> HoppyF.Ptr M252.QColorConst -> HoppyP.IO ()+foreign import ccall "genpop__QPalette_setColorWithGroup" setColorWithGroup' ::  HoppyF.Ptr QPalette -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M252.QColorConst -> HoppyP.IO ()+foreign import ccall "genpop__QPalette_setColorGroup" setColorGroup' ::  HoppyF.Ptr QPalette -> HoppyFC.CInt -> HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO ()+foreign import ccall "genpop__QPalette_setCurrentColorGroup" setCurrentColorGroup' ::  HoppyF.Ptr QPalette -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QPalette_shadow" shadow' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_swap" swap' ::  HoppyF.Ptr QPalette -> HoppyF.Ptr QPalette -> HoppyP.IO ()+foreign import ccall "genpop__QPalette_text" text' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_toolTipBase" toolTipBase' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_toolTipText" toolTipText' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_window" window' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_windowText" windowText' ::  HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QPalette_EQ" eQ' ::  HoppyF.Ptr QPaletteConst -> HoppyF.Ptr QPaletteConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPalette_NE" nE' ::  HoppyF.Ptr QPaletteConst -> HoppyF.Ptr QPaletteConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPalette_ASSIGN" aSSIGN' ::  HoppyF.Ptr QPalette -> HoppyF.Ptr QPaletteConst -> HoppyP.IO (HoppyF.Ptr QPalette)+foreign import ccall "gendel__QPalette" delete'QPalette :: HoppyF.Ptr QPaletteConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPalette" deletePtr'QPalette :: HoppyF.FunPtr (HoppyF.Ptr QPaletteConst -> HoppyP.IO ())++class QPaletteValue a where+  withQPalettePtr :: a -> (QPaletteConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPaletteConstPtr a => QPaletteValue a where+  withQPalettePtr = HoppyP.flip ($) . toQPaletteConst++class (HoppyFHR.CppPtr this) => QPaletteConstPtr this where+  toQPaletteConst :: this -> QPaletteConst++alternateBase :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+alternateBase arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (alternateBase' arg'1')++base :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+base arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (base' arg'1')++brightText :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+brightText arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (brightText' arg'1')++brushWithGroup :: (QPaletteValue this) => (this) {- ^ this -} -> (QPaletteColorGroup) -> (QPaletteColorRole) -> (HoppyP.IO M246.QBrushConst)+brushWithGroup arg'1 arg'2 arg'3 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap M246.QBrushConst+  (brushWithGroup' arg'1' arg'2' arg'3')++brush :: (QPaletteValue this) => (this) {- ^ this -} -> (QPaletteColorRole) -> (HoppyP.IO M246.QBrushConst)+brush arg'1 arg'2 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M246.QBrushConst+  (brush' arg'1' arg'2')++button :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+button arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (button' arg'1')++buttonText :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+buttonText arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (buttonText' arg'1')++cacheKey :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+cacheKey arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (cacheKey' arg'1')++colorWithGroup :: (QPaletteValue this) => (this) {- ^ this -} -> (QPaletteColorGroup) -> (QPaletteColorRole) -> (HoppyP.IO M252.QColorConst)+colorWithGroup arg'1 arg'2 arg'3 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap M252.QColorConst+  (colorWithGroup' arg'1' arg'2' arg'3')++color :: (QPaletteValue this) => (this) {- ^ this -} -> (QPaletteColorRole) -> (HoppyP.IO M252.QColorConst)+color arg'1 arg'2 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M252.QColorConst+  (color' arg'1' arg'2')++currentColorGroup :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO QPaletteColorGroup)+currentColorGroup arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (currentColorGroup' arg'1')++dark :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+dark arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (dark' arg'1')++highlight :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+highlight arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (highlight' arg'1')++highlightedText :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+highlightedText arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (highlightedText' arg'1')++isBrushSet :: (QPaletteValue this) => (this) {- ^ this -} -> (QPaletteColorGroup) -> (QPaletteColorRole) -> (HoppyP.IO HoppyP.Bool)+isBrushSet arg'1 arg'2 arg'3 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isBrushSet' arg'1' arg'2' arg'3')++isCopyOf :: (QPaletteValue this, QPaletteValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+isCopyOf arg'1 arg'2 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPalettePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isCopyOf' arg'1' arg'2')++isEqual :: (QPaletteValue this) => (this) {- ^ this -} -> (QPaletteColorGroup) -> (QPaletteColorGroup) -> (HoppyP.IO HoppyP.Bool)+isEqual arg'1 arg'2 arg'3 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEqual' arg'1' arg'2' arg'3')++light :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+light arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (light' arg'1')++link :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+link arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (link' arg'1')++linkVisited :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+linkVisited arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (linkVisited' arg'1')++mid :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+mid arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (mid' arg'1')++midlight :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+midlight arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (midlight' arg'1')++placeholderText :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+placeholderText arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (placeholderText' arg'1')++shadow :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+shadow arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (shadow' arg'1')++text :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+text arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (text' arg'1')++toolTipBase :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+toolTipBase arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (toolTipBase' arg'1')++toolTipText :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+toolTipText arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (toolTipText' arg'1')++window :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+window arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (window' arg'1')++windowText :: (QPaletteValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrushConst)+windowText arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M246.QBrushConst+  (windowText' arg'1')++eQ :: (QPaletteValue this, QPaletteValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPalettePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QPaletteValue this, QPaletteValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPalettePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QPaletteConstPtr this) => QPalettePtr this where+  toQPalette :: this -> QPalette++setBrush :: (QPalettePtr this, M246.QBrushValue arg'3) => (this) {- ^ this -} -> (QPaletteColorRole) -> (arg'3) -> (HoppyP.IO ())+setBrush arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQPalette arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  M246.withQBrushPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (setBrush' arg'1' arg'2' arg'3')++setBrushWithGroup :: (QPalettePtr this, M246.QBrushValue arg'4) => (this) {- ^ this -} -> (QPaletteColorGroup) -> (QPaletteColorRole) -> (arg'4) -> (HoppyP.IO ())+setBrushWithGroup arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQPalette arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  M246.withQBrushPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (setBrushWithGroup' arg'1' arg'2' arg'3' arg'4')++setColor :: (QPalettePtr this, M252.QColorValue arg'3) => (this) {- ^ this -} -> (QPaletteColorRole) -> (arg'3) -> (HoppyP.IO ())+setColor arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQPalette arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  M252.withQColorPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (setColor' arg'1' arg'2' arg'3')++setColorWithGroup :: (QPalettePtr this, M252.QColorValue arg'4) => (this) {- ^ this -} -> (QPaletteColorGroup) -> (QPaletteColorRole) -> (arg'4) -> (HoppyP.IO ())+setColorWithGroup arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQPalette arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  M252.withQColorPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (setColorWithGroup' arg'1' arg'2' arg'3' arg'4')++setColorGroup :: (QPalettePtr this, M246.QBrushValue arg'3, M246.QBrushValue arg'4, M246.QBrushValue arg'5, M246.QBrushValue arg'6, M246.QBrushValue arg'7, M246.QBrushValue arg'8, M246.QBrushValue arg'9, M246.QBrushValue arg'10, M246.QBrushValue arg'11) => (this) {- ^ this -} -> (QPaletteColorGroup) -> (arg'3) -> (arg'4) -> (arg'5) -> (arg'6) -> (arg'7) -> (arg'8) -> (arg'9) -> (arg'10) -> (arg'11) -> (HoppyP.IO ())+setColorGroup arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 arg'8 arg'9 arg'10 arg'11 =+  HoppyFHR.withCppPtr (toQPalette arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  M246.withQBrushPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M246.withQBrushPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  M246.withQBrushPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  M246.withQBrushPtr arg'6 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'6' ->+  M246.withQBrushPtr arg'7 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'7' ->+  M246.withQBrushPtr arg'8 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'8' ->+  M246.withQBrushPtr arg'9 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'9' ->+  M246.withQBrushPtr arg'10 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'10' ->+  M246.withQBrushPtr arg'11 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'11' ->+  (setColorGroup' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7' arg'8' arg'9' arg'10' arg'11')++setCurrentColorGroup :: (QPalettePtr this) => (this) {- ^ this -} -> (QPaletteColorGroup) -> (HoppyP.IO ())+setCurrentColorGroup arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPalette arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setCurrentColorGroup' arg'1' arg'2')++swap :: (QPalettePtr this, QPalettePtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPalette arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQPalette arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++aSSIGN :: (QPalettePtr this, QPaletteValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPalette)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPalette arg'1) $ \arg'1' ->+  withQPalettePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QPalette+  (aSSIGN' arg'1' arg'2')++data QPaletteConst =+    QPaletteConst (HoppyF.Ptr QPaletteConst)+  | QPaletteConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPaletteConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPaletteConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPaletteConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPaletteToConst :: QPalette -> QPaletteConst+castQPaletteToConst (QPalette ptr') = QPaletteConst $ HoppyF.castPtr ptr'+castQPaletteToConst (QPaletteGc fptr' ptr') = QPaletteConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPaletteConst where+  nullptr = QPaletteConst HoppyF.nullPtr+  +  withCppPtr (QPaletteConst ptr') f' = f' ptr'+  withCppPtr (QPaletteConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPaletteConst ptr') = ptr'+  toPtr (QPaletteConstGc _ ptr') = ptr'+  +  touchCppPtr (QPaletteConst _) = HoppyP.return ()+  touchCppPtr (QPaletteConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPaletteConst where+  delete (QPaletteConst ptr') = delete'QPalette ptr'+  delete (QPaletteConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPaletteConst", " object."]+  +  toGc this'@(QPaletteConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPaletteConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPalette :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPaletteConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPaletteConst QPalette where copy = newCopy++instance QPaletteConstPtr QPaletteConst where+  toQPaletteConst = HoppyP.id++data QPalette =+    QPalette (HoppyF.Ptr QPalette)+  | QPaletteGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPalette)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPalette where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPalette where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPaletteToNonconst :: QPaletteConst -> QPalette+castQPaletteToNonconst (QPaletteConst ptr') = QPalette $ HoppyF.castPtr ptr'+castQPaletteToNonconst (QPaletteConstGc fptr' ptr') = QPaletteGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPalette where+  nullptr = QPalette HoppyF.nullPtr+  +  withCppPtr (QPalette ptr') f' = f' ptr'+  withCppPtr (QPaletteGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPalette ptr') = ptr'+  toPtr (QPaletteGc _ ptr') = ptr'+  +  touchCppPtr (QPalette _) = HoppyP.return ()+  touchCppPtr (QPaletteGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPalette where+  delete (QPalette ptr') = delete'QPalette $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPaletteConst)+  delete (QPaletteGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPalette", " object."]+  +  toGc this'@(QPalette ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPaletteGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPalette :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPaletteGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPalette QPalette where copy = newCopy++instance QPaletteConstPtr QPalette where+  toQPaletteConst (QPalette ptr') = QPaletteConst $ (HoppyF.castPtr :: HoppyF.Ptr QPalette -> HoppyF.Ptr QPaletteConst) ptr'+  toQPaletteConst (QPaletteGc fptr' ptr') = QPaletteConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPalette -> HoppyF.Ptr QPaletteConst) ptr'++instance QPalettePtr QPalette where+  toQPalette = HoppyP.id++new :: (HoppyP.IO QPalette)+new =+  HoppyP.fmap QPalette+  (new')++newWithColor :: (M252.QColorValue arg'1) => (arg'1) -> (HoppyP.IO QPalette)+newWithColor arg'1 =+  M252.withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPalette+  (newWithColor' arg'1')++newWithColors :: (M252.QColorValue arg'1, M252.QColorValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QPalette)+newWithColors arg'1 arg'2 =+  M252.withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M252.withQColorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QPalette+  (newWithColors' arg'1' arg'2')++newWithGlobalColor :: (M190.QtGlobalColor) -> (HoppyP.IO QPalette)+newWithGlobalColor arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QPalette+  (newWithGlobalColor' arg'1')++newWithBrushes :: (M246.QBrushValue arg'1, M246.QBrushValue arg'2, M246.QBrushValue arg'3, M246.QBrushValue arg'4, M246.QBrushValue arg'5, M246.QBrushValue arg'6, M246.QBrushValue arg'7, M246.QBrushValue arg'8, M246.QBrushValue arg'9) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (arg'6) -> (arg'7) -> (arg'8) -> (arg'9) -> (HoppyP.IO QPalette)+newWithBrushes arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 arg'8 arg'9 =+  M246.withQBrushPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M246.withQBrushPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M246.withQBrushPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M246.withQBrushPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  M246.withQBrushPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  M246.withQBrushPtr arg'6 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'6' ->+  M246.withQBrushPtr arg'7 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'7' ->+  M246.withQBrushPtr arg'8 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'8' ->+  M246.withQBrushPtr arg'9 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'9' ->+  HoppyP.fmap QPalette+  (newWithBrushes' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7' arg'8' arg'9')++newCopy :: (QPaletteValue arg'1) => (arg'1) -> (HoppyP.IO QPalette)+newCopy arg'1 =+  withQPalettePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPalette+  (newCopy' arg'1')++class QPaletteSuper a where+  downToQPalette :: a -> QPalette+++class QPaletteSuperConst a where+  downToQPaletteConst :: a -> QPaletteConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPalette)) QPalette where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QPaletteValue a => HoppyFHR.Assignable QPalette a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPalette)) QPalette where+  decode = HoppyP.fmap QPalette . HoppyF.peek++instance HoppyFHR.Decodable QPalette (QPalette) where+  decode = HoppyFHR.decode . toQPaletteConst++instance HoppyFHR.Decodable QPaletteConst (QPalette) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc++data QPaletteColorGroup =+  Disabled+  | Active+  | Inactive+  | Normal+  | UnknownQPaletteColorGroup (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QPaletteColorGroup where+  fromCppEnum Disabled = 1+  fromCppEnum Active = 0+  fromCppEnum Inactive = 2+  fromCppEnum Normal = 0+  fromCppEnum (UnknownQPaletteColorGroup n) = n+  +  toCppEnum (0) = Normal+  toCppEnum (1) = Disabled+  toCppEnum (2) = Inactive+  toCppEnum n = UnknownQPaletteColorGroup n++instance HoppyP.Eq QPaletteColorGroup where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QPaletteColorGroup where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QPaletteColorRole =+  Window+  | WindowText+  | Base+  | AlternateBase+  | ToolTipBase+  | ToolTipText+  | Text+  | Button+  | ButtonText+  | BrightText+  | UnknownQPaletteColorRole (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QPaletteColorRole where+  fromCppEnum Window = 10+  fromCppEnum WindowText = 0+  fromCppEnum Base = 9+  fromCppEnum AlternateBase = 16+  fromCppEnum ToolTipBase = 18+  fromCppEnum ToolTipText = 19+  fromCppEnum Text = 6+  fromCppEnum Button = 1+  fromCppEnum ButtonText = 8+  fromCppEnum BrightText = 7+  fromCppEnum (UnknownQPaletteColorRole n) = n+  +  toCppEnum (0) = WindowText+  toCppEnum (1) = Button+  toCppEnum (6) = Text+  toCppEnum (7) = BrightText+  toCppEnum (8) = ButtonText+  toCppEnum (9) = Base+  toCppEnum (10) = Window+  toCppEnum (16) = AlternateBase+  toCppEnum (18) = ToolTipBase+  toCppEnum (19) = ToolTipText+  toCppEnum n = UnknownQPaletteColorRole n++instance HoppyP.Eq QPaletteColorRole where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QPaletteColorRole where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Core/QPalette.hs-boot view
@@ -0,0 +1,74 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QPalette (+  QPaletteValue (..),+  QPaletteConstPtr (..),+  QPalettePtr (..),+  QPaletteConst (..),+  castQPaletteToConst,+  QPalette (..),+  castQPaletteToNonconst,+  QPaletteColorGroup,+  QPaletteColorRole,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Prelude as HoppyP+++class QPaletteValue a where+  withQPalettePtr :: a -> (QPaletteConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPaletteConstPtr a => QPaletteValue a++class (HoppyFHR.CppPtr this) => QPaletteConstPtr this where+  toQPaletteConst :: this -> QPaletteConst++class (QPaletteConstPtr this) => QPalettePtr this where+  toQPalette :: this -> QPalette++data QPaletteConst =+    QPaletteConst (HoppyF.Ptr QPaletteConst)+  | QPaletteConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPaletteConst)++castQPaletteToConst :: QPalette -> QPaletteConst++instance HoppyFHR.CppPtr QPaletteConst+instance HoppyFHR.Deletable QPaletteConst+instance HoppyFHR.Copyable QPaletteConst QPalette++instance QPaletteConstPtr QPaletteConst++data QPalette =+    QPalette (HoppyF.Ptr QPalette)+  | QPaletteGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPalette)++castQPaletteToNonconst :: QPaletteConst -> QPalette++instance HoppyFHR.CppPtr QPalette+instance HoppyFHR.Deletable QPalette+instance HoppyFHR.Copyable QPalette QPalette++instance QPaletteConstPtr QPalette++instance QPalettePtr QPalette++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPalette)) QPalette++instance HoppyFHR.Decodable QPalette ((QPalette))+instance HoppyFHR.Decodable QPaletteConst ((QPalette))++data QPaletteColorGroup+instance HoppyFHR.CppEnum (HoppyFC.CInt) QPaletteColorGroup+instance HoppyP.Eq QPaletteColorGroup+instance HoppyP.Ord QPaletteColorGroup+instance HoppyP.Show QPaletteColorGroup++data QPaletteColorRole+instance HoppyFHR.CppEnum (HoppyFC.CInt) QPaletteColorRole+instance HoppyP.Eq QPaletteColorRole+instance HoppyP.Ord QPaletteColorRole+instance HoppyP.Show QPaletteColorRole
src/Graphics/UI/Qtah/Generated/Core/QParallelAnimationGroup.hs view
@@ -0,0 +1,207 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QParallelAnimationGroup (+  castQParallelAnimationGroupToQAnimationGroup,+  castQAnimationGroupToQParallelAnimationGroup,+  castQParallelAnimationGroupToQAbstractAnimation,+  castQAbstractAnimationToQParallelAnimationGroup,+  castQParallelAnimationGroupToQObject,+  castQObjectToQParallelAnimationGroup,+  QParallelAnimationGroupValue (..),+  QParallelAnimationGroupConstPtr (..),+  QParallelAnimationGroupPtr (..),+  QParallelAnimationGroupConst (..),+  castQParallelAnimationGroupToConst,+  QParallelAnimationGroup (..),+  castQParallelAnimationGroupToNonconst,+  QParallelAnimationGroupSuper (..),+  QParallelAnimationGroupSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QAbstractAnimation as M2+import qualified Graphics.UI.Qtah.Generated.Core.QAnimationGroup as M10+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "gencast__QParallelAnimationGroup__QAnimationGroup" castQParallelAnimationGroupToQAnimationGroup :: HoppyF.Ptr QParallelAnimationGroupConst -> HoppyF.Ptr M10.QAnimationGroupConst+foreign import ccall "gencast__QAnimationGroup__QParallelAnimationGroup" castQAnimationGroupToQParallelAnimationGroup :: HoppyF.Ptr M10.QAnimationGroupConst -> HoppyF.Ptr QParallelAnimationGroupConst+foreign import ccall "gencast__QParallelAnimationGroup__QAbstractAnimation" castQParallelAnimationGroupToQAbstractAnimation :: HoppyF.Ptr QParallelAnimationGroupConst -> HoppyF.Ptr M2.QAbstractAnimationConst+foreign import ccall "gencast__QAbstractAnimation__QParallelAnimationGroup" castQAbstractAnimationToQParallelAnimationGroup :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr QParallelAnimationGroupConst+foreign import ccall "gencast__QParallelAnimationGroup__QObject" castQParallelAnimationGroupToQObject :: HoppyF.Ptr QParallelAnimationGroupConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QParallelAnimationGroup" castQObjectToQParallelAnimationGroup :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QParallelAnimationGroupConst+foreign import ccall "gendel__QParallelAnimationGroup" delete'QParallelAnimationGroup :: HoppyF.Ptr QParallelAnimationGroupConst -> HoppyP.IO ()+foreign import ccall "&gendel__QParallelAnimationGroup" deletePtr'QParallelAnimationGroup :: HoppyF.FunPtr (HoppyF.Ptr QParallelAnimationGroupConst -> HoppyP.IO ())++class QParallelAnimationGroupValue a where+  withQParallelAnimationGroupPtr :: a -> (QParallelAnimationGroupConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QParallelAnimationGroupConstPtr a => QParallelAnimationGroupValue a where+  withQParallelAnimationGroupPtr = HoppyP.flip ($) . toQParallelAnimationGroupConst++class (M10.QAnimationGroupConstPtr this) => QParallelAnimationGroupConstPtr this where+  toQParallelAnimationGroupConst :: this -> QParallelAnimationGroupConst++class (QParallelAnimationGroupConstPtr this, M10.QAnimationGroupPtr this) => QParallelAnimationGroupPtr this where+  toQParallelAnimationGroup :: this -> QParallelAnimationGroup++data QParallelAnimationGroupConst =+    QParallelAnimationGroupConst (HoppyF.Ptr QParallelAnimationGroupConst)+  | QParallelAnimationGroupConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QParallelAnimationGroupConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QParallelAnimationGroupConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QParallelAnimationGroupConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQParallelAnimationGroupToConst :: QParallelAnimationGroup -> QParallelAnimationGroupConst+castQParallelAnimationGroupToConst (QParallelAnimationGroup ptr') = QParallelAnimationGroupConst $ HoppyF.castPtr ptr'+castQParallelAnimationGroupToConst (QParallelAnimationGroupGc fptr' ptr') = QParallelAnimationGroupConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QParallelAnimationGroupConst where+  nullptr = QParallelAnimationGroupConst HoppyF.nullPtr+  +  withCppPtr (QParallelAnimationGroupConst ptr') f' = f' ptr'+  withCppPtr (QParallelAnimationGroupConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QParallelAnimationGroupConst ptr') = ptr'+  toPtr (QParallelAnimationGroupConstGc _ ptr') = ptr'+  +  touchCppPtr (QParallelAnimationGroupConst _) = HoppyP.return ()+  touchCppPtr (QParallelAnimationGroupConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QParallelAnimationGroupConst where+  delete (QParallelAnimationGroupConst ptr') = delete'QParallelAnimationGroup ptr'+  delete (QParallelAnimationGroupConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QParallelAnimationGroupConst", " object."]+  +  toGc this'@(QParallelAnimationGroupConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QParallelAnimationGroupConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QParallelAnimationGroup :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QParallelAnimationGroupConstGc {}) = HoppyP.return this'++instance QParallelAnimationGroupConstPtr QParallelAnimationGroupConst where+  toQParallelAnimationGroupConst = HoppyP.id++instance M10.QAnimationGroupConstPtr QParallelAnimationGroupConst where+  toQAnimationGroupConst (QParallelAnimationGroupConst ptr') = M10.QAnimationGroupConst $ castQParallelAnimationGroupToQAnimationGroup ptr'+  toQAnimationGroupConst (QParallelAnimationGroupConstGc fptr' ptr') = M10.QAnimationGroupConstGc fptr' $ castQParallelAnimationGroupToQAnimationGroup ptr'++instance M2.QAbstractAnimationConstPtr QParallelAnimationGroupConst where+  toQAbstractAnimationConst (QParallelAnimationGroupConst ptr') = M2.QAbstractAnimationConst $ castQParallelAnimationGroupToQAbstractAnimation ptr'+  toQAbstractAnimationConst (QParallelAnimationGroupConstGc fptr' ptr') = M2.QAbstractAnimationConstGc fptr' $ castQParallelAnimationGroupToQAbstractAnimation ptr'++instance M94.QObjectConstPtr QParallelAnimationGroupConst where+  toQObjectConst (QParallelAnimationGroupConst ptr') = M94.QObjectConst $ castQParallelAnimationGroupToQObject ptr'+  toQObjectConst (QParallelAnimationGroupConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQParallelAnimationGroupToQObject ptr'++data QParallelAnimationGroup =+    QParallelAnimationGroup (HoppyF.Ptr QParallelAnimationGroup)+  | QParallelAnimationGroupGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QParallelAnimationGroup)+  deriving (HoppyP.Show)++instance HoppyP.Eq QParallelAnimationGroup where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QParallelAnimationGroup where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQParallelAnimationGroupToNonconst :: QParallelAnimationGroupConst -> QParallelAnimationGroup+castQParallelAnimationGroupToNonconst (QParallelAnimationGroupConst ptr') = QParallelAnimationGroup $ HoppyF.castPtr ptr'+castQParallelAnimationGroupToNonconst (QParallelAnimationGroupConstGc fptr' ptr') = QParallelAnimationGroupGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QParallelAnimationGroup where+  nullptr = QParallelAnimationGroup HoppyF.nullPtr+  +  withCppPtr (QParallelAnimationGroup ptr') f' = f' ptr'+  withCppPtr (QParallelAnimationGroupGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QParallelAnimationGroup ptr') = ptr'+  toPtr (QParallelAnimationGroupGc _ ptr') = ptr'+  +  touchCppPtr (QParallelAnimationGroup _) = HoppyP.return ()+  touchCppPtr (QParallelAnimationGroupGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QParallelAnimationGroup where+  delete (QParallelAnimationGroup ptr') = delete'QParallelAnimationGroup $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QParallelAnimationGroupConst)+  delete (QParallelAnimationGroupGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QParallelAnimationGroup", " object."]+  +  toGc this'@(QParallelAnimationGroup ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QParallelAnimationGroupGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QParallelAnimationGroup :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QParallelAnimationGroupGc {}) = HoppyP.return this'++instance QParallelAnimationGroupConstPtr QParallelAnimationGroup where+  toQParallelAnimationGroupConst (QParallelAnimationGroup ptr') = QParallelAnimationGroupConst $ (HoppyF.castPtr :: HoppyF.Ptr QParallelAnimationGroup -> HoppyF.Ptr QParallelAnimationGroupConst) ptr'+  toQParallelAnimationGroupConst (QParallelAnimationGroupGc fptr' ptr') = QParallelAnimationGroupConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QParallelAnimationGroup -> HoppyF.Ptr QParallelAnimationGroupConst) ptr'++instance QParallelAnimationGroupPtr QParallelAnimationGroup where+  toQParallelAnimationGroup = HoppyP.id++instance M10.QAnimationGroupConstPtr QParallelAnimationGroup where+  toQAnimationGroupConst (QParallelAnimationGroup ptr') = M10.QAnimationGroupConst $ castQParallelAnimationGroupToQAnimationGroup $ (HoppyF.castPtr :: HoppyF.Ptr QParallelAnimationGroup -> HoppyF.Ptr QParallelAnimationGroupConst) ptr'+  toQAnimationGroupConst (QParallelAnimationGroupGc fptr' ptr') = M10.QAnimationGroupConstGc fptr' $ castQParallelAnimationGroupToQAnimationGroup $ (HoppyF.castPtr :: HoppyF.Ptr QParallelAnimationGroup -> HoppyF.Ptr QParallelAnimationGroupConst) ptr'++instance M10.QAnimationGroupPtr QParallelAnimationGroup where+  toQAnimationGroup (QParallelAnimationGroup ptr') = M10.QAnimationGroup $ (HoppyF.castPtr :: HoppyF.Ptr M10.QAnimationGroupConst -> HoppyF.Ptr M10.QAnimationGroup) $ castQParallelAnimationGroupToQAnimationGroup $ (HoppyF.castPtr :: HoppyF.Ptr QParallelAnimationGroup -> HoppyF.Ptr QParallelAnimationGroupConst) ptr'+  toQAnimationGroup (QParallelAnimationGroupGc fptr' ptr') = M10.QAnimationGroupGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M10.QAnimationGroupConst -> HoppyF.Ptr M10.QAnimationGroup) $ castQParallelAnimationGroupToQAnimationGroup $ (HoppyF.castPtr :: HoppyF.Ptr QParallelAnimationGroup -> HoppyF.Ptr QParallelAnimationGroupConst) ptr'++instance M2.QAbstractAnimationConstPtr QParallelAnimationGroup where+  toQAbstractAnimationConst (QParallelAnimationGroup ptr') = M2.QAbstractAnimationConst $ castQParallelAnimationGroupToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QParallelAnimationGroup -> HoppyF.Ptr QParallelAnimationGroupConst) ptr'+  toQAbstractAnimationConst (QParallelAnimationGroupGc fptr' ptr') = M2.QAbstractAnimationConstGc fptr' $ castQParallelAnimationGroupToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QParallelAnimationGroup -> HoppyF.Ptr QParallelAnimationGroupConst) ptr'++instance M2.QAbstractAnimationPtr QParallelAnimationGroup where+  toQAbstractAnimation (QParallelAnimationGroup ptr') = M2.QAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr M2.QAbstractAnimation) $ castQParallelAnimationGroupToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QParallelAnimationGroup -> HoppyF.Ptr QParallelAnimationGroupConst) ptr'+  toQAbstractAnimation (QParallelAnimationGroupGc fptr' ptr') = M2.QAbstractAnimationGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr M2.QAbstractAnimation) $ castQParallelAnimationGroupToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QParallelAnimationGroup -> HoppyF.Ptr QParallelAnimationGroupConst) ptr'++instance M94.QObjectConstPtr QParallelAnimationGroup where+  toQObjectConst (QParallelAnimationGroup ptr') = M94.QObjectConst $ castQParallelAnimationGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QParallelAnimationGroup -> HoppyF.Ptr QParallelAnimationGroupConst) ptr'+  toQObjectConst (QParallelAnimationGroupGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQParallelAnimationGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QParallelAnimationGroup -> HoppyF.Ptr QParallelAnimationGroupConst) ptr'++instance M94.QObjectPtr QParallelAnimationGroup where+  toQObject (QParallelAnimationGroup ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQParallelAnimationGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QParallelAnimationGroup -> HoppyF.Ptr QParallelAnimationGroupConst) ptr'+  toQObject (QParallelAnimationGroupGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQParallelAnimationGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QParallelAnimationGroup -> HoppyF.Ptr QParallelAnimationGroupConst) ptr'++class QParallelAnimationGroupSuper a where+  downToQParallelAnimationGroup :: a -> QParallelAnimationGroup++instance QParallelAnimationGroupSuper M10.QAnimationGroup where+  downToQParallelAnimationGroup = castQParallelAnimationGroupToNonconst . cast' . M10.castQAnimationGroupToConst+    where+      cast' (M10.QAnimationGroupConst ptr') = QParallelAnimationGroupConst $ castQAnimationGroupToQParallelAnimationGroup ptr'+      cast' (M10.QAnimationGroupConstGc fptr' ptr') = QParallelAnimationGroupConstGc fptr' $ castQAnimationGroupToQParallelAnimationGroup ptr'+instance QParallelAnimationGroupSuper M2.QAbstractAnimation where+  downToQParallelAnimationGroup = castQParallelAnimationGroupToNonconst . cast' . M2.castQAbstractAnimationToConst+    where+      cast' (M2.QAbstractAnimationConst ptr') = QParallelAnimationGroupConst $ castQAbstractAnimationToQParallelAnimationGroup ptr'+      cast' (M2.QAbstractAnimationConstGc fptr' ptr') = QParallelAnimationGroupConstGc fptr' $ castQAbstractAnimationToQParallelAnimationGroup ptr'+instance QParallelAnimationGroupSuper M94.QObject where+  downToQParallelAnimationGroup = castQParallelAnimationGroupToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QParallelAnimationGroupConst $ castQObjectToQParallelAnimationGroup ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QParallelAnimationGroupConstGc fptr' $ castQObjectToQParallelAnimationGroup ptr'++class QParallelAnimationGroupSuperConst a where+  downToQParallelAnimationGroupConst :: a -> QParallelAnimationGroupConst++instance QParallelAnimationGroupSuperConst M10.QAnimationGroupConst where+  downToQParallelAnimationGroupConst = cast'+    where+      cast' (M10.QAnimationGroupConst ptr') = QParallelAnimationGroupConst $ castQAnimationGroupToQParallelAnimationGroup ptr'+      cast' (M10.QAnimationGroupConstGc fptr' ptr') = QParallelAnimationGroupConstGc fptr' $ castQAnimationGroupToQParallelAnimationGroup ptr'+instance QParallelAnimationGroupSuperConst M2.QAbstractAnimationConst where+  downToQParallelAnimationGroupConst = cast'+    where+      cast' (M2.QAbstractAnimationConst ptr') = QParallelAnimationGroupConst $ castQAbstractAnimationToQParallelAnimationGroup ptr'+      cast' (M2.QAbstractAnimationConstGc fptr' ptr') = QParallelAnimationGroupConstGc fptr' $ castQAbstractAnimationToQParallelAnimationGroup ptr'+instance QParallelAnimationGroupSuperConst M94.QObjectConst where+  downToQParallelAnimationGroupConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QParallelAnimationGroupConst $ castQObjectToQParallelAnimationGroup ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QParallelAnimationGroupConstGc fptr' $ castQObjectToQParallelAnimationGroup ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QParallelAnimationGroup)) QParallelAnimationGroup where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QParallelAnimationGroup)) QParallelAnimationGroup where+  decode = HoppyP.fmap QParallelAnimationGroup . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QPauseAnimation.hs view
@@ -0,0 +1,191 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QPauseAnimation (+  castQPauseAnimationToQAbstractAnimation,+  castQAbstractAnimationToQPauseAnimation,+  castQPauseAnimationToQObject,+  castQObjectToQPauseAnimation,+  QPauseAnimationValue (..),+  QPauseAnimationConstPtr (..),+  QPauseAnimationPtr (..),+  setDuration,+  QPauseAnimationConst (..),+  castQPauseAnimationToConst,+  QPauseAnimation (..),+  castQPauseAnimationToNonconst,+  QPauseAnimationSuper (..),+  QPauseAnimationSuperConst (..),+  ) 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.Core.QAbstractAnimation as M2+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import Prelude (($), (.), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QPauseAnimation_setDuration" setDuration' ::  HoppyF.Ptr QPauseAnimation -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QPauseAnimation__QAbstractAnimation" castQPauseAnimationToQAbstractAnimation :: HoppyF.Ptr QPauseAnimationConst -> HoppyF.Ptr M2.QAbstractAnimationConst+foreign import ccall "gencast__QAbstractAnimation__QPauseAnimation" castQAbstractAnimationToQPauseAnimation :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr QPauseAnimationConst+foreign import ccall "gencast__QPauseAnimation__QObject" castQPauseAnimationToQObject :: HoppyF.Ptr QPauseAnimationConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QPauseAnimation" castQObjectToQPauseAnimation :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QPauseAnimationConst+foreign import ccall "gendel__QPauseAnimation" delete'QPauseAnimation :: HoppyF.Ptr QPauseAnimationConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPauseAnimation" deletePtr'QPauseAnimation :: HoppyF.FunPtr (HoppyF.Ptr QPauseAnimationConst -> HoppyP.IO ())++class QPauseAnimationValue a where+  withQPauseAnimationPtr :: a -> (QPauseAnimationConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPauseAnimationConstPtr a => QPauseAnimationValue a where+  withQPauseAnimationPtr = HoppyP.flip ($) . toQPauseAnimationConst++class (M2.QAbstractAnimationConstPtr this) => QPauseAnimationConstPtr this where+  toQPauseAnimationConst :: this -> QPauseAnimationConst++class (QPauseAnimationConstPtr this, M2.QAbstractAnimationPtr this) => QPauseAnimationPtr this where+  toQPauseAnimation :: this -> QPauseAnimation++setDuration :: (QPauseAnimationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setDuration arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPauseAnimation arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setDuration' arg'1' arg'2')++data QPauseAnimationConst =+    QPauseAnimationConst (HoppyF.Ptr QPauseAnimationConst)+  | QPauseAnimationConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPauseAnimationConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPauseAnimationConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPauseAnimationConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPauseAnimationToConst :: QPauseAnimation -> QPauseAnimationConst+castQPauseAnimationToConst (QPauseAnimation ptr') = QPauseAnimationConst $ HoppyF.castPtr ptr'+castQPauseAnimationToConst (QPauseAnimationGc fptr' ptr') = QPauseAnimationConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPauseAnimationConst where+  nullptr = QPauseAnimationConst HoppyF.nullPtr+  +  withCppPtr (QPauseAnimationConst ptr') f' = f' ptr'+  withCppPtr (QPauseAnimationConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPauseAnimationConst ptr') = ptr'+  toPtr (QPauseAnimationConstGc _ ptr') = ptr'+  +  touchCppPtr (QPauseAnimationConst _) = HoppyP.return ()+  touchCppPtr (QPauseAnimationConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPauseAnimationConst where+  delete (QPauseAnimationConst ptr') = delete'QPauseAnimation ptr'+  delete (QPauseAnimationConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPauseAnimationConst", " object."]+  +  toGc this'@(QPauseAnimationConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPauseAnimationConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPauseAnimation :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPauseAnimationConstGc {}) = HoppyP.return this'++instance QPauseAnimationConstPtr QPauseAnimationConst where+  toQPauseAnimationConst = HoppyP.id++instance M2.QAbstractAnimationConstPtr QPauseAnimationConst where+  toQAbstractAnimationConst (QPauseAnimationConst ptr') = M2.QAbstractAnimationConst $ castQPauseAnimationToQAbstractAnimation ptr'+  toQAbstractAnimationConst (QPauseAnimationConstGc fptr' ptr') = M2.QAbstractAnimationConstGc fptr' $ castQPauseAnimationToQAbstractAnimation ptr'++instance M94.QObjectConstPtr QPauseAnimationConst where+  toQObjectConst (QPauseAnimationConst ptr') = M94.QObjectConst $ castQPauseAnimationToQObject ptr'+  toQObjectConst (QPauseAnimationConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQPauseAnimationToQObject ptr'++data QPauseAnimation =+    QPauseAnimation (HoppyF.Ptr QPauseAnimation)+  | QPauseAnimationGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPauseAnimation)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPauseAnimation where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPauseAnimation where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPauseAnimationToNonconst :: QPauseAnimationConst -> QPauseAnimation+castQPauseAnimationToNonconst (QPauseAnimationConst ptr') = QPauseAnimation $ HoppyF.castPtr ptr'+castQPauseAnimationToNonconst (QPauseAnimationConstGc fptr' ptr') = QPauseAnimationGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPauseAnimation where+  nullptr = QPauseAnimation HoppyF.nullPtr+  +  withCppPtr (QPauseAnimation ptr') f' = f' ptr'+  withCppPtr (QPauseAnimationGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPauseAnimation ptr') = ptr'+  toPtr (QPauseAnimationGc _ ptr') = ptr'+  +  touchCppPtr (QPauseAnimation _) = HoppyP.return ()+  touchCppPtr (QPauseAnimationGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPauseAnimation where+  delete (QPauseAnimation ptr') = delete'QPauseAnimation $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPauseAnimationConst)+  delete (QPauseAnimationGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPauseAnimation", " object."]+  +  toGc this'@(QPauseAnimation ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPauseAnimationGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPauseAnimation :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPauseAnimationGc {}) = HoppyP.return this'++instance QPauseAnimationConstPtr QPauseAnimation where+  toQPauseAnimationConst (QPauseAnimation ptr') = QPauseAnimationConst $ (HoppyF.castPtr :: HoppyF.Ptr QPauseAnimation -> HoppyF.Ptr QPauseAnimationConst) ptr'+  toQPauseAnimationConst (QPauseAnimationGc fptr' ptr') = QPauseAnimationConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPauseAnimation -> HoppyF.Ptr QPauseAnimationConst) ptr'++instance QPauseAnimationPtr QPauseAnimation where+  toQPauseAnimation = HoppyP.id++instance M2.QAbstractAnimationConstPtr QPauseAnimation where+  toQAbstractAnimationConst (QPauseAnimation ptr') = M2.QAbstractAnimationConst $ castQPauseAnimationToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QPauseAnimation -> HoppyF.Ptr QPauseAnimationConst) ptr'+  toQAbstractAnimationConst (QPauseAnimationGc fptr' ptr') = M2.QAbstractAnimationConstGc fptr' $ castQPauseAnimationToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QPauseAnimation -> HoppyF.Ptr QPauseAnimationConst) ptr'++instance M2.QAbstractAnimationPtr QPauseAnimation where+  toQAbstractAnimation (QPauseAnimation ptr') = M2.QAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr M2.QAbstractAnimation) $ castQPauseAnimationToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QPauseAnimation -> HoppyF.Ptr QPauseAnimationConst) ptr'+  toQAbstractAnimation (QPauseAnimationGc fptr' ptr') = M2.QAbstractAnimationGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr M2.QAbstractAnimation) $ castQPauseAnimationToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QPauseAnimation -> HoppyF.Ptr QPauseAnimationConst) ptr'++instance M94.QObjectConstPtr QPauseAnimation where+  toQObjectConst (QPauseAnimation ptr') = M94.QObjectConst $ castQPauseAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPauseAnimation -> HoppyF.Ptr QPauseAnimationConst) ptr'+  toQObjectConst (QPauseAnimationGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQPauseAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPauseAnimation -> HoppyF.Ptr QPauseAnimationConst) ptr'++instance M94.QObjectPtr QPauseAnimation where+  toQObject (QPauseAnimation ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQPauseAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPauseAnimation -> HoppyF.Ptr QPauseAnimationConst) ptr'+  toQObject (QPauseAnimationGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQPauseAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPauseAnimation -> HoppyF.Ptr QPauseAnimationConst) ptr'++class QPauseAnimationSuper a where+  downToQPauseAnimation :: a -> QPauseAnimation++instance QPauseAnimationSuper M2.QAbstractAnimation where+  downToQPauseAnimation = castQPauseAnimationToNonconst . cast' . M2.castQAbstractAnimationToConst+    where+      cast' (M2.QAbstractAnimationConst ptr') = QPauseAnimationConst $ castQAbstractAnimationToQPauseAnimation ptr'+      cast' (M2.QAbstractAnimationConstGc fptr' ptr') = QPauseAnimationConstGc fptr' $ castQAbstractAnimationToQPauseAnimation ptr'+instance QPauseAnimationSuper M94.QObject where+  downToQPauseAnimation = castQPauseAnimationToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QPauseAnimationConst $ castQObjectToQPauseAnimation ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QPauseAnimationConstGc fptr' $ castQObjectToQPauseAnimation ptr'++class QPauseAnimationSuperConst a where+  downToQPauseAnimationConst :: a -> QPauseAnimationConst++instance QPauseAnimationSuperConst M2.QAbstractAnimationConst where+  downToQPauseAnimationConst = cast'+    where+      cast' (M2.QAbstractAnimationConst ptr') = QPauseAnimationConst $ castQAbstractAnimationToQPauseAnimation ptr'+      cast' (M2.QAbstractAnimationConstGc fptr' ptr') = QPauseAnimationConstGc fptr' $ castQAbstractAnimationToQPauseAnimation ptr'+instance QPauseAnimationSuperConst M94.QObjectConst where+  downToQPauseAnimationConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QPauseAnimationConst $ castQObjectToQPauseAnimation ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QPauseAnimationConstGc fptr' $ castQObjectToQPauseAnimation ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPauseAnimation)) QPauseAnimation where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPauseAnimation)) QPauseAnimation where+  decode = HoppyP.fmap QPauseAnimation . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QPersistentModelIndex.hs view
@@ -0,0 +1,313 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QPersistentModelIndex (+  QPersistentModelIndexValue (..),+  QPersistentModelIndexConstPtr (..),+  child,+  column,+  getData,+  getDataWithRole,+  flags,+  isValid,+  model,+  parent,+  row,+  sibling,+  eQ,+  nE,+  QPersistentModelIndexPtr (..),+  swap,+  aSSIGN,+  QPersistentModelIndexConst (..),+  castQPersistentModelIndexToConst,+  QPersistentModelIndex (..),+  castQPersistentModelIndexToNonconst,+  new,+  newFromIndex,+  newCopy,+  QPersistentModelIndexSuper (..),+  QPersistentModelIndexSuperConst (..),+  ) where++import Control.Monad ((>=>))+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.QAbstractItemModel as M4+import qualified Graphics.UI.Qtah.Generated.Core.QModelIndex as M92+import qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QPersistentModelIndex_new" new' ::  HoppyP.IO (HoppyF.Ptr QPersistentModelIndex)+foreign import ccall "genpop__QPersistentModelIndex_newFromIndex" newFromIndex' ::  HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr QPersistentModelIndex)+foreign import ccall "genpop__QPersistentModelIndex_newCopy" newCopy' ::  HoppyF.Ptr QPersistentModelIndexConst -> HoppyP.IO (HoppyF.Ptr QPersistentModelIndex)+foreign import ccall "genpop__QPersistentModelIndex_child" child' ::  HoppyF.Ptr QPersistentModelIndexConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPersistentModelIndexConst)+foreign import ccall "genpop__QPersistentModelIndex_column" column' ::  HoppyF.Ptr QPersistentModelIndexConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPersistentModelIndex_getData" getData' ::  HoppyF.Ptr QPersistentModelIndexConst -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QPersistentModelIndex_getDataWithRole" getDataWithRole' ::  HoppyF.Ptr QPersistentModelIndexConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QPersistentModelIndex_flags" flags' ::  HoppyF.Ptr QPersistentModelIndexConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPersistentModelIndex_isValid" isValid' ::  HoppyF.Ptr QPersistentModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPersistentModelIndex_model" model' ::  HoppyF.Ptr QPersistentModelIndexConst -> HoppyP.IO (HoppyF.Ptr M4.QAbstractItemModelConst)+foreign import ccall "genpop__QPersistentModelIndex_parent" parent' ::  HoppyF.Ptr QPersistentModelIndexConst -> HoppyP.IO (HoppyF.Ptr QPersistentModelIndexConst)+foreign import ccall "genpop__QPersistentModelIndex_row" row' ::  HoppyF.Ptr QPersistentModelIndexConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPersistentModelIndex_sibling" sibling' ::  HoppyF.Ptr QPersistentModelIndexConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPersistentModelIndexConst)+foreign import ccall "genpop__QPersistentModelIndex_swap" swap' ::  HoppyF.Ptr QPersistentModelIndex -> HoppyF.Ptr QPersistentModelIndex -> HoppyP.IO ()+foreign import ccall "genpop__QPersistentModelIndex_EQ" eQ' ::  HoppyF.Ptr QPersistentModelIndexConst -> HoppyF.Ptr QPersistentModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPersistentModelIndex_NE" nE' ::  HoppyF.Ptr QPersistentModelIndexConst -> HoppyF.Ptr QPersistentModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPersistentModelIndex_ASSIGN" aSSIGN' ::  HoppyF.Ptr QPersistentModelIndex -> HoppyF.Ptr QPersistentModelIndexConst -> HoppyP.IO (HoppyF.Ptr QPersistentModelIndex)+foreign import ccall "gendel__QPersistentModelIndex" delete'QPersistentModelIndex :: HoppyF.Ptr QPersistentModelIndexConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPersistentModelIndex" deletePtr'QPersistentModelIndex :: HoppyF.FunPtr (HoppyF.Ptr QPersistentModelIndexConst -> HoppyP.IO ())++class QPersistentModelIndexValue a where+  withQPersistentModelIndexPtr :: a -> (QPersistentModelIndexConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPersistentModelIndexConstPtr a => QPersistentModelIndexValue a where+  withQPersistentModelIndexPtr = HoppyP.flip ($) . toQPersistentModelIndexConst++class (HoppyFHR.CppPtr this) => QPersistentModelIndexConstPtr this where+  toQPersistentModelIndexConst :: this -> QPersistentModelIndexConst++child :: (QPersistentModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QPersistentModelIndex)+child arg'1 arg'2 arg'3 =+  withQPersistentModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QPersistentModelIndexConst) =<<+  (child' arg'1' arg'2' arg'3')++column :: (QPersistentModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+column arg'1 =+  withQPersistentModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (column' arg'1')++getData :: (QPersistentModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO M168.QVariant)+getData arg'1 =+  withQPersistentModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (getData' arg'1')++getDataWithRole :: (QPersistentModelIndexValue this) => (this) {- ^ this -} -> (M190.QtItemDataRole) -> (HoppyP.IO M168.QVariant)+getDataWithRole arg'1 arg'2 =+  withQPersistentModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (getDataWithRole' arg'1' arg'2')++flags :: (QPersistentModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtItemFlags)+flags arg'1 =+  withQPersistentModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (flags' arg'1')++isValid :: (QPersistentModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQPersistentModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++model :: (QPersistentModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO M4.QAbstractItemModelConst)+model arg'1 =+  withQPersistentModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M4.QAbstractItemModelConst+  (model' arg'1')++parent :: (QPersistentModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO QPersistentModelIndex)+parent arg'1 =+  withQPersistentModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QPersistentModelIndexConst) =<<+  (parent' arg'1')++row :: (QPersistentModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+row arg'1 =+  withQPersistentModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (row' arg'1')++sibling :: (QPersistentModelIndexValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QPersistentModelIndex)+sibling arg'1 arg'2 arg'3 =+  withQPersistentModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QPersistentModelIndexConst) =<<+  (sibling' arg'1' arg'2' arg'3')++eQ :: (QPersistentModelIndexValue this, QPersistentModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQPersistentModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPersistentModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QPersistentModelIndexValue this, QPersistentModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQPersistentModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPersistentModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QPersistentModelIndexConstPtr this) => QPersistentModelIndexPtr this where+  toQPersistentModelIndex :: this -> QPersistentModelIndex++swap :: (QPersistentModelIndexPtr this, QPersistentModelIndexPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPersistentModelIndex arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQPersistentModelIndex arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++aSSIGN :: (QPersistentModelIndexPtr this, QPersistentModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPersistentModelIndex)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPersistentModelIndex arg'1) $ \arg'1' ->+  withQPersistentModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QPersistentModelIndex+  (aSSIGN' arg'1' arg'2')++data QPersistentModelIndexConst =+    QPersistentModelIndexConst (HoppyF.Ptr QPersistentModelIndexConst)+  | QPersistentModelIndexConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPersistentModelIndexConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPersistentModelIndexConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPersistentModelIndexConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPersistentModelIndexToConst :: QPersistentModelIndex -> QPersistentModelIndexConst+castQPersistentModelIndexToConst (QPersistentModelIndex ptr') = QPersistentModelIndexConst $ HoppyF.castPtr ptr'+castQPersistentModelIndexToConst (QPersistentModelIndexGc fptr' ptr') = QPersistentModelIndexConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPersistentModelIndexConst where+  nullptr = QPersistentModelIndexConst HoppyF.nullPtr+  +  withCppPtr (QPersistentModelIndexConst ptr') f' = f' ptr'+  withCppPtr (QPersistentModelIndexConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPersistentModelIndexConst ptr') = ptr'+  toPtr (QPersistentModelIndexConstGc _ ptr') = ptr'+  +  touchCppPtr (QPersistentModelIndexConst _) = HoppyP.return ()+  touchCppPtr (QPersistentModelIndexConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPersistentModelIndexConst where+  delete (QPersistentModelIndexConst ptr') = delete'QPersistentModelIndex ptr'+  delete (QPersistentModelIndexConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPersistentModelIndexConst", " object."]+  +  toGc this'@(QPersistentModelIndexConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPersistentModelIndexConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPersistentModelIndex :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPersistentModelIndexConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPersistentModelIndexConst QPersistentModelIndex where copy = newCopy++instance QPersistentModelIndexConstPtr QPersistentModelIndexConst where+  toQPersistentModelIndexConst = HoppyP.id++data QPersistentModelIndex =+    QPersistentModelIndex (HoppyF.Ptr QPersistentModelIndex)+  | QPersistentModelIndexGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPersistentModelIndex)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPersistentModelIndex where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPersistentModelIndex where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPersistentModelIndexToNonconst :: QPersistentModelIndexConst -> QPersistentModelIndex+castQPersistentModelIndexToNonconst (QPersistentModelIndexConst ptr') = QPersistentModelIndex $ HoppyF.castPtr ptr'+castQPersistentModelIndexToNonconst (QPersistentModelIndexConstGc fptr' ptr') = QPersistentModelIndexGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPersistentModelIndex where+  nullptr = QPersistentModelIndex HoppyF.nullPtr+  +  withCppPtr (QPersistentModelIndex ptr') f' = f' ptr'+  withCppPtr (QPersistentModelIndexGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPersistentModelIndex ptr') = ptr'+  toPtr (QPersistentModelIndexGc _ ptr') = ptr'+  +  touchCppPtr (QPersistentModelIndex _) = HoppyP.return ()+  touchCppPtr (QPersistentModelIndexGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPersistentModelIndex where+  delete (QPersistentModelIndex ptr') = delete'QPersistentModelIndex $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPersistentModelIndexConst)+  delete (QPersistentModelIndexGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPersistentModelIndex", " object."]+  +  toGc this'@(QPersistentModelIndex ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPersistentModelIndexGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPersistentModelIndex :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPersistentModelIndexGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPersistentModelIndex QPersistentModelIndex where copy = newCopy++instance QPersistentModelIndexConstPtr QPersistentModelIndex where+  toQPersistentModelIndexConst (QPersistentModelIndex ptr') = QPersistentModelIndexConst $ (HoppyF.castPtr :: HoppyF.Ptr QPersistentModelIndex -> HoppyF.Ptr QPersistentModelIndexConst) ptr'+  toQPersistentModelIndexConst (QPersistentModelIndexGc fptr' ptr') = QPersistentModelIndexConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPersistentModelIndex -> HoppyF.Ptr QPersistentModelIndexConst) ptr'++instance QPersistentModelIndexPtr QPersistentModelIndex where+  toQPersistentModelIndex = HoppyP.id++new :: (HoppyP.IO QPersistentModelIndex)+new =+  HoppyP.fmap QPersistentModelIndex+  (new')++newFromIndex :: (M92.QModelIndexValue arg'1) => (arg'1) -> (HoppyP.IO QPersistentModelIndex)+newFromIndex arg'1 =+  M92.withQModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPersistentModelIndex+  (newFromIndex' arg'1')++newCopy :: (QPersistentModelIndexValue arg'1) => (arg'1) -> (HoppyP.IO QPersistentModelIndex)+newCopy arg'1 =+  withQPersistentModelIndexPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPersistentModelIndex+  (newCopy' arg'1')++class QPersistentModelIndexSuper a where+  downToQPersistentModelIndex :: a -> QPersistentModelIndex+++class QPersistentModelIndexSuperConst a where+  downToQPersistentModelIndexConst :: a -> QPersistentModelIndexConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPersistentModelIndex)) QPersistentModelIndex where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QPersistentModelIndexValue a => HoppyFHR.Assignable QPersistentModelIndex a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPersistentModelIndex)) QPersistentModelIndex where+  decode = HoppyP.fmap QPersistentModelIndex . HoppyF.peek++instance HoppyFHR.Decodable QPersistentModelIndex (QPersistentModelIndex) where+  decode = HoppyFHR.decode . toQPersistentModelIndexConst++instance HoppyFHR.Decodable QPersistentModelIndexConst (QPersistentModelIndex) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QPluginLoader.hs view
@@ -0,0 +1,280 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QPluginLoader (+  castQPluginLoaderToQObject,+  castQObjectToQPluginLoader,+  QPluginLoaderValue (..),+  QPluginLoaderConstPtr (..),+  errorString,+  isLoaded,+  fileName,+  loadHints,+  QPluginLoaderPtr (..),+  getInstance,+  load,+  unload,+  setFileName,+  setLoadHints,+  staticInstances,+  QPluginLoaderConst (..),+  castQPluginLoaderToConst,+  QPluginLoader (..),+  castQPluginLoaderToNonconst,+  new,+  newWithParent,+  newWithFilename,+  newWithFilenameAndParent,+  QPluginLoaderSuper (..),+  QPluginLoaderSuperConst (..),+  ) 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.QLibrary as M60+import qualified Graphics.UI.Qtah.Generated.Core.QList.QObject as M202+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QPluginLoader_new" new' ::  HoppyP.IO (HoppyF.Ptr QPluginLoader)+foreign import ccall "genpop__QPluginLoader_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QPluginLoader)+foreign import ccall "genpop__QPluginLoader_newWithFilename" newWithFilename' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QPluginLoader)+foreign import ccall "genpop__QPluginLoader_newWithFilenameAndParent" newWithFilenameAndParent' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QPluginLoader)+foreign import ccall "genpop__QPluginLoader_errorString" errorString' ::  HoppyF.Ptr QPluginLoaderConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QPluginLoader_getInstance" getInstance' ::  HoppyF.Ptr QPluginLoader -> HoppyP.IO (HoppyF.Ptr M94.QObject)+foreign import ccall "genpop__QPluginLoader_isLoaded" isLoaded' ::  HoppyF.Ptr QPluginLoaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPluginLoader_load" load' ::  HoppyF.Ptr QPluginLoader -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPluginLoader_staticInstances" staticInstances' ::  HoppyP.IO (HoppyF.Ptr M202.QListQObjectConst)+foreign import ccall "genpop__QPluginLoader_unload" unload' ::  HoppyF.Ptr QPluginLoader -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPluginLoader_fileName" fileName' ::  HoppyF.Ptr QPluginLoaderConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QPluginLoader_setFileName" setFileName' ::  HoppyF.Ptr QPluginLoader -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QPluginLoader_loadHints" loadHints' ::  HoppyF.Ptr QPluginLoaderConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPluginLoader_setLoadHints" setLoadHints' ::  HoppyF.Ptr QPluginLoader -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QPluginLoader__QObject" castQPluginLoaderToQObject :: HoppyF.Ptr QPluginLoaderConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QPluginLoader" castQObjectToQPluginLoader :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QPluginLoaderConst+foreign import ccall "gendel__QPluginLoader" delete'QPluginLoader :: HoppyF.Ptr QPluginLoaderConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPluginLoader" deletePtr'QPluginLoader :: HoppyF.FunPtr (HoppyF.Ptr QPluginLoaderConst -> HoppyP.IO ())++class QPluginLoaderValue a where+  withQPluginLoaderPtr :: a -> (QPluginLoaderConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPluginLoaderConstPtr a => QPluginLoaderValue a where+  withQPluginLoaderPtr = HoppyP.flip ($) . toQPluginLoaderConst++class (M94.QObjectConstPtr this) => QPluginLoaderConstPtr this where+  toQPluginLoaderConst :: this -> QPluginLoaderConst++errorString :: (QPluginLoaderValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+errorString arg'1 =+  withQPluginLoaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (errorString' arg'1')++isLoaded :: (QPluginLoaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isLoaded arg'1 =+  withQPluginLoaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isLoaded' arg'1')++fileName :: (QPluginLoaderValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+fileName arg'1 =+  withQPluginLoaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (fileName' arg'1')++loadHints :: (QPluginLoaderValue this) => (this) {- ^ this -} -> (HoppyP.IO M60.QLibraryLoadHints)+loadHints arg'1 =+  withQPluginLoaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (loadHints' arg'1')++class (QPluginLoaderConstPtr this, M94.QObjectPtr this) => QPluginLoaderPtr this where+  toQPluginLoader :: this -> QPluginLoader++getInstance :: (QPluginLoaderPtr this) => (this) {- ^ this -} -> (HoppyP.IO M94.QObject)+getInstance arg'1 =+  HoppyFHR.withCppPtr (toQPluginLoader arg'1) $ \arg'1' ->+  HoppyP.fmap M94.QObject+  (getInstance' arg'1')++load :: (QPluginLoaderPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+load arg'1 =+  HoppyFHR.withCppPtr (toQPluginLoader arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (load' arg'1')++unload :: (QPluginLoaderPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+unload arg'1 =+  HoppyFHR.withCppPtr (toQPluginLoader arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (unload' arg'1')++setFileName :: (QPluginLoaderPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFileName arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPluginLoader arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setFileName' arg'1' arg'2')++setLoadHints :: (QPluginLoaderPtr this, M60.IsQLibraryLoadHints arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setLoadHints arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPluginLoader arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M60.toQLibraryLoadHints+  ) arg'2 >>= \arg'2' ->+  (setLoadHints' arg'1' arg'2')++staticInstances :: (HoppyP.IO [M94.QObject])+staticInstances =+  (HoppyFHR.decodeAndDelete . M202.QListQObjectConst) =<<+  (staticInstances')++data QPluginLoaderConst =+    QPluginLoaderConst (HoppyF.Ptr QPluginLoaderConst)+  | QPluginLoaderConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPluginLoaderConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPluginLoaderConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPluginLoaderConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPluginLoaderToConst :: QPluginLoader -> QPluginLoaderConst+castQPluginLoaderToConst (QPluginLoader ptr') = QPluginLoaderConst $ HoppyF.castPtr ptr'+castQPluginLoaderToConst (QPluginLoaderGc fptr' ptr') = QPluginLoaderConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPluginLoaderConst where+  nullptr = QPluginLoaderConst HoppyF.nullPtr+  +  withCppPtr (QPluginLoaderConst ptr') f' = f' ptr'+  withCppPtr (QPluginLoaderConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPluginLoaderConst ptr') = ptr'+  toPtr (QPluginLoaderConstGc _ ptr') = ptr'+  +  touchCppPtr (QPluginLoaderConst _) = HoppyP.return ()+  touchCppPtr (QPluginLoaderConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPluginLoaderConst where+  delete (QPluginLoaderConst ptr') = delete'QPluginLoader ptr'+  delete (QPluginLoaderConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPluginLoaderConst", " object."]+  +  toGc this'@(QPluginLoaderConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPluginLoaderConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPluginLoader :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPluginLoaderConstGc {}) = HoppyP.return this'++instance QPluginLoaderConstPtr QPluginLoaderConst where+  toQPluginLoaderConst = HoppyP.id++instance M94.QObjectConstPtr QPluginLoaderConst where+  toQObjectConst (QPluginLoaderConst ptr') = M94.QObjectConst $ castQPluginLoaderToQObject ptr'+  toQObjectConst (QPluginLoaderConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQPluginLoaderToQObject ptr'++data QPluginLoader =+    QPluginLoader (HoppyF.Ptr QPluginLoader)+  | QPluginLoaderGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPluginLoader)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPluginLoader where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPluginLoader where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPluginLoaderToNonconst :: QPluginLoaderConst -> QPluginLoader+castQPluginLoaderToNonconst (QPluginLoaderConst ptr') = QPluginLoader $ HoppyF.castPtr ptr'+castQPluginLoaderToNonconst (QPluginLoaderConstGc fptr' ptr') = QPluginLoaderGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPluginLoader where+  nullptr = QPluginLoader HoppyF.nullPtr+  +  withCppPtr (QPluginLoader ptr') f' = f' ptr'+  withCppPtr (QPluginLoaderGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPluginLoader ptr') = ptr'+  toPtr (QPluginLoaderGc _ ptr') = ptr'+  +  touchCppPtr (QPluginLoader _) = HoppyP.return ()+  touchCppPtr (QPluginLoaderGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPluginLoader where+  delete (QPluginLoader ptr') = delete'QPluginLoader $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPluginLoaderConst)+  delete (QPluginLoaderGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPluginLoader", " object."]+  +  toGc this'@(QPluginLoader ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPluginLoaderGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPluginLoader :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPluginLoaderGc {}) = HoppyP.return this'++instance QPluginLoaderConstPtr QPluginLoader where+  toQPluginLoaderConst (QPluginLoader ptr') = QPluginLoaderConst $ (HoppyF.castPtr :: HoppyF.Ptr QPluginLoader -> HoppyF.Ptr QPluginLoaderConst) ptr'+  toQPluginLoaderConst (QPluginLoaderGc fptr' ptr') = QPluginLoaderConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPluginLoader -> HoppyF.Ptr QPluginLoaderConst) ptr'++instance QPluginLoaderPtr QPluginLoader where+  toQPluginLoader = HoppyP.id++instance M94.QObjectConstPtr QPluginLoader where+  toQObjectConst (QPluginLoader ptr') = M94.QObjectConst $ castQPluginLoaderToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPluginLoader -> HoppyF.Ptr QPluginLoaderConst) ptr'+  toQObjectConst (QPluginLoaderGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQPluginLoaderToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPluginLoader -> HoppyF.Ptr QPluginLoaderConst) ptr'++instance M94.QObjectPtr QPluginLoader where+  toQObject (QPluginLoader ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQPluginLoaderToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPluginLoader -> HoppyF.Ptr QPluginLoaderConst) ptr'+  toQObject (QPluginLoaderGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQPluginLoaderToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPluginLoader -> HoppyF.Ptr QPluginLoaderConst) ptr'++new :: (HoppyP.IO QPluginLoader)+new =+  HoppyP.fmap QPluginLoader+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QPluginLoader)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QPluginLoader+  (newWithParent' arg'1')++newWithFilename :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QPluginLoader)+newWithFilename arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPluginLoader+  (newWithFilename' arg'1')++newWithFilenameAndParent :: (M142.QStringValue arg'1, M94.QObjectPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QPluginLoader)+newWithFilenameAndParent arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  HoppyP.fmap QPluginLoader+  (newWithFilenameAndParent' arg'1' arg'2')++class QPluginLoaderSuper a where+  downToQPluginLoader :: a -> QPluginLoader++instance QPluginLoaderSuper M94.QObject where+  downToQPluginLoader = castQPluginLoaderToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QPluginLoaderConst $ castQObjectToQPluginLoader ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QPluginLoaderConstGc fptr' $ castQObjectToQPluginLoader ptr'++class QPluginLoaderSuperConst a where+  downToQPluginLoaderConst :: a -> QPluginLoaderConst++instance QPluginLoaderSuperConst M94.QObjectConst where+  downToQPluginLoaderConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QPluginLoaderConst $ castQObjectToQPluginLoader ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QPluginLoaderConstGc fptr' $ castQObjectToQPluginLoader ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPluginLoader)) QPluginLoader where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPluginLoader)) QPluginLoader where+  decode = HoppyP.fmap QPluginLoader . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QPoint.hs view
@@ -0,0 +1,334 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QPoint (+  QPointValue (..),+  QPointConstPtr (..),+  isNull,+  manhattanLength,+  x,+  y,+  eQ,+  nE,+  QPointPtr (..),+  setX,+  setY,+  aDDA,+  sUBA,+  mULA,+  mULAReal,+  dIVA,+  aSSIGN,+  dotProduct,+  QPointConst (..),+  castQPointToConst,+  QPoint (..),+  castQPointToNonconst,+  newNull,+  new,+  newCopy,+  QPointSuper (..),+  QPointSuperConst (..),+  ) where++import Control.Applicative ((<$>), (<*>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Core.HPoint as HPoint+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QPoint_newNull" newNull' ::  HoppyP.IO (HoppyF.Ptr QPoint)+foreign import ccall "genpop__QPoint_new" new' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPoint)+foreign import ccall "genpop__QPoint_newCopy" newCopy' ::  HoppyF.Ptr QPointConst -> HoppyP.IO (HoppyF.Ptr QPoint)+foreign import ccall "genpop__QPoint_dotProduct" dotProduct' ::  HoppyF.Ptr QPointConst -> HoppyF.Ptr QPointConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPoint_isNull" isNull' ::  HoppyF.Ptr QPointConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPoint_manhattanLength" manhattanLength' ::  HoppyF.Ptr QPointConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPoint_x" x' ::  HoppyF.Ptr QPointConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPoint_setX" setX' ::  HoppyF.Ptr QPoint -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QPoint_y" y' ::  HoppyF.Ptr QPointConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPoint_setY" setY' ::  HoppyF.Ptr QPoint -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QPoint_ADDA" aDDA' ::  HoppyF.Ptr QPoint -> HoppyF.Ptr QPointConst -> HoppyP.IO (HoppyF.Ptr QPoint)+foreign import ccall "genpop__QPoint_SUBA" sUBA' ::  HoppyF.Ptr QPoint -> HoppyF.Ptr QPointConst -> HoppyP.IO (HoppyF.Ptr QPoint)+foreign import ccall "genpop__QPoint_MULA" mULA' ::  HoppyF.Ptr QPoint -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPoint)+foreign import ccall "genpop__QPoint_MULAReal" mULAReal' ::  HoppyF.Ptr QPoint -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QPoint)+foreign import ccall "genpop__QPoint_DIVA" dIVA' ::  HoppyF.Ptr QPoint -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QPoint)+foreign import ccall "genpop__QPoint_EQ" eQ' ::  HoppyF.Ptr QPointConst -> HoppyF.Ptr QPointConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPoint_NE" nE' ::  HoppyF.Ptr QPointConst -> HoppyF.Ptr QPointConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPoint_ASSIGN" aSSIGN' ::  HoppyF.Ptr QPoint -> HoppyF.Ptr QPointConst -> HoppyP.IO (HoppyF.Ptr QPoint)+foreign import ccall "gendel__QPoint" delete'QPoint :: HoppyF.Ptr QPointConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPoint" deletePtr'QPoint :: HoppyF.FunPtr (HoppyF.Ptr QPointConst -> HoppyP.IO ())++class QPointValue a where+  withQPointPtr :: a -> (QPointConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPointConstPtr a => QPointValue a where+  withQPointPtr = HoppyP.flip ($) . toQPointConst++instance {-# OVERLAPPING #-} QPointValue (HPoint.HPoint) where+  withQPointPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QPointConstPtr this where+  toQPointConst :: this -> QPointConst++isNull :: (QPointValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++manhattanLength :: (QPointValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+manhattanLength arg'1 =+  withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (manhattanLength' arg'1')++x :: (QPointValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+x arg'1 =+  withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (x' arg'1')++y :: (QPointValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+y arg'1 =+  withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (y' arg'1')++eQ :: (QPointValue this, QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QPointValue this, QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QPointConstPtr this) => QPointPtr this where+  toQPoint :: this -> QPoint++setX :: (QPointPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setX arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPoint arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setX' arg'1' arg'2')++setY :: (QPointPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setY arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPoint arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setY' arg'1' arg'2')++aDDA :: (QPointPtr this, QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPoint)+aDDA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPoint arg'1) $ \arg'1' ->+  withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QPoint+  (aDDA' arg'1' arg'2')++sUBA :: (QPointPtr this, QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPoint)+sUBA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPoint arg'1) $ \arg'1' ->+  withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QPoint+  (sUBA' arg'1' arg'2')++mULA :: (QPointPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QPoint)+mULA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPoint arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QPoint+  (mULA' arg'1' arg'2')++mULAReal :: (QPointPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QPoint)+mULAReal arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPoint arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QPoint+  (mULAReal' arg'1' arg'2')++dIVA :: (QPointPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QPoint)+dIVA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPoint arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QPoint+  (dIVA' arg'1' arg'2')++aSSIGN :: (QPointPtr this, QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPoint)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPoint arg'1) $ \arg'1' ->+  withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QPoint+  (aSSIGN' arg'1' arg'2')++dotProduct :: (QPointValue arg'1, QPointValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Int)+dotProduct arg'1 arg'2 =+  withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (dotProduct' arg'1' arg'2')++data QPointConst =+    QPointConst (HoppyF.Ptr QPointConst)+  | QPointConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPointConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPointConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPointConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPointToConst :: QPoint -> QPointConst+castQPointToConst (QPoint ptr') = QPointConst $ HoppyF.castPtr ptr'+castQPointToConst (QPointGc fptr' ptr') = QPointConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPointConst where+  nullptr = QPointConst HoppyF.nullPtr+  +  withCppPtr (QPointConst ptr') f' = f' ptr'+  withCppPtr (QPointConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPointConst ptr') = ptr'+  toPtr (QPointConstGc _ ptr') = ptr'+  +  touchCppPtr (QPointConst _) = HoppyP.return ()+  touchCppPtr (QPointConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPointConst where+  delete (QPointConst ptr') = delete'QPoint ptr'+  delete (QPointConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPointConst", " object."]+  +  toGc this'@(QPointConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPointConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPoint :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPointConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPointConst QPoint where copy = newCopy++instance QPointConstPtr QPointConst where+  toQPointConst = HoppyP.id++data QPoint =+    QPoint (HoppyF.Ptr QPoint)+  | QPointGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPoint)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPoint where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPoint where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPointToNonconst :: QPointConst -> QPoint+castQPointToNonconst (QPointConst ptr') = QPoint $ HoppyF.castPtr ptr'+castQPointToNonconst (QPointConstGc fptr' ptr') = QPointGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPoint where+  nullptr = QPoint HoppyF.nullPtr+  +  withCppPtr (QPoint ptr') f' = f' ptr'+  withCppPtr (QPointGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPoint ptr') = ptr'+  toPtr (QPointGc _ ptr') = ptr'+  +  touchCppPtr (QPoint _) = HoppyP.return ()+  touchCppPtr (QPointGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPoint where+  delete (QPoint ptr') = delete'QPoint $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPointConst)+  delete (QPointGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPoint", " object."]+  +  toGc this'@(QPoint ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPointGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPoint :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPointGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPoint QPoint where copy = newCopy++instance QPointConstPtr QPoint where+  toQPointConst (QPoint ptr') = QPointConst $ (HoppyF.castPtr :: HoppyF.Ptr QPoint -> HoppyF.Ptr QPointConst) ptr'+  toQPointConst (QPointGc fptr' ptr') = QPointConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPoint -> HoppyF.Ptr QPointConst) ptr'++instance QPointPtr QPoint where+  toQPoint = HoppyP.id++newNull :: (HoppyP.IO QPoint)+newNull =+  HoppyP.fmap QPoint+  (newNull')++new :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QPoint)+new arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QPoint+  (new' arg'1' arg'2')++newCopy :: (QPointValue arg'1) => (arg'1) -> (HoppyP.IO QPoint)+newCopy arg'1 =+  withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPoint+  (newCopy' arg'1')++class QPointSuper a where+  downToQPoint :: a -> QPoint+++class QPointSuperConst a where+  downToQPointConst :: a -> QPointConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPoint)) QPoint where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QPointValue a => HoppyFHR.Assignable QPoint a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPoint)) QPoint where+  decode = HoppyP.fmap QPoint . HoppyF.peek++instance HoppyFHR.Encodable QPoint (HPoint.HPoint) where+  encode =+    new <$> HPoint.x <*> HPoint.y++instance HoppyFHR.Encodable QPointConst (HPoint.HPoint) where+  encode = HoppyP.fmap (toQPointConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QPoint)++instance HoppyFHR.Decodable QPoint (HPoint.HPoint) where+  decode = HoppyFHR.decode . toQPointConst++instance HoppyFHR.Decodable QPointConst (HPoint.HPoint) where+  decode =+    \q -> HPoint.HPoint <$> x q <*> y q
src/Graphics/UI/Qtah/Generated/Core/QPointF.hs view
@@ -0,0 +1,341 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QPointF (+  QPointFValue (..),+  QPointFConstPtr (..),+  isNull,+  manhattanLength,+  toPoint,+  x,+  y,+  eQ,+  nE,+  QPointFPtr (..),+  setX,+  setY,+  aDDA,+  sUBA,+  mULA,+  dIVA,+  aSSIGN,+  dotProduct,+  QPointFConst (..),+  castQPointFToConst,+  QPointF (..),+  castQPointFToNonconst,+  newNull,+  new,+  newFromPoint,+  newCopy,+  QPointFSuper (..),+  QPointFSuperConst (..),+  ) where++import Control.Applicative ((<$>), (<*>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Core.HPoint as HPoint+import qualified Graphics.UI.Qtah.Core.HPointF as HPointF+import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QPointF_newNull" newNull' ::  HoppyP.IO (HoppyF.Ptr QPointF)+foreign import ccall "genpop__QPointF_new" new' ::  HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QPointF)+foreign import ccall "genpop__QPointF_newFromPoint" newFromPoint' ::  HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr QPointF)+foreign import ccall "genpop__QPointF_newCopy" newCopy' ::  HoppyF.Ptr QPointFConst -> HoppyP.IO (HoppyF.Ptr QPointF)+foreign import ccall "genpop__QPointF_dotProduct" dotProduct' ::  HoppyF.Ptr QPointFConst -> HoppyF.Ptr QPointFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QPointF_isNull" isNull' ::  HoppyF.Ptr QPointFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPointF_manhattanLength" manhattanLength' ::  HoppyF.Ptr QPointFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QPointF_toPoint" toPoint' ::  HoppyF.Ptr QPointFConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QPointF_x" x' ::  HoppyF.Ptr QPointFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QPointF_setX" setX' ::  HoppyF.Ptr QPointF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QPointF_y" y' ::  HoppyF.Ptr QPointFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QPointF_setY" setY' ::  HoppyF.Ptr QPointF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QPointF_ADDA" aDDA' ::  HoppyF.Ptr QPointF -> HoppyF.Ptr QPointFConst -> HoppyP.IO (HoppyF.Ptr QPointF)+foreign import ccall "genpop__QPointF_SUBA" sUBA' ::  HoppyF.Ptr QPointF -> HoppyF.Ptr QPointFConst -> HoppyP.IO (HoppyF.Ptr QPointF)+foreign import ccall "genpop__QPointF_MULA" mULA' ::  HoppyF.Ptr QPointF -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QPointF)+foreign import ccall "genpop__QPointF_DIVA" dIVA' ::  HoppyF.Ptr QPointF -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QPointF)+foreign import ccall "genpop__QPointF_EQ" eQ' ::  HoppyF.Ptr QPointFConst -> HoppyF.Ptr QPointFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPointF_NE" nE' ::  HoppyF.Ptr QPointFConst -> HoppyF.Ptr QPointFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPointF_ASSIGN" aSSIGN' ::  HoppyF.Ptr QPointF -> HoppyF.Ptr QPointFConst -> HoppyP.IO (HoppyF.Ptr QPointF)+foreign import ccall "gendel__QPointF" delete'QPointF :: HoppyF.Ptr QPointFConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPointF" deletePtr'QPointF :: HoppyF.FunPtr (HoppyF.Ptr QPointFConst -> HoppyP.IO ())++class QPointFValue a where+  withQPointFPtr :: a -> (QPointFConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPointFConstPtr a => QPointFValue a where+  withQPointFPtr = HoppyP.flip ($) . toQPointFConst++instance {-# OVERLAPPING #-} QPointFValue (HPointF.HPointF) where+  withQPointFPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QPointFConstPtr this where+  toQPointFConst :: this -> QPointFConst++isNull :: (QPointFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++manhattanLength :: (QPointFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+manhattanLength arg'1 =+  withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (manhattanLength' arg'1')++toPoint :: (QPointFValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+toPoint arg'1 =+  withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (toPoint' arg'1')++x :: (QPointFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+x arg'1 =+  withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (x' arg'1')++y :: (QPointFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+y arg'1 =+  withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (y' arg'1')++eQ :: (QPointFValue this, QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QPointFValue this, QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QPointFConstPtr this) => QPointFPtr this where+  toQPointF :: this -> QPointF++setX :: (QPointFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setX arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPointF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setX' arg'1' arg'2')++setY :: (QPointFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setY arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPointF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setY' arg'1' arg'2')++aDDA :: (QPointFPtr this, QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPointF)+aDDA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPointF arg'1) $ \arg'1' ->+  withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QPointF+  (aDDA' arg'1' arg'2')++sUBA :: (QPointFPtr this, QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPointF)+sUBA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPointF arg'1) $ \arg'1' ->+  withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QPointF+  (sUBA' arg'1' arg'2')++mULA :: (QPointFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QPointF)+mULA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPointF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QPointF+  (mULA' arg'1' arg'2')++dIVA :: (QPointFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QPointF)+dIVA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPointF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QPointF+  (dIVA' arg'1' arg'2')++aSSIGN :: (QPointFPtr this, QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPointF)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPointF arg'1) $ \arg'1' ->+  withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QPointF+  (aSSIGN' arg'1' arg'2')++dotProduct :: (QPointFValue arg'1, QPointFValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Double)+dotProduct arg'1 arg'2 =+  withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (dotProduct' arg'1' arg'2')++data QPointFConst =+    QPointFConst (HoppyF.Ptr QPointFConst)+  | QPointFConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPointFConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPointFConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPointFConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPointFToConst :: QPointF -> QPointFConst+castQPointFToConst (QPointF ptr') = QPointFConst $ HoppyF.castPtr ptr'+castQPointFToConst (QPointFGc fptr' ptr') = QPointFConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPointFConst where+  nullptr = QPointFConst HoppyF.nullPtr+  +  withCppPtr (QPointFConst ptr') f' = f' ptr'+  withCppPtr (QPointFConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPointFConst ptr') = ptr'+  toPtr (QPointFConstGc _ ptr') = ptr'+  +  touchCppPtr (QPointFConst _) = HoppyP.return ()+  touchCppPtr (QPointFConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPointFConst where+  delete (QPointFConst ptr') = delete'QPointF ptr'+  delete (QPointFConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPointFConst", " object."]+  +  toGc this'@(QPointFConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPointFConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPointF :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPointFConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPointFConst QPointF where copy = newCopy++instance QPointFConstPtr QPointFConst where+  toQPointFConst = HoppyP.id++data QPointF =+    QPointF (HoppyF.Ptr QPointF)+  | QPointFGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPointF)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPointF where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPointF where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPointFToNonconst :: QPointFConst -> QPointF+castQPointFToNonconst (QPointFConst ptr') = QPointF $ HoppyF.castPtr ptr'+castQPointFToNonconst (QPointFConstGc fptr' ptr') = QPointFGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPointF where+  nullptr = QPointF HoppyF.nullPtr+  +  withCppPtr (QPointF ptr') f' = f' ptr'+  withCppPtr (QPointFGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPointF ptr') = ptr'+  toPtr (QPointFGc _ ptr') = ptr'+  +  touchCppPtr (QPointF _) = HoppyP.return ()+  touchCppPtr (QPointFGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPointF where+  delete (QPointF ptr') = delete'QPointF $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPointFConst)+  delete (QPointFGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPointF", " object."]+  +  toGc this'@(QPointF ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPointFGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPointF :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPointFGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPointF QPointF where copy = newCopy++instance QPointFConstPtr QPointF where+  toQPointFConst (QPointF ptr') = QPointFConst $ (HoppyF.castPtr :: HoppyF.Ptr QPointF -> HoppyF.Ptr QPointFConst) ptr'+  toQPointFConst (QPointFGc fptr' ptr') = QPointFConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPointF -> HoppyF.Ptr QPointFConst) ptr'++instance QPointFPtr QPointF where+  toQPointF = HoppyP.id++newNull :: (HoppyP.IO QPointF)+newNull =+  HoppyP.fmap QPointF+  (newNull')++new :: (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO QPointF)+new arg'1 arg'2 =+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QPointF+  (new' arg'1' arg'2')++newFromPoint :: (M114.QPointValue arg'1) => (arg'1) -> (HoppyP.IO QPointF)+newFromPoint arg'1 =+  M114.withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPointF+  (newFromPoint' arg'1')++newCopy :: (QPointFValue arg'1) => (arg'1) -> (HoppyP.IO QPointF)+newCopy arg'1 =+  withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPointF+  (newCopy' arg'1')++class QPointFSuper a where+  downToQPointF :: a -> QPointF+++class QPointFSuperConst a where+  downToQPointFConst :: a -> QPointFConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPointF)) QPointF where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QPointFValue a => HoppyFHR.Assignable QPointF a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPointF)) QPointF where+  decode = HoppyP.fmap QPointF . HoppyF.peek++instance HoppyFHR.Encodable QPointF (HPointF.HPointF) where+  encode =+    new <$> HPointF.x <*> HPointF.y++instance HoppyFHR.Encodable QPointFConst (HPointF.HPointF) where+  encode = HoppyP.fmap (toQPointFConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QPointF)++instance HoppyFHR.Decodable QPointF (HPointF.HPointF) where+  decode = HoppyFHR.decode . toQPointFConst++instance HoppyFHR.Decodable QPointFConst (HPointF.HPointF) where+  decode =+    \q -> HPointF.HPointF <$> x q <*> y q
src/Graphics/UI/Qtah/Generated/Core/QProcess.hs view
@@ -0,0 +1,950 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QProcess (+  castQProcessToQIODevice,+  castQIODeviceToQProcess,+  castQProcessToQObject,+  castQObjectToQProcess,+  QProcessValue (..),+  QProcessConstPtr (..),+  arguments,+  atEnd,+  bytesAvailable,+  bytesToWrite,+  canReadLine,+  error,+  exitCode,+  exitStatus,+  inputChannelMode,+  isSequential,+  processChannelMode,+  processEnvironment,+  processId,+  program,+  readChannel,+  state,+  workingDirectory,+  QProcessPtr (..),+  close,+  closeReadChannel,+  closeWriteChannel,+  open,+  openWithMode,+  readAllStandardError,+  readAllStandardOutput,+  setArguments,+  setInputChannelMode,+  setProcessChannelMode,+  setProcessEnvironment,+  setProgram,+  setReadChannel,+  setStandardErrorFile,+  setStandardErrorFileWithMode,+  setStandardInputFile,+  setStandardOutputFile,+  setStandardOutputFileWithMode,+  setStandardOutputProcess,+  setWorkingDirectory,+  start,+  startWithProgramArgMode,+  startWithCommand,+  startWithCommandMode,+  startWithMode,+  startDetached,+  systemEnvironment,+  waitForBytesWritten,+  waitForBytesWrittenMsecs,+  waitForFinished,+  waitForFinishedMsecs,+  waitForReadyRead,+  waitForReadyReadMsecs,+  waitForStarted,+  waitForStartedMsecs,+  kill,+  terminate,+  emitErrorOccurred,+  emitFinished,+  execute,+  executeWithCommand,+  nullDevice,+  startDetachedStatic,+  startDetachedStaticDir,+  startDetachedStaticCommand,+  QProcessConst (..),+  castQProcessToConst,+  QProcess (..),+  castQProcessToNonconst,+  new,+  newWithParent,+  QProcessSuper (..),+  QProcessSuperConst (..),+  QProcessExitStatus (..),+  QProcessInputChannelMode (..),+  QProcessProcessChannel (..),+  QProcessProcessChannelMode (..),+  QProcessProcessError (..),+  QProcessProcessState (..),+  ) where++import qualified Data.ByteString as QtahDBS+import qualified Data.Int as HoppyDI+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.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QIODevice as M48+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QProcessEnvironment as M108+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QStringList as M144+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QProcess_new" new' ::  HoppyP.IO (HoppyF.Ptr QProcess)+foreign import ccall "genpop__QProcess_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QProcess)+foreign import ccall "genpop__QProcess_arguments" arguments' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QProcess_atEnd" atEnd' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_bytesAvailable" bytesAvailable' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QProcess_bytesToWrite" bytesToWrite' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QProcess_canReadLine" canReadLine' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_close" close' ::  HoppyF.Ptr QProcess -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_closeReadChannel" closeReadChannel' ::  HoppyF.Ptr QProcess -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_closeWriteChannel" closeWriteChannel' ::  HoppyF.Ptr QProcess -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_error" error' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QProcess_execute" execute' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QProcess_executeWithCommand" executeWithCommand' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QProcess_exitCode" exitCode' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QProcess_exitStatus" exitStatus' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QProcess_inputChannelMode" inputChannelMode' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QProcess_isSequential" isSequential' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_nullDevice" nullDevice' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QProcess_open" open' ::  HoppyF.Ptr QProcess -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_openWithMode" openWithMode' ::  HoppyF.Ptr QProcess -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_processChannelMode" processChannelMode' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QProcess_processEnvironment" processEnvironment' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO (HoppyF.Ptr M108.QProcessEnvironmentConst)+foreign import ccall "genpop__QProcess_processId" processId' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QProcess_program" program' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QProcess_readAllStandardError" readAllStandardError' ::  HoppyF.Ptr QProcess -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QProcess_readAllStandardOutput" readAllStandardOutput' ::  HoppyF.Ptr QProcess -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QProcess_readChannel" readChannel' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QProcess_setArguments" setArguments' ::  HoppyF.Ptr QProcess -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_setInputChannelMode" setInputChannelMode' ::  HoppyF.Ptr QProcess -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_setProcessChannelMode" setProcessChannelMode' ::  HoppyF.Ptr QProcess -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_setProcessEnvironment" setProcessEnvironment' ::  HoppyF.Ptr QProcess -> HoppyF.Ptr M108.QProcessEnvironmentConst -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_setProgram" setProgram' ::  HoppyF.Ptr QProcess -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_setReadChannel" setReadChannel' ::  HoppyF.Ptr QProcess -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_setStandardErrorFile" setStandardErrorFile' ::  HoppyF.Ptr QProcess -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_setStandardErrorFileWithMode" setStandardErrorFileWithMode' ::  HoppyF.Ptr QProcess -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_setStandardInputFile" setStandardInputFile' ::  HoppyF.Ptr QProcess -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_setStandardOutputFile" setStandardOutputFile' ::  HoppyF.Ptr QProcess -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_setStandardOutputFileWithMode" setStandardOutputFileWithMode' ::  HoppyF.Ptr QProcess -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_setStandardOutputProcess" setStandardOutputProcess' ::  HoppyF.Ptr QProcess -> HoppyF.Ptr QProcess -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_setWorkingDirectory" setWorkingDirectory' ::  HoppyF.Ptr QProcess -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_start" start' ::  HoppyF.Ptr QProcess -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_startWithProgramArgMode" startWithProgramArgMode' ::  HoppyF.Ptr QProcess -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M144.QStringListConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_startWithCommand" startWithCommand' ::  HoppyF.Ptr QProcess -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_startWithCommandMode" startWithCommandMode' ::  HoppyF.Ptr QProcess -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_startWithMode" startWithMode' ::  HoppyF.Ptr QProcess -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_startDetached" startDetached' ::  HoppyF.Ptr QProcess -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_startDetachedStatic" startDetachedStatic' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_startDetachedStaticDir" startDetachedStaticDir' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M144.QStringListConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_startDetachedStaticCommand" startDetachedStaticCommand' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_state" state' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QProcess_systemEnvironment" systemEnvironment' ::  HoppyF.Ptr QProcess -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QProcess_waitForBytesWritten" waitForBytesWritten' ::  HoppyF.Ptr QProcess -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_waitForBytesWrittenMsecs" waitForBytesWrittenMsecs' ::  HoppyF.Ptr QProcess -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_waitForFinished" waitForFinished' ::  HoppyF.Ptr QProcess -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_waitForFinishedMsecs" waitForFinishedMsecs' ::  HoppyF.Ptr QProcess -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_waitForReadyRead" waitForReadyRead' ::  HoppyF.Ptr QProcess -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_waitForReadyReadMsecs" waitForReadyReadMsecs' ::  HoppyF.Ptr QProcess -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_waitForStarted" waitForStarted' ::  HoppyF.Ptr QProcess -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_waitForStartedMsecs" waitForStartedMsecs' ::  HoppyF.Ptr QProcess -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcess_workingDirectory" workingDirectory' ::  HoppyF.Ptr QProcessConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QProcess_kill" kill' ::  HoppyF.Ptr QProcess -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_terminate" terminate' ::  HoppyF.Ptr QProcess -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_emitErrorOccurred" emitErrorOccurred' ::  HoppyF.Ptr QProcess -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QProcess_emitFinished" emitFinished' ::  HoppyF.Ptr QProcess -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QProcess__QIODevice" castQProcessToQIODevice :: HoppyF.Ptr QProcessConst -> HoppyF.Ptr M48.QIODeviceConst+foreign import ccall "gencast__QIODevice__QProcess" castQIODeviceToQProcess :: HoppyF.Ptr M48.QIODeviceConst -> HoppyF.Ptr QProcessConst+foreign import ccall "gencast__QProcess__QObject" castQProcessToQObject :: HoppyF.Ptr QProcessConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QProcess" castQObjectToQProcess :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QProcessConst+foreign import ccall "gendel__QProcess" delete'QProcess :: HoppyF.Ptr QProcessConst -> HoppyP.IO ()+foreign import ccall "&gendel__QProcess" deletePtr'QProcess :: HoppyF.FunPtr (HoppyF.Ptr QProcessConst -> HoppyP.IO ())++class QProcessValue a where+  withQProcessPtr :: a -> (QProcessConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QProcessConstPtr a => QProcessValue a where+  withQProcessPtr = HoppyP.flip ($) . toQProcessConst++class (M48.QIODeviceConstPtr this) => QProcessConstPtr this where+  toQProcessConst :: this -> QProcessConst++arguments :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+arguments arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (arguments' arg'1')++atEnd :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+atEnd arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (atEnd' arg'1')++bytesAvailable :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+bytesAvailable arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (bytesAvailable' arg'1')++bytesToWrite :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+bytesToWrite arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (bytesToWrite' arg'1')++canReadLine :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+canReadLine arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (canReadLine' arg'1')++error :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO QProcessProcessError)+error arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (error' arg'1')++exitCode :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+exitCode arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (exitCode' arg'1')++exitStatus :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO QProcessExitStatus)+exitStatus arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (exitStatus' arg'1')++inputChannelMode :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO QProcessInputChannelMode)+inputChannelMode arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (inputChannelMode' arg'1')++isSequential :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isSequential arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSequential' arg'1')++processChannelMode :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO QProcessProcessChannelMode)+processChannelMode arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (processChannelMode' arg'1')++processEnvironment :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO M108.QProcessEnvironment)+processEnvironment arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M108.QProcessEnvironmentConst) =<<+  (processEnvironment' arg'1')++processId :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+processId arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (processId' arg'1')++program :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+program arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (program' arg'1')++readChannel :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO QProcessProcessChannel)+readChannel arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (readChannel' arg'1')++state :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO QProcessProcessState)+state arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (state' arg'1')++workingDirectory :: (QProcessValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+workingDirectory arg'1 =+  withQProcessPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (workingDirectory' arg'1')++class (QProcessConstPtr this, M48.QIODevicePtr this) => QProcessPtr this where+  toQProcess :: this -> QProcess++close :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+close arg'1 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (close' arg'1')++closeReadChannel :: (QProcessPtr this) => (this) {- ^ this -} -> (QProcessProcessChannel) -> (HoppyP.IO ())+closeReadChannel arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (closeReadChannel' arg'1' arg'2')++closeWriteChannel :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+closeWriteChannel arg'1 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (closeWriteChannel' arg'1')++open :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+open arg'1 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (open' arg'1')++openWithMode :: (QProcessPtr this, M48.IsQIODeviceOpenMode arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+openWithMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M48.toQIODeviceOpenMode+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (openWithMode' arg'1' arg'2')++readAllStandardError :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+readAllStandardError arg'1 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (readAllStandardError' arg'1')++readAllStandardOutput :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+readAllStandardOutput arg'1 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (readAllStandardOutput' arg'1')++setArguments :: (QProcessPtr this, M144.QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setArguments arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setArguments' arg'1' arg'2')++setInputChannelMode :: (QProcessPtr this) => (this) {- ^ this -} -> (QProcessInputChannelMode) -> (HoppyP.IO ())+setInputChannelMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setInputChannelMode' arg'1' arg'2')++setProcessChannelMode :: (QProcessPtr this) => (this) {- ^ this -} -> (QProcessProcessChannelMode) -> (HoppyP.IO ())+setProcessChannelMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setProcessChannelMode' arg'1' arg'2')++setProcessEnvironment :: (QProcessPtr this, M108.QProcessEnvironmentValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setProcessEnvironment arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  M108.withQProcessEnvironmentPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setProcessEnvironment' arg'1' arg'2')++setProgram :: (QProcessPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setProgram arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setProgram' arg'1' arg'2')++setReadChannel :: (QProcessPtr this) => (this) {- ^ this -} -> (QProcessProcessChannel) -> (HoppyP.IO ())+setReadChannel arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setReadChannel' arg'1' arg'2')++setStandardErrorFile :: (QProcessPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setStandardErrorFile arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setStandardErrorFile' arg'1' arg'2')++setStandardErrorFileWithMode :: (QProcessPtr this, M142.QStringValue arg'2, M48.IsQIODeviceOpenMode arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+setStandardErrorFileWithMode arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M48.toQIODeviceOpenMode+  ) arg'3 >>= \arg'3' ->+  (setStandardErrorFileWithMode' arg'1' arg'2' arg'3')++setStandardInputFile :: (QProcessPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setStandardInputFile arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setStandardInputFile' arg'1' arg'2')++setStandardOutputFile :: (QProcessPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setStandardOutputFile arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setStandardOutputFile' arg'1' arg'2')++setStandardOutputFileWithMode :: (QProcessPtr this, M142.QStringValue arg'2, M48.IsQIODeviceOpenMode arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+setStandardOutputFileWithMode arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M48.toQIODeviceOpenMode+  ) arg'3 >>= \arg'3' ->+  (setStandardOutputFileWithMode' arg'1' arg'2' arg'3')++setStandardOutputProcess :: (QProcessPtr this, QProcessPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setStandardOutputProcess arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQProcess arg'2) $ \arg'2' ->+  (setStandardOutputProcess' arg'1' arg'2')++setWorkingDirectory :: (QProcessPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setWorkingDirectory arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setWorkingDirectory' arg'1' arg'2')++start :: (QProcessPtr this, M142.QStringValue arg'2, M144.QStringListValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+start arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M144.withQStringListPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (start' arg'1' arg'2' arg'3')++startWithProgramArgMode :: (QProcessPtr this, M142.QStringValue arg'2, M144.QStringListValue arg'3, M48.IsQIODeviceOpenMode arg'4) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO ())+startWithProgramArgMode arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M144.withQStringListPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M48.toQIODeviceOpenMode+  ) arg'4 >>= \arg'4' ->+  (startWithProgramArgMode' arg'1' arg'2' arg'3' arg'4')++startWithCommand :: (QProcessPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+startWithCommand arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (startWithCommand' arg'1' arg'2')++startWithCommandMode :: (QProcessPtr this, M142.QStringValue arg'2, M48.IsQIODeviceOpenMode arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+startWithCommandMode arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M48.toQIODeviceOpenMode+  ) arg'3 >>= \arg'3' ->+  (startWithCommandMode' arg'1' arg'2' arg'3')++startWithMode :: (QProcessPtr this, M48.IsQIODeviceOpenMode arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+startWithMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M48.toQIODeviceOpenMode+  ) arg'2 >>= \arg'2' ->+  (startWithMode' arg'1' arg'2')++startDetached :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+startDetached arg'1 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startDetached' arg'1')++systemEnvironment :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+systemEnvironment arg'1 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (systemEnvironment' arg'1')++waitForBytesWritten :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+waitForBytesWritten arg'1 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (waitForBytesWritten' arg'1')++waitForBytesWrittenMsecs :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+waitForBytesWrittenMsecs arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (waitForBytesWrittenMsecs' arg'1' arg'2')++waitForFinished :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+waitForFinished arg'1 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (waitForFinished' arg'1')++waitForFinishedMsecs :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+waitForFinishedMsecs arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (waitForFinishedMsecs' arg'1' arg'2')++waitForReadyRead :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+waitForReadyRead arg'1 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (waitForReadyRead' arg'1')++waitForReadyReadMsecs :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+waitForReadyReadMsecs arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (waitForReadyReadMsecs' arg'1' arg'2')++waitForStarted :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+waitForStarted arg'1 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (waitForStarted' arg'1')++waitForStartedMsecs :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+waitForStartedMsecs arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (waitForStartedMsecs' arg'1' arg'2')++kill :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+kill arg'1 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (kill' arg'1')++terminate :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+terminate arg'1 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (terminate' arg'1')++emitErrorOccurred :: (QProcessPtr this) => (this) {- ^ this -} -> (QProcessProcessError) -> (HoppyP.IO ())+emitErrorOccurred arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (emitErrorOccurred' arg'1' arg'2')++emitFinished :: (QProcessPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (QProcessExitStatus) -> (HoppyP.IO ())+emitFinished arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQProcess arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (emitFinished' arg'1' arg'2' arg'3')++execute :: (M142.QStringValue arg'1, M144.QStringListValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Int)+execute arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (execute' arg'1' arg'2')++executeWithCommand :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Int)+executeWithCommand arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (executeWithCommand' arg'1')++nullDevice :: (HoppyP.IO QtahP.String)+nullDevice =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (nullDevice')++startDetachedStatic :: (M142.QStringValue arg'1, M144.QStringListValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startDetachedStatic arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startDetachedStatic' arg'1' arg'2')++startDetachedStaticDir :: (M142.QStringValue arg'1, M144.QStringListValue arg'2, M142.QStringValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+startDetachedStaticDir arg'1 arg'2 arg'3 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startDetachedStaticDir' arg'1' arg'2' arg'3')++startDetachedStaticCommand :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Bool)+startDetachedStaticCommand arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startDetachedStaticCommand' arg'1')++data QProcessConst =+    QProcessConst (HoppyF.Ptr QProcessConst)+  | QProcessConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QProcessConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QProcessConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QProcessConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQProcessToConst :: QProcess -> QProcessConst+castQProcessToConst (QProcess ptr') = QProcessConst $ HoppyF.castPtr ptr'+castQProcessToConst (QProcessGc fptr' ptr') = QProcessConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QProcessConst where+  nullptr = QProcessConst HoppyF.nullPtr+  +  withCppPtr (QProcessConst ptr') f' = f' ptr'+  withCppPtr (QProcessConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QProcessConst ptr') = ptr'+  toPtr (QProcessConstGc _ ptr') = ptr'+  +  touchCppPtr (QProcessConst _) = HoppyP.return ()+  touchCppPtr (QProcessConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QProcessConst where+  delete (QProcessConst ptr') = delete'QProcess ptr'+  delete (QProcessConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QProcessConst", " object."]+  +  toGc this'@(QProcessConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QProcessConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QProcess :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QProcessConstGc {}) = HoppyP.return this'++instance QProcessConstPtr QProcessConst where+  toQProcessConst = HoppyP.id++instance M48.QIODeviceConstPtr QProcessConst where+  toQIODeviceConst (QProcessConst ptr') = M48.QIODeviceConst $ castQProcessToQIODevice ptr'+  toQIODeviceConst (QProcessConstGc fptr' ptr') = M48.QIODeviceConstGc fptr' $ castQProcessToQIODevice ptr'++instance M94.QObjectConstPtr QProcessConst where+  toQObjectConst (QProcessConst ptr') = M94.QObjectConst $ castQProcessToQObject ptr'+  toQObjectConst (QProcessConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQProcessToQObject ptr'++data QProcess =+    QProcess (HoppyF.Ptr QProcess)+  | QProcessGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QProcess)+  deriving (HoppyP.Show)++instance HoppyP.Eq QProcess where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QProcess where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQProcessToNonconst :: QProcessConst -> QProcess+castQProcessToNonconst (QProcessConst ptr') = QProcess $ HoppyF.castPtr ptr'+castQProcessToNonconst (QProcessConstGc fptr' ptr') = QProcessGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QProcess where+  nullptr = QProcess HoppyF.nullPtr+  +  withCppPtr (QProcess ptr') f' = f' ptr'+  withCppPtr (QProcessGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QProcess ptr') = ptr'+  toPtr (QProcessGc _ ptr') = ptr'+  +  touchCppPtr (QProcess _) = HoppyP.return ()+  touchCppPtr (QProcessGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QProcess where+  delete (QProcess ptr') = delete'QProcess $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QProcessConst)+  delete (QProcessGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QProcess", " object."]+  +  toGc this'@(QProcess ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QProcessGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QProcess :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QProcessGc {}) = HoppyP.return this'++instance QProcessConstPtr QProcess where+  toQProcessConst (QProcess ptr') = QProcessConst $ (HoppyF.castPtr :: HoppyF.Ptr QProcess -> HoppyF.Ptr QProcessConst) ptr'+  toQProcessConst (QProcessGc fptr' ptr') = QProcessConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QProcess -> HoppyF.Ptr QProcessConst) ptr'++instance QProcessPtr QProcess where+  toQProcess = HoppyP.id++instance M48.QIODeviceConstPtr QProcess where+  toQIODeviceConst (QProcess ptr') = M48.QIODeviceConst $ castQProcessToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QProcess -> HoppyF.Ptr QProcessConst) ptr'+  toQIODeviceConst (QProcessGc fptr' ptr') = M48.QIODeviceConstGc fptr' $ castQProcessToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QProcess -> HoppyF.Ptr QProcessConst) ptr'++instance M48.QIODevicePtr QProcess where+  toQIODevice (QProcess ptr') = M48.QIODevice $ (HoppyF.castPtr :: HoppyF.Ptr M48.QIODeviceConst -> HoppyF.Ptr M48.QIODevice) $ castQProcessToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QProcess -> HoppyF.Ptr QProcessConst) ptr'+  toQIODevice (QProcessGc fptr' ptr') = M48.QIODeviceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M48.QIODeviceConst -> HoppyF.Ptr M48.QIODevice) $ castQProcessToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QProcess -> HoppyF.Ptr QProcessConst) ptr'++instance M94.QObjectConstPtr QProcess where+  toQObjectConst (QProcess ptr') = M94.QObjectConst $ castQProcessToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QProcess -> HoppyF.Ptr QProcessConst) ptr'+  toQObjectConst (QProcessGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQProcessToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QProcess -> HoppyF.Ptr QProcessConst) ptr'++instance M94.QObjectPtr QProcess where+  toQObject (QProcess ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQProcessToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QProcess -> HoppyF.Ptr QProcessConst) ptr'+  toQObject (QProcessGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQProcessToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QProcess -> HoppyF.Ptr QProcessConst) ptr'++new :: (HoppyP.IO QProcess)+new =+  HoppyP.fmap QProcess+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QProcess)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QProcess+  (newWithParent' arg'1')++class QProcessSuper a where+  downToQProcess :: a -> QProcess++instance QProcessSuper M48.QIODevice where+  downToQProcess = castQProcessToNonconst . cast' . M48.castQIODeviceToConst+    where+      cast' (M48.QIODeviceConst ptr') = QProcessConst $ castQIODeviceToQProcess ptr'+      cast' (M48.QIODeviceConstGc fptr' ptr') = QProcessConstGc fptr' $ castQIODeviceToQProcess ptr'+instance QProcessSuper M94.QObject where+  downToQProcess = castQProcessToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QProcessConst $ castQObjectToQProcess ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QProcessConstGc fptr' $ castQObjectToQProcess ptr'++class QProcessSuperConst a where+  downToQProcessConst :: a -> QProcessConst++instance QProcessSuperConst M48.QIODeviceConst where+  downToQProcessConst = cast'+    where+      cast' (M48.QIODeviceConst ptr') = QProcessConst $ castQIODeviceToQProcess ptr'+      cast' (M48.QIODeviceConstGc fptr' ptr') = QProcessConstGc fptr' $ castQIODeviceToQProcess ptr'+instance QProcessSuperConst M94.QObjectConst where+  downToQProcessConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QProcessConst $ castQObjectToQProcess ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QProcessConstGc fptr' $ castQObjectToQProcess ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QProcess)) QProcess where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QProcess)) QProcess where+  decode = HoppyP.fmap QProcess . HoppyF.peek++data QProcessExitStatus =+  NormalExit+  | CrashExit+  | UnknownQProcessExitStatus (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QProcessExitStatus where+  fromCppEnum NormalExit = 0+  fromCppEnum CrashExit = 1+  fromCppEnum (UnknownQProcessExitStatus n) = n+  +  toCppEnum (0) = NormalExit+  toCppEnum (1) = CrashExit+  toCppEnum n = UnknownQProcessExitStatus n++instance HoppyP.Eq QProcessExitStatus where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QProcessExitStatus where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QProcessInputChannelMode =+  ManagedInputChannel+  | ForwardedInputChannel+  | UnknownQProcessInputChannelMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QProcessInputChannelMode where+  fromCppEnum ManagedInputChannel = 0+  fromCppEnum ForwardedInputChannel = 1+  fromCppEnum (UnknownQProcessInputChannelMode n) = n+  +  toCppEnum (0) = ManagedInputChannel+  toCppEnum (1) = ForwardedInputChannel+  toCppEnum n = UnknownQProcessInputChannelMode n++instance HoppyP.Eq QProcessInputChannelMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QProcessInputChannelMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QProcessProcessChannel =+  StandardOutput+  | StandardError+  | UnknownQProcessProcessChannel (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QProcessProcessChannel where+  fromCppEnum StandardOutput = 0+  fromCppEnum StandardError = 1+  fromCppEnum (UnknownQProcessProcessChannel n) = n+  +  toCppEnum (0) = StandardOutput+  toCppEnum (1) = StandardError+  toCppEnum n = UnknownQProcessProcessChannel n++instance HoppyP.Eq QProcessProcessChannel where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QProcessProcessChannel where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QProcessProcessChannelMode =+  SeparateChannels+  | MergedChannels+  | ForwardedChannels+  | ForwardedErrorChannel+  | ForwardedOutputChannel+  | UnknownQProcessProcessChannelMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QProcessProcessChannelMode where+  fromCppEnum SeparateChannels = 0+  fromCppEnum MergedChannels = 1+  fromCppEnum ForwardedChannels = 2+  fromCppEnum ForwardedErrorChannel = 4+  fromCppEnum ForwardedOutputChannel = 3+  fromCppEnum (UnknownQProcessProcessChannelMode n) = n+  +  toCppEnum (0) = SeparateChannels+  toCppEnum (1) = MergedChannels+  toCppEnum (2) = ForwardedChannels+  toCppEnum (3) = ForwardedOutputChannel+  toCppEnum (4) = ForwardedErrorChannel+  toCppEnum n = UnknownQProcessProcessChannelMode n++instance HoppyP.Eq QProcessProcessChannelMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QProcessProcessChannelMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QProcessProcessError =+  FailedToStart+  | Crashed+  | Timedout+  | WriteError+  | ReadError+  | UnknownError+  | UnknownQProcessProcessError (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QProcessProcessError where+  fromCppEnum FailedToStart = 0+  fromCppEnum Crashed = 1+  fromCppEnum Timedout = 2+  fromCppEnum WriteError = 4+  fromCppEnum ReadError = 3+  fromCppEnum UnknownError = 5+  fromCppEnum (UnknownQProcessProcessError n) = n+  +  toCppEnum (0) = FailedToStart+  toCppEnum (1) = Crashed+  toCppEnum (2) = Timedout+  toCppEnum (3) = ReadError+  toCppEnum (4) = WriteError+  toCppEnum (5) = UnknownError+  toCppEnum n = UnknownQProcessProcessError n++instance HoppyP.Eq QProcessProcessError where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QProcessProcessError where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QProcessProcessState =+  NotRunning+  | Starting+  | Running+  | UnknownQProcessProcessState (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QProcessProcessState where+  fromCppEnum NotRunning = 0+  fromCppEnum Starting = 1+  fromCppEnum Running = 2+  fromCppEnum (UnknownQProcessProcessState n) = n+  +  toCppEnum (0) = NotRunning+  toCppEnum (1) = Starting+  toCppEnum (2) = Running+  toCppEnum n = UnknownQProcessProcessState n++instance HoppyP.Eq QProcessProcessState where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QProcessProcessState where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Core/QProcessEnvironment.hs view
@@ -0,0 +1,294 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QProcessEnvironment (+  QProcessEnvironmentValue (..),+  QProcessEnvironmentConstPtr (..),+  contains,+  isEmpty,+  keys,+  toStringList,+  value,+  valueWithDefault,+  eQ,+  nE,+  QProcessEnvironmentPtr (..),+  clear,+  insertWithName,+  insert,+  remove,+  swap,+  aSSIGN,+  systemEnvironment,+  QProcessEnvironmentConst (..),+  castQProcessEnvironmentToConst,+  QProcessEnvironment (..),+  castQProcessEnvironmentToNonconst,+  new,+  newCopy,+  QProcessEnvironmentSuper (..),+  QProcessEnvironmentSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QStringList as M144+import Prelude (($), (.), (/=), (=<<), (==), (>>))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QProcessEnvironment_new" new' ::  HoppyP.IO (HoppyF.Ptr QProcessEnvironment)+foreign import ccall "genpop__QProcessEnvironment_newCopy" newCopy' ::  HoppyF.Ptr QProcessEnvironmentConst -> HoppyP.IO (HoppyF.Ptr QProcessEnvironment)+foreign import ccall "genpop__QProcessEnvironment_clear" clear' ::  HoppyF.Ptr QProcessEnvironment -> HoppyP.IO ()+foreign import ccall "genpop__QProcessEnvironment_contains" contains' ::  HoppyF.Ptr QProcessEnvironmentConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcessEnvironment_insertWithName" insertWithName' ::  HoppyF.Ptr QProcessEnvironment -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QProcessEnvironment_insert" insert' ::  HoppyF.Ptr QProcessEnvironment -> HoppyF.Ptr QProcessEnvironmentConst -> HoppyP.IO ()+foreign import ccall "genpop__QProcessEnvironment_isEmpty" isEmpty' ::  HoppyF.Ptr QProcessEnvironmentConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcessEnvironment_keys" keys' ::  HoppyF.Ptr QProcessEnvironmentConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QProcessEnvironment_remove" remove' ::  HoppyF.Ptr QProcessEnvironment -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QProcessEnvironment_swap" swap' ::  HoppyF.Ptr QProcessEnvironment -> HoppyF.Ptr QProcessEnvironment -> HoppyP.IO ()+foreign import ccall "genpop__QProcessEnvironment_toStringList" toStringList' ::  HoppyF.Ptr QProcessEnvironmentConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QProcessEnvironment_value" value' ::  HoppyF.Ptr QProcessEnvironmentConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QProcessEnvironment_valueWithDefault" valueWithDefault' ::  HoppyF.Ptr QProcessEnvironmentConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QProcessEnvironment_systemEnvironment" systemEnvironment' ::  HoppyP.IO (HoppyF.Ptr QProcessEnvironmentConst)+foreign import ccall "genpop__QProcessEnvironment_EQ" eQ' ::  HoppyF.Ptr QProcessEnvironmentConst -> HoppyF.Ptr QProcessEnvironmentConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcessEnvironment_NE" nE' ::  HoppyF.Ptr QProcessEnvironmentConst -> HoppyF.Ptr QProcessEnvironmentConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QProcessEnvironment_ASSIGN" aSSIGN' ::  HoppyF.Ptr QProcessEnvironment -> HoppyF.Ptr QProcessEnvironmentConst -> HoppyP.IO (HoppyF.Ptr QProcessEnvironment)+foreign import ccall "gendel__QProcessEnvironment" delete'QProcessEnvironment :: HoppyF.Ptr QProcessEnvironmentConst -> HoppyP.IO ()+foreign import ccall "&gendel__QProcessEnvironment" deletePtr'QProcessEnvironment :: HoppyF.FunPtr (HoppyF.Ptr QProcessEnvironmentConst -> HoppyP.IO ())++class QProcessEnvironmentValue a where+  withQProcessEnvironmentPtr :: a -> (QProcessEnvironmentConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QProcessEnvironmentConstPtr a => QProcessEnvironmentValue a where+  withQProcessEnvironmentPtr = HoppyP.flip ($) . toQProcessEnvironmentConst++class (HoppyFHR.CppPtr this) => QProcessEnvironmentConstPtr this where+  toQProcessEnvironmentConst :: this -> QProcessEnvironmentConst++contains :: (QProcessEnvironmentValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQProcessEnvironmentPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++isEmpty :: (QProcessEnvironmentValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQProcessEnvironmentPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++keys :: (QProcessEnvironmentValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+keys arg'1 =+  withQProcessEnvironmentPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (keys' arg'1')++toStringList :: (QProcessEnvironmentValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+toStringList arg'1 =+  withQProcessEnvironmentPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (toStringList' arg'1')++value :: (QProcessEnvironmentValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+value arg'1 arg'2 =+  withQProcessEnvironmentPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (value' arg'1' arg'2')++valueWithDefault :: (QProcessEnvironmentValue this, M142.QStringValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO QtahP.String)+valueWithDefault arg'1 arg'2 arg'3 =+  withQProcessEnvironmentPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (valueWithDefault' arg'1' arg'2' arg'3')++eQ :: (QProcessEnvironmentValue this, QProcessEnvironmentValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQProcessEnvironmentPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQProcessEnvironmentPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QProcessEnvironmentValue this, QProcessEnvironmentValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQProcessEnvironmentPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQProcessEnvironmentPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QProcessEnvironmentConstPtr this) => QProcessEnvironmentPtr this where+  toQProcessEnvironment :: this -> QProcessEnvironment++clear :: (QProcessEnvironmentPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQProcessEnvironment arg'1) $ \arg'1' ->+  (clear' arg'1')++insertWithName :: (QProcessEnvironmentPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+insertWithName arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQProcessEnvironment arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insertWithName' arg'1' arg'2' arg'3')++insert :: (QProcessEnvironmentPtr this, QProcessEnvironmentValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+insert arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcessEnvironment arg'1) $ \arg'1' ->+  withQProcessEnvironmentPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (insert' arg'1' arg'2')++remove :: (QProcessEnvironmentPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+remove arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcessEnvironment arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (remove' arg'1' arg'2')++swap :: (QProcessEnvironmentPtr this, QProcessEnvironmentPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcessEnvironment arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQProcessEnvironment arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++aSSIGN :: (QProcessEnvironmentPtr this, QProcessEnvironmentValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QProcessEnvironment)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQProcessEnvironment arg'1) $ \arg'1' ->+  withQProcessEnvironmentPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QProcessEnvironment+  (aSSIGN' arg'1' arg'2')++systemEnvironment :: (HoppyP.IO QProcessEnvironment)+systemEnvironment =+  (HoppyFHR.decodeAndDelete . QProcessEnvironmentConst) =<<+  (systemEnvironment')++data QProcessEnvironmentConst =+    QProcessEnvironmentConst (HoppyF.Ptr QProcessEnvironmentConst)+  | QProcessEnvironmentConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QProcessEnvironmentConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QProcessEnvironmentConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QProcessEnvironmentConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQProcessEnvironmentToConst :: QProcessEnvironment -> QProcessEnvironmentConst+castQProcessEnvironmentToConst (QProcessEnvironment ptr') = QProcessEnvironmentConst $ HoppyF.castPtr ptr'+castQProcessEnvironmentToConst (QProcessEnvironmentGc fptr' ptr') = QProcessEnvironmentConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QProcessEnvironmentConst where+  nullptr = QProcessEnvironmentConst HoppyF.nullPtr+  +  withCppPtr (QProcessEnvironmentConst ptr') f' = f' ptr'+  withCppPtr (QProcessEnvironmentConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QProcessEnvironmentConst ptr') = ptr'+  toPtr (QProcessEnvironmentConstGc _ ptr') = ptr'+  +  touchCppPtr (QProcessEnvironmentConst _) = HoppyP.return ()+  touchCppPtr (QProcessEnvironmentConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QProcessEnvironmentConst where+  delete (QProcessEnvironmentConst ptr') = delete'QProcessEnvironment ptr'+  delete (QProcessEnvironmentConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QProcessEnvironmentConst", " object."]+  +  toGc this'@(QProcessEnvironmentConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QProcessEnvironmentConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QProcessEnvironment :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QProcessEnvironmentConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QProcessEnvironmentConst QProcessEnvironment where copy = newCopy++instance QProcessEnvironmentConstPtr QProcessEnvironmentConst where+  toQProcessEnvironmentConst = HoppyP.id++data QProcessEnvironment =+    QProcessEnvironment (HoppyF.Ptr QProcessEnvironment)+  | QProcessEnvironmentGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QProcessEnvironment)+  deriving (HoppyP.Show)++instance HoppyP.Eq QProcessEnvironment where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QProcessEnvironment where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQProcessEnvironmentToNonconst :: QProcessEnvironmentConst -> QProcessEnvironment+castQProcessEnvironmentToNonconst (QProcessEnvironmentConst ptr') = QProcessEnvironment $ HoppyF.castPtr ptr'+castQProcessEnvironmentToNonconst (QProcessEnvironmentConstGc fptr' ptr') = QProcessEnvironmentGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QProcessEnvironment where+  nullptr = QProcessEnvironment HoppyF.nullPtr+  +  withCppPtr (QProcessEnvironment ptr') f' = f' ptr'+  withCppPtr (QProcessEnvironmentGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QProcessEnvironment ptr') = ptr'+  toPtr (QProcessEnvironmentGc _ ptr') = ptr'+  +  touchCppPtr (QProcessEnvironment _) = HoppyP.return ()+  touchCppPtr (QProcessEnvironmentGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QProcessEnvironment where+  delete (QProcessEnvironment ptr') = delete'QProcessEnvironment $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QProcessEnvironmentConst)+  delete (QProcessEnvironmentGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QProcessEnvironment", " object."]+  +  toGc this'@(QProcessEnvironment ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QProcessEnvironmentGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QProcessEnvironment :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QProcessEnvironmentGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QProcessEnvironment QProcessEnvironment where copy = newCopy++instance QProcessEnvironmentConstPtr QProcessEnvironment where+  toQProcessEnvironmentConst (QProcessEnvironment ptr') = QProcessEnvironmentConst $ (HoppyF.castPtr :: HoppyF.Ptr QProcessEnvironment -> HoppyF.Ptr QProcessEnvironmentConst) ptr'+  toQProcessEnvironmentConst (QProcessEnvironmentGc fptr' ptr') = QProcessEnvironmentConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QProcessEnvironment -> HoppyF.Ptr QProcessEnvironmentConst) ptr'++instance QProcessEnvironmentPtr QProcessEnvironment where+  toQProcessEnvironment = HoppyP.id++new :: (HoppyP.IO QProcessEnvironment)+new =+  HoppyP.fmap QProcessEnvironment+  (new')++newCopy :: (QProcessEnvironmentValue arg'1) => (arg'1) -> (HoppyP.IO QProcessEnvironment)+newCopy arg'1 =+  withQProcessEnvironmentPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QProcessEnvironment+  (newCopy' arg'1')++class QProcessEnvironmentSuper a where+  downToQProcessEnvironment :: a -> QProcessEnvironment+++class QProcessEnvironmentSuperConst a where+  downToQProcessEnvironmentConst :: a -> QProcessEnvironmentConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QProcessEnvironment)) QProcessEnvironment where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QProcessEnvironmentValue a => HoppyFHR.Assignable QProcessEnvironment a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QProcessEnvironment)) QProcessEnvironment where+  decode = HoppyP.fmap QProcessEnvironment . HoppyF.peek++instance HoppyFHR.Decodable QProcessEnvironment (QProcessEnvironment) where+  decode = HoppyFHR.decode . toQProcessEnvironmentConst++instance HoppyFHR.Decodable QProcessEnvironmentConst (QProcessEnvironment) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QPropertyAnimation.hs view
@@ -0,0 +1,241 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QPropertyAnimation (+  castQPropertyAnimationToQVariantAnimation,+  castQVariantAnimationToQPropertyAnimation,+  castQPropertyAnimationToQAbstractAnimation,+  castQAbstractAnimationToQPropertyAnimation,+  castQPropertyAnimationToQObject,+  castQObjectToQPropertyAnimation,+  QPropertyAnimationValue (..),+  QPropertyAnimationConstPtr (..),+  propertyName,+  targetObject,+  QPropertyAnimationPtr (..),+  setPropertyName,+  setTargetObject,+  QPropertyAnimationConst (..),+  castQPropertyAnimationToConst,+  QPropertyAnimation (..),+  castQPropertyAnimationToNonconst,+  QPropertyAnimationSuper (..),+  QPropertyAnimationSuperConst (..),+  ) where++import qualified Data.ByteString as QtahDBS+import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QAbstractAnimation as M2+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QVariantAnimation as M170+import Prelude (($), (.), (=<<), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QPropertyAnimation_propertyName" propertyName' ::  HoppyF.Ptr QPropertyAnimationConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QPropertyAnimation_setPropertyName" setPropertyName' ::  HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO ()+foreign import ccall "genpop__QPropertyAnimation_targetObject" targetObject' ::  HoppyF.Ptr QPropertyAnimationConst -> HoppyP.IO (HoppyF.Ptr M94.QObject)+foreign import ccall "genpop__QPropertyAnimation_setTargetObject" setTargetObject' ::  HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr M94.QObject -> HoppyP.IO ()+foreign import ccall "gencast__QPropertyAnimation__QVariantAnimation" castQPropertyAnimationToQVariantAnimation :: HoppyF.Ptr QPropertyAnimationConst -> HoppyF.Ptr M170.QVariantAnimationConst+foreign import ccall "gencast__QVariantAnimation__QPropertyAnimation" castQVariantAnimationToQPropertyAnimation :: HoppyF.Ptr M170.QVariantAnimationConst -> HoppyF.Ptr QPropertyAnimationConst+foreign import ccall "gencast__QPropertyAnimation__QAbstractAnimation" castQPropertyAnimationToQAbstractAnimation :: HoppyF.Ptr QPropertyAnimationConst -> HoppyF.Ptr M2.QAbstractAnimationConst+foreign import ccall "gencast__QAbstractAnimation__QPropertyAnimation" castQAbstractAnimationToQPropertyAnimation :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr QPropertyAnimationConst+foreign import ccall "gencast__QPropertyAnimation__QObject" castQPropertyAnimationToQObject :: HoppyF.Ptr QPropertyAnimationConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QPropertyAnimation" castQObjectToQPropertyAnimation :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QPropertyAnimationConst+foreign import ccall "gendel__QPropertyAnimation" delete'QPropertyAnimation :: HoppyF.Ptr QPropertyAnimationConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPropertyAnimation" deletePtr'QPropertyAnimation :: HoppyF.FunPtr (HoppyF.Ptr QPropertyAnimationConst -> HoppyP.IO ())++class QPropertyAnimationValue a where+  withQPropertyAnimationPtr :: a -> (QPropertyAnimationConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPropertyAnimationConstPtr a => QPropertyAnimationValue a where+  withQPropertyAnimationPtr = HoppyP.flip ($) . toQPropertyAnimationConst++class (M170.QVariantAnimationConstPtr this) => QPropertyAnimationConstPtr this where+  toQPropertyAnimationConst :: this -> QPropertyAnimationConst++propertyName :: (QPropertyAnimationValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+propertyName arg'1 =+  withQPropertyAnimationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (propertyName' arg'1')++targetObject :: (QPropertyAnimationValue this) => (this) {- ^ this -} -> (HoppyP.IO M94.QObject)+targetObject arg'1 =+  withQPropertyAnimationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M94.QObject+  (targetObject' arg'1')++class (QPropertyAnimationConstPtr this, M170.QVariantAnimationPtr this) => QPropertyAnimationPtr this where+  toQPropertyAnimation :: this -> QPropertyAnimation++setPropertyName :: (QPropertyAnimationPtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setPropertyName arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPropertyAnimation arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setPropertyName' arg'1' arg'2')++setTargetObject :: (QPropertyAnimationPtr this, M94.QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTargetObject arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPropertyAnimation arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  (setTargetObject' arg'1' arg'2')++data QPropertyAnimationConst =+    QPropertyAnimationConst (HoppyF.Ptr QPropertyAnimationConst)+  | QPropertyAnimationConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPropertyAnimationConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPropertyAnimationConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPropertyAnimationConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPropertyAnimationToConst :: QPropertyAnimation -> QPropertyAnimationConst+castQPropertyAnimationToConst (QPropertyAnimation ptr') = QPropertyAnimationConst $ HoppyF.castPtr ptr'+castQPropertyAnimationToConst (QPropertyAnimationGc fptr' ptr') = QPropertyAnimationConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPropertyAnimationConst where+  nullptr = QPropertyAnimationConst HoppyF.nullPtr+  +  withCppPtr (QPropertyAnimationConst ptr') f' = f' ptr'+  withCppPtr (QPropertyAnimationConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPropertyAnimationConst ptr') = ptr'+  toPtr (QPropertyAnimationConstGc _ ptr') = ptr'+  +  touchCppPtr (QPropertyAnimationConst _) = HoppyP.return ()+  touchCppPtr (QPropertyAnimationConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPropertyAnimationConst where+  delete (QPropertyAnimationConst ptr') = delete'QPropertyAnimation ptr'+  delete (QPropertyAnimationConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPropertyAnimationConst", " object."]+  +  toGc this'@(QPropertyAnimationConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPropertyAnimationConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPropertyAnimation :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPropertyAnimationConstGc {}) = HoppyP.return this'++instance QPropertyAnimationConstPtr QPropertyAnimationConst where+  toQPropertyAnimationConst = HoppyP.id++instance M170.QVariantAnimationConstPtr QPropertyAnimationConst where+  toQVariantAnimationConst (QPropertyAnimationConst ptr') = M170.QVariantAnimationConst $ castQPropertyAnimationToQVariantAnimation ptr'+  toQVariantAnimationConst (QPropertyAnimationConstGc fptr' ptr') = M170.QVariantAnimationConstGc fptr' $ castQPropertyAnimationToQVariantAnimation ptr'++instance M2.QAbstractAnimationConstPtr QPropertyAnimationConst where+  toQAbstractAnimationConst (QPropertyAnimationConst ptr') = M2.QAbstractAnimationConst $ castQPropertyAnimationToQAbstractAnimation ptr'+  toQAbstractAnimationConst (QPropertyAnimationConstGc fptr' ptr') = M2.QAbstractAnimationConstGc fptr' $ castQPropertyAnimationToQAbstractAnimation ptr'++instance M94.QObjectConstPtr QPropertyAnimationConst where+  toQObjectConst (QPropertyAnimationConst ptr') = M94.QObjectConst $ castQPropertyAnimationToQObject ptr'+  toQObjectConst (QPropertyAnimationConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQPropertyAnimationToQObject ptr'++data QPropertyAnimation =+    QPropertyAnimation (HoppyF.Ptr QPropertyAnimation)+  | QPropertyAnimationGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPropertyAnimation)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPropertyAnimation where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPropertyAnimation where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPropertyAnimationToNonconst :: QPropertyAnimationConst -> QPropertyAnimation+castQPropertyAnimationToNonconst (QPropertyAnimationConst ptr') = QPropertyAnimation $ HoppyF.castPtr ptr'+castQPropertyAnimationToNonconst (QPropertyAnimationConstGc fptr' ptr') = QPropertyAnimationGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPropertyAnimation where+  nullptr = QPropertyAnimation HoppyF.nullPtr+  +  withCppPtr (QPropertyAnimation ptr') f' = f' ptr'+  withCppPtr (QPropertyAnimationGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPropertyAnimation ptr') = ptr'+  toPtr (QPropertyAnimationGc _ ptr') = ptr'+  +  touchCppPtr (QPropertyAnimation _) = HoppyP.return ()+  touchCppPtr (QPropertyAnimationGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPropertyAnimation where+  delete (QPropertyAnimation ptr') = delete'QPropertyAnimation $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPropertyAnimationConst)+  delete (QPropertyAnimationGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPropertyAnimation", " object."]+  +  toGc this'@(QPropertyAnimation ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPropertyAnimationGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPropertyAnimation :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPropertyAnimationGc {}) = HoppyP.return this'++instance QPropertyAnimationConstPtr QPropertyAnimation where+  toQPropertyAnimationConst (QPropertyAnimation ptr') = QPropertyAnimationConst $ (HoppyF.castPtr :: HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr QPropertyAnimationConst) ptr'+  toQPropertyAnimationConst (QPropertyAnimationGc fptr' ptr') = QPropertyAnimationConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr QPropertyAnimationConst) ptr'++instance QPropertyAnimationPtr QPropertyAnimation where+  toQPropertyAnimation = HoppyP.id++instance M170.QVariantAnimationConstPtr QPropertyAnimation where+  toQVariantAnimationConst (QPropertyAnimation ptr') = M170.QVariantAnimationConst $ castQPropertyAnimationToQVariantAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr QPropertyAnimationConst) ptr'+  toQVariantAnimationConst (QPropertyAnimationGc fptr' ptr') = M170.QVariantAnimationConstGc fptr' $ castQPropertyAnimationToQVariantAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr QPropertyAnimationConst) ptr'++instance M170.QVariantAnimationPtr QPropertyAnimation where+  toQVariantAnimation (QPropertyAnimation ptr') = M170.QVariantAnimation $ (HoppyF.castPtr :: HoppyF.Ptr M170.QVariantAnimationConst -> HoppyF.Ptr M170.QVariantAnimation) $ castQPropertyAnimationToQVariantAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr QPropertyAnimationConst) ptr'+  toQVariantAnimation (QPropertyAnimationGc fptr' ptr') = M170.QVariantAnimationGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M170.QVariantAnimationConst -> HoppyF.Ptr M170.QVariantAnimation) $ castQPropertyAnimationToQVariantAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr QPropertyAnimationConst) ptr'++instance M2.QAbstractAnimationConstPtr QPropertyAnimation where+  toQAbstractAnimationConst (QPropertyAnimation ptr') = M2.QAbstractAnimationConst $ castQPropertyAnimationToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr QPropertyAnimationConst) ptr'+  toQAbstractAnimationConst (QPropertyAnimationGc fptr' ptr') = M2.QAbstractAnimationConstGc fptr' $ castQPropertyAnimationToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr QPropertyAnimationConst) ptr'++instance M2.QAbstractAnimationPtr QPropertyAnimation where+  toQAbstractAnimation (QPropertyAnimation ptr') = M2.QAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr M2.QAbstractAnimation) $ castQPropertyAnimationToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr QPropertyAnimationConst) ptr'+  toQAbstractAnimation (QPropertyAnimationGc fptr' ptr') = M2.QAbstractAnimationGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr M2.QAbstractAnimation) $ castQPropertyAnimationToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr QPropertyAnimationConst) ptr'++instance M94.QObjectConstPtr QPropertyAnimation where+  toQObjectConst (QPropertyAnimation ptr') = M94.QObjectConst $ castQPropertyAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr QPropertyAnimationConst) ptr'+  toQObjectConst (QPropertyAnimationGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQPropertyAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr QPropertyAnimationConst) ptr'++instance M94.QObjectPtr QPropertyAnimation where+  toQObject (QPropertyAnimation ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQPropertyAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr QPropertyAnimationConst) ptr'+  toQObject (QPropertyAnimationGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQPropertyAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPropertyAnimation -> HoppyF.Ptr QPropertyAnimationConst) ptr'++class QPropertyAnimationSuper a where+  downToQPropertyAnimation :: a -> QPropertyAnimation++instance QPropertyAnimationSuper M170.QVariantAnimation where+  downToQPropertyAnimation = castQPropertyAnimationToNonconst . cast' . M170.castQVariantAnimationToConst+    where+      cast' (M170.QVariantAnimationConst ptr') = QPropertyAnimationConst $ castQVariantAnimationToQPropertyAnimation ptr'+      cast' (M170.QVariantAnimationConstGc fptr' ptr') = QPropertyAnimationConstGc fptr' $ castQVariantAnimationToQPropertyAnimation ptr'+instance QPropertyAnimationSuper M2.QAbstractAnimation where+  downToQPropertyAnimation = castQPropertyAnimationToNonconst . cast' . M2.castQAbstractAnimationToConst+    where+      cast' (M2.QAbstractAnimationConst ptr') = QPropertyAnimationConst $ castQAbstractAnimationToQPropertyAnimation ptr'+      cast' (M2.QAbstractAnimationConstGc fptr' ptr') = QPropertyAnimationConstGc fptr' $ castQAbstractAnimationToQPropertyAnimation ptr'+instance QPropertyAnimationSuper M94.QObject where+  downToQPropertyAnimation = castQPropertyAnimationToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QPropertyAnimationConst $ castQObjectToQPropertyAnimation ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QPropertyAnimationConstGc fptr' $ castQObjectToQPropertyAnimation ptr'++class QPropertyAnimationSuperConst a where+  downToQPropertyAnimationConst :: a -> QPropertyAnimationConst++instance QPropertyAnimationSuperConst M170.QVariantAnimationConst where+  downToQPropertyAnimationConst = cast'+    where+      cast' (M170.QVariantAnimationConst ptr') = QPropertyAnimationConst $ castQVariantAnimationToQPropertyAnimation ptr'+      cast' (M170.QVariantAnimationConstGc fptr' ptr') = QPropertyAnimationConstGc fptr' $ castQVariantAnimationToQPropertyAnimation ptr'+instance QPropertyAnimationSuperConst M2.QAbstractAnimationConst where+  downToQPropertyAnimationConst = cast'+    where+      cast' (M2.QAbstractAnimationConst ptr') = QPropertyAnimationConst $ castQAbstractAnimationToQPropertyAnimation ptr'+      cast' (M2.QAbstractAnimationConstGc fptr' ptr') = QPropertyAnimationConstGc fptr' $ castQAbstractAnimationToQPropertyAnimation ptr'+instance QPropertyAnimationSuperConst M94.QObjectConst where+  downToQPropertyAnimationConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QPropertyAnimationConst $ castQObjectToQPropertyAnimation ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QPropertyAnimationConstGc fptr' $ castQObjectToQPropertyAnimation ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPropertyAnimation)) QPropertyAnimation where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPropertyAnimation)) QPropertyAnimation where+  decode = HoppyP.fmap QPropertyAnimation . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QRandomGenerator.hs view
@@ -0,0 +1,371 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QRandomGenerator (+  QRandomGeneratorValue (..),+  QRandomGeneratorConstPtr (..),+  eQ,+  nE,+  QRandomGeneratorPtr (..),+  boundedWithDouble,+  boundedWithQuint,+  boundedWirhQuints,+  boundedWithInt,+  boundedWithInts,+  discard,+  fillRange,+  generate64,+  generate,+  generateDouble,+  seed,+  seedWithQuint,+  cALL,+  aSSIGN,+  global,+  max,+  min,+  securelySeeded,+  system,+  QRandomGeneratorConst (..),+  castQRandomGeneratorToConst,+  QRandomGenerator (..),+  castQRandomGeneratorToNonconst,+  newWithQuints,+  newWithQuintQsizetype,+  new,+  newWithQuint,+  newCopy,+  QRandomGeneratorSuper (..),+  QRandomGeneratorSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Data.Word as HoppyDW+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified System.Posix.Types as HoppySPT++foreign import ccall "genpop__QRandomGenerator_newWithQuints" newWithQuints' ::  HoppyF.Ptr HoppyDW.Word32 -> HoppyF.Ptr HoppyDW.Word32 -> HoppyP.IO (HoppyF.Ptr QRandomGenerator)+foreign import ccall "genpop__QRandomGenerator_newWithQuintQsizetype" newWithQuintQsizetype' ::  HoppyF.Ptr HoppyDW.Word32 -> HoppySPT.CSsize -> HoppyP.IO (HoppyF.Ptr QRandomGenerator)+foreign import ccall "genpop__QRandomGenerator_new" new' ::  HoppyP.IO (HoppyF.Ptr QRandomGenerator)+foreign import ccall "genpop__QRandomGenerator_newWithQuint" newWithQuint' ::  HoppyDW.Word32 -> HoppyP.IO (HoppyF.Ptr QRandomGenerator)+foreign import ccall "genpop__QRandomGenerator_newCopy" newCopy' ::  HoppyF.Ptr QRandomGeneratorConst -> HoppyP.IO (HoppyF.Ptr QRandomGenerator)+foreign import ccall "genpop__QRandomGenerator_boundedWithDouble" boundedWithDouble' ::  HoppyF.Ptr QRandomGenerator -> HoppyFC.CDouble -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QRandomGenerator_boundedWithQuint" boundedWithQuint' ::  HoppyF.Ptr QRandomGenerator -> HoppyDW.Word32 -> HoppyP.IO HoppyDW.Word32+foreign import ccall "genpop__QRandomGenerator_boundedWirhQuints" boundedWirhQuints' ::  HoppyF.Ptr QRandomGenerator -> HoppyDW.Word32 -> HoppyDW.Word32 -> HoppyP.IO HoppyDW.Word32+foreign import ccall "genpop__QRandomGenerator_boundedWithInt" boundedWithInt' ::  HoppyF.Ptr QRandomGenerator -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QRandomGenerator_boundedWithInts" boundedWithInts' ::  HoppyF.Ptr QRandomGenerator -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QRandomGenerator_discard" discard' ::  HoppyF.Ptr QRandomGenerator -> HoppyFC.CULLong -> HoppyP.IO ()+foreign import ccall "genpop__QRandomGenerator_fillRange" fillRange' ::  HoppyF.Ptr QRandomGenerator -> HoppyF.Ptr HoppyFC.CUInt -> HoppySPT.CSsize -> HoppyP.IO ()+foreign import ccall "genpop__QRandomGenerator_generate64" generate64' ::  HoppyF.Ptr QRandomGenerator -> HoppyP.IO HoppyDW.Word64+foreign import ccall "genpop__QRandomGenerator_generate" generate' ::  HoppyF.Ptr QRandomGenerator -> HoppyP.IO HoppyDW.Word32+foreign import ccall "genpop__QRandomGenerator_generateDouble" generateDouble' ::  HoppyF.Ptr QRandomGenerator -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QRandomGenerator_global" global' ::  HoppyP.IO (HoppyF.Ptr QRandomGenerator)+foreign import ccall "genpop__QRandomGenerator_max" max' ::  HoppyP.IO HoppyDW.Word32+foreign import ccall "genpop__QRandomGenerator_min" min' ::  HoppyP.IO HoppyDW.Word32+foreign import ccall "genpop__QRandomGenerator_securelySeeded" securelySeeded' ::  HoppyP.IO (HoppyF.Ptr QRandomGeneratorConst)+foreign import ccall "genpop__QRandomGenerator_seed" seed' ::  HoppyF.Ptr QRandomGenerator -> HoppyP.IO ()+foreign import ccall "genpop__QRandomGenerator_seedWithQuint" seedWithQuint' ::  HoppyF.Ptr QRandomGenerator -> HoppyDW.Word32 -> HoppyP.IO ()+foreign import ccall "genpop__QRandomGenerator_system" system' ::  HoppyP.IO (HoppyF.Ptr QRandomGenerator)+foreign import ccall "genpop__QRandomGenerator_CALL" cALL' ::  HoppyF.Ptr QRandomGenerator -> HoppyP.IO HoppyDW.Word32+foreign import ccall "genpop__QRandomGenerator_EQ" eQ' ::  HoppyF.Ptr QRandomGeneratorConst -> HoppyF.Ptr QRandomGeneratorConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRandomGenerator_NE" nE' ::  HoppyF.Ptr QRandomGeneratorConst -> HoppyF.Ptr QRandomGeneratorConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRandomGenerator_ASSIGN" aSSIGN' ::  HoppyF.Ptr QRandomGenerator -> HoppyF.Ptr QRandomGeneratorConst -> HoppyP.IO (HoppyF.Ptr QRandomGenerator)+foreign import ccall "gendel__QRandomGenerator" delete'QRandomGenerator :: HoppyF.Ptr QRandomGeneratorConst -> HoppyP.IO ()+foreign import ccall "&gendel__QRandomGenerator" deletePtr'QRandomGenerator :: HoppyF.FunPtr (HoppyF.Ptr QRandomGeneratorConst -> HoppyP.IO ())++class QRandomGeneratorValue a where+  withQRandomGeneratorPtr :: a -> (QRandomGeneratorConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QRandomGeneratorConstPtr a => QRandomGeneratorValue a where+  withQRandomGeneratorPtr = HoppyP.flip ($) . toQRandomGeneratorConst++class (HoppyFHR.CppPtr this) => QRandomGeneratorConstPtr this where+  toQRandomGeneratorConst :: this -> QRandomGeneratorConst++eQ :: (QRandomGeneratorValue this, QRandomGeneratorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQRandomGeneratorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRandomGeneratorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QRandomGeneratorValue this, QRandomGeneratorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQRandomGeneratorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRandomGeneratorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QRandomGeneratorConstPtr this) => QRandomGeneratorPtr this where+  toQRandomGenerator :: this -> QRandomGenerator++boundedWithDouble :: (QRandomGeneratorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO HoppyP.Double)+boundedWithDouble arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRandomGenerator arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (boundedWithDouble' arg'1' arg'2')++boundedWithQuint :: (QRandomGeneratorPtr this) => (this) {- ^ this -} -> (HoppyDW.Word32) -> (HoppyP.IO HoppyDW.Word32)+boundedWithQuint arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRandomGenerator arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (boundedWithQuint' arg'1' arg'2')++boundedWirhQuints :: (QRandomGeneratorPtr this) => (this) {- ^ this -} -> (HoppyDW.Word32) -> (HoppyDW.Word32) -> (HoppyP.IO HoppyDW.Word32)+boundedWirhQuints arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQRandomGenerator arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  (boundedWirhQuints' arg'1' arg'2' arg'3')++boundedWithInt :: (QRandomGeneratorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+boundedWithInt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRandomGenerator arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (boundedWithInt' arg'1' arg'2')++boundedWithInts :: (QRandomGeneratorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+boundedWithInts arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQRandomGenerator arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (boundedWithInts' arg'1' arg'2' arg'3')++discard :: (QRandomGeneratorPtr this) => (this) {- ^ this -} -> (HoppyFC.CULLong) -> (HoppyP.IO ())+discard arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRandomGenerator arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (discard' arg'1' arg'2')++fillRange :: (QRandomGeneratorPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CUInt) -> (HoppySPT.CSsize) -> (HoppyP.IO ())+fillRange arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQRandomGenerator arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  (fillRange' arg'1' arg'2' arg'3')++generate64 :: (QRandomGeneratorPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDW.Word64)+generate64 arg'1 =+  HoppyFHR.withCppPtr (toQRandomGenerator arg'1) $ \arg'1' ->+  (generate64' arg'1')++generate :: (QRandomGeneratorPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDW.Word32)+generate arg'1 =+  HoppyFHR.withCppPtr (toQRandomGenerator arg'1) $ \arg'1' ->+  (generate' arg'1')++generateDouble :: (QRandomGeneratorPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+generateDouble arg'1 =+  HoppyFHR.withCppPtr (toQRandomGenerator arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (generateDouble' arg'1')++seed :: (QRandomGeneratorPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+seed arg'1 =+  HoppyFHR.withCppPtr (toQRandomGenerator arg'1) $ \arg'1' ->+  (seed' arg'1')++seedWithQuint :: (QRandomGeneratorPtr this) => (this) {- ^ this -} -> (HoppyDW.Word32) -> (HoppyP.IO ())+seedWithQuint arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRandomGenerator arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (seedWithQuint' arg'1' arg'2')++cALL :: (QRandomGeneratorPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDW.Word32)+cALL arg'1 =+  HoppyFHR.withCppPtr (toQRandomGenerator arg'1) $ \arg'1' ->+  (cALL' arg'1')++aSSIGN :: (QRandomGeneratorPtr this, QRandomGeneratorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRandomGenerator)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRandomGenerator arg'1) $ \arg'1' ->+  withQRandomGeneratorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QRandomGenerator+  (aSSIGN' arg'1' arg'2')++global :: (HoppyP.IO QRandomGenerator)+global =+  HoppyP.fmap QRandomGenerator+  (global')++max :: (HoppyP.IO HoppyDW.Word32)+max =+  (max')++min :: (HoppyP.IO HoppyDW.Word32)+min =+  (min')++securelySeeded :: (HoppyP.IO QRandomGenerator)+securelySeeded =+  (HoppyFHR.decodeAndDelete . QRandomGeneratorConst) =<<+  (securelySeeded')++system :: (HoppyP.IO QRandomGenerator)+system =+  HoppyP.fmap QRandomGenerator+  (system')++data QRandomGeneratorConst =+    QRandomGeneratorConst (HoppyF.Ptr QRandomGeneratorConst)+  | QRandomGeneratorConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QRandomGeneratorConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QRandomGeneratorConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QRandomGeneratorConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQRandomGeneratorToConst :: QRandomGenerator -> QRandomGeneratorConst+castQRandomGeneratorToConst (QRandomGenerator ptr') = QRandomGeneratorConst $ HoppyF.castPtr ptr'+castQRandomGeneratorToConst (QRandomGeneratorGc fptr' ptr') = QRandomGeneratorConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QRandomGeneratorConst where+  nullptr = QRandomGeneratorConst HoppyF.nullPtr+  +  withCppPtr (QRandomGeneratorConst ptr') f' = f' ptr'+  withCppPtr (QRandomGeneratorConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QRandomGeneratorConst ptr') = ptr'+  toPtr (QRandomGeneratorConstGc _ ptr') = ptr'+  +  touchCppPtr (QRandomGeneratorConst _) = HoppyP.return ()+  touchCppPtr (QRandomGeneratorConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QRandomGeneratorConst where+  delete (QRandomGeneratorConst ptr') = delete'QRandomGenerator ptr'+  delete (QRandomGeneratorConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QRandomGeneratorConst", " object."]+  +  toGc this'@(QRandomGeneratorConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QRandomGeneratorConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QRandomGenerator :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QRandomGeneratorConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QRandomGeneratorConst QRandomGenerator where copy = newCopy++instance QRandomGeneratorConstPtr QRandomGeneratorConst where+  toQRandomGeneratorConst = HoppyP.id++data QRandomGenerator =+    QRandomGenerator (HoppyF.Ptr QRandomGenerator)+  | QRandomGeneratorGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QRandomGenerator)+  deriving (HoppyP.Show)++instance HoppyP.Eq QRandomGenerator where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QRandomGenerator where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQRandomGeneratorToNonconst :: QRandomGeneratorConst -> QRandomGenerator+castQRandomGeneratorToNonconst (QRandomGeneratorConst ptr') = QRandomGenerator $ HoppyF.castPtr ptr'+castQRandomGeneratorToNonconst (QRandomGeneratorConstGc fptr' ptr') = QRandomGeneratorGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QRandomGenerator where+  nullptr = QRandomGenerator HoppyF.nullPtr+  +  withCppPtr (QRandomGenerator ptr') f' = f' ptr'+  withCppPtr (QRandomGeneratorGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QRandomGenerator ptr') = ptr'+  toPtr (QRandomGeneratorGc _ ptr') = ptr'+  +  touchCppPtr (QRandomGenerator _) = HoppyP.return ()+  touchCppPtr (QRandomGeneratorGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QRandomGenerator where+  delete (QRandomGenerator ptr') = delete'QRandomGenerator $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QRandomGeneratorConst)+  delete (QRandomGeneratorGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QRandomGenerator", " object."]+  +  toGc this'@(QRandomGenerator ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QRandomGeneratorGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QRandomGenerator :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QRandomGeneratorGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QRandomGenerator QRandomGenerator where copy = newCopy++instance QRandomGeneratorConstPtr QRandomGenerator where+  toQRandomGeneratorConst (QRandomGenerator ptr') = QRandomGeneratorConst $ (HoppyF.castPtr :: HoppyF.Ptr QRandomGenerator -> HoppyF.Ptr QRandomGeneratorConst) ptr'+  toQRandomGeneratorConst (QRandomGeneratorGc fptr' ptr') = QRandomGeneratorConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QRandomGenerator -> HoppyF.Ptr QRandomGeneratorConst) ptr'++instance QRandomGeneratorPtr QRandomGenerator where+  toQRandomGenerator = HoppyP.id++newWithQuints :: (HoppyF.Ptr HoppyDW.Word32) -> (HoppyF.Ptr HoppyDW.Word32) -> (HoppyP.IO QRandomGenerator)+newWithQuints arg'1 arg'2 =+  let arg'1' = arg'1 in+  let arg'2' = arg'2 in+  HoppyP.fmap QRandomGenerator+  (newWithQuints' arg'1' arg'2')++newWithQuintQsizetype :: (HoppyF.Ptr HoppyDW.Word32) -> (HoppySPT.CSsize) -> (HoppyP.IO QRandomGenerator)+newWithQuintQsizetype arg'1 arg'2 =+  let arg'1' = arg'1 in+  let arg'2' = arg'2 in+  HoppyP.fmap QRandomGenerator+  (newWithQuintQsizetype' arg'1' arg'2')++new :: (HoppyP.IO QRandomGenerator)+new =+  HoppyP.fmap QRandomGenerator+  (new')++newWithQuint :: (HoppyDW.Word32) -> (HoppyP.IO QRandomGenerator)+newWithQuint arg'1 =+  let arg'1' = arg'1 in+  HoppyP.fmap QRandomGenerator+  (newWithQuint' arg'1')++newCopy :: (QRandomGeneratorValue arg'1) => (arg'1) -> (HoppyP.IO QRandomGenerator)+newCopy arg'1 =+  withQRandomGeneratorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QRandomGenerator+  (newCopy' arg'1')++class QRandomGeneratorSuper a where+  downToQRandomGenerator :: a -> QRandomGenerator+++class QRandomGeneratorSuperConst a where+  downToQRandomGeneratorConst :: a -> QRandomGeneratorConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QRandomGenerator)) QRandomGenerator where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QRandomGeneratorValue a => HoppyFHR.Assignable QRandomGenerator a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QRandomGenerator)) QRandomGenerator where+  decode = HoppyP.fmap QRandomGenerator . HoppyF.peek++instance HoppyFHR.Decodable QRandomGenerator (QRandomGenerator) where+  decode = HoppyFHR.decode . toQRandomGeneratorConst++instance HoppyFHR.Decodable QRandomGeneratorConst (QRandomGenerator) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QRandomGenerator64.hs view
@@ -0,0 +1,257 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QRandomGenerator64 (+  castQRandomGenerator64ToQRandomGenerator,+  QRandomGenerator64Value (..),+  QRandomGenerator64ConstPtr (..),+  eQ,+  nE,+  QRandomGenerator64Ptr (..),+  generate,+  cALL,+  aSSIGN,+  max,+  min,+  QRandomGenerator64Const (..),+  castQRandomGenerator64ToConst,+  QRandomGenerator64 (..),+  castQRandomGenerator64ToNonconst,+  newWithQuints,+  newWithQuintQsizetype,+  new,+  newWithQuint,+  newCopy,+  QRandomGenerator64Super (..),+  QRandomGenerator64SuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Data.Word as HoppyDW+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QRandomGenerator as M118+import Prelude (($), (.), (/=), (=<<), (==), (>>))+import qualified Prelude as HoppyP+import qualified System.Posix.Types as HoppySPT++foreign import ccall "genpop__QRandomGenerator64_newWithQuints" newWithQuints' ::  HoppyF.Ptr HoppyDW.Word32 -> HoppyF.Ptr HoppyDW.Word32 -> HoppyP.IO (HoppyF.Ptr QRandomGenerator64)+foreign import ccall "genpop__QRandomGenerator64_newWithQuintQsizetype" newWithQuintQsizetype' ::  HoppyF.Ptr HoppyDW.Word32 -> HoppySPT.CSsize -> HoppyP.IO (HoppyF.Ptr QRandomGenerator64)+foreign import ccall "genpop__QRandomGenerator64_new" new' ::  HoppyP.IO (HoppyF.Ptr QRandomGenerator64)+foreign import ccall "genpop__QRandomGenerator64_newWithQuint" newWithQuint' ::  HoppyDW.Word32 -> HoppyP.IO (HoppyF.Ptr QRandomGenerator64)+foreign import ccall "genpop__QRandomGenerator64_newCopy" newCopy' ::  HoppyF.Ptr QRandomGenerator64Const -> HoppyP.IO (HoppyF.Ptr QRandomGenerator64)+foreign import ccall "genpop__QRandomGenerator64_generate" generate' ::  HoppyF.Ptr QRandomGenerator64 -> HoppyP.IO HoppyDW.Word64+foreign import ccall "genpop__QRandomGenerator64_max" max' ::  HoppyP.IO HoppyDW.Word64+foreign import ccall "genpop__QRandomGenerator64_min" min' ::  HoppyP.IO HoppyDW.Word64+foreign import ccall "genpop__QRandomGenerator64_CALL" cALL' ::  HoppyF.Ptr QRandomGenerator64 -> HoppyP.IO HoppyDW.Word64+foreign import ccall "genpop__QRandomGenerator64_EQ" eQ' ::  HoppyF.Ptr QRandomGenerator64Const -> HoppyF.Ptr QRandomGenerator64Const -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRandomGenerator64_NE" nE' ::  HoppyF.Ptr QRandomGenerator64Const -> HoppyF.Ptr QRandomGenerator64Const -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRandomGenerator64_ASSIGN" aSSIGN' ::  HoppyF.Ptr QRandomGenerator64 -> HoppyF.Ptr QRandomGenerator64Const -> HoppyP.IO (HoppyF.Ptr QRandomGenerator64)+foreign import ccall "gencast__QRandomGenerator64__QRandomGenerator" castQRandomGenerator64ToQRandomGenerator :: HoppyF.Ptr QRandomGenerator64Const -> HoppyF.Ptr M118.QRandomGeneratorConst+foreign import ccall "gendel__QRandomGenerator64" delete'QRandomGenerator64 :: HoppyF.Ptr QRandomGenerator64Const -> HoppyP.IO ()+foreign import ccall "&gendel__QRandomGenerator64" deletePtr'QRandomGenerator64 :: HoppyF.FunPtr (HoppyF.Ptr QRandomGenerator64Const -> HoppyP.IO ())++class QRandomGenerator64Value a where+  withQRandomGenerator64Ptr :: a -> (QRandomGenerator64Const -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QRandomGenerator64ConstPtr a => QRandomGenerator64Value a where+  withQRandomGenerator64Ptr = HoppyP.flip ($) . toQRandomGenerator64Const++class (M118.QRandomGeneratorConstPtr this) => QRandomGenerator64ConstPtr this where+  toQRandomGenerator64Const :: this -> QRandomGenerator64Const++eQ :: (QRandomGenerator64Value this, QRandomGenerator64Value arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQRandomGenerator64Ptr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRandomGenerator64Ptr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QRandomGenerator64Value this, QRandomGenerator64Value arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQRandomGenerator64Ptr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRandomGenerator64Ptr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QRandomGenerator64ConstPtr this, M118.QRandomGeneratorPtr this) => QRandomGenerator64Ptr this where+  toQRandomGenerator64 :: this -> QRandomGenerator64++generate :: (QRandomGenerator64Ptr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDW.Word64)+generate arg'1 =+  HoppyFHR.withCppPtr (toQRandomGenerator64 arg'1) $ \arg'1' ->+  (generate' arg'1')++cALL :: (QRandomGenerator64Ptr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDW.Word64)+cALL arg'1 =+  HoppyFHR.withCppPtr (toQRandomGenerator64 arg'1) $ \arg'1' ->+  (cALL' arg'1')++aSSIGN :: (QRandomGenerator64Ptr this, QRandomGenerator64Value arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRandomGenerator64)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRandomGenerator64 arg'1) $ \arg'1' ->+  withQRandomGenerator64Ptr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QRandomGenerator64+  (aSSIGN' arg'1' arg'2')++max :: (HoppyP.IO HoppyDW.Word64)+max =+  (max')++min :: (HoppyP.IO HoppyDW.Word64)+min =+  (min')++data QRandomGenerator64Const =+    QRandomGenerator64Const (HoppyF.Ptr QRandomGenerator64Const)+  | QRandomGenerator64ConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QRandomGenerator64Const)+  deriving (HoppyP.Show)++instance HoppyP.Eq QRandomGenerator64Const where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QRandomGenerator64Const where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQRandomGenerator64ToConst :: QRandomGenerator64 -> QRandomGenerator64Const+castQRandomGenerator64ToConst (QRandomGenerator64 ptr') = QRandomGenerator64Const $ HoppyF.castPtr ptr'+castQRandomGenerator64ToConst (QRandomGenerator64Gc fptr' ptr') = QRandomGenerator64ConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QRandomGenerator64Const where+  nullptr = QRandomGenerator64Const HoppyF.nullPtr+  +  withCppPtr (QRandomGenerator64Const ptr') f' = f' ptr'+  withCppPtr (QRandomGenerator64ConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QRandomGenerator64Const ptr') = ptr'+  toPtr (QRandomGenerator64ConstGc _ ptr') = ptr'+  +  touchCppPtr (QRandomGenerator64Const _) = HoppyP.return ()+  touchCppPtr (QRandomGenerator64ConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QRandomGenerator64Const where+  delete (QRandomGenerator64Const ptr') = delete'QRandomGenerator64 ptr'+  delete (QRandomGenerator64ConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QRandomGenerator64Const", " object."]+  +  toGc this'@(QRandomGenerator64Const ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QRandomGenerator64ConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QRandomGenerator64 :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QRandomGenerator64ConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QRandomGenerator64Const QRandomGenerator64 where copy = newCopy++instance QRandomGenerator64ConstPtr QRandomGenerator64Const where+  toQRandomGenerator64Const = HoppyP.id++instance M118.QRandomGeneratorConstPtr QRandomGenerator64Const where+  toQRandomGeneratorConst (QRandomGenerator64Const ptr') = M118.QRandomGeneratorConst $ castQRandomGenerator64ToQRandomGenerator ptr'+  toQRandomGeneratorConst (QRandomGenerator64ConstGc fptr' ptr') = M118.QRandomGeneratorConstGc fptr' $ castQRandomGenerator64ToQRandomGenerator ptr'++data QRandomGenerator64 =+    QRandomGenerator64 (HoppyF.Ptr QRandomGenerator64)+  | QRandomGenerator64Gc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QRandomGenerator64)+  deriving (HoppyP.Show)++instance HoppyP.Eq QRandomGenerator64 where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QRandomGenerator64 where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQRandomGenerator64ToNonconst :: QRandomGenerator64Const -> QRandomGenerator64+castQRandomGenerator64ToNonconst (QRandomGenerator64Const ptr') = QRandomGenerator64 $ HoppyF.castPtr ptr'+castQRandomGenerator64ToNonconst (QRandomGenerator64ConstGc fptr' ptr') = QRandomGenerator64Gc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QRandomGenerator64 where+  nullptr = QRandomGenerator64 HoppyF.nullPtr+  +  withCppPtr (QRandomGenerator64 ptr') f' = f' ptr'+  withCppPtr (QRandomGenerator64Gc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QRandomGenerator64 ptr') = ptr'+  toPtr (QRandomGenerator64Gc _ ptr') = ptr'+  +  touchCppPtr (QRandomGenerator64 _) = HoppyP.return ()+  touchCppPtr (QRandomGenerator64Gc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QRandomGenerator64 where+  delete (QRandomGenerator64 ptr') = delete'QRandomGenerator64 $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QRandomGenerator64Const)+  delete (QRandomGenerator64Gc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QRandomGenerator64", " object."]+  +  toGc this'@(QRandomGenerator64 ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QRandomGenerator64Gc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QRandomGenerator64 :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QRandomGenerator64Gc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QRandomGenerator64 QRandomGenerator64 where copy = newCopy++instance QRandomGenerator64ConstPtr QRandomGenerator64 where+  toQRandomGenerator64Const (QRandomGenerator64 ptr') = QRandomGenerator64Const $ (HoppyF.castPtr :: HoppyF.Ptr QRandomGenerator64 -> HoppyF.Ptr QRandomGenerator64Const) ptr'+  toQRandomGenerator64Const (QRandomGenerator64Gc fptr' ptr') = QRandomGenerator64ConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QRandomGenerator64 -> HoppyF.Ptr QRandomGenerator64Const) ptr'++instance QRandomGenerator64Ptr QRandomGenerator64 where+  toQRandomGenerator64 = HoppyP.id++instance M118.QRandomGeneratorConstPtr QRandomGenerator64 where+  toQRandomGeneratorConst (QRandomGenerator64 ptr') = M118.QRandomGeneratorConst $ castQRandomGenerator64ToQRandomGenerator $ (HoppyF.castPtr :: HoppyF.Ptr QRandomGenerator64 -> HoppyF.Ptr QRandomGenerator64Const) ptr'+  toQRandomGeneratorConst (QRandomGenerator64Gc fptr' ptr') = M118.QRandomGeneratorConstGc fptr' $ castQRandomGenerator64ToQRandomGenerator $ (HoppyF.castPtr :: HoppyF.Ptr QRandomGenerator64 -> HoppyF.Ptr QRandomGenerator64Const) ptr'++instance M118.QRandomGeneratorPtr QRandomGenerator64 where+  toQRandomGenerator (QRandomGenerator64 ptr') = M118.QRandomGenerator $ (HoppyF.castPtr :: HoppyF.Ptr M118.QRandomGeneratorConst -> HoppyF.Ptr M118.QRandomGenerator) $ castQRandomGenerator64ToQRandomGenerator $ (HoppyF.castPtr :: HoppyF.Ptr QRandomGenerator64 -> HoppyF.Ptr QRandomGenerator64Const) ptr'+  toQRandomGenerator (QRandomGenerator64Gc fptr' ptr') = M118.QRandomGeneratorGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M118.QRandomGeneratorConst -> HoppyF.Ptr M118.QRandomGenerator) $ castQRandomGenerator64ToQRandomGenerator $ (HoppyF.castPtr :: HoppyF.Ptr QRandomGenerator64 -> HoppyF.Ptr QRandomGenerator64Const) ptr'++newWithQuints :: (HoppyF.Ptr HoppyDW.Word32) -> (HoppyF.Ptr HoppyDW.Word32) -> (HoppyP.IO QRandomGenerator64)+newWithQuints arg'1 arg'2 =+  let arg'1' = arg'1 in+  let arg'2' = arg'2 in+  HoppyP.fmap QRandomGenerator64+  (newWithQuints' arg'1' arg'2')++newWithQuintQsizetype :: (HoppyF.Ptr HoppyDW.Word32) -> (HoppySPT.CSsize) -> (HoppyP.IO QRandomGenerator64)+newWithQuintQsizetype arg'1 arg'2 =+  let arg'1' = arg'1 in+  let arg'2' = arg'2 in+  HoppyP.fmap QRandomGenerator64+  (newWithQuintQsizetype' arg'1' arg'2')++new :: (HoppyP.IO QRandomGenerator64)+new =+  HoppyP.fmap QRandomGenerator64+  (new')++newWithQuint :: (HoppyDW.Word32) -> (HoppyP.IO QRandomGenerator64)+newWithQuint arg'1 =+  let arg'1' = arg'1 in+  HoppyP.fmap QRandomGenerator64+  (newWithQuint' arg'1')++newCopy :: (QRandomGenerator64Value arg'1) => (arg'1) -> (HoppyP.IO QRandomGenerator64)+newCopy arg'1 =+  withQRandomGenerator64Ptr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QRandomGenerator64+  (newCopy' arg'1')++class QRandomGenerator64Super a where+  downToQRandomGenerator64 :: a -> QRandomGenerator64+++class QRandomGenerator64SuperConst a where+  downToQRandomGenerator64Const :: a -> QRandomGenerator64Const+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QRandomGenerator64)) QRandomGenerator64 where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QRandomGenerator64Value a => HoppyFHR.Assignable QRandomGenerator64 a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QRandomGenerator64)) QRandomGenerator64 where+  decode = HoppyP.fmap QRandomGenerator64 . HoppyF.peek++instance HoppyFHR.Decodable QRandomGenerator64 (QRandomGenerator64) where+  decode = HoppyFHR.decode . toQRandomGenerator64Const++instance HoppyFHR.Decodable QRandomGenerator64Const (QRandomGenerator64) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QRect.hs view
@@ -0,0 +1,784 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QRect (+  QRectValue (..),+  QRectConstPtr (..),+  adjusted,+  bottom,+  bottomLeft,+  bottomRight,+  center,+  containsPoint,+  containsRect,+  height,+  intersected,+  intersects,+  isEmpty,+  isNull,+  isValid,+  left,+  marginsAdded,+  marginsRemoved,+  normalized,+  right,+  size,+  top,+  topLeft,+  topRight,+  translated,+  width,+  x,+  y,+  eQ,+  nE,+  QRectPtr (..),+  adjust,+  setBottom,+  setBottomLeft,+  setBottomRight,+  setHeight,+  setLeft,+  moveBottom,+  moveBottomLeft,+  moveBottomRight,+  moveCenter,+  moveLeft,+  moveRight,+  moveTo,+  moveTop,+  moveTopLeft,+  moveTopRight,+  setRight,+  setCoords,+  setRect,+  setSize,+  setTop,+  setTopLeft,+  setTopRight,+  translate,+  united,+  setWidth,+  setX,+  setY,+  aSSIGN,+  QRectConst (..),+  castQRectToConst,+  QRect (..),+  castQRectToNonconst,+  newNull,+  newWithPoints,+  newWithPointAndSize,+  newWithRaw,+  newCopy,+  QRectSuper (..),+  QRectSuperConst (..),+  ) where++import Control.Applicative ((<$>), (<*>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Core.HPoint as HPoint+import qualified Graphics.UI.Qtah.Core.HRect as HRect+import qualified Graphics.UI.Qtah.Core.HSize as HSize+import qualified Graphics.UI.Qtah.Generated.Core.QMargins as M68+import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114+import qualified Graphics.UI.Qtah.Generated.Core.QSize as M134+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QRect_newNull" newNull' ::  HoppyP.IO (HoppyF.Ptr QRect)+foreign import ccall "genpop__QRect_newWithPoints" newWithPoints' ::  HoppyF.Ptr M114.QPointConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr QRect)+foreign import ccall "genpop__QRect_newWithPointAndSize" newWithPointAndSize' ::  HoppyF.Ptr M114.QPointConst -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO (HoppyF.Ptr QRect)+foreign import ccall "genpop__QRect_newWithRaw" newWithRaw' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QRect)+foreign import ccall "genpop__QRect_newCopy" newCopy' ::  HoppyF.Ptr QRectConst -> HoppyP.IO (HoppyF.Ptr QRect)+foreign import ccall "genpop__QRect_adjust" adjust' ::  HoppyF.Ptr QRect -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRect_adjusted" adjusted' ::  HoppyF.Ptr QRectConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QRectConst)+foreign import ccall "genpop__QRect_bottom" bottom' ::  HoppyF.Ptr QRectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QRect_setBottom" setBottom' ::  HoppyF.Ptr QRect -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRect_bottomLeft" bottomLeft' ::  HoppyF.Ptr QRectConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QRect_setBottomLeft" setBottomLeft' ::  HoppyF.Ptr QRect -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QRect_bottomRight" bottomRight' ::  HoppyF.Ptr QRectConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QRect_setBottomRight" setBottomRight' ::  HoppyF.Ptr QRect -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QRect_center" center' ::  HoppyF.Ptr QRectConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QRect_containsPoint" containsPoint' ::  HoppyF.Ptr QRectConst -> HoppyF.Ptr M114.QPointConst -> HoppyFC.CBool -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRect_containsRect" containsRect' ::  HoppyF.Ptr QRectConst -> HoppyF.Ptr QRectConst -> HoppyFC.CBool -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRect_height" height' ::  HoppyF.Ptr QRectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QRect_setHeight" setHeight' ::  HoppyF.Ptr QRect -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRect_intersected" intersected' ::  HoppyF.Ptr QRectConst -> HoppyF.Ptr QRectConst -> HoppyP.IO (HoppyF.Ptr QRectConst)+foreign import ccall "genpop__QRect_intersects" intersects' ::  HoppyF.Ptr QRectConst -> HoppyF.Ptr QRectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRect_isEmpty" isEmpty' ::  HoppyF.Ptr QRectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRect_isNull" isNull' ::  HoppyF.Ptr QRectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRect_isValid" isValid' ::  HoppyF.Ptr QRectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRect_left" left' ::  HoppyF.Ptr QRectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QRect_setLeft" setLeft' ::  HoppyF.Ptr QRect -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRect_marginsAdded" marginsAdded' ::  HoppyF.Ptr QRectConst -> HoppyF.Ptr M68.QMarginsConst -> HoppyP.IO (HoppyF.Ptr QRectConst)+foreign import ccall "genpop__QRect_marginsRemoved" marginsRemoved' ::  HoppyF.Ptr QRectConst -> HoppyF.Ptr M68.QMarginsConst -> HoppyP.IO (HoppyF.Ptr QRectConst)+foreign import ccall "genpop__QRect_moveBottom" moveBottom' ::  HoppyF.Ptr QRect -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRect_moveBottomLeft" moveBottomLeft' ::  HoppyF.Ptr QRect -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QRect_moveBottomRight" moveBottomRight' ::  HoppyF.Ptr QRect -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QRect_moveCenter" moveCenter' ::  HoppyF.Ptr QRect -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QRect_moveLeft" moveLeft' ::  HoppyF.Ptr QRect -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRect_moveRight" moveRight' ::  HoppyF.Ptr QRect -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRect_moveTo" moveTo' ::  HoppyF.Ptr QRect -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QRect_moveTop" moveTop' ::  HoppyF.Ptr QRect -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRect_moveTopLeft" moveTopLeft' ::  HoppyF.Ptr QRect -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QRect_moveTopRight" moveTopRight' ::  HoppyF.Ptr QRect -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QRect_normalized" normalized' ::  HoppyF.Ptr QRectConst -> HoppyP.IO (HoppyF.Ptr QRectConst)+foreign import ccall "genpop__QRect_right" right' ::  HoppyF.Ptr QRectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QRect_setRight" setRight' ::  HoppyF.Ptr QRect -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRect_setCoords" setCoords' ::  HoppyF.Ptr QRect -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRect_setRect" setRect' ::  HoppyF.Ptr QRect -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRect_size" size' ::  HoppyF.Ptr QRectConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QRect_setSize" setSize' ::  HoppyF.Ptr QRect -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QRect_top" top' ::  HoppyF.Ptr QRectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QRect_setTop" setTop' ::  HoppyF.Ptr QRect -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRect_topLeft" topLeft' ::  HoppyF.Ptr QRectConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QRect_setTopLeft" setTopLeft' ::  HoppyF.Ptr QRect -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QRect_topRight" topRight' ::  HoppyF.Ptr QRectConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QRect_setTopRight" setTopRight' ::  HoppyF.Ptr QRect -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QRect_translate" translate' ::  HoppyF.Ptr QRect -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QRect_translated" translated' ::  HoppyF.Ptr QRectConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr QRectConst)+foreign import ccall "genpop__QRect_united" united' ::  HoppyF.Ptr QRect -> HoppyF.Ptr QRectConst -> HoppyP.IO (HoppyF.Ptr QRectConst)+foreign import ccall "genpop__QRect_width" width' ::  HoppyF.Ptr QRectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QRect_setWidth" setWidth' ::  HoppyF.Ptr QRect -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRect_x" x' ::  HoppyF.Ptr QRectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QRect_setX" setX' ::  HoppyF.Ptr QRect -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRect_y" y' ::  HoppyF.Ptr QRectConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QRect_setY" setY' ::  HoppyF.Ptr QRect -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRect_EQ" eQ' ::  HoppyF.Ptr QRectConst -> HoppyF.Ptr QRectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRect_NE" nE' ::  HoppyF.Ptr QRectConst -> HoppyF.Ptr QRectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRect_ASSIGN" aSSIGN' ::  HoppyF.Ptr QRect -> HoppyF.Ptr QRectConst -> HoppyP.IO (HoppyF.Ptr QRect)+foreign import ccall "gendel__QRect" delete'QRect :: HoppyF.Ptr QRectConst -> HoppyP.IO ()+foreign import ccall "&gendel__QRect" deletePtr'QRect :: HoppyF.FunPtr (HoppyF.Ptr QRectConst -> HoppyP.IO ())++class QRectValue a where+  withQRectPtr :: a -> (QRectConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QRectConstPtr a => QRectValue a where+  withQRectPtr = HoppyP.flip ($) . toQRectConst++instance {-# OVERLAPPING #-} QRectValue (HRect.HRect) where+  withQRectPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QRectConstPtr this where+  toQRectConst :: this -> QRectConst++adjusted :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HRect.HRect)+adjusted arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \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' ->+  (HoppyFHR.decodeAndDelete . QRectConst) =<<+  (adjusted' arg'1' arg'2' arg'3' arg'4' arg'5')++bottom :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+bottom arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (bottom' arg'1')++bottomLeft :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+bottomLeft arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (bottomLeft' arg'1')++bottomRight :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+bottomRight arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (bottomRight' arg'1')++center :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+center arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (center' arg'1')++containsPoint :: (QRectValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Bool) -> (HoppyP.IO HoppyP.Bool)+containsPoint arg'1 arg'2 arg'3 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (containsPoint' arg'1' arg'2' arg'3')++containsRect :: (QRectValue this, QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Bool) -> (HoppyP.IO HoppyP.Bool)+containsRect arg'1 arg'2 arg'3 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (containsRect' arg'1' arg'2' arg'3')++height :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+height arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (height' arg'1')++intersected :: (QRectValue this, QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HRect.HRect)+intersected arg'1 arg'2 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRectConst) =<<+  (intersected' arg'1' arg'2')++intersects :: (QRectValue this, QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+intersects arg'1 arg'2 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (intersects' arg'1' arg'2')++isEmpty :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++isNull :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++isValid :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++left :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+left arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (left' arg'1')++marginsAdded :: (QRectValue this, M68.QMarginsValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HRect.HRect)+marginsAdded arg'1 arg'2 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M68.withQMarginsPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRectConst) =<<+  (marginsAdded' arg'1' arg'2')++marginsRemoved :: (QRectValue this, M68.QMarginsValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HRect.HRect)+marginsRemoved arg'1 arg'2 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M68.withQMarginsPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRectConst) =<<+  (marginsRemoved' arg'1' arg'2')++normalized :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HRect.HRect)+normalized arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QRectConst) =<<+  (normalized' arg'1')++right :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+right arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (right' arg'1')++size :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+size arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (size' arg'1')++top :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+top arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (top' arg'1')++topLeft :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+topLeft arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (topLeft' arg'1')++topRight :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+topRight arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (topRight' arg'1')++translated :: (QRectValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HRect.HRect)+translated arg'1 arg'2 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRectConst) =<<+  (translated' arg'1' arg'2')++width :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+width arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (width' arg'1')++x :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+x arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (x' arg'1')++y :: (QRectValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+y arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (y' arg'1')++eQ :: (QRectValue this, QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QRectValue this, QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QRectConstPtr this) => QRectPtr this where+  toQRect :: this -> QRect++adjust :: (QRectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+adjust arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQRect 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' ->+  (adjust' arg'1' arg'2' arg'3' arg'4' arg'5')++setBottom :: (QRectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setBottom arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setBottom' arg'1' arg'2')++setBottomLeft :: (QRectPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setBottomLeft arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setBottomLeft' arg'1' arg'2')++setBottomRight :: (QRectPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setBottomRight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setBottomRight' arg'1' arg'2')++setHeight :: (QRectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setHeight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setHeight' arg'1' arg'2')++setLeft :: (QRectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setLeft arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setLeft' arg'1' arg'2')++moveBottom :: (QRectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+moveBottom arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (moveBottom' arg'1' arg'2')++moveBottomLeft :: (QRectPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+moveBottomLeft arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (moveBottomLeft' arg'1' arg'2')++moveBottomRight :: (QRectPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+moveBottomRight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (moveBottomRight' arg'1' arg'2')++moveCenter :: (QRectPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+moveCenter arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (moveCenter' arg'1' arg'2')++moveLeft :: (QRectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+moveLeft arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (moveLeft' arg'1' arg'2')++moveRight :: (QRectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+moveRight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (moveRight' arg'1' arg'2')++moveTo :: (QRectPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+moveTo arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (moveTo' arg'1' arg'2')++moveTop :: (QRectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+moveTop arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (moveTop' arg'1' arg'2')++moveTopLeft :: (QRectPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+moveTopLeft arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (moveTopLeft' arg'1' arg'2')++moveTopRight :: (QRectPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+moveTopRight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (moveTopRight' arg'1' arg'2')++setRight :: (QRectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setRight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setRight' arg'1' arg'2')++setCoords :: (QRectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setCoords arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQRect 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' ->+  (setCoords' arg'1' arg'2' arg'3' arg'4' arg'5')++setRect :: (QRectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setRect arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQRect 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' ->+  (setRect' arg'1' arg'2' arg'3' arg'4' arg'5')++setSize :: (QRectPtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setSize' arg'1' arg'2')++setTop :: (QRectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setTop arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setTop' arg'1' arg'2')++setTopLeft :: (QRectPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTopLeft arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setTopLeft' arg'1' arg'2')++setTopRight :: (QRectPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTopRight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setTopRight' arg'1' arg'2')++translate :: (QRectPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+translate arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (translate' arg'1' arg'2')++united :: (QRectPtr this, QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HRect.HRect)+united arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRectConst) =<<+  (united' arg'1' arg'2')++setWidth :: (QRectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setWidth arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setWidth' arg'1' arg'2')++setX :: (QRectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setX arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setX' arg'1' arg'2')++setY :: (QRectPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setY arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setY' arg'1' arg'2')++aSSIGN :: (QRectPtr this, QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRect)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRect arg'1) $ \arg'1' ->+  withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QRect+  (aSSIGN' arg'1' arg'2')++data QRectConst =+    QRectConst (HoppyF.Ptr QRectConst)+  | QRectConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QRectConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QRectConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QRectConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQRectToConst :: QRect -> QRectConst+castQRectToConst (QRect ptr') = QRectConst $ HoppyF.castPtr ptr'+castQRectToConst (QRectGc fptr' ptr') = QRectConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QRectConst where+  nullptr = QRectConst HoppyF.nullPtr+  +  withCppPtr (QRectConst ptr') f' = f' ptr'+  withCppPtr (QRectConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QRectConst ptr') = ptr'+  toPtr (QRectConstGc _ ptr') = ptr'+  +  touchCppPtr (QRectConst _) = HoppyP.return ()+  touchCppPtr (QRectConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QRectConst where+  delete (QRectConst ptr') = delete'QRect ptr'+  delete (QRectConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QRectConst", " object."]+  +  toGc this'@(QRectConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QRectConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QRect :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QRectConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QRectConst QRect where copy = newCopy++instance QRectConstPtr QRectConst where+  toQRectConst = HoppyP.id++data QRect =+    QRect (HoppyF.Ptr QRect)+  | QRectGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QRect)+  deriving (HoppyP.Show)++instance HoppyP.Eq QRect where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QRect where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQRectToNonconst :: QRectConst -> QRect+castQRectToNonconst (QRectConst ptr') = QRect $ HoppyF.castPtr ptr'+castQRectToNonconst (QRectConstGc fptr' ptr') = QRectGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QRect where+  nullptr = QRect HoppyF.nullPtr+  +  withCppPtr (QRect ptr') f' = f' ptr'+  withCppPtr (QRectGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QRect ptr') = ptr'+  toPtr (QRectGc _ ptr') = ptr'+  +  touchCppPtr (QRect _) = HoppyP.return ()+  touchCppPtr (QRectGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QRect where+  delete (QRect ptr') = delete'QRect $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QRectConst)+  delete (QRectGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QRect", " object."]+  +  toGc this'@(QRect ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QRectGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QRect :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QRectGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QRect QRect where copy = newCopy++instance QRectConstPtr QRect where+  toQRectConst (QRect ptr') = QRectConst $ (HoppyF.castPtr :: HoppyF.Ptr QRect -> HoppyF.Ptr QRectConst) ptr'+  toQRectConst (QRectGc fptr' ptr') = QRectConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QRect -> HoppyF.Ptr QRectConst) ptr'++instance QRectPtr QRect where+  toQRect = HoppyP.id++newNull :: (HoppyP.IO QRect)+newNull =+  HoppyP.fmap QRect+  (newNull')++newWithPoints :: (M114.QPointValue arg'1, M114.QPointValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QRect)+newWithPoints arg'1 arg'2 =+  M114.withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QRect+  (newWithPoints' arg'1' arg'2')++newWithPointAndSize :: (M114.QPointValue arg'1, M134.QSizeValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QRect)+newWithPointAndSize arg'1 arg'2 =+  M114.withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QRect+  (newWithPointAndSize' arg'1' arg'2')++newWithRaw :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QRect)+newWithRaw 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.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QRect+  (newWithRaw' arg'1' arg'2' arg'3' arg'4')++newCopy :: (QRectValue arg'1) => (arg'1) -> (HoppyP.IO QRect)+newCopy arg'1 =+  withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QRect+  (newCopy' arg'1')++class QRectSuper a where+  downToQRect :: a -> QRect+++class QRectSuperConst a where+  downToQRectConst :: a -> QRectConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QRect)) QRect where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QRectValue a => HoppyFHR.Assignable QRect a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QRect)) QRect where+  decode = HoppyP.fmap QRect . HoppyF.peek++instance HoppyFHR.Encodable QRect (HRect.HRect) where+  encode =+    newWithRaw <$> HRect.x <*> HRect.y <*> HRect.width <*> HRect.height++instance HoppyFHR.Encodable QRectConst (HRect.HRect) where+  encode = HoppyP.fmap (toQRectConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QRect)++instance HoppyFHR.Decodable QRect (HRect.HRect) where+  decode = HoppyFHR.decode . toQRectConst++instance HoppyFHR.Decodable QRectConst (HRect.HRect) where+  decode =+    \q -> HRect.HRect <$> x q <*> y q <*> width q <*> height q
src/Graphics/UI/Qtah/Generated/Core/QRectF.hs view
@@ -0,0 +1,784 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QRectF (+  QRectFValue (..),+  QRectFConstPtr (..),+  adjusted,+  bottom,+  bottomLeft,+  bottomRight,+  center,+  containsPoint,+  containsRect,+  height,+  intersected,+  intersects,+  isEmpty,+  isNull,+  isValid,+  left,+  marginsAdded,+  marginsRemoved,+  normalized,+  right,+  size,+  toAlignedRect,+  top,+  topLeft,+  topRight,+  translated,+  width,+  x,+  y,+  eQ,+  nE,+  QRectFPtr (..),+  adjust,+  setBottom,+  setBottomLeft,+  setBottomRight,+  setHeight,+  setLeft,+  moveBottom,+  moveBottomLeft,+  moveBottomRight,+  moveCenter,+  moveLeft,+  moveRight,+  moveTo,+  moveTop,+  moveTopLeft,+  moveTopRight,+  setRight,+  setCoords,+  setRect,+  setSize,+  setTop,+  setTopLeft,+  setTopRight,+  translate,+  united,+  setWidth,+  setX,+  setY,+  aSSIGN,+  QRectFConst (..),+  castQRectFToConst,+  QRectF (..),+  castQRectFToNonconst,+  newNull,+  newFromPoints,+  newWithPointAndSize,+  newWithRect,+  newWithRaw,+  newCopy,+  QRectFSuper (..),+  QRectFSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Core.HPointF as HPointF+import qualified Graphics.UI.Qtah.Core.HRect as HRect+import qualified Graphics.UI.Qtah.Generated.Core.QMarginsF as M70+import qualified Graphics.UI.Qtah.Generated.Core.QPointF as M116+import qualified Graphics.UI.Qtah.Generated.Core.QRect as M122+import qualified Graphics.UI.Qtah.Generated.Core.QSizeF as M136+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QRectF_newNull" newNull' ::  HoppyP.IO (HoppyF.Ptr QRectF)+foreign import ccall "genpop__QRectF_newFromPoints" newFromPoints' ::  HoppyF.Ptr M116.QPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO (HoppyF.Ptr QRectF)+foreign import ccall "genpop__QRectF_newWithPointAndSize" newWithPointAndSize' ::  HoppyF.Ptr M116.QPointFConst -> HoppyF.Ptr M136.QSizeFConst -> HoppyP.IO (HoppyF.Ptr QRectF)+foreign import ccall "genpop__QRectF_newWithRect" newWithRect' ::  HoppyF.Ptr M122.QRectConst -> HoppyP.IO (HoppyF.Ptr QRectF)+foreign import ccall "genpop__QRectF_newWithRaw" newWithRaw' ::  HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QRectF)+foreign import ccall "genpop__QRectF_newCopy" newCopy' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO (HoppyF.Ptr QRectF)+foreign import ccall "genpop__QRectF_adjust" adjust' ::  HoppyF.Ptr QRectF -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_adjusted" adjusted' ::  HoppyF.Ptr QRectFConst -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QRectFConst)+foreign import ccall "genpop__QRectF_bottom" bottom' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QRectF_setBottom" setBottom' ::  HoppyF.Ptr QRectF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_bottomLeft" bottomLeft' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QRectF_setBottomLeft" setBottomLeft' ::  HoppyF.Ptr QRectF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_bottomRight" bottomRight' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QRectF_setBottomRight" setBottomRight' ::  HoppyF.Ptr QRectF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_center" center' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QRectF_containsPoint" containsPoint' ::  HoppyF.Ptr QRectFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRectF_containsRect" containsRect' ::  HoppyF.Ptr QRectFConst -> HoppyF.Ptr QRectFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRectF_height" height' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QRectF_setHeight" setHeight' ::  HoppyF.Ptr QRectF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_intersected" intersected' ::  HoppyF.Ptr QRectFConst -> HoppyF.Ptr QRectFConst -> HoppyP.IO (HoppyF.Ptr QRectFConst)+foreign import ccall "genpop__QRectF_intersects" intersects' ::  HoppyF.Ptr QRectFConst -> HoppyF.Ptr QRectFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRectF_isEmpty" isEmpty' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRectF_isNull" isNull' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRectF_isValid" isValid' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRectF_left" left' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QRectF_setLeft" setLeft' ::  HoppyF.Ptr QRectF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_marginsAdded" marginsAdded' ::  HoppyF.Ptr QRectFConst -> HoppyF.Ptr M70.QMarginsFConst -> HoppyP.IO (HoppyF.Ptr QRectFConst)+foreign import ccall "genpop__QRectF_marginsRemoved" marginsRemoved' ::  HoppyF.Ptr QRectFConst -> HoppyF.Ptr M70.QMarginsFConst -> HoppyP.IO (HoppyF.Ptr QRectFConst)+foreign import ccall "genpop__QRectF_moveBottom" moveBottom' ::  HoppyF.Ptr QRectF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_moveBottomLeft" moveBottomLeft' ::  HoppyF.Ptr QRectF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_moveBottomRight" moveBottomRight' ::  HoppyF.Ptr QRectF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_moveCenter" moveCenter' ::  HoppyF.Ptr QRectF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_moveLeft" moveLeft' ::  HoppyF.Ptr QRectF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_moveRight" moveRight' ::  HoppyF.Ptr QRectF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_moveTo" moveTo' ::  HoppyF.Ptr QRectF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_moveTop" moveTop' ::  HoppyF.Ptr QRectF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_moveTopLeft" moveTopLeft' ::  HoppyF.Ptr QRectF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_moveTopRight" moveTopRight' ::  HoppyF.Ptr QRectF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_normalized" normalized' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO (HoppyF.Ptr QRectFConst)+foreign import ccall "genpop__QRectF_right" right' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QRectF_setRight" setRight' ::  HoppyF.Ptr QRectF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_setCoords" setCoords' ::  HoppyF.Ptr QRectF -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_setRect" setRect' ::  HoppyF.Ptr QRectF -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_size" size' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO (HoppyF.Ptr M136.QSizeFConst)+foreign import ccall "genpop__QRectF_setSize" setSize' ::  HoppyF.Ptr QRectF -> HoppyF.Ptr M136.QSizeFConst -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_toAlignedRect" toAlignedRect' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QRectF_top" top' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QRectF_setTop" setTop' ::  HoppyF.Ptr QRectF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_topLeft" topLeft' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QRectF_setTopLeft" setTopLeft' ::  HoppyF.Ptr QRectF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_topRight" topRight' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QRectF_setTopRight" setTopRight' ::  HoppyF.Ptr QRectF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_translate" translate' ::  HoppyF.Ptr QRectF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_translated" translated' ::  HoppyF.Ptr QRectFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO (HoppyF.Ptr QRectFConst)+foreign import ccall "genpop__QRectF_united" united' ::  HoppyF.Ptr QRectF -> HoppyF.Ptr QRectFConst -> HoppyP.IO (HoppyF.Ptr QRectFConst)+foreign import ccall "genpop__QRectF_width" width' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QRectF_setWidth" setWidth' ::  HoppyF.Ptr QRectF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_x" x' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QRectF_setX" setX' ::  HoppyF.Ptr QRectF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_y" y' ::  HoppyF.Ptr QRectFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QRectF_setY" setY' ::  HoppyF.Ptr QRectF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QRectF_EQ" eQ' ::  HoppyF.Ptr QRectFConst -> HoppyF.Ptr QRectFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRectF_NE" nE' ::  HoppyF.Ptr QRectFConst -> HoppyF.Ptr QRectFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRectF_ASSIGN" aSSIGN' ::  HoppyF.Ptr QRectF -> HoppyF.Ptr QRectFConst -> HoppyP.IO (HoppyF.Ptr QRectF)+foreign import ccall "gendel__QRectF" delete'QRectF :: HoppyF.Ptr QRectFConst -> HoppyP.IO ()+foreign import ccall "&gendel__QRectF" deletePtr'QRectF :: HoppyF.FunPtr (HoppyF.Ptr QRectFConst -> HoppyP.IO ())++class QRectFValue a where+  withQRectFPtr :: a -> (QRectFConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QRectFConstPtr a => QRectFValue a where+  withQRectFPtr = HoppyP.flip ($) . toQRectFConst++class (HoppyFHR.CppPtr this) => QRectFConstPtr this where+  toQRectFConst :: this -> QRectFConst++adjusted :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO QRectF)+adjusted arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (HoppyFHR.decodeAndDelete . QRectFConst) =<<+  (adjusted' arg'1' arg'2' arg'3' arg'4' arg'5')++bottom :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+bottom arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (bottom' arg'1')++bottomLeft :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+bottomLeft arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (bottomLeft' arg'1')++bottomRight :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+bottomRight arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (bottomRight' arg'1')++center :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+center arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (center' arg'1')++containsPoint :: (QRectFValue this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+containsPoint arg'1 arg'2 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (containsPoint' arg'1' arg'2')++containsRect :: (QRectFValue this, QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+containsRect arg'1 arg'2 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (containsRect' arg'1' arg'2')++height :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+height arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (height' arg'1')++intersected :: (QRectFValue this, QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRectF)+intersected arg'1 arg'2 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRectFConst) =<<+  (intersected' arg'1' arg'2')++intersects :: (QRectFValue this, QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+intersects arg'1 arg'2 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (intersects' arg'1' arg'2')++isEmpty :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++isNull :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++isValid :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++left :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+left arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (left' arg'1')++marginsAdded :: (QRectFValue this, M70.QMarginsFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRectF)+marginsAdded arg'1 arg'2 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M70.withQMarginsFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRectFConst) =<<+  (marginsAdded' arg'1' arg'2')++marginsRemoved :: (QRectFValue this, M70.QMarginsFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRectF)+marginsRemoved arg'1 arg'2 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M70.withQMarginsFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRectFConst) =<<+  (marginsRemoved' arg'1' arg'2')++normalized :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO QRectF)+normalized arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QRectFConst) =<<+  (normalized' arg'1')++right :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+right arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (right' arg'1')++size :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO M136.QSizeF)+size arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M136.QSizeFConst) =<<+  (size' arg'1')++toAlignedRect :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HRect.HRect)+toAlignedRect arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<+  (toAlignedRect' arg'1')++top :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+top arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (top' arg'1')++topLeft :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+topLeft arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (topLeft' arg'1')++topRight :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+topRight arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (topRight' arg'1')++translated :: (QRectFValue this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRectF)+translated arg'1 arg'2 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRectFConst) =<<+  (translated' arg'1' arg'2')++width :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+width arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (width' arg'1')++x :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+x arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (x' arg'1')++y :: (QRectFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+y arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (y' arg'1')++eQ :: (QRectFValue this, QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QRectFValue this, QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QRectFConstPtr this) => QRectFPtr this where+  toQRectF :: this -> QRectF++adjust :: (QRectFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+adjust arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (adjust' arg'1' arg'2' arg'3' arg'4' arg'5')++setBottom :: (QRectFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setBottom arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setBottom' arg'1' arg'2')++setBottomLeft :: (QRectFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setBottomLeft arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setBottomLeft' arg'1' arg'2')++setBottomRight :: (QRectFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setBottomRight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setBottomRight' arg'1' arg'2')++setHeight :: (QRectFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setHeight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setHeight' arg'1' arg'2')++setLeft :: (QRectFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setLeft arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setLeft' arg'1' arg'2')++moveBottom :: (QRectFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+moveBottom arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (moveBottom' arg'1' arg'2')++moveBottomLeft :: (QRectFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+moveBottomLeft arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (moveBottomLeft' arg'1' arg'2')++moveBottomRight :: (QRectFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+moveBottomRight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (moveBottomRight' arg'1' arg'2')++moveCenter :: (QRectFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+moveCenter arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (moveCenter' arg'1' arg'2')++moveLeft :: (QRectFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+moveLeft arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (moveLeft' arg'1' arg'2')++moveRight :: (QRectFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+moveRight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (moveRight' arg'1' arg'2')++moveTo :: (QRectFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+moveTo arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (moveTo' arg'1' arg'2')++moveTop :: (QRectFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+moveTop arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (moveTop' arg'1' arg'2')++moveTopLeft :: (QRectFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+moveTopLeft arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (moveTopLeft' arg'1' arg'2')++moveTopRight :: (QRectFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+moveTopRight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (moveTopRight' arg'1' arg'2')++setRight :: (QRectFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setRight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setRight' arg'1' arg'2')++setCoords :: (QRectFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setCoords arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (setCoords' arg'1' arg'2' arg'3' arg'4' arg'5')++setRect :: (QRectFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setRect arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (setRect' arg'1' arg'2' arg'3' arg'4' arg'5')++setSize :: (QRectFPtr this, M136.QSizeFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  M136.withQSizeFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setSize' arg'1' arg'2')++setTop :: (QRectFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setTop arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setTop' arg'1' arg'2')++setTopLeft :: (QRectFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTopLeft arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setTopLeft' arg'1' arg'2')++setTopRight :: (QRectFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTopRight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setTopRight' arg'1' arg'2')++translate :: (QRectFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+translate arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (translate' arg'1' arg'2')++united :: (QRectFPtr this, QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRectF)+united arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRectFConst) =<<+  (united' arg'1' arg'2')++setWidth :: (QRectFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setWidth arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setWidth' arg'1' arg'2')++setX :: (QRectFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setX arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setX' arg'1' arg'2')++setY :: (QRectFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setY arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setY' arg'1' arg'2')++aSSIGN :: (QRectFPtr this, QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRectF)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRectF arg'1) $ \arg'1' ->+  withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QRectF+  (aSSIGN' arg'1' arg'2')++data QRectFConst =+    QRectFConst (HoppyF.Ptr QRectFConst)+  | QRectFConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QRectFConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QRectFConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QRectFConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQRectFToConst :: QRectF -> QRectFConst+castQRectFToConst (QRectF ptr') = QRectFConst $ HoppyF.castPtr ptr'+castQRectFToConst (QRectFGc fptr' ptr') = QRectFConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QRectFConst where+  nullptr = QRectFConst HoppyF.nullPtr+  +  withCppPtr (QRectFConst ptr') f' = f' ptr'+  withCppPtr (QRectFConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QRectFConst ptr') = ptr'+  toPtr (QRectFConstGc _ ptr') = ptr'+  +  touchCppPtr (QRectFConst _) = HoppyP.return ()+  touchCppPtr (QRectFConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QRectFConst where+  delete (QRectFConst ptr') = delete'QRectF ptr'+  delete (QRectFConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QRectFConst", " object."]+  +  toGc this'@(QRectFConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QRectFConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QRectF :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QRectFConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QRectFConst QRectF where copy = newCopy++instance QRectFConstPtr QRectFConst where+  toQRectFConst = HoppyP.id++data QRectF =+    QRectF (HoppyF.Ptr QRectF)+  | QRectFGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QRectF)+  deriving (HoppyP.Show)++instance HoppyP.Eq QRectF where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QRectF where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQRectFToNonconst :: QRectFConst -> QRectF+castQRectFToNonconst (QRectFConst ptr') = QRectF $ HoppyF.castPtr ptr'+castQRectFToNonconst (QRectFConstGc fptr' ptr') = QRectFGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QRectF where+  nullptr = QRectF HoppyF.nullPtr+  +  withCppPtr (QRectF ptr') f' = f' ptr'+  withCppPtr (QRectFGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QRectF ptr') = ptr'+  toPtr (QRectFGc _ ptr') = ptr'+  +  touchCppPtr (QRectF _) = HoppyP.return ()+  touchCppPtr (QRectFGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QRectF where+  delete (QRectF ptr') = delete'QRectF $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QRectFConst)+  delete (QRectFGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QRectF", " object."]+  +  toGc this'@(QRectF ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QRectFGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QRectF :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QRectFGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QRectF QRectF where copy = newCopy++instance QRectFConstPtr QRectF where+  toQRectFConst (QRectF ptr') = QRectFConst $ (HoppyF.castPtr :: HoppyF.Ptr QRectF -> HoppyF.Ptr QRectFConst) ptr'+  toQRectFConst (QRectFGc fptr' ptr') = QRectFConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QRectF -> HoppyF.Ptr QRectFConst) ptr'++instance QRectFPtr QRectF where+  toQRectF = HoppyP.id++newNull :: (HoppyP.IO QRectF)+newNull =+  HoppyP.fmap QRectF+  (newNull')++newFromPoints :: (M116.QPointFValue arg'1, M116.QPointFValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QRectF)+newFromPoints arg'1 arg'2 =+  M116.withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QRectF+  (newFromPoints' arg'1' arg'2')++newWithPointAndSize :: (M116.QPointFValue arg'1, M136.QSizeFValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QRectF)+newWithPointAndSize arg'1 arg'2 =+  M116.withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M136.withQSizeFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QRectF+  (newWithPointAndSize' arg'1' arg'2')++newWithRect :: (M122.QRectValue arg'1) => (arg'1) -> (HoppyP.IO QRectF)+newWithRect arg'1 =+  M122.withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QRectF+  (newWithRect' arg'1')++newWithRaw :: (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO QRectF)+newWithRaw arg'1 arg'2 arg'3 arg'4 =+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QRectF+  (newWithRaw' arg'1' arg'2' arg'3' arg'4')++newCopy :: (QRectFValue arg'1) => (arg'1) -> (HoppyP.IO QRectF)+newCopy arg'1 =+  withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QRectF+  (newCopy' arg'1')++class QRectFSuper a where+  downToQRectF :: a -> QRectF+++class QRectFSuperConst a where+  downToQRectFConst :: a -> QRectFConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QRectF)) QRectF where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QRectFValue a => HoppyFHR.Assignable QRectF a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QRectF)) QRectF where+  decode = HoppyP.fmap QRectF . HoppyF.peek++instance HoppyFHR.Decodable QRectF (QRectF) where+  decode = HoppyFHR.decode . toQRectFConst++instance HoppyFHR.Decodable QRectFConst (QRectF) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QResource.hs view
@@ -0,0 +1,331 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QResource (+  QResourceValue (..),+  QResourceConstPtr (..),+  absoluteFilePath,+  compressionAlgorithm,+  getData,+  fileName,+  isCompressed,+  isValid,+  lastModified,+  size,+  QResourcePtr (..),+  setFileName,+  registerResourcePath,+  registerResourcePathAndTree,+  registerResourceData,+  registerResourceDataAndTree,+  unregisterResourcePath,+  unregisterResourcePathAndTree,+  unregisterResourceData,+  unregisterResourceDataAndTree,+  QResourceConst (..),+  castQResourceToConst,+  QResource (..),+  castQResourceToNonconst,+  new,+  newWithFile,+  QResourceSuper (..),+  QResourceSuperConst (..),+  QResourceCompression (..),+  ) where++import qualified Data.Int as HoppyDI+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QDateTime as M24+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QResource_new" new' ::  HoppyP.IO (HoppyF.Ptr QResource)+foreign import ccall "genpop__QResource_newWithFile" newWithFile' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QResource)+foreign import ccall "genpop__QResource_absoluteFilePath" absoluteFilePath' ::  HoppyF.Ptr QResourceConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QResource_compressionAlgorithm" compressionAlgorithm' ::  HoppyF.Ptr QResourceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QResource_getData" getData' ::  HoppyF.Ptr QResourceConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar)+foreign import ccall "genpop__QResource_fileName" fileName' ::  HoppyF.Ptr QResourceConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QResource_isCompressed" isCompressed' ::  HoppyF.Ptr QResourceConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QResource_isValid" isValid' ::  HoppyF.Ptr QResourceConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QResource_lastModified" lastModified' ::  HoppyF.Ptr QResourceConst -> HoppyP.IO (HoppyF.Ptr M24.QDateTimeConst)+foreign import ccall "genpop__QResource_registerResourcePath" registerResourcePath' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QResource_registerResourcePathAndTree" registerResourcePathAndTree' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QResource_registerResourceData" registerResourceData' ::  HoppyF.Ptr HoppyFC.CUChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QResource_registerResourceDataAndTree" registerResourceDataAndTree' ::  HoppyF.Ptr HoppyFC.CUChar -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QResource_setFileName" setFileName' ::  HoppyF.Ptr QResource -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QResource_size" size' ::  HoppyF.Ptr QResourceConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QResource_unregisterResourcePath" unregisterResourcePath' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QResource_unregisterResourcePathAndTree" unregisterResourcePathAndTree' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QResource_unregisterResourceData" unregisterResourceData' ::  HoppyF.Ptr HoppyFC.CUChar -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QResource_unregisterResourceDataAndTree" unregisterResourceDataAndTree' ::  HoppyF.Ptr HoppyFC.CUChar -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "gendel__QResource" delete'QResource :: HoppyF.Ptr QResourceConst -> HoppyP.IO ()+foreign import ccall "&gendel__QResource" deletePtr'QResource :: HoppyF.FunPtr (HoppyF.Ptr QResourceConst -> HoppyP.IO ())++class QResourceValue a where+  withQResourcePtr :: a -> (QResourceConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QResourceConstPtr a => QResourceValue a where+  withQResourcePtr = HoppyP.flip ($) . toQResourceConst++class (HoppyFHR.CppPtr this) => QResourceConstPtr this where+  toQResourceConst :: this -> QResourceConst++absoluteFilePath :: (QResourceValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+absoluteFilePath arg'1 =+  withQResourcePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (absoluteFilePath' arg'1')++compressionAlgorithm :: (QResourceValue this) => (this) {- ^ this -} -> (HoppyP.IO QResourceCompression)+compressionAlgorithm arg'1 =+  withQResourcePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (compressionAlgorithm' arg'1')++getData :: (QResourceValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar))+getData arg'1 =+  withQResourcePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (getData' arg'1')++fileName :: (QResourceValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+fileName arg'1 =+  withQResourcePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (fileName' arg'1')++isCompressed :: (QResourceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isCompressed arg'1 =+  withQResourcePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isCompressed' arg'1')++isValid :: (QResourceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQResourcePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++lastModified :: (QResourceValue this) => (this) {- ^ this -} -> (HoppyP.IO M24.QDateTime)+lastModified arg'1 =+  withQResourcePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M24.QDateTimeConst) =<<+  (lastModified' arg'1')++size :: (QResourceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+size arg'1 =+  withQResourcePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (size' arg'1')++class (QResourceConstPtr this) => QResourcePtr this where+  toQResource :: this -> QResource++setFileName :: (QResourcePtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFileName arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQResource arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setFileName' arg'1' arg'2')++registerResourcePath :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Bool)+registerResourcePath arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (registerResourcePath' arg'1')++registerResourcePathAndTree :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+registerResourcePathAndTree arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (registerResourcePathAndTree' arg'1' arg'2')++registerResourceData :: (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.IO HoppyP.Bool)+registerResourceData arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (registerResourceData' arg'1')++registerResourceDataAndTree :: (M142.QStringValue arg'2) => (HoppyF.Ptr HoppyFC.CUChar) -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+registerResourceDataAndTree arg'1 arg'2 =+  let arg'1' = arg'1 in+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (registerResourceDataAndTree' arg'1' arg'2')++unregisterResourcePath :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Bool)+unregisterResourcePath arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (unregisterResourcePath' arg'1')++unregisterResourcePathAndTree :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+unregisterResourcePathAndTree arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (unregisterResourcePathAndTree' arg'1' arg'2')++unregisterResourceData :: (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.IO HoppyP.Bool)+unregisterResourceData arg'1 =+  let arg'1' = arg'1 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (unregisterResourceData' arg'1')++unregisterResourceDataAndTree :: (M142.QStringValue arg'2) => (HoppyF.Ptr HoppyFC.CUChar) -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+unregisterResourceDataAndTree arg'1 arg'2 =+  let arg'1' = arg'1 in+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (unregisterResourceDataAndTree' arg'1' arg'2')++data QResourceConst =+    QResourceConst (HoppyF.Ptr QResourceConst)+  | QResourceConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QResourceConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QResourceConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QResourceConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQResourceToConst :: QResource -> QResourceConst+castQResourceToConst (QResource ptr') = QResourceConst $ HoppyF.castPtr ptr'+castQResourceToConst (QResourceGc fptr' ptr') = QResourceConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QResourceConst where+  nullptr = QResourceConst HoppyF.nullPtr+  +  withCppPtr (QResourceConst ptr') f' = f' ptr'+  withCppPtr (QResourceConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QResourceConst ptr') = ptr'+  toPtr (QResourceConstGc _ ptr') = ptr'+  +  touchCppPtr (QResourceConst _) = HoppyP.return ()+  touchCppPtr (QResourceConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QResourceConst where+  delete (QResourceConst ptr') = delete'QResource ptr'+  delete (QResourceConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QResourceConst", " object."]+  +  toGc this'@(QResourceConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QResourceConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QResource :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QResourceConstGc {}) = HoppyP.return this'++instance QResourceConstPtr QResourceConst where+  toQResourceConst = HoppyP.id++data QResource =+    QResource (HoppyF.Ptr QResource)+  | QResourceGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QResource)+  deriving (HoppyP.Show)++instance HoppyP.Eq QResource where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QResource where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQResourceToNonconst :: QResourceConst -> QResource+castQResourceToNonconst (QResourceConst ptr') = QResource $ HoppyF.castPtr ptr'+castQResourceToNonconst (QResourceConstGc fptr' ptr') = QResourceGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QResource where+  nullptr = QResource HoppyF.nullPtr+  +  withCppPtr (QResource ptr') f' = f' ptr'+  withCppPtr (QResourceGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QResource ptr') = ptr'+  toPtr (QResourceGc _ ptr') = ptr'+  +  touchCppPtr (QResource _) = HoppyP.return ()+  touchCppPtr (QResourceGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QResource where+  delete (QResource ptr') = delete'QResource $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QResourceConst)+  delete (QResourceGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QResource", " object."]+  +  toGc this'@(QResource ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QResourceGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QResource :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QResourceGc {}) = HoppyP.return this'++instance QResourceConstPtr QResource where+  toQResourceConst (QResource ptr') = QResourceConst $ (HoppyF.castPtr :: HoppyF.Ptr QResource -> HoppyF.Ptr QResourceConst) ptr'+  toQResourceConst (QResourceGc fptr' ptr') = QResourceConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QResource -> HoppyF.Ptr QResourceConst) ptr'++instance QResourcePtr QResource where+  toQResource = HoppyP.id++new :: (HoppyP.IO QResource)+new =+  HoppyP.fmap QResource+  (new')++newWithFile :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QResource)+newWithFile arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QResource+  (newWithFile' arg'1')++class QResourceSuper a where+  downToQResource :: a -> QResource+++class QResourceSuperConst a where+  downToQResourceConst :: a -> QResourceConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QResource)) QResource where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QResource)) QResource where+  decode = HoppyP.fmap QResource . HoppyF.peek++data QResourceCompression =+  NoCompression+  | ZlibCompression+  | ZstdCompression+  | UnknownQResourceCompression (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QResourceCompression where+  fromCppEnum NoCompression = 0+  fromCppEnum ZlibCompression = 1+  fromCppEnum ZstdCompression = 2+  fromCppEnum (UnknownQResourceCompression n) = n+  +  toCppEnum (0) = NoCompression+  toCppEnum (1) = ZlibCompression+  toCppEnum (2) = ZstdCompression+  toCppEnum n = UnknownQResourceCompression n++instance HoppyP.Eq QResourceCompression where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QResourceCompression where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Core/QSaveFile.hs view
@@ -0,0 +1,286 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QSaveFile (+  castQSaveFileToQFileDevice,+  castQFileDeviceToQSaveFile,+  castQSaveFileToQIODevice,+  castQIODeviceToQSaveFile,+  castQSaveFileToQObject,+  castQObjectToQSaveFile,+  QSaveFileValue (..),+  QSaveFileConstPtr (..),+  directWriteFallback,+  QSaveFilePtr (..),+  cancelWriting,+  commit,+  setDirectWriteFallback,+  setFileName,+  QSaveFileConst (..),+  castQSaveFileToConst,+  QSaveFile (..),+  castQSaveFileToNonconst,+  newWithNameAndParent,+  new,+  newWithParent,+  newWithName,+  QSaveFileSuper (..),+  QSaveFileSuperConst (..),+  ) 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.Core.QFileDevice as M38+import qualified Graphics.UI.Qtah.Generated.Core.QIODevice as M48+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QSaveFile_newWithNameAndParent" newWithNameAndParent' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QSaveFile)+foreign import ccall "genpop__QSaveFile_new" new' ::  HoppyP.IO (HoppyF.Ptr QSaveFile)+foreign import ccall "genpop__QSaveFile_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QSaveFile)+foreign import ccall "genpop__QSaveFile_newWithName" newWithName' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QSaveFile)+foreign import ccall "genpop__QSaveFile_cancelWriting" cancelWriting' ::  HoppyF.Ptr QSaveFile -> HoppyP.IO ()+foreign import ccall "genpop__QSaveFile_commit" commit' ::  HoppyF.Ptr QSaveFile -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QSaveFile_directWriteFallback" directWriteFallback' ::  HoppyF.Ptr QSaveFileConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QSaveFile_setDirectWriteFallback" setDirectWriteFallback' ::  HoppyF.Ptr QSaveFile -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QSaveFile_setFileName" setFileName' ::  HoppyF.Ptr QSaveFile -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "gencast__QSaveFile__QFileDevice" castQSaveFileToQFileDevice :: HoppyF.Ptr QSaveFileConst -> HoppyF.Ptr M38.QFileDeviceConst+foreign import ccall "gencast__QFileDevice__QSaveFile" castQFileDeviceToQSaveFile :: HoppyF.Ptr M38.QFileDeviceConst -> HoppyF.Ptr QSaveFileConst+foreign import ccall "gencast__QSaveFile__QIODevice" castQSaveFileToQIODevice :: HoppyF.Ptr QSaveFileConst -> HoppyF.Ptr M48.QIODeviceConst+foreign import ccall "gencast__QIODevice__QSaveFile" castQIODeviceToQSaveFile :: HoppyF.Ptr M48.QIODeviceConst -> HoppyF.Ptr QSaveFileConst+foreign import ccall "gencast__QSaveFile__QObject" castQSaveFileToQObject :: HoppyF.Ptr QSaveFileConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QSaveFile" castQObjectToQSaveFile :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QSaveFileConst+foreign import ccall "gendel__QSaveFile" delete'QSaveFile :: HoppyF.Ptr QSaveFileConst -> HoppyP.IO ()+foreign import ccall "&gendel__QSaveFile" deletePtr'QSaveFile :: HoppyF.FunPtr (HoppyF.Ptr QSaveFileConst -> HoppyP.IO ())++class QSaveFileValue a where+  withQSaveFilePtr :: a -> (QSaveFileConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QSaveFileConstPtr a => QSaveFileValue a where+  withQSaveFilePtr = HoppyP.flip ($) . toQSaveFileConst++class (M38.QFileDeviceConstPtr this) => QSaveFileConstPtr this where+  toQSaveFileConst :: this -> QSaveFileConst++directWriteFallback :: (QSaveFileValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+directWriteFallback arg'1 =+  withQSaveFilePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (directWriteFallback' arg'1')++class (QSaveFileConstPtr this, M38.QFileDevicePtr this) => QSaveFilePtr this where+  toQSaveFile :: this -> QSaveFile++cancelWriting :: (QSaveFilePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+cancelWriting arg'1 =+  HoppyFHR.withCppPtr (toQSaveFile arg'1) $ \arg'1' ->+  (cancelWriting' arg'1')++commit :: (QSaveFilePtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+commit arg'1 =+  HoppyFHR.withCppPtr (toQSaveFile arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (commit' arg'1')++setDirectWriteFallback :: (QSaveFilePtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setDirectWriteFallback arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSaveFile arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setDirectWriteFallback' arg'1' arg'2')++setFileName :: (QSaveFilePtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFileName arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSaveFile arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setFileName' arg'1' arg'2')++data QSaveFileConst =+    QSaveFileConst (HoppyF.Ptr QSaveFileConst)+  | QSaveFileConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSaveFileConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QSaveFileConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QSaveFileConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQSaveFileToConst :: QSaveFile -> QSaveFileConst+castQSaveFileToConst (QSaveFile ptr') = QSaveFileConst $ HoppyF.castPtr ptr'+castQSaveFileToConst (QSaveFileGc fptr' ptr') = QSaveFileConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QSaveFileConst where+  nullptr = QSaveFileConst HoppyF.nullPtr+  +  withCppPtr (QSaveFileConst ptr') f' = f' ptr'+  withCppPtr (QSaveFileConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QSaveFileConst ptr') = ptr'+  toPtr (QSaveFileConstGc _ ptr') = ptr'+  +  touchCppPtr (QSaveFileConst _) = HoppyP.return ()+  touchCppPtr (QSaveFileConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QSaveFileConst where+  delete (QSaveFileConst ptr') = delete'QSaveFile ptr'+  delete (QSaveFileConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QSaveFileConst", " object."]+  +  toGc this'@(QSaveFileConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QSaveFileConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QSaveFile :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QSaveFileConstGc {}) = HoppyP.return this'++instance QSaveFileConstPtr QSaveFileConst where+  toQSaveFileConst = HoppyP.id++instance M38.QFileDeviceConstPtr QSaveFileConst where+  toQFileDeviceConst (QSaveFileConst ptr') = M38.QFileDeviceConst $ castQSaveFileToQFileDevice ptr'+  toQFileDeviceConst (QSaveFileConstGc fptr' ptr') = M38.QFileDeviceConstGc fptr' $ castQSaveFileToQFileDevice ptr'++instance M48.QIODeviceConstPtr QSaveFileConst where+  toQIODeviceConst (QSaveFileConst ptr') = M48.QIODeviceConst $ castQSaveFileToQIODevice ptr'+  toQIODeviceConst (QSaveFileConstGc fptr' ptr') = M48.QIODeviceConstGc fptr' $ castQSaveFileToQIODevice ptr'++instance M94.QObjectConstPtr QSaveFileConst where+  toQObjectConst (QSaveFileConst ptr') = M94.QObjectConst $ castQSaveFileToQObject ptr'+  toQObjectConst (QSaveFileConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQSaveFileToQObject ptr'++data QSaveFile =+    QSaveFile (HoppyF.Ptr QSaveFile)+  | QSaveFileGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSaveFile)+  deriving (HoppyP.Show)++instance HoppyP.Eq QSaveFile where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QSaveFile where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQSaveFileToNonconst :: QSaveFileConst -> QSaveFile+castQSaveFileToNonconst (QSaveFileConst ptr') = QSaveFile $ HoppyF.castPtr ptr'+castQSaveFileToNonconst (QSaveFileConstGc fptr' ptr') = QSaveFileGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QSaveFile where+  nullptr = QSaveFile HoppyF.nullPtr+  +  withCppPtr (QSaveFile ptr') f' = f' ptr'+  withCppPtr (QSaveFileGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QSaveFile ptr') = ptr'+  toPtr (QSaveFileGc _ ptr') = ptr'+  +  touchCppPtr (QSaveFile _) = HoppyP.return ()+  touchCppPtr (QSaveFileGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QSaveFile where+  delete (QSaveFile ptr') = delete'QSaveFile $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QSaveFileConst)+  delete (QSaveFileGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QSaveFile", " object."]+  +  toGc this'@(QSaveFile ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QSaveFileGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QSaveFile :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QSaveFileGc {}) = HoppyP.return this'++instance QSaveFileConstPtr QSaveFile where+  toQSaveFileConst (QSaveFile ptr') = QSaveFileConst $ (HoppyF.castPtr :: HoppyF.Ptr QSaveFile -> HoppyF.Ptr QSaveFileConst) ptr'+  toQSaveFileConst (QSaveFileGc fptr' ptr') = QSaveFileConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QSaveFile -> HoppyF.Ptr QSaveFileConst) ptr'++instance QSaveFilePtr QSaveFile where+  toQSaveFile = HoppyP.id++instance M38.QFileDeviceConstPtr QSaveFile where+  toQFileDeviceConst (QSaveFile ptr') = M38.QFileDeviceConst $ castQSaveFileToQFileDevice $ (HoppyF.castPtr :: HoppyF.Ptr QSaveFile -> HoppyF.Ptr QSaveFileConst) ptr'+  toQFileDeviceConst (QSaveFileGc fptr' ptr') = M38.QFileDeviceConstGc fptr' $ castQSaveFileToQFileDevice $ (HoppyF.castPtr :: HoppyF.Ptr QSaveFile -> HoppyF.Ptr QSaveFileConst) ptr'++instance M38.QFileDevicePtr QSaveFile where+  toQFileDevice (QSaveFile ptr') = M38.QFileDevice $ (HoppyF.castPtr :: HoppyF.Ptr M38.QFileDeviceConst -> HoppyF.Ptr M38.QFileDevice) $ castQSaveFileToQFileDevice $ (HoppyF.castPtr :: HoppyF.Ptr QSaveFile -> HoppyF.Ptr QSaveFileConst) ptr'+  toQFileDevice (QSaveFileGc fptr' ptr') = M38.QFileDeviceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M38.QFileDeviceConst -> HoppyF.Ptr M38.QFileDevice) $ castQSaveFileToQFileDevice $ (HoppyF.castPtr :: HoppyF.Ptr QSaveFile -> HoppyF.Ptr QSaveFileConst) ptr'++instance M48.QIODeviceConstPtr QSaveFile where+  toQIODeviceConst (QSaveFile ptr') = M48.QIODeviceConst $ castQSaveFileToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QSaveFile -> HoppyF.Ptr QSaveFileConst) ptr'+  toQIODeviceConst (QSaveFileGc fptr' ptr') = M48.QIODeviceConstGc fptr' $ castQSaveFileToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QSaveFile -> HoppyF.Ptr QSaveFileConst) ptr'++instance M48.QIODevicePtr QSaveFile where+  toQIODevice (QSaveFile ptr') = M48.QIODevice $ (HoppyF.castPtr :: HoppyF.Ptr M48.QIODeviceConst -> HoppyF.Ptr M48.QIODevice) $ castQSaveFileToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QSaveFile -> HoppyF.Ptr QSaveFileConst) ptr'+  toQIODevice (QSaveFileGc fptr' ptr') = M48.QIODeviceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M48.QIODeviceConst -> HoppyF.Ptr M48.QIODevice) $ castQSaveFileToQIODevice $ (HoppyF.castPtr :: HoppyF.Ptr QSaveFile -> HoppyF.Ptr QSaveFileConst) ptr'++instance M94.QObjectConstPtr QSaveFile where+  toQObjectConst (QSaveFile ptr') = M94.QObjectConst $ castQSaveFileToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QSaveFile -> HoppyF.Ptr QSaveFileConst) ptr'+  toQObjectConst (QSaveFileGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQSaveFileToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QSaveFile -> HoppyF.Ptr QSaveFileConst) ptr'++instance M94.QObjectPtr QSaveFile where+  toQObject (QSaveFile ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQSaveFileToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QSaveFile -> HoppyF.Ptr QSaveFileConst) ptr'+  toQObject (QSaveFileGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQSaveFileToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QSaveFile -> HoppyF.Ptr QSaveFileConst) ptr'++newWithNameAndParent :: (M142.QStringValue arg'1, M94.QObjectPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QSaveFile)+newWithNameAndParent arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  HoppyP.fmap QSaveFile+  (newWithNameAndParent' arg'1' arg'2')++new :: (HoppyP.IO QSaveFile)+new =+  HoppyP.fmap QSaveFile+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QSaveFile)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QSaveFile+  (newWithParent' arg'1')++newWithName :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QSaveFile)+newWithName arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QSaveFile+  (newWithName' arg'1')++class QSaveFileSuper a where+  downToQSaveFile :: a -> QSaveFile++instance QSaveFileSuper M38.QFileDevice where+  downToQSaveFile = castQSaveFileToNonconst . cast' . M38.castQFileDeviceToConst+    where+      cast' (M38.QFileDeviceConst ptr') = QSaveFileConst $ castQFileDeviceToQSaveFile ptr'+      cast' (M38.QFileDeviceConstGc fptr' ptr') = QSaveFileConstGc fptr' $ castQFileDeviceToQSaveFile ptr'+instance QSaveFileSuper M48.QIODevice where+  downToQSaveFile = castQSaveFileToNonconst . cast' . M48.castQIODeviceToConst+    where+      cast' (M48.QIODeviceConst ptr') = QSaveFileConst $ castQIODeviceToQSaveFile ptr'+      cast' (M48.QIODeviceConstGc fptr' ptr') = QSaveFileConstGc fptr' $ castQIODeviceToQSaveFile ptr'+instance QSaveFileSuper M94.QObject where+  downToQSaveFile = castQSaveFileToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QSaveFileConst $ castQObjectToQSaveFile ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QSaveFileConstGc fptr' $ castQObjectToQSaveFile ptr'++class QSaveFileSuperConst a where+  downToQSaveFileConst :: a -> QSaveFileConst++instance QSaveFileSuperConst M38.QFileDeviceConst where+  downToQSaveFileConst = cast'+    where+      cast' (M38.QFileDeviceConst ptr') = QSaveFileConst $ castQFileDeviceToQSaveFile ptr'+      cast' (M38.QFileDeviceConstGc fptr' ptr') = QSaveFileConstGc fptr' $ castQFileDeviceToQSaveFile ptr'+instance QSaveFileSuperConst M48.QIODeviceConst where+  downToQSaveFileConst = cast'+    where+      cast' (M48.QIODeviceConst ptr') = QSaveFileConst $ castQIODeviceToQSaveFile ptr'+      cast' (M48.QIODeviceConstGc fptr' ptr') = QSaveFileConstGc fptr' $ castQIODeviceToQSaveFile ptr'+instance QSaveFileSuperConst M94.QObjectConst where+  downToQSaveFileConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QSaveFileConst $ castQObjectToQSaveFile ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QSaveFileConstGc fptr' $ castQObjectToQSaveFile ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QSaveFile)) QSaveFile where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QSaveFile)) QSaveFile where+  decode = HoppyP.fmap QSaveFile . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QSequentialAnimationGroup.hs view
@@ -0,0 +1,250 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QSequentialAnimationGroup (+  castQSequentialAnimationGroupToQAnimationGroup,+  castQAnimationGroupToQSequentialAnimationGroup,+  castQSequentialAnimationGroupToQAbstractAnimation,+  castQAbstractAnimationToQSequentialAnimationGroup,+  castQSequentialAnimationGroupToQObject,+  castQObjectToQSequentialAnimationGroup,+  QSequentialAnimationGroupValue (..),+  QSequentialAnimationGroupConstPtr (..),+  currentAnimation,+  QSequentialAnimationGroupPtr (..),+  addPause,+  insertPause,+  emitCurrentAnimationChanged,+  QSequentialAnimationGroupConst (..),+  castQSequentialAnimationGroupToConst,+  QSequentialAnimationGroup (..),+  castQSequentialAnimationGroupToNonconst,+  QSequentialAnimationGroupSuper (..),+  QSequentialAnimationGroupSuperConst (..),+  ) 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.Core.QAbstractAnimation as M2+import qualified Graphics.UI.Qtah.Generated.Core.QAnimationGroup as M10+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QPauseAnimation as M102+import Prelude (($), (.), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QSequentialAnimationGroup_addPause" addPause' ::  HoppyF.Ptr QSequentialAnimationGroup -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M102.QPauseAnimation)+foreign import ccall "genpop__QSequentialAnimationGroup_insertPause" insertPause' ::  HoppyF.Ptr QSequentialAnimationGroup -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M102.QPauseAnimation)+foreign import ccall "genpop__QSequentialAnimationGroup_currentAnimation" currentAnimation' ::  HoppyF.Ptr QSequentialAnimationGroupConst -> HoppyP.IO (HoppyF.Ptr M2.QAbstractAnimation)+foreign import ccall "genpop__QSequentialAnimationGroup_emitCurrentAnimationChanged" emitCurrentAnimationChanged' ::  HoppyF.Ptr QSequentialAnimationGroup -> HoppyF.Ptr M2.QAbstractAnimation -> HoppyP.IO ()+foreign import ccall "gencast__QSequentialAnimationGroup__QAnimationGroup" castQSequentialAnimationGroupToQAnimationGroup :: HoppyF.Ptr QSequentialAnimationGroupConst -> HoppyF.Ptr M10.QAnimationGroupConst+foreign import ccall "gencast__QAnimationGroup__QSequentialAnimationGroup" castQAnimationGroupToQSequentialAnimationGroup :: HoppyF.Ptr M10.QAnimationGroupConst -> HoppyF.Ptr QSequentialAnimationGroupConst+foreign import ccall "gencast__QSequentialAnimationGroup__QAbstractAnimation" castQSequentialAnimationGroupToQAbstractAnimation :: HoppyF.Ptr QSequentialAnimationGroupConst -> HoppyF.Ptr M2.QAbstractAnimationConst+foreign import ccall "gencast__QAbstractAnimation__QSequentialAnimationGroup" castQAbstractAnimationToQSequentialAnimationGroup :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr QSequentialAnimationGroupConst+foreign import ccall "gencast__QSequentialAnimationGroup__QObject" castQSequentialAnimationGroupToQObject :: HoppyF.Ptr QSequentialAnimationGroupConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QSequentialAnimationGroup" castQObjectToQSequentialAnimationGroup :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QSequentialAnimationGroupConst+foreign import ccall "gendel__QSequentialAnimationGroup" delete'QSequentialAnimationGroup :: HoppyF.Ptr QSequentialAnimationGroupConst -> HoppyP.IO ()+foreign import ccall "&gendel__QSequentialAnimationGroup" deletePtr'QSequentialAnimationGroup :: HoppyF.FunPtr (HoppyF.Ptr QSequentialAnimationGroupConst -> HoppyP.IO ())++class QSequentialAnimationGroupValue a where+  withQSequentialAnimationGroupPtr :: a -> (QSequentialAnimationGroupConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QSequentialAnimationGroupConstPtr a => QSequentialAnimationGroupValue a where+  withQSequentialAnimationGroupPtr = HoppyP.flip ($) . toQSequentialAnimationGroupConst++class (M10.QAnimationGroupConstPtr this) => QSequentialAnimationGroupConstPtr this where+  toQSequentialAnimationGroupConst :: this -> QSequentialAnimationGroupConst++currentAnimation :: (QSequentialAnimationGroupValue this) => (this) {- ^ this -} -> (HoppyP.IO M2.QAbstractAnimation)+currentAnimation arg'1 =+  withQSequentialAnimationGroupPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M2.QAbstractAnimation+  (currentAnimation' arg'1')++class (QSequentialAnimationGroupConstPtr this, M10.QAnimationGroupPtr this) => QSequentialAnimationGroupPtr this where+  toQSequentialAnimationGroup :: this -> QSequentialAnimationGroup++addPause :: (QSequentialAnimationGroupPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M102.QPauseAnimation)+addPause arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSequentialAnimationGroup arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M102.QPauseAnimation+  (addPause' arg'1' arg'2')++insertPause :: (QSequentialAnimationGroupPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO M102.QPauseAnimation)+insertPause arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQSequentialAnimationGroup arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap M102.QPauseAnimation+  (insertPause' arg'1' arg'2' arg'3')++emitCurrentAnimationChanged :: (QSequentialAnimationGroupPtr this, M2.QAbstractAnimationPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitCurrentAnimationChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSequentialAnimationGroup arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M2.toQAbstractAnimation arg'2) $ \arg'2' ->+  (emitCurrentAnimationChanged' arg'1' arg'2')++data QSequentialAnimationGroupConst =+    QSequentialAnimationGroupConst (HoppyF.Ptr QSequentialAnimationGroupConst)+  | QSequentialAnimationGroupConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSequentialAnimationGroupConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QSequentialAnimationGroupConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QSequentialAnimationGroupConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQSequentialAnimationGroupToConst :: QSequentialAnimationGroup -> QSequentialAnimationGroupConst+castQSequentialAnimationGroupToConst (QSequentialAnimationGroup ptr') = QSequentialAnimationGroupConst $ HoppyF.castPtr ptr'+castQSequentialAnimationGroupToConst (QSequentialAnimationGroupGc fptr' ptr') = QSequentialAnimationGroupConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QSequentialAnimationGroupConst where+  nullptr = QSequentialAnimationGroupConst HoppyF.nullPtr+  +  withCppPtr (QSequentialAnimationGroupConst ptr') f' = f' ptr'+  withCppPtr (QSequentialAnimationGroupConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QSequentialAnimationGroupConst ptr') = ptr'+  toPtr (QSequentialAnimationGroupConstGc _ ptr') = ptr'+  +  touchCppPtr (QSequentialAnimationGroupConst _) = HoppyP.return ()+  touchCppPtr (QSequentialAnimationGroupConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QSequentialAnimationGroupConst where+  delete (QSequentialAnimationGroupConst ptr') = delete'QSequentialAnimationGroup ptr'+  delete (QSequentialAnimationGroupConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QSequentialAnimationGroupConst", " object."]+  +  toGc this'@(QSequentialAnimationGroupConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QSequentialAnimationGroupConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QSequentialAnimationGroup :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QSequentialAnimationGroupConstGc {}) = HoppyP.return this'++instance QSequentialAnimationGroupConstPtr QSequentialAnimationGroupConst where+  toQSequentialAnimationGroupConst = HoppyP.id++instance M10.QAnimationGroupConstPtr QSequentialAnimationGroupConst where+  toQAnimationGroupConst (QSequentialAnimationGroupConst ptr') = M10.QAnimationGroupConst $ castQSequentialAnimationGroupToQAnimationGroup ptr'+  toQAnimationGroupConst (QSequentialAnimationGroupConstGc fptr' ptr') = M10.QAnimationGroupConstGc fptr' $ castQSequentialAnimationGroupToQAnimationGroup ptr'++instance M2.QAbstractAnimationConstPtr QSequentialAnimationGroupConst where+  toQAbstractAnimationConst (QSequentialAnimationGroupConst ptr') = M2.QAbstractAnimationConst $ castQSequentialAnimationGroupToQAbstractAnimation ptr'+  toQAbstractAnimationConst (QSequentialAnimationGroupConstGc fptr' ptr') = M2.QAbstractAnimationConstGc fptr' $ castQSequentialAnimationGroupToQAbstractAnimation ptr'++instance M94.QObjectConstPtr QSequentialAnimationGroupConst where+  toQObjectConst (QSequentialAnimationGroupConst ptr') = M94.QObjectConst $ castQSequentialAnimationGroupToQObject ptr'+  toQObjectConst (QSequentialAnimationGroupConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQSequentialAnimationGroupToQObject ptr'++data QSequentialAnimationGroup =+    QSequentialAnimationGroup (HoppyF.Ptr QSequentialAnimationGroup)+  | QSequentialAnimationGroupGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSequentialAnimationGroup)+  deriving (HoppyP.Show)++instance HoppyP.Eq QSequentialAnimationGroup where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QSequentialAnimationGroup where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQSequentialAnimationGroupToNonconst :: QSequentialAnimationGroupConst -> QSequentialAnimationGroup+castQSequentialAnimationGroupToNonconst (QSequentialAnimationGroupConst ptr') = QSequentialAnimationGroup $ HoppyF.castPtr ptr'+castQSequentialAnimationGroupToNonconst (QSequentialAnimationGroupConstGc fptr' ptr') = QSequentialAnimationGroupGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QSequentialAnimationGroup where+  nullptr = QSequentialAnimationGroup HoppyF.nullPtr+  +  withCppPtr (QSequentialAnimationGroup ptr') f' = f' ptr'+  withCppPtr (QSequentialAnimationGroupGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QSequentialAnimationGroup ptr') = ptr'+  toPtr (QSequentialAnimationGroupGc _ ptr') = ptr'+  +  touchCppPtr (QSequentialAnimationGroup _) = HoppyP.return ()+  touchCppPtr (QSequentialAnimationGroupGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QSequentialAnimationGroup where+  delete (QSequentialAnimationGroup ptr') = delete'QSequentialAnimationGroup $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QSequentialAnimationGroupConst)+  delete (QSequentialAnimationGroupGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QSequentialAnimationGroup", " object."]+  +  toGc this'@(QSequentialAnimationGroup ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QSequentialAnimationGroupGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QSequentialAnimationGroup :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QSequentialAnimationGroupGc {}) = HoppyP.return this'++instance QSequentialAnimationGroupConstPtr QSequentialAnimationGroup where+  toQSequentialAnimationGroupConst (QSequentialAnimationGroup ptr') = QSequentialAnimationGroupConst $ (HoppyF.castPtr :: HoppyF.Ptr QSequentialAnimationGroup -> HoppyF.Ptr QSequentialAnimationGroupConst) ptr'+  toQSequentialAnimationGroupConst (QSequentialAnimationGroupGc fptr' ptr') = QSequentialAnimationGroupConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QSequentialAnimationGroup -> HoppyF.Ptr QSequentialAnimationGroupConst) ptr'++instance QSequentialAnimationGroupPtr QSequentialAnimationGroup where+  toQSequentialAnimationGroup = HoppyP.id++instance M10.QAnimationGroupConstPtr QSequentialAnimationGroup where+  toQAnimationGroupConst (QSequentialAnimationGroup ptr') = M10.QAnimationGroupConst $ castQSequentialAnimationGroupToQAnimationGroup $ (HoppyF.castPtr :: HoppyF.Ptr QSequentialAnimationGroup -> HoppyF.Ptr QSequentialAnimationGroupConst) ptr'+  toQAnimationGroupConst (QSequentialAnimationGroupGc fptr' ptr') = M10.QAnimationGroupConstGc fptr' $ castQSequentialAnimationGroupToQAnimationGroup $ (HoppyF.castPtr :: HoppyF.Ptr QSequentialAnimationGroup -> HoppyF.Ptr QSequentialAnimationGroupConst) ptr'++instance M10.QAnimationGroupPtr QSequentialAnimationGroup where+  toQAnimationGroup (QSequentialAnimationGroup ptr') = M10.QAnimationGroup $ (HoppyF.castPtr :: HoppyF.Ptr M10.QAnimationGroupConst -> HoppyF.Ptr M10.QAnimationGroup) $ castQSequentialAnimationGroupToQAnimationGroup $ (HoppyF.castPtr :: HoppyF.Ptr QSequentialAnimationGroup -> HoppyF.Ptr QSequentialAnimationGroupConst) ptr'+  toQAnimationGroup (QSequentialAnimationGroupGc fptr' ptr') = M10.QAnimationGroupGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M10.QAnimationGroupConst -> HoppyF.Ptr M10.QAnimationGroup) $ castQSequentialAnimationGroupToQAnimationGroup $ (HoppyF.castPtr :: HoppyF.Ptr QSequentialAnimationGroup -> HoppyF.Ptr QSequentialAnimationGroupConst) ptr'++instance M2.QAbstractAnimationConstPtr QSequentialAnimationGroup where+  toQAbstractAnimationConst (QSequentialAnimationGroup ptr') = M2.QAbstractAnimationConst $ castQSequentialAnimationGroupToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QSequentialAnimationGroup -> HoppyF.Ptr QSequentialAnimationGroupConst) ptr'+  toQAbstractAnimationConst (QSequentialAnimationGroupGc fptr' ptr') = M2.QAbstractAnimationConstGc fptr' $ castQSequentialAnimationGroupToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QSequentialAnimationGroup -> HoppyF.Ptr QSequentialAnimationGroupConst) ptr'++instance M2.QAbstractAnimationPtr QSequentialAnimationGroup where+  toQAbstractAnimation (QSequentialAnimationGroup ptr') = M2.QAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr M2.QAbstractAnimation) $ castQSequentialAnimationGroupToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QSequentialAnimationGroup -> HoppyF.Ptr QSequentialAnimationGroupConst) ptr'+  toQAbstractAnimation (QSequentialAnimationGroupGc fptr' ptr') = M2.QAbstractAnimationGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr M2.QAbstractAnimation) $ castQSequentialAnimationGroupToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QSequentialAnimationGroup -> HoppyF.Ptr QSequentialAnimationGroupConst) ptr'++instance M94.QObjectConstPtr QSequentialAnimationGroup where+  toQObjectConst (QSequentialAnimationGroup ptr') = M94.QObjectConst $ castQSequentialAnimationGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QSequentialAnimationGroup -> HoppyF.Ptr QSequentialAnimationGroupConst) ptr'+  toQObjectConst (QSequentialAnimationGroupGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQSequentialAnimationGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QSequentialAnimationGroup -> HoppyF.Ptr QSequentialAnimationGroupConst) ptr'++instance M94.QObjectPtr QSequentialAnimationGroup where+  toQObject (QSequentialAnimationGroup ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQSequentialAnimationGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QSequentialAnimationGroup -> HoppyF.Ptr QSequentialAnimationGroupConst) ptr'+  toQObject (QSequentialAnimationGroupGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQSequentialAnimationGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QSequentialAnimationGroup -> HoppyF.Ptr QSequentialAnimationGroupConst) ptr'++class QSequentialAnimationGroupSuper a where+  downToQSequentialAnimationGroup :: a -> QSequentialAnimationGroup++instance QSequentialAnimationGroupSuper M10.QAnimationGroup where+  downToQSequentialAnimationGroup = castQSequentialAnimationGroupToNonconst . cast' . M10.castQAnimationGroupToConst+    where+      cast' (M10.QAnimationGroupConst ptr') = QSequentialAnimationGroupConst $ castQAnimationGroupToQSequentialAnimationGroup ptr'+      cast' (M10.QAnimationGroupConstGc fptr' ptr') = QSequentialAnimationGroupConstGc fptr' $ castQAnimationGroupToQSequentialAnimationGroup ptr'+instance QSequentialAnimationGroupSuper M2.QAbstractAnimation where+  downToQSequentialAnimationGroup = castQSequentialAnimationGroupToNonconst . cast' . M2.castQAbstractAnimationToConst+    where+      cast' (M2.QAbstractAnimationConst ptr') = QSequentialAnimationGroupConst $ castQAbstractAnimationToQSequentialAnimationGroup ptr'+      cast' (M2.QAbstractAnimationConstGc fptr' ptr') = QSequentialAnimationGroupConstGc fptr' $ castQAbstractAnimationToQSequentialAnimationGroup ptr'+instance QSequentialAnimationGroupSuper M94.QObject where+  downToQSequentialAnimationGroup = castQSequentialAnimationGroupToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QSequentialAnimationGroupConst $ castQObjectToQSequentialAnimationGroup ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QSequentialAnimationGroupConstGc fptr' $ castQObjectToQSequentialAnimationGroup ptr'++class QSequentialAnimationGroupSuperConst a where+  downToQSequentialAnimationGroupConst :: a -> QSequentialAnimationGroupConst++instance QSequentialAnimationGroupSuperConst M10.QAnimationGroupConst where+  downToQSequentialAnimationGroupConst = cast'+    where+      cast' (M10.QAnimationGroupConst ptr') = QSequentialAnimationGroupConst $ castQAnimationGroupToQSequentialAnimationGroup ptr'+      cast' (M10.QAnimationGroupConstGc fptr' ptr') = QSequentialAnimationGroupConstGc fptr' $ castQAnimationGroupToQSequentialAnimationGroup ptr'+instance QSequentialAnimationGroupSuperConst M2.QAbstractAnimationConst where+  downToQSequentialAnimationGroupConst = cast'+    where+      cast' (M2.QAbstractAnimationConst ptr') = QSequentialAnimationGroupConst $ castQAbstractAnimationToQSequentialAnimationGroup ptr'+      cast' (M2.QAbstractAnimationConstGc fptr' ptr') = QSequentialAnimationGroupConstGc fptr' $ castQAbstractAnimationToQSequentialAnimationGroup ptr'+instance QSequentialAnimationGroupSuperConst M94.QObjectConst where+  downToQSequentialAnimationGroupConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QSequentialAnimationGroupConst $ castQObjectToQSequentialAnimationGroup ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QSequentialAnimationGroupConstGc fptr' $ castQObjectToQSequentialAnimationGroup ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QSequentialAnimationGroup)) QSequentialAnimationGroup where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QSequentialAnimationGroup)) QSequentialAnimationGroup where+  decode = HoppyP.fmap QSequentialAnimationGroup . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QSettings.hs view
@@ -0,0 +1,225 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QSettings (+  castQSettingsToQObject,+  castQObjectToQSettings,+  QSettingsValue (..),+  QSettingsConstPtr (..),+  value,+  valueWithDefault,+  QSettingsPtr (..),+  setValue,+  QSettingsConst (..),+  castQSettingsToConst,+  QSettings (..),+  castQSettingsToNonconst,+  new,+  newWithOrganization,+  newWithOrganizationAndApplication,+  newWithOrganizationAndApplicationAndParent,+  newWithParent,+  QSettingsSuper (..),+  QSettingsSuperConst (..),+  ) 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.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168+import Prelude (($), (.), (=<<), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QSettings_new" new' ::  HoppyP.IO (HoppyF.Ptr QSettings)+foreign import ccall "genpop__QSettings_newWithOrganization" newWithOrganization' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QSettings)+foreign import ccall "genpop__QSettings_newWithOrganizationAndApplication" newWithOrganizationAndApplication' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QSettings)+foreign import ccall "genpop__QSettings_newWithOrganizationAndApplicationAndParent" newWithOrganizationAndApplicationAndParent' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QSettings)+foreign import ccall "genpop__QSettings_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QSettings)+foreign import ccall "genpop__QSettings_setValue" setValue' ::  HoppyF.Ptr QSettings -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QSettings_value" value' ::  HoppyF.Ptr QSettingsConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QSettings_valueWithDefault" valueWithDefault' ::  HoppyF.Ptr QSettingsConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "gencast__QSettings__QObject" castQSettingsToQObject :: HoppyF.Ptr QSettingsConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QSettings" castQObjectToQSettings :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QSettingsConst+foreign import ccall "gendel__QSettings" delete'QSettings :: HoppyF.Ptr QSettingsConst -> HoppyP.IO ()+foreign import ccall "&gendel__QSettings" deletePtr'QSettings :: HoppyF.FunPtr (HoppyF.Ptr QSettingsConst -> HoppyP.IO ())++class QSettingsValue a where+  withQSettingsPtr :: a -> (QSettingsConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QSettingsConstPtr a => QSettingsValue a where+  withQSettingsPtr = HoppyP.flip ($) . toQSettingsConst++class (M94.QObjectConstPtr this) => QSettingsConstPtr this where+  toQSettingsConst :: this -> QSettingsConst++value :: (QSettingsValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M168.QVariant)+value arg'1 arg'2 =+  withQSettingsPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (value' arg'1' arg'2')++valueWithDefault :: (QSettingsValue this, M142.QStringValue arg'2, M168.QVariantValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO M168.QVariant)+valueWithDefault arg'1 arg'2 arg'3 =+  withQSettingsPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M168.withQVariantPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (valueWithDefault' arg'1' arg'2' arg'3')++class (QSettingsConstPtr this, M94.QObjectPtr this) => QSettingsPtr this where+  toQSettings :: this -> QSettings++setValue :: (QSettingsPtr this, M142.QStringValue arg'2, M168.QVariantValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+setValue arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQSettings arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M168.withQVariantPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (setValue' arg'1' arg'2' arg'3')++data QSettingsConst =+    QSettingsConst (HoppyF.Ptr QSettingsConst)+  | QSettingsConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSettingsConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QSettingsConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QSettingsConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQSettingsToConst :: QSettings -> QSettingsConst+castQSettingsToConst (QSettings ptr') = QSettingsConst $ HoppyF.castPtr ptr'+castQSettingsToConst (QSettingsGc fptr' ptr') = QSettingsConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QSettingsConst where+  nullptr = QSettingsConst HoppyF.nullPtr+  +  withCppPtr (QSettingsConst ptr') f' = f' ptr'+  withCppPtr (QSettingsConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QSettingsConst ptr') = ptr'+  toPtr (QSettingsConstGc _ ptr') = ptr'+  +  touchCppPtr (QSettingsConst _) = HoppyP.return ()+  touchCppPtr (QSettingsConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QSettingsConst where+  delete (QSettingsConst ptr') = delete'QSettings ptr'+  delete (QSettingsConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QSettingsConst", " object."]+  +  toGc this'@(QSettingsConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QSettingsConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QSettings :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QSettingsConstGc {}) = HoppyP.return this'++instance QSettingsConstPtr QSettingsConst where+  toQSettingsConst = HoppyP.id++instance M94.QObjectConstPtr QSettingsConst where+  toQObjectConst (QSettingsConst ptr') = M94.QObjectConst $ castQSettingsToQObject ptr'+  toQObjectConst (QSettingsConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQSettingsToQObject ptr'++data QSettings =+    QSettings (HoppyF.Ptr QSettings)+  | QSettingsGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSettings)+  deriving (HoppyP.Show)++instance HoppyP.Eq QSettings where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QSettings where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQSettingsToNonconst :: QSettingsConst -> QSettings+castQSettingsToNonconst (QSettingsConst ptr') = QSettings $ HoppyF.castPtr ptr'+castQSettingsToNonconst (QSettingsConstGc fptr' ptr') = QSettingsGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QSettings where+  nullptr = QSettings HoppyF.nullPtr+  +  withCppPtr (QSettings ptr') f' = f' ptr'+  withCppPtr (QSettingsGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QSettings ptr') = ptr'+  toPtr (QSettingsGc _ ptr') = ptr'+  +  touchCppPtr (QSettings _) = HoppyP.return ()+  touchCppPtr (QSettingsGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QSettings where+  delete (QSettings ptr') = delete'QSettings $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QSettingsConst)+  delete (QSettingsGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QSettings", " object."]+  +  toGc this'@(QSettings ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QSettingsGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QSettings :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QSettingsGc {}) = HoppyP.return this'++instance QSettingsConstPtr QSettings where+  toQSettingsConst (QSettings ptr') = QSettingsConst $ (HoppyF.castPtr :: HoppyF.Ptr QSettings -> HoppyF.Ptr QSettingsConst) ptr'+  toQSettingsConst (QSettingsGc fptr' ptr') = QSettingsConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QSettings -> HoppyF.Ptr QSettingsConst) ptr'++instance QSettingsPtr QSettings where+  toQSettings = HoppyP.id++instance M94.QObjectConstPtr QSettings where+  toQObjectConst (QSettings ptr') = M94.QObjectConst $ castQSettingsToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QSettings -> HoppyF.Ptr QSettingsConst) ptr'+  toQObjectConst (QSettingsGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQSettingsToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QSettings -> HoppyF.Ptr QSettingsConst) ptr'++instance M94.QObjectPtr QSettings where+  toQObject (QSettings ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQSettingsToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QSettings -> HoppyF.Ptr QSettingsConst) ptr'+  toQObject (QSettingsGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQSettingsToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QSettings -> HoppyF.Ptr QSettingsConst) ptr'++new :: (HoppyP.IO QSettings)+new =+  HoppyP.fmap QSettings+  (new')++newWithOrganization :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QSettings)+newWithOrganization arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QSettings+  (newWithOrganization' arg'1')++newWithOrganizationAndApplication :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QSettings)+newWithOrganizationAndApplication arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QSettings+  (newWithOrganizationAndApplication' arg'1' arg'2')++newWithOrganizationAndApplicationAndParent :: (M142.QStringValue arg'1, M142.QStringValue arg'2, M94.QObjectPtr arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO QSettings)+newWithOrganizationAndApplicationAndParent arg'1 arg'2 arg'3 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'3) $ \arg'3' ->+  HoppyP.fmap QSettings+  (newWithOrganizationAndApplicationAndParent' arg'1' arg'2' arg'3')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QSettings)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QSettings+  (newWithParent' arg'1')++class QSettingsSuper a where+  downToQSettings :: a -> QSettings++instance QSettingsSuper M94.QObject where+  downToQSettings = castQSettingsToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QSettingsConst $ castQObjectToQSettings ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QSettingsConstGc fptr' $ castQObjectToQSettings ptr'++class QSettingsSuperConst a where+  downToQSettingsConst :: a -> QSettingsConst++instance QSettingsSuperConst M94.QObjectConst where+  downToQSettingsConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QSettingsConst $ castQObjectToQSettings ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QSettingsConstGc fptr' $ castQObjectToQSettings ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QSettings)) QSettings where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QSettings)) QSettings where+  decode = HoppyP.fmap QSettings . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QSize.hs view
@@ -0,0 +1,379 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QSize (+  QSizeValue (..),+  QSizeConstPtr (..),+  boundedTo,+  expandedTo,+  height,+  isEmpty,+  isNull,+  isValid,+  scaled,+  transposed,+  width,+  eQ,+  nE,+  QSizePtr (..),+  setHeight,+  scale,+  transpose,+  setWidth,+  aDDA,+  sUBA,+  mULA,+  dIVA,+  aSSIGN,+  QSizeConst (..),+  castQSizeToConst,+  QSize (..),+  castQSizeToNonconst,+  newNull,+  new,+  newCopy,+  QSizeSuper (..),+  QSizeSuperConst (..),+  ) where++import Control.Applicative ((<$>), (<*>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Core.HSize as HSize+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QSize_newNull" newNull' ::  HoppyP.IO (HoppyF.Ptr QSize)+foreign import ccall "genpop__QSize_new" new' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QSize)+foreign import ccall "genpop__QSize_newCopy" newCopy' ::  HoppyF.Ptr QSizeConst -> HoppyP.IO (HoppyF.Ptr QSize)+foreign import ccall "genpop__QSize_boundedTo" boundedTo' ::  HoppyF.Ptr QSizeConst -> HoppyF.Ptr QSizeConst -> HoppyP.IO (HoppyF.Ptr QSizeConst)+foreign import ccall "genpop__QSize_expandedTo" expandedTo' ::  HoppyF.Ptr QSizeConst -> HoppyF.Ptr QSizeConst -> HoppyP.IO (HoppyF.Ptr QSizeConst)+foreign import ccall "genpop__QSize_height" height' ::  HoppyF.Ptr QSizeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QSize_setHeight" setHeight' ::  HoppyF.Ptr QSize -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QSize_isEmpty" isEmpty' ::  HoppyF.Ptr QSizeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QSize_isNull" isNull' ::  HoppyF.Ptr QSizeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QSize_isValid" isValid' ::  HoppyF.Ptr QSizeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QSize_scale" scale' ::  HoppyF.Ptr QSize -> HoppyF.Ptr QSizeConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QSize_scaled" scaled' ::  HoppyF.Ptr QSizeConst -> HoppyF.Ptr QSizeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QSizeConst)+foreign import ccall "genpop__QSize_transpose" transpose' ::  HoppyF.Ptr QSize -> HoppyP.IO ()+foreign import ccall "genpop__QSize_transposed" transposed' ::  HoppyF.Ptr QSizeConst -> HoppyP.IO (HoppyF.Ptr QSizeConst)+foreign import ccall "genpop__QSize_width" width' ::  HoppyF.Ptr QSizeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QSize_setWidth" setWidth' ::  HoppyF.Ptr QSize -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QSize_ADDA" aDDA' ::  HoppyF.Ptr QSize -> HoppyF.Ptr QSizeConst -> HoppyP.IO (HoppyF.Ptr QSize)+foreign import ccall "genpop__QSize_SUBA" sUBA' ::  HoppyF.Ptr QSize -> HoppyF.Ptr QSizeConst -> HoppyP.IO (HoppyF.Ptr QSize)+foreign import ccall "genpop__QSize_MULA" mULA' ::  HoppyF.Ptr QSize -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QSize)+foreign import ccall "genpop__QSize_DIVA" dIVA' ::  HoppyF.Ptr QSize -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QSize)+foreign import ccall "genpop__QSize_EQ" eQ' ::  HoppyF.Ptr QSizeConst -> HoppyF.Ptr QSizeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QSize_NE" nE' ::  HoppyF.Ptr QSizeConst -> HoppyF.Ptr QSizeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QSize_ASSIGN" aSSIGN' ::  HoppyF.Ptr QSize -> HoppyF.Ptr QSizeConst -> HoppyP.IO (HoppyF.Ptr QSize)+foreign import ccall "gendel__QSize" delete'QSize :: HoppyF.Ptr QSizeConst -> HoppyP.IO ()+foreign import ccall "&gendel__QSize" deletePtr'QSize :: HoppyF.FunPtr (HoppyF.Ptr QSizeConst -> HoppyP.IO ())++class QSizeValue a where+  withQSizePtr :: a -> (QSizeConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QSizeConstPtr a => QSizeValue a where+  withQSizePtr = HoppyP.flip ($) . toQSizeConst++instance {-# OVERLAPPING #-} QSizeValue (HSize.HSize) where+  withQSizePtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QSizeConstPtr this where+  toQSizeConst :: this -> QSizeConst++boundedTo :: (QSizeValue this, QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HSize.HSize)+boundedTo arg'1 arg'2 =+  withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QSizeConst) =<<+  (boundedTo' arg'1' arg'2')++expandedTo :: (QSizeValue this, QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HSize.HSize)+expandedTo arg'1 arg'2 =+  withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QSizeConst) =<<+  (expandedTo' arg'1' arg'2')++height :: (QSizeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+height arg'1 =+  withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (height' arg'1')++isEmpty :: (QSizeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++isNull :: (QSizeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++isValid :: (QSizeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++scaled :: (QSizeValue this, QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtAspectRatioMode) -> (HoppyP.IO HSize.HSize)+scaled arg'1 arg'2 arg'3 =+  withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QSizeConst) =<<+  (scaled' arg'1' arg'2' arg'3')++transposed :: (QSizeValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+transposed arg'1 =+  withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QSizeConst) =<<+  (transposed' arg'1')++width :: (QSizeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+width arg'1 =+  withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (width' arg'1')++eQ :: (QSizeValue this, QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QSizeValue this, QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QSizeConstPtr this) => QSizePtr this where+  toQSize :: this -> QSize++setHeight :: (QSizePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setHeight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSize arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setHeight' arg'1' arg'2')++scale :: (QSizePtr this, QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtAspectRatioMode) -> (HoppyP.IO ())+scale arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQSize arg'1) $ \arg'1' ->+  withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (scale' arg'1' arg'2' arg'3')++transpose :: (QSizePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+transpose arg'1 =+  HoppyFHR.withCppPtr (toQSize arg'1) $ \arg'1' ->+  (transpose' arg'1')++setWidth :: (QSizePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setWidth arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSize arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setWidth' arg'1' arg'2')++aDDA :: (QSizePtr this, QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QSize)+aDDA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSize arg'1) $ \arg'1' ->+  withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QSize+  (aDDA' arg'1' arg'2')++sUBA :: (QSizePtr this, QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QSize)+sUBA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSize arg'1) $ \arg'1' ->+  withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QSize+  (sUBA' arg'1' arg'2')++mULA :: (QSizePtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QSize)+mULA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSize arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QSize+  (mULA' arg'1' arg'2')++dIVA :: (QSizePtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QSize)+dIVA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSize arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QSize+  (dIVA' arg'1' arg'2')++aSSIGN :: (QSizePtr this, QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QSize)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSize arg'1) $ \arg'1' ->+  withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QSize+  (aSSIGN' arg'1' arg'2')++data QSizeConst =+    QSizeConst (HoppyF.Ptr QSizeConst)+  | QSizeConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSizeConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QSizeConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QSizeConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQSizeToConst :: QSize -> QSizeConst+castQSizeToConst (QSize ptr') = QSizeConst $ HoppyF.castPtr ptr'+castQSizeToConst (QSizeGc fptr' ptr') = QSizeConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QSizeConst where+  nullptr = QSizeConst HoppyF.nullPtr+  +  withCppPtr (QSizeConst ptr') f' = f' ptr'+  withCppPtr (QSizeConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QSizeConst ptr') = ptr'+  toPtr (QSizeConstGc _ ptr') = ptr'+  +  touchCppPtr (QSizeConst _) = HoppyP.return ()+  touchCppPtr (QSizeConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QSizeConst where+  delete (QSizeConst ptr') = delete'QSize ptr'+  delete (QSizeConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QSizeConst", " object."]+  +  toGc this'@(QSizeConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QSizeConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QSize :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QSizeConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QSizeConst QSize where copy = newCopy++instance QSizeConstPtr QSizeConst where+  toQSizeConst = HoppyP.id++data QSize =+    QSize (HoppyF.Ptr QSize)+  | QSizeGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSize)+  deriving (HoppyP.Show)++instance HoppyP.Eq QSize where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QSize where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQSizeToNonconst :: QSizeConst -> QSize+castQSizeToNonconst (QSizeConst ptr') = QSize $ HoppyF.castPtr ptr'+castQSizeToNonconst (QSizeConstGc fptr' ptr') = QSizeGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QSize where+  nullptr = QSize HoppyF.nullPtr+  +  withCppPtr (QSize ptr') f' = f' ptr'+  withCppPtr (QSizeGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QSize ptr') = ptr'+  toPtr (QSizeGc _ ptr') = ptr'+  +  touchCppPtr (QSize _) = HoppyP.return ()+  touchCppPtr (QSizeGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QSize where+  delete (QSize ptr') = delete'QSize $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QSizeConst)+  delete (QSizeGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QSize", " object."]+  +  toGc this'@(QSize ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QSizeGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QSize :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QSizeGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QSize QSize where copy = newCopy++instance QSizeConstPtr QSize where+  toQSizeConst (QSize ptr') = QSizeConst $ (HoppyF.castPtr :: HoppyF.Ptr QSize -> HoppyF.Ptr QSizeConst) ptr'+  toQSizeConst (QSizeGc fptr' ptr') = QSizeConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QSize -> HoppyF.Ptr QSizeConst) ptr'++instance QSizePtr QSize where+  toQSize = HoppyP.id++newNull :: (HoppyP.IO QSize)+newNull =+  HoppyP.fmap QSize+  (newNull')++new :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QSize)+new arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QSize+  (new' arg'1' arg'2')++newCopy :: (QSizeValue arg'1) => (arg'1) -> (HoppyP.IO QSize)+newCopy arg'1 =+  withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QSize+  (newCopy' arg'1')++class QSizeSuper a where+  downToQSize :: a -> QSize+++class QSizeSuperConst a where+  downToQSizeConst :: a -> QSizeConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QSize)) QSize where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QSizeValue a => HoppyFHR.Assignable QSize a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QSize)) QSize where+  decode = HoppyP.fmap QSize . HoppyF.peek++instance HoppyFHR.Encodable QSize (HSize.HSize) where+  encode =+    new <$> HSize.width <*> HSize.height++instance HoppyFHR.Encodable QSizeConst (HSize.HSize) where+  encode = HoppyP.fmap (toQSizeConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QSize)++instance HoppyFHR.Decodable QSize (HSize.HSize) where+  decode = HoppyFHR.decode . toQSizeConst++instance HoppyFHR.Decodable QSizeConst (HSize.HSize) where+  decode =+    \q -> HSize.HSize <$> width q <*> height q
src/Graphics/UI/Qtah/Generated/Core/QSizeF.hs view
@@ -0,0 +1,386 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QSizeF (+  QSizeFValue (..),+  QSizeFConstPtr (..),+  boundedTo,+  expandedTo,+  height,+  isEmpty,+  isNull,+  isValid,+  scaled,+  toSize,+  transposed,+  width,+  eQ,+  nE,+  QSizeFPtr (..),+  setHeight,+  scale,+  transpose,+  setWidth,+  aDDA,+  sUBA,+  mULA,+  dIVA,+  aSSIGN,+  QSizeFConst (..),+  castQSizeFToConst,+  QSizeF (..),+  castQSizeFToNonconst,+  newNull,+  new,+  newWithSize,+  newCopy,+  QSizeFSuper (..),+  QSizeFSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Core.HSize as HSize+import qualified Graphics.UI.Qtah.Generated.Core.QSize as M134+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QSizeF_newNull" newNull' ::  HoppyP.IO (HoppyF.Ptr QSizeF)+foreign import ccall "genpop__QSizeF_new" new' ::  HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QSizeF)+foreign import ccall "genpop__QSizeF_newWithSize" newWithSize' ::  HoppyF.Ptr M134.QSizeConst -> HoppyP.IO (HoppyF.Ptr QSizeF)+foreign import ccall "genpop__QSizeF_newCopy" newCopy' ::  HoppyF.Ptr QSizeFConst -> HoppyP.IO (HoppyF.Ptr QSizeF)+foreign import ccall "genpop__QSizeF_boundedTo" boundedTo' ::  HoppyF.Ptr QSizeFConst -> HoppyF.Ptr QSizeFConst -> HoppyP.IO (HoppyF.Ptr QSizeFConst)+foreign import ccall "genpop__QSizeF_expandedTo" expandedTo' ::  HoppyF.Ptr QSizeFConst -> HoppyF.Ptr QSizeFConst -> HoppyP.IO (HoppyF.Ptr QSizeFConst)+foreign import ccall "genpop__QSizeF_height" height' ::  HoppyF.Ptr QSizeFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QSizeF_setHeight" setHeight' ::  HoppyF.Ptr QSizeF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QSizeF_isEmpty" isEmpty' ::  HoppyF.Ptr QSizeFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QSizeF_isNull" isNull' ::  HoppyF.Ptr QSizeFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QSizeF_isValid" isValid' ::  HoppyF.Ptr QSizeFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QSizeF_scale" scale' ::  HoppyF.Ptr QSizeF -> HoppyF.Ptr QSizeFConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QSizeF_scaled" scaled' ::  HoppyF.Ptr QSizeFConst -> HoppyF.Ptr QSizeFConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QSizeFConst)+foreign import ccall "genpop__QSizeF_toSize" toSize' ::  HoppyF.Ptr QSizeFConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QSizeF_transpose" transpose' ::  HoppyF.Ptr QSizeF -> HoppyP.IO ()+foreign import ccall "genpop__QSizeF_transposed" transposed' ::  HoppyF.Ptr QSizeFConst -> HoppyP.IO (HoppyF.Ptr QSizeFConst)+foreign import ccall "genpop__QSizeF_width" width' ::  HoppyF.Ptr QSizeFConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QSizeF_setWidth" setWidth' ::  HoppyF.Ptr QSizeF -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QSizeF_ADDA" aDDA' ::  HoppyF.Ptr QSizeF -> HoppyF.Ptr QSizeFConst -> HoppyP.IO (HoppyF.Ptr QSizeF)+foreign import ccall "genpop__QSizeF_SUBA" sUBA' ::  HoppyF.Ptr QSizeF -> HoppyF.Ptr QSizeFConst -> HoppyP.IO (HoppyF.Ptr QSizeFConst)+foreign import ccall "genpop__QSizeF_MULA" mULA' ::  HoppyF.Ptr QSizeF -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QSizeF)+foreign import ccall "genpop__QSizeF_DIVA" dIVA' ::  HoppyF.Ptr QSizeF -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QSizeF)+foreign import ccall "genpop__QSizeF_EQ" eQ' ::  HoppyF.Ptr QSizeFConst -> HoppyF.Ptr QSizeFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QSizeF_NE" nE' ::  HoppyF.Ptr QSizeFConst -> HoppyF.Ptr QSizeFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QSizeF_ASSIGN" aSSIGN' ::  HoppyF.Ptr QSizeF -> HoppyF.Ptr QSizeFConst -> HoppyP.IO (HoppyF.Ptr QSizeF)+foreign import ccall "gendel__QSizeF" delete'QSizeF :: HoppyF.Ptr QSizeFConst -> HoppyP.IO ()+foreign import ccall "&gendel__QSizeF" deletePtr'QSizeF :: HoppyF.FunPtr (HoppyF.Ptr QSizeFConst -> HoppyP.IO ())++class QSizeFValue a where+  withQSizeFPtr :: a -> (QSizeFConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QSizeFConstPtr a => QSizeFValue a where+  withQSizeFPtr = HoppyP.flip ($) . toQSizeFConst++class (HoppyFHR.CppPtr this) => QSizeFConstPtr this where+  toQSizeFConst :: this -> QSizeFConst++boundedTo :: (QSizeFValue this, QSizeFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QSizeF)+boundedTo arg'1 arg'2 =+  withQSizeFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQSizeFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QSizeFConst) =<<+  (boundedTo' arg'1' arg'2')++expandedTo :: (QSizeFValue this, QSizeFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QSizeF)+expandedTo arg'1 arg'2 =+  withQSizeFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQSizeFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QSizeFConst) =<<+  (expandedTo' arg'1' arg'2')++height :: (QSizeFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+height arg'1 =+  withQSizeFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (height' arg'1')++isEmpty :: (QSizeFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQSizeFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++isNull :: (QSizeFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQSizeFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++isValid :: (QSizeFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQSizeFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++scaled :: (QSizeFValue this, QSizeFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtAspectRatioMode) -> (HoppyP.IO QSizeF)+scaled arg'1 arg'2 arg'3 =+  withQSizeFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQSizeFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QSizeFConst) =<<+  (scaled' arg'1' arg'2' arg'3')++toSize :: (QSizeFValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+toSize arg'1 =+  withQSizeFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (toSize' arg'1')++transposed :: (QSizeFValue this) => (this) {- ^ this -} -> (HoppyP.IO QSizeF)+transposed arg'1 =+  withQSizeFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QSizeFConst) =<<+  (transposed' arg'1')++width :: (QSizeFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+width arg'1 =+  withQSizeFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (width' arg'1')++eQ :: (QSizeFValue this, QSizeFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQSizeFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQSizeFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QSizeFValue this, QSizeFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQSizeFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQSizeFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QSizeFConstPtr this) => QSizeFPtr this where+  toQSizeF :: this -> QSizeF++setHeight :: (QSizeFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setHeight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSizeF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setHeight' arg'1' arg'2')++scale :: (QSizeFPtr this, QSizeFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtAspectRatioMode) -> (HoppyP.IO ())+scale arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQSizeF arg'1) $ \arg'1' ->+  withQSizeFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (scale' arg'1' arg'2' arg'3')++transpose :: (QSizeFPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+transpose arg'1 =+  HoppyFHR.withCppPtr (toQSizeF arg'1) $ \arg'1' ->+  (transpose' arg'1')++setWidth :: (QSizeFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setWidth arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSizeF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setWidth' arg'1' arg'2')++aDDA :: (QSizeFPtr this, QSizeFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QSizeF)+aDDA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSizeF arg'1) $ \arg'1' ->+  withQSizeFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QSizeF+  (aDDA' arg'1' arg'2')++sUBA :: (QSizeFPtr this, QSizeFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QSizeF)+sUBA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSizeF arg'1) $ \arg'1' ->+  withQSizeFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QSizeFConst) =<<+  (sUBA' arg'1' arg'2')++mULA :: (QSizeFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QSizeF)+mULA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSizeF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QSizeF+  (mULA' arg'1' arg'2')++dIVA :: (QSizeFPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QSizeF)+dIVA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSizeF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QSizeF+  (dIVA' arg'1' arg'2')++aSSIGN :: (QSizeFPtr this, QSizeFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QSizeF)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQSizeF arg'1) $ \arg'1' ->+  withQSizeFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QSizeF+  (aSSIGN' arg'1' arg'2')++data QSizeFConst =+    QSizeFConst (HoppyF.Ptr QSizeFConst)+  | QSizeFConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSizeFConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QSizeFConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QSizeFConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQSizeFToConst :: QSizeF -> QSizeFConst+castQSizeFToConst (QSizeF ptr') = QSizeFConst $ HoppyF.castPtr ptr'+castQSizeFToConst (QSizeFGc fptr' ptr') = QSizeFConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QSizeFConst where+  nullptr = QSizeFConst HoppyF.nullPtr+  +  withCppPtr (QSizeFConst ptr') f' = f' ptr'+  withCppPtr (QSizeFConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QSizeFConst ptr') = ptr'+  toPtr (QSizeFConstGc _ ptr') = ptr'+  +  touchCppPtr (QSizeFConst _) = HoppyP.return ()+  touchCppPtr (QSizeFConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QSizeFConst where+  delete (QSizeFConst ptr') = delete'QSizeF ptr'+  delete (QSizeFConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QSizeFConst", " object."]+  +  toGc this'@(QSizeFConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QSizeFConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QSizeF :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QSizeFConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QSizeFConst QSizeF where copy = newCopy++instance QSizeFConstPtr QSizeFConst where+  toQSizeFConst = HoppyP.id++data QSizeF =+    QSizeF (HoppyF.Ptr QSizeF)+  | QSizeFGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSizeF)+  deriving (HoppyP.Show)++instance HoppyP.Eq QSizeF where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QSizeF where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQSizeFToNonconst :: QSizeFConst -> QSizeF+castQSizeFToNonconst (QSizeFConst ptr') = QSizeF $ HoppyF.castPtr ptr'+castQSizeFToNonconst (QSizeFConstGc fptr' ptr') = QSizeFGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QSizeF where+  nullptr = QSizeF HoppyF.nullPtr+  +  withCppPtr (QSizeF ptr') f' = f' ptr'+  withCppPtr (QSizeFGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QSizeF ptr') = ptr'+  toPtr (QSizeFGc _ ptr') = ptr'+  +  touchCppPtr (QSizeF _) = HoppyP.return ()+  touchCppPtr (QSizeFGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QSizeF where+  delete (QSizeF ptr') = delete'QSizeF $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QSizeFConst)+  delete (QSizeFGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QSizeF", " object."]+  +  toGc this'@(QSizeF ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QSizeFGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QSizeF :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QSizeFGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QSizeF QSizeF where copy = newCopy++instance QSizeFConstPtr QSizeF where+  toQSizeFConst (QSizeF ptr') = QSizeFConst $ (HoppyF.castPtr :: HoppyF.Ptr QSizeF -> HoppyF.Ptr QSizeFConst) ptr'+  toQSizeFConst (QSizeFGc fptr' ptr') = QSizeFConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QSizeF -> HoppyF.Ptr QSizeFConst) ptr'++instance QSizeFPtr QSizeF where+  toQSizeF = HoppyP.id++newNull :: (HoppyP.IO QSizeF)+newNull =+  HoppyP.fmap QSizeF+  (newNull')++new :: (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO QSizeF)+new arg'1 arg'2 =+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QSizeF+  (new' arg'1' arg'2')++newWithSize :: (M134.QSizeValue arg'1) => (arg'1) -> (HoppyP.IO QSizeF)+newWithSize arg'1 =+  M134.withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QSizeF+  (newWithSize' arg'1')++newCopy :: (QSizeFValue arg'1) => (arg'1) -> (HoppyP.IO QSizeF)+newCopy arg'1 =+  withQSizeFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QSizeF+  (newCopy' arg'1')++class QSizeFSuper a where+  downToQSizeF :: a -> QSizeF+++class QSizeFSuperConst a where+  downToQSizeFConst :: a -> QSizeFConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QSizeF)) QSizeF where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QSizeFValue a => HoppyFHR.Assignable QSizeF a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QSizeF)) QSizeF where+  decode = HoppyP.fmap QSizeF . HoppyF.peek++instance HoppyFHR.Decodable QSizeF (QSizeF) where+  decode = HoppyFHR.decode . toQSizeFConst++instance HoppyFHR.Decodable QSizeFConst (QSizeF) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QStandardPaths.hs view
@@ -0,0 +1,358 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QStandardPaths (+  QStandardPathsValue (..),+  QStandardPathsConstPtr (..),+  QStandardPathsPtr (..),+  displayName,+  findExecutable,+  findExecutableWithPaths,+  locate,+  locateWithOptions,+  locateAll,+  locateAllWithOptions,+  setTestModeEnabled,+  standardLocations,+  writableLocation,+  QStandardPathsConst (..),+  castQStandardPathsToConst,+  QStandardPaths (..),+  castQStandardPathsToNonconst,+  QStandardPathsSuper (..),+  QStandardPathsSuperConst (..),+  QStandardPathsLocateOption (..),+  QStandardPathsLocateOptions,+  IsQStandardPathsLocateOptions (..),+  locateDirectory,+  locateFile,+  QStandardPathsStandardLocation (..),+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QStringList as M144+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QStandardPaths_displayName" displayName' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QStandardPaths_findExecutable" findExecutable' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QStandardPaths_findExecutableWithPaths" findExecutableWithPaths' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QStandardPaths_locate" locate' ::  HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QStandardPaths_locateWithOptions" locateWithOptions' ::  HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QStandardPaths_locateAll" locateAll' ::  HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QStandardPaths_locateAllWithOptions" locateAllWithOptions' ::  HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QStandardPaths_setTestModeEnabled" setTestModeEnabled' ::  HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QStandardPaths_standardLocations" standardLocations' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QStandardPaths_writableLocation" writableLocation' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)++class QStandardPathsValue a where+  withQStandardPathsPtr :: a -> (QStandardPathsConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QStandardPathsConstPtr a => QStandardPathsValue a where+  withQStandardPathsPtr = HoppyP.flip ($) . toQStandardPathsConst++class (HoppyFHR.CppPtr this) => QStandardPathsConstPtr this where+  toQStandardPathsConst :: this -> QStandardPathsConst++class (QStandardPathsConstPtr this) => QStandardPathsPtr this where+  toQStandardPaths :: this -> QStandardPaths++displayName :: (QStandardPathsStandardLocation) -> (HoppyP.IO QtahP.String)+displayName arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (displayName' arg'1')++findExecutable :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QtahP.String)+findExecutable arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (findExecutable' arg'1')++findExecutableWithPaths :: (M142.QStringValue arg'1, M144.QStringListValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QtahP.String)+findExecutableWithPaths arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (findExecutableWithPaths' arg'1' arg'2')++locate :: (M142.QStringValue arg'2) => (QStandardPathsStandardLocation) -> (arg'2) -> (HoppyP.IO QtahP.String)+locate arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (locate' arg'1' arg'2')++locateWithOptions :: (M142.QStringValue arg'2, IsQStandardPathsLocateOptions arg'3) => (QStandardPathsStandardLocation) -> (arg'2) -> (arg'3) -> (HoppyP.IO QtahP.String)+locateWithOptions arg'1 arg'2 arg'3 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQStandardPathsLocateOptions+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (locateWithOptions' arg'1' arg'2' arg'3')++locateAll :: (M142.QStringValue arg'2) => (QStandardPathsStandardLocation) -> (arg'2) -> (HoppyP.IO [QtahP.String])+locateAll arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (locateAll' arg'1' arg'2')++locateAllWithOptions :: (M142.QStringValue arg'2, IsQStandardPathsLocateOptions arg'3) => (QStandardPathsStandardLocation) -> (arg'2) -> (arg'3) -> (HoppyP.IO [QtahP.String])+locateAllWithOptions arg'1 arg'2 arg'3 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQStandardPathsLocateOptions+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (locateAllWithOptions' arg'1' arg'2' arg'3')++setTestModeEnabled :: (HoppyP.Bool) -> (HoppyP.IO ())+setTestModeEnabled arg'1 =+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'1 >>= \arg'1' ->+  (setTestModeEnabled' arg'1')++standardLocations :: (QStandardPathsStandardLocation) -> (HoppyP.IO [QtahP.String])+standardLocations arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (standardLocations' arg'1')++writableLocation :: (QStandardPathsStandardLocation) -> (HoppyP.IO QtahP.String)+writableLocation arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (writableLocation' arg'1')++data QStandardPathsConst =+    QStandardPathsConst (HoppyF.Ptr QStandardPathsConst)+  | QStandardPathsConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStandardPathsConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QStandardPathsConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QStandardPathsConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQStandardPathsToConst :: QStandardPaths -> QStandardPathsConst+castQStandardPathsToConst (QStandardPaths ptr') = QStandardPathsConst $ HoppyF.castPtr ptr'+castQStandardPathsToConst (QStandardPathsGc fptr' ptr') = QStandardPathsConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QStandardPathsConst where+  nullptr = QStandardPathsConst HoppyF.nullPtr+  +  withCppPtr (QStandardPathsConst ptr') f' = f' ptr'+  withCppPtr (QStandardPathsConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QStandardPathsConst ptr') = ptr'+  toPtr (QStandardPathsConstGc _ ptr') = ptr'+  +  touchCppPtr (QStandardPathsConst _) = HoppyP.return ()+  touchCppPtr (QStandardPathsConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance QStandardPathsConstPtr QStandardPathsConst where+  toQStandardPathsConst = HoppyP.id++data QStandardPaths =+    QStandardPaths (HoppyF.Ptr QStandardPaths)+  | QStandardPathsGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStandardPaths)+  deriving (HoppyP.Show)++instance HoppyP.Eq QStandardPaths where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QStandardPaths where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQStandardPathsToNonconst :: QStandardPathsConst -> QStandardPaths+castQStandardPathsToNonconst (QStandardPathsConst ptr') = QStandardPaths $ HoppyF.castPtr ptr'+castQStandardPathsToNonconst (QStandardPathsConstGc fptr' ptr') = QStandardPathsGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QStandardPaths where+  nullptr = QStandardPaths HoppyF.nullPtr+  +  withCppPtr (QStandardPaths ptr') f' = f' ptr'+  withCppPtr (QStandardPathsGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QStandardPaths ptr') = ptr'+  toPtr (QStandardPathsGc _ ptr') = ptr'+  +  touchCppPtr (QStandardPaths _) = HoppyP.return ()+  touchCppPtr (QStandardPathsGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance QStandardPathsConstPtr QStandardPaths where+  toQStandardPathsConst (QStandardPaths ptr') = QStandardPathsConst $ (HoppyF.castPtr :: HoppyF.Ptr QStandardPaths -> HoppyF.Ptr QStandardPathsConst) ptr'+  toQStandardPathsConst (QStandardPathsGc fptr' ptr') = QStandardPathsConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QStandardPaths -> HoppyF.Ptr QStandardPathsConst) ptr'++instance QStandardPathsPtr QStandardPaths where+  toQStandardPaths = HoppyP.id++class QStandardPathsSuper a where+  downToQStandardPaths :: a -> QStandardPaths+++class QStandardPathsSuperConst a where+  downToQStandardPathsConst :: a -> QStandardPathsConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QStandardPaths)) QStandardPaths where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QStandardPaths)) QStandardPaths where+  decode = HoppyP.fmap QStandardPaths . HoppyF.peek++data QStandardPathsLocateOption =+  LocateFile+  | LocateDirectory+  | UnknownQStandardPathsLocateOption (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QStandardPathsLocateOption where+  fromCppEnum LocateFile = 0+  fromCppEnum LocateDirectory = 1+  fromCppEnum (UnknownQStandardPathsLocateOption n) = n+  +  toCppEnum (0) = LocateFile+  toCppEnum (1) = LocateDirectory+  toCppEnum n = UnknownQStandardPathsLocateOption n++instance HoppyP.Eq QStandardPathsLocateOption where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QStandardPathsLocateOption where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QStandardPathsLocateOptions = QStandardPathsLocateOptions (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QStandardPathsLocateOption QStandardPathsLocateOptions where+  enumToFlags = QStandardPathsLocateOptions . QtahFHR.fromCppEnum+  flagsToEnum (QStandardPathsLocateOptions x') = QtahFHR.toCppEnum x'++class IsQStandardPathsLocateOptions a where+  toQStandardPathsLocateOptions :: a -> QStandardPathsLocateOptions++instance IsQStandardPathsLocateOptions QStandardPathsLocateOptions where toQStandardPathsLocateOptions = QtahP.id+instance IsQStandardPathsLocateOptions QStandardPathsLocateOption where toQStandardPathsLocateOptions = QtahFlags.enumToFlags+instance IsQStandardPathsLocateOptions (HoppyFC.CInt) where toQStandardPathsLocateOptions = QtahFlags.numToFlags++locateDirectory :: QStandardPathsLocateOptions+locateDirectory = QStandardPathsLocateOptions (1)++locateFile :: QStandardPathsLocateOptions+locateFile = QStandardPathsLocateOptions (0)++instance QtahDB.Bits QStandardPathsLocateOptions where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QStandardPathsStandardLocation =+  DesktopLocation+  | DocumentsLocation+  | FontsLocation+  | ApplicationsLocation+  | MusicLocation+  | MoviesLocation+  | PicturesLocation+  | TempLocation+  | HomeLocation+  | DataLocation+  | CacheLocation+  | GenericDataLocation+  | RuntimeLocation+  | ConfigLocation+  | DownloadLocation+  | GenericCacheLocation+  | GenericConfigLocation+  | AppDataLocation+  | AppConfigLocation+  | UnknownQStandardPathsStandardLocation (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QStandardPathsStandardLocation where+  fromCppEnum DesktopLocation = 0+  fromCppEnum DocumentsLocation = 1+  fromCppEnum FontsLocation = 2+  fromCppEnum ApplicationsLocation = 3+  fromCppEnum MusicLocation = 4+  fromCppEnum MoviesLocation = 5+  fromCppEnum PicturesLocation = 6+  fromCppEnum TempLocation = 7+  fromCppEnum HomeLocation = 8+  fromCppEnum DataLocation = 9+  fromCppEnum CacheLocation = 10+  fromCppEnum GenericDataLocation = 11+  fromCppEnum RuntimeLocation = 12+  fromCppEnum ConfigLocation = 13+  fromCppEnum DownloadLocation = 14+  fromCppEnum GenericCacheLocation = 15+  fromCppEnum GenericConfigLocation = 16+  fromCppEnum AppDataLocation = 17+  fromCppEnum AppConfigLocation = 18+  fromCppEnum (UnknownQStandardPathsStandardLocation n) = n+  +  toCppEnum (0) = DesktopLocation+  toCppEnum (1) = DocumentsLocation+  toCppEnum (2) = FontsLocation+  toCppEnum (3) = ApplicationsLocation+  toCppEnum (4) = MusicLocation+  toCppEnum (5) = MoviesLocation+  toCppEnum (6) = PicturesLocation+  toCppEnum (7) = TempLocation+  toCppEnum (8) = HomeLocation+  toCppEnum (9) = DataLocation+  toCppEnum (10) = CacheLocation+  toCppEnum (11) = GenericDataLocation+  toCppEnum (12) = RuntimeLocation+  toCppEnum (13) = ConfigLocation+  toCppEnum (14) = DownloadLocation+  toCppEnum (15) = GenericCacheLocation+  toCppEnum (16) = GenericConfigLocation+  toCppEnum (17) = AppDataLocation+  toCppEnum (18) = AppConfigLocation+  toCppEnum n = UnknownQStandardPathsStandardLocation n++instance HoppyP.Eq QStandardPathsStandardLocation where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QStandardPathsStandardLocation where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Core/QStaticPlugin.hs view
@@ -0,0 +1,143 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QStaticPlugin (+  QStaticPluginValue (..),+  QStaticPluginConstPtr (..),+  QStaticPluginPtr (..),+  getInstance,+  rawMetaData,+  QStaticPluginConst (..),+  castQStaticPluginToConst,+  QStaticPlugin (..),+  castQStaticPluginToNonconst,+  QStaticPluginSuper (..),+  QStaticPluginSuperConst (..),+  ) 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.Core.QObject as M94+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QStaticPlugin_getInstance" getInstance' ::  HoppyF.Ptr QStaticPlugin -> HoppyP.IO (HoppyF.Ptr M94.QObject)+foreign import ccall "genpop__QStaticPlugin_rawMetaData" rawMetaData' ::  HoppyF.Ptr QStaticPlugin -> HoppyP.IO (HoppyF.Ptr HoppyFC.CChar)+foreign import ccall "gendel__QStaticPlugin" delete'QStaticPlugin :: HoppyF.Ptr QStaticPluginConst -> HoppyP.IO ()+foreign import ccall "&gendel__QStaticPlugin" deletePtr'QStaticPlugin :: HoppyF.FunPtr (HoppyF.Ptr QStaticPluginConst -> HoppyP.IO ())++class QStaticPluginValue a where+  withQStaticPluginPtr :: a -> (QStaticPluginConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QStaticPluginConstPtr a => QStaticPluginValue a where+  withQStaticPluginPtr = HoppyP.flip ($) . toQStaticPluginConst++class (HoppyFHR.CppPtr this) => QStaticPluginConstPtr this where+  toQStaticPluginConst :: this -> QStaticPluginConst++class (QStaticPluginConstPtr this) => QStaticPluginPtr this where+  toQStaticPlugin :: this -> QStaticPlugin++getInstance :: (QStaticPluginPtr this) => (this) {- ^ this -} -> (HoppyP.IO M94.QObject)+getInstance arg'1 =+  HoppyFHR.withCppPtr (toQStaticPlugin arg'1) $ \arg'1' ->+  HoppyP.fmap M94.QObject+  (getInstance' arg'1')++rawMetaData :: (QStaticPluginPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CChar))+rawMetaData arg'1 =+  HoppyFHR.withCppPtr (toQStaticPlugin arg'1) $ \arg'1' ->+  (rawMetaData' arg'1')++data QStaticPluginConst =+    QStaticPluginConst (HoppyF.Ptr QStaticPluginConst)+  | QStaticPluginConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStaticPluginConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QStaticPluginConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QStaticPluginConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQStaticPluginToConst :: QStaticPlugin -> QStaticPluginConst+castQStaticPluginToConst (QStaticPlugin ptr') = QStaticPluginConst $ HoppyF.castPtr ptr'+castQStaticPluginToConst (QStaticPluginGc fptr' ptr') = QStaticPluginConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QStaticPluginConst where+  nullptr = QStaticPluginConst HoppyF.nullPtr+  +  withCppPtr (QStaticPluginConst ptr') f' = f' ptr'+  withCppPtr (QStaticPluginConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QStaticPluginConst ptr') = ptr'+  toPtr (QStaticPluginConstGc _ ptr') = ptr'+  +  touchCppPtr (QStaticPluginConst _) = HoppyP.return ()+  touchCppPtr (QStaticPluginConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QStaticPluginConst where+  delete (QStaticPluginConst ptr') = delete'QStaticPlugin ptr'+  delete (QStaticPluginConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QStaticPluginConst", " object."]+  +  toGc this'@(QStaticPluginConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QStaticPluginConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QStaticPlugin :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QStaticPluginConstGc {}) = HoppyP.return this'++instance QStaticPluginConstPtr QStaticPluginConst where+  toQStaticPluginConst = HoppyP.id++data QStaticPlugin =+    QStaticPlugin (HoppyF.Ptr QStaticPlugin)+  | QStaticPluginGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStaticPlugin)+  deriving (HoppyP.Show)++instance HoppyP.Eq QStaticPlugin where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QStaticPlugin where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQStaticPluginToNonconst :: QStaticPluginConst -> QStaticPlugin+castQStaticPluginToNonconst (QStaticPluginConst ptr') = QStaticPlugin $ HoppyF.castPtr ptr'+castQStaticPluginToNonconst (QStaticPluginConstGc fptr' ptr') = QStaticPluginGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QStaticPlugin where+  nullptr = QStaticPlugin HoppyF.nullPtr+  +  withCppPtr (QStaticPlugin ptr') f' = f' ptr'+  withCppPtr (QStaticPluginGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QStaticPlugin ptr') = ptr'+  toPtr (QStaticPluginGc _ ptr') = ptr'+  +  touchCppPtr (QStaticPlugin _) = HoppyP.return ()+  touchCppPtr (QStaticPluginGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QStaticPlugin where+  delete (QStaticPlugin ptr') = delete'QStaticPlugin $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QStaticPluginConst)+  delete (QStaticPluginGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QStaticPlugin", " object."]+  +  toGc this'@(QStaticPlugin ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QStaticPluginGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QStaticPlugin :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QStaticPluginGc {}) = HoppyP.return this'++instance QStaticPluginConstPtr QStaticPlugin where+  toQStaticPluginConst (QStaticPlugin ptr') = QStaticPluginConst $ (HoppyF.castPtr :: HoppyF.Ptr QStaticPlugin -> HoppyF.Ptr QStaticPluginConst) ptr'+  toQStaticPluginConst (QStaticPluginGc fptr' ptr') = QStaticPluginConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QStaticPlugin -> HoppyF.Ptr QStaticPluginConst) ptr'++instance QStaticPluginPtr QStaticPlugin where+  toQStaticPlugin = HoppyP.id++class QStaticPluginSuper a where+  downToQStaticPlugin :: a -> QStaticPlugin+++class QStaticPluginSuperConst a where+  downToQStaticPluginConst :: a -> QStaticPluginConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QStaticPlugin)) QStaticPlugin where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QStaticPlugin)) QStaticPlugin where+  decode = HoppyP.fmap QStaticPlugin . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QString.hs view
@@ -0,0 +1,1576 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QString (+  QStringValue (..),+  QStringConstPtr (..),+  arg,+  argWithSize,+  argWithSizeAndFill,+  argUlonglong,+  argUlonglongWithField,+  argUlonglongWithFieldAndBase,+  argUlonglongWithFieldAndBaseAndFill,+  argLonglong,+  argLonglongWithField,+  argLonglongWithFieldAndBase,+  argLonglongWithFieldAndBaseAndFill,+  argLong,+  argLongWithField,+  argLongWithFieldAndBase,+  argLongWithFieldAndBaseAndFill,+  argUlong,+  argUlongWithField,+  argUlongWithFieldAndBase,+  argUlongWithFieldAndBaseAndFill,+  argInt,+  argIntWithField,+  argIntWithFieldAndBase,+  argIntWithFieldAndBaseAndFill,+  argUintWith,+  argUintWithField,+  argUintWithFieldAndBase,+  argUintWithFieldAndBaseAndFill,+  argShortWith,+  argShortWithField,+  argShortWithFieldAndBase,+  argShortWithFieldAndBaseAndFill,+  argUshortWith,+  argUshortWithField,+  argUshortWithFieldAndBase,+  argUshortWithFieldAndBaseAndFill,+  argDoubleWith,+  argDoubleWithField,+  argDoubleWithFieldFormat,+  argDoubleWithFieldFormatPrecision,+  argDoubleWithFieldFormatPrecisionFill,+  argCharWith,+  argCharWithField,+  argCharWithFieldFill,+  argQCharWith,+  argQCharWithField,+  argQCharWithFieldFill,+  argTwoQStrings,+  argThreeQStrings,+  argFourQStrings,+  argFiveQStrings,+  argSixQStrings,+  argSevenQStrings,+  argEightQStrings,+  argNineQStrings,+  at,+  back,+  capacity,+  chopped,+  toHtmlEscaped,+  toLatin1,+  toLocal8Bit,+  toStdString,+  toUtf8,+  toCaseFolded,+  toDouble,+  toDoubleWithOk,+  toFloat,+  toFloatWithOk,+  toInt,+  toIntWithOk,+  toIntWithOkAndBase,+  toLong,+  toLongWithOk,+  toLongWithOkAndBase,+  toLonglong,+  toLonglongWithOk,+  toLonglongWithOkAndBase,+  toLower,+  toShort,+  toShortWithOk,+  toShortWithOkAndBase,+  toUInt,+  toUIntWithOk,+  toUIntWithOkAndBase,+  toULong,+  toULongWithOk,+  toULongWithOkAndBase,+  toUlonglong,+  toUlonglongWithOk,+  toUlonglongWithOkAndBase,+  toUshort,+  toUshortWithOk,+  toUshortWithOkAndBase,+  toUpper,+  trimmed,+  eQ,+  nE,+  lT,+  lE,+  gT,+  gE,+  QStringPtr (..),+  set,+  append,+  appendQChar,+  appendPtrConstChar,+  appendByteArray,+  chop,+  clear,+  truncate,+  aSSIGN,+  QStringConst (..),+  castQStringToConst,+  QString (..),+  castQStringToNonconst,+  new,+  newFromByteArray,+  newFromCString,+  newFromSizeQChar,+  newFromQChar,+  newCopy,+  QStringSuper (..),+  QStringSuperConst (..),+  QStringNormalizationForm (..),+  QStringSectionFlag (..),+  QStringSectionFlags,+  IsQStringSectionFlags (..),+  sectionCaseInsensitiveSeps,+  sectionDefault,+  sectionIncludeLeadingSep,+  sectionIncludeTrailingSep,+  sectionSkipEmpty,+  QStringSplitBehavior (..),+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Data.ByteString as QtahDBS+import qualified Data.Int as HoppyDI+import qualified Data.Word as HoppyDW+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.C as QtahFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QChar as M16+import qualified Graphics.UI.Qtah.Std as M1+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QString_new" new' ::  HoppyP.IO (HoppyF.Ptr QString)+foreign import ccall "genpop__QString_newFromByteArray" newFromByteArray' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QString)+foreign import ccall "genpop__QString_newFromCString" newFromCString' ::  HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QString)+foreign import ccall "genpop__QString_newFromSizeQChar" newFromSizeQChar' ::  HoppyFC.CInt -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QString)+foreign import ccall "genpop__QString_newFromQChar" newFromQChar' ::  HoppyF.Ptr M16.QChar -> HoppyP.IO (HoppyF.Ptr QString)+foreign import ccall "genpop__QString_newCopy" newCopy' ::  HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QString)+foreign import ccall "genpop__QString_set" set' ::  HoppyF.Ptr QString -> HoppyFC.CInt -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO ()+foreign import ccall "genpop__QString_append" append' ::  HoppyF.Ptr QString -> HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QString)+foreign import ccall "genpop__QString_appendQChar" appendQChar' ::  HoppyF.Ptr QString -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QString)+foreign import ccall "genpop__QString_appendPtrConstChar" appendPtrConstChar' ::  HoppyF.Ptr QString -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QString)+foreign import ccall "genpop__QString_appendByteArray" appendByteArray' ::  HoppyF.Ptr QString -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QString)+foreign import ccall "genpop__QString_arg" arg' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argWithSize" argWithSize' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argWithSizeAndFill" argWithSizeAndFill' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyFC.CInt -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUlonglong" argUlonglong' ::  HoppyF.Ptr QStringConst -> HoppyDW.Word64 -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUlonglongWithField" argUlonglongWithField' ::  HoppyF.Ptr QStringConst -> HoppyDW.Word64 -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUlonglongWithFieldAndBase" argUlonglongWithFieldAndBase' ::  HoppyF.Ptr QStringConst -> HoppyDW.Word64 -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUlonglongWithFieldAndBaseAndFill" argUlonglongWithFieldAndBaseAndFill' ::  HoppyF.Ptr QStringConst -> HoppyDW.Word64 -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argLonglong" argLonglong' ::  HoppyF.Ptr QStringConst -> HoppyDI.Int64 -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argLonglongWithField" argLonglongWithField' ::  HoppyF.Ptr QStringConst -> HoppyDI.Int64 -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argLonglongWithFieldAndBase" argLonglongWithFieldAndBase' ::  HoppyF.Ptr QStringConst -> HoppyDI.Int64 -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argLonglongWithFieldAndBaseAndFill" argLonglongWithFieldAndBaseAndFill' ::  HoppyF.Ptr QStringConst -> HoppyDI.Int64 -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argLong" argLong' ::  HoppyF.Ptr QStringConst -> HoppyFC.CLong -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argLongWithField" argLongWithField' ::  HoppyF.Ptr QStringConst -> HoppyFC.CLong -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argLongWithFieldAndBase" argLongWithFieldAndBase' ::  HoppyF.Ptr QStringConst -> HoppyFC.CLong -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argLongWithFieldAndBaseAndFill" argLongWithFieldAndBaseAndFill' ::  HoppyF.Ptr QStringConst -> HoppyFC.CLong -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUlong" argUlong' ::  HoppyF.Ptr QStringConst -> HoppyFC.CULong -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUlongWithField" argUlongWithField' ::  HoppyF.Ptr QStringConst -> HoppyFC.CULong -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUlongWithFieldAndBase" argUlongWithFieldAndBase' ::  HoppyF.Ptr QStringConst -> HoppyFC.CULong -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUlongWithFieldAndBaseAndFill" argUlongWithFieldAndBaseAndFill' ::  HoppyF.Ptr QStringConst -> HoppyFC.CULong -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argInt" argInt' ::  HoppyF.Ptr QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argIntWithField" argIntWithField' ::  HoppyF.Ptr QStringConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argIntWithFieldAndBase" argIntWithFieldAndBase' ::  HoppyF.Ptr QStringConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argIntWithFieldAndBaseAndFill" argIntWithFieldAndBaseAndFill' ::  HoppyF.Ptr QStringConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUintWith" argUintWith' ::  HoppyF.Ptr QStringConst -> HoppyFC.CUInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUintWithField" argUintWithField' ::  HoppyF.Ptr QStringConst -> HoppyFC.CUInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUintWithFieldAndBase" argUintWithFieldAndBase' ::  HoppyF.Ptr QStringConst -> HoppyFC.CUInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUintWithFieldAndBaseAndFill" argUintWithFieldAndBaseAndFill' ::  HoppyF.Ptr QStringConst -> HoppyFC.CUInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argShortWith" argShortWith' ::  HoppyF.Ptr QStringConst -> HoppyFC.CShort -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argShortWithField" argShortWithField' ::  HoppyF.Ptr QStringConst -> HoppyFC.CShort -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argShortWithFieldAndBase" argShortWithFieldAndBase' ::  HoppyF.Ptr QStringConst -> HoppyFC.CShort -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argShortWithFieldAndBaseAndFill" argShortWithFieldAndBaseAndFill' ::  HoppyF.Ptr QStringConst -> HoppyFC.CShort -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUshortWith" argUshortWith' ::  HoppyF.Ptr QStringConst -> HoppyFC.CUShort -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUshortWithField" argUshortWithField' ::  HoppyF.Ptr QStringConst -> HoppyFC.CUShort -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUshortWithFieldAndBase" argUshortWithFieldAndBase' ::  HoppyF.Ptr QStringConst -> HoppyFC.CUShort -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argUshortWithFieldAndBaseAndFill" argUshortWithFieldAndBaseAndFill' ::  HoppyF.Ptr QStringConst -> HoppyFC.CUShort -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argDoubleWith" argDoubleWith' ::  HoppyF.Ptr QStringConst -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argDoubleWithField" argDoubleWithField' ::  HoppyF.Ptr QStringConst -> HoppyFC.CDouble -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argDoubleWithFieldFormat" argDoubleWithFieldFormat' ::  HoppyF.Ptr QStringConst -> HoppyFC.CDouble -> HoppyFC.CInt -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argDoubleWithFieldFormatPrecision" argDoubleWithFieldFormatPrecision' ::  HoppyF.Ptr QStringConst -> HoppyFC.CDouble -> HoppyFC.CInt -> HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argDoubleWithFieldFormatPrecisionFill" argDoubleWithFieldFormatPrecisionFill' ::  HoppyF.Ptr QStringConst -> HoppyFC.CDouble -> HoppyFC.CInt -> HoppyFC.CChar -> HoppyFC.CInt -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argCharWith" argCharWith' ::  HoppyF.Ptr QStringConst -> HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argCharWithField" argCharWithField' ::  HoppyF.Ptr QStringConst -> HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argCharWithFieldFill" argCharWithFieldFill' ::  HoppyF.Ptr QStringConst -> HoppyFC.CChar -> HoppyFC.CInt -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argQCharWith" argQCharWith' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argQCharWithField" argQCharWithField' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr M16.QCharConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argQCharWithFieldFill" argQCharWithFieldFill' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr M16.QCharConst -> HoppyFC.CInt -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argTwoQStrings" argTwoQStrings' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argThreeQStrings" argThreeQStrings' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argFourQStrings" argFourQStrings' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argFiveQStrings" argFiveQStrings' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argSixQStrings" argSixQStrings' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argSevenQStrings" argSevenQStrings' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argEightQStrings" argEightQStrings' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_argNineQStrings" argNineQStrings' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_at" at' ::  HoppyF.Ptr QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M16.QCharConst)+foreign import ccall "genpop__QString_back" back' ::  HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr M16.QCharConst)+foreign import ccall "genpop__QString_capacity" capacity' ::  HoppyF.Ptr QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QString_chop" chop' ::  HoppyF.Ptr QString -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QString_chopped" chopped' ::  HoppyF.Ptr QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_clear" clear' ::  HoppyF.Ptr QString -> HoppyP.IO ()+foreign import ccall "genpop__QString_toHtmlEscaped" toHtmlEscaped' ::  HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_toLatin1" toLatin1' ::  HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QString_toLocal8Bit" toLocal8Bit' ::  HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QString_toStdString" toStdString' ::  HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr M1.StdStringConst)+foreign import ccall "genpop__QString_toUtf8" toUtf8' ::  HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QString_toCaseFolded" toCaseFolded' ::  HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_toDouble" toDouble' ::  HoppyF.Ptr QStringConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QString_toDoubleWithOk" toDoubleWithOk' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QString_toFloat" toFloat' ::  HoppyF.Ptr QStringConst -> HoppyP.IO HoppyFC.CFloat+foreign import ccall "genpop__QString_toFloatWithOk" toFloatWithOk' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyP.IO HoppyFC.CFloat+foreign import ccall "genpop__QString_toInt" toInt' ::  HoppyF.Ptr QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QString_toIntWithOk" toIntWithOk' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QString_toIntWithOkAndBase" toIntWithOkAndBase' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QString_toLong" toLong' ::  HoppyF.Ptr QStringConst -> HoppyP.IO HoppyFC.CLong+foreign import ccall "genpop__QString_toLongWithOk" toLongWithOk' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyP.IO HoppyFC.CLong+foreign import ccall "genpop__QString_toLongWithOkAndBase" toLongWithOkAndBase' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CLong+foreign import ccall "genpop__QString_toLonglong" toLonglong' ::  HoppyF.Ptr QStringConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QString_toLonglongWithOk" toLonglongWithOk' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QString_toLonglongWithOkAndBase" toLonglongWithOkAndBase' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyFC.CInt -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QString_toLower" toLower' ::  HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_toShort" toShort' ::  HoppyF.Ptr QStringConst -> HoppyP.IO HoppyFC.CShort+foreign import ccall "genpop__QString_toShortWithOk" toShortWithOk' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyP.IO HoppyFC.CShort+foreign import ccall "genpop__QString_toShortWithOkAndBase" toShortWithOkAndBase' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CShort+foreign import ccall "genpop__QString_toUInt" toUInt' ::  HoppyF.Ptr QStringConst -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QString_toUIntWithOk" toUIntWithOk' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QString_toUIntWithOkAndBase" toUIntWithOkAndBase' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QString_toULong" toULong' ::  HoppyF.Ptr QStringConst -> HoppyP.IO HoppyFC.CULong+foreign import ccall "genpop__QString_toULongWithOk" toULongWithOk' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyP.IO HoppyFC.CULong+foreign import ccall "genpop__QString_toULongWithOkAndBase" toULongWithOkAndBase' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CULong+foreign import ccall "genpop__QString_toUlonglong" toUlonglong' ::  HoppyF.Ptr QStringConst -> HoppyP.IO HoppyDW.Word64+foreign import ccall "genpop__QString_toUlonglongWithOk" toUlonglongWithOk' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyP.IO HoppyDW.Word64+foreign import ccall "genpop__QString_toUlonglongWithOkAndBase" toUlonglongWithOkAndBase' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyFC.CInt -> HoppyP.IO HoppyDW.Word64+foreign import ccall "genpop__QString_toUshort" toUshort' ::  HoppyF.Ptr QStringConst -> HoppyP.IO HoppyFC.CUShort+foreign import ccall "genpop__QString_toUshortWithOk" toUshortWithOk' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyP.IO HoppyFC.CUShort+foreign import ccall "genpop__QString_toUshortWithOkAndBase" toUshortWithOkAndBase' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CUShort+foreign import ccall "genpop__QString_toUpper" toUpper' ::  HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_trimmed" trimmed' ::  HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QStringConst)+foreign import ccall "genpop__QString_truncate" truncate' ::  HoppyF.Ptr QString -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QString_EQ" eQ' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QString_NE" nE' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QString_LT" lT' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QString_LE" lE' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QString_GT" gT' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QString_GE" gE' ::  HoppyF.Ptr QStringConst -> HoppyF.Ptr QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QString_ASSIGN" aSSIGN' ::  HoppyF.Ptr QString -> HoppyF.Ptr QStringConst -> HoppyP.IO (HoppyF.Ptr QString)+foreign import ccall "gendel__QString" delete'QString :: HoppyF.Ptr QStringConst -> HoppyP.IO ()+foreign import ccall "&gendel__QString" deletePtr'QString :: HoppyF.FunPtr (HoppyF.Ptr QStringConst -> HoppyP.IO ())++class QStringValue a where+  withQStringPtr :: a -> (QStringConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QStringConstPtr a => QStringValue a where+  withQStringPtr = HoppyP.flip ($) . toQStringConst++instance {-# OVERLAPPING #-} QStringValue (QtahP.String) where+  withQStringPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QStringConstPtr this where+  toQStringConst :: this -> QStringConst++arg :: (QStringValue this, QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+arg arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (arg' arg'1' arg'2')++argWithSize :: (QStringValue this, QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argWithSize arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argWithSize' arg'1' arg'2' arg'3')++argWithSizeAndFill :: (QStringValue this, QStringValue arg'2, M16.QCharValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO QtahP.String)+argWithSizeAndFill arg'1 arg'2 arg'3 arg'4 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M16.withQCharPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argWithSizeAndFill' arg'1' arg'2' arg'3' arg'4')++argUlonglong :: (QStringValue this) => (this) {- ^ this -} -> (HoppyDW.Word64) -> (HoppyP.IO QtahP.String)+argUlonglong arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUlonglong' arg'1' arg'2')++argUlonglongWithField :: (QStringValue this) => (this) {- ^ this -} -> (HoppyDW.Word64) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argUlonglongWithField arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUlonglongWithField' arg'1' arg'2' arg'3')++argUlonglongWithFieldAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyDW.Word64) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argUlonglongWithFieldAndBase arg'1 arg'2 arg'3 arg'4 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUlonglongWithFieldAndBase' arg'1' arg'2' arg'3' arg'4')++argUlonglongWithFieldAndBaseAndFill :: (QStringValue this, M16.QCharValue arg'5) => (this) {- ^ this -} -> (HoppyDW.Word64) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'5) -> (HoppyP.IO QtahP.String)+argUlonglongWithFieldAndBaseAndFill arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  M16.withQCharPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUlonglongWithFieldAndBaseAndFill' arg'1' arg'2' arg'3' arg'4' arg'5')++argLonglong :: (QStringValue this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.IO QtahP.String)+argLonglong arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argLonglong' arg'1' arg'2')++argLonglongWithField :: (QStringValue this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argLonglongWithField arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argLonglongWithField' arg'1' arg'2' arg'3')++argLonglongWithFieldAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argLonglongWithFieldAndBase arg'1 arg'2 arg'3 arg'4 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argLonglongWithFieldAndBase' arg'1' arg'2' arg'3' arg'4')++argLonglongWithFieldAndBaseAndFill :: (QStringValue this, M16.QCharValue arg'5) => (this) {- ^ this -} -> (HoppyDI.Int64) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'5) -> (HoppyP.IO QtahP.String)+argLonglongWithFieldAndBaseAndFill arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  M16.withQCharPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argLonglongWithFieldAndBaseAndFill' arg'1' arg'2' arg'3' arg'4' arg'5')++argLong :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CLong) -> (HoppyP.IO QtahP.String)+argLong arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argLong' arg'1' arg'2')++argLongWithField :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CLong) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argLongWithField arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argLongWithField' arg'1' arg'2' arg'3')++argLongWithFieldAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CLong) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argLongWithFieldAndBase arg'1 arg'2 arg'3 arg'4 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argLongWithFieldAndBase' arg'1' arg'2' arg'3' arg'4')++argLongWithFieldAndBaseAndFill :: (QStringValue this, M16.QCharValue arg'5) => (this) {- ^ this -} -> (HoppyFC.CLong) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'5) -> (HoppyP.IO QtahP.String)+argLongWithFieldAndBaseAndFill arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  M16.withQCharPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argLongWithFieldAndBaseAndFill' arg'1' arg'2' arg'3' arg'4' arg'5')++argUlong :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CULong) -> (HoppyP.IO QtahP.String)+argUlong arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUlong' arg'1' arg'2')++argUlongWithField :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CULong) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argUlongWithField arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUlongWithField' arg'1' arg'2' arg'3')++argUlongWithFieldAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CULong) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argUlongWithFieldAndBase arg'1 arg'2 arg'3 arg'4 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUlongWithFieldAndBase' arg'1' arg'2' arg'3' arg'4')++argUlongWithFieldAndBaseAndFill :: (QStringValue this, M16.QCharValue arg'5) => (this) {- ^ this -} -> (HoppyFC.CULong) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'5) -> (HoppyP.IO QtahP.String)+argUlongWithFieldAndBaseAndFill arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  M16.withQCharPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUlongWithFieldAndBaseAndFill' arg'1' arg'2' arg'3' arg'4' arg'5')++argInt :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argInt arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argInt' arg'1' arg'2')++argIntWithField :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argIntWithField arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argIntWithField' arg'1' arg'2' arg'3')++argIntWithFieldAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argIntWithFieldAndBase arg'1 arg'2 arg'3 arg'4 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \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' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argIntWithFieldAndBase' arg'1' arg'2' arg'3' arg'4')++argIntWithFieldAndBaseAndFill :: (QStringValue this, M16.QCharValue arg'5) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'5) -> (HoppyP.IO QtahP.String)+argIntWithFieldAndBaseAndFill arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \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' ->+  M16.withQCharPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argIntWithFieldAndBaseAndFill' arg'1' arg'2' arg'3' arg'4' arg'5')++argUintWith :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO QtahP.String)+argUintWith arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUintWith' arg'1' arg'2')++argUintWithField :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argUintWithField arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUintWithField' arg'1' arg'2' arg'3')++argUintWithFieldAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argUintWithFieldAndBase arg'1 arg'2 arg'3 arg'4 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUintWithFieldAndBase' arg'1' arg'2' arg'3' arg'4')++argUintWithFieldAndBaseAndFill :: (QStringValue this, M16.QCharValue arg'5) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'5) -> (HoppyP.IO QtahP.String)+argUintWithFieldAndBaseAndFill arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  M16.withQCharPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUintWithFieldAndBaseAndFill' arg'1' arg'2' arg'3' arg'4' arg'5')++argShortWith :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CShort) -> (HoppyP.IO QtahP.String)+argShortWith arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argShortWith' arg'1' arg'2')++argShortWithField :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CShort) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argShortWithField arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argShortWithField' arg'1' arg'2' arg'3')++argShortWithFieldAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CShort) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argShortWithFieldAndBase arg'1 arg'2 arg'3 arg'4 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argShortWithFieldAndBase' arg'1' arg'2' arg'3' arg'4')++argShortWithFieldAndBaseAndFill :: (QStringValue this, M16.QCharValue arg'5) => (this) {- ^ this -} -> (HoppyFC.CShort) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'5) -> (HoppyP.IO QtahP.String)+argShortWithFieldAndBaseAndFill arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  M16.withQCharPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argShortWithFieldAndBaseAndFill' arg'1' arg'2' arg'3' arg'4' arg'5')++argUshortWith :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CUShort) -> (HoppyP.IO QtahP.String)+argUshortWith arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUshortWith' arg'1' arg'2')++argUshortWithField :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CUShort) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argUshortWithField arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUshortWithField' arg'1' arg'2' arg'3')++argUshortWithFieldAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CUShort) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argUshortWithFieldAndBase arg'1 arg'2 arg'3 arg'4 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUshortWithFieldAndBase' arg'1' arg'2' arg'3' arg'4')++argUshortWithFieldAndBaseAndFill :: (QStringValue this, M16.QCharValue arg'5) => (this) {- ^ this -} -> (HoppyFC.CUShort) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'5) -> (HoppyP.IO QtahP.String)+argUshortWithFieldAndBaseAndFill arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  M16.withQCharPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argUshortWithFieldAndBaseAndFill' arg'1' arg'2' arg'3' arg'4' arg'5')++argDoubleWith :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QtahP.String)+argDoubleWith arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argDoubleWith' arg'1' arg'2')++argDoubleWithField :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argDoubleWithField arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argDoubleWithField' arg'1' arg'2' arg'3')++argDoubleWithFieldFormat :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Int) -> (HoppyFC.CChar) -> (HoppyP.IO QtahP.String)+argDoubleWithFieldFormat arg'1 arg'2 arg'3 arg'4 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  let arg'4' = arg'4 in+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argDoubleWithFieldFormat' arg'1' arg'2' arg'3' arg'4')++argDoubleWithFieldFormatPrecision :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Int) -> (HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argDoubleWithFieldFormatPrecision arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  let arg'4' = arg'4 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'5 >>= \arg'5' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argDoubleWithFieldFormatPrecision' arg'1' arg'2' arg'3' arg'4' arg'5')++argDoubleWithFieldFormatPrecisionFill :: (QStringValue this, M16.QCharValue arg'6) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Int) -> (HoppyFC.CChar) -> (HoppyP.Int) -> (arg'6) -> (HoppyP.IO QtahP.String)+argDoubleWithFieldFormatPrecisionFill arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  let arg'4' = arg'4 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'5 >>= \arg'5' ->+  M16.withQCharPtr arg'6 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'6' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argDoubleWithFieldFormatPrecisionFill' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++argCharWith :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.IO QtahP.String)+argCharWith arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argCharWith' arg'1' arg'2')++argCharWithField :: (QStringValue this) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argCharWithField arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argCharWithField' arg'1' arg'2' arg'3')++argCharWithFieldFill :: (QStringValue this, M16.QCharValue arg'4) => (this) {- ^ this -} -> (HoppyFC.CChar) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO QtahP.String)+argCharWithFieldFill arg'1 arg'2 arg'3 arg'4 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M16.withQCharPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argCharWithFieldFill' arg'1' arg'2' arg'3' arg'4')++argQCharWith :: (QStringValue this, M16.QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+argQCharWith arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M16.withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argQCharWith' arg'1' arg'2')++argQCharWithField :: (QStringValue this, M16.QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+argQCharWithField arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M16.withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argQCharWithField' arg'1' arg'2' arg'3')++argQCharWithFieldFill :: (QStringValue this, M16.QCharValue arg'2, M16.QCharValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO QtahP.String)+argQCharWithFieldFill arg'1 arg'2 arg'3 arg'4 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M16.withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M16.withQCharPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argQCharWithFieldFill' arg'1' arg'2' arg'3' arg'4')++argTwoQStrings :: (QStringValue this, QStringValue arg'2, QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO QtahP.String)+argTwoQStrings arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argTwoQStrings' arg'1' arg'2' arg'3')++argThreeQStrings :: (QStringValue this, QStringValue arg'2, QStringValue arg'3, QStringValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO QtahP.String)+argThreeQStrings arg'1 arg'2 arg'3 arg'4 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argThreeQStrings' arg'1' arg'2' arg'3' arg'4')++argFourQStrings :: (QStringValue this, QStringValue arg'2, QStringValue arg'3, QStringValue arg'4, QStringValue arg'5) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (HoppyP.IO QtahP.String)+argFourQStrings arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  withQStringPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argFourQStrings' arg'1' arg'2' arg'3' arg'4' arg'5')++argFiveQStrings :: (QStringValue this, QStringValue arg'2, QStringValue arg'3, QStringValue arg'4, QStringValue arg'5, QStringValue arg'6) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (arg'6) -> (HoppyP.IO QtahP.String)+argFiveQStrings arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  withQStringPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  withQStringPtr arg'6 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'6' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argFiveQStrings' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++argSixQStrings :: (QStringValue this, QStringValue arg'2, QStringValue arg'3, QStringValue arg'4, QStringValue arg'5, QStringValue arg'6, QStringValue arg'7) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (arg'6) -> (arg'7) -> (HoppyP.IO QtahP.String)+argSixQStrings arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  withQStringPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  withQStringPtr arg'6 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'6' ->+  withQStringPtr arg'7 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'7' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argSixQStrings' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7')++argSevenQStrings :: (QStringValue this, QStringValue arg'2, QStringValue arg'3, QStringValue arg'4, QStringValue arg'5, QStringValue arg'6, QStringValue arg'7, QStringValue arg'8) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (arg'6) -> (arg'7) -> (arg'8) -> (HoppyP.IO QtahP.String)+argSevenQStrings arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 arg'8 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  withQStringPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  withQStringPtr arg'6 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'6' ->+  withQStringPtr arg'7 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'7' ->+  withQStringPtr arg'8 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'8' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argSevenQStrings' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7' arg'8')++argEightQStrings :: (QStringValue this, QStringValue arg'2, QStringValue arg'3, QStringValue arg'4, QStringValue arg'5, QStringValue arg'6, QStringValue arg'7, QStringValue arg'8, QStringValue arg'9) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (arg'6) -> (arg'7) -> (arg'8) -> (arg'9) -> (HoppyP.IO QtahP.String)+argEightQStrings arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 arg'8 arg'9 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  withQStringPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  withQStringPtr arg'6 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'6' ->+  withQStringPtr arg'7 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'7' ->+  withQStringPtr arg'8 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'8' ->+  withQStringPtr arg'9 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'9' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argEightQStrings' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7' arg'8' arg'9')++argNineQStrings :: (QStringValue this, QStringValue arg'2, QStringValue arg'3, QStringValue arg'4, QStringValue arg'5, QStringValue arg'6, QStringValue arg'7, QStringValue arg'8, QStringValue arg'9, QStringValue arg'10) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (arg'6) -> (arg'7) -> (arg'8) -> (arg'9) -> (arg'10) -> (HoppyP.IO QtahP.String)+argNineQStrings arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 arg'8 arg'9 arg'10 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  withQStringPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  withQStringPtr arg'6 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'6' ->+  withQStringPtr arg'7 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'7' ->+  withQStringPtr arg'8 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'8' ->+  withQStringPtr arg'9 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'9' ->+  withQStringPtr arg'10 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'10' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (argNineQStrings' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7' arg'8' arg'9' arg'10')++at :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahP.Char)+at arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M16.QCharConst) =<<+  (at' arg'1' arg'2')++back :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.Char)+back arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M16.QCharConst) =<<+  (back' arg'1')++capacity :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+capacity arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (capacity' arg'1')++chopped :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+chopped arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (chopped' arg'1' arg'2')++toHtmlEscaped :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+toHtmlEscaped arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (toHtmlEscaped' arg'1')++toLatin1 :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+toLatin1 arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (toLatin1' arg'1')++toLocal8Bit :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+toLocal8Bit arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (toLocal8Bit' arg'1')++toStdString :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.String)+toStdString arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M1.StdStringConst) =<<+  (toStdString' arg'1')++toUtf8 :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+toUtf8 arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (toUtf8' arg'1')++toCaseFolded :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+toCaseFolded arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (toCaseFolded' arg'1')++toDouble :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+toDouble arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (toDouble' arg'1')++toDoubleWithOk :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.IO HoppyP.Double)+toDoubleWithOk arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (toDoubleWithOk' arg'1' arg'2')++toFloat :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Float)+toFloat arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (toFloat' arg'1')++toFloatWithOk :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.IO HoppyP.Float)+toFloatWithOk arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (toFloatWithOk' arg'1' arg'2')++toInt :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+toInt arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (toInt' arg'1')++toIntWithOk :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.IO HoppyP.Int)+toIntWithOk arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (toIntWithOk' arg'1' arg'2')++toIntWithOkAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+toIntWithOkAndBase arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (toIntWithOkAndBase' arg'1' arg'2' arg'3')++toLong :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CLong)+toLong arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (toLong' arg'1')++toLongWithOk :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.IO HoppyFC.CLong)+toLongWithOk arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (toLongWithOk' arg'1' arg'2')++toLongWithOkAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.Int) -> (HoppyP.IO HoppyFC.CLong)+toLongWithOkAndBase arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (toLongWithOkAndBase' arg'1' arg'2' arg'3')++toLonglong :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+toLonglong arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (toLonglong' arg'1')++toLonglongWithOk :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.IO HoppyDI.Int64)+toLonglongWithOk arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (toLonglongWithOk' arg'1' arg'2')++toLonglongWithOkAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.Int) -> (HoppyP.IO HoppyDI.Int64)+toLonglongWithOkAndBase arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (toLonglongWithOkAndBase' arg'1' arg'2' arg'3')++toLower :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+toLower arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (toLower' arg'1')++toShort :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CShort)+toShort arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (toShort' arg'1')++toShortWithOk :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.IO HoppyFC.CShort)+toShortWithOk arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (toShortWithOk' arg'1' arg'2')++toShortWithOkAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.Int) -> (HoppyP.IO HoppyFC.CShort)+toShortWithOkAndBase arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (toShortWithOkAndBase' arg'1' arg'2' arg'3')++toUInt :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CUInt)+toUInt arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (toUInt' arg'1')++toUIntWithOk :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.IO HoppyFC.CUInt)+toUIntWithOk arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (toUIntWithOk' arg'1' arg'2')++toUIntWithOkAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.Int) -> (HoppyP.IO HoppyFC.CUInt)+toUIntWithOkAndBase arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (toUIntWithOkAndBase' arg'1' arg'2' arg'3')++toULong :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CULong)+toULong arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (toULong' arg'1')++toULongWithOk :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.IO HoppyFC.CULong)+toULongWithOk arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (toULongWithOk' arg'1' arg'2')++toULongWithOkAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.Int) -> (HoppyP.IO HoppyFC.CULong)+toULongWithOkAndBase arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (toULongWithOkAndBase' arg'1' arg'2' arg'3')++toUlonglong :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDW.Word64)+toUlonglong arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (toUlonglong' arg'1')++toUlonglongWithOk :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.IO HoppyDW.Word64)+toUlonglongWithOk arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (toUlonglongWithOk' arg'1' arg'2')++toUlonglongWithOkAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.Int) -> (HoppyP.IO HoppyDW.Word64)+toUlonglongWithOkAndBase arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (toUlonglongWithOkAndBase' arg'1' arg'2' arg'3')++toUshort :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CUShort)+toUshort arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (toUshort' arg'1')++toUshortWithOk :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.IO HoppyFC.CUShort)+toUshortWithOk arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (toUshortWithOk' arg'1' arg'2')++toUshortWithOkAndBase :: (QStringValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CBool) -> (HoppyP.Int) -> (HoppyP.IO HoppyFC.CUShort)+toUshortWithOkAndBase arg'1 arg'2 arg'3 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (toUshortWithOkAndBase' arg'1' arg'2' arg'3')++toUpper :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+toUpper arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (toUpper' arg'1')++trimmed :: (QStringValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+trimmed arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QStringConst) =<<+  (trimmed' arg'1')++eQ :: (QStringValue this, QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QStringValue this, QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++lT :: (QStringValue this, QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lT arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lT' arg'1' arg'2')++lE :: (QStringValue this, QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lE arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lE' arg'1' arg'2')++gT :: (QStringValue this, QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gT arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gT' arg'1' arg'2')++gE :: (QStringValue this, QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gE arg'1 arg'2 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gE' arg'1' arg'2')++class (QStringConstPtr this) => QStringPtr this where+  toQString :: this -> QString++set :: (QStringPtr arg'1, M16.QCharValue arg'3) => (arg'1) -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+set arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M16.withQCharPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (set' arg'1' arg'2' arg'3')++append :: (QStringPtr this, QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QString)+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQString arg'1) $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QString+  (append' arg'1' arg'2')++appendQChar :: (QStringPtr this, M16.QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QString)+appendQChar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQString arg'1) $ \arg'1' ->+  M16.withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QString+  (appendQChar' arg'1' arg'2')++appendPtrConstChar :: (QStringPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QString)+appendPtrConstChar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQString arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QString+  (appendPtrConstChar' arg'1' arg'2')++appendByteArray :: (QStringPtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QString)+appendByteArray arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQString arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QString+  (appendByteArray' arg'1' arg'2')++chop :: (QStringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+chop arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (chop' arg'1' arg'2')++clear :: (QStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQString arg'1) $ \arg'1' ->+  (clear' arg'1')++truncate :: (QStringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+truncate arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (truncate' arg'1' arg'2')++aSSIGN :: (QStringPtr this, QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QString)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQString arg'1) $ \arg'1' ->+  withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QString+  (aSSIGN' arg'1' arg'2')++data QStringConst =+    QStringConst (HoppyF.Ptr QStringConst)+  | QStringConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStringConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QStringConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QStringConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQStringToConst :: QString -> QStringConst+castQStringToConst (QString ptr') = QStringConst $ HoppyF.castPtr ptr'+castQStringToConst (QStringGc fptr' ptr') = QStringConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QStringConst where+  nullptr = QStringConst HoppyF.nullPtr+  +  withCppPtr (QStringConst ptr') f' = f' ptr'+  withCppPtr (QStringConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QStringConst ptr') = ptr'+  toPtr (QStringConstGc _ ptr') = ptr'+  +  touchCppPtr (QStringConst _) = HoppyP.return ()+  touchCppPtr (QStringConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QStringConst where+  delete (QStringConst ptr') = delete'QString ptr'+  delete (QStringConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QStringConst", " object."]+  +  toGc this'@(QStringConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QStringConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QString :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QStringConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QStringConst QString where copy = newCopy++instance QStringConstPtr QStringConst where+  toQStringConst = HoppyP.id++data QString =+    QString (HoppyF.Ptr QString)+  | QStringGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QString)+  deriving (HoppyP.Show)++instance HoppyP.Eq QString where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QString where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQStringToNonconst :: QStringConst -> QString+castQStringToNonconst (QStringConst ptr') = QString $ HoppyF.castPtr ptr'+castQStringToNonconst (QStringConstGc fptr' ptr') = QStringGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QString where+  nullptr = QString HoppyF.nullPtr+  +  withCppPtr (QString ptr') f' = f' ptr'+  withCppPtr (QStringGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QString ptr') = ptr'+  toPtr (QStringGc _ ptr') = ptr'+  +  touchCppPtr (QString _) = HoppyP.return ()+  touchCppPtr (QStringGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QString where+  delete (QString ptr') = delete'QString $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QStringConst)+  delete (QStringGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QString", " object."]+  +  toGc this'@(QString ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QStringGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QString :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QStringGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QString QString where copy = newCopy++instance QStringConstPtr QString where+  toQStringConst (QString ptr') = QStringConst $ (HoppyF.castPtr :: HoppyF.Ptr QString -> HoppyF.Ptr QStringConst) ptr'+  toQStringConst (QStringGc fptr' ptr') = QStringConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QString -> HoppyF.Ptr QStringConst) ptr'++instance QStringPtr QString where+  toQString = HoppyP.id++new :: (HoppyP.IO QString)+new =+  HoppyP.fmap QString+  (new')++newFromByteArray :: (M12.QByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO QString)+newFromByteArray arg'1 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QString+  (newFromByteArray' arg'1')++newFromCString :: (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QString)+newFromCString arg'1 =+  let arg'1' = arg'1 in+  HoppyP.fmap QString+  (newFromCString' arg'1')++newFromSizeQChar :: (M16.QCharValue arg'2) => (HoppyP.Int) -> (arg'2) -> (HoppyP.IO QString)+newFromSizeQChar arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  M16.withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QString+  (newFromSizeQChar' arg'1' arg'2')++newFromQChar :: (M16.QCharPtr arg'1) => (arg'1) -> (HoppyP.IO QString)+newFromQChar arg'1 =+  HoppyFHR.withCppPtr (M16.toQChar arg'1) $ \arg'1' ->+  HoppyP.fmap QString+  (newFromQChar' arg'1')++newCopy :: (QStringValue arg'1) => (arg'1) -> (HoppyP.IO QString)+newCopy arg'1 =+  withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QString+  (newCopy' arg'1')++class QStringSuper a where+  downToQString :: a -> QString+++class QStringSuperConst a where+  downToQStringConst :: a -> QStringConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QString)) QString where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QStringValue a => HoppyFHR.Assignable QString a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QString)) QString where+  decode = HoppyP.fmap QString . HoppyF.peek++instance HoppyFHR.Encodable QString (QtahP.String) where+  encode =+    QtahP.flip QtahFC.withCString newFromCString++instance HoppyFHR.Encodable QStringConst (QtahP.String) where+  encode = HoppyP.fmap (toQStringConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QString)++instance HoppyFHR.Decodable QString (QtahP.String) where+  decode = HoppyFHR.decode . toQStringConst++instance HoppyFHR.Decodable QStringConst (QtahP.String) where+  decode =+    toStdString++data QStringNormalizationForm =+  NormalizationFormD+  | NormalizationFormC+  | NormalizationFormKd+  | NormalizationFormKc+  | UnknownQStringNormalizationForm (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QStringNormalizationForm where+  fromCppEnum NormalizationFormD = 0+  fromCppEnum NormalizationFormC = 1+  fromCppEnum NormalizationFormKd = 2+  fromCppEnum NormalizationFormKc = 3+  fromCppEnum (UnknownQStringNormalizationForm n) = n+  +  toCppEnum (0) = NormalizationFormD+  toCppEnum (1) = NormalizationFormC+  toCppEnum (2) = NormalizationFormKd+  toCppEnum (3) = NormalizationFormKc+  toCppEnum n = UnknownQStringNormalizationForm n++instance HoppyP.Eq QStringNormalizationForm where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QStringNormalizationForm where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QStringSectionFlag =+  SectionDefault+  | SectionSkipEmpty+  | SectionIncludeLeadingSep+  | SectionIncludeTrailingSep+  | SectionCaseInsensitiveSeps+  | UnknownQStringSectionFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QStringSectionFlag where+  fromCppEnum SectionDefault = 0+  fromCppEnum SectionSkipEmpty = 1+  fromCppEnum SectionIncludeLeadingSep = 2+  fromCppEnum SectionIncludeTrailingSep = 4+  fromCppEnum SectionCaseInsensitiveSeps = 8+  fromCppEnum (UnknownQStringSectionFlag n) = n+  +  toCppEnum (0) = SectionDefault+  toCppEnum (1) = SectionSkipEmpty+  toCppEnum (2) = SectionIncludeLeadingSep+  toCppEnum (4) = SectionIncludeTrailingSep+  toCppEnum (8) = SectionCaseInsensitiveSeps+  toCppEnum n = UnknownQStringSectionFlag n++instance HoppyP.Eq QStringSectionFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QStringSectionFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QStringSectionFlags = QStringSectionFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QStringSectionFlag QStringSectionFlags where+  enumToFlags = QStringSectionFlags . QtahFHR.fromCppEnum+  flagsToEnum (QStringSectionFlags x') = QtahFHR.toCppEnum x'++class IsQStringSectionFlags a where+  toQStringSectionFlags :: a -> QStringSectionFlags++instance IsQStringSectionFlags QStringSectionFlags where toQStringSectionFlags = QtahP.id+instance IsQStringSectionFlags QStringSectionFlag where toQStringSectionFlags = QtahFlags.enumToFlags+instance IsQStringSectionFlags (HoppyFC.CInt) where toQStringSectionFlags = QtahFlags.numToFlags++sectionCaseInsensitiveSeps :: QStringSectionFlags+sectionCaseInsensitiveSeps = QStringSectionFlags (8)++sectionDefault :: QStringSectionFlags+sectionDefault = QStringSectionFlags (0)++sectionIncludeLeadingSep :: QStringSectionFlags+sectionIncludeLeadingSep = QStringSectionFlags (2)++sectionIncludeTrailingSep :: QStringSectionFlags+sectionIncludeTrailingSep = QStringSectionFlags (4)++sectionSkipEmpty :: QStringSectionFlags+sectionSkipEmpty = QStringSectionFlags (1)++instance QtahDB.Bits QStringSectionFlags where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QStringSplitBehavior =+  KeepEmptyParts+  | SkipEmptyParts+  | UnknownQStringSplitBehavior (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QStringSplitBehavior where+  fromCppEnum KeepEmptyParts = 0+  fromCppEnum SkipEmptyParts = 1+  fromCppEnum (UnknownQStringSplitBehavior n) = n+  +  toCppEnum (0) = KeepEmptyParts+  toCppEnum (1) = SkipEmptyParts+  toCppEnum n = UnknownQStringSplitBehavior n++instance HoppyP.Eq QStringSplitBehavior where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QStringSplitBehavior where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Core/QString.hs-boot view
@@ -0,0 +1,117 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QString (+  QStringValue (..),+  QStringConstPtr (..),+  QStringPtr (..),+  QStringConst (..),+  castQStringToConst,+  QString (..),+  castQStringToNonconst,+  QStringNormalizationForm,+  QStringSectionFlag,+  QStringSectionFlags,+  IsQStringSectionFlags (..),+  sectionCaseInsensitiveSeps,+  sectionDefault,+  sectionIncludeLeadingSep,+  sectionIncludeTrailingSep,+  sectionSkipEmpty,+  QStringSplitBehavior,+  ) where++import qualified Data.Bits as QtahDB+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 Prelude as HoppyP+import qualified Prelude as QtahP+++class QStringValue a where+  withQStringPtr :: a -> (QStringConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QStringConstPtr a => QStringValue a++instance {-# OVERLAPPING #-} QStringValue (QtahP.String)++class (HoppyFHR.CppPtr this) => QStringConstPtr this where+  toQStringConst :: this -> QStringConst++class (QStringConstPtr this) => QStringPtr this where+  toQString :: this -> QString++data QStringConst =+    QStringConst (HoppyF.Ptr QStringConst)+  | QStringConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStringConst)++castQStringToConst :: QString -> QStringConst++instance HoppyFHR.CppPtr QStringConst+instance HoppyFHR.Deletable QStringConst+instance HoppyFHR.Copyable QStringConst QString++instance QStringConstPtr QStringConst++data QString =+    QString (HoppyF.Ptr QString)+  | QStringGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QString)++castQStringToNonconst :: QStringConst -> QString++instance HoppyFHR.CppPtr QString+instance HoppyFHR.Deletable QString+instance HoppyFHR.Copyable QString QString++instance QStringConstPtr QString++instance QStringPtr QString++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QString)) QString++instance HoppyFHR.Encodable QString ((QtahP.String))+instance HoppyFHR.Encodable QStringConst ((QtahP.String))++instance HoppyFHR.Decodable QString ((QtahP.String))+instance HoppyFHR.Decodable QStringConst ((QtahP.String))++data QStringNormalizationForm+instance HoppyFHR.CppEnum (HoppyFC.CInt) QStringNormalizationForm+instance HoppyP.Eq QStringNormalizationForm+instance HoppyP.Ord QStringNormalizationForm+instance HoppyP.Show QStringNormalizationForm++data QStringSectionFlag+instance HoppyFHR.CppEnum (HoppyFC.CInt) QStringSectionFlag+instance HoppyP.Eq QStringSectionFlag+instance HoppyP.Ord QStringSectionFlag+instance HoppyP.Show QStringSectionFlag++newtype QStringSectionFlags = QStringSectionFlags (HoppyFC.CInt)+instance QtahDB.Bits QStringSectionFlags+instance QtahP.Eq QStringSectionFlags+instance QtahP.Ord QStringSectionFlags+instance QtahP.Show QStringSectionFlags++instance QtahFlags.Flags (HoppyFC.CInt) QStringSectionFlag QStringSectionFlags++class IsQStringSectionFlags a where+  toQStringSectionFlags :: a -> QStringSectionFlags++instance IsQStringSectionFlags QStringSectionFlags+instance IsQStringSectionFlags QStringSectionFlag+instance IsQStringSectionFlags HoppyFC.CInt++sectionCaseInsensitiveSeps :: QStringSectionFlags+sectionDefault :: QStringSectionFlags+sectionIncludeLeadingSep :: QStringSectionFlags+sectionIncludeTrailingSep :: QStringSectionFlags+sectionSkipEmpty :: QStringSectionFlags++data QStringSplitBehavior+instance HoppyFHR.CppEnum (HoppyFC.CInt) QStringSplitBehavior+instance HoppyP.Eq QStringSplitBehavior+instance HoppyP.Ord QStringSplitBehavior+instance HoppyP.Show QStringSplitBehavior
src/Graphics/UI/Qtah/Generated/Core/QStringList.hs view
@@ -0,0 +1,309 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QStringList (+  castQStringListToQListQString,+  QStringListValue (..),+  QStringListConstPtr (..),+  containsCase,+  filter,+  filterCase,+  joinString,+  joinChar,+  eQ,+  nE,+  QStringListPtr (..),+  removeDuplicates,+  sort,+  sortCase,+  aSSIGN,+  QStringListConst (..),+  castQStringListToConst,+  QStringList (..),+  castQStringListToNonconst,+  new,+  newCopy,+  QStringListSuper (..),+  QStringListSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QChar as M16+import qualified Graphics.UI.Qtah.Generated.Core.QList.QString as M206+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QStringList_new" new' ::  HoppyP.IO (HoppyF.Ptr QStringList)+foreign import ccall "genpop__QStringList_newCopy" newCopy' ::  HoppyF.Ptr QStringListConst -> HoppyP.IO (HoppyF.Ptr QStringList)+foreign import ccall "genpop__QStringList_containsCase" containsCase' ::  HoppyF.Ptr QStringListConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStringList_filter" filter' ::  HoppyF.Ptr QStringListConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QStringListConst)+foreign import ccall "genpop__QStringList_filterCase" filterCase' ::  HoppyF.Ptr QStringListConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStringListConst)+foreign import ccall "genpop__QStringList_joinString" joinString' ::  HoppyF.Ptr QStringListConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QStringList_joinChar" joinChar' ::  HoppyF.Ptr QStringListConst -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QStringList_removeDuplicates" removeDuplicates' ::  HoppyF.Ptr QStringList -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QStringList_sort" sort' ::  HoppyF.Ptr QStringList -> HoppyP.IO ()+foreign import ccall "genpop__QStringList_sortCase" sortCase' ::  HoppyF.Ptr QStringList -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStringList_EQ" eQ' ::  HoppyF.Ptr QStringListConst -> HoppyF.Ptr QStringListConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStringList_NE" nE' ::  HoppyF.Ptr QStringListConst -> HoppyF.Ptr QStringListConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStringList_ASSIGN" aSSIGN' ::  HoppyF.Ptr QStringList -> HoppyF.Ptr QStringListConst -> HoppyP.IO (HoppyF.Ptr QStringList)+foreign import ccall "gencast__QStringList__QListQString" castQStringListToQListQString :: HoppyF.Ptr QStringListConst -> HoppyF.Ptr M206.QListQStringConst+foreign import ccall "gendel__QStringList" delete'QStringList :: HoppyF.Ptr QStringListConst -> HoppyP.IO ()+foreign import ccall "&gendel__QStringList" deletePtr'QStringList :: HoppyF.FunPtr (HoppyF.Ptr QStringListConst -> HoppyP.IO ())++class QStringListValue a where+  withQStringListPtr :: a -> (QStringListConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QStringListConstPtr a => QStringListValue a where+  withQStringListPtr = HoppyP.flip ($) . toQStringListConst++instance {-# OVERLAPPING #-} QStringListValue ([QtahP.String]) where+  withQStringListPtr = HoppyFHR.withCppObj++class (M206.QListQStringConstPtr this) => QStringListConstPtr this where+  toQStringListConst :: this -> QStringListConst++containsCase :: (QStringListValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtCaseSensitivity) -> (HoppyP.IO HoppyP.Bool)+containsCase arg'1 arg'2 arg'3 =+  withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (containsCase' arg'1' arg'2' arg'3')++filter :: (QStringListValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO [QtahP.String])+filter arg'1 arg'2 =+  withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QStringListConst) =<<+  (filter' arg'1' arg'2')++filterCase :: (QStringListValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtCaseSensitivity) -> (HoppyP.IO [QtahP.String])+filterCase arg'1 arg'2 arg'3 =+  withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QStringListConst) =<<+  (filterCase' arg'1' arg'2' arg'3')++joinString :: (QStringListValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+joinString arg'1 arg'2 =+  withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (joinString' arg'1' arg'2')++joinChar :: (QStringListValue this, M16.QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+joinChar arg'1 arg'2 =+  withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M16.withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (joinChar' arg'1' arg'2')++eQ :: (QStringListValue this, QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QStringListValue this, QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QStringListConstPtr this, M206.QListQStringPtr this) => QStringListPtr this where+  toQStringList :: this -> QStringList++removeDuplicates :: (QStringListPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+removeDuplicates arg'1 =+  HoppyFHR.withCppPtr (toQStringList arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeDuplicates' arg'1')++sort :: (QStringListPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+sort arg'1 =+  HoppyFHR.withCppPtr (toQStringList arg'1) $ \arg'1' ->+  (sort' arg'1')++sortCase :: (QStringListPtr this) => (this) {- ^ this -} -> (M190.QtCaseSensitivity) -> (HoppyP.IO ())+sortCase arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStringList arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (sortCase' arg'1' arg'2')++aSSIGN :: (QStringListPtr this, QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QStringList)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStringList arg'1) $ \arg'1' ->+  withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QStringList+  (aSSIGN' arg'1' arg'2')++data QStringListConst =+    QStringListConst (HoppyF.Ptr QStringListConst)+  | QStringListConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStringListConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QStringListConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QStringListConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQStringListToConst :: QStringList -> QStringListConst+castQStringListToConst (QStringList ptr') = QStringListConst $ HoppyF.castPtr ptr'+castQStringListToConst (QStringListGc fptr' ptr') = QStringListConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QStringListConst where+  nullptr = QStringListConst HoppyF.nullPtr+  +  withCppPtr (QStringListConst ptr') f' = f' ptr'+  withCppPtr (QStringListConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QStringListConst ptr') = ptr'+  toPtr (QStringListConstGc _ ptr') = ptr'+  +  touchCppPtr (QStringListConst _) = HoppyP.return ()+  touchCppPtr (QStringListConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QStringListConst where+  delete (QStringListConst ptr') = delete'QStringList ptr'+  delete (QStringListConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QStringListConst", " object."]+  +  toGc this'@(QStringListConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QStringListConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QStringList :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QStringListConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QStringListConst QStringList where copy = newCopy++instance QStringListConstPtr QStringListConst where+  toQStringListConst = HoppyP.id++instance M206.QListQStringConstPtr QStringListConst where+  toQListQStringConst (QStringListConst ptr') = M206.QListQStringConst $ castQStringListToQListQString ptr'+  toQListQStringConst (QStringListConstGc fptr' ptr') = M206.QListQStringConstGc fptr' $ castQStringListToQListQString ptr'++data QStringList =+    QStringList (HoppyF.Ptr QStringList)+  | QStringListGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStringList)+  deriving (HoppyP.Show)++instance HoppyP.Eq QStringList where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QStringList where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQStringListToNonconst :: QStringListConst -> QStringList+castQStringListToNonconst (QStringListConst ptr') = QStringList $ HoppyF.castPtr ptr'+castQStringListToNonconst (QStringListConstGc fptr' ptr') = QStringListGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QStringList where+  nullptr = QStringList HoppyF.nullPtr+  +  withCppPtr (QStringList ptr') f' = f' ptr'+  withCppPtr (QStringListGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QStringList ptr') = ptr'+  toPtr (QStringListGc _ ptr') = ptr'+  +  touchCppPtr (QStringList _) = HoppyP.return ()+  touchCppPtr (QStringListGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QStringList where+  delete (QStringList ptr') = delete'QStringList $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QStringListConst)+  delete (QStringListGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QStringList", " object."]+  +  toGc this'@(QStringList ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QStringListGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QStringList :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QStringListGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QStringList QStringList where copy = newCopy++instance QStringListConstPtr QStringList where+  toQStringListConst (QStringList ptr') = QStringListConst $ (HoppyF.castPtr :: HoppyF.Ptr QStringList -> HoppyF.Ptr QStringListConst) ptr'+  toQStringListConst (QStringListGc fptr' ptr') = QStringListConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QStringList -> HoppyF.Ptr QStringListConst) ptr'++instance QStringListPtr QStringList where+  toQStringList = HoppyP.id++instance M206.QListQStringConstPtr QStringList where+  toQListQStringConst (QStringList ptr') = M206.QListQStringConst $ castQStringListToQListQString $ (HoppyF.castPtr :: HoppyF.Ptr QStringList -> HoppyF.Ptr QStringListConst) ptr'+  toQListQStringConst (QStringListGc fptr' ptr') = M206.QListQStringConstGc fptr' $ castQStringListToQListQString $ (HoppyF.castPtr :: HoppyF.Ptr QStringList -> HoppyF.Ptr QStringListConst) ptr'++instance M206.QListQStringPtr QStringList where+  toQListQString (QStringList ptr') = M206.QListQString $ (HoppyF.castPtr :: HoppyF.Ptr M206.QListQStringConst -> HoppyF.Ptr M206.QListQString) $ castQStringListToQListQString $ (HoppyF.castPtr :: HoppyF.Ptr QStringList -> HoppyF.Ptr QStringListConst) ptr'+  toQListQString (QStringListGc fptr' ptr') = M206.QListQStringGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M206.QListQStringConst -> HoppyF.Ptr M206.QListQString) $ castQStringListToQListQString $ (HoppyF.castPtr :: HoppyF.Ptr QStringList -> HoppyF.Ptr QStringListConst) ptr'++new :: (HoppyP.IO QStringList)+new =+  HoppyP.fmap QStringList+  (new')++newCopy :: (QStringListValue arg'1) => (arg'1) -> (HoppyP.IO QStringList)+newCopy arg'1 =+  withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QStringList+  (newCopy' arg'1')++class QStringListSuper a where+  downToQStringList :: a -> QStringList+++class QStringListSuperConst a where+  downToQStringListConst :: a -> QStringListConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QStringList)) QStringList where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QStringListValue a => HoppyFHR.Assignable QStringList a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QStringList)) QStringList where+  decode = HoppyP.fmap QStringList . HoppyF.peek++instance HoppyFHR.Encodable QStringList ([QtahP.String]) where+  encode =+    QtahFHR.fromContents++instance HoppyFHR.Encodable QStringListConst ([QtahP.String]) where+  encode = HoppyP.fmap (toQStringListConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QStringList)++instance HoppyFHR.Decodable QStringList ([QtahP.String]) where+  decode = HoppyFHR.decode . toQStringListConst++instance HoppyFHR.Decodable QStringListConst ([QtahP.String]) where+  decode =+    QtahFHR.toContents++instance QtahFHR.HasContents QStringListConst QtahP.String where+  toContents = QtahFHR.toContents . M206.toQListQStringConst++instance QtahFHR.HasContents QStringList QtahP.String where+  toContents = QtahFHR.toContents . M206.toQListQStringConst++instance QtahFHR.FromContents QStringList QtahP.String where+  fromContents strs' = do+    l' <- new+    QtahP.mapM_ (M206.append l') strs'+    QtahP.return l'
src/Graphics/UI/Qtah/Generated/Core/QStringListModel.hs view
@@ -0,0 +1,257 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QStringListModel (+  castQStringListModelToQAbstractListModel,+  castQAbstractListModelToQStringListModel,+  castQStringListModelToQAbstractItemModel,+  castQAbstractItemModelToQStringListModel,+  castQStringListModelToQObject,+  castQObjectToQStringListModel,+  QStringListModelValue (..),+  QStringListModelConstPtr (..),+  stringList,+  QStringListModelPtr (..),+  setStringList,+  QStringListModelConst (..),+  castQStringListModelToConst,+  QStringListModel (..),+  castQStringListModelToNonconst,+  new,+  newWithParent,+  newWithContents,+  newWithContentsAndParent,+  QStringListModelSuper (..),+  QStringListModelSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QAbstractItemModel as M4+import qualified Graphics.UI.Qtah.Generated.Core.QAbstractListModel as M6+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QStringList as M144+import Prelude (($), (.), (=<<), (==))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QStringListModel_new" new' ::  HoppyP.IO (HoppyF.Ptr QStringListModel)+foreign import ccall "genpop__QStringListModel_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QStringListModel)+foreign import ccall "genpop__QStringListModel_newWithContents" newWithContents' ::  HoppyF.Ptr M144.QStringListConst -> HoppyP.IO (HoppyF.Ptr QStringListModel)+foreign import ccall "genpop__QStringListModel_newWithContentsAndParent" newWithContentsAndParent' ::  HoppyF.Ptr M144.QStringListConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QStringListModel)+foreign import ccall "genpop__QStringListModel_stringList" stringList' ::  HoppyF.Ptr QStringListModelConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QStringListModel_setStringList" setStringList' ::  HoppyF.Ptr QStringListModel -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO ()+foreign import ccall "gencast__QStringListModel__QAbstractListModel" castQStringListModelToQAbstractListModel :: HoppyF.Ptr QStringListModelConst -> HoppyF.Ptr M6.QAbstractListModelConst+foreign import ccall "gencast__QAbstractListModel__QStringListModel" castQAbstractListModelToQStringListModel :: HoppyF.Ptr M6.QAbstractListModelConst -> HoppyF.Ptr QStringListModelConst+foreign import ccall "gencast__QStringListModel__QAbstractItemModel" castQStringListModelToQAbstractItemModel :: HoppyF.Ptr QStringListModelConst -> HoppyF.Ptr M4.QAbstractItemModelConst+foreign import ccall "gencast__QAbstractItemModel__QStringListModel" castQAbstractItemModelToQStringListModel :: HoppyF.Ptr M4.QAbstractItemModelConst -> HoppyF.Ptr QStringListModelConst+foreign import ccall "gencast__QStringListModel__QObject" castQStringListModelToQObject :: HoppyF.Ptr QStringListModelConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QStringListModel" castQObjectToQStringListModel :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QStringListModelConst+foreign import ccall "gendel__QStringListModel" delete'QStringListModel :: HoppyF.Ptr QStringListModelConst -> HoppyP.IO ()+foreign import ccall "&gendel__QStringListModel" deletePtr'QStringListModel :: HoppyF.FunPtr (HoppyF.Ptr QStringListModelConst -> HoppyP.IO ())++class QStringListModelValue a where+  withQStringListModelPtr :: a -> (QStringListModelConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QStringListModelConstPtr a => QStringListModelValue a where+  withQStringListModelPtr = HoppyP.flip ($) . toQStringListModelConst++class (M6.QAbstractListModelConstPtr this) => QStringListModelConstPtr this where+  toQStringListModelConst :: this -> QStringListModelConst++stringList :: (QStringListModelValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+stringList arg'1 =+  withQStringListModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (stringList' arg'1')++class (QStringListModelConstPtr this, M6.QAbstractListModelPtr this) => QStringListModelPtr this where+  toQStringListModel :: this -> QStringListModel++setStringList :: (QStringListModelPtr this, M144.QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setStringList arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStringListModel arg'1) $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setStringList' arg'1' arg'2')++data QStringListModelConst =+    QStringListModelConst (HoppyF.Ptr QStringListModelConst)+  | QStringListModelConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStringListModelConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QStringListModelConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QStringListModelConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQStringListModelToConst :: QStringListModel -> QStringListModelConst+castQStringListModelToConst (QStringListModel ptr') = QStringListModelConst $ HoppyF.castPtr ptr'+castQStringListModelToConst (QStringListModelGc fptr' ptr') = QStringListModelConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QStringListModelConst where+  nullptr = QStringListModelConst HoppyF.nullPtr+  +  withCppPtr (QStringListModelConst ptr') f' = f' ptr'+  withCppPtr (QStringListModelConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QStringListModelConst ptr') = ptr'+  toPtr (QStringListModelConstGc _ ptr') = ptr'+  +  touchCppPtr (QStringListModelConst _) = HoppyP.return ()+  touchCppPtr (QStringListModelConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QStringListModelConst where+  delete (QStringListModelConst ptr') = delete'QStringListModel ptr'+  delete (QStringListModelConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QStringListModelConst", " object."]+  +  toGc this'@(QStringListModelConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QStringListModelConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QStringListModel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QStringListModelConstGc {}) = HoppyP.return this'++instance QStringListModelConstPtr QStringListModelConst where+  toQStringListModelConst = HoppyP.id++instance M6.QAbstractListModelConstPtr QStringListModelConst where+  toQAbstractListModelConst (QStringListModelConst ptr') = M6.QAbstractListModelConst $ castQStringListModelToQAbstractListModel ptr'+  toQAbstractListModelConst (QStringListModelConstGc fptr' ptr') = M6.QAbstractListModelConstGc fptr' $ castQStringListModelToQAbstractListModel ptr'++instance M4.QAbstractItemModelConstPtr QStringListModelConst where+  toQAbstractItemModelConst (QStringListModelConst ptr') = M4.QAbstractItemModelConst $ castQStringListModelToQAbstractItemModel ptr'+  toQAbstractItemModelConst (QStringListModelConstGc fptr' ptr') = M4.QAbstractItemModelConstGc fptr' $ castQStringListModelToQAbstractItemModel ptr'++instance M94.QObjectConstPtr QStringListModelConst where+  toQObjectConst (QStringListModelConst ptr') = M94.QObjectConst $ castQStringListModelToQObject ptr'+  toQObjectConst (QStringListModelConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQStringListModelToQObject ptr'++data QStringListModel =+    QStringListModel (HoppyF.Ptr QStringListModel)+  | QStringListModelGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStringListModel)+  deriving (HoppyP.Show)++instance HoppyP.Eq QStringListModel where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QStringListModel where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQStringListModelToNonconst :: QStringListModelConst -> QStringListModel+castQStringListModelToNonconst (QStringListModelConst ptr') = QStringListModel $ HoppyF.castPtr ptr'+castQStringListModelToNonconst (QStringListModelConstGc fptr' ptr') = QStringListModelGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QStringListModel where+  nullptr = QStringListModel HoppyF.nullPtr+  +  withCppPtr (QStringListModel ptr') f' = f' ptr'+  withCppPtr (QStringListModelGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QStringListModel ptr') = ptr'+  toPtr (QStringListModelGc _ ptr') = ptr'+  +  touchCppPtr (QStringListModel _) = HoppyP.return ()+  touchCppPtr (QStringListModelGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QStringListModel where+  delete (QStringListModel ptr') = delete'QStringListModel $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QStringListModelConst)+  delete (QStringListModelGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QStringListModel", " object."]+  +  toGc this'@(QStringListModel ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QStringListModelGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QStringListModel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QStringListModelGc {}) = HoppyP.return this'++instance QStringListModelConstPtr QStringListModel where+  toQStringListModelConst (QStringListModel ptr') = QStringListModelConst $ (HoppyF.castPtr :: HoppyF.Ptr QStringListModel -> HoppyF.Ptr QStringListModelConst) ptr'+  toQStringListModelConst (QStringListModelGc fptr' ptr') = QStringListModelConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QStringListModel -> HoppyF.Ptr QStringListModelConst) ptr'++instance QStringListModelPtr QStringListModel where+  toQStringListModel = HoppyP.id++instance M6.QAbstractListModelConstPtr QStringListModel where+  toQAbstractListModelConst (QStringListModel ptr') = M6.QAbstractListModelConst $ castQStringListModelToQAbstractListModel $ (HoppyF.castPtr :: HoppyF.Ptr QStringListModel -> HoppyF.Ptr QStringListModelConst) ptr'+  toQAbstractListModelConst (QStringListModelGc fptr' ptr') = M6.QAbstractListModelConstGc fptr' $ castQStringListModelToQAbstractListModel $ (HoppyF.castPtr :: HoppyF.Ptr QStringListModel -> HoppyF.Ptr QStringListModelConst) ptr'++instance M6.QAbstractListModelPtr QStringListModel where+  toQAbstractListModel (QStringListModel ptr') = M6.QAbstractListModel $ (HoppyF.castPtr :: HoppyF.Ptr M6.QAbstractListModelConst -> HoppyF.Ptr M6.QAbstractListModel) $ castQStringListModelToQAbstractListModel $ (HoppyF.castPtr :: HoppyF.Ptr QStringListModel -> HoppyF.Ptr QStringListModelConst) ptr'+  toQAbstractListModel (QStringListModelGc fptr' ptr') = M6.QAbstractListModelGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M6.QAbstractListModelConst -> HoppyF.Ptr M6.QAbstractListModel) $ castQStringListModelToQAbstractListModel $ (HoppyF.castPtr :: HoppyF.Ptr QStringListModel -> HoppyF.Ptr QStringListModelConst) ptr'++instance M4.QAbstractItemModelConstPtr QStringListModel where+  toQAbstractItemModelConst (QStringListModel ptr') = M4.QAbstractItemModelConst $ castQStringListModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QStringListModel -> HoppyF.Ptr QStringListModelConst) ptr'+  toQAbstractItemModelConst (QStringListModelGc fptr' ptr') = M4.QAbstractItemModelConstGc fptr' $ castQStringListModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QStringListModel -> HoppyF.Ptr QStringListModelConst) ptr'++instance M4.QAbstractItemModelPtr QStringListModel where+  toQAbstractItemModel (QStringListModel ptr') = M4.QAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr M4.QAbstractItemModelConst -> HoppyF.Ptr M4.QAbstractItemModel) $ castQStringListModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QStringListModel -> HoppyF.Ptr QStringListModelConst) ptr'+  toQAbstractItemModel (QStringListModelGc fptr' ptr') = M4.QAbstractItemModelGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M4.QAbstractItemModelConst -> HoppyF.Ptr M4.QAbstractItemModel) $ castQStringListModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QStringListModel -> HoppyF.Ptr QStringListModelConst) ptr'++instance M94.QObjectConstPtr QStringListModel where+  toQObjectConst (QStringListModel ptr') = M94.QObjectConst $ castQStringListModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStringListModel -> HoppyF.Ptr QStringListModelConst) ptr'+  toQObjectConst (QStringListModelGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQStringListModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStringListModel -> HoppyF.Ptr QStringListModelConst) ptr'++instance M94.QObjectPtr QStringListModel where+  toQObject (QStringListModel ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQStringListModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStringListModel -> HoppyF.Ptr QStringListModelConst) ptr'+  toQObject (QStringListModelGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQStringListModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStringListModel -> HoppyF.Ptr QStringListModelConst) ptr'++new :: (HoppyP.IO QStringListModel)+new =+  HoppyP.fmap QStringListModel+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QStringListModel)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QStringListModel+  (newWithParent' arg'1')++newWithContents :: (M144.QStringListValue arg'1) => (arg'1) -> (HoppyP.IO QStringListModel)+newWithContents arg'1 =+  M144.withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QStringListModel+  (newWithContents' arg'1')++newWithContentsAndParent :: (M144.QStringListValue arg'1, M94.QObjectPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QStringListModel)+newWithContentsAndParent arg'1 arg'2 =+  M144.withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  HoppyP.fmap QStringListModel+  (newWithContentsAndParent' arg'1' arg'2')++class QStringListModelSuper a where+  downToQStringListModel :: a -> QStringListModel++instance QStringListModelSuper M6.QAbstractListModel where+  downToQStringListModel = castQStringListModelToNonconst . cast' . M6.castQAbstractListModelToConst+    where+      cast' (M6.QAbstractListModelConst ptr') = QStringListModelConst $ castQAbstractListModelToQStringListModel ptr'+      cast' (M6.QAbstractListModelConstGc fptr' ptr') = QStringListModelConstGc fptr' $ castQAbstractListModelToQStringListModel ptr'+instance QStringListModelSuper M4.QAbstractItemModel where+  downToQStringListModel = castQStringListModelToNonconst . cast' . M4.castQAbstractItemModelToConst+    where+      cast' (M4.QAbstractItemModelConst ptr') = QStringListModelConst $ castQAbstractItemModelToQStringListModel ptr'+      cast' (M4.QAbstractItemModelConstGc fptr' ptr') = QStringListModelConstGc fptr' $ castQAbstractItemModelToQStringListModel ptr'+instance QStringListModelSuper M94.QObject where+  downToQStringListModel = castQStringListModelToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QStringListModelConst $ castQObjectToQStringListModel ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QStringListModelConstGc fptr' $ castQObjectToQStringListModel ptr'++class QStringListModelSuperConst a where+  downToQStringListModelConst :: a -> QStringListModelConst++instance QStringListModelSuperConst M6.QAbstractListModelConst where+  downToQStringListModelConst = cast'+    where+      cast' (M6.QAbstractListModelConst ptr') = QStringListModelConst $ castQAbstractListModelToQStringListModel ptr'+      cast' (M6.QAbstractListModelConstGc fptr' ptr') = QStringListModelConstGc fptr' $ castQAbstractListModelToQStringListModel ptr'+instance QStringListModelSuperConst M4.QAbstractItemModelConst where+  downToQStringListModelConst = cast'+    where+      cast' (M4.QAbstractItemModelConst ptr') = QStringListModelConst $ castQAbstractItemModelToQStringListModel ptr'+      cast' (M4.QAbstractItemModelConstGc fptr' ptr') = QStringListModelConstGc fptr' $ castQAbstractItemModelToQStringListModel ptr'+instance QStringListModelSuperConst M94.QObjectConst where+  downToQStringListModelConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QStringListModelConst $ castQObjectToQStringListModel ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QStringListModelConstGc fptr' $ castQObjectToQStringListModel ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QStringListModel)) QStringListModel where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QStringListModel)) QStringListModel where+  decode = HoppyP.fmap QStringListModel . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QSysInfo.hs view
@@ -0,0 +1,251 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QSysInfo (+  QSysInfoValue (..),+  QSysInfoConstPtr (..),+  QSysInfoPtr (..),+  bootUniqueId,+  buildAbi,+  buildCpuArchitecture,+  currentCpuArchitecture,+  kernelType,+  kernelVersion,+  machineHostName,+  machineUniqueId,+  prettyProductName,+  productType,+  productVersion,+  QSysInfoConst (..),+  castQSysInfoToConst,+  QSysInfo (..),+  castQSysInfoToNonconst,+  QSysInfoSuper (..),+  QSysInfoSuperConst (..),+  QSysInfoEndian (..),+  QSysInfoSizes (..),+  ) where++import qualified Data.ByteString as QtahDBS+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (=<<), (==))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QSysInfo_bootUniqueId" bootUniqueId' ::  HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QSysInfo_buildAbi" buildAbi' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QSysInfo_buildCpuArchitecture" buildCpuArchitecture' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QSysInfo_currentCpuArchitecture" currentCpuArchitecture' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QSysInfo_kernelType" kernelType' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QSysInfo_kernelVersion" kernelVersion' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QSysInfo_machineHostName" machineHostName' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QSysInfo_machineUniqueId" machineUniqueId' ::  HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QSysInfo_prettyProductName" prettyProductName' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QSysInfo_productType" productType' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QSysInfo_productVersion" productVersion' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "gendel__QSysInfo" delete'QSysInfo :: HoppyF.Ptr QSysInfoConst -> HoppyP.IO ()+foreign import ccall "&gendel__QSysInfo" deletePtr'QSysInfo :: HoppyF.FunPtr (HoppyF.Ptr QSysInfoConst -> HoppyP.IO ())++class QSysInfoValue a where+  withQSysInfoPtr :: a -> (QSysInfoConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QSysInfoConstPtr a => QSysInfoValue a where+  withQSysInfoPtr = HoppyP.flip ($) . toQSysInfoConst++class (HoppyFHR.CppPtr this) => QSysInfoConstPtr this where+  toQSysInfoConst :: this -> QSysInfoConst++class (QSysInfoConstPtr this) => QSysInfoPtr this where+  toQSysInfo :: this -> QSysInfo++bootUniqueId :: (HoppyP.IO QtahDBS.ByteString)+bootUniqueId =+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (bootUniqueId')++buildAbi :: (HoppyP.IO QtahP.String)+buildAbi =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (buildAbi')++buildCpuArchitecture :: (HoppyP.IO QtahP.String)+buildCpuArchitecture =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (buildCpuArchitecture')++currentCpuArchitecture :: (HoppyP.IO QtahP.String)+currentCpuArchitecture =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (currentCpuArchitecture')++kernelType :: (HoppyP.IO QtahP.String)+kernelType =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (kernelType')++kernelVersion :: (HoppyP.IO QtahP.String)+kernelVersion =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (kernelVersion')++machineHostName :: (HoppyP.IO QtahP.String)+machineHostName =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (machineHostName')++machineUniqueId :: (HoppyP.IO QtahDBS.ByteString)+machineUniqueId =+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (machineUniqueId')++prettyProductName :: (HoppyP.IO QtahP.String)+prettyProductName =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (prettyProductName')++productType :: (HoppyP.IO QtahP.String)+productType =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (productType')++productVersion :: (HoppyP.IO QtahP.String)+productVersion =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (productVersion')++data QSysInfoConst =+    QSysInfoConst (HoppyF.Ptr QSysInfoConst)+  | QSysInfoConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSysInfoConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QSysInfoConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QSysInfoConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQSysInfoToConst :: QSysInfo -> QSysInfoConst+castQSysInfoToConst (QSysInfo ptr') = QSysInfoConst $ HoppyF.castPtr ptr'+castQSysInfoToConst (QSysInfoGc fptr' ptr') = QSysInfoConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QSysInfoConst where+  nullptr = QSysInfoConst HoppyF.nullPtr+  +  withCppPtr (QSysInfoConst ptr') f' = f' ptr'+  withCppPtr (QSysInfoConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QSysInfoConst ptr') = ptr'+  toPtr (QSysInfoConstGc _ ptr') = ptr'+  +  touchCppPtr (QSysInfoConst _) = HoppyP.return ()+  touchCppPtr (QSysInfoConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QSysInfoConst where+  delete (QSysInfoConst ptr') = delete'QSysInfo ptr'+  delete (QSysInfoConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QSysInfoConst", " object."]+  +  toGc this'@(QSysInfoConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QSysInfoConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QSysInfo :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QSysInfoConstGc {}) = HoppyP.return this'++instance QSysInfoConstPtr QSysInfoConst where+  toQSysInfoConst = HoppyP.id++data QSysInfo =+    QSysInfo (HoppyF.Ptr QSysInfo)+  | QSysInfoGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSysInfo)+  deriving (HoppyP.Show)++instance HoppyP.Eq QSysInfo where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QSysInfo where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQSysInfoToNonconst :: QSysInfoConst -> QSysInfo+castQSysInfoToNonconst (QSysInfoConst ptr') = QSysInfo $ HoppyF.castPtr ptr'+castQSysInfoToNonconst (QSysInfoConstGc fptr' ptr') = QSysInfoGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QSysInfo where+  nullptr = QSysInfo HoppyF.nullPtr+  +  withCppPtr (QSysInfo ptr') f' = f' ptr'+  withCppPtr (QSysInfoGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QSysInfo ptr') = ptr'+  toPtr (QSysInfoGc _ ptr') = ptr'+  +  touchCppPtr (QSysInfo _) = HoppyP.return ()+  touchCppPtr (QSysInfoGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QSysInfo where+  delete (QSysInfo ptr') = delete'QSysInfo $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QSysInfoConst)+  delete (QSysInfoGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QSysInfo", " object."]+  +  toGc this'@(QSysInfo ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QSysInfoGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QSysInfo :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QSysInfoGc {}) = HoppyP.return this'++instance QSysInfoConstPtr QSysInfo where+  toQSysInfoConst (QSysInfo ptr') = QSysInfoConst $ (HoppyF.castPtr :: HoppyF.Ptr QSysInfo -> HoppyF.Ptr QSysInfoConst) ptr'+  toQSysInfoConst (QSysInfoGc fptr' ptr') = QSysInfoConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QSysInfo -> HoppyF.Ptr QSysInfoConst) ptr'++instance QSysInfoPtr QSysInfo where+  toQSysInfo = HoppyP.id++class QSysInfoSuper a where+  downToQSysInfo :: a -> QSysInfo+++class QSysInfoSuperConst a where+  downToQSysInfoConst :: a -> QSysInfoConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QSysInfo)) QSysInfo where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QSysInfo)) QSysInfo where+  decode = HoppyP.fmap QSysInfo . HoppyF.peek++data QSysInfoEndian =+  BigEndian+  | LittleEndian+  | ByteOrder+  | UnknownQSysInfoEndian (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QSysInfoEndian where+  fromCppEnum BigEndian = 0+  fromCppEnum LittleEndian = 1+  fromCppEnum ByteOrder = 1+  fromCppEnum (UnknownQSysInfoEndian n) = n+  +  toCppEnum (0) = BigEndian+  toCppEnum (1) = ByteOrder+  toCppEnum n = UnknownQSysInfoEndian n++instance HoppyP.Eq QSysInfoEndian where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QSysInfoEndian where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QSysInfoSizes =+  WordSize+  | UnknownQSysInfoSizes (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QSysInfoSizes where+  fromCppEnum WordSize = 64+  fromCppEnum (UnknownQSysInfoSizes n) = n+  +  toCppEnum (64) = WordSize+  toCppEnum n = UnknownQSysInfoSizes n++instance HoppyP.Eq QSysInfoSizes where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QSysInfoSizes where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Core/QTextCodec.hs view
@@ -0,0 +1,264 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QTextCodec (+  QTextCodecValue (..),+  QTextCodecConstPtr (..),+  aliases,+  canEncodeChar,+  canEncodeString,+  fromUnicode,+  mibEnum,+  name,+  toUnicode,+  QTextCodecPtr (..),+  availableCodecs,+  availableMibs,+  codecForHtml,+  codecForHtmlWithDefault,+  codecForLocale,+  codecForMib,+  codecForName,+  codecForUtfText,+  codecForUtfTextWithDefault,+  setCodecForLocale,+  QTextCodecConst (..),+  castQTextCodecToConst,+  QTextCodec (..),+  castQTextCodecToNonconst,+  QTextCodecSuper (..),+  QTextCodecSuperConst (..),+  ) where++import qualified Data.ByteString as QtahDBS+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QChar as M16+import qualified Graphics.UI.Qtah.Generated.Core.QList.Int as M192+import qualified Graphics.UI.Qtah.Generated.Core.QList.QByteArray as M196+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QTextCodec_aliases" aliases' ::  HoppyF.Ptr QTextCodecConst -> HoppyP.IO (HoppyF.Ptr M196.QListQByteArrayConst)+foreign import ccall "genpop__QTextCodec_canEncodeChar" canEncodeChar' ::  HoppyF.Ptr QTextCodecConst -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTextCodec_canEncodeString" canEncodeString' ::  HoppyF.Ptr QTextCodecConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTextCodec_fromUnicode" fromUnicode' ::  HoppyF.Ptr QTextCodecConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QTextCodec_mibEnum" mibEnum' ::  HoppyF.Ptr QTextCodecConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QTextCodec_name" name' ::  HoppyF.Ptr QTextCodecConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QTextCodec_toUnicode" toUnicode' ::  HoppyF.Ptr QTextCodecConst -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QTextCodec_availableCodecs" availableCodecs' ::  HoppyP.IO (HoppyF.Ptr M196.QListQByteArrayConst)+foreign import ccall "genpop__QTextCodec_availableMibs" availableMibs' ::  HoppyP.IO (HoppyF.Ptr M192.QListIntConst)+foreign import ccall "genpop__QTextCodec_codecForHtml" codecForHtml' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QTextCodec)+foreign import ccall "genpop__QTextCodec_codecForHtmlWithDefault" codecForHtmlWithDefault' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyF.Ptr QTextCodec -> HoppyP.IO (HoppyF.Ptr QTextCodec)+foreign import ccall "genpop__QTextCodec_codecForLocale" codecForLocale' ::  HoppyP.IO (HoppyF.Ptr QTextCodec)+foreign import ccall "genpop__QTextCodec_codecForMib" codecForMib' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QTextCodec)+foreign import ccall "genpop__QTextCodec_codecForName" codecForName' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QTextCodec)+foreign import ccall "genpop__QTextCodec_codecForUtfText" codecForUtfText' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QTextCodec)+foreign import ccall "genpop__QTextCodec_codecForUtfTextWithDefault" codecForUtfTextWithDefault' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyF.Ptr QTextCodec -> HoppyP.IO (HoppyF.Ptr QTextCodec)+foreign import ccall "genpop__QTextCodec_setCodecForLocale" setCodecForLocale' ::  HoppyF.Ptr QTextCodec -> HoppyP.IO ()++class QTextCodecValue a where+  withQTextCodecPtr :: a -> (QTextCodecConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QTextCodecConstPtr a => QTextCodecValue a where+  withQTextCodecPtr = HoppyP.flip ($) . toQTextCodecConst++class (HoppyFHR.CppPtr this) => QTextCodecConstPtr this where+  toQTextCodecConst :: this -> QTextCodecConst++aliases :: (QTextCodecValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahDBS.ByteString])+aliases arg'1 =+  withQTextCodecPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M196.QListQByteArrayConst) =<<+  (aliases' arg'1')++canEncodeChar :: (QTextCodecValue this, M16.QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+canEncodeChar arg'1 arg'2 =+  withQTextCodecPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M16.withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (canEncodeChar' arg'1' arg'2')++canEncodeString :: (QTextCodecValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+canEncodeString arg'1 arg'2 =+  withQTextCodecPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (canEncodeString' arg'1' arg'2')++fromUnicode :: (QTextCodecValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahDBS.ByteString)+fromUnicode arg'1 arg'2 =+  withQTextCodecPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (fromUnicode' arg'1' arg'2')++mibEnum :: (QTextCodecValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+mibEnum arg'1 =+  withQTextCodecPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (mibEnum' arg'1')++name :: (QTextCodecValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+name arg'1 =+  withQTextCodecPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (name' arg'1')++toUnicode :: (QTextCodecValue this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+toUnicode arg'1 arg'2 =+  withQTextCodecPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toUnicode' arg'1' arg'2')++class (QTextCodecConstPtr this) => QTextCodecPtr this where+  toQTextCodec :: this -> QTextCodec++availableCodecs :: (HoppyP.IO [QtahDBS.ByteString])+availableCodecs =+  (HoppyFHR.decodeAndDelete . M196.QListQByteArrayConst) =<<+  (availableCodecs')++availableMibs :: (HoppyP.IO [HoppyP.Int])+availableMibs =+  (HoppyFHR.decodeAndDelete . M192.QListIntConst) =<<+  (availableMibs')++codecForHtml :: (M12.QByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO QTextCodec)+codecForHtml arg'1 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QTextCodec+  (codecForHtml' arg'1')++codecForHtmlWithDefault :: (M12.QByteArrayValue arg'1, QTextCodecPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QTextCodec)+codecForHtmlWithDefault arg'1 arg'2 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (toQTextCodec arg'2) $ \arg'2' ->+  HoppyP.fmap QTextCodec+  (codecForHtmlWithDefault' arg'1' arg'2')++codecForLocale :: (HoppyP.IO QTextCodec)+codecForLocale =+  HoppyP.fmap QTextCodec+  (codecForLocale')++codecForMib :: (HoppyP.Int) -> (HoppyP.IO QTextCodec)+codecForMib arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QTextCodec+  (codecForMib' arg'1')++codecForName :: (M12.QByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO QTextCodec)+codecForName arg'1 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QTextCodec+  (codecForName' arg'1')++codecForUtfText :: (M12.QByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO QTextCodec)+codecForUtfText arg'1 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QTextCodec+  (codecForUtfText' arg'1')++codecForUtfTextWithDefault :: (M12.QByteArrayValue arg'1, QTextCodecPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QTextCodec)+codecForUtfTextWithDefault arg'1 arg'2 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (toQTextCodec arg'2) $ \arg'2' ->+  HoppyP.fmap QTextCodec+  (codecForUtfTextWithDefault' arg'1' arg'2')++setCodecForLocale :: (QTextCodecPtr arg'1) => (arg'1) -> (HoppyP.IO ())+setCodecForLocale arg'1 =+  HoppyFHR.withCppPtr (toQTextCodec arg'1) $ \arg'1' ->+  (setCodecForLocale' arg'1')++data QTextCodecConst =+    QTextCodecConst (HoppyF.Ptr QTextCodecConst)+  | QTextCodecConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTextCodecConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTextCodecConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTextCodecConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTextCodecToConst :: QTextCodec -> QTextCodecConst+castQTextCodecToConst (QTextCodec ptr') = QTextCodecConst $ HoppyF.castPtr ptr'+castQTextCodecToConst (QTextCodecGc fptr' ptr') = QTextCodecConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTextCodecConst where+  nullptr = QTextCodecConst HoppyF.nullPtr+  +  withCppPtr (QTextCodecConst ptr') f' = f' ptr'+  withCppPtr (QTextCodecConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTextCodecConst ptr') = ptr'+  toPtr (QTextCodecConstGc _ ptr') = ptr'+  +  touchCppPtr (QTextCodecConst _) = HoppyP.return ()+  touchCppPtr (QTextCodecConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance QTextCodecConstPtr QTextCodecConst where+  toQTextCodecConst = HoppyP.id++data QTextCodec =+    QTextCodec (HoppyF.Ptr QTextCodec)+  | QTextCodecGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTextCodec)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTextCodec where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTextCodec where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTextCodecToNonconst :: QTextCodecConst -> QTextCodec+castQTextCodecToNonconst (QTextCodecConst ptr') = QTextCodec $ HoppyF.castPtr ptr'+castQTextCodecToNonconst (QTextCodecConstGc fptr' ptr') = QTextCodecGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTextCodec where+  nullptr = QTextCodec HoppyF.nullPtr+  +  withCppPtr (QTextCodec ptr') f' = f' ptr'+  withCppPtr (QTextCodecGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTextCodec ptr') = ptr'+  toPtr (QTextCodecGc _ ptr') = ptr'+  +  touchCppPtr (QTextCodec _) = HoppyP.return ()+  touchCppPtr (QTextCodecGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance QTextCodecConstPtr QTextCodec where+  toQTextCodecConst (QTextCodec ptr') = QTextCodecConst $ (HoppyF.castPtr :: HoppyF.Ptr QTextCodec -> HoppyF.Ptr QTextCodecConst) ptr'+  toQTextCodecConst (QTextCodecGc fptr' ptr') = QTextCodecConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QTextCodec -> HoppyF.Ptr QTextCodecConst) ptr'++instance QTextCodecPtr QTextCodec where+  toQTextCodec = HoppyP.id++class QTextCodecSuper a where+  downToQTextCodec :: a -> QTextCodec+++class QTextCodecSuperConst a where+  downToQTextCodecConst :: a -> QTextCodecConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QTextCodec)) QTextCodec where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QTextCodec)) QTextCodec where+  decode = HoppyP.fmap QTextCodec . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QTextDecoder.hs view
@@ -0,0 +1,172 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QTextDecoder (+  QTextDecoderValue (..),+  QTextDecoderConstPtr (..),+  QTextDecoderPtr (..),+  toUnicodeRaw,+  toUnicodeByteArray,+  toUnicodeString,+  QTextDecoderConst (..),+  castQTextDecoderToConst,+  QTextDecoder (..),+  castQTextDecoderToNonconst,+  new,+  QTextDecoderSuper (..),+  QTextDecoderSuperConst (..),+  ) 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.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QTextCodec as M150+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QTextDecoder_new" new' ::  HoppyF.Ptr M150.QTextCodecConst -> HoppyP.IO (HoppyF.Ptr QTextDecoder)+foreign import ccall "genpop__QTextDecoder_toUnicodeRaw" toUnicodeRaw' ::  HoppyF.Ptr QTextDecoder -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QTextDecoder_toUnicodeByteArray" toUnicodeByteArray' ::  HoppyF.Ptr QTextDecoder -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QTextDecoder_toUnicodeString" toUnicodeString' ::  HoppyF.Ptr QTextDecoder -> HoppyF.Ptr M142.QString -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gendel__QTextDecoder" delete'QTextDecoder :: HoppyF.Ptr QTextDecoderConst -> HoppyP.IO ()+foreign import ccall "&gendel__QTextDecoder" deletePtr'QTextDecoder :: HoppyF.FunPtr (HoppyF.Ptr QTextDecoderConst -> HoppyP.IO ())++class QTextDecoderValue a where+  withQTextDecoderPtr :: a -> (QTextDecoderConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QTextDecoderConstPtr a => QTextDecoderValue a where+  withQTextDecoderPtr = HoppyP.flip ($) . toQTextDecoderConst++class (HoppyFHR.CppPtr this) => QTextDecoderConstPtr this where+  toQTextDecoderConst :: this -> QTextDecoderConst++class (QTextDecoderConstPtr this) => QTextDecoderPtr this where+  toQTextDecoder :: this -> QTextDecoder++toUnicodeRaw :: (QTextDecoderPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+toUnicodeRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQTextDecoder arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toUnicodeRaw' arg'1' arg'2' arg'3')++toUnicodeByteArray :: (QTextDecoderPtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+toUnicodeByteArray arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQTextDecoder arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toUnicodeByteArray' arg'1' arg'2')++toUnicodeString :: (QTextDecoderPtr this, M142.QStringPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO ())+toUnicodeString arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQTextDecoder arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M142.toQString arg'2) $ \arg'2' ->+  let arg'3' = arg'3 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (toUnicodeString' arg'1' arg'2' arg'3' arg'4')++data QTextDecoderConst =+    QTextDecoderConst (HoppyF.Ptr QTextDecoderConst)+  | QTextDecoderConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTextDecoderConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTextDecoderConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTextDecoderConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTextDecoderToConst :: QTextDecoder -> QTextDecoderConst+castQTextDecoderToConst (QTextDecoder ptr') = QTextDecoderConst $ HoppyF.castPtr ptr'+castQTextDecoderToConst (QTextDecoderGc fptr' ptr') = QTextDecoderConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTextDecoderConst where+  nullptr = QTextDecoderConst HoppyF.nullPtr+  +  withCppPtr (QTextDecoderConst ptr') f' = f' ptr'+  withCppPtr (QTextDecoderConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTextDecoderConst ptr') = ptr'+  toPtr (QTextDecoderConstGc _ ptr') = ptr'+  +  touchCppPtr (QTextDecoderConst _) = HoppyP.return ()+  touchCppPtr (QTextDecoderConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTextDecoderConst where+  delete (QTextDecoderConst ptr') = delete'QTextDecoder ptr'+  delete (QTextDecoderConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTextDecoderConst", " object."]+  +  toGc this'@(QTextDecoderConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTextDecoderConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTextDecoder :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTextDecoderConstGc {}) = HoppyP.return this'++instance QTextDecoderConstPtr QTextDecoderConst where+  toQTextDecoderConst = HoppyP.id++data QTextDecoder =+    QTextDecoder (HoppyF.Ptr QTextDecoder)+  | QTextDecoderGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTextDecoder)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTextDecoder where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTextDecoder where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTextDecoderToNonconst :: QTextDecoderConst -> QTextDecoder+castQTextDecoderToNonconst (QTextDecoderConst ptr') = QTextDecoder $ HoppyF.castPtr ptr'+castQTextDecoderToNonconst (QTextDecoderConstGc fptr' ptr') = QTextDecoderGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTextDecoder where+  nullptr = QTextDecoder HoppyF.nullPtr+  +  withCppPtr (QTextDecoder ptr') f' = f' ptr'+  withCppPtr (QTextDecoderGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTextDecoder ptr') = ptr'+  toPtr (QTextDecoderGc _ ptr') = ptr'+  +  touchCppPtr (QTextDecoder _) = HoppyP.return ()+  touchCppPtr (QTextDecoderGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTextDecoder where+  delete (QTextDecoder ptr') = delete'QTextDecoder $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QTextDecoderConst)+  delete (QTextDecoderGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTextDecoder", " object."]+  +  toGc this'@(QTextDecoder ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTextDecoderGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTextDecoder :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTextDecoderGc {}) = HoppyP.return this'++instance QTextDecoderConstPtr QTextDecoder where+  toQTextDecoderConst (QTextDecoder ptr') = QTextDecoderConst $ (HoppyF.castPtr :: HoppyF.Ptr QTextDecoder -> HoppyF.Ptr QTextDecoderConst) ptr'+  toQTextDecoderConst (QTextDecoderGc fptr' ptr') = QTextDecoderConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QTextDecoder -> HoppyF.Ptr QTextDecoderConst) ptr'++instance QTextDecoderPtr QTextDecoder where+  toQTextDecoder = HoppyP.id++new :: (M150.QTextCodecValue arg'1) => (arg'1) -> (HoppyP.IO QTextDecoder)+new arg'1 =+  M150.withQTextCodecPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QTextDecoder+  (new' arg'1')++class QTextDecoderSuper a where+  downToQTextDecoder :: a -> QTextDecoder+++class QTextDecoderSuperConst a where+  downToQTextDecoderConst :: a -> QTextDecoderConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QTextDecoder)) QTextDecoder where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QTextDecoder)) QTextDecoder where+  decode = HoppyP.fmap QTextDecoder . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QTextEncoder.hs view
@@ -0,0 +1,161 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QTextEncoder (+  QTextEncoderValue (..),+  QTextEncoderConstPtr (..),+  QTextEncoderPtr (..),+  fromUnicodeString,+  fromUnicodeQChar,+  QTextEncoderConst (..),+  castQTextEncoderToConst,+  QTextEncoder (..),+  castQTextEncoderToNonconst,+  new,+  QTextEncoderSuper (..),+  QTextEncoderSuperConst (..),+  ) where++import qualified Data.ByteString as QtahDBS+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QChar as M16+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QTextCodec as M150+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QTextEncoder_new" new' ::  HoppyF.Ptr M150.QTextCodec -> HoppyP.IO (HoppyF.Ptr QTextEncoder)+foreign import ccall "genpop__QTextEncoder_fromUnicodeString" fromUnicodeString' ::  HoppyF.Ptr QTextEncoder -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QTextEncoder_fromUnicodeQChar" fromUnicodeQChar' ::  HoppyF.Ptr QTextEncoder -> HoppyF.Ptr M16.QCharConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "gendel__QTextEncoder" delete'QTextEncoder :: HoppyF.Ptr QTextEncoderConst -> HoppyP.IO ()+foreign import ccall "&gendel__QTextEncoder" deletePtr'QTextEncoder :: HoppyF.FunPtr (HoppyF.Ptr QTextEncoderConst -> HoppyP.IO ())++class QTextEncoderValue a where+  withQTextEncoderPtr :: a -> (QTextEncoderConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QTextEncoderConstPtr a => QTextEncoderValue a where+  withQTextEncoderPtr = HoppyP.flip ($) . toQTextEncoderConst++class (HoppyFHR.CppPtr this) => QTextEncoderConstPtr this where+  toQTextEncoderConst :: this -> QTextEncoderConst++class (QTextEncoderConstPtr this) => QTextEncoderPtr this where+  toQTextEncoder :: this -> QTextEncoder++fromUnicodeString :: (QTextEncoderPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahDBS.ByteString)+fromUnicodeString arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQTextEncoder arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (fromUnicodeString' arg'1' arg'2')++fromUnicodeQChar :: (QTextEncoderPtr this, M16.QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO QtahDBS.ByteString)+fromUnicodeQChar arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQTextEncoder arg'1) $ \arg'1' ->+  M16.withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (fromUnicodeQChar' arg'1' arg'2' arg'3')++data QTextEncoderConst =+    QTextEncoderConst (HoppyF.Ptr QTextEncoderConst)+  | QTextEncoderConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTextEncoderConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTextEncoderConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTextEncoderConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTextEncoderToConst :: QTextEncoder -> QTextEncoderConst+castQTextEncoderToConst (QTextEncoder ptr') = QTextEncoderConst $ HoppyF.castPtr ptr'+castQTextEncoderToConst (QTextEncoderGc fptr' ptr') = QTextEncoderConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTextEncoderConst where+  nullptr = QTextEncoderConst HoppyF.nullPtr+  +  withCppPtr (QTextEncoderConst ptr') f' = f' ptr'+  withCppPtr (QTextEncoderConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTextEncoderConst ptr') = ptr'+  toPtr (QTextEncoderConstGc _ ptr') = ptr'+  +  touchCppPtr (QTextEncoderConst _) = HoppyP.return ()+  touchCppPtr (QTextEncoderConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTextEncoderConst where+  delete (QTextEncoderConst ptr') = delete'QTextEncoder ptr'+  delete (QTextEncoderConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTextEncoderConst", " object."]+  +  toGc this'@(QTextEncoderConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTextEncoderConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTextEncoder :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTextEncoderConstGc {}) = HoppyP.return this'++instance QTextEncoderConstPtr QTextEncoderConst where+  toQTextEncoderConst = HoppyP.id++data QTextEncoder =+    QTextEncoder (HoppyF.Ptr QTextEncoder)+  | QTextEncoderGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTextEncoder)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTextEncoder where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTextEncoder where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTextEncoderToNonconst :: QTextEncoderConst -> QTextEncoder+castQTextEncoderToNonconst (QTextEncoderConst ptr') = QTextEncoder $ HoppyF.castPtr ptr'+castQTextEncoderToNonconst (QTextEncoderConstGc fptr' ptr') = QTextEncoderGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTextEncoder where+  nullptr = QTextEncoder HoppyF.nullPtr+  +  withCppPtr (QTextEncoder ptr') f' = f' ptr'+  withCppPtr (QTextEncoderGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTextEncoder ptr') = ptr'+  toPtr (QTextEncoderGc _ ptr') = ptr'+  +  touchCppPtr (QTextEncoder _) = HoppyP.return ()+  touchCppPtr (QTextEncoderGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTextEncoder where+  delete (QTextEncoder ptr') = delete'QTextEncoder $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QTextEncoderConst)+  delete (QTextEncoderGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTextEncoder", " object."]+  +  toGc this'@(QTextEncoder ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTextEncoderGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTextEncoder :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTextEncoderGc {}) = HoppyP.return this'++instance QTextEncoderConstPtr QTextEncoder where+  toQTextEncoderConst (QTextEncoder ptr') = QTextEncoderConst $ (HoppyF.castPtr :: HoppyF.Ptr QTextEncoder -> HoppyF.Ptr QTextEncoderConst) ptr'+  toQTextEncoderConst (QTextEncoderGc fptr' ptr') = QTextEncoderConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QTextEncoder -> HoppyF.Ptr QTextEncoderConst) ptr'++instance QTextEncoderPtr QTextEncoder where+  toQTextEncoder = HoppyP.id++new :: (M150.QTextCodecPtr arg'1) => (arg'1) -> (HoppyP.IO QTextEncoder)+new arg'1 =+  HoppyFHR.withCppPtr (M150.toQTextCodec arg'1) $ \arg'1' ->+  HoppyP.fmap QTextEncoder+  (new' arg'1')++class QTextEncoderSuper a where+  downToQTextEncoder :: a -> QTextEncoder+++class QTextEncoderSuperConst a where+  downToQTextEncoderConst :: a -> QTextEncoderConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QTextEncoder)) QTextEncoder where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QTextEncoder)) QTextEncoder where+  decode = HoppyP.fmap QTextEncoder . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QThread.hs view
@@ -0,0 +1,397 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QThread (+  castQThreadToQObject,+  castQObjectToQThread,+  QThreadValue (..),+  QThreadConstPtr (..),+  isFinished,+  isInterruptionRequested,+  isRunning,+  loopLevel,+  priority,+  stackSize,+  QThreadPtr (..),+  exit,+  exitWithCode,+  setPriority,+  quit,+  requestInterruption,+  setStackSize,+  start,+  startWithPriority,+  terminate,+  wait,+  waitWithMillis,+  currentThread,+  idealThreadCount,+  msleep,+  sleep,+  usleep,+  yieldCurrentThread,+  QThreadConst (..),+  castQThreadToConst,+  QThread (..),+  castQThreadToNonconst,+  new,+  newWithParent,+  QThreadSuper (..),+  QThreadSuperConst (..),+  QThreadPriority (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QThread_new" new' ::  HoppyP.IO (HoppyF.Ptr QThread)+foreign import ccall "genpop__QThread_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QThread)+foreign import ccall "genpop__QThread_exit" exit' ::  HoppyF.Ptr QThread -> HoppyP.IO ()+foreign import ccall "genpop__QThread_exitWithCode" exitWithCode' ::  HoppyF.Ptr QThread -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QThread_isFinished" isFinished' ::  HoppyF.Ptr QThreadConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QThread_isInterruptionRequested" isInterruptionRequested' ::  HoppyF.Ptr QThreadConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QThread_isRunning" isRunning' ::  HoppyF.Ptr QThreadConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QThread_loopLevel" loopLevel' ::  HoppyF.Ptr QThreadConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QThread_priority" priority' ::  HoppyF.Ptr QThreadConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QThread_setPriority" setPriority' ::  HoppyF.Ptr QThread -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QThread_quit" quit' ::  HoppyF.Ptr QThread -> HoppyP.IO ()+foreign import ccall "genpop__QThread_requestInterruption" requestInterruption' ::  HoppyF.Ptr QThread -> HoppyP.IO ()+foreign import ccall "genpop__QThread_stackSize" stackSize' ::  HoppyF.Ptr QThreadConst -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QThread_setStackSize" setStackSize' ::  HoppyF.Ptr QThread -> HoppyFC.CUInt -> HoppyP.IO ()+foreign import ccall "genpop__QThread_start" start' ::  HoppyF.Ptr QThread -> HoppyP.IO ()+foreign import ccall "genpop__QThread_startWithPriority" startWithPriority' ::  HoppyF.Ptr QThread -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QThread_terminate" terminate' ::  HoppyF.Ptr QThread -> HoppyP.IO ()+foreign import ccall "genpop__QThread_wait" wait' ::  HoppyF.Ptr QThread -> HoppyP.IO ()+foreign import ccall "genpop__QThread_waitWithMillis" waitWithMillis' ::  HoppyF.Ptr QThread -> HoppyFC.CULong -> HoppyP.IO ()+foreign import ccall "genpop__QThread_currentThread" currentThread' ::  HoppyP.IO (HoppyF.Ptr QThread)+foreign import ccall "genpop__QThread_idealThreadCount" idealThreadCount' ::  HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QThread_msleep" msleep' ::  HoppyFC.CULong -> HoppyP.IO ()+foreign import ccall "genpop__QThread_sleep" sleep' ::  HoppyFC.CULong -> HoppyP.IO ()+foreign import ccall "genpop__QThread_usleep" usleep' ::  HoppyFC.CULong -> HoppyP.IO ()+foreign import ccall "genpop__QThread_yieldCurrentThread" yieldCurrentThread' ::  HoppyP.IO ()+foreign import ccall "gencast__QThread__QObject" castQThreadToQObject :: HoppyF.Ptr QThreadConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QThread" castQObjectToQThread :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QThreadConst+foreign import ccall "gendel__QThread" delete'QThread :: HoppyF.Ptr QThreadConst -> HoppyP.IO ()+foreign import ccall "&gendel__QThread" deletePtr'QThread :: HoppyF.FunPtr (HoppyF.Ptr QThreadConst -> HoppyP.IO ())++class QThreadValue a where+  withQThreadPtr :: a -> (QThreadConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QThreadConstPtr a => QThreadValue a where+  withQThreadPtr = HoppyP.flip ($) . toQThreadConst++class (M94.QObjectConstPtr this) => QThreadConstPtr this where+  toQThreadConst :: this -> QThreadConst++isFinished :: (QThreadValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isFinished arg'1 =+  withQThreadPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isFinished' arg'1')++isInterruptionRequested :: (QThreadValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isInterruptionRequested arg'1 =+  withQThreadPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isInterruptionRequested' arg'1')++isRunning :: (QThreadValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isRunning arg'1 =+  withQThreadPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isRunning' arg'1')++loopLevel :: (QThreadValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+loopLevel arg'1 =+  withQThreadPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (loopLevel' arg'1')++priority :: (QThreadValue this) => (this) {- ^ this -} -> (HoppyP.IO QThreadPriority)+priority arg'1 =+  withQThreadPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (priority' arg'1')++stackSize :: (QThreadValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CUInt)+stackSize arg'1 =+  withQThreadPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (stackSize' arg'1')++class (QThreadConstPtr this, M94.QObjectPtr this) => QThreadPtr this where+  toQThread :: this -> QThread++exit :: (QThreadPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+exit arg'1 =+  HoppyFHR.withCppPtr (toQThread arg'1) $ \arg'1' ->+  (exit' arg'1')++exitWithCode :: (QThreadPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+exitWithCode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQThread arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (exitWithCode' arg'1' arg'2')++setPriority :: (QThreadPtr this) => (this) {- ^ this -} -> (QThreadPriority) -> (HoppyP.IO ())+setPriority arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQThread arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setPriority' arg'1' arg'2')++quit :: (QThreadPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+quit arg'1 =+  HoppyFHR.withCppPtr (toQThread arg'1) $ \arg'1' ->+  (quit' arg'1')++requestInterruption :: (QThreadPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+requestInterruption arg'1 =+  HoppyFHR.withCppPtr (toQThread arg'1) $ \arg'1' ->+  (requestInterruption' arg'1')++setStackSize :: (QThreadPtr this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO ())+setStackSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQThread arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (setStackSize' arg'1' arg'2')++start :: (QThreadPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+start arg'1 =+  HoppyFHR.withCppPtr (toQThread arg'1) $ \arg'1' ->+  (start' arg'1')++startWithPriority :: (QThreadPtr this) => (this) {- ^ this -} -> (QThreadPriority) -> (HoppyP.IO ())+startWithPriority arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQThread arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (startWithPriority' arg'1' arg'2')++terminate :: (QThreadPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+terminate arg'1 =+  HoppyFHR.withCppPtr (toQThread arg'1) $ \arg'1' ->+  (terminate' arg'1')++wait :: (QThreadPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+wait arg'1 =+  HoppyFHR.withCppPtr (toQThread arg'1) $ \arg'1' ->+  (wait' arg'1')++waitWithMillis :: (QThreadPtr this) => (this) {- ^ this -} -> (HoppyFC.CULong) -> (HoppyP.IO ())+waitWithMillis arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQThread arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (waitWithMillis' arg'1' arg'2')++currentThread :: (HoppyP.IO QThread)+currentThread =+  HoppyP.fmap QThread+  (currentThread')++idealThreadCount :: (HoppyP.IO HoppyP.Int)+idealThreadCount =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (idealThreadCount')++msleep :: (HoppyFC.CULong) -> (HoppyP.IO ())+msleep arg'1 =+  let arg'1' = arg'1 in+  (msleep' arg'1')++sleep :: (HoppyFC.CULong) -> (HoppyP.IO ())+sleep arg'1 =+  let arg'1' = arg'1 in+  (sleep' arg'1')++usleep :: (HoppyFC.CULong) -> (HoppyP.IO ())+usleep arg'1 =+  let arg'1' = arg'1 in+  (usleep' arg'1')++yieldCurrentThread :: (HoppyP.IO ())+yieldCurrentThread =+  (yieldCurrentThread')++data QThreadConst =+    QThreadConst (HoppyF.Ptr QThreadConst)+  | QThreadConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QThreadConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QThreadConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QThreadConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQThreadToConst :: QThread -> QThreadConst+castQThreadToConst (QThread ptr') = QThreadConst $ HoppyF.castPtr ptr'+castQThreadToConst (QThreadGc fptr' ptr') = QThreadConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QThreadConst where+  nullptr = QThreadConst HoppyF.nullPtr+  +  withCppPtr (QThreadConst ptr') f' = f' ptr'+  withCppPtr (QThreadConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QThreadConst ptr') = ptr'+  toPtr (QThreadConstGc _ ptr') = ptr'+  +  touchCppPtr (QThreadConst _) = HoppyP.return ()+  touchCppPtr (QThreadConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QThreadConst where+  delete (QThreadConst ptr') = delete'QThread ptr'+  delete (QThreadConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QThreadConst", " object."]+  +  toGc this'@(QThreadConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QThreadConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QThread :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QThreadConstGc {}) = HoppyP.return this'++instance QThreadConstPtr QThreadConst where+  toQThreadConst = HoppyP.id++instance M94.QObjectConstPtr QThreadConst where+  toQObjectConst (QThreadConst ptr') = M94.QObjectConst $ castQThreadToQObject ptr'+  toQObjectConst (QThreadConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQThreadToQObject ptr'++data QThread =+    QThread (HoppyF.Ptr QThread)+  | QThreadGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QThread)+  deriving (HoppyP.Show)++instance HoppyP.Eq QThread where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QThread where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQThreadToNonconst :: QThreadConst -> QThread+castQThreadToNonconst (QThreadConst ptr') = QThread $ HoppyF.castPtr ptr'+castQThreadToNonconst (QThreadConstGc fptr' ptr') = QThreadGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QThread where+  nullptr = QThread HoppyF.nullPtr+  +  withCppPtr (QThread ptr') f' = f' ptr'+  withCppPtr (QThreadGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QThread ptr') = ptr'+  toPtr (QThreadGc _ ptr') = ptr'+  +  touchCppPtr (QThread _) = HoppyP.return ()+  touchCppPtr (QThreadGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QThread where+  delete (QThread ptr') = delete'QThread $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QThreadConst)+  delete (QThreadGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QThread", " object."]+  +  toGc this'@(QThread ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QThreadGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QThread :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QThreadGc {}) = HoppyP.return this'++instance QThreadConstPtr QThread where+  toQThreadConst (QThread ptr') = QThreadConst $ (HoppyF.castPtr :: HoppyF.Ptr QThread -> HoppyF.Ptr QThreadConst) ptr'+  toQThreadConst (QThreadGc fptr' ptr') = QThreadConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QThread -> HoppyF.Ptr QThreadConst) ptr'++instance QThreadPtr QThread where+  toQThread = HoppyP.id++instance M94.QObjectConstPtr QThread where+  toQObjectConst (QThread ptr') = M94.QObjectConst $ castQThreadToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QThread -> HoppyF.Ptr QThreadConst) ptr'+  toQObjectConst (QThreadGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQThreadToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QThread -> HoppyF.Ptr QThreadConst) ptr'++instance M94.QObjectPtr QThread where+  toQObject (QThread ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQThreadToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QThread -> HoppyF.Ptr QThreadConst) ptr'+  toQObject (QThreadGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQThreadToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QThread -> HoppyF.Ptr QThreadConst) ptr'++new :: (HoppyP.IO QThread)+new =+  HoppyP.fmap QThread+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QThread)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QThread+  (newWithParent' arg'1')++class QThreadSuper a where+  downToQThread :: a -> QThread++instance QThreadSuper M94.QObject where+  downToQThread = castQThreadToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QThreadConst $ castQObjectToQThread ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QThreadConstGc fptr' $ castQObjectToQThread ptr'++class QThreadSuperConst a where+  downToQThreadConst :: a -> QThreadConst++instance QThreadSuperConst M94.QObjectConst where+  downToQThreadConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QThreadConst $ castQObjectToQThread ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QThreadConstGc fptr' $ castQObjectToQThread ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QThread)) QThread where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QThread)) QThread where+  decode = HoppyP.fmap QThread . HoppyF.peek++data QThreadPriority =+  IdlePriority+  | LowestPriority+  | LowPriority+  | NormalPriority+  | HighPriority+  | HighestPriority+  | TimeCriticalPriority+  | InheritPriority+  | UnknownQThreadPriority (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QThreadPriority where+  fromCppEnum IdlePriority = 0+  fromCppEnum LowestPriority = 1+  fromCppEnum LowPriority = 2+  fromCppEnum NormalPriority = 3+  fromCppEnum HighPriority = 4+  fromCppEnum HighestPriority = 5+  fromCppEnum TimeCriticalPriority = 6+  fromCppEnum InheritPriority = 7+  fromCppEnum (UnknownQThreadPriority n) = n+  +  toCppEnum (0) = IdlePriority+  toCppEnum (1) = LowestPriority+  toCppEnum (2) = LowPriority+  toCppEnum (3) = NormalPriority+  toCppEnum (4) = HighPriority+  toCppEnum (5) = HighestPriority+  toCppEnum (6) = TimeCriticalPriority+  toCppEnum (7) = InheritPriority+  toCppEnum n = UnknownQThreadPriority n++instance HoppyP.Eq QThreadPriority where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QThreadPriority where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Core/QThread.hs-boot view
@@ -0,0 +1,71 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QThread (+  QThreadValue (..),+  QThreadConstPtr (..),+  QThreadPtr (..),+  QThreadConst (..),+  castQThreadToConst,+  QThread (..),+  castQThreadToNonconst,+  castQThreadToQObject,+  QThreadPriority,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Prelude as HoppyP+++class QThreadValue a where+  withQThreadPtr :: a -> (QThreadConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QThreadConstPtr a => QThreadValue a++class (M94.QObjectConstPtr this) => QThreadConstPtr this where+  toQThreadConst :: this -> QThreadConst++class (QThreadConstPtr this, M94.QObjectPtr this) => QThreadPtr this where+  toQThread :: this -> QThread++data QThreadConst =+    QThreadConst (HoppyF.Ptr QThreadConst)+  | QThreadConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QThreadConst)++castQThreadToConst :: QThread -> QThreadConst++instance HoppyFHR.CppPtr QThreadConst+instance HoppyFHR.Deletable QThreadConst++instance QThreadConstPtr QThreadConst++instance M94.QObjectConstPtr QThreadConst++data QThread =+    QThread (HoppyF.Ptr QThread)+  | QThreadGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QThread)++castQThreadToNonconst :: QThreadConst -> QThread++instance HoppyFHR.CppPtr QThread+instance HoppyFHR.Deletable QThread++instance QThreadConstPtr QThread++instance QThreadPtr QThread++instance M94.QObjectConstPtr QThread++instance M94.QObjectPtr QThread+castQThreadToQObject :: HoppyF.Ptr QThreadConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QThread)) QThread++data QThreadPriority+instance HoppyFHR.CppEnum (HoppyFC.CInt) QThreadPriority+instance HoppyP.Eq QThreadPriority+instance HoppyP.Ord QThreadPriority+instance HoppyP.Show QThreadPriority
src/Graphics/UI/Qtah/Generated/Core/QTime.hs view
@@ -0,0 +1,567 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QTime (+  QTimeValue (..),+  QTimeConstPtr (..),+  addMSecs,+  addSecs,+  elapsed,+  hour,+  isNull,+  isValid,+  minute,+  msec,+  msecsSinceStartOfDay,+  msecsTo,+  second,+  secsTo,+  toString,+  toStringWithDateFormat,+  toStringWithStringFormat,+  eQ,+  nE,+  lT,+  lE,+  gT,+  gE,+  QTimePtr (..),+  isValidStatic,+  isValidStaticWithMs,+  restart,+  setHMS,+  setHMSWithMs,+  start,+  currentTime,+  fromMSecsSinceStartOfDay,+  fromString,+  fromStringWithDateFormat,+  fromStringWithStringFormat,+  QTimeConst (..),+  castQTimeToConst,+  QTime (..),+  castQTimeToNonconst,+  new,+  newWithHM,+  newWithHMS,+  newWithHMSMs,+  newCopy,+  QTimeSuper (..),+  QTimeSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QTime_new" new' ::  HoppyP.IO (HoppyF.Ptr QTime)+foreign import ccall "genpop__QTime_newWithHM" newWithHM' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QTime)+foreign import ccall "genpop__QTime_newWithHMS" newWithHMS' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QTime)+foreign import ccall "genpop__QTime_newWithHMSMs" newWithHMSMs' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QTime)+foreign import ccall "genpop__QTime_newCopy" newCopy' ::  HoppyF.Ptr QTimeConst -> HoppyP.IO (HoppyF.Ptr QTime)+foreign import ccall "genpop__QTime_addMSecs" addMSecs' ::  HoppyF.Ptr QTimeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QTimeConst)+foreign import ccall "genpop__QTime_addSecs" addSecs' ::  HoppyF.Ptr QTimeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QTimeConst)+foreign import ccall "genpop__QTime_currentTime" currentTime' ::  HoppyP.IO (HoppyF.Ptr QTimeConst)+foreign import ccall "genpop__QTime_elapsed" elapsed' ::  HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QTime_fromMSecsSinceStartOfDay" fromMSecsSinceStartOfDay' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QTimeConst)+foreign import ccall "genpop__QTime_fromString" fromString' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QTimeConst)+foreign import ccall "genpop__QTime_fromStringWithDateFormat" fromStringWithDateFormat' ::  HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QTimeConst)+foreign import ccall "genpop__QTime_fromStringWithStringFormat" fromStringWithStringFormat' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QTimeConst)+foreign import ccall "genpop__QTime_hour" hour' ::  HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QTime_isNull" isNull' ::  HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTime_isValid" isValid' ::  HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTime_isValidStatic" isValidStatic' ::  HoppyF.Ptr QTime -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTime_isValidStaticWithMs" isValidStaticWithMs' ::  HoppyF.Ptr QTime -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTime_minute" minute' ::  HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QTime_msec" msec' ::  HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QTime_msecsSinceStartOfDay" msecsSinceStartOfDay' ::  HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QTime_msecsTo" msecsTo' ::  HoppyF.Ptr QTimeConst -> HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QTime_restart" restart' ::  HoppyF.Ptr QTime -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QTime_second" second' ::  HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QTime_secsTo" secsTo' ::  HoppyF.Ptr QTimeConst -> HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QTime_setHMS" setHMS' ::  HoppyF.Ptr QTime -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTime_setHMSWithMs" setHMSWithMs' ::  HoppyF.Ptr QTime -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTime_start" start' ::  HoppyF.Ptr QTime -> HoppyP.IO ()+foreign import ccall "genpop__QTime_toString" toString' ::  HoppyF.Ptr QTimeConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QTime_toStringWithDateFormat" toStringWithDateFormat' ::  HoppyF.Ptr QTimeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QTime_toStringWithStringFormat" toStringWithStringFormat' ::  HoppyF.Ptr QTimeConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QTime_EQ" eQ' ::  HoppyF.Ptr QTimeConst -> HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTime_NE" nE' ::  HoppyF.Ptr QTimeConst -> HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTime_LT" lT' ::  HoppyF.Ptr QTimeConst -> HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTime_LE" lE' ::  HoppyF.Ptr QTimeConst -> HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTime_GT" gT' ::  HoppyF.Ptr QTimeConst -> HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTime_GE" gE' ::  HoppyF.Ptr QTimeConst -> HoppyF.Ptr QTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "gendel__QTime" delete'QTime :: HoppyF.Ptr QTimeConst -> HoppyP.IO ()+foreign import ccall "&gendel__QTime" deletePtr'QTime :: HoppyF.FunPtr (HoppyF.Ptr QTimeConst -> HoppyP.IO ())++class QTimeValue a where+  withQTimePtr :: a -> (QTimeConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QTimeConstPtr a => QTimeValue a where+  withQTimePtr = HoppyP.flip ($) . toQTimeConst++class (HoppyFHR.CppPtr this) => QTimeConstPtr this where+  toQTimeConst :: this -> QTimeConst++addMSecs :: (QTimeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QTime)+addMSecs arg'1 arg'2 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QTimeConst) =<<+  (addMSecs' arg'1' arg'2')++addSecs :: (QTimeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QTime)+addSecs arg'1 arg'2 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QTimeConst) =<<+  (addSecs' arg'1' arg'2')++elapsed :: (QTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+elapsed arg'1 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (elapsed' arg'1')++hour :: (QTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+hour arg'1 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (hour' arg'1')++isNull :: (QTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++isValid :: (QTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++minute :: (QTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+minute arg'1 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (minute' arg'1')++msec :: (QTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+msec arg'1 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (msec' arg'1')++msecsSinceStartOfDay :: (QTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+msecsSinceStartOfDay arg'1 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (msecsSinceStartOfDay' arg'1')++msecsTo :: (QTimeValue this, QTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+msecsTo arg'1 arg'2 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (msecsTo' arg'1' arg'2')++second :: (QTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+second arg'1 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (second' arg'1')++secsTo :: (QTimeValue this, QTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+secsTo arg'1 arg'2 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (secsTo' arg'1' arg'2')++toString :: (QTimeValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+toString arg'1 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toString' arg'1')++toStringWithDateFormat :: (QTimeValue this) => (this) {- ^ this -} -> (M190.QtDateFormat) -> (HoppyP.IO QtahP.String)+toStringWithDateFormat arg'1 arg'2 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toStringWithDateFormat' arg'1' arg'2')++toStringWithStringFormat :: (QTimeValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+toStringWithStringFormat arg'1 arg'2 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toStringWithStringFormat' arg'1' arg'2')++eQ :: (QTimeValue this, QTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QTimeValue this, QTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++lT :: (QTimeValue this, QTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lT arg'1 arg'2 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lT' arg'1' arg'2')++lE :: (QTimeValue this, QTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lE arg'1 arg'2 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lE' arg'1' arg'2')++gT :: (QTimeValue this, QTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gT arg'1 arg'2 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gT' arg'1' arg'2')++gE :: (QTimeValue this, QTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gE arg'1 arg'2 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gE' arg'1' arg'2')++class (QTimeConstPtr this) => QTimePtr this where+  toQTime :: this -> QTime++isValidStatic :: (QTimePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+isValidStatic arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQTime 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 . (/= 0))+  ) =<<+  (isValidStatic' arg'1' arg'2' arg'3' arg'4')++isValidStaticWithMs :: (QTimePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+isValidStaticWithMs arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQTime 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' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValidStaticWithMs' arg'1' arg'2' arg'3' arg'4' arg'5')++restart :: (QTimePtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+restart arg'1 =+  HoppyFHR.withCppPtr (toQTime arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (restart' arg'1')++setHMS :: (QTimePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+setHMS arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQTime 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 . (/= 0))+  ) =<<+  (setHMS' arg'1' arg'2' arg'3' arg'4')++setHMSWithMs :: (QTimePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+setHMSWithMs arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQTime 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' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (setHMSWithMs' arg'1' arg'2' arg'3' arg'4' arg'5')++start :: (QTimePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+start arg'1 =+  HoppyFHR.withCppPtr (toQTime arg'1) $ \arg'1' ->+  (start' arg'1')++currentTime :: (HoppyP.IO QTime)+currentTime =+  (HoppyFHR.decodeAndDelete . QTimeConst) =<<+  (currentTime')++fromMSecsSinceStartOfDay :: (HoppyP.Int) -> (HoppyP.IO QTime)+fromMSecsSinceStartOfDay arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (HoppyFHR.decodeAndDelete . QTimeConst) =<<+  (fromMSecsSinceStartOfDay' arg'1')++fromString :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QTime)+fromString arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QTimeConst) =<<+  (fromString' arg'1')++fromStringWithDateFormat :: (M142.QStringValue arg'1) => (arg'1) -> (M190.QtDateFormat) -> (HoppyP.IO QTime)+fromStringWithDateFormat arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QTimeConst) =<<+  (fromStringWithDateFormat' arg'1' arg'2')++fromStringWithStringFormat :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QTime)+fromStringWithStringFormat arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QTimeConst) =<<+  (fromStringWithStringFormat' arg'1' arg'2')++data QTimeConst =+    QTimeConst (HoppyF.Ptr QTimeConst)+  | QTimeConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTimeConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTimeConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTimeConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTimeToConst :: QTime -> QTimeConst+castQTimeToConst (QTime ptr') = QTimeConst $ HoppyF.castPtr ptr'+castQTimeToConst (QTimeGc fptr' ptr') = QTimeConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTimeConst where+  nullptr = QTimeConst HoppyF.nullPtr+  +  withCppPtr (QTimeConst ptr') f' = f' ptr'+  withCppPtr (QTimeConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTimeConst ptr') = ptr'+  toPtr (QTimeConstGc _ ptr') = ptr'+  +  touchCppPtr (QTimeConst _) = HoppyP.return ()+  touchCppPtr (QTimeConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTimeConst where+  delete (QTimeConst ptr') = delete'QTime ptr'+  delete (QTimeConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTimeConst", " object."]+  +  toGc this'@(QTimeConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTimeConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTime :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTimeConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QTimeConst QTime where copy = newCopy++instance QTimeConstPtr QTimeConst where+  toQTimeConst = HoppyP.id++data QTime =+    QTime (HoppyF.Ptr QTime)+  | QTimeGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTime)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTime where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTime where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTimeToNonconst :: QTimeConst -> QTime+castQTimeToNonconst (QTimeConst ptr') = QTime $ HoppyF.castPtr ptr'+castQTimeToNonconst (QTimeConstGc fptr' ptr') = QTimeGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTime where+  nullptr = QTime HoppyF.nullPtr+  +  withCppPtr (QTime ptr') f' = f' ptr'+  withCppPtr (QTimeGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTime ptr') = ptr'+  toPtr (QTimeGc _ ptr') = ptr'+  +  touchCppPtr (QTime _) = HoppyP.return ()+  touchCppPtr (QTimeGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTime where+  delete (QTime ptr') = delete'QTime $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QTimeConst)+  delete (QTimeGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTime", " object."]+  +  toGc this'@(QTime ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTimeGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTime :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTimeGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QTime QTime where copy = newCopy++instance QTimeConstPtr QTime where+  toQTimeConst (QTime ptr') = QTimeConst $ (HoppyF.castPtr :: HoppyF.Ptr QTime -> HoppyF.Ptr QTimeConst) ptr'+  toQTimeConst (QTimeGc fptr' ptr') = QTimeConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QTime -> HoppyF.Ptr QTimeConst) ptr'++instance QTimePtr QTime where+  toQTime = HoppyP.id++new :: (HoppyP.IO QTime)+new =+  HoppyP.fmap QTime+  (new')++newWithHM :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QTime)+newWithHM arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QTime+  (newWithHM' arg'1' arg'2')++newWithHMS :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QTime)+newWithHMS arg'1 arg'2 arg'3 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QTime+  (newWithHMS' arg'1' arg'2' arg'3')++newWithHMSMs :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QTime)+newWithHMSMs 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.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QTime+  (newWithHMSMs' arg'1' arg'2' arg'3' arg'4')++newCopy :: (QTimeValue arg'1) => (arg'1) -> (HoppyP.IO QTime)+newCopy arg'1 =+  withQTimePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QTime+  (newCopy' arg'1')++class QTimeSuper a where+  downToQTime :: a -> QTime+++class QTimeSuperConst a where+  downToQTimeConst :: a -> QTimeConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QTime)) QTime where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QTime)) QTime where+  decode = HoppyP.fmap QTime . HoppyF.peek++instance HoppyFHR.Decodable QTime (QTime) where+  decode = HoppyFHR.decode . toQTimeConst++instance HoppyFHR.Decodable QTimeConst (QTime) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QTimeZone.hs view
@@ -0,0 +1,481 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QTimeZone (+  QTimeZoneValue (..),+  QTimeZoneConstPtr (..),+  abbreviation,+  comment,+  daylightTimeOffset,+  displayNameWithDateTime,+  displayNameWithDateTimeAndNameType,+  displayNameWithTimeType,+  displayNameWithTimeTypeAndNameType,+  hasDaylightTime,+  hasTransitions,+  id,+  isDaylightTime,+  isValid,+  offsetFromUtc,+  standardTimeOffset,+  QTimeZonePtr (..),+  swap,+  aSSIGN,+  availableTimeZoneIds,+  availableTimeZoneIdsWithOffset,+  ianaIdToWindowsId,+  isTimeZoneIdAvailable,+  systemTimeZone,+  systemTimeZoneId,+  utc,+  windowsIdToDefaultIanaId,+  windowsIdToIanaIds,+  QTimeZoneConst (..),+  castQTimeZoneToConst,+  QTimeZone (..),+  castQTimeZoneToNonconst,+  new,+  newFull1,+  newWithOffset,+  newWithByteArray,+  newCopy,+  QTimeZoneSuper (..),+  QTimeZoneSuperConst (..),+  QTimeZoneNameType (..),+  QTimeZoneTimeType (..),+  ) where++import Control.Monad ((>=>))+import qualified Data.ByteString as QtahDBS+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QDateTime as M24+import qualified Graphics.UI.Qtah.Generated.Core.QList.QByteArray as M196+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QTimeZone_new" new' ::  HoppyP.IO (HoppyF.Ptr QTimeZone)+foreign import ccall "genpop__QTimeZone_newFull1" newFull1' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QTimeZone)+foreign import ccall "genpop__QTimeZone_newWithOffset" newWithOffset' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QTimeZone)+foreign import ccall "genpop__QTimeZone_newWithByteArray" newWithByteArray' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QTimeZone)+foreign import ccall "genpop__QTimeZone_newCopy" newCopy' ::  HoppyF.Ptr QTimeZoneConst -> HoppyP.IO (HoppyF.Ptr QTimeZone)+foreign import ccall "genpop__QTimeZone_abbreviation" abbreviation' ::  HoppyF.Ptr QTimeZoneConst -> HoppyF.Ptr M24.QDateTimeConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QTimeZone_availableTimeZoneIds" availableTimeZoneIds' ::  HoppyP.IO (HoppyF.Ptr M196.QListQByteArrayConst)+foreign import ccall "genpop__QTimeZone_availableTimeZoneIdsWithOffset" availableTimeZoneIdsWithOffset' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M196.QListQByteArrayConst)+foreign import ccall "genpop__QTimeZone_comment" comment' ::  HoppyF.Ptr QTimeZoneConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QTimeZone_daylightTimeOffset" daylightTimeOffset' ::  HoppyF.Ptr QTimeZoneConst -> HoppyF.Ptr M24.QDateTimeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QTimeZone_displayNameWithDateTime" displayNameWithDateTime' ::  HoppyF.Ptr QTimeZoneConst -> HoppyF.Ptr M24.QDateTimeConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QTimeZone_displayNameWithDateTimeAndNameType" displayNameWithDateTimeAndNameType' ::  HoppyF.Ptr QTimeZoneConst -> HoppyF.Ptr M24.QDateTimeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QTimeZone_displayNameWithTimeType" displayNameWithTimeType' ::  HoppyF.Ptr QTimeZoneConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QTimeZone_displayNameWithTimeTypeAndNameType" displayNameWithTimeTypeAndNameType' ::  HoppyF.Ptr QTimeZoneConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QTimeZone_hasDaylightTime" hasDaylightTime' ::  HoppyF.Ptr QTimeZoneConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTimeZone_hasTransitions" hasTransitions' ::  HoppyF.Ptr QTimeZoneConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTimeZone_ianaIdToWindowsId" ianaIdToWindowsId' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QTimeZone_id" id' ::  HoppyF.Ptr QTimeZoneConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QTimeZone_isDaylightTime" isDaylightTime' ::  HoppyF.Ptr QTimeZoneConst -> HoppyF.Ptr M24.QDateTimeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTimeZone_isTimeZoneIdAvailable" isTimeZoneIdAvailable' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTimeZone_isValid" isValid' ::  HoppyF.Ptr QTimeZoneConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTimeZone_offsetFromUtc" offsetFromUtc' ::  HoppyF.Ptr QTimeZoneConst -> HoppyF.Ptr M24.QDateTimeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QTimeZone_standardTimeOffset" standardTimeOffset' ::  HoppyF.Ptr QTimeZoneConst -> HoppyF.Ptr M24.QDateTimeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QTimeZone_swap" swap' ::  HoppyF.Ptr QTimeZone -> HoppyF.Ptr QTimeZone -> HoppyP.IO ()+foreign import ccall "genpop__QTimeZone_systemTimeZone" systemTimeZone' ::  HoppyP.IO (HoppyF.Ptr QTimeZoneConst)+foreign import ccall "genpop__QTimeZone_systemTimeZoneId" systemTimeZoneId' ::  HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QTimeZone_utc" utc' ::  HoppyP.IO (HoppyF.Ptr QTimeZoneConst)+foreign import ccall "genpop__QTimeZone_windowsIdToDefaultIanaId" windowsIdToDefaultIanaId' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QTimeZone_windowsIdToIanaIds" windowsIdToIanaIds' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr M196.QListQByteArrayConst)+foreign import ccall "genpop__QTimeZone_ASSIGN" aSSIGN' ::  HoppyF.Ptr QTimeZone -> HoppyF.Ptr QTimeZoneConst -> HoppyP.IO (HoppyF.Ptr QTimeZone)+foreign import ccall "gendel__QTimeZone" delete'QTimeZone :: HoppyF.Ptr QTimeZoneConst -> HoppyP.IO ()+foreign import ccall "&gendel__QTimeZone" deletePtr'QTimeZone :: HoppyF.FunPtr (HoppyF.Ptr QTimeZoneConst -> HoppyP.IO ())++class QTimeZoneValue a where+  withQTimeZonePtr :: a -> (QTimeZoneConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QTimeZoneConstPtr a => QTimeZoneValue a where+  withQTimeZonePtr = HoppyP.flip ($) . toQTimeZoneConst++class (HoppyFHR.CppPtr this) => QTimeZoneConstPtr this where+  toQTimeZoneConst :: this -> QTimeZoneConst++abbreviation :: (QTimeZoneValue this, M24.QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+abbreviation arg'1 arg'2 =+  withQTimeZonePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M24.withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (abbreviation' arg'1' arg'2')++comment :: (QTimeZoneValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+comment arg'1 =+  withQTimeZonePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (comment' arg'1')++daylightTimeOffset :: (QTimeZoneValue this, M24.QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+daylightTimeOffset arg'1 arg'2 =+  withQTimeZonePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M24.withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (daylightTimeOffset' arg'1' arg'2')++displayNameWithDateTime :: (QTimeZoneValue this, M24.QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+displayNameWithDateTime arg'1 arg'2 =+  withQTimeZonePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M24.withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (displayNameWithDateTime' arg'1' arg'2')++displayNameWithDateTimeAndNameType :: (QTimeZoneValue this, M24.QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (QTimeZoneNameType) -> (HoppyP.IO QtahP.String)+displayNameWithDateTimeAndNameType arg'1 arg'2 arg'3 =+  withQTimeZonePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M24.withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (displayNameWithDateTimeAndNameType' arg'1' arg'2' arg'3')++displayNameWithTimeType :: (QTimeZoneValue this) => (this) {- ^ this -} -> (QTimeZoneTimeType) -> (HoppyP.IO QtahP.String)+displayNameWithTimeType arg'1 arg'2 =+  withQTimeZonePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (displayNameWithTimeType' arg'1' arg'2')++displayNameWithTimeTypeAndNameType :: (QTimeZoneValue this) => (this) {- ^ this -} -> (QTimeZoneTimeType) -> (QTimeZoneNameType) -> (HoppyP.IO QtahP.String)+displayNameWithTimeTypeAndNameType arg'1 arg'2 arg'3 =+  withQTimeZonePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (displayNameWithTimeTypeAndNameType' arg'1' arg'2' arg'3')++hasDaylightTime :: (QTimeZoneValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasDaylightTime arg'1 =+  withQTimeZonePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasDaylightTime' arg'1')++hasTransitions :: (QTimeZoneValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasTransitions arg'1 =+  withQTimeZonePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasTransitions' arg'1')++id :: (QTimeZoneValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+id arg'1 =+  withQTimeZonePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (id' arg'1')++isDaylightTime :: (QTimeZoneValue this, M24.QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+isDaylightTime arg'1 arg'2 =+  withQTimeZonePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M24.withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isDaylightTime' arg'1' arg'2')++isValid :: (QTimeZoneValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQTimeZonePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++offsetFromUtc :: (QTimeZoneValue this, M24.QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+offsetFromUtc arg'1 arg'2 =+  withQTimeZonePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M24.withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (offsetFromUtc' arg'1' arg'2')++standardTimeOffset :: (QTimeZoneValue this, M24.QDateTimeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+standardTimeOffset arg'1 arg'2 =+  withQTimeZonePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M24.withQDateTimePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (standardTimeOffset' arg'1' arg'2')++class (QTimeZoneConstPtr this) => QTimeZonePtr this where+  toQTimeZone :: this -> QTimeZone++swap :: (QTimeZonePtr this, QTimeZonePtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQTimeZone arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQTimeZone arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++aSSIGN :: (QTimeZonePtr this, QTimeZoneValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QTimeZone)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQTimeZone arg'1) $ \arg'1' ->+  withQTimeZonePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QTimeZone+  (aSSIGN' arg'1' arg'2')++availableTimeZoneIds :: (HoppyP.IO [QtahDBS.ByteString])+availableTimeZoneIds =+  (HoppyFHR.decodeAndDelete . M196.QListQByteArrayConst) =<<+  (availableTimeZoneIds')++availableTimeZoneIdsWithOffset :: (HoppyP.Int) -> (HoppyP.IO [QtahDBS.ByteString])+availableTimeZoneIdsWithOffset arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (HoppyFHR.decodeAndDelete . M196.QListQByteArrayConst) =<<+  (availableTimeZoneIdsWithOffset' arg'1')++ianaIdToWindowsId :: (M12.QByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO QtahDBS.ByteString)+ianaIdToWindowsId arg'1 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (ianaIdToWindowsId' arg'1')++isTimeZoneIdAvailable :: (M12.QByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Bool)+isTimeZoneIdAvailable arg'1 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isTimeZoneIdAvailable' arg'1')++systemTimeZone :: (HoppyP.IO QTimeZone)+systemTimeZone =+  (HoppyFHR.decodeAndDelete . QTimeZoneConst) =<<+  (systemTimeZone')++systemTimeZoneId :: (HoppyP.IO QtahDBS.ByteString)+systemTimeZoneId =+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (systemTimeZoneId')++utc :: (HoppyP.IO QTimeZone)+utc =+  (HoppyFHR.decodeAndDelete . QTimeZoneConst) =<<+  (utc')++windowsIdToDefaultIanaId :: (M12.QByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO QtahDBS.ByteString)+windowsIdToDefaultIanaId arg'1 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (windowsIdToDefaultIanaId' arg'1')++windowsIdToIanaIds :: (M12.QByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO [QtahDBS.ByteString])+windowsIdToIanaIds arg'1 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M196.QListQByteArrayConst) =<<+  (windowsIdToIanaIds' arg'1')++data QTimeZoneConst =+    QTimeZoneConst (HoppyF.Ptr QTimeZoneConst)+  | QTimeZoneConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTimeZoneConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTimeZoneConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTimeZoneConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTimeZoneToConst :: QTimeZone -> QTimeZoneConst+castQTimeZoneToConst (QTimeZone ptr') = QTimeZoneConst $ HoppyF.castPtr ptr'+castQTimeZoneToConst (QTimeZoneGc fptr' ptr') = QTimeZoneConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTimeZoneConst where+  nullptr = QTimeZoneConst HoppyF.nullPtr+  +  withCppPtr (QTimeZoneConst ptr') f' = f' ptr'+  withCppPtr (QTimeZoneConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTimeZoneConst ptr') = ptr'+  toPtr (QTimeZoneConstGc _ ptr') = ptr'+  +  touchCppPtr (QTimeZoneConst _) = HoppyP.return ()+  touchCppPtr (QTimeZoneConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTimeZoneConst where+  delete (QTimeZoneConst ptr') = delete'QTimeZone ptr'+  delete (QTimeZoneConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTimeZoneConst", " object."]+  +  toGc this'@(QTimeZoneConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTimeZoneConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTimeZone :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTimeZoneConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QTimeZoneConst QTimeZone where copy = newCopy++instance QTimeZoneConstPtr QTimeZoneConst where+  toQTimeZoneConst = HoppyP.id++data QTimeZone =+    QTimeZone (HoppyF.Ptr QTimeZone)+  | QTimeZoneGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTimeZone)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTimeZone where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTimeZone where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTimeZoneToNonconst :: QTimeZoneConst -> QTimeZone+castQTimeZoneToNonconst (QTimeZoneConst ptr') = QTimeZone $ HoppyF.castPtr ptr'+castQTimeZoneToNonconst (QTimeZoneConstGc fptr' ptr') = QTimeZoneGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTimeZone where+  nullptr = QTimeZone HoppyF.nullPtr+  +  withCppPtr (QTimeZone ptr') f' = f' ptr'+  withCppPtr (QTimeZoneGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTimeZone ptr') = ptr'+  toPtr (QTimeZoneGc _ ptr') = ptr'+  +  touchCppPtr (QTimeZone _) = HoppyP.return ()+  touchCppPtr (QTimeZoneGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTimeZone where+  delete (QTimeZone ptr') = delete'QTimeZone $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QTimeZoneConst)+  delete (QTimeZoneGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTimeZone", " object."]+  +  toGc this'@(QTimeZone ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTimeZoneGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTimeZone :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTimeZoneGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QTimeZone QTimeZone where copy = newCopy++instance QTimeZoneConstPtr QTimeZone where+  toQTimeZoneConst (QTimeZone ptr') = QTimeZoneConst $ (HoppyF.castPtr :: HoppyF.Ptr QTimeZone -> HoppyF.Ptr QTimeZoneConst) ptr'+  toQTimeZoneConst (QTimeZoneGc fptr' ptr') = QTimeZoneConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QTimeZone -> HoppyF.Ptr QTimeZoneConst) ptr'++instance QTimeZonePtr QTimeZone where+  toQTimeZone = HoppyP.id++new :: (HoppyP.IO QTimeZone)+new =+  HoppyP.fmap QTimeZone+  (new')++newFull1 :: (M12.QByteArrayValue arg'1, M142.QStringValue arg'3, M142.QStringValue arg'4) => (arg'1) -> (HoppyP.Int) -> (arg'3) -> (arg'4) -> (HoppyP.IO QTimeZone)+newFull1 arg'1 arg'2 arg'3 arg'4 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  HoppyP.fmap QTimeZone+  (newFull1' arg'1' arg'2' arg'3' arg'4')++newWithOffset :: (HoppyP.Int) -> (HoppyP.IO QTimeZone)+newWithOffset arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QTimeZone+  (newWithOffset' arg'1')++newWithByteArray :: (M12.QByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO QTimeZone)+newWithByteArray arg'1 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QTimeZone+  (newWithByteArray' arg'1')++newCopy :: (QTimeZoneValue arg'1) => (arg'1) -> (HoppyP.IO QTimeZone)+newCopy arg'1 =+  withQTimeZonePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QTimeZone+  (newCopy' arg'1')++class QTimeZoneSuper a where+  downToQTimeZone :: a -> QTimeZone+++class QTimeZoneSuperConst a where+  downToQTimeZoneConst :: a -> QTimeZoneConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QTimeZone)) QTimeZone where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QTimeZoneValue a => HoppyFHR.Assignable QTimeZone a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QTimeZone)) QTimeZone where+  decode = HoppyP.fmap QTimeZone . HoppyF.peek++instance HoppyFHR.Decodable QTimeZone (QTimeZone) where+  decode = HoppyFHR.decode . toQTimeZoneConst++instance HoppyFHR.Decodable QTimeZoneConst (QTimeZone) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc++data QTimeZoneNameType =+  DefaultName+  | LongName+  | ShortName+  | OffsetName+  | UnknownQTimeZoneNameType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QTimeZoneNameType where+  fromCppEnum DefaultName = 0+  fromCppEnum LongName = 1+  fromCppEnum ShortName = 2+  fromCppEnum OffsetName = 3+  fromCppEnum (UnknownQTimeZoneNameType n) = n+  +  toCppEnum (0) = DefaultName+  toCppEnum (1) = LongName+  toCppEnum (2) = ShortName+  toCppEnum (3) = OffsetName+  toCppEnum n = UnknownQTimeZoneNameType n++instance HoppyP.Eq QTimeZoneNameType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QTimeZoneNameType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QTimeZoneTimeType =+  StandardTime+  | DaylightTime+  | GenericTime+  | UnknownQTimeZoneTimeType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QTimeZoneTimeType where+  fromCppEnum StandardTime = 0+  fromCppEnum DaylightTime = 1+  fromCppEnum GenericTime = 2+  fromCppEnum (UnknownQTimeZoneTimeType n) = n+  +  toCppEnum (0) = StandardTime+  toCppEnum (1) = DaylightTime+  toCppEnum (2) = GenericTime+  toCppEnum n = UnknownQTimeZoneTimeType n++instance HoppyP.Eq QTimeZoneTimeType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QTimeZoneTimeType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Core/QTimeZone.hs-boot view
@@ -0,0 +1,74 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QTimeZone (+  QTimeZoneValue (..),+  QTimeZoneConstPtr (..),+  QTimeZonePtr (..),+  QTimeZoneConst (..),+  castQTimeZoneToConst,+  QTimeZone (..),+  castQTimeZoneToNonconst,+  QTimeZoneNameType,+  QTimeZoneTimeType,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Prelude as HoppyP+++class QTimeZoneValue a where+  withQTimeZonePtr :: a -> (QTimeZoneConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QTimeZoneConstPtr a => QTimeZoneValue a++class (HoppyFHR.CppPtr this) => QTimeZoneConstPtr this where+  toQTimeZoneConst :: this -> QTimeZoneConst++class (QTimeZoneConstPtr this) => QTimeZonePtr this where+  toQTimeZone :: this -> QTimeZone++data QTimeZoneConst =+    QTimeZoneConst (HoppyF.Ptr QTimeZoneConst)+  | QTimeZoneConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTimeZoneConst)++castQTimeZoneToConst :: QTimeZone -> QTimeZoneConst++instance HoppyFHR.CppPtr QTimeZoneConst+instance HoppyFHR.Deletable QTimeZoneConst+instance HoppyFHR.Copyable QTimeZoneConst QTimeZone++instance QTimeZoneConstPtr QTimeZoneConst++data QTimeZone =+    QTimeZone (HoppyF.Ptr QTimeZone)+  | QTimeZoneGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTimeZone)++castQTimeZoneToNonconst :: QTimeZoneConst -> QTimeZone++instance HoppyFHR.CppPtr QTimeZone+instance HoppyFHR.Deletable QTimeZone+instance HoppyFHR.Copyable QTimeZone QTimeZone++instance QTimeZoneConstPtr QTimeZone++instance QTimeZonePtr QTimeZone++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QTimeZone)) QTimeZone++instance HoppyFHR.Decodable QTimeZone ((QTimeZone))+instance HoppyFHR.Decodable QTimeZoneConst ((QTimeZone))++data QTimeZoneNameType+instance HoppyFHR.CppEnum (HoppyFC.CInt) QTimeZoneNameType+instance HoppyP.Eq QTimeZoneNameType+instance HoppyP.Ord QTimeZoneNameType+instance HoppyP.Show QTimeZoneNameType++data QTimeZoneTimeType+instance HoppyFHR.CppEnum (HoppyFC.CInt) QTimeZoneTimeType+instance HoppyP.Eq QTimeZoneTimeType+instance HoppyP.Ord QTimeZoneTimeType+instance HoppyP.Show QTimeZoneTimeType
src/Graphics/UI/Qtah/Generated/Core/QTimer.hs view
@@ -0,0 +1,241 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QTimer (+  castQTimerToQObject,+  castQObjectToQTimer,+  QTimerValue (..),+  QTimerConstPtr (..),+  interval,+  isActive,+  isSingleShot,+  remainingTime,+  timerId,+  QTimerPtr (..),+  setInterval,+  setSingleShot,+  start,+  QTimerConst (..),+  castQTimerToConst,+  QTimer (..),+  castQTimerToNonconst,+  new,+  QTimerSuper (..),+  QTimerSuperConst (..),+  ) 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.Core.QObject as M94+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QTimer_new" new' ::  HoppyP.IO (HoppyF.Ptr QTimer)+foreign import ccall "genpop__QTimer_interval" interval' ::  HoppyF.Ptr QTimerConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QTimer_isActive" isActive' ::  HoppyF.Ptr QTimerConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTimer_isSingleShot" isSingleShot' ::  HoppyF.Ptr QTimerConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTimer_remainingTime" remainingTime' ::  HoppyF.Ptr QTimerConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QTimer_setInterval" setInterval' ::  HoppyF.Ptr QTimer -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QTimer_setSingleShot" setSingleShot' ::  HoppyF.Ptr QTimer -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QTimer_start" start' ::  HoppyF.Ptr QTimer -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QTimer_timerId" timerId' ::  HoppyF.Ptr QTimerConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "gencast__QTimer__QObject" castQTimerToQObject :: HoppyF.Ptr QTimerConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QTimer" castQObjectToQTimer :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QTimerConst+foreign import ccall "gendel__QTimer" delete'QTimer :: HoppyF.Ptr QTimerConst -> HoppyP.IO ()+foreign import ccall "&gendel__QTimer" deletePtr'QTimer :: HoppyF.FunPtr (HoppyF.Ptr QTimerConst -> HoppyP.IO ())++class QTimerValue a where+  withQTimerPtr :: a -> (QTimerConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QTimerConstPtr a => QTimerValue a where+  withQTimerPtr = HoppyP.flip ($) . toQTimerConst++class (M94.QObjectConstPtr this) => QTimerConstPtr this where+  toQTimerConst :: this -> QTimerConst++interval :: (QTimerValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+interval arg'1 =+  withQTimerPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (interval' arg'1')++isActive :: (QTimerValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isActive arg'1 =+  withQTimerPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isActive' arg'1')++isSingleShot :: (QTimerValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isSingleShot arg'1 =+  withQTimerPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSingleShot' arg'1')++remainingTime :: (QTimerValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+remainingTime arg'1 =+  withQTimerPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (remainingTime' arg'1')++timerId :: (QTimerValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+timerId arg'1 =+  withQTimerPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (timerId' arg'1')++class (QTimerConstPtr this, M94.QObjectPtr this) => QTimerPtr this where+  toQTimer :: this -> QTimer++setInterval :: (QTimerPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setInterval arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQTimer arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setInterval' arg'1' arg'2')++setSingleShot :: (QTimerPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setSingleShot arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQTimer arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setSingleShot' arg'1' arg'2')++start :: (QTimerPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+start arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQTimer arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (start' arg'1' arg'2')++data QTimerConst =+    QTimerConst (HoppyF.Ptr QTimerConst)+  | QTimerConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTimerConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTimerConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTimerConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTimerToConst :: QTimer -> QTimerConst+castQTimerToConst (QTimer ptr') = QTimerConst $ HoppyF.castPtr ptr'+castQTimerToConst (QTimerGc fptr' ptr') = QTimerConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTimerConst where+  nullptr = QTimerConst HoppyF.nullPtr+  +  withCppPtr (QTimerConst ptr') f' = f' ptr'+  withCppPtr (QTimerConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTimerConst ptr') = ptr'+  toPtr (QTimerConstGc _ ptr') = ptr'+  +  touchCppPtr (QTimerConst _) = HoppyP.return ()+  touchCppPtr (QTimerConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTimerConst where+  delete (QTimerConst ptr') = delete'QTimer ptr'+  delete (QTimerConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTimerConst", " object."]+  +  toGc this'@(QTimerConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTimerConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTimer :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTimerConstGc {}) = HoppyP.return this'++instance QTimerConstPtr QTimerConst where+  toQTimerConst = HoppyP.id++instance M94.QObjectConstPtr QTimerConst where+  toQObjectConst (QTimerConst ptr') = M94.QObjectConst $ castQTimerToQObject ptr'+  toQObjectConst (QTimerConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQTimerToQObject ptr'++data QTimer =+    QTimer (HoppyF.Ptr QTimer)+  | QTimerGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTimer)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTimer where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTimer where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTimerToNonconst :: QTimerConst -> QTimer+castQTimerToNonconst (QTimerConst ptr') = QTimer $ HoppyF.castPtr ptr'+castQTimerToNonconst (QTimerConstGc fptr' ptr') = QTimerGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTimer where+  nullptr = QTimer HoppyF.nullPtr+  +  withCppPtr (QTimer ptr') f' = f' ptr'+  withCppPtr (QTimerGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTimer ptr') = ptr'+  toPtr (QTimerGc _ ptr') = ptr'+  +  touchCppPtr (QTimer _) = HoppyP.return ()+  touchCppPtr (QTimerGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTimer where+  delete (QTimer ptr') = delete'QTimer $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QTimerConst)+  delete (QTimerGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTimer", " object."]+  +  toGc this'@(QTimer ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTimerGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTimer :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTimerGc {}) = HoppyP.return this'++instance QTimerConstPtr QTimer where+  toQTimerConst (QTimer ptr') = QTimerConst $ (HoppyF.castPtr :: HoppyF.Ptr QTimer -> HoppyF.Ptr QTimerConst) ptr'+  toQTimerConst (QTimerGc fptr' ptr') = QTimerConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QTimer -> HoppyF.Ptr QTimerConst) ptr'++instance QTimerPtr QTimer where+  toQTimer = HoppyP.id++instance M94.QObjectConstPtr QTimer where+  toQObjectConst (QTimer ptr') = M94.QObjectConst $ castQTimerToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QTimer -> HoppyF.Ptr QTimerConst) ptr'+  toQObjectConst (QTimerGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQTimerToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QTimer -> HoppyF.Ptr QTimerConst) ptr'++instance M94.QObjectPtr QTimer where+  toQObject (QTimer ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQTimerToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QTimer -> HoppyF.Ptr QTimerConst) ptr'+  toQObject (QTimerGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQTimerToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QTimer -> HoppyF.Ptr QTimerConst) ptr'++new :: (HoppyP.IO QTimer)+new =+  HoppyP.fmap QTimer+  (new')++class QTimerSuper a where+  downToQTimer :: a -> QTimer++instance QTimerSuper M94.QObject where+  downToQTimer = castQTimerToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QTimerConst $ castQObjectToQTimer ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QTimerConstGc fptr' $ castQObjectToQTimer ptr'++class QTimerSuperConst a where+  downToQTimerConst :: a -> QTimerConst++instance QTimerSuperConst M94.QObjectConst where+  downToQTimerConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QTimerConst $ castQObjectToQTimer ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QTimerConstGc fptr' $ castQObjectToQTimer ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QTimer)) QTimer where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QTimer)) QTimer where+  decode = HoppyP.fmap QTimer . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QTimerEvent.hs view
@@ -0,0 +1,174 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QTimerEvent (+  castQTimerEventToQEvent,+  castQEventToQTimerEvent,+  QTimerEventValue (..),+  QTimerEventConstPtr (..),+  timerId,+  QTimerEventPtr (..),+  QTimerEventConst (..),+  castQTimerEventToConst,+  QTimerEvent (..),+  castQTimerEventToNonconst,+  new,+  QTimerEventSuper (..),+  QTimerEventSuperConst (..),+  ) 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.Core.QEvent as M34+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QTimerEvent_new" new' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QTimerEvent)+foreign import ccall "genpop__QTimerEvent_timerId" timerId' ::  HoppyF.Ptr QTimerEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "gencast__QTimerEvent__QEvent" castQTimerEventToQEvent :: HoppyF.Ptr QTimerEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QTimerEvent" castQEventToQTimerEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QTimerEventConst+foreign import ccall "gendel__QTimerEvent" delete'QTimerEvent :: HoppyF.Ptr QTimerEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QTimerEvent" deletePtr'QTimerEvent :: HoppyF.FunPtr (HoppyF.Ptr QTimerEventConst -> HoppyP.IO ())++class QTimerEventValue a where+  withQTimerEventPtr :: a -> (QTimerEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QTimerEventConstPtr a => QTimerEventValue a where+  withQTimerEventPtr = HoppyP.flip ($) . toQTimerEventConst++class (M34.QEventConstPtr this) => QTimerEventConstPtr this where+  toQTimerEventConst :: this -> QTimerEventConst++timerId :: (QTimerEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+timerId arg'1 =+  withQTimerEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (timerId' arg'1')++class (QTimerEventConstPtr this, M34.QEventPtr this) => QTimerEventPtr this where+  toQTimerEvent :: this -> QTimerEvent++data QTimerEventConst =+    QTimerEventConst (HoppyF.Ptr QTimerEventConst)+  | QTimerEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTimerEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTimerEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTimerEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTimerEventToConst :: QTimerEvent -> QTimerEventConst+castQTimerEventToConst (QTimerEvent ptr') = QTimerEventConst $ HoppyF.castPtr ptr'+castQTimerEventToConst (QTimerEventGc fptr' ptr') = QTimerEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTimerEventConst where+  nullptr = QTimerEventConst HoppyF.nullPtr+  +  withCppPtr (QTimerEventConst ptr') f' = f' ptr'+  withCppPtr (QTimerEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTimerEventConst ptr') = ptr'+  toPtr (QTimerEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QTimerEventConst _) = HoppyP.return ()+  touchCppPtr (QTimerEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTimerEventConst where+  delete (QTimerEventConst ptr') = delete'QTimerEvent ptr'+  delete (QTimerEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTimerEventConst", " object."]+  +  toGc this'@(QTimerEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTimerEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTimerEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTimerEventConstGc {}) = HoppyP.return this'++instance QTimerEventConstPtr QTimerEventConst where+  toQTimerEventConst = HoppyP.id++instance M34.QEventConstPtr QTimerEventConst where+  toQEventConst (QTimerEventConst ptr') = M34.QEventConst $ castQTimerEventToQEvent ptr'+  toQEventConst (QTimerEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQTimerEventToQEvent ptr'++data QTimerEvent =+    QTimerEvent (HoppyF.Ptr QTimerEvent)+  | QTimerEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTimerEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTimerEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTimerEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTimerEventToNonconst :: QTimerEventConst -> QTimerEvent+castQTimerEventToNonconst (QTimerEventConst ptr') = QTimerEvent $ HoppyF.castPtr ptr'+castQTimerEventToNonconst (QTimerEventConstGc fptr' ptr') = QTimerEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTimerEvent where+  nullptr = QTimerEvent HoppyF.nullPtr+  +  withCppPtr (QTimerEvent ptr') f' = f' ptr'+  withCppPtr (QTimerEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTimerEvent ptr') = ptr'+  toPtr (QTimerEventGc _ ptr') = ptr'+  +  touchCppPtr (QTimerEvent _) = HoppyP.return ()+  touchCppPtr (QTimerEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTimerEvent where+  delete (QTimerEvent ptr') = delete'QTimerEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QTimerEventConst)+  delete (QTimerEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTimerEvent", " object."]+  +  toGc this'@(QTimerEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTimerEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTimerEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTimerEventGc {}) = HoppyP.return this'++instance QTimerEventConstPtr QTimerEvent where+  toQTimerEventConst (QTimerEvent ptr') = QTimerEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QTimerEvent -> HoppyF.Ptr QTimerEventConst) ptr'+  toQTimerEventConst (QTimerEventGc fptr' ptr') = QTimerEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QTimerEvent -> HoppyF.Ptr QTimerEventConst) ptr'++instance QTimerEventPtr QTimerEvent where+  toQTimerEvent = HoppyP.id++instance M34.QEventConstPtr QTimerEvent where+  toQEventConst (QTimerEvent ptr') = M34.QEventConst $ castQTimerEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QTimerEvent -> HoppyF.Ptr QTimerEventConst) ptr'+  toQEventConst (QTimerEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQTimerEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QTimerEvent -> HoppyF.Ptr QTimerEventConst) ptr'++instance M34.QEventPtr QTimerEvent where+  toQEvent (QTimerEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQTimerEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QTimerEvent -> HoppyF.Ptr QTimerEventConst) ptr'+  toQEvent (QTimerEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQTimerEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QTimerEvent -> HoppyF.Ptr QTimerEventConst) ptr'++new :: (HoppyP.Int) -> (HoppyP.IO QTimerEvent)+new arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QTimerEvent+  (new' arg'1')++class QTimerEventSuper a where+  downToQTimerEvent :: a -> QTimerEvent++instance QTimerEventSuper M34.QEvent where+  downToQTimerEvent = castQTimerEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QTimerEventConst $ castQEventToQTimerEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QTimerEventConstGc fptr' $ castQEventToQTimerEvent ptr'++class QTimerEventSuperConst a where+  downToQTimerEventConst :: a -> QTimerEventConst++instance QTimerEventSuperConst M34.QEventConst where+  downToQTimerEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QTimerEventConst $ castQEventToQTimerEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QTimerEventConstGc fptr' $ castQEventToQTimerEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QTimerEvent)) QTimerEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QTimerEvent)) QTimerEvent where+  decode = HoppyP.fmap QTimerEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QTranslator.hs view
@@ -0,0 +1,295 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QTranslator (+  castQTranslatorToQObject,+  castQObjectToQTranslator,+  QTranslatorValue (..),+  QTranslatorConstPtr (..),+  isEmpty,+  translate,+  translateWithDisambiguation,+  translateWithDisambiguationAndNum,+  QTranslatorPtr (..),+  loadWith,+  loadWithDir,+  loadWithDirAndDelimiters,+  loadWithDirAndDelimitersAndSuffix,+  loadFromPtrConstUchar,+  loadFromPtrConstUcharAndDir,+  QTranslatorConst (..),+  castQTranslatorToConst,+  QTranslator (..),+  castQTranslatorToNonconst,+  new,+  newWithParent,+  QTranslatorSuper (..),+  QTranslatorSuperConst (..),+  ) 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.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QTranslator_new" new' ::  HoppyP.IO (HoppyF.Ptr QTranslator)+foreign import ccall "genpop__QTranslator_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QTranslator)+foreign import ccall "genpop__QTranslator_isEmpty" isEmpty' ::  HoppyF.Ptr QTranslatorConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTranslator_loadWith" loadWith' ::  HoppyF.Ptr QTranslator -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTranslator_loadWithDir" loadWithDir' ::  HoppyF.Ptr QTranslator -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTranslator_loadWithDirAndDelimiters" loadWithDirAndDelimiters' ::  HoppyF.Ptr QTranslator -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTranslator_loadWithDirAndDelimitersAndSuffix" loadWithDirAndDelimitersAndSuffix' ::  HoppyF.Ptr QTranslator -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTranslator_loadFromPtrConstUchar" loadFromPtrConstUchar' ::  HoppyF.Ptr QTranslator -> HoppyF.Ptr HoppyFC.CUChar -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTranslator_loadFromPtrConstUcharAndDir" loadFromPtrConstUcharAndDir' ::  HoppyF.Ptr QTranslator -> HoppyF.Ptr HoppyFC.CUChar -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTranslator_translate" translate' ::  HoppyF.Ptr QTranslatorConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QTranslator_translateWithDisambiguation" translateWithDisambiguation' ::  HoppyF.Ptr QTranslatorConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QTranslator_translateWithDisambiguationAndNum" translateWithDisambiguationAndNum' ::  HoppyF.Ptr QTranslatorConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr HoppyFC.CChar -> HoppyF.Ptr HoppyFC.CChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "gencast__QTranslator__QObject" castQTranslatorToQObject :: HoppyF.Ptr QTranslatorConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QTranslator" castQObjectToQTranslator :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QTranslatorConst+foreign import ccall "gendel__QTranslator" delete'QTranslator :: HoppyF.Ptr QTranslatorConst -> HoppyP.IO ()+foreign import ccall "&gendel__QTranslator" deletePtr'QTranslator :: HoppyF.FunPtr (HoppyF.Ptr QTranslatorConst -> HoppyP.IO ())++class QTranslatorValue a where+  withQTranslatorPtr :: a -> (QTranslatorConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QTranslatorConstPtr a => QTranslatorValue a where+  withQTranslatorPtr = HoppyP.flip ($) . toQTranslatorConst++class (M94.QObjectConstPtr this) => QTranslatorConstPtr this where+  toQTranslatorConst :: this -> QTranslatorConst++isEmpty :: (QTranslatorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQTranslatorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++translate :: (QTranslatorValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QtahP.String)+translate arg'1 arg'2 arg'3 =+  withQTranslatorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (translate' arg'1' arg'2' arg'3')++translateWithDisambiguation :: (QTranslatorValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QtahP.String)+translateWithDisambiguation arg'1 arg'2 arg'3 arg'4 =+  withQTranslatorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  let arg'4' = arg'4 in+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (translateWithDisambiguation' arg'1' arg'2' arg'3' arg'4')++translateWithDisambiguationAndNum :: (QTranslatorValue this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+translateWithDisambiguationAndNum arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQTranslatorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  let arg'3' = arg'3 in+  let arg'4' = arg'4 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'5 >>= \arg'5' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (translateWithDisambiguationAndNum' arg'1' arg'2' arg'3' arg'4' arg'5')++class (QTranslatorConstPtr this, M94.QObjectPtr this) => QTranslatorPtr this where+  toQTranslator :: this -> QTranslator++loadWith :: (QTranslatorPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+loadWith arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQTranslator arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (loadWith' arg'1' arg'2')++loadWithDir :: (QTranslatorPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+loadWithDir arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQTranslator arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (loadWithDir' arg'1' arg'2' arg'3')++loadWithDirAndDelimiters :: (QTranslatorPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO HoppyP.Bool)+loadWithDirAndDelimiters arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQTranslator arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (loadWithDirAndDelimiters' arg'1' arg'2' arg'3' arg'4')++loadWithDirAndDelimitersAndSuffix :: (QTranslatorPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4, M142.QStringValue arg'5) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (HoppyP.IO HoppyP.Bool)+loadWithDirAndDelimitersAndSuffix arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQTranslator arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  M142.withQStringPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (loadWithDirAndDelimitersAndSuffix' arg'1' arg'2' arg'3' arg'4' arg'5')++loadFromPtrConstUchar :: (QTranslatorPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+loadFromPtrConstUchar arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQTranslator arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (loadFromPtrConstUchar' arg'1' arg'2' arg'3')++loadFromPtrConstUcharAndDir :: (QTranslatorPtr this, M142.QStringValue arg'4) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO HoppyP.Bool)+loadFromPtrConstUcharAndDir arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQTranslator arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (loadFromPtrConstUcharAndDir' arg'1' arg'2' arg'3' arg'4')++data QTranslatorConst =+    QTranslatorConst (HoppyF.Ptr QTranslatorConst)+  | QTranslatorConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTranslatorConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTranslatorConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTranslatorConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTranslatorToConst :: QTranslator -> QTranslatorConst+castQTranslatorToConst (QTranslator ptr') = QTranslatorConst $ HoppyF.castPtr ptr'+castQTranslatorToConst (QTranslatorGc fptr' ptr') = QTranslatorConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTranslatorConst where+  nullptr = QTranslatorConst HoppyF.nullPtr+  +  withCppPtr (QTranslatorConst ptr') f' = f' ptr'+  withCppPtr (QTranslatorConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTranslatorConst ptr') = ptr'+  toPtr (QTranslatorConstGc _ ptr') = ptr'+  +  touchCppPtr (QTranslatorConst _) = HoppyP.return ()+  touchCppPtr (QTranslatorConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTranslatorConst where+  delete (QTranslatorConst ptr') = delete'QTranslator ptr'+  delete (QTranslatorConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTranslatorConst", " object."]+  +  toGc this'@(QTranslatorConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTranslatorConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTranslator :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTranslatorConstGc {}) = HoppyP.return this'++instance QTranslatorConstPtr QTranslatorConst where+  toQTranslatorConst = HoppyP.id++instance M94.QObjectConstPtr QTranslatorConst where+  toQObjectConst (QTranslatorConst ptr') = M94.QObjectConst $ castQTranslatorToQObject ptr'+  toQObjectConst (QTranslatorConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQTranslatorToQObject ptr'++data QTranslator =+    QTranslator (HoppyF.Ptr QTranslator)+  | QTranslatorGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTranslator)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTranslator where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTranslator where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTranslatorToNonconst :: QTranslatorConst -> QTranslator+castQTranslatorToNonconst (QTranslatorConst ptr') = QTranslator $ HoppyF.castPtr ptr'+castQTranslatorToNonconst (QTranslatorConstGc fptr' ptr') = QTranslatorGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTranslator where+  nullptr = QTranslator HoppyF.nullPtr+  +  withCppPtr (QTranslator ptr') f' = f' ptr'+  withCppPtr (QTranslatorGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTranslator ptr') = ptr'+  toPtr (QTranslatorGc _ ptr') = ptr'+  +  touchCppPtr (QTranslator _) = HoppyP.return ()+  touchCppPtr (QTranslatorGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTranslator where+  delete (QTranslator ptr') = delete'QTranslator $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QTranslatorConst)+  delete (QTranslatorGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTranslator", " object."]+  +  toGc this'@(QTranslator ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTranslatorGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTranslator :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTranslatorGc {}) = HoppyP.return this'++instance QTranslatorConstPtr QTranslator where+  toQTranslatorConst (QTranslator ptr') = QTranslatorConst $ (HoppyF.castPtr :: HoppyF.Ptr QTranslator -> HoppyF.Ptr QTranslatorConst) ptr'+  toQTranslatorConst (QTranslatorGc fptr' ptr') = QTranslatorConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QTranslator -> HoppyF.Ptr QTranslatorConst) ptr'++instance QTranslatorPtr QTranslator where+  toQTranslator = HoppyP.id++instance M94.QObjectConstPtr QTranslator where+  toQObjectConst (QTranslator ptr') = M94.QObjectConst $ castQTranslatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QTranslator -> HoppyF.Ptr QTranslatorConst) ptr'+  toQObjectConst (QTranslatorGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQTranslatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QTranslator -> HoppyF.Ptr QTranslatorConst) ptr'++instance M94.QObjectPtr QTranslator where+  toQObject (QTranslator ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQTranslatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QTranslator -> HoppyF.Ptr QTranslatorConst) ptr'+  toQObject (QTranslatorGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQTranslatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QTranslator -> HoppyF.Ptr QTranslatorConst) ptr'++new :: (HoppyP.IO QTranslator)+new =+  HoppyP.fmap QTranslator+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QTranslator)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QTranslator+  (newWithParent' arg'1')++class QTranslatorSuper a where+  downToQTranslator :: a -> QTranslator++instance QTranslatorSuper M94.QObject where+  downToQTranslator = castQTranslatorToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QTranslatorConst $ castQObjectToQTranslator ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QTranslatorConstGc fptr' $ castQObjectToQTranslator ptr'++class QTranslatorSuperConst a where+  downToQTranslatorConst :: a -> QTranslatorConst++instance QTranslatorSuperConst M94.QObjectConst where+  downToQTranslatorConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QTranslatorConst $ castQObjectToQTranslator ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QTranslatorConstGc fptr' $ castQObjectToQTranslator ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QTranslator)) QTranslator where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QTranslator)) QTranslator where+  decode = HoppyP.fmap QTranslator . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QVariant.hs view
@@ -0,0 +1,963 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QVariant (+  QVariantValue (..),+  QVariantConstPtr (..),+  canConvert,+  isNull,+  isValid,+  toBool,+  toByteArray,+  toChar,+  toDouble,+  toFloat,+  toInt,+  toLongLong,+  toPoint,+  toPointF,+  toRect,+  toRectF,+  toSize,+  toSizeF,+  toList,+  toStringList,+  toString,+  toUInt,+  toULongLong,+  getType,+  userType,+  eQ,+  nE,+  lT,+  lE,+  gT,+  gE,+  QVariantPtr (..),+  clear,+  convert,+  setToBool,+  setToChar,+  setToDouble,+  setToFloat,+  setToInt,+  setToList,+  setToLongLong,+  setToPoint,+  setToPointF,+  setToRect,+  setToRectF,+  setToSize,+  setToSizeF,+  setToStringList,+  setToString,+  setToUInt,+  setToULongLong,+  swap,+  aSSIGN,+  QVariantConst (..),+  castQVariantToConst,+  QVariant (..),+  castQVariantToNonconst,+  new,+  newWithBool,+  newWithByteArray,+  newWithChar,+  newWithDouble,+  newWithFloat,+  newWithInt,+  newWithList,+  newWithLongLong,+  newWithPointF,+  newWithPoint,+  newWithRectF,+  newWithRect,+  newWithSizeF,+  newWithSize,+  newWithString,+  newWithStringList,+  newWithType,+  newWithUInt,+  newWithULongLong,+  newCopy,+  QVariantSuper (..),+  QVariantSuperConst (..),+  QVariantType (..),+  ) where++import Control.Monad ((>=>))+import qualified Data.ByteString as QtahDBS+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Core.HPoint as HPoint+import qualified Graphics.UI.Qtah.Core.HPointF as HPointF+import qualified Graphics.UI.Qtah.Core.HRect as HRect+import qualified Graphics.UI.Qtah.Core.HSize as HSize+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QChar as M16+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QList.QVariant as M208+import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114+import qualified Graphics.UI.Qtah.Generated.Core.QPointF as M116+import qualified Graphics.UI.Qtah.Generated.Core.QRect as M122+import qualified Graphics.UI.Qtah.Generated.Core.QRectF as M124+import qualified Graphics.UI.Qtah.Generated.Core.QSize as M134+import qualified Graphics.UI.Qtah.Generated.Core.QSizeF as M136+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QStringList as M144+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QVariant_new" new' ::  HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithBool" newWithBool' ::  HoppyFC.CBool -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithByteArray" newWithByteArray' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithChar" newWithChar' ::  HoppyF.Ptr M16.QCharConst -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithDouble" newWithDouble' ::  HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithFloat" newWithFloat' ::  HoppyFC.CFloat -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithInt" newWithInt' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithList" newWithList' ::  HoppyF.Ptr M208.QListQVariantConst -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithLongLong" newWithLongLong' ::  HoppyFC.CLLong -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithPointF" newWithPointF' ::  HoppyF.Ptr M116.QPointFConst -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithPoint" newWithPoint' ::  HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithRectF" newWithRectF' ::  HoppyF.Ptr M124.QRectFConst -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithRect" newWithRect' ::  HoppyF.Ptr M122.QRectConst -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithSizeF" newWithSizeF' ::  HoppyF.Ptr M136.QSizeFConst -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithSize" newWithSize' ::  HoppyF.Ptr M134.QSizeConst -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithString" newWithString' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithStringList" newWithStringList' ::  HoppyF.Ptr M144.QStringListConst -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithType" newWithType' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithUInt" newWithUInt' ::  HoppyFC.CUInt -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newWithULongLong" newWithULongLong' ::  HoppyFC.CULLong -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_newCopy" newCopy' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "genpop__QVariant_canConvert" canConvert' ::  HoppyF.Ptr QVariantConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVariant_clear" clear' ::  HoppyF.Ptr QVariant -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_convert" convert' ::  HoppyF.Ptr QVariant -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVariant_isNull" isNull' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVariant_isValid" isValid' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVariant_setToBool" setToBool' ::  HoppyF.Ptr QVariant -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToChar" setToChar' ::  HoppyF.Ptr QVariant -> HoppyF.Ptr M16.QCharConst -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToDouble" setToDouble' ::  HoppyF.Ptr QVariant -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToFloat" setToFloat' ::  HoppyF.Ptr QVariant -> HoppyFC.CFloat -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToInt" setToInt' ::  HoppyF.Ptr QVariant -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToList" setToList' ::  HoppyF.Ptr QVariant -> HoppyF.Ptr M208.QListQVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToLongLong" setToLongLong' ::  HoppyF.Ptr QVariant -> HoppyFC.CLLong -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToPoint" setToPoint' ::  HoppyF.Ptr QVariant -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToPointF" setToPointF' ::  HoppyF.Ptr QVariant -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToRect" setToRect' ::  HoppyF.Ptr QVariant -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToRectF" setToRectF' ::  HoppyF.Ptr QVariant -> HoppyF.Ptr M124.QRectFConst -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToSize" setToSize' ::  HoppyF.Ptr QVariant -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToSizeF" setToSizeF' ::  HoppyF.Ptr QVariant -> HoppyF.Ptr M136.QSizeFConst -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToStringList" setToStringList' ::  HoppyF.Ptr QVariant -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToString" setToString' ::  HoppyF.Ptr QVariant -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToUInt" setToUInt' ::  HoppyF.Ptr QVariant -> HoppyFC.CUInt -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_setToULongLong" setToULongLong' ::  HoppyF.Ptr QVariant -> HoppyFC.CULLong -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_swap" swap' ::  HoppyF.Ptr QVariant -> HoppyF.Ptr QVariant -> HoppyP.IO ()+foreign import ccall "genpop__QVariant_toBool" toBool' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVariant_toByteArray" toByteArray' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QVariant_toChar" toChar' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO (HoppyF.Ptr M16.QCharConst)+foreign import ccall "genpop__QVariant_toDouble" toDouble' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QVariant_toFloat" toFloat' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CFloat+foreign import ccall "genpop__QVariant_toInt" toInt' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVariant_toLongLong" toLongLong' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CLLong+foreign import ccall "genpop__QVariant_toPoint" toPoint' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QVariant_toPointF" toPointF' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QVariant_toRect" toRect' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QVariant_toRectF" toRectF' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO (HoppyF.Ptr M124.QRectFConst)+foreign import ccall "genpop__QVariant_toSize" toSize' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QVariant_toSizeF" toSizeF' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO (HoppyF.Ptr M136.QSizeFConst)+foreign import ccall "genpop__QVariant_toList" toList' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO (HoppyF.Ptr M208.QListQVariantConst)+foreign import ccall "genpop__QVariant_toStringList" toStringList' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QVariant_toString" toString' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QVariant_toUInt" toUInt' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QVariant_toULongLong" toULongLong' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CULLong+foreign import ccall "genpop__QVariant_getType" getType' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVariant_userType" userType' ::  HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVariant_EQ" eQ' ::  HoppyF.Ptr QVariantConst -> HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVariant_NE" nE' ::  HoppyF.Ptr QVariantConst -> HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVariant_LT" lT' ::  HoppyF.Ptr QVariantConst -> HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVariant_LE" lE' ::  HoppyF.Ptr QVariantConst -> HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVariant_GT" gT' ::  HoppyF.Ptr QVariantConst -> HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVariant_GE" gE' ::  HoppyF.Ptr QVariantConst -> HoppyF.Ptr QVariantConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVariant_ASSIGN" aSSIGN' ::  HoppyF.Ptr QVariant -> HoppyF.Ptr QVariantConst -> HoppyP.IO (HoppyF.Ptr QVariant)+foreign import ccall "gendel__QVariant" delete'QVariant :: HoppyF.Ptr QVariantConst -> HoppyP.IO ()+foreign import ccall "&gendel__QVariant" deletePtr'QVariant :: HoppyF.FunPtr (HoppyF.Ptr QVariantConst -> HoppyP.IO ())++class QVariantValue a where+  withQVariantPtr :: a -> (QVariantConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QVariantConstPtr a => QVariantValue a where+  withQVariantPtr = HoppyP.flip ($) . toQVariantConst++class (HoppyFHR.CppPtr this) => QVariantConstPtr this where+  toQVariantConst :: this -> QVariantConst++canConvert :: (QVariantValue this) => (this) {- ^ this -} -> (QVariantType) -> (HoppyP.IO HoppyP.Bool)+canConvert arg'1 arg'2 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (canConvert' arg'1' arg'2')++isNull :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++isValid :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++toBool :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+toBool arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (toBool' arg'1')++toByteArray :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+toByteArray arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (toByteArray' arg'1')++toChar :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.Char)+toChar arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M16.QCharConst) =<<+  (toChar' arg'1')++toDouble :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+toDouble arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (toDouble' arg'1')++toFloat :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Float)+toFloat arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (toFloat' arg'1')++toInt :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+toInt arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (toInt' arg'1')++toLongLong :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CLLong)+toLongLong arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (toLongLong' arg'1')++toPoint :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+toPoint arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (toPoint' arg'1')++toPointF :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+toPointF arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (toPointF' arg'1')++toRect :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HRect.HRect)+toRect arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<+  (toRect' arg'1')++toRectF :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO M124.QRectF)+toRectF arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M124.QRectFConst) =<<+  (toRectF' arg'1')++toSize :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+toSize arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (toSize' arg'1')++toSizeF :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO M136.QSizeF)+toSizeF arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M136.QSizeFConst) =<<+  (toSizeF' arg'1')++toList :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO [QVariant])+toList arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M208.QListQVariantConst) =<<+  (toList' arg'1')++toStringList :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+toStringList arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (toStringList' arg'1')++toString :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+toString arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toString' arg'1')++toUInt :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CUInt)+toUInt arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (toUInt' arg'1')++toULongLong :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CULLong)+toULongLong arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (toULongLong' arg'1')++getType :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO QVariantType)+getType arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (getType' arg'1')++userType :: (QVariantValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+userType arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (userType' arg'1')++eQ :: (QVariantValue this, QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QVariantValue this, QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++lT :: (QVariantValue this, QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lT arg'1 arg'2 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lT' arg'1' arg'2')++lE :: (QVariantValue this, QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lE arg'1 arg'2 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lE' arg'1' arg'2')++gT :: (QVariantValue this, QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gT arg'1 arg'2 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gT' arg'1' arg'2')++gE :: (QVariantValue this, QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gE arg'1 arg'2 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gE' arg'1' arg'2')++class (QVariantConstPtr this) => QVariantPtr this where+  toQVariant :: this -> QVariant++clear :: (QVariantPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  (clear' arg'1')++convert :: (QVariantPtr this) => (this) {- ^ this -} -> (QVariantType) -> (HoppyP.IO HoppyP.Bool)+convert arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (convert' arg'1' arg'2')++setToBool :: (QVariantPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setToBool arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setToBool' arg'1' arg'2')++setToChar :: (QVariantPtr this, M16.QCharValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setToChar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  M16.withQCharPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setToChar' arg'1' arg'2')++setToDouble :: (QVariantPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setToDouble arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setToDouble' arg'1' arg'2')++setToFloat :: (QVariantPtr this) => (this) {- ^ this -} -> (HoppyP.Float) -> (HoppyP.IO ())+setToFloat arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setToFloat' arg'1' arg'2')++setToInt :: (QVariantPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setToInt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setToInt' arg'1' arg'2')++setToList :: (QVariantPtr this, M208.QListQVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setToList arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  M208.withQListQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setToList' arg'1' arg'2')++setToLongLong :: (QVariantPtr this) => (this) {- ^ this -} -> (HoppyFC.CLLong) -> (HoppyP.IO ())+setToLongLong arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (setToLongLong' arg'1' arg'2')++setToPoint :: (QVariantPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setToPoint arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setToPoint' arg'1' arg'2')++setToPointF :: (QVariantPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setToPointF arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setToPointF' arg'1' arg'2')++setToRect :: (QVariantPtr this, M122.QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setToRect arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  M122.withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setToRect' arg'1' arg'2')++setToRectF :: (QVariantPtr this, M124.QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setToRectF arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  M124.withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setToRectF' arg'1' arg'2')++setToSize :: (QVariantPtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setToSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setToSize' arg'1' arg'2')++setToSizeF :: (QVariantPtr this, M136.QSizeFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setToSizeF arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  M136.withQSizeFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setToSizeF' arg'1' arg'2')++setToStringList :: (QVariantPtr this, M144.QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setToStringList arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setToStringList' arg'1' arg'2')++setToString :: (QVariantPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setToString arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setToString' arg'1' arg'2')++setToUInt :: (QVariantPtr this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO ())+setToUInt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (setToUInt' arg'1' arg'2')++setToULongLong :: (QVariantPtr this) => (this) {- ^ this -} -> (HoppyFC.CULLong) -> (HoppyP.IO ())+setToULongLong arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (setToULongLong' arg'1' arg'2')++swap :: (QVariantPtr this, QVariantPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQVariant arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++aSSIGN :: (QVariantPtr this, QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVariant)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariant arg'1) $ \arg'1' ->+  withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVariant+  (aSSIGN' arg'1' arg'2')++data QVariantConst =+    QVariantConst (HoppyF.Ptr QVariantConst)+  | QVariantConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVariantConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVariantConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVariantConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVariantToConst :: QVariant -> QVariantConst+castQVariantToConst (QVariant ptr') = QVariantConst $ HoppyF.castPtr ptr'+castQVariantToConst (QVariantGc fptr' ptr') = QVariantConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVariantConst where+  nullptr = QVariantConst HoppyF.nullPtr+  +  withCppPtr (QVariantConst ptr') f' = f' ptr'+  withCppPtr (QVariantConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVariantConst ptr') = ptr'+  toPtr (QVariantConstGc _ ptr') = ptr'+  +  touchCppPtr (QVariantConst _) = HoppyP.return ()+  touchCppPtr (QVariantConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVariantConst where+  delete (QVariantConst ptr') = delete'QVariant ptr'+  delete (QVariantConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVariantConst", " object."]+  +  toGc this'@(QVariantConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVariantConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVariant :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVariantConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVariantConst QVariant where copy = newCopy++instance QVariantConstPtr QVariantConst where+  toQVariantConst = HoppyP.id++data QVariant =+    QVariant (HoppyF.Ptr QVariant)+  | QVariantGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVariant)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVariant where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVariant where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVariantToNonconst :: QVariantConst -> QVariant+castQVariantToNonconst (QVariantConst ptr') = QVariant $ HoppyF.castPtr ptr'+castQVariantToNonconst (QVariantConstGc fptr' ptr') = QVariantGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVariant where+  nullptr = QVariant HoppyF.nullPtr+  +  withCppPtr (QVariant ptr') f' = f' ptr'+  withCppPtr (QVariantGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVariant ptr') = ptr'+  toPtr (QVariantGc _ ptr') = ptr'+  +  touchCppPtr (QVariant _) = HoppyP.return ()+  touchCppPtr (QVariantGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVariant where+  delete (QVariant ptr') = delete'QVariant $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QVariantConst)+  delete (QVariantGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVariant", " object."]+  +  toGc this'@(QVariant ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVariantGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVariant :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVariantGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVariant QVariant where copy = newCopy++instance QVariantConstPtr QVariant where+  toQVariantConst (QVariant ptr') = QVariantConst $ (HoppyF.castPtr :: HoppyF.Ptr QVariant -> HoppyF.Ptr QVariantConst) ptr'+  toQVariantConst (QVariantGc fptr' ptr') = QVariantConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QVariant -> HoppyF.Ptr QVariantConst) ptr'++instance QVariantPtr QVariant where+  toQVariant = HoppyP.id++new :: (HoppyP.IO QVariant)+new =+  HoppyP.fmap QVariant+  (new')++newWithBool :: (HoppyP.Bool) -> (HoppyP.IO QVariant)+newWithBool arg'1 =+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVariant+  (newWithBool' arg'1')++newWithByteArray :: (M12.QByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO QVariant)+newWithByteArray arg'1 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVariant+  (newWithByteArray' arg'1')++newWithChar :: (M16.QCharValue arg'1) => (arg'1) -> (HoppyP.IO QVariant)+newWithChar arg'1 =+  M16.withQCharPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVariant+  (newWithChar' arg'1')++newWithDouble :: (HoppyP.Double) -> (HoppyP.IO QVariant)+newWithDouble arg'1 =+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVariant+  (newWithDouble' arg'1')++newWithFloat :: (HoppyP.Float) -> (HoppyP.IO QVariant)+newWithFloat arg'1 =+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVariant+  (newWithFloat' arg'1')++newWithInt :: (HoppyP.Int) -> (HoppyP.IO QVariant)+newWithInt arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVariant+  (newWithInt' arg'1')++newWithList :: (M208.QListQVariantValue arg'1) => (arg'1) -> (HoppyP.IO QVariant)+newWithList arg'1 =+  M208.withQListQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVariant+  (newWithList' arg'1')++newWithLongLong :: (HoppyFC.CLLong) -> (HoppyP.IO QVariant)+newWithLongLong arg'1 =+  let arg'1' = arg'1 in+  HoppyP.fmap QVariant+  (newWithLongLong' arg'1')++newWithPointF :: (M116.QPointFValue arg'1) => (arg'1) -> (HoppyP.IO QVariant)+newWithPointF arg'1 =+  M116.withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVariant+  (newWithPointF' arg'1')++newWithPoint :: (M114.QPointValue arg'1) => (arg'1) -> (HoppyP.IO QVariant)+newWithPoint arg'1 =+  M114.withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVariant+  (newWithPoint' arg'1')++newWithRectF :: (M124.QRectFValue arg'1) => (arg'1) -> (HoppyP.IO QVariant)+newWithRectF arg'1 =+  M124.withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVariant+  (newWithRectF' arg'1')++newWithRect :: (M122.QRectValue arg'1) => (arg'1) -> (HoppyP.IO QVariant)+newWithRect arg'1 =+  M122.withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVariant+  (newWithRect' arg'1')++newWithSizeF :: (M136.QSizeFValue arg'1) => (arg'1) -> (HoppyP.IO QVariant)+newWithSizeF arg'1 =+  M136.withQSizeFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVariant+  (newWithSizeF' arg'1')++newWithSize :: (M134.QSizeValue arg'1) => (arg'1) -> (HoppyP.IO QVariant)+newWithSize arg'1 =+  M134.withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVariant+  (newWithSize' arg'1')++newWithString :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QVariant)+newWithString arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVariant+  (newWithString' arg'1')++newWithStringList :: (M144.QStringListValue arg'1) => (arg'1) -> (HoppyP.IO QVariant)+newWithStringList arg'1 =+  M144.withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVariant+  (newWithStringList' arg'1')++newWithType :: (QVariantType) -> (HoppyP.IO QVariant)+newWithType arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVariant+  (newWithType' arg'1')++newWithUInt :: (HoppyFC.CUInt) -> (HoppyP.IO QVariant)+newWithUInt arg'1 =+  let arg'1' = arg'1 in+  HoppyP.fmap QVariant+  (newWithUInt' arg'1')++newWithULongLong :: (HoppyFC.CULLong) -> (HoppyP.IO QVariant)+newWithULongLong arg'1 =+  let arg'1' = arg'1 in+  HoppyP.fmap QVariant+  (newWithULongLong' arg'1')++newCopy :: (QVariantValue arg'1) => (arg'1) -> (HoppyP.IO QVariant)+newCopy arg'1 =+  withQVariantPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVariant+  (newCopy' arg'1')++class QVariantSuper a where+  downToQVariant :: a -> QVariant+++class QVariantSuperConst a where+  downToQVariantConst :: a -> QVariantConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QVariant)) QVariant where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QVariantValue a => HoppyFHR.Assignable QVariant a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QVariant)) QVariant where+  decode = HoppyP.fmap QVariant . HoppyF.peek++instance HoppyFHR.Decodable QVariant (QVariant) where+  decode = HoppyFHR.decode . toQVariantConst++instance HoppyFHR.Decodable QVariantConst (QVariant) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc++data QVariantType =+  Invalid+  | BitArray+  | Bitmap+  | Bool+  | Brush+  | ByteArray+  | Char+  | Color+  | Cursor+  | Date+  | DateTime+  | Double+  | EasingCurve+  | Font+  | Hash+  | Icon+  | Image+  | Int+  | KeySequence+  | Line+  | LineF+  | List+  | Locale+  | LongLong+  | Map+  | Matrix+  | Transform+  | Matrix4X4+  | Palette+  | Pen+  | Pixmap+  | Point+  | PointF+  | Polygon+  | Quaternion+  | Rect+  | RectF+  | RegExp+  | Region+  | Size+  | SizeF+  | SizePolicy+  | String+  | StringList+  | TextFormat+  | TextLength+  | Time+  | UInt+  | ULongLong+  | Url+  | Vector2D+  | Vector3D+  | Vector4D+  | UserType+  | UnknownQVariantType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QVariantType where+  fromCppEnum Invalid = 0+  fromCppEnum BitArray = 13+  fromCppEnum Bitmap = 73+  fromCppEnum Bool = 1+  fromCppEnum Brush = 66+  fromCppEnum ByteArray = 12+  fromCppEnum Char = 7+  fromCppEnum Color = 67+  fromCppEnum Cursor = 74+  fromCppEnum Date = 14+  fromCppEnum DateTime = 16+  fromCppEnum Double = 6+  fromCppEnum EasingCurve = 29+  fromCppEnum Font = 64+  fromCppEnum Hash = 28+  fromCppEnum Icon = 69+  fromCppEnum Image = 70+  fromCppEnum Int = 2+  fromCppEnum KeySequence = 75+  fromCppEnum Line = 23+  fromCppEnum LineF = 24+  fromCppEnum List = 9+  fromCppEnum Locale = 18+  fromCppEnum LongLong = 4+  fromCppEnum Map = 8+  fromCppEnum Matrix = 79+  fromCppEnum Transform = 80+  fromCppEnum Matrix4X4 = 81+  fromCppEnum Palette = 68+  fromCppEnum Pen = 76+  fromCppEnum Pixmap = 65+  fromCppEnum Point = 25+  fromCppEnum PointF = 26+  fromCppEnum Polygon = 71+  fromCppEnum Quaternion = 85+  fromCppEnum Rect = 19+  fromCppEnum RectF = 20+  fromCppEnum RegExp = 27+  fromCppEnum Region = 72+  fromCppEnum Size = 21+  fromCppEnum SizeF = 22+  fromCppEnum SizePolicy = 121+  fromCppEnum String = 10+  fromCppEnum StringList = 11+  fromCppEnum TextFormat = 78+  fromCppEnum TextLength = 77+  fromCppEnum Time = 15+  fromCppEnum UInt = 3+  fromCppEnum ULongLong = 5+  fromCppEnum Url = 17+  fromCppEnum Vector2D = 82+  fromCppEnum Vector3D = 83+  fromCppEnum Vector4D = 84+  fromCppEnum UserType = 1024+  fromCppEnum (UnknownQVariantType n) = n+  +  toCppEnum (0) = Invalid+  toCppEnum (1) = Bool+  toCppEnum (2) = Int+  toCppEnum (3) = UInt+  toCppEnum (4) = LongLong+  toCppEnum (5) = ULongLong+  toCppEnum (6) = Double+  toCppEnum (7) = Char+  toCppEnum (8) = Map+  toCppEnum (9) = List+  toCppEnum (10) = String+  toCppEnum (11) = StringList+  toCppEnum (12) = ByteArray+  toCppEnum (13) = BitArray+  toCppEnum (14) = Date+  toCppEnum (15) = Time+  toCppEnum (16) = DateTime+  toCppEnum (17) = Url+  toCppEnum (18) = Locale+  toCppEnum (19) = Rect+  toCppEnum (20) = RectF+  toCppEnum (21) = Size+  toCppEnum (22) = SizeF+  toCppEnum (23) = Line+  toCppEnum (24) = LineF+  toCppEnum (25) = Point+  toCppEnum (26) = PointF+  toCppEnum (27) = RegExp+  toCppEnum (28) = Hash+  toCppEnum (29) = EasingCurve+  toCppEnum (64) = Font+  toCppEnum (65) = Pixmap+  toCppEnum (66) = Brush+  toCppEnum (67) = Color+  toCppEnum (68) = Palette+  toCppEnum (69) = Icon+  toCppEnum (70) = Image+  toCppEnum (71) = Polygon+  toCppEnum (72) = Region+  toCppEnum (73) = Bitmap+  toCppEnum (74) = Cursor+  toCppEnum (75) = KeySequence+  toCppEnum (76) = Pen+  toCppEnum (77) = TextLength+  toCppEnum (78) = TextFormat+  toCppEnum (79) = Matrix+  toCppEnum (80) = Transform+  toCppEnum (81) = Matrix4X4+  toCppEnum (82) = Vector2D+  toCppEnum (83) = Vector3D+  toCppEnum (84) = Vector4D+  toCppEnum (85) = Quaternion+  toCppEnum (121) = SizePolicy+  toCppEnum (1024) = UserType+  toCppEnum n = UnknownQVariantType n++instance HoppyP.Eq QVariantType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QVariantType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Core/QVariant.hs-boot view
@@ -0,0 +1,67 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QVariant (+  QVariantValue (..),+  QVariantConstPtr (..),+  QVariantPtr (..),+  QVariantConst (..),+  castQVariantToConst,+  QVariant (..),+  castQVariantToNonconst,+  QVariantType,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Prelude as HoppyP+++class QVariantValue a where+  withQVariantPtr :: a -> (QVariantConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QVariantConstPtr a => QVariantValue a++class (HoppyFHR.CppPtr this) => QVariantConstPtr this where+  toQVariantConst :: this -> QVariantConst++class (QVariantConstPtr this) => QVariantPtr this where+  toQVariant :: this -> QVariant++data QVariantConst =+    QVariantConst (HoppyF.Ptr QVariantConst)+  | QVariantConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVariantConst)++castQVariantToConst :: QVariant -> QVariantConst++instance HoppyFHR.CppPtr QVariantConst+instance HoppyFHR.Deletable QVariantConst+instance HoppyFHR.Copyable QVariantConst QVariant++instance QVariantConstPtr QVariantConst++data QVariant =+    QVariant (HoppyF.Ptr QVariant)+  | QVariantGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVariant)++castQVariantToNonconst :: QVariantConst -> QVariant++instance HoppyFHR.CppPtr QVariant+instance HoppyFHR.Deletable QVariant+instance HoppyFHR.Copyable QVariant QVariant++instance QVariantConstPtr QVariant++instance QVariantPtr QVariant++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QVariant)) QVariant++instance HoppyFHR.Decodable QVariant ((QVariant))+instance HoppyFHR.Decodable QVariantConst ((QVariant))++data QVariantType+instance HoppyFHR.CppEnum (HoppyFC.CInt) QVariantType+instance HoppyP.Eq QVariantType+instance HoppyP.Ord QVariantType+instance HoppyP.Show QVariantType
src/Graphics/UI/Qtah/Generated/Core/QVariantAnimation.hs view
@@ -0,0 +1,244 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QVariantAnimation (+  castQVariantAnimationToQAbstractAnimation,+  castQAbstractAnimationToQVariantAnimation,+  castQVariantAnimationToQObject,+  castQObjectToQVariantAnimation,+  QVariantAnimationValue (..),+  QVariantAnimationConstPtr (..),+  endValue,+  startValue,+  keyValueAt,+  QVariantAnimationPtr (..),+  setEndValue,+  setStartValue,+  setKeyValueAt,+  emitValueChanged,+  QVariantAnimationConst (..),+  castQVariantAnimationToConst,+  QVariantAnimation (..),+  castQVariantAnimationToNonconst,+  QVariantAnimationSuper (..),+  QVariantAnimationSuperConst (..),+  ) 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.Core.QAbstractAnimation as M2+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QVariantAnimation_endValue" endValue' ::  HoppyF.Ptr QVariantAnimationConst -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QVariantAnimation_setEndValue" setEndValue' ::  HoppyF.Ptr QVariantAnimation -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QVariantAnimation_startValue" startValue' ::  HoppyF.Ptr QVariantAnimationConst -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QVariantAnimation_setStartValue" setStartValue' ::  HoppyF.Ptr QVariantAnimation -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QVariantAnimation_keyValueAt" keyValueAt' ::  HoppyF.Ptr QVariantAnimationConst -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QVariantAnimation_setKeyValueAt" setKeyValueAt' ::  HoppyF.Ptr QVariantAnimation -> HoppyFC.CDouble -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QVariantAnimation_emitValueChanged" emitValueChanged' ::  HoppyF.Ptr QVariantAnimation -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()+foreign import ccall "gencast__QVariantAnimation__QAbstractAnimation" castQVariantAnimationToQAbstractAnimation :: HoppyF.Ptr QVariantAnimationConst -> HoppyF.Ptr M2.QAbstractAnimationConst+foreign import ccall "gencast__QAbstractAnimation__QVariantAnimation" castQAbstractAnimationToQVariantAnimation :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr QVariantAnimationConst+foreign import ccall "gencast__QVariantAnimation__QObject" castQVariantAnimationToQObject :: HoppyF.Ptr QVariantAnimationConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QVariantAnimation" castQObjectToQVariantAnimation :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QVariantAnimationConst+foreign import ccall "gendel__QVariantAnimation" delete'QVariantAnimation :: HoppyF.Ptr QVariantAnimationConst -> HoppyP.IO ()+foreign import ccall "&gendel__QVariantAnimation" deletePtr'QVariantAnimation :: HoppyF.FunPtr (HoppyF.Ptr QVariantAnimationConst -> HoppyP.IO ())++class QVariantAnimationValue a where+  withQVariantAnimationPtr :: a -> (QVariantAnimationConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QVariantAnimationConstPtr a => QVariantAnimationValue a where+  withQVariantAnimationPtr = HoppyP.flip ($) . toQVariantAnimationConst++class (M2.QAbstractAnimationConstPtr this) => QVariantAnimationConstPtr this where+  toQVariantAnimationConst :: this -> QVariantAnimationConst++endValue :: (QVariantAnimationValue this) => (this) {- ^ this -} -> (HoppyP.IO M168.QVariant)+endValue arg'1 =+  withQVariantAnimationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (endValue' arg'1')++startValue :: (QVariantAnimationValue this) => (this) {- ^ this -} -> (HoppyP.IO M168.QVariant)+startValue arg'1 =+  withQVariantAnimationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (startValue' arg'1')++keyValueAt :: (QVariantAnimationValue this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO M168.QVariant)+keyValueAt arg'1 arg'2 =+  withQVariantAnimationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (keyValueAt' arg'1' arg'2')++class (QVariantAnimationConstPtr this, M2.QAbstractAnimationPtr this) => QVariantAnimationPtr this where+  toQVariantAnimation :: this -> QVariantAnimation++setEndValue :: (QVariantAnimationPtr this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setEndValue arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariantAnimation arg'1) $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setEndValue' arg'1' arg'2')++setStartValue :: (QVariantAnimationPtr this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setStartValue arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariantAnimation arg'1) $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setStartValue' arg'1' arg'2')++setKeyValueAt :: (QVariantAnimationPtr this, M168.QVariantValue arg'3) => (this) {- ^ this -} -> (HoppyP.Double) -> (arg'3) -> (HoppyP.IO ())+setKeyValueAt arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVariantAnimation arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  M168.withQVariantPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (setKeyValueAt' arg'1' arg'2' arg'3')++emitValueChanged :: (QVariantAnimationPtr this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitValueChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVariantAnimation arg'1) $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitValueChanged' arg'1' arg'2')++data QVariantAnimationConst =+    QVariantAnimationConst (HoppyF.Ptr QVariantAnimationConst)+  | QVariantAnimationConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVariantAnimationConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVariantAnimationConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVariantAnimationConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVariantAnimationToConst :: QVariantAnimation -> QVariantAnimationConst+castQVariantAnimationToConst (QVariantAnimation ptr') = QVariantAnimationConst $ HoppyF.castPtr ptr'+castQVariantAnimationToConst (QVariantAnimationGc fptr' ptr') = QVariantAnimationConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVariantAnimationConst where+  nullptr = QVariantAnimationConst HoppyF.nullPtr+  +  withCppPtr (QVariantAnimationConst ptr') f' = f' ptr'+  withCppPtr (QVariantAnimationConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVariantAnimationConst ptr') = ptr'+  toPtr (QVariantAnimationConstGc _ ptr') = ptr'+  +  touchCppPtr (QVariantAnimationConst _) = HoppyP.return ()+  touchCppPtr (QVariantAnimationConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVariantAnimationConst where+  delete (QVariantAnimationConst ptr') = delete'QVariantAnimation ptr'+  delete (QVariantAnimationConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVariantAnimationConst", " object."]+  +  toGc this'@(QVariantAnimationConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVariantAnimationConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVariantAnimation :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVariantAnimationConstGc {}) = HoppyP.return this'++instance QVariantAnimationConstPtr QVariantAnimationConst where+  toQVariantAnimationConst = HoppyP.id++instance M2.QAbstractAnimationConstPtr QVariantAnimationConst where+  toQAbstractAnimationConst (QVariantAnimationConst ptr') = M2.QAbstractAnimationConst $ castQVariantAnimationToQAbstractAnimation ptr'+  toQAbstractAnimationConst (QVariantAnimationConstGc fptr' ptr') = M2.QAbstractAnimationConstGc fptr' $ castQVariantAnimationToQAbstractAnimation ptr'++instance M94.QObjectConstPtr QVariantAnimationConst where+  toQObjectConst (QVariantAnimationConst ptr') = M94.QObjectConst $ castQVariantAnimationToQObject ptr'+  toQObjectConst (QVariantAnimationConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQVariantAnimationToQObject ptr'++data QVariantAnimation =+    QVariantAnimation (HoppyF.Ptr QVariantAnimation)+  | QVariantAnimationGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVariantAnimation)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVariantAnimation where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVariantAnimation where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVariantAnimationToNonconst :: QVariantAnimationConst -> QVariantAnimation+castQVariantAnimationToNonconst (QVariantAnimationConst ptr') = QVariantAnimation $ HoppyF.castPtr ptr'+castQVariantAnimationToNonconst (QVariantAnimationConstGc fptr' ptr') = QVariantAnimationGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVariantAnimation where+  nullptr = QVariantAnimation HoppyF.nullPtr+  +  withCppPtr (QVariantAnimation ptr') f' = f' ptr'+  withCppPtr (QVariantAnimationGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVariantAnimation ptr') = ptr'+  toPtr (QVariantAnimationGc _ ptr') = ptr'+  +  touchCppPtr (QVariantAnimation _) = HoppyP.return ()+  touchCppPtr (QVariantAnimationGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVariantAnimation where+  delete (QVariantAnimation ptr') = delete'QVariantAnimation $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QVariantAnimationConst)+  delete (QVariantAnimationGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVariantAnimation", " object."]+  +  toGc this'@(QVariantAnimation ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVariantAnimationGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVariantAnimation :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVariantAnimationGc {}) = HoppyP.return this'++instance QVariantAnimationConstPtr QVariantAnimation where+  toQVariantAnimationConst (QVariantAnimation ptr') = QVariantAnimationConst $ (HoppyF.castPtr :: HoppyF.Ptr QVariantAnimation -> HoppyF.Ptr QVariantAnimationConst) ptr'+  toQVariantAnimationConst (QVariantAnimationGc fptr' ptr') = QVariantAnimationConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QVariantAnimation -> HoppyF.Ptr QVariantAnimationConst) ptr'++instance QVariantAnimationPtr QVariantAnimation where+  toQVariantAnimation = HoppyP.id++instance M2.QAbstractAnimationConstPtr QVariantAnimation where+  toQAbstractAnimationConst (QVariantAnimation ptr') = M2.QAbstractAnimationConst $ castQVariantAnimationToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QVariantAnimation -> HoppyF.Ptr QVariantAnimationConst) ptr'+  toQAbstractAnimationConst (QVariantAnimationGc fptr' ptr') = M2.QAbstractAnimationConstGc fptr' $ castQVariantAnimationToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QVariantAnimation -> HoppyF.Ptr QVariantAnimationConst) ptr'++instance M2.QAbstractAnimationPtr QVariantAnimation where+  toQAbstractAnimation (QVariantAnimation ptr') = M2.QAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr M2.QAbstractAnimation) $ castQVariantAnimationToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QVariantAnimation -> HoppyF.Ptr QVariantAnimationConst) ptr'+  toQAbstractAnimation (QVariantAnimationGc fptr' ptr') = M2.QAbstractAnimationGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M2.QAbstractAnimationConst -> HoppyF.Ptr M2.QAbstractAnimation) $ castQVariantAnimationToQAbstractAnimation $ (HoppyF.castPtr :: HoppyF.Ptr QVariantAnimation -> HoppyF.Ptr QVariantAnimationConst) ptr'++instance M94.QObjectConstPtr QVariantAnimation where+  toQObjectConst (QVariantAnimation ptr') = M94.QObjectConst $ castQVariantAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QVariantAnimation -> HoppyF.Ptr QVariantAnimationConst) ptr'+  toQObjectConst (QVariantAnimationGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQVariantAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QVariantAnimation -> HoppyF.Ptr QVariantAnimationConst) ptr'++instance M94.QObjectPtr QVariantAnimation where+  toQObject (QVariantAnimation ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQVariantAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QVariantAnimation -> HoppyF.Ptr QVariantAnimationConst) ptr'+  toQObject (QVariantAnimationGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQVariantAnimationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QVariantAnimation -> HoppyF.Ptr QVariantAnimationConst) ptr'++class QVariantAnimationSuper a where+  downToQVariantAnimation :: a -> QVariantAnimation++instance QVariantAnimationSuper M2.QAbstractAnimation where+  downToQVariantAnimation = castQVariantAnimationToNonconst . cast' . M2.castQAbstractAnimationToConst+    where+      cast' (M2.QAbstractAnimationConst ptr') = QVariantAnimationConst $ castQAbstractAnimationToQVariantAnimation ptr'+      cast' (M2.QAbstractAnimationConstGc fptr' ptr') = QVariantAnimationConstGc fptr' $ castQAbstractAnimationToQVariantAnimation ptr'+instance QVariantAnimationSuper M94.QObject where+  downToQVariantAnimation = castQVariantAnimationToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QVariantAnimationConst $ castQObjectToQVariantAnimation ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QVariantAnimationConstGc fptr' $ castQObjectToQVariantAnimation ptr'++class QVariantAnimationSuperConst a where+  downToQVariantAnimationConst :: a -> QVariantAnimationConst++instance QVariantAnimationSuperConst M2.QAbstractAnimationConst where+  downToQVariantAnimationConst = cast'+    where+      cast' (M2.QAbstractAnimationConst ptr') = QVariantAnimationConst $ castQAbstractAnimationToQVariantAnimation ptr'+      cast' (M2.QAbstractAnimationConstGc fptr' ptr') = QVariantAnimationConstGc fptr' $ castQAbstractAnimationToQVariantAnimation ptr'+instance QVariantAnimationSuperConst M94.QObjectConst where+  downToQVariantAnimationConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QVariantAnimationConst $ castQObjectToQVariantAnimation ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QVariantAnimationConstGc fptr' $ castQObjectToQVariantAnimation ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QVariantAnimation)) QVariantAnimation where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QVariantAnimation)) QVariantAnimation where+  decode = HoppyP.fmap QVariantAnimation . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QVector/Int.hs view
@@ -0,0 +1,713 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QVector.Int (+  QVectorIntValue (..),+  QVectorIntConstPtr (..),+  atConst,+  capacity,+  contains,+  count,+  arrayConst,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QVectorIntPtr (..),+  append,+  appendVector,+  at,+  clear,+  array,+  fill,+  fillResize,+  first,+  insert,+  insertMany,+  last,+  prepend,+  remove,+  removeMany,+  removeAll,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  resize,+  squeeze,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QVectorIntConst (..),+  castQVectorIntToConst,+  QVectorInt (..),+  castQVectorIntToNonconst,+  new,+  newWithSize,+  newWithSizeAndValue,+  newCopy,+  QVectorIntSuper (..),+  QVectorIntSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QVectorInt_new" new' ::  HoppyP.IO (HoppyF.Ptr QVectorInt)+foreign import ccall "genpop__QVectorInt_newWithSize" newWithSize' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorInt)+foreign import ccall "genpop__QVectorInt_newWithSizeAndValue" newWithSizeAndValue' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorInt)+foreign import ccall "genpop__QVectorInt_newCopy" newCopy' ::  HoppyF.Ptr QVectorIntConst -> HoppyP.IO (HoppyF.Ptr QVectorInt)+foreign import ccall "genpop__QVectorInt_append" append' ::  HoppyF.Ptr QVectorInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_appendVector" appendVector' ::  HoppyF.Ptr QVectorInt -> HoppyF.Ptr QVectorIntConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_at" at' ::  HoppyF.Ptr QVectorInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CInt)+foreign import ccall "genpop__QVectorInt_atConst" atConst' ::  HoppyF.Ptr QVectorIntConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CInt)+foreign import ccall "genpop__QVectorInt_capacity" capacity' ::  HoppyF.Ptr QVectorIntConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorInt_clear" clear' ::  HoppyF.Ptr QVectorInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_contains" contains' ::  HoppyF.Ptr QVectorIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorInt_count" count' ::  HoppyF.Ptr QVectorIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorInt_array" array' ::  HoppyF.Ptr QVectorInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CInt)+foreign import ccall "genpop__QVectorInt_arrayConst" arrayConst' ::  HoppyF.Ptr QVectorIntConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CInt)+foreign import ccall "genpop__QVectorInt_endsWith" endsWith' ::  HoppyF.Ptr QVectorIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorInt_fill" fill' ::  HoppyF.Ptr QVectorInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_fillResize" fillResize' ::  HoppyF.Ptr QVectorInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_first" first' ::  HoppyF.Ptr QVectorInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CInt)+foreign import ccall "genpop__QVectorInt_firstConst" firstConst' ::  HoppyF.Ptr QVectorIntConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CInt)+foreign import ccall "genpop__QVectorInt_get" get' ::  HoppyF.Ptr QVectorIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorInt_indexOf" indexOf' ::  HoppyF.Ptr QVectorIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorInt_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QVectorIntConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorInt_insert" insert' ::  HoppyF.Ptr QVectorInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_insertMany" insertMany' ::  HoppyF.Ptr QVectorInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_isEmpty" isEmpty' ::  HoppyF.Ptr QVectorIntConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorInt_last" last' ::  HoppyF.Ptr QVectorInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CInt)+foreign import ccall "genpop__QVectorInt_lastConst" lastConst' ::  HoppyF.Ptr QVectorIntConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CInt)+foreign import ccall "genpop__QVectorInt_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QVectorIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorInt_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QVectorIntConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorInt_mid" mid' ::  HoppyF.Ptr QVectorIntConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorInt)+foreign import ccall "genpop__QVectorInt_midLength" midLength' ::  HoppyF.Ptr QVectorIntConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorInt)+foreign import ccall "genpop__QVectorInt_prepend" prepend' ::  HoppyF.Ptr QVectorInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_remove" remove' ::  HoppyF.Ptr QVectorInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_removeMany" removeMany' ::  HoppyF.Ptr QVectorInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_removeAll" removeAll' ::  HoppyF.Ptr QVectorInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorInt_removeFirst" removeFirst' ::  HoppyF.Ptr QVectorInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_removeLast" removeLast' ::  HoppyF.Ptr QVectorInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_removeOne" removeOne' ::  HoppyF.Ptr QVectorInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorInt_replace" replace' ::  HoppyF.Ptr QVectorInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_reserve" reserve' ::  HoppyF.Ptr QVectorInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_resize" resize' ::  HoppyF.Ptr QVectorInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_size" size' ::  HoppyF.Ptr QVectorIntConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorInt_squeeze" squeeze' ::  HoppyF.Ptr QVectorInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_startsWith" startsWith' ::  HoppyF.Ptr QVectorIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorInt_swap" swap' ::  HoppyF.Ptr QVectorInt -> HoppyF.Ptr QVectorInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorInt_takeAt" takeAt' ::  HoppyF.Ptr QVectorInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorInt_takeFirst" takeFirst' ::  HoppyF.Ptr QVectorInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorInt_takeLast" takeLast' ::  HoppyF.Ptr QVectorInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorInt_value" value' ::  HoppyF.Ptr QVectorIntConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorInt_valueOr" valueOr' ::  HoppyF.Ptr QVectorIntConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorInt_ADD" aDD' ::  HoppyF.Ptr QVectorIntConst -> HoppyF.Ptr QVectorIntConst -> HoppyP.IO (HoppyF.Ptr QVectorInt)+foreign import ccall "genpop__QVectorInt_ASSIGN" aSSIGN' ::  HoppyF.Ptr QVectorInt -> HoppyF.Ptr QVectorIntConst -> HoppyP.IO (HoppyF.Ptr QVectorInt)+foreign import ccall "gendel__QVectorInt" delete'QVectorInt :: HoppyF.Ptr QVectorIntConst -> HoppyP.IO ()+foreign import ccall "&gendel__QVectorInt" deletePtr'QVectorInt :: HoppyF.FunPtr (HoppyF.Ptr QVectorIntConst -> HoppyP.IO ())++class QVectorIntValue a where+  withQVectorIntPtr :: a -> (QVectorIntConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QVectorIntConstPtr a => QVectorIntValue a where+  withQVectorIntPtr = HoppyP.flip ($) . toQVectorIntConst++class (HoppyFHR.CppPtr this) => QVectorIntConstPtr this where+  toQVectorIntConst :: this -> QVectorIntConst++atConst :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CInt))+atConst arg'1 arg'2 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (atConst' arg'1' arg'2')++capacity :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+capacity arg'1 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (capacity' arg'1')++contains :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++arrayConst :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CInt))+arrayConst arg'1 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (arrayConst' arg'1')++endsWith :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CInt))+firstConst arg'1 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (firstConst' arg'1')++get :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+get arg'1 arg'2 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (get' arg'1' arg'2')++indexOf :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CInt))+lastConst arg'1 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (lastConst' arg'1')++lastIndexOf :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QVectorInt)+mid arg'1 arg'2 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorInt+  (mid' arg'1' arg'2')++midLength :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QVectorInt)+midLength arg'1 arg'2 arg'3 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorInt+  (midLength' arg'1' arg'2' arg'3')++size :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+value arg'1 arg'2 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (value' arg'1' arg'2')++valueOr :: (QVectorIntValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+valueOr arg'1 arg'2 arg'3 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QVectorIntValue this, QVectorIntValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorInt)+aDD arg'1 arg'2 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVectorIntPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorInt+  (aDD' arg'1' arg'2')++class (QVectorIntConstPtr this) => QVectorIntPtr this where+  toQVectorInt :: this -> QVectorInt++append :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (append' arg'1' arg'2')++appendVector :: (QVectorIntPtr this, QVectorIntValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendVector arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  withQVectorIntPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendVector' arg'1' arg'2')++at :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CInt))+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (at' arg'1' arg'2')++clear :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (clear' arg'1')++array :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CInt))+array arg'1 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (array' arg'1')++fill :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+fill arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (fill' arg'1' arg'2')++fillResize :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+fillResize arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (fillResize' arg'1' arg'2' arg'3')++first :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CInt))+first arg'1 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (first' arg'1')++insert :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++insertMany :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+insertMany arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQVectorInt 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' ->+  (insertMany' arg'1' arg'2' arg'3' arg'4')++last :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CInt))+last arg'1 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (last' arg'1')++prepend :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (prepend' arg'1' arg'2')++remove :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+remove arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (remove' arg'1' arg'2')++removeMany :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+removeMany arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (removeMany' arg'1' arg'2' arg'3')++removeAll :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeFirst :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++resize :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+resize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (resize' arg'1' arg'2')++squeeze :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+squeeze arg'1 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (squeeze' arg'1')++swap :: (QVectorIntPtr this, QVectorIntPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQVectorInt arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++takeAt :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (takeFirst' arg'1')++takeLast :: (QVectorIntPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (takeLast' arg'1')++aSSIGN :: (QVectorIntPtr this, QVectorIntValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorInt)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorInt arg'1) $ \arg'1' ->+  withQVectorIntPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorInt+  (aSSIGN' arg'1' arg'2')++data QVectorIntConst =+    QVectorIntConst (HoppyF.Ptr QVectorIntConst)+  | QVectorIntConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorIntConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorIntConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorIntConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorIntToConst :: QVectorInt -> QVectorIntConst+castQVectorIntToConst (QVectorInt ptr') = QVectorIntConst $ HoppyF.castPtr ptr'+castQVectorIntToConst (QVectorIntGc fptr' ptr') = QVectorIntConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorIntConst where+  nullptr = QVectorIntConst HoppyF.nullPtr+  +  withCppPtr (QVectorIntConst ptr') f' = f' ptr'+  withCppPtr (QVectorIntConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorIntConst ptr') = ptr'+  toPtr (QVectorIntConstGc _ ptr') = ptr'+  +  touchCppPtr (QVectorIntConst _) = HoppyP.return ()+  touchCppPtr (QVectorIntConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorIntConst where+  delete (QVectorIntConst ptr') = delete'QVectorInt ptr'+  delete (QVectorIntConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorIntConst", " object."]+  +  toGc this'@(QVectorIntConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorIntConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorIntConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorIntConst QVectorInt where copy = newCopy++instance QVectorIntConstPtr QVectorIntConst where+  toQVectorIntConst = HoppyP.id++data QVectorInt =+    QVectorInt (HoppyF.Ptr QVectorInt)+  | QVectorIntGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorInt)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorInt where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorInt where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorIntToNonconst :: QVectorIntConst -> QVectorInt+castQVectorIntToNonconst (QVectorIntConst ptr') = QVectorInt $ HoppyF.castPtr ptr'+castQVectorIntToNonconst (QVectorIntConstGc fptr' ptr') = QVectorIntGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorInt where+  nullptr = QVectorInt HoppyF.nullPtr+  +  withCppPtr (QVectorInt ptr') f' = f' ptr'+  withCppPtr (QVectorIntGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorInt ptr') = ptr'+  toPtr (QVectorIntGc _ ptr') = ptr'+  +  touchCppPtr (QVectorInt _) = HoppyP.return ()+  touchCppPtr (QVectorIntGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorInt where+  delete (QVectorInt ptr') = delete'QVectorInt $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QVectorIntConst)+  delete (QVectorIntGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorInt", " object."]+  +  toGc this'@(QVectorInt ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorIntGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorInt :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorIntGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorInt QVectorInt where copy = newCopy++instance QVectorIntConstPtr QVectorInt where+  toQVectorIntConst (QVectorInt ptr') = QVectorIntConst $ (HoppyF.castPtr :: HoppyF.Ptr QVectorInt -> HoppyF.Ptr QVectorIntConst) ptr'+  toQVectorIntConst (QVectorIntGc fptr' ptr') = QVectorIntConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QVectorInt -> HoppyF.Ptr QVectorIntConst) ptr'++instance QVectorIntPtr QVectorInt where+  toQVectorInt = HoppyP.id++new :: (HoppyP.IO QVectorInt)+new =+  HoppyP.fmap QVectorInt+  (new')++newWithSize :: (HoppyP.Int) -> (HoppyP.IO QVectorInt)+newWithSize arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVectorInt+  (newWithSize' arg'1')++newWithSizeAndValue :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QVectorInt)+newWithSizeAndValue arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QVectorInt+  (newWithSizeAndValue' arg'1' arg'2')++newCopy :: (QVectorIntValue arg'1) => (arg'1) -> (HoppyP.IO QVectorInt)+newCopy arg'1 =+  withQVectorIntPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVectorInt+  (newCopy' arg'1')++class QVectorIntSuper a where+  downToQVectorInt :: a -> QVectorInt+++class QVectorIntSuperConst a where+  downToQVectorIntConst :: a -> QVectorIntConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QVectorInt)) QVectorInt where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QVectorIntValue a => HoppyFHR.Assignable QVectorInt a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QVectorInt)) QVectorInt where+  decode = HoppyP.fmap QVectorInt . HoppyF.peek++instance QtahFHR.HasContents QVectorIntConst (HoppyP.Int) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QVectorInt (HoppyP.Int) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QVectorInt (HoppyP.Int) where+  fromContents values' = do+    vector' <- new+    reserve vector' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append vector') values'+    QtahP.return vector'
src/Graphics/UI/Qtah/Generated/Core/QVector/QLatin1String.hs view
@@ -0,0 +1,672 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QVector.QLatin1String (+  QVectorQLatin1StringValue (..),+  QVectorQLatin1StringConstPtr (..),+  atConst,+  capacity,+  contains,+  count,+  arrayConst,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QVectorQLatin1StringPtr (..),+  append,+  appendVector,+  at,+  clear,+  array,+  fill,+  fillResize,+  first,+  insert,+  insertMany,+  last,+  prepend,+  remove,+  removeMany,+  removeAll,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  resize,+  squeeze,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QVectorQLatin1StringConst (..),+  castQVectorQLatin1StringToConst,+  QVectorQLatin1String (..),+  castQVectorQLatin1StringToNonconst,+  new,+  newWithSize,+  newWithSizeAndValue,+  newCopy,+  QVectorQLatin1StringSuper (..),+  QVectorQLatin1StringSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QLatin1String as M58+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QVectorQLatin1String_new" new' ::  HoppyP.IO (HoppyF.Ptr QVectorQLatin1String)+foreign import ccall "genpop__QVectorQLatin1String_newWithSize" newWithSize' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQLatin1String)+foreign import ccall "genpop__QVectorQLatin1String_newWithSizeAndValue" newWithSizeAndValue' ::  HoppyFC.CInt -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO (HoppyF.Ptr QVectorQLatin1String)+foreign import ccall "genpop__QVectorQLatin1String_newCopy" newCopy' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyP.IO (HoppyF.Ptr QVectorQLatin1String)+foreign import ccall "genpop__QVectorQLatin1String_append" append' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_appendVector" appendVector' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyF.Ptr QVectorQLatin1StringConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_at" at' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M58.QLatin1String)+foreign import ccall "genpop__QVectorQLatin1String_atConst" atConst' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M58.QLatin1StringConst)+foreign import ccall "genpop__QVectorQLatin1String_capacity" capacity' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQLatin1String_clear" clear' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_contains" contains' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQLatin1String_count" count' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQLatin1String_array" array' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyP.IO (HoppyF.Ptr M58.QLatin1String)+foreign import ccall "genpop__QVectorQLatin1String_arrayConst" arrayConst' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyP.IO (HoppyF.Ptr M58.QLatin1StringConst)+foreign import ccall "genpop__QVectorQLatin1String_endsWith" endsWith' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQLatin1String_fill" fill' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_fillResize" fillResize' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_first" first' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyP.IO (HoppyF.Ptr M58.QLatin1String)+foreign import ccall "genpop__QVectorQLatin1String_firstConst" firstConst' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyP.IO (HoppyF.Ptr M58.QLatin1StringConst)+foreign import ccall "genpop__QVectorQLatin1String_get" get' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M58.QLatin1StringConst)+foreign import ccall "genpop__QVectorQLatin1String_indexOf" indexOf' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQLatin1String_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQLatin1String_insert" insert' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyFC.CInt -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_insertMany" insertMany' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_isEmpty" isEmpty' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQLatin1String_last" last' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyP.IO (HoppyF.Ptr M58.QLatin1String)+foreign import ccall "genpop__QVectorQLatin1String_lastConst" lastConst' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyP.IO (HoppyF.Ptr M58.QLatin1StringConst)+foreign import ccall "genpop__QVectorQLatin1String_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQLatin1String_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQLatin1String_mid" mid' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQLatin1String)+foreign import ccall "genpop__QVectorQLatin1String_midLength" midLength' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQLatin1String)+foreign import ccall "genpop__QVectorQLatin1String_prepend" prepend' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_remove" remove' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_removeMany" removeMany' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_removeAll" removeAll' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQLatin1String_removeFirst" removeFirst' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_removeLast" removeLast' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_removeOne" removeOne' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQLatin1String_replace" replace' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyFC.CInt -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_reserve" reserve' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_resize" resize' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_size" size' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQLatin1String_squeeze" squeeze' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_startsWith" startsWith' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQLatin1String_swap" swap' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyF.Ptr QVectorQLatin1String -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQLatin1String_takeAt" takeAt' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M58.QLatin1StringConst)+foreign import ccall "genpop__QVectorQLatin1String_takeFirst" takeFirst' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyP.IO (HoppyF.Ptr M58.QLatin1StringConst)+foreign import ccall "genpop__QVectorQLatin1String_takeLast" takeLast' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyP.IO (HoppyF.Ptr M58.QLatin1StringConst)+foreign import ccall "genpop__QVectorQLatin1String_value" value' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M58.QLatin1StringConst)+foreign import ccall "genpop__QVectorQLatin1String_valueOr" valueOr' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyFC.CInt -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO (HoppyF.Ptr M58.QLatin1StringConst)+foreign import ccall "genpop__QVectorQLatin1String_ADD" aDD' ::  HoppyF.Ptr QVectorQLatin1StringConst -> HoppyF.Ptr QVectorQLatin1StringConst -> HoppyP.IO (HoppyF.Ptr QVectorQLatin1String)+foreign import ccall "genpop__QVectorQLatin1String_ASSIGN" aSSIGN' ::  HoppyF.Ptr QVectorQLatin1String -> HoppyF.Ptr QVectorQLatin1StringConst -> HoppyP.IO (HoppyF.Ptr QVectorQLatin1String)+foreign import ccall "gendel__QVectorQLatin1String" delete'QVectorQLatin1String :: HoppyF.Ptr QVectorQLatin1StringConst -> HoppyP.IO ()+foreign import ccall "&gendel__QVectorQLatin1String" deletePtr'QVectorQLatin1String :: HoppyF.FunPtr (HoppyF.Ptr QVectorQLatin1StringConst -> HoppyP.IO ())++class QVectorQLatin1StringValue a where+  withQVectorQLatin1StringPtr :: a -> (QVectorQLatin1StringConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QVectorQLatin1StringConstPtr a => QVectorQLatin1StringValue a where+  withQVectorQLatin1StringPtr = HoppyP.flip ($) . toQVectorQLatin1StringConst++class (HoppyFHR.CppPtr this) => QVectorQLatin1StringConstPtr this where+  toQVectorQLatin1StringConst :: this -> QVectorQLatin1StringConst++atConst :: (QVectorQLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M58.QLatin1StringConst)+atConst arg'1 arg'2 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M58.QLatin1StringConst+  (atConst' arg'1' arg'2')++capacity :: (QVectorQLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+capacity arg'1 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (capacity' arg'1')++contains :: (QVectorQLatin1StringValue this, M58.QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QVectorQLatin1StringValue this, M58.QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++arrayConst :: (QVectorQLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.IO M58.QLatin1StringConst)+arrayConst arg'1 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M58.QLatin1StringConst+  (arrayConst' arg'1')++endsWith :: (QVectorQLatin1StringValue this, M58.QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QVectorQLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.IO M58.QLatin1StringConst)+firstConst arg'1 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M58.QLatin1StringConst+  (firstConst' arg'1')++get :: (QVectorQLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M58.QLatin1String)+get arg'1 arg'2 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M58.QLatin1StringConst) =<<+  (get' arg'1' arg'2')++indexOf :: (QVectorQLatin1StringValue this, M58.QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QVectorQLatin1StringValue this, M58.QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QVectorQLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QVectorQLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.IO M58.QLatin1StringConst)+lastConst arg'1 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M58.QLatin1StringConst+  (lastConst' arg'1')++lastIndexOf :: (QVectorQLatin1StringValue this, M58.QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QVectorQLatin1StringValue this, M58.QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QVectorQLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QVectorQLatin1String)+mid arg'1 arg'2 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQLatin1String+  (mid' arg'1' arg'2')++midLength :: (QVectorQLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QVectorQLatin1String)+midLength arg'1 arg'2 arg'3 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQLatin1String+  (midLength' arg'1' arg'2' arg'3')++size :: (QVectorQLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QVectorQLatin1StringValue this, M58.QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QVectorQLatin1StringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M58.QLatin1String)+value arg'1 arg'2 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M58.QLatin1StringConst) =<<+  (value' arg'1' arg'2')++valueOr :: (QVectorQLatin1StringValue this, M58.QLatin1StringValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO M58.QLatin1String)+valueOr arg'1 arg'2 arg'3 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M58.withQLatin1StringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M58.QLatin1StringConst) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QVectorQLatin1StringValue this, QVectorQLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQLatin1String)+aDD arg'1 arg'2 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVectorQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQLatin1String+  (aDD' arg'1' arg'2')++class (QVectorQLatin1StringConstPtr this) => QVectorQLatin1StringPtr this where+  toQVectorQLatin1String :: this -> QVectorQLatin1String++append :: (QVectorQLatin1StringPtr this, M58.QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (append' arg'1' arg'2')++appendVector :: (QVectorQLatin1StringPtr this, QVectorQLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendVector arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  withQVectorQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendVector' arg'1' arg'2')++at :: (QVectorQLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M58.QLatin1String)+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M58.QLatin1String+  (at' arg'1' arg'2')++clear :: (QVectorQLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  (clear' arg'1')++array :: (QVectorQLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.IO M58.QLatin1String)+array arg'1 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  HoppyP.fmap M58.QLatin1String+  (array' arg'1')++fill :: (QVectorQLatin1StringPtr this, M58.QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+fill arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (fill' arg'1' arg'2')++fillResize :: (QVectorQLatin1StringPtr this, M58.QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO ())+fillResize arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (fillResize' arg'1' arg'2' arg'3')++first :: (QVectorQLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.IO M58.QLatin1String)+first arg'1 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  HoppyP.fmap M58.QLatin1String+  (first' arg'1')++insert :: (QVectorQLatin1StringPtr this, M58.QLatin1StringValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M58.withQLatin1StringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++insertMany :: (QVectorQLatin1StringPtr this, M58.QLatin1StringValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO ())+insertMany arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M58.withQLatin1StringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (insertMany' arg'1' arg'2' arg'3' arg'4')++last :: (QVectorQLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.IO M58.QLatin1String)+last arg'1 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  HoppyP.fmap M58.QLatin1String+  (last' arg'1')++prepend :: (QVectorQLatin1StringPtr this, M58.QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (prepend' arg'1' arg'2')++remove :: (QVectorQLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+remove arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (remove' arg'1' arg'2')++removeMany :: (QVectorQLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+removeMany arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (removeMany' arg'1' arg'2' arg'3')++removeAll :: (QVectorQLatin1StringPtr this, M58.QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeFirst :: (QVectorQLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QVectorQLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QVectorQLatin1StringPtr this, M58.QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QVectorQLatin1StringPtr this, M58.QLatin1StringValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M58.withQLatin1StringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QVectorQLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++resize :: (QVectorQLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+resize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (resize' arg'1' arg'2')++squeeze :: (QVectorQLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+squeeze arg'1 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  (squeeze' arg'1')++swap :: (QVectorQLatin1StringPtr this, QVectorQLatin1StringPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++takeAt :: (QVectorQLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M58.QLatin1String)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M58.QLatin1StringConst) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QVectorQLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.IO M58.QLatin1String)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M58.QLatin1StringConst) =<<+  (takeFirst' arg'1')++takeLast :: (QVectorQLatin1StringPtr this) => (this) {- ^ this -} -> (HoppyP.IO M58.QLatin1String)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M58.QLatin1StringConst) =<<+  (takeLast' arg'1')++aSSIGN :: (QVectorQLatin1StringPtr this, QVectorQLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQLatin1String)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQLatin1String arg'1) $ \arg'1' ->+  withQVectorQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQLatin1String+  (aSSIGN' arg'1' arg'2')++data QVectorQLatin1StringConst =+    QVectorQLatin1StringConst (HoppyF.Ptr QVectorQLatin1StringConst)+  | QVectorQLatin1StringConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQLatin1StringConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQLatin1StringConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQLatin1StringConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQLatin1StringToConst :: QVectorQLatin1String -> QVectorQLatin1StringConst+castQVectorQLatin1StringToConst (QVectorQLatin1String ptr') = QVectorQLatin1StringConst $ HoppyF.castPtr ptr'+castQVectorQLatin1StringToConst (QVectorQLatin1StringGc fptr' ptr') = QVectorQLatin1StringConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQLatin1StringConst where+  nullptr = QVectorQLatin1StringConst HoppyF.nullPtr+  +  withCppPtr (QVectorQLatin1StringConst ptr') f' = f' ptr'+  withCppPtr (QVectorQLatin1StringConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQLatin1StringConst ptr') = ptr'+  toPtr (QVectorQLatin1StringConstGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQLatin1StringConst _) = HoppyP.return ()+  touchCppPtr (QVectorQLatin1StringConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQLatin1StringConst where+  delete (QVectorQLatin1StringConst ptr') = delete'QVectorQLatin1String ptr'+  delete (QVectorQLatin1StringConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQLatin1StringConst", " object."]+  +  toGc this'@(QVectorQLatin1StringConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQLatin1StringConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQLatin1String :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQLatin1StringConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQLatin1StringConst QVectorQLatin1String where copy = newCopy++instance QVectorQLatin1StringConstPtr QVectorQLatin1StringConst where+  toQVectorQLatin1StringConst = HoppyP.id++data QVectorQLatin1String =+    QVectorQLatin1String (HoppyF.Ptr QVectorQLatin1String)+  | QVectorQLatin1StringGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQLatin1String)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQLatin1String where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQLatin1String where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQLatin1StringToNonconst :: QVectorQLatin1StringConst -> QVectorQLatin1String+castQVectorQLatin1StringToNonconst (QVectorQLatin1StringConst ptr') = QVectorQLatin1String $ HoppyF.castPtr ptr'+castQVectorQLatin1StringToNonconst (QVectorQLatin1StringConstGc fptr' ptr') = QVectorQLatin1StringGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQLatin1String where+  nullptr = QVectorQLatin1String HoppyF.nullPtr+  +  withCppPtr (QVectorQLatin1String ptr') f' = f' ptr'+  withCppPtr (QVectorQLatin1StringGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQLatin1String ptr') = ptr'+  toPtr (QVectorQLatin1StringGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQLatin1String _) = HoppyP.return ()+  touchCppPtr (QVectorQLatin1StringGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQLatin1String where+  delete (QVectorQLatin1String ptr') = delete'QVectorQLatin1String $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QVectorQLatin1StringConst)+  delete (QVectorQLatin1StringGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQLatin1String", " object."]+  +  toGc this'@(QVectorQLatin1String ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQLatin1StringGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQLatin1String :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQLatin1StringGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQLatin1String QVectorQLatin1String where copy = newCopy++instance QVectorQLatin1StringConstPtr QVectorQLatin1String where+  toQVectorQLatin1StringConst (QVectorQLatin1String ptr') = QVectorQLatin1StringConst $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQLatin1String -> HoppyF.Ptr QVectorQLatin1StringConst) ptr'+  toQVectorQLatin1StringConst (QVectorQLatin1StringGc fptr' ptr') = QVectorQLatin1StringConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQLatin1String -> HoppyF.Ptr QVectorQLatin1StringConst) ptr'++instance QVectorQLatin1StringPtr QVectorQLatin1String where+  toQVectorQLatin1String = HoppyP.id++new :: (HoppyP.IO QVectorQLatin1String)+new =+  HoppyP.fmap QVectorQLatin1String+  (new')++newWithSize :: (HoppyP.Int) -> (HoppyP.IO QVectorQLatin1String)+newWithSize arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVectorQLatin1String+  (newWithSize' arg'1')++newWithSizeAndValue :: (M58.QLatin1StringValue arg'2) => (HoppyP.Int) -> (arg'2) -> (HoppyP.IO QVectorQLatin1String)+newWithSizeAndValue arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQLatin1String+  (newWithSizeAndValue' arg'1' arg'2')++newCopy :: (QVectorQLatin1StringValue arg'1) => (arg'1) -> (HoppyP.IO QVectorQLatin1String)+newCopy arg'1 =+  withQVectorQLatin1StringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVectorQLatin1String+  (newCopy' arg'1')++class QVectorQLatin1StringSuper a where+  downToQVectorQLatin1String :: a -> QVectorQLatin1String+++class QVectorQLatin1StringSuperConst a where+  downToQVectorQLatin1StringConst :: a -> QVectorQLatin1StringConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QVectorQLatin1String)) QVectorQLatin1String where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QVectorQLatin1StringValue a => HoppyFHR.Assignable QVectorQLatin1String a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QVectorQLatin1String)) QVectorQLatin1String where+  decode = HoppyP.fmap QVectorQLatin1String . HoppyF.peek++instance QtahFHR.HasContents QVectorQLatin1StringConst (M58.QLatin1String) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QVectorQLatin1String (M58.QLatin1String) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QVectorQLatin1String (M58.QLatin1String) where+  fromContents values' = do+    vector' <- new+    reserve vector' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append vector') values'+    QtahP.return vector'
src/Graphics/UI/Qtah/Generated/Core/QVector/QPoint.hs view
@@ -0,0 +1,673 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QVector.QPoint (+  QVectorQPointValue (..),+  QVectorQPointConstPtr (..),+  atConst,+  capacity,+  contains,+  count,+  arrayConst,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QVectorQPointPtr (..),+  append,+  appendVector,+  at,+  clear,+  array,+  fill,+  fillResize,+  first,+  insert,+  insertMany,+  last,+  prepend,+  remove,+  removeMany,+  removeAll,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  resize,+  squeeze,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QVectorQPointConst (..),+  castQVectorQPointToConst,+  QVectorQPoint (..),+  castQVectorQPointToNonconst,+  new,+  newWithSize,+  newWithSizeAndValue,+  newCopy,+  QVectorQPointSuper (..),+  QVectorQPointSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Core.HPoint as HPoint+import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QVectorQPoint_new" new' ::  HoppyP.IO (HoppyF.Ptr QVectorQPoint)+foreign import ccall "genpop__QVectorQPoint_newWithSize" newWithSize' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQPoint)+foreign import ccall "genpop__QVectorQPoint_newWithSizeAndValue" newWithSizeAndValue' ::  HoppyFC.CInt -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr QVectorQPoint)+foreign import ccall "genpop__QVectorQPoint_newCopy" newCopy' ::  HoppyF.Ptr QVectorQPointConst -> HoppyP.IO (HoppyF.Ptr QVectorQPoint)+foreign import ccall "genpop__QVectorQPoint_append" append' ::  HoppyF.Ptr QVectorQPoint -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_appendVector" appendVector' ::  HoppyF.Ptr QVectorQPoint -> HoppyF.Ptr QVectorQPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_at" at' ::  HoppyF.Ptr QVectorQPoint -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M114.QPoint)+foreign import ccall "genpop__QVectorQPoint_atConst" atConst' ::  HoppyF.Ptr QVectorQPointConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QVectorQPoint_capacity" capacity' ::  HoppyF.Ptr QVectorQPointConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPoint_clear" clear' ::  HoppyF.Ptr QVectorQPoint -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_contains" contains' ::  HoppyF.Ptr QVectorQPointConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQPoint_count" count' ::  HoppyF.Ptr QVectorQPointConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPoint_array" array' ::  HoppyF.Ptr QVectorQPoint -> HoppyP.IO (HoppyF.Ptr M114.QPoint)+foreign import ccall "genpop__QVectorQPoint_arrayConst" arrayConst' ::  HoppyF.Ptr QVectorQPointConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QVectorQPoint_endsWith" endsWith' ::  HoppyF.Ptr QVectorQPointConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQPoint_fill" fill' ::  HoppyF.Ptr QVectorQPoint -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_fillResize" fillResize' ::  HoppyF.Ptr QVectorQPoint -> HoppyF.Ptr M114.QPointConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_first" first' ::  HoppyF.Ptr QVectorQPoint -> HoppyP.IO (HoppyF.Ptr M114.QPoint)+foreign import ccall "genpop__QVectorQPoint_firstConst" firstConst' ::  HoppyF.Ptr QVectorQPointConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QVectorQPoint_get" get' ::  HoppyF.Ptr QVectorQPointConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QVectorQPoint_indexOf" indexOf' ::  HoppyF.Ptr QVectorQPointConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPoint_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QVectorQPointConst -> HoppyF.Ptr M114.QPointConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPoint_insert" insert' ::  HoppyF.Ptr QVectorQPoint -> HoppyFC.CInt -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_insertMany" insertMany' ::  HoppyF.Ptr QVectorQPoint -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_isEmpty" isEmpty' ::  HoppyF.Ptr QVectorQPointConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQPoint_last" last' ::  HoppyF.Ptr QVectorQPoint -> HoppyP.IO (HoppyF.Ptr M114.QPoint)+foreign import ccall "genpop__QVectorQPoint_lastConst" lastConst' ::  HoppyF.Ptr QVectorQPointConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QVectorQPoint_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QVectorQPointConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPoint_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QVectorQPointConst -> HoppyF.Ptr M114.QPointConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPoint_mid" mid' ::  HoppyF.Ptr QVectorQPointConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQPoint)+foreign import ccall "genpop__QVectorQPoint_midLength" midLength' ::  HoppyF.Ptr QVectorQPointConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQPoint)+foreign import ccall "genpop__QVectorQPoint_prepend" prepend' ::  HoppyF.Ptr QVectorQPoint -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_remove" remove' ::  HoppyF.Ptr QVectorQPoint -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_removeMany" removeMany' ::  HoppyF.Ptr QVectorQPoint -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_removeAll" removeAll' ::  HoppyF.Ptr QVectorQPoint -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPoint_removeFirst" removeFirst' ::  HoppyF.Ptr QVectorQPoint -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_removeLast" removeLast' ::  HoppyF.Ptr QVectorQPoint -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_removeOne" removeOne' ::  HoppyF.Ptr QVectorQPoint -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQPoint_replace" replace' ::  HoppyF.Ptr QVectorQPoint -> HoppyFC.CInt -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_reserve" reserve' ::  HoppyF.Ptr QVectorQPoint -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_resize" resize' ::  HoppyF.Ptr QVectorQPoint -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_size" size' ::  HoppyF.Ptr QVectorQPointConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPoint_squeeze" squeeze' ::  HoppyF.Ptr QVectorQPoint -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_startsWith" startsWith' ::  HoppyF.Ptr QVectorQPointConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQPoint_swap" swap' ::  HoppyF.Ptr QVectorQPoint -> HoppyF.Ptr QVectorQPoint -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPoint_takeAt" takeAt' ::  HoppyF.Ptr QVectorQPoint -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QVectorQPoint_takeFirst" takeFirst' ::  HoppyF.Ptr QVectorQPoint -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QVectorQPoint_takeLast" takeLast' ::  HoppyF.Ptr QVectorQPoint -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QVectorQPoint_value" value' ::  HoppyF.Ptr QVectorQPointConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QVectorQPoint_valueOr" valueOr' ::  HoppyF.Ptr QVectorQPointConst -> HoppyFC.CInt -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QVectorQPoint_ADD" aDD' ::  HoppyF.Ptr QVectorQPointConst -> HoppyF.Ptr QVectorQPointConst -> HoppyP.IO (HoppyF.Ptr QVectorQPoint)+foreign import ccall "genpop__QVectorQPoint_ASSIGN" aSSIGN' ::  HoppyF.Ptr QVectorQPoint -> HoppyF.Ptr QVectorQPointConst -> HoppyP.IO (HoppyF.Ptr QVectorQPoint)+foreign import ccall "gendel__QVectorQPoint" delete'QVectorQPoint :: HoppyF.Ptr QVectorQPointConst -> HoppyP.IO ()+foreign import ccall "&gendel__QVectorQPoint" deletePtr'QVectorQPoint :: HoppyF.FunPtr (HoppyF.Ptr QVectorQPointConst -> HoppyP.IO ())++class QVectorQPointValue a where+  withQVectorQPointPtr :: a -> (QVectorQPointConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QVectorQPointConstPtr a => QVectorQPointValue a where+  withQVectorQPointPtr = HoppyP.flip ($) . toQVectorQPointConst++class (HoppyFHR.CppPtr this) => QVectorQPointConstPtr this where+  toQVectorQPointConst :: this -> QVectorQPointConst++atConst :: (QVectorQPointValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M114.QPointConst)+atConst arg'1 arg'2 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M114.QPointConst+  (atConst' arg'1' arg'2')++capacity :: (QVectorQPointValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+capacity arg'1 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (capacity' arg'1')++contains :: (QVectorQPointValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QVectorQPointValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++arrayConst :: (QVectorQPointValue this) => (this) {- ^ this -} -> (HoppyP.IO M114.QPointConst)+arrayConst arg'1 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M114.QPointConst+  (arrayConst' arg'1')++endsWith :: (QVectorQPointValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QVectorQPointValue this) => (this) {- ^ this -} -> (HoppyP.IO M114.QPointConst)+firstConst arg'1 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M114.QPointConst+  (firstConst' arg'1')++get :: (QVectorQPointValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HPoint.HPoint)+get arg'1 arg'2 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (get' arg'1' arg'2')++indexOf :: (QVectorQPointValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QVectorQPointValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QVectorQPointValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QVectorQPointValue this) => (this) {- ^ this -} -> (HoppyP.IO M114.QPointConst)+lastConst arg'1 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M114.QPointConst+  (lastConst' arg'1')++lastIndexOf :: (QVectorQPointValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QVectorQPointValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QVectorQPointValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QVectorQPoint)+mid arg'1 arg'2 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQPoint+  (mid' arg'1' arg'2')++midLength :: (QVectorQPointValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QVectorQPoint)+midLength arg'1 arg'2 arg'3 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQPoint+  (midLength' arg'1' arg'2' arg'3')++size :: (QVectorQPointValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QVectorQPointValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QVectorQPointValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HPoint.HPoint)+value arg'1 arg'2 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (value' arg'1' arg'2')++valueOr :: (QVectorQPointValue this, M114.QPointValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO HPoint.HPoint)+valueOr arg'1 arg'2 arg'3 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M114.withQPointPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QVectorQPointValue this, QVectorQPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQPoint)+aDD arg'1 arg'2 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVectorQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQPoint+  (aDD' arg'1' arg'2')++class (QVectorQPointConstPtr this) => QVectorQPointPtr this where+  toQVectorQPoint :: this -> QVectorQPoint++append :: (QVectorQPointPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (append' arg'1' arg'2')++appendVector :: (QVectorQPointPtr this, QVectorQPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendVector arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  withQVectorQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendVector' arg'1' arg'2')++at :: (QVectorQPointPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M114.QPoint)+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M114.QPoint+  (at' arg'1' arg'2')++clear :: (QVectorQPointPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  (clear' arg'1')++array :: (QVectorQPointPtr this) => (this) {- ^ this -} -> (HoppyP.IO M114.QPoint)+array arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  HoppyP.fmap M114.QPoint+  (array' arg'1')++fill :: (QVectorQPointPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+fill arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (fill' arg'1' arg'2')++fillResize :: (QVectorQPointPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO ())+fillResize arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (fillResize' arg'1' arg'2' arg'3')++first :: (QVectorQPointPtr this) => (this) {- ^ this -} -> (HoppyP.IO M114.QPoint)+first arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  HoppyP.fmap M114.QPoint+  (first' arg'1')++insert :: (QVectorQPointPtr this, M114.QPointValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M114.withQPointPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++insertMany :: (QVectorQPointPtr this, M114.QPointValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO ())+insertMany arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M114.withQPointPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (insertMany' arg'1' arg'2' arg'3' arg'4')++last :: (QVectorQPointPtr this) => (this) {- ^ this -} -> (HoppyP.IO M114.QPoint)+last arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  HoppyP.fmap M114.QPoint+  (last' arg'1')++prepend :: (QVectorQPointPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (prepend' arg'1' arg'2')++remove :: (QVectorQPointPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+remove arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (remove' arg'1' arg'2')++removeMany :: (QVectorQPointPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+removeMany arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (removeMany' arg'1' arg'2' arg'3')++removeAll :: (QVectorQPointPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeFirst :: (QVectorQPointPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QVectorQPointPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QVectorQPointPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QVectorQPointPtr this, M114.QPointValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M114.withQPointPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QVectorQPointPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++resize :: (QVectorQPointPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+resize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (resize' arg'1' arg'2')++squeeze :: (QVectorQPointPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+squeeze arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  (squeeze' arg'1')++swap :: (QVectorQPointPtr this, QVectorQPointPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQVectorQPoint arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++takeAt :: (QVectorQPointPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HPoint.HPoint)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QVectorQPointPtr this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (takeFirst' arg'1')++takeLast :: (QVectorQPointPtr this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (takeLast' arg'1')++aSSIGN :: (QVectorQPointPtr this, QVectorQPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQPoint)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPoint arg'1) $ \arg'1' ->+  withQVectorQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQPoint+  (aSSIGN' arg'1' arg'2')++data QVectorQPointConst =+    QVectorQPointConst (HoppyF.Ptr QVectorQPointConst)+  | QVectorQPointConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQPointConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQPointConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQPointConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQPointToConst :: QVectorQPoint -> QVectorQPointConst+castQVectorQPointToConst (QVectorQPoint ptr') = QVectorQPointConst $ HoppyF.castPtr ptr'+castQVectorQPointToConst (QVectorQPointGc fptr' ptr') = QVectorQPointConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQPointConst where+  nullptr = QVectorQPointConst HoppyF.nullPtr+  +  withCppPtr (QVectorQPointConst ptr') f' = f' ptr'+  withCppPtr (QVectorQPointConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQPointConst ptr') = ptr'+  toPtr (QVectorQPointConstGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQPointConst _) = HoppyP.return ()+  touchCppPtr (QVectorQPointConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQPointConst where+  delete (QVectorQPointConst ptr') = delete'QVectorQPoint ptr'+  delete (QVectorQPointConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQPointConst", " object."]+  +  toGc this'@(QVectorQPointConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQPointConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQPoint :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQPointConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQPointConst QVectorQPoint where copy = newCopy++instance QVectorQPointConstPtr QVectorQPointConst where+  toQVectorQPointConst = HoppyP.id++data QVectorQPoint =+    QVectorQPoint (HoppyF.Ptr QVectorQPoint)+  | QVectorQPointGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQPoint)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQPoint where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQPoint where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQPointToNonconst :: QVectorQPointConst -> QVectorQPoint+castQVectorQPointToNonconst (QVectorQPointConst ptr') = QVectorQPoint $ HoppyF.castPtr ptr'+castQVectorQPointToNonconst (QVectorQPointConstGc fptr' ptr') = QVectorQPointGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQPoint where+  nullptr = QVectorQPoint HoppyF.nullPtr+  +  withCppPtr (QVectorQPoint ptr') f' = f' ptr'+  withCppPtr (QVectorQPointGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQPoint ptr') = ptr'+  toPtr (QVectorQPointGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQPoint _) = HoppyP.return ()+  touchCppPtr (QVectorQPointGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQPoint where+  delete (QVectorQPoint ptr') = delete'QVectorQPoint $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QVectorQPointConst)+  delete (QVectorQPointGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQPoint", " object."]+  +  toGc this'@(QVectorQPoint ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQPointGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQPoint :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQPointGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQPoint QVectorQPoint where copy = newCopy++instance QVectorQPointConstPtr QVectorQPoint where+  toQVectorQPointConst (QVectorQPoint ptr') = QVectorQPointConst $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQPoint -> HoppyF.Ptr QVectorQPointConst) ptr'+  toQVectorQPointConst (QVectorQPointGc fptr' ptr') = QVectorQPointConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQPoint -> HoppyF.Ptr QVectorQPointConst) ptr'++instance QVectorQPointPtr QVectorQPoint where+  toQVectorQPoint = HoppyP.id++new :: (HoppyP.IO QVectorQPoint)+new =+  HoppyP.fmap QVectorQPoint+  (new')++newWithSize :: (HoppyP.Int) -> (HoppyP.IO QVectorQPoint)+newWithSize arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVectorQPoint+  (newWithSize' arg'1')++newWithSizeAndValue :: (M114.QPointValue arg'2) => (HoppyP.Int) -> (arg'2) -> (HoppyP.IO QVectorQPoint)+newWithSizeAndValue arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQPoint+  (newWithSizeAndValue' arg'1' arg'2')++newCopy :: (QVectorQPointValue arg'1) => (arg'1) -> (HoppyP.IO QVectorQPoint)+newCopy arg'1 =+  withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVectorQPoint+  (newCopy' arg'1')++class QVectorQPointSuper a where+  downToQVectorQPoint :: a -> QVectorQPoint+++class QVectorQPointSuperConst a where+  downToQVectorQPointConst :: a -> QVectorQPointConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QVectorQPoint)) QVectorQPoint where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QVectorQPointValue a => HoppyFHR.Assignable QVectorQPoint a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QVectorQPoint)) QVectorQPoint where+  decode = HoppyP.fmap QVectorQPoint . HoppyF.peek++instance QtahFHR.HasContents QVectorQPointConst (HPoint.HPoint) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QVectorQPoint (HPoint.HPoint) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QVectorQPoint (HPoint.HPoint) where+  fromContents values' = do+    vector' <- new+    reserve vector' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append vector') values'+    QtahP.return vector'
src/Graphics/UI/Qtah/Generated/Core/QVector/QPointF.hs view
@@ -0,0 +1,673 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QVector.QPointF (+  QVectorQPointFValue (..),+  QVectorQPointFConstPtr (..),+  atConst,+  capacity,+  contains,+  count,+  arrayConst,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QVectorQPointFPtr (..),+  append,+  appendVector,+  at,+  clear,+  array,+  fill,+  fillResize,+  first,+  insert,+  insertMany,+  last,+  prepend,+  remove,+  removeMany,+  removeAll,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  resize,+  squeeze,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QVectorQPointFConst (..),+  castQVectorQPointFToConst,+  QVectorQPointF (..),+  castQVectorQPointFToNonconst,+  new,+  newWithSize,+  newWithSizeAndValue,+  newCopy,+  QVectorQPointFSuper (..),+  QVectorQPointFSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Core.HPointF as HPointF+import qualified Graphics.UI.Qtah.Generated.Core.QPointF as M116+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QVectorQPointF_new" new' ::  HoppyP.IO (HoppyF.Ptr QVectorQPointF)+foreign import ccall "genpop__QVectorQPointF_newWithSize" newWithSize' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQPointF)+foreign import ccall "genpop__QVectorQPointF_newWithSizeAndValue" newWithSizeAndValue' ::  HoppyFC.CInt -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO (HoppyF.Ptr QVectorQPointF)+foreign import ccall "genpop__QVectorQPointF_newCopy" newCopy' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyP.IO (HoppyF.Ptr QVectorQPointF)+foreign import ccall "genpop__QVectorQPointF_append" append' ::  HoppyF.Ptr QVectorQPointF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_appendVector" appendVector' ::  HoppyF.Ptr QVectorQPointF -> HoppyF.Ptr QVectorQPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_at" at' ::  HoppyF.Ptr QVectorQPointF -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M116.QPointF)+foreign import ccall "genpop__QVectorQPointF_atConst" atConst' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QVectorQPointF_capacity" capacity' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPointF_clear" clear' ::  HoppyF.Ptr QVectorQPointF -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_contains" contains' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQPointF_count" count' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPointF_array" array' ::  HoppyF.Ptr QVectorQPointF -> HoppyP.IO (HoppyF.Ptr M116.QPointF)+foreign import ccall "genpop__QVectorQPointF_arrayConst" arrayConst' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QVectorQPointF_endsWith" endsWith' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQPointF_fill" fill' ::  HoppyF.Ptr QVectorQPointF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_fillResize" fillResize' ::  HoppyF.Ptr QVectorQPointF -> HoppyF.Ptr M116.QPointFConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_first" first' ::  HoppyF.Ptr QVectorQPointF -> HoppyP.IO (HoppyF.Ptr M116.QPointF)+foreign import ccall "genpop__QVectorQPointF_firstConst" firstConst' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QVectorQPointF_get" get' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QVectorQPointF_indexOf" indexOf' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPointF_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPointF_insert" insert' ::  HoppyF.Ptr QVectorQPointF -> HoppyFC.CInt -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_insertMany" insertMany' ::  HoppyF.Ptr QVectorQPointF -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_isEmpty" isEmpty' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQPointF_last" last' ::  HoppyF.Ptr QVectorQPointF -> HoppyP.IO (HoppyF.Ptr M116.QPointF)+foreign import ccall "genpop__QVectorQPointF_lastConst" lastConst' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QVectorQPointF_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPointF_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPointF_mid" mid' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQPointF)+foreign import ccall "genpop__QVectorQPointF_midLength" midLength' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQPointF)+foreign import ccall "genpop__QVectorQPointF_prepend" prepend' ::  HoppyF.Ptr QVectorQPointF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_remove" remove' ::  HoppyF.Ptr QVectorQPointF -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_removeMany" removeMany' ::  HoppyF.Ptr QVectorQPointF -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_removeAll" removeAll' ::  HoppyF.Ptr QVectorQPointF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPointF_removeFirst" removeFirst' ::  HoppyF.Ptr QVectorQPointF -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_removeLast" removeLast' ::  HoppyF.Ptr QVectorQPointF -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_removeOne" removeOne' ::  HoppyF.Ptr QVectorQPointF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQPointF_replace" replace' ::  HoppyF.Ptr QVectorQPointF -> HoppyFC.CInt -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_reserve" reserve' ::  HoppyF.Ptr QVectorQPointF -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_resize" resize' ::  HoppyF.Ptr QVectorQPointF -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_size" size' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQPointF_squeeze" squeeze' ::  HoppyF.Ptr QVectorQPointF -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_startsWith" startsWith' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQPointF_swap" swap' ::  HoppyF.Ptr QVectorQPointF -> HoppyF.Ptr QVectorQPointF -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQPointF_takeAt" takeAt' ::  HoppyF.Ptr QVectorQPointF -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QVectorQPointF_takeFirst" takeFirst' ::  HoppyF.Ptr QVectorQPointF -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QVectorQPointF_takeLast" takeLast' ::  HoppyF.Ptr QVectorQPointF -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QVectorQPointF_value" value' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QVectorQPointF_valueOr" valueOr' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyFC.CInt -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QVectorQPointF_ADD" aDD' ::  HoppyF.Ptr QVectorQPointFConst -> HoppyF.Ptr QVectorQPointFConst -> HoppyP.IO (HoppyF.Ptr QVectorQPointF)+foreign import ccall "genpop__QVectorQPointF_ASSIGN" aSSIGN' ::  HoppyF.Ptr QVectorQPointF -> HoppyF.Ptr QVectorQPointFConst -> HoppyP.IO (HoppyF.Ptr QVectorQPointF)+foreign import ccall "gendel__QVectorQPointF" delete'QVectorQPointF :: HoppyF.Ptr QVectorQPointFConst -> HoppyP.IO ()+foreign import ccall "&gendel__QVectorQPointF" deletePtr'QVectorQPointF :: HoppyF.FunPtr (HoppyF.Ptr QVectorQPointFConst -> HoppyP.IO ())++class QVectorQPointFValue a where+  withQVectorQPointFPtr :: a -> (QVectorQPointFConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QVectorQPointFConstPtr a => QVectorQPointFValue a where+  withQVectorQPointFPtr = HoppyP.flip ($) . toQVectorQPointFConst++class (HoppyFHR.CppPtr this) => QVectorQPointFConstPtr this where+  toQVectorQPointFConst :: this -> QVectorQPointFConst++atConst :: (QVectorQPointFValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M116.QPointFConst)+atConst arg'1 arg'2 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M116.QPointFConst+  (atConst' arg'1' arg'2')++capacity :: (QVectorQPointFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+capacity arg'1 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (capacity' arg'1')++contains :: (QVectorQPointFValue this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QVectorQPointFValue this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++arrayConst :: (QVectorQPointFValue this) => (this) {- ^ this -} -> (HoppyP.IO M116.QPointFConst)+arrayConst arg'1 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M116.QPointFConst+  (arrayConst' arg'1')++endsWith :: (QVectorQPointFValue this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QVectorQPointFValue this) => (this) {- ^ this -} -> (HoppyP.IO M116.QPointFConst)+firstConst arg'1 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M116.QPointFConst+  (firstConst' arg'1')++get :: (QVectorQPointFValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HPointF.HPointF)+get arg'1 arg'2 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (get' arg'1' arg'2')++indexOf :: (QVectorQPointFValue this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QVectorQPointFValue this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QVectorQPointFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QVectorQPointFValue this) => (this) {- ^ this -} -> (HoppyP.IO M116.QPointFConst)+lastConst arg'1 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M116.QPointFConst+  (lastConst' arg'1')++lastIndexOf :: (QVectorQPointFValue this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QVectorQPointFValue this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QVectorQPointFValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QVectorQPointF)+mid arg'1 arg'2 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQPointF+  (mid' arg'1' arg'2')++midLength :: (QVectorQPointFValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QVectorQPointF)+midLength arg'1 arg'2 arg'3 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQPointF+  (midLength' arg'1' arg'2' arg'3')++size :: (QVectorQPointFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QVectorQPointFValue this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QVectorQPointFValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HPointF.HPointF)+value arg'1 arg'2 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (value' arg'1' arg'2')++valueOr :: (QVectorQPointFValue this, M116.QPointFValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO HPointF.HPointF)+valueOr arg'1 arg'2 arg'3 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M116.withQPointFPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QVectorQPointFValue this, QVectorQPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQPointF)+aDD arg'1 arg'2 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVectorQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQPointF+  (aDD' arg'1' arg'2')++class (QVectorQPointFConstPtr this) => QVectorQPointFPtr this where+  toQVectorQPointF :: this -> QVectorQPointF++append :: (QVectorQPointFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (append' arg'1' arg'2')++appendVector :: (QVectorQPointFPtr this, QVectorQPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendVector arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  withQVectorQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendVector' arg'1' arg'2')++at :: (QVectorQPointFPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M116.QPointF)+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M116.QPointF+  (at' arg'1' arg'2')++clear :: (QVectorQPointFPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  (clear' arg'1')++array :: (QVectorQPointFPtr this) => (this) {- ^ this -} -> (HoppyP.IO M116.QPointF)+array arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  HoppyP.fmap M116.QPointF+  (array' arg'1')++fill :: (QVectorQPointFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+fill arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (fill' arg'1' arg'2')++fillResize :: (QVectorQPointFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO ())+fillResize arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (fillResize' arg'1' arg'2' arg'3')++first :: (QVectorQPointFPtr this) => (this) {- ^ this -} -> (HoppyP.IO M116.QPointF)+first arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  HoppyP.fmap M116.QPointF+  (first' arg'1')++insert :: (QVectorQPointFPtr this, M116.QPointFValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M116.withQPointFPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++insertMany :: (QVectorQPointFPtr this, M116.QPointFValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO ())+insertMany arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M116.withQPointFPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (insertMany' arg'1' arg'2' arg'3' arg'4')++last :: (QVectorQPointFPtr this) => (this) {- ^ this -} -> (HoppyP.IO M116.QPointF)+last arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  HoppyP.fmap M116.QPointF+  (last' arg'1')++prepend :: (QVectorQPointFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (prepend' arg'1' arg'2')++remove :: (QVectorQPointFPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+remove arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (remove' arg'1' arg'2')++removeMany :: (QVectorQPointFPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+removeMany arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (removeMany' arg'1' arg'2' arg'3')++removeAll :: (QVectorQPointFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeFirst :: (QVectorQPointFPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QVectorQPointFPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QVectorQPointFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QVectorQPointFPtr this, M116.QPointFValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M116.withQPointFPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QVectorQPointFPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++resize :: (QVectorQPointFPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+resize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (resize' arg'1' arg'2')++squeeze :: (QVectorQPointFPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+squeeze arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  (squeeze' arg'1')++swap :: (QVectorQPointFPtr this, QVectorQPointFPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQVectorQPointF arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++takeAt :: (QVectorQPointFPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HPointF.HPointF)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QVectorQPointFPtr this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (takeFirst' arg'1')++takeLast :: (QVectorQPointFPtr this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (takeLast' arg'1')++aSSIGN :: (QVectorQPointFPtr this, QVectorQPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQPointF)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQPointF arg'1) $ \arg'1' ->+  withQVectorQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQPointF+  (aSSIGN' arg'1' arg'2')++data QVectorQPointFConst =+    QVectorQPointFConst (HoppyF.Ptr QVectorQPointFConst)+  | QVectorQPointFConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQPointFConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQPointFConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQPointFConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQPointFToConst :: QVectorQPointF -> QVectorQPointFConst+castQVectorQPointFToConst (QVectorQPointF ptr') = QVectorQPointFConst $ HoppyF.castPtr ptr'+castQVectorQPointFToConst (QVectorQPointFGc fptr' ptr') = QVectorQPointFConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQPointFConst where+  nullptr = QVectorQPointFConst HoppyF.nullPtr+  +  withCppPtr (QVectorQPointFConst ptr') f' = f' ptr'+  withCppPtr (QVectorQPointFConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQPointFConst ptr') = ptr'+  toPtr (QVectorQPointFConstGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQPointFConst _) = HoppyP.return ()+  touchCppPtr (QVectorQPointFConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQPointFConst where+  delete (QVectorQPointFConst ptr') = delete'QVectorQPointF ptr'+  delete (QVectorQPointFConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQPointFConst", " object."]+  +  toGc this'@(QVectorQPointFConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQPointFConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQPointF :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQPointFConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQPointFConst QVectorQPointF where copy = newCopy++instance QVectorQPointFConstPtr QVectorQPointFConst where+  toQVectorQPointFConst = HoppyP.id++data QVectorQPointF =+    QVectorQPointF (HoppyF.Ptr QVectorQPointF)+  | QVectorQPointFGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQPointF)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQPointF where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQPointF where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQPointFToNonconst :: QVectorQPointFConst -> QVectorQPointF+castQVectorQPointFToNonconst (QVectorQPointFConst ptr') = QVectorQPointF $ HoppyF.castPtr ptr'+castQVectorQPointFToNonconst (QVectorQPointFConstGc fptr' ptr') = QVectorQPointFGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQPointF where+  nullptr = QVectorQPointF HoppyF.nullPtr+  +  withCppPtr (QVectorQPointF ptr') f' = f' ptr'+  withCppPtr (QVectorQPointFGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQPointF ptr') = ptr'+  toPtr (QVectorQPointFGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQPointF _) = HoppyP.return ()+  touchCppPtr (QVectorQPointFGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQPointF where+  delete (QVectorQPointF ptr') = delete'QVectorQPointF $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QVectorQPointFConst)+  delete (QVectorQPointFGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQPointF", " object."]+  +  toGc this'@(QVectorQPointF ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQPointFGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQPointF :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQPointFGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQPointF QVectorQPointF where copy = newCopy++instance QVectorQPointFConstPtr QVectorQPointF where+  toQVectorQPointFConst (QVectorQPointF ptr') = QVectorQPointFConst $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQPointF -> HoppyF.Ptr QVectorQPointFConst) ptr'+  toQVectorQPointFConst (QVectorQPointFGc fptr' ptr') = QVectorQPointFConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQPointF -> HoppyF.Ptr QVectorQPointFConst) ptr'++instance QVectorQPointFPtr QVectorQPointF where+  toQVectorQPointF = HoppyP.id++new :: (HoppyP.IO QVectorQPointF)+new =+  HoppyP.fmap QVectorQPointF+  (new')++newWithSize :: (HoppyP.Int) -> (HoppyP.IO QVectorQPointF)+newWithSize arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVectorQPointF+  (newWithSize' arg'1')++newWithSizeAndValue :: (M116.QPointFValue arg'2) => (HoppyP.Int) -> (arg'2) -> (HoppyP.IO QVectorQPointF)+newWithSizeAndValue arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQPointF+  (newWithSizeAndValue' arg'1' arg'2')++newCopy :: (QVectorQPointFValue arg'1) => (arg'1) -> (HoppyP.IO QVectorQPointF)+newCopy arg'1 =+  withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVectorQPointF+  (newCopy' arg'1')++class QVectorQPointFSuper a where+  downToQVectorQPointF :: a -> QVectorQPointF+++class QVectorQPointFSuperConst a where+  downToQVectorQPointFConst :: a -> QVectorQPointFConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QVectorQPointF)) QVectorQPointF where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QVectorQPointFValue a => HoppyFHR.Assignable QVectorQPointF a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QVectorQPointF)) QVectorQPointF where+  decode = HoppyP.fmap QVectorQPointF . HoppyF.peek++instance QtahFHR.HasContents QVectorQPointFConst (HPointF.HPointF) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QVectorQPointF (HPointF.HPointF) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QVectorQPointF (HPointF.HPointF) where+  fromContents values' = do+    vector' <- new+    reserve vector' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append vector') values'+    QtahP.return vector'
src/Graphics/UI/Qtah/Generated/Core/QVector/QRgb.hs view
@@ -0,0 +1,657 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QVector.QRgb (+  QVectorQRgbValue (..),+  QVectorQRgbConstPtr (..),+  atConst,+  capacity,+  contains,+  count,+  arrayConst,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QVectorQRgbPtr (..),+  append,+  appendVector,+  at,+  clear,+  array,+  fill,+  fillResize,+  first,+  insert,+  insertMany,+  last,+  prepend,+  remove,+  removeMany,+  removeAll,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  resize,+  squeeze,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QVectorQRgbConst (..),+  castQVectorQRgbToConst,+  QVectorQRgb (..),+  castQVectorQRgbToNonconst,+  new,+  newWithSize,+  newWithSizeAndValue,+  newCopy,+  QVectorQRgbSuper (..),+  QVectorQRgbSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QVectorQRgb_new" new' ::  HoppyP.IO (HoppyF.Ptr QVectorQRgb)+foreign import ccall "genpop__QVectorQRgb_newWithSize" newWithSize' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQRgb)+foreign import ccall "genpop__QVectorQRgb_newWithSizeAndValue" newWithSizeAndValue' ::  HoppyFC.CInt -> HoppyFC.CUInt -> HoppyP.IO (HoppyF.Ptr QVectorQRgb)+foreign import ccall "genpop__QVectorQRgb_newCopy" newCopy' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyP.IO (HoppyF.Ptr QVectorQRgb)+foreign import ccall "genpop__QVectorQRgb_append" append' ::  HoppyF.Ptr QVectorQRgb -> HoppyFC.CUInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_appendVector" appendVector' ::  HoppyF.Ptr QVectorQRgb -> HoppyF.Ptr QVectorQRgbConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_at" at' ::  HoppyF.Ptr QVectorQRgb -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt)+foreign import ccall "genpop__QVectorQRgb_atConst" atConst' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt)+foreign import ccall "genpop__QVectorQRgb_capacity" capacity' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQRgb_clear" clear' ::  HoppyF.Ptr QVectorQRgb -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_contains" contains' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQRgb_count" count' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQRgb_array" array' ::  HoppyF.Ptr QVectorQRgb -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt)+foreign import ccall "genpop__QVectorQRgb_arrayConst" arrayConst' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt)+foreign import ccall "genpop__QVectorQRgb_endsWith" endsWith' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQRgb_fill" fill' ::  HoppyF.Ptr QVectorQRgb -> HoppyFC.CUInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_fillResize" fillResize' ::  HoppyF.Ptr QVectorQRgb -> HoppyFC.CUInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_first" first' ::  HoppyF.Ptr QVectorQRgb -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt)+foreign import ccall "genpop__QVectorQRgb_firstConst" firstConst' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt)+foreign import ccall "genpop__QVectorQRgb_get" get' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QVectorQRgb_indexOf" indexOf' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQRgb_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyFC.CUInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQRgb_insert" insert' ::  HoppyF.Ptr QVectorQRgb -> HoppyFC.CInt -> HoppyFC.CUInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_insertMany" insertMany' ::  HoppyF.Ptr QVectorQRgb -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CUInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_isEmpty" isEmpty' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQRgb_last" last' ::  HoppyF.Ptr QVectorQRgb -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt)+foreign import ccall "genpop__QVectorQRgb_lastConst" lastConst' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt)+foreign import ccall "genpop__QVectorQRgb_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQRgb_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyFC.CUInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQRgb_mid" mid' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQRgb)+foreign import ccall "genpop__QVectorQRgb_midLength" midLength' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQRgb)+foreign import ccall "genpop__QVectorQRgb_prepend" prepend' ::  HoppyF.Ptr QVectorQRgb -> HoppyFC.CUInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_remove" remove' ::  HoppyF.Ptr QVectorQRgb -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_removeMany" removeMany' ::  HoppyF.Ptr QVectorQRgb -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_removeAll" removeAll' ::  HoppyF.Ptr QVectorQRgb -> HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQRgb_removeFirst" removeFirst' ::  HoppyF.Ptr QVectorQRgb -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_removeLast" removeLast' ::  HoppyF.Ptr QVectorQRgb -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_removeOne" removeOne' ::  HoppyF.Ptr QVectorQRgb -> HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQRgb_replace" replace' ::  HoppyF.Ptr QVectorQRgb -> HoppyFC.CInt -> HoppyFC.CUInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_reserve" reserve' ::  HoppyF.Ptr QVectorQRgb -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_resize" resize' ::  HoppyF.Ptr QVectorQRgb -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_size" size' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQRgb_squeeze" squeeze' ::  HoppyF.Ptr QVectorQRgb -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_startsWith" startsWith' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyFC.CUInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQRgb_swap" swap' ::  HoppyF.Ptr QVectorQRgb -> HoppyF.Ptr QVectorQRgb -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQRgb_takeAt" takeAt' ::  HoppyF.Ptr QVectorQRgb -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QVectorQRgb_takeFirst" takeFirst' ::  HoppyF.Ptr QVectorQRgb -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QVectorQRgb_takeLast" takeLast' ::  HoppyF.Ptr QVectorQRgb -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QVectorQRgb_value" value' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QVectorQRgb_valueOr" valueOr' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyFC.CInt -> HoppyFC.CUInt -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QVectorQRgb_ADD" aDD' ::  HoppyF.Ptr QVectorQRgbConst -> HoppyF.Ptr QVectorQRgbConst -> HoppyP.IO (HoppyF.Ptr QVectorQRgb)+foreign import ccall "genpop__QVectorQRgb_ASSIGN" aSSIGN' ::  HoppyF.Ptr QVectorQRgb -> HoppyF.Ptr QVectorQRgbConst -> HoppyP.IO (HoppyF.Ptr QVectorQRgb)+foreign import ccall "gendel__QVectorQRgb" delete'QVectorQRgb :: HoppyF.Ptr QVectorQRgbConst -> HoppyP.IO ()+foreign import ccall "&gendel__QVectorQRgb" deletePtr'QVectorQRgb :: HoppyF.FunPtr (HoppyF.Ptr QVectorQRgbConst -> HoppyP.IO ())++class QVectorQRgbValue a where+  withQVectorQRgbPtr :: a -> (QVectorQRgbConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QVectorQRgbConstPtr a => QVectorQRgbValue a where+  withQVectorQRgbPtr = HoppyP.flip ($) . toQVectorQRgbConst++class (HoppyFHR.CppPtr this) => QVectorQRgbConstPtr this where+  toQVectorQRgbConst :: this -> QVectorQRgbConst++atConst :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt))+atConst arg'1 arg'2 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (atConst' arg'1' arg'2')++capacity :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+capacity arg'1 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (capacity' arg'1')++contains :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++arrayConst :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt))+arrayConst arg'1 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (arrayConst' arg'1')++endsWith :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt))+firstConst arg'1 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (firstConst' arg'1')++get :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyFC.CUInt)+get arg'1 arg'2 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (get' arg'1' arg'2')++indexOf :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt))+lastConst arg'1 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (lastConst' arg'1')++lastIndexOf :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QVectorQRgb)+mid arg'1 arg'2 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQRgb+  (mid' arg'1' arg'2')++midLength :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QVectorQRgb)+midLength arg'1 arg'2 arg'3 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQRgb+  (midLength' arg'1' arg'2' arg'3')++size :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyFC.CUInt)+value arg'1 arg'2 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (value' arg'1' arg'2')++valueOr :: (QVectorQRgbValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyFC.CUInt) -> (HoppyP.IO HoppyFC.CUInt)+valueOr arg'1 arg'2 arg'3 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QVectorQRgbValue this, QVectorQRgbValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQRgb)+aDD arg'1 arg'2 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVectorQRgbPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQRgb+  (aDD' arg'1' arg'2')++class (QVectorQRgbConstPtr this) => QVectorQRgbPtr this where+  toQVectorQRgb :: this -> QVectorQRgb++append :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (append' arg'1' arg'2')++appendVector :: (QVectorQRgbPtr this, QVectorQRgbValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendVector arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  withQVectorQRgbPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendVector' arg'1' arg'2')++at :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt))+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (at' arg'1' arg'2')++clear :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (clear' arg'1')++array :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt))+array arg'1 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (array' arg'1')++fill :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO ())+fill arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (fill' arg'1' arg'2')++fillResize :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.Int) -> (HoppyP.IO ())+fillResize arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (fillResize' arg'1' arg'2' arg'3')++first :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt))+first arg'1 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (first' arg'1')++insert :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyFC.CUInt) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  (insert' arg'1' arg'2' arg'3')++insertMany :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyFC.CUInt) -> (HoppyP.IO ())+insertMany arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  let arg'4' = arg'4 in+  (insertMany' arg'1' arg'2' arg'3' arg'4')++last :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUInt))+last arg'1 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (last' arg'1')++prepend :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (prepend' arg'1' arg'2')++remove :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+remove arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (remove' arg'1' arg'2')++removeMany :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+removeMany arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (removeMany' arg'1' arg'2' arg'3')++removeAll :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeFirst :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyFC.CUInt) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  (replace' arg'1' arg'2' arg'3')++reserve :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++resize :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+resize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (resize' arg'1' arg'2')++squeeze :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+squeeze arg'1 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (squeeze' arg'1')++swap :: (QVectorQRgbPtr this, QVectorQRgbPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQVectorQRgb arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++takeAt :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyFC.CUInt)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (takeAt' arg'1' arg'2')++takeFirst :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CUInt)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (takeFirst' arg'1')++takeLast :: (QVectorQRgbPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CUInt)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  (takeLast' arg'1')++aSSIGN :: (QVectorQRgbPtr this, QVectorQRgbValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQRgb)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQRgb arg'1) $ \arg'1' ->+  withQVectorQRgbPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQRgb+  (aSSIGN' arg'1' arg'2')++data QVectorQRgbConst =+    QVectorQRgbConst (HoppyF.Ptr QVectorQRgbConst)+  | QVectorQRgbConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQRgbConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQRgbConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQRgbConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQRgbToConst :: QVectorQRgb -> QVectorQRgbConst+castQVectorQRgbToConst (QVectorQRgb ptr') = QVectorQRgbConst $ HoppyF.castPtr ptr'+castQVectorQRgbToConst (QVectorQRgbGc fptr' ptr') = QVectorQRgbConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQRgbConst where+  nullptr = QVectorQRgbConst HoppyF.nullPtr+  +  withCppPtr (QVectorQRgbConst ptr') f' = f' ptr'+  withCppPtr (QVectorQRgbConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQRgbConst ptr') = ptr'+  toPtr (QVectorQRgbConstGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQRgbConst _) = HoppyP.return ()+  touchCppPtr (QVectorQRgbConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQRgbConst where+  delete (QVectorQRgbConst ptr') = delete'QVectorQRgb ptr'+  delete (QVectorQRgbConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQRgbConst", " object."]+  +  toGc this'@(QVectorQRgbConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQRgbConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQRgb :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQRgbConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQRgbConst QVectorQRgb where copy = newCopy++instance QVectorQRgbConstPtr QVectorQRgbConst where+  toQVectorQRgbConst = HoppyP.id++data QVectorQRgb =+    QVectorQRgb (HoppyF.Ptr QVectorQRgb)+  | QVectorQRgbGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQRgb)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQRgb where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQRgb where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQRgbToNonconst :: QVectorQRgbConst -> QVectorQRgb+castQVectorQRgbToNonconst (QVectorQRgbConst ptr') = QVectorQRgb $ HoppyF.castPtr ptr'+castQVectorQRgbToNonconst (QVectorQRgbConstGc fptr' ptr') = QVectorQRgbGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQRgb where+  nullptr = QVectorQRgb HoppyF.nullPtr+  +  withCppPtr (QVectorQRgb ptr') f' = f' ptr'+  withCppPtr (QVectorQRgbGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQRgb ptr') = ptr'+  toPtr (QVectorQRgbGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQRgb _) = HoppyP.return ()+  touchCppPtr (QVectorQRgbGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQRgb where+  delete (QVectorQRgb ptr') = delete'QVectorQRgb $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QVectorQRgbConst)+  delete (QVectorQRgbGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQRgb", " object."]+  +  toGc this'@(QVectorQRgb ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQRgbGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQRgb :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQRgbGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQRgb QVectorQRgb where copy = newCopy++instance QVectorQRgbConstPtr QVectorQRgb where+  toQVectorQRgbConst (QVectorQRgb ptr') = QVectorQRgbConst $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQRgb -> HoppyF.Ptr QVectorQRgbConst) ptr'+  toQVectorQRgbConst (QVectorQRgbGc fptr' ptr') = QVectorQRgbConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQRgb -> HoppyF.Ptr QVectorQRgbConst) ptr'++instance QVectorQRgbPtr QVectorQRgb where+  toQVectorQRgb = HoppyP.id++new :: (HoppyP.IO QVectorQRgb)+new =+  HoppyP.fmap QVectorQRgb+  (new')++newWithSize :: (HoppyP.Int) -> (HoppyP.IO QVectorQRgb)+newWithSize arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVectorQRgb+  (newWithSize' arg'1')++newWithSizeAndValue :: (HoppyP.Int) -> (HoppyFC.CUInt) -> (HoppyP.IO QVectorQRgb)+newWithSizeAndValue arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QVectorQRgb+  (newWithSizeAndValue' arg'1' arg'2')++newCopy :: (QVectorQRgbValue arg'1) => (arg'1) -> (HoppyP.IO QVectorQRgb)+newCopy arg'1 =+  withQVectorQRgbPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVectorQRgb+  (newCopy' arg'1')++class QVectorQRgbSuper a where+  downToQVectorQRgb :: a -> QVectorQRgb+++class QVectorQRgbSuperConst a where+  downToQVectorQRgbConst :: a -> QVectorQRgbConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QVectorQRgb)) QVectorQRgb where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QVectorQRgbValue a => HoppyFHR.Assignable QVectorQRgb a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QVectorQRgb)) QVectorQRgb where+  decode = HoppyP.fmap QVectorQRgb . HoppyF.peek++instance QtahFHR.HasContents QVectorQRgbConst (HoppyFC.CUInt) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QVectorQRgb (HoppyFC.CUInt) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QVectorQRgb (HoppyFC.CUInt) where+  fromContents values' = do+    vector' <- new+    reserve vector' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append vector') values'+    QtahP.return vector'
src/Graphics/UI/Qtah/Generated/Core/QVector/QString.hs view
@@ -0,0 +1,672 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QVector.QString (+  QVectorQStringValue (..),+  QVectorQStringConstPtr (..),+  atConst,+  capacity,+  contains,+  count,+  arrayConst,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QVectorQStringPtr (..),+  append,+  appendVector,+  at,+  clear,+  array,+  fill,+  fillResize,+  first,+  insert,+  insertMany,+  last,+  prepend,+  remove,+  removeMany,+  removeAll,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  resize,+  squeeze,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QVectorQStringConst (..),+  castQVectorQStringToConst,+  QVectorQString (..),+  castQVectorQStringToNonconst,+  new,+  newWithSize,+  newWithSizeAndValue,+  newCopy,+  QVectorQStringSuper (..),+  QVectorQStringSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QVectorQString_new" new' ::  HoppyP.IO (HoppyF.Ptr QVectorQString)+foreign import ccall "genpop__QVectorQString_newWithSize" newWithSize' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQString)+foreign import ccall "genpop__QVectorQString_newWithSizeAndValue" newWithSizeAndValue' ::  HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QVectorQString)+foreign import ccall "genpop__QVectorQString_newCopy" newCopy' ::  HoppyF.Ptr QVectorQStringConst -> HoppyP.IO (HoppyF.Ptr QVectorQString)+foreign import ccall "genpop__QVectorQString_append" append' ::  HoppyF.Ptr QVectorQString -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_appendVector" appendVector' ::  HoppyF.Ptr QVectorQString -> HoppyF.Ptr QVectorQStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_at" at' ::  HoppyF.Ptr QVectorQString -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QString)+foreign import ccall "genpop__QVectorQString_atConst" atConst' ::  HoppyF.Ptr QVectorQStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QVectorQString_capacity" capacity' ::  HoppyF.Ptr QVectorQStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQString_clear" clear' ::  HoppyF.Ptr QVectorQString -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_contains" contains' ::  HoppyF.Ptr QVectorQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQString_count" count' ::  HoppyF.Ptr QVectorQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQString_array" array' ::  HoppyF.Ptr QVectorQString -> HoppyP.IO (HoppyF.Ptr M142.QString)+foreign import ccall "genpop__QVectorQString_arrayConst" arrayConst' ::  HoppyF.Ptr QVectorQStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QVectorQString_endsWith" endsWith' ::  HoppyF.Ptr QVectorQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQString_fill" fill' ::  HoppyF.Ptr QVectorQString -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_fillResize" fillResize' ::  HoppyF.Ptr QVectorQString -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_first" first' ::  HoppyF.Ptr QVectorQString -> HoppyP.IO (HoppyF.Ptr M142.QString)+foreign import ccall "genpop__QVectorQString_firstConst" firstConst' ::  HoppyF.Ptr QVectorQStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QVectorQString_get" get' ::  HoppyF.Ptr QVectorQStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QVectorQString_indexOf" indexOf' ::  HoppyF.Ptr QVectorQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQString_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QVectorQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQString_insert" insert' ::  HoppyF.Ptr QVectorQString -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_insertMany" insertMany' ::  HoppyF.Ptr QVectorQString -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_isEmpty" isEmpty' ::  HoppyF.Ptr QVectorQStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQString_last" last' ::  HoppyF.Ptr QVectorQString -> HoppyP.IO (HoppyF.Ptr M142.QString)+foreign import ccall "genpop__QVectorQString_lastConst" lastConst' ::  HoppyF.Ptr QVectorQStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QVectorQString_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QVectorQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQString_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QVectorQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQString_mid" mid' ::  HoppyF.Ptr QVectorQStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQString)+foreign import ccall "genpop__QVectorQString_midLength" midLength' ::  HoppyF.Ptr QVectorQStringConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQString)+foreign import ccall "genpop__QVectorQString_prepend" prepend' ::  HoppyF.Ptr QVectorQString -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_remove" remove' ::  HoppyF.Ptr QVectorQString -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_removeMany" removeMany' ::  HoppyF.Ptr QVectorQString -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_removeAll" removeAll' ::  HoppyF.Ptr QVectorQString -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQString_removeFirst" removeFirst' ::  HoppyF.Ptr QVectorQString -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_removeLast" removeLast' ::  HoppyF.Ptr QVectorQString -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_removeOne" removeOne' ::  HoppyF.Ptr QVectorQString -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQString_replace" replace' ::  HoppyF.Ptr QVectorQString -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_reserve" reserve' ::  HoppyF.Ptr QVectorQString -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_resize" resize' ::  HoppyF.Ptr QVectorQString -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_size" size' ::  HoppyF.Ptr QVectorQStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQString_squeeze" squeeze' ::  HoppyF.Ptr QVectorQString -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_startsWith" startsWith' ::  HoppyF.Ptr QVectorQStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQString_swap" swap' ::  HoppyF.Ptr QVectorQString -> HoppyF.Ptr QVectorQString -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQString_takeAt" takeAt' ::  HoppyF.Ptr QVectorQString -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QVectorQString_takeFirst" takeFirst' ::  HoppyF.Ptr QVectorQString -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QVectorQString_takeLast" takeLast' ::  HoppyF.Ptr QVectorQString -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QVectorQString_value" value' ::  HoppyF.Ptr QVectorQStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QVectorQString_valueOr" valueOr' ::  HoppyF.Ptr QVectorQStringConst -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QVectorQString_ADD" aDD' ::  HoppyF.Ptr QVectorQStringConst -> HoppyF.Ptr QVectorQStringConst -> HoppyP.IO (HoppyF.Ptr QVectorQString)+foreign import ccall "genpop__QVectorQString_ASSIGN" aSSIGN' ::  HoppyF.Ptr QVectorQString -> HoppyF.Ptr QVectorQStringConst -> HoppyP.IO (HoppyF.Ptr QVectorQString)+foreign import ccall "gendel__QVectorQString" delete'QVectorQString :: HoppyF.Ptr QVectorQStringConst -> HoppyP.IO ()+foreign import ccall "&gendel__QVectorQString" deletePtr'QVectorQString :: HoppyF.FunPtr (HoppyF.Ptr QVectorQStringConst -> HoppyP.IO ())++class QVectorQStringValue a where+  withQVectorQStringPtr :: a -> (QVectorQStringConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QVectorQStringConstPtr a => QVectorQStringValue a where+  withQVectorQStringPtr = HoppyP.flip ($) . toQVectorQStringConst++class (HoppyFHR.CppPtr this) => QVectorQStringConstPtr this where+  toQVectorQStringConst :: this -> QVectorQStringConst++atConst :: (QVectorQStringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M142.QStringConst)+atConst arg'1 arg'2 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M142.QStringConst+  (atConst' arg'1' arg'2')++capacity :: (QVectorQStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+capacity arg'1 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (capacity' arg'1')++contains :: (QVectorQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QVectorQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++arrayConst :: (QVectorQStringValue this) => (this) {- ^ this -} -> (HoppyP.IO M142.QStringConst)+arrayConst arg'1 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M142.QStringConst+  (arrayConst' arg'1')++endsWith :: (QVectorQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QVectorQStringValue this) => (this) {- ^ this -} -> (HoppyP.IO M142.QStringConst)+firstConst arg'1 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M142.QStringConst+  (firstConst' arg'1')++get :: (QVectorQStringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+get arg'1 arg'2 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (get' arg'1' arg'2')++indexOf :: (QVectorQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QVectorQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QVectorQStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QVectorQStringValue this) => (this) {- ^ this -} -> (HoppyP.IO M142.QStringConst)+lastConst arg'1 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M142.QStringConst+  (lastConst' arg'1')++lastIndexOf :: (QVectorQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QVectorQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QVectorQStringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QVectorQString)+mid arg'1 arg'2 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQString+  (mid' arg'1' arg'2')++midLength :: (QVectorQStringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QVectorQString)+midLength arg'1 arg'2 arg'3 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQString+  (midLength' arg'1' arg'2' arg'3')++size :: (QVectorQStringValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QVectorQStringValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QVectorQStringValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+value arg'1 arg'2 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (value' arg'1' arg'2')++valueOr :: (QVectorQStringValue this, M142.QStringValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO QtahP.String)+valueOr arg'1 arg'2 arg'3 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QVectorQStringValue this, QVectorQStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQString)+aDD arg'1 arg'2 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVectorQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQString+  (aDD' arg'1' arg'2')++class (QVectorQStringConstPtr this) => QVectorQStringPtr this where+  toQVectorQString :: this -> QVectorQString++append :: (QVectorQStringPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (append' arg'1' arg'2')++appendVector :: (QVectorQStringPtr this, QVectorQStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendVector arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  withQVectorQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendVector' arg'1' arg'2')++at :: (QVectorQStringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M142.QString)+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M142.QString+  (at' arg'1' arg'2')++clear :: (QVectorQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  (clear' arg'1')++array :: (QVectorQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO M142.QString)+array arg'1 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  HoppyP.fmap M142.QString+  (array' arg'1')++fill :: (QVectorQStringPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+fill arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (fill' arg'1' arg'2')++fillResize :: (QVectorQStringPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO ())+fillResize arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (fillResize' arg'1' arg'2' arg'3')++first :: (QVectorQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO M142.QString)+first arg'1 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  HoppyP.fmap M142.QString+  (first' arg'1')++insert :: (QVectorQStringPtr this, M142.QStringValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++insertMany :: (QVectorQStringPtr this, M142.QStringValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO ())+insertMany arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (insertMany' arg'1' arg'2' arg'3' arg'4')++last :: (QVectorQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO M142.QString)+last arg'1 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  HoppyP.fmap M142.QString+  (last' arg'1')++prepend :: (QVectorQStringPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (prepend' arg'1' arg'2')++remove :: (QVectorQStringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+remove arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (remove' arg'1' arg'2')++removeMany :: (QVectorQStringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+removeMany arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (removeMany' arg'1' arg'2' arg'3')++removeAll :: (QVectorQStringPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeFirst :: (QVectorQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QVectorQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QVectorQStringPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QVectorQStringPtr this, M142.QStringValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QVectorQStringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++resize :: (QVectorQStringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+resize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (resize' arg'1' arg'2')++squeeze :: (QVectorQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+squeeze arg'1 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  (squeeze' arg'1')++swap :: (QVectorQStringPtr this, QVectorQStringPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQVectorQString arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++takeAt :: (QVectorQStringPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahP.String)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QVectorQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (takeFirst' arg'1')++takeLast :: (QVectorQStringPtr this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (takeLast' arg'1')++aSSIGN :: (QVectorQStringPtr this, QVectorQStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQString)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQString arg'1) $ \arg'1' ->+  withQVectorQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQString+  (aSSIGN' arg'1' arg'2')++data QVectorQStringConst =+    QVectorQStringConst (HoppyF.Ptr QVectorQStringConst)+  | QVectorQStringConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQStringConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQStringConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQStringConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQStringToConst :: QVectorQString -> QVectorQStringConst+castQVectorQStringToConst (QVectorQString ptr') = QVectorQStringConst $ HoppyF.castPtr ptr'+castQVectorQStringToConst (QVectorQStringGc fptr' ptr') = QVectorQStringConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQStringConst where+  nullptr = QVectorQStringConst HoppyF.nullPtr+  +  withCppPtr (QVectorQStringConst ptr') f' = f' ptr'+  withCppPtr (QVectorQStringConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQStringConst ptr') = ptr'+  toPtr (QVectorQStringConstGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQStringConst _) = HoppyP.return ()+  touchCppPtr (QVectorQStringConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQStringConst where+  delete (QVectorQStringConst ptr') = delete'QVectorQString ptr'+  delete (QVectorQStringConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQStringConst", " object."]+  +  toGc this'@(QVectorQStringConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQStringConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQString :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQStringConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQStringConst QVectorQString where copy = newCopy++instance QVectorQStringConstPtr QVectorQStringConst where+  toQVectorQStringConst = HoppyP.id++data QVectorQString =+    QVectorQString (HoppyF.Ptr QVectorQString)+  | QVectorQStringGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQString)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQString where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQString where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQStringToNonconst :: QVectorQStringConst -> QVectorQString+castQVectorQStringToNonconst (QVectorQStringConst ptr') = QVectorQString $ HoppyF.castPtr ptr'+castQVectorQStringToNonconst (QVectorQStringConstGc fptr' ptr') = QVectorQStringGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQString where+  nullptr = QVectorQString HoppyF.nullPtr+  +  withCppPtr (QVectorQString ptr') f' = f' ptr'+  withCppPtr (QVectorQStringGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQString ptr') = ptr'+  toPtr (QVectorQStringGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQString _) = HoppyP.return ()+  touchCppPtr (QVectorQStringGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQString where+  delete (QVectorQString ptr') = delete'QVectorQString $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QVectorQStringConst)+  delete (QVectorQStringGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQString", " object."]+  +  toGc this'@(QVectorQString ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQStringGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQString :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQStringGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQString QVectorQString where copy = newCopy++instance QVectorQStringConstPtr QVectorQString where+  toQVectorQStringConst (QVectorQString ptr') = QVectorQStringConst $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQString -> HoppyF.Ptr QVectorQStringConst) ptr'+  toQVectorQStringConst (QVectorQStringGc fptr' ptr') = QVectorQStringConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQString -> HoppyF.Ptr QVectorQStringConst) ptr'++instance QVectorQStringPtr QVectorQString where+  toQVectorQString = HoppyP.id++new :: (HoppyP.IO QVectorQString)+new =+  HoppyP.fmap QVectorQString+  (new')++newWithSize :: (HoppyP.Int) -> (HoppyP.IO QVectorQString)+newWithSize arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVectorQString+  (newWithSize' arg'1')++newWithSizeAndValue :: (M142.QStringValue arg'2) => (HoppyP.Int) -> (arg'2) -> (HoppyP.IO QVectorQString)+newWithSizeAndValue arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQString+  (newWithSizeAndValue' arg'1' arg'2')++newCopy :: (QVectorQStringValue arg'1) => (arg'1) -> (HoppyP.IO QVectorQString)+newCopy arg'1 =+  withQVectorQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVectorQString+  (newCopy' arg'1')++class QVectorQStringSuper a where+  downToQVectorQString :: a -> QVectorQString+++class QVectorQStringSuperConst a where+  downToQVectorQStringConst :: a -> QVectorQStringConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QVectorQString)) QVectorQString where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QVectorQStringValue a => HoppyFHR.Assignable QVectorQString a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QVectorQString)) QVectorQString where+  decode = HoppyP.fmap QVectorQString . HoppyF.peek++instance QtahFHR.HasContents QVectorQStringConst (QtahP.String) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QVectorQString (QtahP.String) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QVectorQString (QtahP.String) where+  fromContents values' = do+    vector' <- new+    reserve vector' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append vector') values'+    QtahP.return vector'
src/Graphics/UI/Qtah/Generated/Core/QVector/QXmlStreamAttribute.hs view
@@ -0,0 +1,672 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QVector.QXmlStreamAttribute (+  QVectorQXmlStreamAttributeValue (..),+  QVectorQXmlStreamAttributeConstPtr (..),+  atConst,+  capacity,+  contains,+  count,+  arrayConst,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QVectorQXmlStreamAttributePtr (..),+  append,+  appendVector,+  at,+  clear,+  array,+  fill,+  fillResize,+  first,+  insert,+  insertMany,+  last,+  prepend,+  remove,+  removeMany,+  removeAll,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  resize,+  squeeze,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QVectorQXmlStreamAttributeConst (..),+  castQVectorQXmlStreamAttributeToConst,+  QVectorQXmlStreamAttribute (..),+  castQVectorQXmlStreamAttributeToNonconst,+  new,+  newWithSize,+  newWithSizeAndValue,+  newCopy,+  QVectorQXmlStreamAttributeSuper (..),+  QVectorQXmlStreamAttributeSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QXmlStreamAttribute as M174+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QVectorQXmlStreamAttribute_new" new' ::  HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamAttribute)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_newWithSize" newWithSize' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamAttribute)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_newWithSizeAndValue" newWithSizeAndValue' ::  HoppyFC.CInt -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamAttribute)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_newCopy" newCopy' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamAttribute)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_append" append' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_appendVector" appendVector' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_at" at' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M174.QXmlStreamAttribute)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_atConst" atConst' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M174.QXmlStreamAttributeConst)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_capacity" capacity' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamAttribute_clear" clear' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_contains" contains' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQXmlStreamAttribute_count" count' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamAttribute_array" array' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyP.IO (HoppyF.Ptr M174.QXmlStreamAttribute)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_arrayConst" arrayConst' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyP.IO (HoppyF.Ptr M174.QXmlStreamAttributeConst)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_endsWith" endsWith' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQXmlStreamAttribute_fill" fill' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_fillResize" fillResize' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_first" first' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyP.IO (HoppyF.Ptr M174.QXmlStreamAttribute)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_firstConst" firstConst' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyP.IO (HoppyF.Ptr M174.QXmlStreamAttributeConst)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_get" get' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M174.QXmlStreamAttributeConst)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_indexOf" indexOf' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamAttribute_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamAttribute_insert" insert' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyFC.CInt -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_insertMany" insertMany' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_isEmpty" isEmpty' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQXmlStreamAttribute_last" last' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyP.IO (HoppyF.Ptr M174.QXmlStreamAttribute)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_lastConst" lastConst' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyP.IO (HoppyF.Ptr M174.QXmlStreamAttributeConst)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamAttribute_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamAttribute_mid" mid' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamAttribute)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_midLength" midLength' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamAttribute)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_prepend" prepend' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_remove" remove' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_removeMany" removeMany' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_removeAll" removeAll' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamAttribute_removeFirst" removeFirst' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_removeLast" removeLast' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_removeOne" removeOne' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQXmlStreamAttribute_replace" replace' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyFC.CInt -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_reserve" reserve' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_resize" resize' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_size" size' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamAttribute_squeeze" squeeze' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_startsWith" startsWith' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQXmlStreamAttribute_swap" swap' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamAttribute_takeAt" takeAt' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M174.QXmlStreamAttributeConst)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_takeFirst" takeFirst' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyP.IO (HoppyF.Ptr M174.QXmlStreamAttributeConst)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_takeLast" takeLast' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyP.IO (HoppyF.Ptr M174.QXmlStreamAttributeConst)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_value" value' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M174.QXmlStreamAttributeConst)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_valueOr" valueOr' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyFC.CInt -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO (HoppyF.Ptr M174.QXmlStreamAttributeConst)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_ADD" aDD' ::  HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamAttribute)+foreign import ccall "genpop__QVectorQXmlStreamAttribute_ASSIGN" aSSIGN' ::  HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamAttribute)+foreign import ccall "gendel__QVectorQXmlStreamAttribute" delete'QVectorQXmlStreamAttribute :: HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyP.IO ()+foreign import ccall "&gendel__QVectorQXmlStreamAttribute" deletePtr'QVectorQXmlStreamAttribute :: HoppyF.FunPtr (HoppyF.Ptr QVectorQXmlStreamAttributeConst -> HoppyP.IO ())++class QVectorQXmlStreamAttributeValue a where+  withQVectorQXmlStreamAttributePtr :: a -> (QVectorQXmlStreamAttributeConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QVectorQXmlStreamAttributeConstPtr a => QVectorQXmlStreamAttributeValue a where+  withQVectorQXmlStreamAttributePtr = HoppyP.flip ($) . toQVectorQXmlStreamAttributeConst++class (HoppyFHR.CppPtr this) => QVectorQXmlStreamAttributeConstPtr this where+  toQVectorQXmlStreamAttributeConst :: this -> QVectorQXmlStreamAttributeConst++atConst :: (QVectorQXmlStreamAttributeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M174.QXmlStreamAttributeConst)+atConst arg'1 arg'2 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M174.QXmlStreamAttributeConst+  (atConst' arg'1' arg'2')++capacity :: (QVectorQXmlStreamAttributeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+capacity arg'1 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (capacity' arg'1')++contains :: (QVectorQXmlStreamAttributeValue this, M174.QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QVectorQXmlStreamAttributeValue this, M174.QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++arrayConst :: (QVectorQXmlStreamAttributeValue this) => (this) {- ^ this -} -> (HoppyP.IO M174.QXmlStreamAttributeConst)+arrayConst arg'1 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M174.QXmlStreamAttributeConst+  (arrayConst' arg'1')++endsWith :: (QVectorQXmlStreamAttributeValue this, M174.QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QVectorQXmlStreamAttributeValue this) => (this) {- ^ this -} -> (HoppyP.IO M174.QXmlStreamAttributeConst)+firstConst arg'1 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M174.QXmlStreamAttributeConst+  (firstConst' arg'1')++get :: (QVectorQXmlStreamAttributeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M174.QXmlStreamAttribute)+get arg'1 arg'2 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M174.QXmlStreamAttributeConst) =<<+  (get' arg'1' arg'2')++indexOf :: (QVectorQXmlStreamAttributeValue this, M174.QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QVectorQXmlStreamAttributeValue this, M174.QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QVectorQXmlStreamAttributeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QVectorQXmlStreamAttributeValue this) => (this) {- ^ this -} -> (HoppyP.IO M174.QXmlStreamAttributeConst)+lastConst arg'1 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M174.QXmlStreamAttributeConst+  (lastConst' arg'1')++lastIndexOf :: (QVectorQXmlStreamAttributeValue this, M174.QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QVectorQXmlStreamAttributeValue this, M174.QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QVectorQXmlStreamAttributeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QVectorQXmlStreamAttribute)+mid arg'1 arg'2 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQXmlStreamAttribute+  (mid' arg'1' arg'2')++midLength :: (QVectorQXmlStreamAttributeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QVectorQXmlStreamAttribute)+midLength arg'1 arg'2 arg'3 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQXmlStreamAttribute+  (midLength' arg'1' arg'2' arg'3')++size :: (QVectorQXmlStreamAttributeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QVectorQXmlStreamAttributeValue this, M174.QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QVectorQXmlStreamAttributeValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M174.QXmlStreamAttribute)+value arg'1 arg'2 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M174.QXmlStreamAttributeConst) =<<+  (value' arg'1' arg'2')++valueOr :: (QVectorQXmlStreamAttributeValue this, M174.QXmlStreamAttributeValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO M174.QXmlStreamAttribute)+valueOr arg'1 arg'2 arg'3 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M174.withQXmlStreamAttributePtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M174.QXmlStreamAttributeConst) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QVectorQXmlStreamAttributeValue this, QVectorQXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQXmlStreamAttribute)+aDD arg'1 arg'2 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVectorQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQXmlStreamAttribute+  (aDD' arg'1' arg'2')++class (QVectorQXmlStreamAttributeConstPtr this) => QVectorQXmlStreamAttributePtr this where+  toQVectorQXmlStreamAttribute :: this -> QVectorQXmlStreamAttribute++append :: (QVectorQXmlStreamAttributePtr this, M174.QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (append' arg'1' arg'2')++appendVector :: (QVectorQXmlStreamAttributePtr this, QVectorQXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendVector arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  withQVectorQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendVector' arg'1' arg'2')++at :: (QVectorQXmlStreamAttributePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M174.QXmlStreamAttribute)+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M174.QXmlStreamAttribute+  (at' arg'1' arg'2')++clear :: (QVectorQXmlStreamAttributePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  (clear' arg'1')++array :: (QVectorQXmlStreamAttributePtr this) => (this) {- ^ this -} -> (HoppyP.IO M174.QXmlStreamAttribute)+array arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  HoppyP.fmap M174.QXmlStreamAttribute+  (array' arg'1')++fill :: (QVectorQXmlStreamAttributePtr this, M174.QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+fill arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (fill' arg'1' arg'2')++fillResize :: (QVectorQXmlStreamAttributePtr this, M174.QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO ())+fillResize arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (fillResize' arg'1' arg'2' arg'3')++first :: (QVectorQXmlStreamAttributePtr this) => (this) {- ^ this -} -> (HoppyP.IO M174.QXmlStreamAttribute)+first arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  HoppyP.fmap M174.QXmlStreamAttribute+  (first' arg'1')++insert :: (QVectorQXmlStreamAttributePtr this, M174.QXmlStreamAttributeValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M174.withQXmlStreamAttributePtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++insertMany :: (QVectorQXmlStreamAttributePtr this, M174.QXmlStreamAttributeValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO ())+insertMany arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M174.withQXmlStreamAttributePtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (insertMany' arg'1' arg'2' arg'3' arg'4')++last :: (QVectorQXmlStreamAttributePtr this) => (this) {- ^ this -} -> (HoppyP.IO M174.QXmlStreamAttribute)+last arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  HoppyP.fmap M174.QXmlStreamAttribute+  (last' arg'1')++prepend :: (QVectorQXmlStreamAttributePtr this, M174.QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (prepend' arg'1' arg'2')++remove :: (QVectorQXmlStreamAttributePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+remove arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (remove' arg'1' arg'2')++removeMany :: (QVectorQXmlStreamAttributePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+removeMany arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (removeMany' arg'1' arg'2' arg'3')++removeAll :: (QVectorQXmlStreamAttributePtr this, M174.QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeFirst :: (QVectorQXmlStreamAttributePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QVectorQXmlStreamAttributePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QVectorQXmlStreamAttributePtr this, M174.QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QVectorQXmlStreamAttributePtr this, M174.QXmlStreamAttributeValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M174.withQXmlStreamAttributePtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QVectorQXmlStreamAttributePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++resize :: (QVectorQXmlStreamAttributePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+resize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (resize' arg'1' arg'2')++squeeze :: (QVectorQXmlStreamAttributePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+squeeze arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  (squeeze' arg'1')++swap :: (QVectorQXmlStreamAttributePtr this, QVectorQXmlStreamAttributePtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++takeAt :: (QVectorQXmlStreamAttributePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M174.QXmlStreamAttribute)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M174.QXmlStreamAttributeConst) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QVectorQXmlStreamAttributePtr this) => (this) {- ^ this -} -> (HoppyP.IO M174.QXmlStreamAttribute)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M174.QXmlStreamAttributeConst) =<<+  (takeFirst' arg'1')++takeLast :: (QVectorQXmlStreamAttributePtr this) => (this) {- ^ this -} -> (HoppyP.IO M174.QXmlStreamAttribute)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M174.QXmlStreamAttributeConst) =<<+  (takeLast' arg'1')++aSSIGN :: (QVectorQXmlStreamAttributePtr this, QVectorQXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQXmlStreamAttribute)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamAttribute arg'1) $ \arg'1' ->+  withQVectorQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQXmlStreamAttribute+  (aSSIGN' arg'1' arg'2')++data QVectorQXmlStreamAttributeConst =+    QVectorQXmlStreamAttributeConst (HoppyF.Ptr QVectorQXmlStreamAttributeConst)+  | QVectorQXmlStreamAttributeConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQXmlStreamAttributeConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQXmlStreamAttributeConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQXmlStreamAttributeConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQXmlStreamAttributeToConst :: QVectorQXmlStreamAttribute -> QVectorQXmlStreamAttributeConst+castQVectorQXmlStreamAttributeToConst (QVectorQXmlStreamAttribute ptr') = QVectorQXmlStreamAttributeConst $ HoppyF.castPtr ptr'+castQVectorQXmlStreamAttributeToConst (QVectorQXmlStreamAttributeGc fptr' ptr') = QVectorQXmlStreamAttributeConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQXmlStreamAttributeConst where+  nullptr = QVectorQXmlStreamAttributeConst HoppyF.nullPtr+  +  withCppPtr (QVectorQXmlStreamAttributeConst ptr') f' = f' ptr'+  withCppPtr (QVectorQXmlStreamAttributeConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQXmlStreamAttributeConst ptr') = ptr'+  toPtr (QVectorQXmlStreamAttributeConstGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQXmlStreamAttributeConst _) = HoppyP.return ()+  touchCppPtr (QVectorQXmlStreamAttributeConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQXmlStreamAttributeConst where+  delete (QVectorQXmlStreamAttributeConst ptr') = delete'QVectorQXmlStreamAttribute ptr'+  delete (QVectorQXmlStreamAttributeConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQXmlStreamAttributeConst", " object."]+  +  toGc this'@(QVectorQXmlStreamAttributeConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQXmlStreamAttributeConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQXmlStreamAttribute :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQXmlStreamAttributeConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQXmlStreamAttributeConst QVectorQXmlStreamAttribute where copy = newCopy++instance QVectorQXmlStreamAttributeConstPtr QVectorQXmlStreamAttributeConst where+  toQVectorQXmlStreamAttributeConst = HoppyP.id++data QVectorQXmlStreamAttribute =+    QVectorQXmlStreamAttribute (HoppyF.Ptr QVectorQXmlStreamAttribute)+  | QVectorQXmlStreamAttributeGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQXmlStreamAttribute)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQXmlStreamAttribute where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQXmlStreamAttribute where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQXmlStreamAttributeToNonconst :: QVectorQXmlStreamAttributeConst -> QVectorQXmlStreamAttribute+castQVectorQXmlStreamAttributeToNonconst (QVectorQXmlStreamAttributeConst ptr') = QVectorQXmlStreamAttribute $ HoppyF.castPtr ptr'+castQVectorQXmlStreamAttributeToNonconst (QVectorQXmlStreamAttributeConstGc fptr' ptr') = QVectorQXmlStreamAttributeGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQXmlStreamAttribute where+  nullptr = QVectorQXmlStreamAttribute HoppyF.nullPtr+  +  withCppPtr (QVectorQXmlStreamAttribute ptr') f' = f' ptr'+  withCppPtr (QVectorQXmlStreamAttributeGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQXmlStreamAttribute ptr') = ptr'+  toPtr (QVectorQXmlStreamAttributeGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQXmlStreamAttribute _) = HoppyP.return ()+  touchCppPtr (QVectorQXmlStreamAttributeGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQXmlStreamAttribute where+  delete (QVectorQXmlStreamAttribute ptr') = delete'QVectorQXmlStreamAttribute $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QVectorQXmlStreamAttributeConst)+  delete (QVectorQXmlStreamAttributeGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQXmlStreamAttribute", " object."]+  +  toGc this'@(QVectorQXmlStreamAttribute ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQXmlStreamAttributeGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQXmlStreamAttribute :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQXmlStreamAttributeGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQXmlStreamAttribute QVectorQXmlStreamAttribute where copy = newCopy++instance QVectorQXmlStreamAttributeConstPtr QVectorQXmlStreamAttribute where+  toQVectorQXmlStreamAttributeConst (QVectorQXmlStreamAttribute ptr') = QVectorQXmlStreamAttributeConst $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyF.Ptr QVectorQXmlStreamAttributeConst) ptr'+  toQVectorQXmlStreamAttributeConst (QVectorQXmlStreamAttributeGc fptr' ptr') = QVectorQXmlStreamAttributeConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQXmlStreamAttribute -> HoppyF.Ptr QVectorQXmlStreamAttributeConst) ptr'++instance QVectorQXmlStreamAttributePtr QVectorQXmlStreamAttribute where+  toQVectorQXmlStreamAttribute = HoppyP.id++new :: (HoppyP.IO QVectorQXmlStreamAttribute)+new =+  HoppyP.fmap QVectorQXmlStreamAttribute+  (new')++newWithSize :: (HoppyP.Int) -> (HoppyP.IO QVectorQXmlStreamAttribute)+newWithSize arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVectorQXmlStreamAttribute+  (newWithSize' arg'1')++newWithSizeAndValue :: (M174.QXmlStreamAttributeValue arg'2) => (HoppyP.Int) -> (arg'2) -> (HoppyP.IO QVectorQXmlStreamAttribute)+newWithSizeAndValue arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQXmlStreamAttribute+  (newWithSizeAndValue' arg'1' arg'2')++newCopy :: (QVectorQXmlStreamAttributeValue arg'1) => (arg'1) -> (HoppyP.IO QVectorQXmlStreamAttribute)+newCopy arg'1 =+  withQVectorQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVectorQXmlStreamAttribute+  (newCopy' arg'1')++class QVectorQXmlStreamAttributeSuper a where+  downToQVectorQXmlStreamAttribute :: a -> QVectorQXmlStreamAttribute+++class QVectorQXmlStreamAttributeSuperConst a where+  downToQVectorQXmlStreamAttributeConst :: a -> QVectorQXmlStreamAttributeConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QVectorQXmlStreamAttribute)) QVectorQXmlStreamAttribute where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QVectorQXmlStreamAttributeValue a => HoppyFHR.Assignable QVectorQXmlStreamAttribute a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QVectorQXmlStreamAttribute)) QVectorQXmlStreamAttribute where+  decode = HoppyP.fmap QVectorQXmlStreamAttribute . HoppyF.peek++instance QtahFHR.HasContents QVectorQXmlStreamAttributeConst (M174.QXmlStreamAttribute) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QVectorQXmlStreamAttribute (M174.QXmlStreamAttribute) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QVectorQXmlStreamAttribute (M174.QXmlStreamAttribute) where+  fromContents values' = do+    vector' <- new+    reserve vector' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append vector') values'+    QtahP.return vector'
src/Graphics/UI/Qtah/Generated/Core/QVector/QXmlStreamEntityDeclaration.hs view
@@ -0,0 +1,672 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QVector.QXmlStreamEntityDeclaration (+  QVectorQXmlStreamEntityDeclarationValue (..),+  QVectorQXmlStreamEntityDeclarationConstPtr (..),+  atConst,+  capacity,+  contains,+  count,+  arrayConst,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QVectorQXmlStreamEntityDeclarationPtr (..),+  append,+  appendVector,+  at,+  clear,+  array,+  fill,+  fillResize,+  first,+  insert,+  insertMany,+  last,+  prepend,+  remove,+  removeMany,+  removeAll,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  resize,+  squeeze,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QVectorQXmlStreamEntityDeclarationConst (..),+  castQVectorQXmlStreamEntityDeclarationToConst,+  QVectorQXmlStreamEntityDeclaration (..),+  castQVectorQXmlStreamEntityDeclarationToNonconst,+  new,+  newWithSize,+  newWithSizeAndValue,+  newCopy,+  QVectorQXmlStreamEntityDeclarationSuper (..),+  QVectorQXmlStreamEntityDeclarationSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QXmlStreamEntityDeclaration as M178+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_new" new' ::  HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamEntityDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_newWithSize" newWithSize' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamEntityDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_newWithSizeAndValue" newWithSizeAndValue' ::  HoppyFC.CInt -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamEntityDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_newCopy" newCopy' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamEntityDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_append" append' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_appendVector" appendVector' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_at" at' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M178.QXmlStreamEntityDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_atConst" atConst' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_capacity" capacity' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_clear" clear' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_contains" contains' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_count" count' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_array" array' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyP.IO (HoppyF.Ptr M178.QXmlStreamEntityDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_arrayConst" arrayConst' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyP.IO (HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_endsWith" endsWith' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_fill" fill' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_fillResize" fillResize' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_first" first' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyP.IO (HoppyF.Ptr M178.QXmlStreamEntityDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_firstConst" firstConst' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyP.IO (HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_get" get' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_indexOf" indexOf' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_insert" insert' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyFC.CInt -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_insertMany" insertMany' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_isEmpty" isEmpty' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_last" last' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyP.IO (HoppyF.Ptr M178.QXmlStreamEntityDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_lastConst" lastConst' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyP.IO (HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_mid" mid' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamEntityDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_midLength" midLength' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamEntityDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_prepend" prepend' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_remove" remove' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_removeMany" removeMany' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_removeAll" removeAll' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_removeFirst" removeFirst' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_removeLast" removeLast' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_removeOne" removeOne' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_replace" replace' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyFC.CInt -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_reserve" reserve' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_resize" resize' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_size" size' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_squeeze" squeeze' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_startsWith" startsWith' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_swap" swap' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_takeAt" takeAt' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_takeFirst" takeFirst' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyP.IO (HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_takeLast" takeLast' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyP.IO (HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_value" value' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_valueOr" valueOr' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyFC.CInt -> HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst -> HoppyP.IO (HoppyF.Ptr M178.QXmlStreamEntityDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_ADD" aDD' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamEntityDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamEntityDeclaration_ASSIGN" aSSIGN' ::  HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamEntityDeclaration)+foreign import ccall "gendel__QVectorQXmlStreamEntityDeclaration" delete'QVectorQXmlStreamEntityDeclaration :: HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyP.IO ()+foreign import ccall "&gendel__QVectorQXmlStreamEntityDeclaration" deletePtr'QVectorQXmlStreamEntityDeclaration :: HoppyF.FunPtr (HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst -> HoppyP.IO ())++class QVectorQXmlStreamEntityDeclarationValue a where+  withQVectorQXmlStreamEntityDeclarationPtr :: a -> (QVectorQXmlStreamEntityDeclarationConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QVectorQXmlStreamEntityDeclarationConstPtr a => QVectorQXmlStreamEntityDeclarationValue a where+  withQVectorQXmlStreamEntityDeclarationPtr = HoppyP.flip ($) . toQVectorQXmlStreamEntityDeclarationConst++class (HoppyFHR.CppPtr this) => QVectorQXmlStreamEntityDeclarationConstPtr this where+  toQVectorQXmlStreamEntityDeclarationConst :: this -> QVectorQXmlStreamEntityDeclarationConst++atConst :: (QVectorQXmlStreamEntityDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M178.QXmlStreamEntityDeclarationConst)+atConst arg'1 arg'2 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M178.QXmlStreamEntityDeclarationConst+  (atConst' arg'1' arg'2')++capacity :: (QVectorQXmlStreamEntityDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+capacity arg'1 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (capacity' arg'1')++contains :: (QVectorQXmlStreamEntityDeclarationValue this, M178.QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QVectorQXmlStreamEntityDeclarationValue this, M178.QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++arrayConst :: (QVectorQXmlStreamEntityDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO M178.QXmlStreamEntityDeclarationConst)+arrayConst arg'1 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M178.QXmlStreamEntityDeclarationConst+  (arrayConst' arg'1')++endsWith :: (QVectorQXmlStreamEntityDeclarationValue this, M178.QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QVectorQXmlStreamEntityDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO M178.QXmlStreamEntityDeclarationConst)+firstConst arg'1 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M178.QXmlStreamEntityDeclarationConst+  (firstConst' arg'1')++get :: (QVectorQXmlStreamEntityDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M178.QXmlStreamEntityDeclaration)+get arg'1 arg'2 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M178.QXmlStreamEntityDeclarationConst) =<<+  (get' arg'1' arg'2')++indexOf :: (QVectorQXmlStreamEntityDeclarationValue this, M178.QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QVectorQXmlStreamEntityDeclarationValue this, M178.QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QVectorQXmlStreamEntityDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QVectorQXmlStreamEntityDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO M178.QXmlStreamEntityDeclarationConst)+lastConst arg'1 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M178.QXmlStreamEntityDeclarationConst+  (lastConst' arg'1')++lastIndexOf :: (QVectorQXmlStreamEntityDeclarationValue this, M178.QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QVectorQXmlStreamEntityDeclarationValue this, M178.QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QVectorQXmlStreamEntityDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QVectorQXmlStreamEntityDeclaration)+mid arg'1 arg'2 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQXmlStreamEntityDeclaration+  (mid' arg'1' arg'2')++midLength :: (QVectorQXmlStreamEntityDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QVectorQXmlStreamEntityDeclaration)+midLength arg'1 arg'2 arg'3 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQXmlStreamEntityDeclaration+  (midLength' arg'1' arg'2' arg'3')++size :: (QVectorQXmlStreamEntityDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QVectorQXmlStreamEntityDeclarationValue this, M178.QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QVectorQXmlStreamEntityDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M178.QXmlStreamEntityDeclaration)+value arg'1 arg'2 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M178.QXmlStreamEntityDeclarationConst) =<<+  (value' arg'1' arg'2')++valueOr :: (QVectorQXmlStreamEntityDeclarationValue this, M178.QXmlStreamEntityDeclarationValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO M178.QXmlStreamEntityDeclaration)+valueOr arg'1 arg'2 arg'3 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M178.QXmlStreamEntityDeclarationConst) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QVectorQXmlStreamEntityDeclarationValue this, QVectorQXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQXmlStreamEntityDeclaration)+aDD arg'1 arg'2 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVectorQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQXmlStreamEntityDeclaration+  (aDD' arg'1' arg'2')++class (QVectorQXmlStreamEntityDeclarationConstPtr this) => QVectorQXmlStreamEntityDeclarationPtr this where+  toQVectorQXmlStreamEntityDeclaration :: this -> QVectorQXmlStreamEntityDeclaration++append :: (QVectorQXmlStreamEntityDeclarationPtr this, M178.QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (append' arg'1' arg'2')++appendVector :: (QVectorQXmlStreamEntityDeclarationPtr this, QVectorQXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendVector arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  withQVectorQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendVector' arg'1' arg'2')++at :: (QVectorQXmlStreamEntityDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M178.QXmlStreamEntityDeclaration)+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M178.QXmlStreamEntityDeclaration+  (at' arg'1' arg'2')++clear :: (QVectorQXmlStreamEntityDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  (clear' arg'1')++array :: (QVectorQXmlStreamEntityDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO M178.QXmlStreamEntityDeclaration)+array arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  HoppyP.fmap M178.QXmlStreamEntityDeclaration+  (array' arg'1')++fill :: (QVectorQXmlStreamEntityDeclarationPtr this, M178.QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+fill arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (fill' arg'1' arg'2')++fillResize :: (QVectorQXmlStreamEntityDeclarationPtr this, M178.QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO ())+fillResize arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (fillResize' arg'1' arg'2' arg'3')++first :: (QVectorQXmlStreamEntityDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO M178.QXmlStreamEntityDeclaration)+first arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  HoppyP.fmap M178.QXmlStreamEntityDeclaration+  (first' arg'1')++insert :: (QVectorQXmlStreamEntityDeclarationPtr this, M178.QXmlStreamEntityDeclarationValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++insertMany :: (QVectorQXmlStreamEntityDeclarationPtr this, M178.QXmlStreamEntityDeclarationValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO ())+insertMany arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (insertMany' arg'1' arg'2' arg'3' arg'4')++last :: (QVectorQXmlStreamEntityDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO M178.QXmlStreamEntityDeclaration)+last arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  HoppyP.fmap M178.QXmlStreamEntityDeclaration+  (last' arg'1')++prepend :: (QVectorQXmlStreamEntityDeclarationPtr this, M178.QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (prepend' arg'1' arg'2')++remove :: (QVectorQXmlStreamEntityDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+remove arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (remove' arg'1' arg'2')++removeMany :: (QVectorQXmlStreamEntityDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+removeMany arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (removeMany' arg'1' arg'2' arg'3')++removeAll :: (QVectorQXmlStreamEntityDeclarationPtr this, M178.QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeFirst :: (QVectorQXmlStreamEntityDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QVectorQXmlStreamEntityDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QVectorQXmlStreamEntityDeclarationPtr this, M178.QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QVectorQXmlStreamEntityDeclarationPtr this, M178.QXmlStreamEntityDeclarationValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QVectorQXmlStreamEntityDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++resize :: (QVectorQXmlStreamEntityDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+resize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (resize' arg'1' arg'2')++squeeze :: (QVectorQXmlStreamEntityDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+squeeze arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  (squeeze' arg'1')++swap :: (QVectorQXmlStreamEntityDeclarationPtr this, QVectorQXmlStreamEntityDeclarationPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++takeAt :: (QVectorQXmlStreamEntityDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M178.QXmlStreamEntityDeclaration)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M178.QXmlStreamEntityDeclarationConst) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QVectorQXmlStreamEntityDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO M178.QXmlStreamEntityDeclaration)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M178.QXmlStreamEntityDeclarationConst) =<<+  (takeFirst' arg'1')++takeLast :: (QVectorQXmlStreamEntityDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO M178.QXmlStreamEntityDeclaration)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M178.QXmlStreamEntityDeclarationConst) =<<+  (takeLast' arg'1')++aSSIGN :: (QVectorQXmlStreamEntityDeclarationPtr this, QVectorQXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQXmlStreamEntityDeclaration)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  withQVectorQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQXmlStreamEntityDeclaration+  (aSSIGN' arg'1' arg'2')++data QVectorQXmlStreamEntityDeclarationConst =+    QVectorQXmlStreamEntityDeclarationConst (HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst)+  | QVectorQXmlStreamEntityDeclarationConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQXmlStreamEntityDeclarationConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQXmlStreamEntityDeclarationConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQXmlStreamEntityDeclarationToConst :: QVectorQXmlStreamEntityDeclaration -> QVectorQXmlStreamEntityDeclarationConst+castQVectorQXmlStreamEntityDeclarationToConst (QVectorQXmlStreamEntityDeclaration ptr') = QVectorQXmlStreamEntityDeclarationConst $ HoppyF.castPtr ptr'+castQVectorQXmlStreamEntityDeclarationToConst (QVectorQXmlStreamEntityDeclarationGc fptr' ptr') = QVectorQXmlStreamEntityDeclarationConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQXmlStreamEntityDeclarationConst where+  nullptr = QVectorQXmlStreamEntityDeclarationConst HoppyF.nullPtr+  +  withCppPtr (QVectorQXmlStreamEntityDeclarationConst ptr') f' = f' ptr'+  withCppPtr (QVectorQXmlStreamEntityDeclarationConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQXmlStreamEntityDeclarationConst ptr') = ptr'+  toPtr (QVectorQXmlStreamEntityDeclarationConstGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQXmlStreamEntityDeclarationConst _) = HoppyP.return ()+  touchCppPtr (QVectorQXmlStreamEntityDeclarationConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQXmlStreamEntityDeclarationConst where+  delete (QVectorQXmlStreamEntityDeclarationConst ptr') = delete'QVectorQXmlStreamEntityDeclaration ptr'+  delete (QVectorQXmlStreamEntityDeclarationConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQXmlStreamEntityDeclarationConst", " object."]+  +  toGc this'@(QVectorQXmlStreamEntityDeclarationConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQXmlStreamEntityDeclarationConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQXmlStreamEntityDeclaration :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQXmlStreamEntityDeclarationConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQXmlStreamEntityDeclarationConst QVectorQXmlStreamEntityDeclaration where copy = newCopy++instance QVectorQXmlStreamEntityDeclarationConstPtr QVectorQXmlStreamEntityDeclarationConst where+  toQVectorQXmlStreamEntityDeclarationConst = HoppyP.id++data QVectorQXmlStreamEntityDeclaration =+    QVectorQXmlStreamEntityDeclaration (HoppyF.Ptr QVectorQXmlStreamEntityDeclaration)+  | QVectorQXmlStreamEntityDeclarationGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQXmlStreamEntityDeclaration)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQXmlStreamEntityDeclaration where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQXmlStreamEntityDeclaration where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQXmlStreamEntityDeclarationToNonconst :: QVectorQXmlStreamEntityDeclarationConst -> QVectorQXmlStreamEntityDeclaration+castQVectorQXmlStreamEntityDeclarationToNonconst (QVectorQXmlStreamEntityDeclarationConst ptr') = QVectorQXmlStreamEntityDeclaration $ HoppyF.castPtr ptr'+castQVectorQXmlStreamEntityDeclarationToNonconst (QVectorQXmlStreamEntityDeclarationConstGc fptr' ptr') = QVectorQXmlStreamEntityDeclarationGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQXmlStreamEntityDeclaration where+  nullptr = QVectorQXmlStreamEntityDeclaration HoppyF.nullPtr+  +  withCppPtr (QVectorQXmlStreamEntityDeclaration ptr') f' = f' ptr'+  withCppPtr (QVectorQXmlStreamEntityDeclarationGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQXmlStreamEntityDeclaration ptr') = ptr'+  toPtr (QVectorQXmlStreamEntityDeclarationGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQXmlStreamEntityDeclaration _) = HoppyP.return ()+  touchCppPtr (QVectorQXmlStreamEntityDeclarationGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQXmlStreamEntityDeclaration where+  delete (QVectorQXmlStreamEntityDeclaration ptr') = delete'QVectorQXmlStreamEntityDeclaration $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst)+  delete (QVectorQXmlStreamEntityDeclarationGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQXmlStreamEntityDeclaration", " object."]+  +  toGc this'@(QVectorQXmlStreamEntityDeclaration ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQXmlStreamEntityDeclarationGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQXmlStreamEntityDeclaration :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQXmlStreamEntityDeclarationGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQXmlStreamEntityDeclaration QVectorQXmlStreamEntityDeclaration where copy = newCopy++instance QVectorQXmlStreamEntityDeclarationConstPtr QVectorQXmlStreamEntityDeclaration where+  toQVectorQXmlStreamEntityDeclarationConst (QVectorQXmlStreamEntityDeclaration ptr') = QVectorQXmlStreamEntityDeclarationConst $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst) ptr'+  toQVectorQXmlStreamEntityDeclarationConst (QVectorQXmlStreamEntityDeclarationGc fptr' ptr') = QVectorQXmlStreamEntityDeclarationConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQXmlStreamEntityDeclaration -> HoppyF.Ptr QVectorQXmlStreamEntityDeclarationConst) ptr'++instance QVectorQXmlStreamEntityDeclarationPtr QVectorQXmlStreamEntityDeclaration where+  toQVectorQXmlStreamEntityDeclaration = HoppyP.id++new :: (HoppyP.IO QVectorQXmlStreamEntityDeclaration)+new =+  HoppyP.fmap QVectorQXmlStreamEntityDeclaration+  (new')++newWithSize :: (HoppyP.Int) -> (HoppyP.IO QVectorQXmlStreamEntityDeclaration)+newWithSize arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVectorQXmlStreamEntityDeclaration+  (newWithSize' arg'1')++newWithSizeAndValue :: (M178.QXmlStreamEntityDeclarationValue arg'2) => (HoppyP.Int) -> (arg'2) -> (HoppyP.IO QVectorQXmlStreamEntityDeclaration)+newWithSizeAndValue arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  M178.withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQXmlStreamEntityDeclaration+  (newWithSizeAndValue' arg'1' arg'2')++newCopy :: (QVectorQXmlStreamEntityDeclarationValue arg'1) => (arg'1) -> (HoppyP.IO QVectorQXmlStreamEntityDeclaration)+newCopy arg'1 =+  withQVectorQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVectorQXmlStreamEntityDeclaration+  (newCopy' arg'1')++class QVectorQXmlStreamEntityDeclarationSuper a where+  downToQVectorQXmlStreamEntityDeclaration :: a -> QVectorQXmlStreamEntityDeclaration+++class QVectorQXmlStreamEntityDeclarationSuperConst a where+  downToQVectorQXmlStreamEntityDeclarationConst :: a -> QVectorQXmlStreamEntityDeclarationConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QVectorQXmlStreamEntityDeclaration)) QVectorQXmlStreamEntityDeclaration where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QVectorQXmlStreamEntityDeclarationValue a => HoppyFHR.Assignable QVectorQXmlStreamEntityDeclaration a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QVectorQXmlStreamEntityDeclaration)) QVectorQXmlStreamEntityDeclaration where+  decode = HoppyP.fmap QVectorQXmlStreamEntityDeclaration . HoppyF.peek++instance QtahFHR.HasContents QVectorQXmlStreamEntityDeclarationConst (M178.QXmlStreamEntityDeclaration) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QVectorQXmlStreamEntityDeclaration (M178.QXmlStreamEntityDeclaration) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QVectorQXmlStreamEntityDeclaration (M178.QXmlStreamEntityDeclaration) where+  fromContents values' = do+    vector' <- new+    reserve vector' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append vector') values'+    QtahP.return vector'
src/Graphics/UI/Qtah/Generated/Core/QVector/QXmlStreamNamespaceDeclaration.hs view
@@ -0,0 +1,672 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QVector.QXmlStreamNamespaceDeclaration (+  QVectorQQXmlStreamNamespaceDeclarationValue (..),+  QVectorQQXmlStreamNamespaceDeclarationConstPtr (..),+  atConst,+  capacity,+  contains,+  count,+  arrayConst,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QVectorQQXmlStreamNamespaceDeclarationPtr (..),+  append,+  appendVector,+  at,+  clear,+  array,+  fill,+  fillResize,+  first,+  insert,+  insertMany,+  last,+  prepend,+  remove,+  removeMany,+  removeAll,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  resize,+  squeeze,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QVectorQQXmlStreamNamespaceDeclarationConst (..),+  castQVectorQQXmlStreamNamespaceDeclarationToConst,+  QVectorQQXmlStreamNamespaceDeclaration (..),+  castQVectorQQXmlStreamNamespaceDeclarationToNonconst,+  new,+  newWithSize,+  newWithSizeAndValue,+  newCopy,+  QVectorQQXmlStreamNamespaceDeclarationSuper (..),+  QVectorQQXmlStreamNamespaceDeclarationSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QXmlStreamNamespaceDeclaration as M182+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_new" new' ::  HoppyP.IO (HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_newWithSize" newWithSize' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_newWithSizeAndValue" newWithSizeAndValue' ::  HoppyFC.CInt -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO (HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_newCopy" newCopy' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyP.IO (HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_append" append' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_appendVector" appendVector' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_at" at' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M182.QXmlStreamNamespaceDeclaration)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_atConst" atConst' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_capacity" capacity' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_clear" clear' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_contains" contains' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_count" count' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_array" array' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyP.IO (HoppyF.Ptr M182.QXmlStreamNamespaceDeclaration)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_arrayConst" arrayConst' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyP.IO (HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_endsWith" endsWith' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_fill" fill' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_fillResize" fillResize' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_first" first' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyP.IO (HoppyF.Ptr M182.QXmlStreamNamespaceDeclaration)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_firstConst" firstConst' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyP.IO (HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_get" get' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_indexOf" indexOf' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_insert" insert' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyFC.CInt -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_insertMany" insertMany' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_isEmpty" isEmpty' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_last" last' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyP.IO (HoppyF.Ptr M182.QXmlStreamNamespaceDeclaration)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_lastConst" lastConst' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyP.IO (HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_mid" mid' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_midLength" midLength' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_prepend" prepend' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_remove" remove' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_removeMany" removeMany' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_removeAll" removeAll' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_removeFirst" removeFirst' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_removeLast" removeLast' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_removeOne" removeOne' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_replace" replace' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyFC.CInt -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_reserve" reserve' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_resize" resize' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_size" size' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_squeeze" squeeze' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_startsWith" startsWith' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_swap" swap' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_takeAt" takeAt' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_takeFirst" takeFirst' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyP.IO (HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_takeLast" takeLast' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyP.IO (HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_value" value' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_valueOr" valueOr' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyFC.CInt -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO (HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_ADD" aDD' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyP.IO (HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration)+foreign import ccall "genpop__QVectorQQXmlStreamNamespaceDeclaration_ASSIGN" aSSIGN' ::  HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyP.IO (HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration)+foreign import ccall "gendel__QVectorQQXmlStreamNamespaceDeclaration" delete'QVectorQQXmlStreamNamespaceDeclaration :: HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyP.IO ()+foreign import ccall "&gendel__QVectorQQXmlStreamNamespaceDeclaration" deletePtr'QVectorQQXmlStreamNamespaceDeclaration :: HoppyF.FunPtr (HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyP.IO ())++class QVectorQQXmlStreamNamespaceDeclarationValue a where+  withQVectorQQXmlStreamNamespaceDeclarationPtr :: a -> (QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QVectorQQXmlStreamNamespaceDeclarationConstPtr a => QVectorQQXmlStreamNamespaceDeclarationValue a where+  withQVectorQQXmlStreamNamespaceDeclarationPtr = HoppyP.flip ($) . toQVectorQQXmlStreamNamespaceDeclarationConst++class (HoppyFHR.CppPtr this) => QVectorQQXmlStreamNamespaceDeclarationConstPtr this where+  toQVectorQQXmlStreamNamespaceDeclarationConst :: this -> QVectorQQXmlStreamNamespaceDeclarationConst++atConst :: (QVectorQQXmlStreamNamespaceDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M182.QXmlStreamNamespaceDeclarationConst)+atConst arg'1 arg'2 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M182.QXmlStreamNamespaceDeclarationConst+  (atConst' arg'1' arg'2')++capacity :: (QVectorQQXmlStreamNamespaceDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+capacity arg'1 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (capacity' arg'1')++contains :: (QVectorQQXmlStreamNamespaceDeclarationValue this, M182.QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QVectorQQXmlStreamNamespaceDeclarationValue this, M182.QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++arrayConst :: (QVectorQQXmlStreamNamespaceDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO M182.QXmlStreamNamespaceDeclarationConst)+arrayConst arg'1 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M182.QXmlStreamNamespaceDeclarationConst+  (arrayConst' arg'1')++endsWith :: (QVectorQQXmlStreamNamespaceDeclarationValue this, M182.QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QVectorQQXmlStreamNamespaceDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO M182.QXmlStreamNamespaceDeclarationConst)+firstConst arg'1 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M182.QXmlStreamNamespaceDeclarationConst+  (firstConst' arg'1')++get :: (QVectorQQXmlStreamNamespaceDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M182.QXmlStreamNamespaceDeclaration)+get arg'1 arg'2 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M182.QXmlStreamNamespaceDeclarationConst) =<<+  (get' arg'1' arg'2')++indexOf :: (QVectorQQXmlStreamNamespaceDeclarationValue this, M182.QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QVectorQQXmlStreamNamespaceDeclarationValue this, M182.QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QVectorQQXmlStreamNamespaceDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QVectorQQXmlStreamNamespaceDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO M182.QXmlStreamNamespaceDeclarationConst)+lastConst arg'1 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M182.QXmlStreamNamespaceDeclarationConst+  (lastConst' arg'1')++lastIndexOf :: (QVectorQQXmlStreamNamespaceDeclarationValue this, M182.QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QVectorQQXmlStreamNamespaceDeclarationValue this, M182.QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QVectorQQXmlStreamNamespaceDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QVectorQQXmlStreamNamespaceDeclaration)+mid arg'1 arg'2 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQQXmlStreamNamespaceDeclaration+  (mid' arg'1' arg'2')++midLength :: (QVectorQQXmlStreamNamespaceDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QVectorQQXmlStreamNamespaceDeclaration)+midLength arg'1 arg'2 arg'3 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQQXmlStreamNamespaceDeclaration+  (midLength' arg'1' arg'2' arg'3')++size :: (QVectorQQXmlStreamNamespaceDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QVectorQQXmlStreamNamespaceDeclarationValue this, M182.QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QVectorQQXmlStreamNamespaceDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M182.QXmlStreamNamespaceDeclaration)+value arg'1 arg'2 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M182.QXmlStreamNamespaceDeclarationConst) =<<+  (value' arg'1' arg'2')++valueOr :: (QVectorQQXmlStreamNamespaceDeclarationValue this, M182.QXmlStreamNamespaceDeclarationValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO M182.QXmlStreamNamespaceDeclaration)+valueOr arg'1 arg'2 arg'3 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M182.QXmlStreamNamespaceDeclarationConst) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QVectorQQXmlStreamNamespaceDeclarationValue this, QVectorQQXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQQXmlStreamNamespaceDeclaration)+aDD arg'1 arg'2 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQQXmlStreamNamespaceDeclaration+  (aDD' arg'1' arg'2')++class (QVectorQQXmlStreamNamespaceDeclarationConstPtr this) => QVectorQQXmlStreamNamespaceDeclarationPtr this where+  toQVectorQQXmlStreamNamespaceDeclaration :: this -> QVectorQQXmlStreamNamespaceDeclaration++append :: (QVectorQQXmlStreamNamespaceDeclarationPtr this, M182.QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (append' arg'1' arg'2')++appendVector :: (QVectorQQXmlStreamNamespaceDeclarationPtr this, QVectorQQXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendVector arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendVector' arg'1' arg'2')++at :: (QVectorQQXmlStreamNamespaceDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M182.QXmlStreamNamespaceDeclaration)+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M182.QXmlStreamNamespaceDeclaration+  (at' arg'1' arg'2')++clear :: (QVectorQQXmlStreamNamespaceDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  (clear' arg'1')++array :: (QVectorQQXmlStreamNamespaceDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO M182.QXmlStreamNamespaceDeclaration)+array arg'1 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  HoppyP.fmap M182.QXmlStreamNamespaceDeclaration+  (array' arg'1')++fill :: (QVectorQQXmlStreamNamespaceDeclarationPtr this, M182.QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+fill arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (fill' arg'1' arg'2')++fillResize :: (QVectorQQXmlStreamNamespaceDeclarationPtr this, M182.QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO ())+fillResize arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (fillResize' arg'1' arg'2' arg'3')++first :: (QVectorQQXmlStreamNamespaceDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO M182.QXmlStreamNamespaceDeclaration)+first arg'1 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  HoppyP.fmap M182.QXmlStreamNamespaceDeclaration+  (first' arg'1')++insert :: (QVectorQQXmlStreamNamespaceDeclarationPtr this, M182.QXmlStreamNamespaceDeclarationValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++insertMany :: (QVectorQQXmlStreamNamespaceDeclarationPtr this, M182.QXmlStreamNamespaceDeclarationValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO ())+insertMany arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (insertMany' arg'1' arg'2' arg'3' arg'4')++last :: (QVectorQQXmlStreamNamespaceDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO M182.QXmlStreamNamespaceDeclaration)+last arg'1 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  HoppyP.fmap M182.QXmlStreamNamespaceDeclaration+  (last' arg'1')++prepend :: (QVectorQQXmlStreamNamespaceDeclarationPtr this, M182.QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (prepend' arg'1' arg'2')++remove :: (QVectorQQXmlStreamNamespaceDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+remove arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (remove' arg'1' arg'2')++removeMany :: (QVectorQQXmlStreamNamespaceDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+removeMany arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (removeMany' arg'1' arg'2' arg'3')++removeAll :: (QVectorQQXmlStreamNamespaceDeclarationPtr this, M182.QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeFirst :: (QVectorQQXmlStreamNamespaceDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QVectorQQXmlStreamNamespaceDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QVectorQQXmlStreamNamespaceDeclarationPtr this, M182.QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QVectorQQXmlStreamNamespaceDeclarationPtr this, M182.QXmlStreamNamespaceDeclarationValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QVectorQQXmlStreamNamespaceDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++resize :: (QVectorQQXmlStreamNamespaceDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+resize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (resize' arg'1' arg'2')++squeeze :: (QVectorQQXmlStreamNamespaceDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+squeeze arg'1 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  (squeeze' arg'1')++swap :: (QVectorQQXmlStreamNamespaceDeclarationPtr this, QVectorQQXmlStreamNamespaceDeclarationPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++takeAt :: (QVectorQQXmlStreamNamespaceDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M182.QXmlStreamNamespaceDeclaration)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M182.QXmlStreamNamespaceDeclarationConst) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QVectorQQXmlStreamNamespaceDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO M182.QXmlStreamNamespaceDeclaration)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M182.QXmlStreamNamespaceDeclarationConst) =<<+  (takeFirst' arg'1')++takeLast :: (QVectorQQXmlStreamNamespaceDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO M182.QXmlStreamNamespaceDeclaration)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M182.QXmlStreamNamespaceDeclarationConst) =<<+  (takeLast' arg'1')++aSSIGN :: (QVectorQQXmlStreamNamespaceDeclarationPtr this, QVectorQQXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQQXmlStreamNamespaceDeclaration)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQQXmlStreamNamespaceDeclaration+  (aSSIGN' arg'1' arg'2')++data QVectorQQXmlStreamNamespaceDeclarationConst =+    QVectorQQXmlStreamNamespaceDeclarationConst (HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst)+  | QVectorQQXmlStreamNamespaceDeclarationConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQQXmlStreamNamespaceDeclarationConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQQXmlStreamNamespaceDeclarationConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQQXmlStreamNamespaceDeclarationToConst :: QVectorQQXmlStreamNamespaceDeclaration -> QVectorQQXmlStreamNamespaceDeclarationConst+castQVectorQQXmlStreamNamespaceDeclarationToConst (QVectorQQXmlStreamNamespaceDeclaration ptr') = QVectorQQXmlStreamNamespaceDeclarationConst $ HoppyF.castPtr ptr'+castQVectorQQXmlStreamNamespaceDeclarationToConst (QVectorQQXmlStreamNamespaceDeclarationGc fptr' ptr') = QVectorQQXmlStreamNamespaceDeclarationConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQQXmlStreamNamespaceDeclarationConst where+  nullptr = QVectorQQXmlStreamNamespaceDeclarationConst HoppyF.nullPtr+  +  withCppPtr (QVectorQQXmlStreamNamespaceDeclarationConst ptr') f' = f' ptr'+  withCppPtr (QVectorQQXmlStreamNamespaceDeclarationConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQQXmlStreamNamespaceDeclarationConst ptr') = ptr'+  toPtr (QVectorQQXmlStreamNamespaceDeclarationConstGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQQXmlStreamNamespaceDeclarationConst _) = HoppyP.return ()+  touchCppPtr (QVectorQQXmlStreamNamespaceDeclarationConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQQXmlStreamNamespaceDeclarationConst where+  delete (QVectorQQXmlStreamNamespaceDeclarationConst ptr') = delete'QVectorQQXmlStreamNamespaceDeclaration ptr'+  delete (QVectorQQXmlStreamNamespaceDeclarationConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQQXmlStreamNamespaceDeclarationConst", " object."]+  +  toGc this'@(QVectorQQXmlStreamNamespaceDeclarationConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQQXmlStreamNamespaceDeclarationConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQQXmlStreamNamespaceDeclaration :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQQXmlStreamNamespaceDeclarationConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQQXmlStreamNamespaceDeclarationConst QVectorQQXmlStreamNamespaceDeclaration where copy = newCopy++instance QVectorQQXmlStreamNamespaceDeclarationConstPtr QVectorQQXmlStreamNamespaceDeclarationConst where+  toQVectorQQXmlStreamNamespaceDeclarationConst = HoppyP.id++data QVectorQQXmlStreamNamespaceDeclaration =+    QVectorQQXmlStreamNamespaceDeclaration (HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration)+  | QVectorQQXmlStreamNamespaceDeclarationGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQQXmlStreamNamespaceDeclaration where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQQXmlStreamNamespaceDeclaration where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQQXmlStreamNamespaceDeclarationToNonconst :: QVectorQQXmlStreamNamespaceDeclarationConst -> QVectorQQXmlStreamNamespaceDeclaration+castQVectorQQXmlStreamNamespaceDeclarationToNonconst (QVectorQQXmlStreamNamespaceDeclarationConst ptr') = QVectorQQXmlStreamNamespaceDeclaration $ HoppyF.castPtr ptr'+castQVectorQQXmlStreamNamespaceDeclarationToNonconst (QVectorQQXmlStreamNamespaceDeclarationConstGc fptr' ptr') = QVectorQQXmlStreamNamespaceDeclarationGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQQXmlStreamNamespaceDeclaration where+  nullptr = QVectorQQXmlStreamNamespaceDeclaration HoppyF.nullPtr+  +  withCppPtr (QVectorQQXmlStreamNamespaceDeclaration ptr') f' = f' ptr'+  withCppPtr (QVectorQQXmlStreamNamespaceDeclarationGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQQXmlStreamNamespaceDeclaration ptr') = ptr'+  toPtr (QVectorQQXmlStreamNamespaceDeclarationGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQQXmlStreamNamespaceDeclaration _) = HoppyP.return ()+  touchCppPtr (QVectorQQXmlStreamNamespaceDeclarationGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQQXmlStreamNamespaceDeclaration where+  delete (QVectorQQXmlStreamNamespaceDeclaration ptr') = delete'QVectorQQXmlStreamNamespaceDeclaration $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst)+  delete (QVectorQQXmlStreamNamespaceDeclarationGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQQXmlStreamNamespaceDeclaration", " object."]+  +  toGc this'@(QVectorQQXmlStreamNamespaceDeclaration ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQQXmlStreamNamespaceDeclarationGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQQXmlStreamNamespaceDeclaration :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQQXmlStreamNamespaceDeclarationGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQQXmlStreamNamespaceDeclaration QVectorQQXmlStreamNamespaceDeclaration where copy = newCopy++instance QVectorQQXmlStreamNamespaceDeclarationConstPtr QVectorQQXmlStreamNamespaceDeclaration where+  toQVectorQQXmlStreamNamespaceDeclarationConst (QVectorQQXmlStreamNamespaceDeclaration ptr') = QVectorQQXmlStreamNamespaceDeclarationConst $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst) ptr'+  toQVectorQQXmlStreamNamespaceDeclarationConst (QVectorQQXmlStreamNamespaceDeclarationGc fptr' ptr') = QVectorQQXmlStreamNamespaceDeclarationConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration -> HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclarationConst) ptr'++instance QVectorQQXmlStreamNamespaceDeclarationPtr QVectorQQXmlStreamNamespaceDeclaration where+  toQVectorQQXmlStreamNamespaceDeclaration = HoppyP.id++new :: (HoppyP.IO QVectorQQXmlStreamNamespaceDeclaration)+new =+  HoppyP.fmap QVectorQQXmlStreamNamespaceDeclaration+  (new')++newWithSize :: (HoppyP.Int) -> (HoppyP.IO QVectorQQXmlStreamNamespaceDeclaration)+newWithSize arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVectorQQXmlStreamNamespaceDeclaration+  (newWithSize' arg'1')++newWithSizeAndValue :: (M182.QXmlStreamNamespaceDeclarationValue arg'2) => (HoppyP.Int) -> (arg'2) -> (HoppyP.IO QVectorQQXmlStreamNamespaceDeclaration)+newWithSizeAndValue arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQQXmlStreamNamespaceDeclaration+  (newWithSizeAndValue' arg'1' arg'2')++newCopy :: (QVectorQQXmlStreamNamespaceDeclarationValue arg'1) => (arg'1) -> (HoppyP.IO QVectorQQXmlStreamNamespaceDeclaration)+newCopy arg'1 =+  withQVectorQQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVectorQQXmlStreamNamespaceDeclaration+  (newCopy' arg'1')++class QVectorQQXmlStreamNamespaceDeclarationSuper a where+  downToQVectorQQXmlStreamNamespaceDeclaration :: a -> QVectorQQXmlStreamNamespaceDeclaration+++class QVectorQQXmlStreamNamespaceDeclarationSuperConst a where+  downToQVectorQQXmlStreamNamespaceDeclarationConst :: a -> QVectorQQXmlStreamNamespaceDeclarationConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration)) QVectorQQXmlStreamNamespaceDeclaration where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QVectorQQXmlStreamNamespaceDeclarationValue a => HoppyFHR.Assignable QVectorQQXmlStreamNamespaceDeclaration a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QVectorQQXmlStreamNamespaceDeclaration)) QVectorQQXmlStreamNamespaceDeclaration where+  decode = HoppyP.fmap QVectorQQXmlStreamNamespaceDeclaration . HoppyF.peek++instance QtahFHR.HasContents QVectorQQXmlStreamNamespaceDeclarationConst (M182.QXmlStreamNamespaceDeclaration) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QVectorQQXmlStreamNamespaceDeclaration (M182.QXmlStreamNamespaceDeclaration) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QVectorQQXmlStreamNamespaceDeclaration (M182.QXmlStreamNamespaceDeclaration) where+  fromContents values' = do+    vector' <- new+    reserve vector' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append vector') values'+    QtahP.return vector'
src/Graphics/UI/Qtah/Generated/Core/QVector/QXmlStreamNotationDeclaration.hs view
@@ -0,0 +1,672 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QVector.QXmlStreamNotationDeclaration (+  QVectorQXmlStreamNotationDeclarationValue (..),+  QVectorQXmlStreamNotationDeclarationConstPtr (..),+  atConst,+  capacity,+  contains,+  count,+  arrayConst,+  endsWith,+  firstConst,+  get,+  indexOf,+  indexOfFrom,+  isEmpty,+  lastConst,+  lastIndexOf,+  lastIndexOfFrom,+  mid,+  midLength,+  size,+  startsWith,+  value,+  valueOr,+  aDD,+  QVectorQXmlStreamNotationDeclarationPtr (..),+  append,+  appendVector,+  at,+  clear,+  array,+  fill,+  fillResize,+  first,+  insert,+  insertMany,+  last,+  prepend,+  remove,+  removeMany,+  removeAll,+  removeFirst,+  removeLast,+  removeOne,+  replace,+  reserve,+  resize,+  squeeze,+  swap,+  takeAt,+  takeFirst,+  takeLast,+  aSSIGN,+  QVectorQXmlStreamNotationDeclarationConst (..),+  castQVectorQXmlStreamNotationDeclarationToConst,+  QVectorQXmlStreamNotationDeclaration (..),+  castQVectorQXmlStreamNotationDeclarationToNonconst,+  new,+  newWithSize,+  newWithSizeAndValue,+  newCopy,+  QVectorQXmlStreamNotationDeclarationSuper (..),+  QVectorQXmlStreamNotationDeclarationSuperConst (..),+  ) where++import Control.Monad ((<=<))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QXmlStreamNotationDeclaration as M184+import Prelude (($), (-), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_new" new' ::  HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamNotationDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_newWithSize" newWithSize' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamNotationDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_newWithSizeAndValue" newWithSizeAndValue' ::  HoppyFC.CInt -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamNotationDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_newCopy" newCopy' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamNotationDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_append" append' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_appendVector" appendVector' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_at" at' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M184.QXmlStreamNotationDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_atConst" atConst' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_capacity" capacity' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_clear" clear' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_contains" contains' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_count" count' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_array" array' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyP.IO (HoppyF.Ptr M184.QXmlStreamNotationDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_arrayConst" arrayConst' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyP.IO (HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_endsWith" endsWith' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_fill" fill' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_fillResize" fillResize' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_first" first' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyP.IO (HoppyF.Ptr M184.QXmlStreamNotationDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_firstConst" firstConst' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyP.IO (HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_get" get' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_indexOf" indexOf' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_indexOfFrom" indexOfFrom' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_insert" insert' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyFC.CInt -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_insertMany" insertMany' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_isEmpty" isEmpty' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_last" last' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyP.IO (HoppyF.Ptr M184.QXmlStreamNotationDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_lastConst" lastConst' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyP.IO (HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_lastIndexOf" lastIndexOf' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_lastIndexOfFrom" lastIndexOfFrom' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_mid" mid' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamNotationDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_midLength" midLength' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamNotationDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_prepend" prepend' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_remove" remove' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_removeMany" removeMany' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_removeAll" removeAll' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_removeFirst" removeFirst' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_removeLast" removeLast' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_removeOne" removeOne' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_replace" replace' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyFC.CInt -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_reserve" reserve' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_resize" resize' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_size" size' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_squeeze" squeeze' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_startsWith" startsWith' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_swap" swap' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyP.IO ()+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_takeAt" takeAt' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_takeFirst" takeFirst' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyP.IO (HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_takeLast" takeLast' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyP.IO (HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_value" value' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_valueOr" valueOr' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyFC.CInt -> HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst -> HoppyP.IO (HoppyF.Ptr M184.QXmlStreamNotationDeclarationConst)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_ADD" aDD' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamNotationDeclaration)+foreign import ccall "genpop__QVectorQXmlStreamNotationDeclaration_ASSIGN" aSSIGN' ::  HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyP.IO (HoppyF.Ptr QVectorQXmlStreamNotationDeclaration)+foreign import ccall "gendel__QVectorQXmlStreamNotationDeclaration" delete'QVectorQXmlStreamNotationDeclaration :: HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyP.IO ()+foreign import ccall "&gendel__QVectorQXmlStreamNotationDeclaration" deletePtr'QVectorQXmlStreamNotationDeclaration :: HoppyF.FunPtr (HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst -> HoppyP.IO ())++class QVectorQXmlStreamNotationDeclarationValue a where+  withQVectorQXmlStreamNotationDeclarationPtr :: a -> (QVectorQXmlStreamNotationDeclarationConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QVectorQXmlStreamNotationDeclarationConstPtr a => QVectorQXmlStreamNotationDeclarationValue a where+  withQVectorQXmlStreamNotationDeclarationPtr = HoppyP.flip ($) . toQVectorQXmlStreamNotationDeclarationConst++class (HoppyFHR.CppPtr this) => QVectorQXmlStreamNotationDeclarationConstPtr this where+  toQVectorQXmlStreamNotationDeclarationConst :: this -> QVectorQXmlStreamNotationDeclarationConst++atConst :: (QVectorQXmlStreamNotationDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M184.QXmlStreamNotationDeclarationConst)+atConst arg'1 arg'2 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M184.QXmlStreamNotationDeclarationConst+  (atConst' arg'1' arg'2')++capacity :: (QVectorQXmlStreamNotationDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+capacity arg'1 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (capacity' arg'1')++contains :: (QVectorQXmlStreamNotationDeclarationValue this, M184.QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++count :: (QVectorQXmlStreamNotationDeclarationValue this, M184.QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+count arg'1 arg'2 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1' arg'2')++arrayConst :: (QVectorQXmlStreamNotationDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO M184.QXmlStreamNotationDeclarationConst)+arrayConst arg'1 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M184.QXmlStreamNotationDeclarationConst+  (arrayConst' arg'1')++endsWith :: (QVectorQXmlStreamNotationDeclarationValue this, M184.QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+endsWith arg'1 arg'2 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (endsWith' arg'1' arg'2')++firstConst :: (QVectorQXmlStreamNotationDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO M184.QXmlStreamNotationDeclarationConst)+firstConst arg'1 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M184.QXmlStreamNotationDeclarationConst+  (firstConst' arg'1')++get :: (QVectorQXmlStreamNotationDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M184.QXmlStreamNotationDeclaration)+get arg'1 arg'2 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M184.QXmlStreamNotationDeclarationConst) =<<+  (get' arg'1' arg'2')++indexOf :: (QVectorQXmlStreamNotationDeclarationValue this, M184.QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++indexOfFrom :: (QVectorQXmlStreamNotationDeclarationValue this, M184.QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+indexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOfFrom' arg'1' arg'2' arg'3')++isEmpty :: (QVectorQXmlStreamNotationDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++lastConst :: (QVectorQXmlStreamNotationDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO M184.QXmlStreamNotationDeclarationConst)+lastConst arg'1 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M184.QXmlStreamNotationDeclarationConst+  (lastConst' arg'1')++lastIndexOf :: (QVectorQXmlStreamNotationDeclarationValue this, M184.QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+lastIndexOf arg'1 arg'2 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOf' arg'1' arg'2')++lastIndexOfFrom :: (QVectorQXmlStreamNotationDeclarationValue this, M184.QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+lastIndexOfFrom arg'1 arg'2 arg'3 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lastIndexOfFrom' arg'1' arg'2' arg'3')++mid :: (QVectorQXmlStreamNotationDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QVectorQXmlStreamNotationDeclaration)+mid arg'1 arg'2 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQXmlStreamNotationDeclaration+  (mid' arg'1' arg'2')++midLength :: (QVectorQXmlStreamNotationDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QVectorQXmlStreamNotationDeclaration)+midLength arg'1 arg'2 arg'3 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQXmlStreamNotationDeclaration+  (midLength' arg'1' arg'2' arg'3')++size :: (QVectorQXmlStreamNotationDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+size arg'1 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (size' arg'1')++startsWith :: (QVectorQXmlStreamNotationDeclarationValue this, M184.QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+startsWith arg'1 arg'2 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (startsWith' arg'1' arg'2')++value :: (QVectorQXmlStreamNotationDeclarationValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M184.QXmlStreamNotationDeclaration)+value arg'1 arg'2 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M184.QXmlStreamNotationDeclarationConst) =<<+  (value' arg'1' arg'2')++valueOr :: (QVectorQXmlStreamNotationDeclarationValue this, M184.QXmlStreamNotationDeclarationValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO M184.QXmlStreamNotationDeclaration)+valueOr arg'1 arg'2 arg'3 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M184.QXmlStreamNotationDeclarationConst) =<<+  (valueOr' arg'1' arg'2' arg'3')++aDD :: (QVectorQXmlStreamNotationDeclarationValue this, QVectorQXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQXmlStreamNotationDeclaration)+aDD arg'1 arg'2 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVectorQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap QVectorQXmlStreamNotationDeclaration+  (aDD' arg'1' arg'2')++class (QVectorQXmlStreamNotationDeclarationConstPtr this) => QVectorQXmlStreamNotationDeclarationPtr this where+  toQVectorQXmlStreamNotationDeclaration :: this -> QVectorQXmlStreamNotationDeclaration++append :: (QVectorQXmlStreamNotationDeclarationPtr this, M184.QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+append arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (append' arg'1' arg'2')++appendVector :: (QVectorQXmlStreamNotationDeclarationPtr this, QVectorQXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendVector arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  withQVectorQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendVector' arg'1' arg'2')++at :: (QVectorQXmlStreamNotationDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M184.QXmlStreamNotationDeclaration)+at arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M184.QXmlStreamNotationDeclaration+  (at' arg'1' arg'2')++clear :: (QVectorQXmlStreamNotationDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  (clear' arg'1')++array :: (QVectorQXmlStreamNotationDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO M184.QXmlStreamNotationDeclaration)+array arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  HoppyP.fmap M184.QXmlStreamNotationDeclaration+  (array' arg'1')++fill :: (QVectorQXmlStreamNotationDeclarationPtr this, M184.QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+fill arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (fill' arg'1' arg'2')++fillResize :: (QVectorQXmlStreamNotationDeclarationPtr this, M184.QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO ())+fillResize arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (fillResize' arg'1' arg'2' arg'3')++first :: (QVectorQXmlStreamNotationDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO M184.QXmlStreamNotationDeclaration)+first arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  HoppyP.fmap M184.QXmlStreamNotationDeclaration+  (first' arg'1')++insert :: (QVectorQXmlStreamNotationDeclarationPtr this, M184.QXmlStreamNotationDeclarationValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insert arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insert' arg'1' arg'2' arg'3')++insertMany :: (QVectorQXmlStreamNotationDeclarationPtr this, M184.QXmlStreamNotationDeclarationValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO ())+insertMany arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (insertMany' arg'1' arg'2' arg'3' arg'4')++last :: (QVectorQXmlStreamNotationDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO M184.QXmlStreamNotationDeclaration)+last arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  HoppyP.fmap M184.QXmlStreamNotationDeclaration+  (last' arg'1')++prepend :: (QVectorQXmlStreamNotationDeclarationPtr this, M184.QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+prepend arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (prepend' arg'1' arg'2')++remove :: (QVectorQXmlStreamNotationDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+remove arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (remove' arg'1' arg'2')++removeMany :: (QVectorQXmlStreamNotationDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+removeMany arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (removeMany' arg'1' arg'2' arg'3')++removeAll :: (QVectorQXmlStreamNotationDeclarationPtr this, M184.QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+removeAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (removeAll' arg'1' arg'2')++removeFirst :: (QVectorQXmlStreamNotationDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  (removeFirst' arg'1')++removeLast :: (QVectorQXmlStreamNotationDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+removeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  (removeLast' arg'1')++removeOne :: (QVectorQXmlStreamNotationDeclarationPtr this, M184.QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+removeOne arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (removeOne' arg'1' arg'2')++replace :: (QVectorQXmlStreamNotationDeclarationPtr this, M184.QXmlStreamNotationDeclarationValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+replace arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (replace' arg'1' arg'2' arg'3')++reserve :: (QVectorQXmlStreamNotationDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+reserve arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (reserve' arg'1' arg'2')++resize :: (QVectorQXmlStreamNotationDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+resize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (resize' arg'1' arg'2')++squeeze :: (QVectorQXmlStreamNotationDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+squeeze arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  (squeeze' arg'1')++swap :: (QVectorQXmlStreamNotationDeclarationPtr this, QVectorQXmlStreamNotationDeclarationPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++takeAt :: (QVectorQXmlStreamNotationDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M184.QXmlStreamNotationDeclaration)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M184.QXmlStreamNotationDeclarationConst) =<<+  (takeAt' arg'1' arg'2')++takeFirst :: (QVectorQXmlStreamNotationDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO M184.QXmlStreamNotationDeclaration)+takeFirst arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M184.QXmlStreamNotationDeclarationConst) =<<+  (takeFirst' arg'1')++takeLast :: (QVectorQXmlStreamNotationDeclarationPtr this) => (this) {- ^ this -} -> (HoppyP.IO M184.QXmlStreamNotationDeclaration)+takeLast arg'1 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M184.QXmlStreamNotationDeclarationConst) =<<+  (takeLast' arg'1')++aSSIGN :: (QVectorQXmlStreamNotationDeclarationPtr this, QVectorQXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVectorQXmlStreamNotationDeclaration)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVectorQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  withQVectorQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQXmlStreamNotationDeclaration+  (aSSIGN' arg'1' arg'2')++data QVectorQXmlStreamNotationDeclarationConst =+    QVectorQXmlStreamNotationDeclarationConst (HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst)+  | QVectorQXmlStreamNotationDeclarationConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQXmlStreamNotationDeclarationConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQXmlStreamNotationDeclarationConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQXmlStreamNotationDeclarationToConst :: QVectorQXmlStreamNotationDeclaration -> QVectorQXmlStreamNotationDeclarationConst+castQVectorQXmlStreamNotationDeclarationToConst (QVectorQXmlStreamNotationDeclaration ptr') = QVectorQXmlStreamNotationDeclarationConst $ HoppyF.castPtr ptr'+castQVectorQXmlStreamNotationDeclarationToConst (QVectorQXmlStreamNotationDeclarationGc fptr' ptr') = QVectorQXmlStreamNotationDeclarationConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQXmlStreamNotationDeclarationConst where+  nullptr = QVectorQXmlStreamNotationDeclarationConst HoppyF.nullPtr+  +  withCppPtr (QVectorQXmlStreamNotationDeclarationConst ptr') f' = f' ptr'+  withCppPtr (QVectorQXmlStreamNotationDeclarationConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQXmlStreamNotationDeclarationConst ptr') = ptr'+  toPtr (QVectorQXmlStreamNotationDeclarationConstGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQXmlStreamNotationDeclarationConst _) = HoppyP.return ()+  touchCppPtr (QVectorQXmlStreamNotationDeclarationConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQXmlStreamNotationDeclarationConst where+  delete (QVectorQXmlStreamNotationDeclarationConst ptr') = delete'QVectorQXmlStreamNotationDeclaration ptr'+  delete (QVectorQXmlStreamNotationDeclarationConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQXmlStreamNotationDeclarationConst", " object."]+  +  toGc this'@(QVectorQXmlStreamNotationDeclarationConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQXmlStreamNotationDeclarationConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQXmlStreamNotationDeclaration :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQXmlStreamNotationDeclarationConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQXmlStreamNotationDeclarationConst QVectorQXmlStreamNotationDeclaration where copy = newCopy++instance QVectorQXmlStreamNotationDeclarationConstPtr QVectorQXmlStreamNotationDeclarationConst where+  toQVectorQXmlStreamNotationDeclarationConst = HoppyP.id++data QVectorQXmlStreamNotationDeclaration =+    QVectorQXmlStreamNotationDeclaration (HoppyF.Ptr QVectorQXmlStreamNotationDeclaration)+  | QVectorQXmlStreamNotationDeclarationGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVectorQXmlStreamNotationDeclaration)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVectorQXmlStreamNotationDeclaration where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVectorQXmlStreamNotationDeclaration where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVectorQXmlStreamNotationDeclarationToNonconst :: QVectorQXmlStreamNotationDeclarationConst -> QVectorQXmlStreamNotationDeclaration+castQVectorQXmlStreamNotationDeclarationToNonconst (QVectorQXmlStreamNotationDeclarationConst ptr') = QVectorQXmlStreamNotationDeclaration $ HoppyF.castPtr ptr'+castQVectorQXmlStreamNotationDeclarationToNonconst (QVectorQXmlStreamNotationDeclarationConstGc fptr' ptr') = QVectorQXmlStreamNotationDeclarationGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVectorQXmlStreamNotationDeclaration where+  nullptr = QVectorQXmlStreamNotationDeclaration HoppyF.nullPtr+  +  withCppPtr (QVectorQXmlStreamNotationDeclaration ptr') f' = f' ptr'+  withCppPtr (QVectorQXmlStreamNotationDeclarationGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVectorQXmlStreamNotationDeclaration ptr') = ptr'+  toPtr (QVectorQXmlStreamNotationDeclarationGc _ ptr') = ptr'+  +  touchCppPtr (QVectorQXmlStreamNotationDeclaration _) = HoppyP.return ()+  touchCppPtr (QVectorQXmlStreamNotationDeclarationGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVectorQXmlStreamNotationDeclaration where+  delete (QVectorQXmlStreamNotationDeclaration ptr') = delete'QVectorQXmlStreamNotationDeclaration $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst)+  delete (QVectorQXmlStreamNotationDeclarationGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVectorQXmlStreamNotationDeclaration", " object."]+  +  toGc this'@(QVectorQXmlStreamNotationDeclaration ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVectorQXmlStreamNotationDeclarationGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVectorQXmlStreamNotationDeclaration :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVectorQXmlStreamNotationDeclarationGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVectorQXmlStreamNotationDeclaration QVectorQXmlStreamNotationDeclaration where copy = newCopy++instance QVectorQXmlStreamNotationDeclarationConstPtr QVectorQXmlStreamNotationDeclaration where+  toQVectorQXmlStreamNotationDeclarationConst (QVectorQXmlStreamNotationDeclaration ptr') = QVectorQXmlStreamNotationDeclarationConst $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst) ptr'+  toQVectorQXmlStreamNotationDeclarationConst (QVectorQXmlStreamNotationDeclarationGc fptr' ptr') = QVectorQXmlStreamNotationDeclarationConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QVectorQXmlStreamNotationDeclaration -> HoppyF.Ptr QVectorQXmlStreamNotationDeclarationConst) ptr'++instance QVectorQXmlStreamNotationDeclarationPtr QVectorQXmlStreamNotationDeclaration where+  toQVectorQXmlStreamNotationDeclaration = HoppyP.id++new :: (HoppyP.IO QVectorQXmlStreamNotationDeclaration)+new =+  HoppyP.fmap QVectorQXmlStreamNotationDeclaration+  (new')++newWithSize :: (HoppyP.Int) -> (HoppyP.IO QVectorQXmlStreamNotationDeclaration)+newWithSize arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVectorQXmlStreamNotationDeclaration+  (newWithSize' arg'1')++newWithSizeAndValue :: (M184.QXmlStreamNotationDeclarationValue arg'2) => (HoppyP.Int) -> (arg'2) -> (HoppyP.IO QVectorQXmlStreamNotationDeclaration)+newWithSizeAndValue arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  M184.withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVectorQXmlStreamNotationDeclaration+  (newWithSizeAndValue' arg'1' arg'2')++newCopy :: (QVectorQXmlStreamNotationDeclarationValue arg'1) => (arg'1) -> (HoppyP.IO QVectorQXmlStreamNotationDeclaration)+newCopy arg'1 =+  withQVectorQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVectorQXmlStreamNotationDeclaration+  (newCopy' arg'1')++class QVectorQXmlStreamNotationDeclarationSuper a where+  downToQVectorQXmlStreamNotationDeclaration :: a -> QVectorQXmlStreamNotationDeclaration+++class QVectorQXmlStreamNotationDeclarationSuperConst a where+  downToQVectorQXmlStreamNotationDeclarationConst :: a -> QVectorQXmlStreamNotationDeclarationConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QVectorQXmlStreamNotationDeclaration)) QVectorQXmlStreamNotationDeclaration where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QVectorQXmlStreamNotationDeclarationValue a => HoppyFHR.Assignable QVectorQXmlStreamNotationDeclaration a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QVectorQXmlStreamNotationDeclaration)) QVectorQXmlStreamNotationDeclaration where+  decode = HoppyP.fmap QVectorQXmlStreamNotationDeclaration . HoppyF.peek++instance QtahFHR.HasContents QVectorQXmlStreamNotationDeclarationConst (M184.QXmlStreamNotationDeclaration) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< atConst this') [0..size'-1]++instance QtahFHR.HasContents QVectorQXmlStreamNotationDeclaration (M184.QXmlStreamNotationDeclaration) where+  toContents this' = do+    size' <- size this'+    QtahP.mapM (QtahFHR.decode <=< at this') [0..size'-1]++instance QtahFHR.FromContents QVectorQXmlStreamNotationDeclaration (M184.QXmlStreamNotationDeclaration) where+  fromContents values' = do+    vector' <- new+    reserve vector' $ QtahFHR.coerceIntegral $ QtahP.length values'+    QtahP.mapM_ (append vector') values'+    QtahP.return vector'
src/Graphics/UI/Qtah/Generated/Core/QVersionNumber.hs view
@@ -0,0 +1,419 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QVersionNumber (+  QVersionNumberValue (..),+  QVersionNumberConstPtr (..),+  isNormalized,+  isNull,+  isPrefixOf,+  majorVersion,+  microVersion,+  minorVersion,+  normalized,+  segmentAt,+  segmentCount,+  segments,+  toString,+  eQ,+  nE,+  lT,+  lE,+  gT,+  gE,+  QVersionNumberPtr (..),+  aSSIGN,+  commonPrefix,+  compare,+  fromString,+  QVersionNumberConst (..),+  castQVersionNumberToConst,+  QVersionNumber (..),+  castQVersionNumberToNonconst,+  new,+  newWithVector,+  newWithMajor,+  newWithMajorMinor,+  newWithMajorMinorMicro,+  newCopy,+  QVersionNumberSuper (..),+  QVersionNumberSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QVector.Int as M214+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QVersionNumber_new" new' ::  HoppyP.IO (HoppyF.Ptr QVersionNumber)+foreign import ccall "genpop__QVersionNumber_newWithVector" newWithVector' ::  HoppyF.Ptr M214.QVectorInt -> HoppyP.IO (HoppyF.Ptr QVersionNumber)+foreign import ccall "genpop__QVersionNumber_newWithMajor" newWithMajor' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVersionNumber)+foreign import ccall "genpop__QVersionNumber_newWithMajorMinor" newWithMajorMinor' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVersionNumber)+foreign import ccall "genpop__QVersionNumber_newWithMajorMinorMicro" newWithMajorMinorMicro' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QVersionNumber)+foreign import ccall "genpop__QVersionNumber_newCopy" newCopy' ::  HoppyF.Ptr QVersionNumberConst -> HoppyP.IO (HoppyF.Ptr QVersionNumber)+foreign import ccall "genpop__QVersionNumber_commonPrefix" commonPrefix' ::  HoppyF.Ptr QVersionNumberConst -> HoppyF.Ptr QVersionNumberConst -> HoppyP.IO (HoppyF.Ptr QVersionNumberConst)+foreign import ccall "genpop__QVersionNumber_compare" compare' ::  HoppyF.Ptr QVersionNumberConst -> HoppyF.Ptr QVersionNumberConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVersionNumber_fromString" fromString' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QVersionNumberConst)+foreign import ccall "genpop__QVersionNumber_isNormalized" isNormalized' ::  HoppyF.Ptr QVersionNumberConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVersionNumber_isNull" isNull' ::  HoppyF.Ptr QVersionNumberConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVersionNumber_isPrefixOf" isPrefixOf' ::  HoppyF.Ptr QVersionNumberConst -> HoppyF.Ptr QVersionNumberConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVersionNumber_majorVersion" majorVersion' ::  HoppyF.Ptr QVersionNumberConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVersionNumber_microVersion" microVersion' ::  HoppyF.Ptr QVersionNumberConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVersionNumber_minorVersion" minorVersion' ::  HoppyF.Ptr QVersionNumberConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVersionNumber_normalized" normalized' ::  HoppyF.Ptr QVersionNumberConst -> HoppyP.IO (HoppyF.Ptr QVersionNumberConst)+foreign import ccall "genpop__QVersionNumber_segmentAt" segmentAt' ::  HoppyF.Ptr QVersionNumberConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVersionNumber_segmentCount" segmentCount' ::  HoppyF.Ptr QVersionNumberConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QVersionNumber_segments" segments' ::  HoppyF.Ptr QVersionNumberConst -> HoppyP.IO (HoppyF.Ptr M214.QVectorInt)+foreign import ccall "genpop__QVersionNumber_toString" toString' ::  HoppyF.Ptr QVersionNumberConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QVersionNumber_EQ" eQ' ::  HoppyF.Ptr QVersionNumberConst -> HoppyF.Ptr QVersionNumberConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVersionNumber_NE" nE' ::  HoppyF.Ptr QVersionNumberConst -> HoppyF.Ptr QVersionNumberConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVersionNumber_LT" lT' ::  HoppyF.Ptr QVersionNumberConst -> HoppyF.Ptr QVersionNumberConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVersionNumber_LE" lE' ::  HoppyF.Ptr QVersionNumberConst -> HoppyF.Ptr QVersionNumberConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVersionNumber_GT" gT' ::  HoppyF.Ptr QVersionNumberConst -> HoppyF.Ptr QVersionNumberConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVersionNumber_GE" gE' ::  HoppyF.Ptr QVersionNumberConst -> HoppyF.Ptr QVersionNumberConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QVersionNumber_ASSIGN" aSSIGN' ::  HoppyF.Ptr QVersionNumber -> HoppyF.Ptr QVersionNumberConst -> HoppyP.IO (HoppyF.Ptr QVersionNumber)+foreign import ccall "gendel__QVersionNumber" delete'QVersionNumber :: HoppyF.Ptr QVersionNumberConst -> HoppyP.IO ()+foreign import ccall "&gendel__QVersionNumber" deletePtr'QVersionNumber :: HoppyF.FunPtr (HoppyF.Ptr QVersionNumberConst -> HoppyP.IO ())++class QVersionNumberValue a where+  withQVersionNumberPtr :: a -> (QVersionNumberConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QVersionNumberConstPtr a => QVersionNumberValue a where+  withQVersionNumberPtr = HoppyP.flip ($) . toQVersionNumberConst++class (HoppyFHR.CppPtr this) => QVersionNumberConstPtr this where+  toQVersionNumberConst :: this -> QVersionNumberConst++isNormalized :: (QVersionNumberValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNormalized arg'1 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNormalized' arg'1')++isNull :: (QVersionNumberValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++isPrefixOf :: (QVersionNumberValue this, QVersionNumberValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+isPrefixOf arg'1 arg'2 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVersionNumberPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isPrefixOf' arg'1' arg'2')++majorVersion :: (QVersionNumberValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+majorVersion arg'1 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (majorVersion' arg'1')++microVersion :: (QVersionNumberValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+microVersion arg'1 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (microVersion' arg'1')++minorVersion :: (QVersionNumberValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+minorVersion arg'1 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (minorVersion' arg'1')++normalized :: (QVersionNumberValue this) => (this) {- ^ this -} -> (HoppyP.IO QVersionNumber)+normalized arg'1 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QVersionNumberConst) =<<+  (normalized' arg'1')++segmentAt :: (QVersionNumberValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+segmentAt arg'1 arg'2 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (segmentAt' arg'1' arg'2')++segmentCount :: (QVersionNumberValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+segmentCount arg'1 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (segmentCount' arg'1')++segments :: (QVersionNumberValue this) => (this) {- ^ this -} -> (HoppyP.IO M214.QVectorInt)+segments arg'1 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap M214.QVectorInt+  (segments' arg'1')++toString :: (QVersionNumberValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+toString arg'1 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toString' arg'1')++eQ :: (QVersionNumberValue this, QVersionNumberValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVersionNumberPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QVersionNumberValue this, QVersionNumberValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVersionNumberPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++lT :: (QVersionNumberValue this, QVersionNumberValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lT arg'1 arg'2 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVersionNumberPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lT' arg'1' arg'2')++lE :: (QVersionNumberValue this, QVersionNumberValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+lE arg'1 arg'2 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVersionNumberPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lE' arg'1' arg'2')++gT :: (QVersionNumberValue this, QVersionNumberValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gT arg'1 arg'2 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVersionNumberPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gT' arg'1' arg'2')++gE :: (QVersionNumberValue this, QVersionNumberValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+gE arg'1 arg'2 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVersionNumberPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gE' arg'1' arg'2')++class (QVersionNumberConstPtr this) => QVersionNumberPtr this where+  toQVersionNumber :: this -> QVersionNumber++aSSIGN :: (QVersionNumberPtr this, QVersionNumberValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QVersionNumber)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQVersionNumber arg'1) $ \arg'1' ->+  withQVersionNumberPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QVersionNumber+  (aSSIGN' arg'1' arg'2')++commonPrefix :: (QVersionNumberValue arg'1, QVersionNumberValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QVersionNumber)+commonPrefix arg'1 arg'2 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVersionNumberPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QVersionNumberConst) =<<+  (commonPrefix' arg'1' arg'2')++compare :: (QVersionNumberValue arg'1, QVersionNumberValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Int)+compare arg'1 arg'2 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQVersionNumberPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (compare' arg'1' arg'2')++fromString :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QVersionNumber)+fromString arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QVersionNumberConst) =<<+  (fromString' arg'1')++data QVersionNumberConst =+    QVersionNumberConst (HoppyF.Ptr QVersionNumberConst)+  | QVersionNumberConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVersionNumberConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVersionNumberConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVersionNumberConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVersionNumberToConst :: QVersionNumber -> QVersionNumberConst+castQVersionNumberToConst (QVersionNumber ptr') = QVersionNumberConst $ HoppyF.castPtr ptr'+castQVersionNumberToConst (QVersionNumberGc fptr' ptr') = QVersionNumberConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVersionNumberConst where+  nullptr = QVersionNumberConst HoppyF.nullPtr+  +  withCppPtr (QVersionNumberConst ptr') f' = f' ptr'+  withCppPtr (QVersionNumberConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVersionNumberConst ptr') = ptr'+  toPtr (QVersionNumberConstGc _ ptr') = ptr'+  +  touchCppPtr (QVersionNumberConst _) = HoppyP.return ()+  touchCppPtr (QVersionNumberConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVersionNumberConst where+  delete (QVersionNumberConst ptr') = delete'QVersionNumber ptr'+  delete (QVersionNumberConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVersionNumberConst", " object."]+  +  toGc this'@(QVersionNumberConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVersionNumberConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVersionNumber :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVersionNumberConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVersionNumberConst QVersionNumber where copy = newCopy++instance QVersionNumberConstPtr QVersionNumberConst where+  toQVersionNumberConst = HoppyP.id++data QVersionNumber =+    QVersionNumber (HoppyF.Ptr QVersionNumber)+  | QVersionNumberGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QVersionNumber)+  deriving (HoppyP.Show)++instance HoppyP.Eq QVersionNumber where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QVersionNumber where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQVersionNumberToNonconst :: QVersionNumberConst -> QVersionNumber+castQVersionNumberToNonconst (QVersionNumberConst ptr') = QVersionNumber $ HoppyF.castPtr ptr'+castQVersionNumberToNonconst (QVersionNumberConstGc fptr' ptr') = QVersionNumberGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QVersionNumber where+  nullptr = QVersionNumber HoppyF.nullPtr+  +  withCppPtr (QVersionNumber ptr') f' = f' ptr'+  withCppPtr (QVersionNumberGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QVersionNumber ptr') = ptr'+  toPtr (QVersionNumberGc _ ptr') = ptr'+  +  touchCppPtr (QVersionNumber _) = HoppyP.return ()+  touchCppPtr (QVersionNumberGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QVersionNumber where+  delete (QVersionNumber ptr') = delete'QVersionNumber $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QVersionNumberConst)+  delete (QVersionNumberGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QVersionNumber", " object."]+  +  toGc this'@(QVersionNumber ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QVersionNumberGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QVersionNumber :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QVersionNumberGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QVersionNumber QVersionNumber where copy = newCopy++instance QVersionNumberConstPtr QVersionNumber where+  toQVersionNumberConst (QVersionNumber ptr') = QVersionNumberConst $ (HoppyF.castPtr :: HoppyF.Ptr QVersionNumber -> HoppyF.Ptr QVersionNumberConst) ptr'+  toQVersionNumberConst (QVersionNumberGc fptr' ptr') = QVersionNumberConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QVersionNumber -> HoppyF.Ptr QVersionNumberConst) ptr'++instance QVersionNumberPtr QVersionNumber where+  toQVersionNumber = HoppyP.id++new :: (HoppyP.IO QVersionNumber)+new =+  HoppyP.fmap QVersionNumber+  (new')++newWithVector :: (M214.QVectorIntPtr arg'1) => (arg'1) -> (HoppyP.IO QVersionNumber)+newWithVector arg'1 =+  HoppyFHR.withCppPtr (M214.toQVectorInt arg'1) $ \arg'1' ->+  HoppyP.fmap QVersionNumber+  (newWithVector' arg'1')++newWithMajor :: (HoppyP.Int) -> (HoppyP.IO QVersionNumber)+newWithMajor arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QVersionNumber+  (newWithMajor' arg'1')++newWithMajorMinor :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QVersionNumber)+newWithMajorMinor arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QVersionNumber+  (newWithMajorMinor' arg'1' arg'2')++newWithMajorMinorMicro :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QVersionNumber)+newWithMajorMinorMicro arg'1 arg'2 arg'3 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QVersionNumber+  (newWithMajorMinorMicro' arg'1' arg'2' arg'3')++newCopy :: (QVersionNumberValue arg'1) => (arg'1) -> (HoppyP.IO QVersionNumber)+newCopy arg'1 =+  withQVersionNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QVersionNumber+  (newCopy' arg'1')++class QVersionNumberSuper a where+  downToQVersionNumber :: a -> QVersionNumber+++class QVersionNumberSuperConst a where+  downToQVersionNumberConst :: a -> QVersionNumberConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QVersionNumber)) QVersionNumber where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QVersionNumberValue a => HoppyFHR.Assignable QVersionNumber a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QVersionNumber)) QVersionNumber where+  decode = HoppyP.fmap QVersionNumber . HoppyF.peek++instance HoppyFHR.Decodable QVersionNumber (QVersionNumber) where+  decode = HoppyFHR.decode . toQVersionNumberConst++instance HoppyFHR.Decodable QVersionNumberConst (QVersionNumber) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QXmlStreamAttribute.hs view
@@ -0,0 +1,218 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QXmlStreamAttribute (+  QXmlStreamAttributeValue (..),+  QXmlStreamAttributeConstPtr (..),+  isDefault,+  eQ,+  nE,+  QXmlStreamAttributePtr (..),+  aSSIGN,+  QXmlStreamAttributeConst (..),+  castQXmlStreamAttributeToConst,+  QXmlStreamAttribute (..),+  castQXmlStreamAttributeToNonconst,+  new,+  newWithQualifiedNameAndValue,+  newWithNamespaceUriAndNameAndValue,+  newCopy,+  QXmlStreamAttributeSuper (..),+  QXmlStreamAttributeSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QXmlStreamAttribute_new" new' ::  HoppyP.IO (HoppyF.Ptr QXmlStreamAttribute)+foreign import ccall "genpop__QXmlStreamAttribute_newWithQualifiedNameAndValue" newWithQualifiedNameAndValue' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QXmlStreamAttribute)+foreign import ccall "genpop__QXmlStreamAttribute_newWithNamespaceUriAndNameAndValue" newWithNamespaceUriAndNameAndValue' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QXmlStreamAttribute)+foreign import ccall "genpop__QXmlStreamAttribute_newCopy" newCopy' ::  HoppyF.Ptr QXmlStreamAttributeConst -> HoppyP.IO (HoppyF.Ptr QXmlStreamAttribute)+foreign import ccall "genpop__QXmlStreamAttribute_isDefault" isDefault' ::  HoppyF.Ptr QXmlStreamAttributeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamAttribute_EQ" eQ' ::  HoppyF.Ptr QXmlStreamAttributeConst -> HoppyF.Ptr QXmlStreamAttributeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamAttribute_NE" nE' ::  HoppyF.Ptr QXmlStreamAttributeConst -> HoppyF.Ptr QXmlStreamAttributeConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamAttribute_ASSIGN" aSSIGN' ::  HoppyF.Ptr QXmlStreamAttribute -> HoppyF.Ptr QXmlStreamAttributeConst -> HoppyP.IO (HoppyF.Ptr QXmlStreamAttribute)+foreign import ccall "gendel__QXmlStreamAttribute" delete'QXmlStreamAttribute :: HoppyF.Ptr QXmlStreamAttributeConst -> HoppyP.IO ()+foreign import ccall "&gendel__QXmlStreamAttribute" deletePtr'QXmlStreamAttribute :: HoppyF.FunPtr (HoppyF.Ptr QXmlStreamAttributeConst -> HoppyP.IO ())++class QXmlStreamAttributeValue a where+  withQXmlStreamAttributePtr :: a -> (QXmlStreamAttributeConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QXmlStreamAttributeConstPtr a => QXmlStreamAttributeValue a where+  withQXmlStreamAttributePtr = HoppyP.flip ($) . toQXmlStreamAttributeConst++class (HoppyFHR.CppPtr this) => QXmlStreamAttributeConstPtr this where+  toQXmlStreamAttributeConst :: this -> QXmlStreamAttributeConst++isDefault :: (QXmlStreamAttributeValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isDefault arg'1 =+  withQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isDefault' arg'1')++eQ :: (QXmlStreamAttributeValue this, QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QXmlStreamAttributeValue this, QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QXmlStreamAttributeConstPtr this) => QXmlStreamAttributePtr this where+  toQXmlStreamAttribute :: this -> QXmlStreamAttribute++aSSIGN :: (QXmlStreamAttributePtr this, QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QXmlStreamAttribute)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamAttribute arg'1) $ \arg'1' ->+  withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QXmlStreamAttribute+  (aSSIGN' arg'1' arg'2')++data QXmlStreamAttributeConst =+    QXmlStreamAttributeConst (HoppyF.Ptr QXmlStreamAttributeConst)+  | QXmlStreamAttributeConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamAttributeConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamAttributeConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamAttributeConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamAttributeToConst :: QXmlStreamAttribute -> QXmlStreamAttributeConst+castQXmlStreamAttributeToConst (QXmlStreamAttribute ptr') = QXmlStreamAttributeConst $ HoppyF.castPtr ptr'+castQXmlStreamAttributeToConst (QXmlStreamAttributeGc fptr' ptr') = QXmlStreamAttributeConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamAttributeConst where+  nullptr = QXmlStreamAttributeConst HoppyF.nullPtr+  +  withCppPtr (QXmlStreamAttributeConst ptr') f' = f' ptr'+  withCppPtr (QXmlStreamAttributeConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamAttributeConst ptr') = ptr'+  toPtr (QXmlStreamAttributeConstGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamAttributeConst _) = HoppyP.return ()+  touchCppPtr (QXmlStreamAttributeConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamAttributeConst where+  delete (QXmlStreamAttributeConst ptr') = delete'QXmlStreamAttribute ptr'+  delete (QXmlStreamAttributeConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamAttributeConst", " object."]+  +  toGc this'@(QXmlStreamAttributeConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamAttributeConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamAttribute :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamAttributeConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QXmlStreamAttributeConst QXmlStreamAttribute where copy = newCopy++instance QXmlStreamAttributeConstPtr QXmlStreamAttributeConst where+  toQXmlStreamAttributeConst = HoppyP.id++data QXmlStreamAttribute =+    QXmlStreamAttribute (HoppyF.Ptr QXmlStreamAttribute)+  | QXmlStreamAttributeGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamAttribute)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamAttribute where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamAttribute where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamAttributeToNonconst :: QXmlStreamAttributeConst -> QXmlStreamAttribute+castQXmlStreamAttributeToNonconst (QXmlStreamAttributeConst ptr') = QXmlStreamAttribute $ HoppyF.castPtr ptr'+castQXmlStreamAttributeToNonconst (QXmlStreamAttributeConstGc fptr' ptr') = QXmlStreamAttributeGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamAttribute where+  nullptr = QXmlStreamAttribute HoppyF.nullPtr+  +  withCppPtr (QXmlStreamAttribute ptr') f' = f' ptr'+  withCppPtr (QXmlStreamAttributeGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamAttribute ptr') = ptr'+  toPtr (QXmlStreamAttributeGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamAttribute _) = HoppyP.return ()+  touchCppPtr (QXmlStreamAttributeGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamAttribute where+  delete (QXmlStreamAttribute ptr') = delete'QXmlStreamAttribute $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QXmlStreamAttributeConst)+  delete (QXmlStreamAttributeGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamAttribute", " object."]+  +  toGc this'@(QXmlStreamAttribute ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamAttributeGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamAttribute :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamAttributeGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QXmlStreamAttribute QXmlStreamAttribute where copy = newCopy++instance QXmlStreamAttributeConstPtr QXmlStreamAttribute where+  toQXmlStreamAttributeConst (QXmlStreamAttribute ptr') = QXmlStreamAttributeConst $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamAttribute -> HoppyF.Ptr QXmlStreamAttributeConst) ptr'+  toQXmlStreamAttributeConst (QXmlStreamAttributeGc fptr' ptr') = QXmlStreamAttributeConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamAttribute -> HoppyF.Ptr QXmlStreamAttributeConst) ptr'++instance QXmlStreamAttributePtr QXmlStreamAttribute where+  toQXmlStreamAttribute = HoppyP.id++new :: (HoppyP.IO QXmlStreamAttribute)+new =+  HoppyP.fmap QXmlStreamAttribute+  (new')++newWithQualifiedNameAndValue :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QXmlStreamAttribute)+newWithQualifiedNameAndValue arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QXmlStreamAttribute+  (newWithQualifiedNameAndValue' arg'1' arg'2')++newWithNamespaceUriAndNameAndValue :: (M142.QStringValue arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO QXmlStreamAttribute)+newWithNamespaceUriAndNameAndValue arg'1 arg'2 arg'3 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap QXmlStreamAttribute+  (newWithNamespaceUriAndNameAndValue' arg'1' arg'2' arg'3')++newCopy :: (QXmlStreamAttributeValue arg'1) => (arg'1) -> (HoppyP.IO QXmlStreamAttribute)+newCopy arg'1 =+  withQXmlStreamAttributePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QXmlStreamAttribute+  (newCopy' arg'1')++class QXmlStreamAttributeSuper a where+  downToQXmlStreamAttribute :: a -> QXmlStreamAttribute+++class QXmlStreamAttributeSuperConst a where+  downToQXmlStreamAttributeConst :: a -> QXmlStreamAttributeConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamAttribute)) QXmlStreamAttribute where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QXmlStreamAttributeValue a => HoppyFHR.Assignable QXmlStreamAttribute a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamAttribute)) QXmlStreamAttribute where+  decode = HoppyP.fmap QXmlStreamAttribute . HoppyF.peek++instance HoppyFHR.Decodable QXmlStreamAttribute (QXmlStreamAttribute) where+  decode = HoppyFHR.decode . toQXmlStreamAttributeConst++instance HoppyFHR.Decodable QXmlStreamAttributeConst (QXmlStreamAttribute) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QXmlStreamAttributes.hs view
@@ -0,0 +1,204 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QXmlStreamAttributes (+  castQXmlStreamAttributesToQVectorQXmlStreamAttribute,+  QXmlStreamAttributesValue (..),+  QXmlStreamAttributesConstPtr (..),+  hasAttribute,+  hasAttributeWithLatin1String,+  hasAttributeWithNamespaceUriAndName,+  QXmlStreamAttributesPtr (..),+  appendWithNamespaceUriAndNameAndValue,+  appendWithQualifiedNameAndValue,+  QXmlStreamAttributesConst (..),+  castQXmlStreamAttributesToConst,+  QXmlStreamAttributes (..),+  castQXmlStreamAttributesToNonconst,+  new,+  QXmlStreamAttributesSuper (..),+  QXmlStreamAttributesSuperConst (..),+  ) 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.Core.QLatin1String as M58+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QVector.QXmlStreamAttribute as M228+import Prelude (($), (.), (/=), (=<<), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QXmlStreamAttributes_new" new' ::  HoppyP.IO (HoppyF.Ptr QXmlStreamAttributes)+foreign import ccall "genpop__QXmlStreamAttributes_appendWithNamespaceUriAndNameAndValue" appendWithNamespaceUriAndNameAndValue' ::  HoppyF.Ptr QXmlStreamAttributes -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamAttributes_appendWithQualifiedNameAndValue" appendWithQualifiedNameAndValue' ::  HoppyF.Ptr QXmlStreamAttributes -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamAttributes_hasAttribute" hasAttribute' ::  HoppyF.Ptr QXmlStreamAttributesConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamAttributes_hasAttributeWithLatin1String" hasAttributeWithLatin1String' ::  HoppyF.Ptr QXmlStreamAttributesConst -> HoppyF.Ptr M58.QLatin1StringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamAttributes_hasAttributeWithNamespaceUriAndName" hasAttributeWithNamespaceUriAndName' ::  HoppyF.Ptr QXmlStreamAttributesConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "gencast__QXmlStreamAttributes__QVectorQXmlStreamAttribute" castQXmlStreamAttributesToQVectorQXmlStreamAttribute :: HoppyF.Ptr QXmlStreamAttributesConst -> HoppyF.Ptr M228.QVectorQXmlStreamAttributeConst+foreign import ccall "gendel__QXmlStreamAttributes" delete'QXmlStreamAttributes :: HoppyF.Ptr QXmlStreamAttributesConst -> HoppyP.IO ()+foreign import ccall "&gendel__QXmlStreamAttributes" deletePtr'QXmlStreamAttributes :: HoppyF.FunPtr (HoppyF.Ptr QXmlStreamAttributesConst -> HoppyP.IO ())++class QXmlStreamAttributesValue a where+  withQXmlStreamAttributesPtr :: a -> (QXmlStreamAttributesConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QXmlStreamAttributesConstPtr a => QXmlStreamAttributesValue a where+  withQXmlStreamAttributesPtr = HoppyP.flip ($) . toQXmlStreamAttributesConst++class (M228.QVectorQXmlStreamAttributeConstPtr this) => QXmlStreamAttributesConstPtr this where+  toQXmlStreamAttributesConst :: this -> QXmlStreamAttributesConst++hasAttribute :: (QXmlStreamAttributesValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+hasAttribute arg'1 arg'2 =+  withQXmlStreamAttributesPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasAttribute' arg'1' arg'2')++hasAttributeWithLatin1String :: (QXmlStreamAttributesValue this, M58.QLatin1StringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+hasAttributeWithLatin1String arg'1 arg'2 =+  withQXmlStreamAttributesPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M58.withQLatin1StringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasAttributeWithLatin1String' arg'1' arg'2')++hasAttributeWithNamespaceUriAndName :: (QXmlStreamAttributesValue this, M142.QStringValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+hasAttributeWithNamespaceUriAndName arg'1 arg'2 arg'3 =+  withQXmlStreamAttributesPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasAttributeWithNamespaceUriAndName' arg'1' arg'2' arg'3')++class (QXmlStreamAttributesConstPtr this, M228.QVectorQXmlStreamAttributePtr this) => QXmlStreamAttributesPtr this where+  toQXmlStreamAttributes :: this -> QXmlStreamAttributes++appendWithNamespaceUriAndNameAndValue :: (QXmlStreamAttributesPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO ())+appendWithNamespaceUriAndNameAndValue arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQXmlStreamAttributes arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (appendWithNamespaceUriAndNameAndValue' arg'1' arg'2' arg'3' arg'4')++appendWithQualifiedNameAndValue :: (QXmlStreamAttributesPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+appendWithQualifiedNameAndValue arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQXmlStreamAttributes arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (appendWithQualifiedNameAndValue' arg'1' arg'2' arg'3')++data QXmlStreamAttributesConst =+    QXmlStreamAttributesConst (HoppyF.Ptr QXmlStreamAttributesConst)+  | QXmlStreamAttributesConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamAttributesConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamAttributesConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamAttributesConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamAttributesToConst :: QXmlStreamAttributes -> QXmlStreamAttributesConst+castQXmlStreamAttributesToConst (QXmlStreamAttributes ptr') = QXmlStreamAttributesConst $ HoppyF.castPtr ptr'+castQXmlStreamAttributesToConst (QXmlStreamAttributesGc fptr' ptr') = QXmlStreamAttributesConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamAttributesConst where+  nullptr = QXmlStreamAttributesConst HoppyF.nullPtr+  +  withCppPtr (QXmlStreamAttributesConst ptr') f' = f' ptr'+  withCppPtr (QXmlStreamAttributesConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamAttributesConst ptr') = ptr'+  toPtr (QXmlStreamAttributesConstGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamAttributesConst _) = HoppyP.return ()+  touchCppPtr (QXmlStreamAttributesConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamAttributesConst where+  delete (QXmlStreamAttributesConst ptr') = delete'QXmlStreamAttributes ptr'+  delete (QXmlStreamAttributesConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamAttributesConst", " object."]+  +  toGc this'@(QXmlStreamAttributesConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamAttributesConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamAttributes :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamAttributesConstGc {}) = HoppyP.return this'++instance QXmlStreamAttributesConstPtr QXmlStreamAttributesConst where+  toQXmlStreamAttributesConst = HoppyP.id++instance M228.QVectorQXmlStreamAttributeConstPtr QXmlStreamAttributesConst where+  toQVectorQXmlStreamAttributeConst (QXmlStreamAttributesConst ptr') = M228.QVectorQXmlStreamAttributeConst $ castQXmlStreamAttributesToQVectorQXmlStreamAttribute ptr'+  toQVectorQXmlStreamAttributeConst (QXmlStreamAttributesConstGc fptr' ptr') = M228.QVectorQXmlStreamAttributeConstGc fptr' $ castQXmlStreamAttributesToQVectorQXmlStreamAttribute ptr'++data QXmlStreamAttributes =+    QXmlStreamAttributes (HoppyF.Ptr QXmlStreamAttributes)+  | QXmlStreamAttributesGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamAttributes)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamAttributes where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamAttributes where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamAttributesToNonconst :: QXmlStreamAttributesConst -> QXmlStreamAttributes+castQXmlStreamAttributesToNonconst (QXmlStreamAttributesConst ptr') = QXmlStreamAttributes $ HoppyF.castPtr ptr'+castQXmlStreamAttributesToNonconst (QXmlStreamAttributesConstGc fptr' ptr') = QXmlStreamAttributesGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamAttributes where+  nullptr = QXmlStreamAttributes HoppyF.nullPtr+  +  withCppPtr (QXmlStreamAttributes ptr') f' = f' ptr'+  withCppPtr (QXmlStreamAttributesGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamAttributes ptr') = ptr'+  toPtr (QXmlStreamAttributesGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamAttributes _) = HoppyP.return ()+  touchCppPtr (QXmlStreamAttributesGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamAttributes where+  delete (QXmlStreamAttributes ptr') = delete'QXmlStreamAttributes $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QXmlStreamAttributesConst)+  delete (QXmlStreamAttributesGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamAttributes", " object."]+  +  toGc this'@(QXmlStreamAttributes ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamAttributesGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamAttributes :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamAttributesGc {}) = HoppyP.return this'++instance QXmlStreamAttributesConstPtr QXmlStreamAttributes where+  toQXmlStreamAttributesConst (QXmlStreamAttributes ptr') = QXmlStreamAttributesConst $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamAttributes -> HoppyF.Ptr QXmlStreamAttributesConst) ptr'+  toQXmlStreamAttributesConst (QXmlStreamAttributesGc fptr' ptr') = QXmlStreamAttributesConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamAttributes -> HoppyF.Ptr QXmlStreamAttributesConst) ptr'++instance QXmlStreamAttributesPtr QXmlStreamAttributes where+  toQXmlStreamAttributes = HoppyP.id++instance M228.QVectorQXmlStreamAttributeConstPtr QXmlStreamAttributes where+  toQVectorQXmlStreamAttributeConst (QXmlStreamAttributes ptr') = M228.QVectorQXmlStreamAttributeConst $ castQXmlStreamAttributesToQVectorQXmlStreamAttribute $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamAttributes -> HoppyF.Ptr QXmlStreamAttributesConst) ptr'+  toQVectorQXmlStreamAttributeConst (QXmlStreamAttributesGc fptr' ptr') = M228.QVectorQXmlStreamAttributeConstGc fptr' $ castQXmlStreamAttributesToQVectorQXmlStreamAttribute $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamAttributes -> HoppyF.Ptr QXmlStreamAttributesConst) ptr'++instance M228.QVectorQXmlStreamAttributePtr QXmlStreamAttributes where+  toQVectorQXmlStreamAttribute (QXmlStreamAttributes ptr') = M228.QVectorQXmlStreamAttribute $ (HoppyF.castPtr :: HoppyF.Ptr M228.QVectorQXmlStreamAttributeConst -> HoppyF.Ptr M228.QVectorQXmlStreamAttribute) $ castQXmlStreamAttributesToQVectorQXmlStreamAttribute $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamAttributes -> HoppyF.Ptr QXmlStreamAttributesConst) ptr'+  toQVectorQXmlStreamAttribute (QXmlStreamAttributesGc fptr' ptr') = M228.QVectorQXmlStreamAttributeGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M228.QVectorQXmlStreamAttributeConst -> HoppyF.Ptr M228.QVectorQXmlStreamAttribute) $ castQXmlStreamAttributesToQVectorQXmlStreamAttribute $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamAttributes -> HoppyF.Ptr QXmlStreamAttributesConst) ptr'++new :: (HoppyP.IO QXmlStreamAttributes)+new =+  HoppyP.fmap QXmlStreamAttributes+  (new')++class QXmlStreamAttributesSuper a where+  downToQXmlStreamAttributes :: a -> QXmlStreamAttributes+++class QXmlStreamAttributesSuperConst a where+  downToQXmlStreamAttributesConst :: a -> QXmlStreamAttributesConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamAttributes)) QXmlStreamAttributes where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamAttributes)) QXmlStreamAttributes where+  decode = HoppyP.fmap QXmlStreamAttributes . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QXmlStreamEntityDeclaration.hs view
@@ -0,0 +1,188 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QXmlStreamEntityDeclaration (+  QXmlStreamEntityDeclarationValue (..),+  QXmlStreamEntityDeclarationConstPtr (..),+  eQ,+  nE,+  QXmlStreamEntityDeclarationPtr (..),+  aSSIGN,+  QXmlStreamEntityDeclarationConst (..),+  castQXmlStreamEntityDeclarationToConst,+  QXmlStreamEntityDeclaration (..),+  castQXmlStreamEntityDeclarationToNonconst,+  new,+  newCopy,+  QXmlStreamEntityDeclarationSuper (..),+  QXmlStreamEntityDeclarationSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import Prelude (($), (.), (/=), (=<<), (==), (>>))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QXmlStreamEntityDeclaration_new" new' ::  HoppyP.IO (HoppyF.Ptr QXmlStreamEntityDeclaration)+foreign import ccall "genpop__QXmlStreamEntityDeclaration_newCopy" newCopy' ::  HoppyF.Ptr QXmlStreamEntityDeclarationConst -> HoppyP.IO (HoppyF.Ptr QXmlStreamEntityDeclaration)+foreign import ccall "genpop__QXmlStreamEntityDeclaration_EQ" eQ' ::  HoppyF.Ptr QXmlStreamEntityDeclarationConst -> HoppyF.Ptr QXmlStreamEntityDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamEntityDeclaration_NE" nE' ::  HoppyF.Ptr QXmlStreamEntityDeclarationConst -> HoppyF.Ptr QXmlStreamEntityDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamEntityDeclaration_ASSIGN" aSSIGN' ::  HoppyF.Ptr QXmlStreamEntityDeclaration -> HoppyF.Ptr QXmlStreamEntityDeclarationConst -> HoppyP.IO (HoppyF.Ptr QXmlStreamEntityDeclaration)+foreign import ccall "gendel__QXmlStreamEntityDeclaration" delete'QXmlStreamEntityDeclaration :: HoppyF.Ptr QXmlStreamEntityDeclarationConst -> HoppyP.IO ()+foreign import ccall "&gendel__QXmlStreamEntityDeclaration" deletePtr'QXmlStreamEntityDeclaration :: HoppyF.FunPtr (HoppyF.Ptr QXmlStreamEntityDeclarationConst -> HoppyP.IO ())++class QXmlStreamEntityDeclarationValue a where+  withQXmlStreamEntityDeclarationPtr :: a -> (QXmlStreamEntityDeclarationConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QXmlStreamEntityDeclarationConstPtr a => QXmlStreamEntityDeclarationValue a where+  withQXmlStreamEntityDeclarationPtr = HoppyP.flip ($) . toQXmlStreamEntityDeclarationConst++class (HoppyFHR.CppPtr this) => QXmlStreamEntityDeclarationConstPtr this where+  toQXmlStreamEntityDeclarationConst :: this -> QXmlStreamEntityDeclarationConst++eQ :: (QXmlStreamEntityDeclarationValue this, QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QXmlStreamEntityDeclarationValue this, QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QXmlStreamEntityDeclarationConstPtr this) => QXmlStreamEntityDeclarationPtr this where+  toQXmlStreamEntityDeclaration :: this -> QXmlStreamEntityDeclaration++aSSIGN :: (QXmlStreamEntityDeclarationPtr this, QXmlStreamEntityDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QXmlStreamEntityDeclaration)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamEntityDeclaration arg'1) $ \arg'1' ->+  withQXmlStreamEntityDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QXmlStreamEntityDeclaration+  (aSSIGN' arg'1' arg'2')++data QXmlStreamEntityDeclarationConst =+    QXmlStreamEntityDeclarationConst (HoppyF.Ptr QXmlStreamEntityDeclarationConst)+  | QXmlStreamEntityDeclarationConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamEntityDeclarationConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamEntityDeclarationConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamEntityDeclarationConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamEntityDeclarationToConst :: QXmlStreamEntityDeclaration -> QXmlStreamEntityDeclarationConst+castQXmlStreamEntityDeclarationToConst (QXmlStreamEntityDeclaration ptr') = QXmlStreamEntityDeclarationConst $ HoppyF.castPtr ptr'+castQXmlStreamEntityDeclarationToConst (QXmlStreamEntityDeclarationGc fptr' ptr') = QXmlStreamEntityDeclarationConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamEntityDeclarationConst where+  nullptr = QXmlStreamEntityDeclarationConst HoppyF.nullPtr+  +  withCppPtr (QXmlStreamEntityDeclarationConst ptr') f' = f' ptr'+  withCppPtr (QXmlStreamEntityDeclarationConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamEntityDeclarationConst ptr') = ptr'+  toPtr (QXmlStreamEntityDeclarationConstGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamEntityDeclarationConst _) = HoppyP.return ()+  touchCppPtr (QXmlStreamEntityDeclarationConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamEntityDeclarationConst where+  delete (QXmlStreamEntityDeclarationConst ptr') = delete'QXmlStreamEntityDeclaration ptr'+  delete (QXmlStreamEntityDeclarationConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamEntityDeclarationConst", " object."]+  +  toGc this'@(QXmlStreamEntityDeclarationConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamEntityDeclarationConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamEntityDeclaration :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamEntityDeclarationConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QXmlStreamEntityDeclarationConst QXmlStreamEntityDeclaration where copy = newCopy++instance QXmlStreamEntityDeclarationConstPtr QXmlStreamEntityDeclarationConst where+  toQXmlStreamEntityDeclarationConst = HoppyP.id++data QXmlStreamEntityDeclaration =+    QXmlStreamEntityDeclaration (HoppyF.Ptr QXmlStreamEntityDeclaration)+  | QXmlStreamEntityDeclarationGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamEntityDeclaration)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamEntityDeclaration where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamEntityDeclaration where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamEntityDeclarationToNonconst :: QXmlStreamEntityDeclarationConst -> QXmlStreamEntityDeclaration+castQXmlStreamEntityDeclarationToNonconst (QXmlStreamEntityDeclarationConst ptr') = QXmlStreamEntityDeclaration $ HoppyF.castPtr ptr'+castQXmlStreamEntityDeclarationToNonconst (QXmlStreamEntityDeclarationConstGc fptr' ptr') = QXmlStreamEntityDeclarationGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamEntityDeclaration where+  nullptr = QXmlStreamEntityDeclaration HoppyF.nullPtr+  +  withCppPtr (QXmlStreamEntityDeclaration ptr') f' = f' ptr'+  withCppPtr (QXmlStreamEntityDeclarationGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamEntityDeclaration ptr') = ptr'+  toPtr (QXmlStreamEntityDeclarationGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamEntityDeclaration _) = HoppyP.return ()+  touchCppPtr (QXmlStreamEntityDeclarationGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamEntityDeclaration where+  delete (QXmlStreamEntityDeclaration ptr') = delete'QXmlStreamEntityDeclaration $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QXmlStreamEntityDeclarationConst)+  delete (QXmlStreamEntityDeclarationGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamEntityDeclaration", " object."]+  +  toGc this'@(QXmlStreamEntityDeclaration ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamEntityDeclarationGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamEntityDeclaration :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamEntityDeclarationGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QXmlStreamEntityDeclaration QXmlStreamEntityDeclaration where copy = newCopy++instance QXmlStreamEntityDeclarationConstPtr QXmlStreamEntityDeclaration where+  toQXmlStreamEntityDeclarationConst (QXmlStreamEntityDeclaration ptr') = QXmlStreamEntityDeclarationConst $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamEntityDeclaration -> HoppyF.Ptr QXmlStreamEntityDeclarationConst) ptr'+  toQXmlStreamEntityDeclarationConst (QXmlStreamEntityDeclarationGc fptr' ptr') = QXmlStreamEntityDeclarationConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamEntityDeclaration -> HoppyF.Ptr QXmlStreamEntityDeclarationConst) ptr'++instance QXmlStreamEntityDeclarationPtr QXmlStreamEntityDeclaration where+  toQXmlStreamEntityDeclaration = HoppyP.id++new :: (HoppyP.IO QXmlStreamEntityDeclaration)+new =+  HoppyP.fmap QXmlStreamEntityDeclaration+  (new')++newCopy :: (QXmlStreamEntityDeclarationValue arg'1) => (arg'1) -> (HoppyP.IO QXmlStreamEntityDeclaration)+newCopy arg'1 =+  withQXmlStreamEntityDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QXmlStreamEntityDeclaration+  (newCopy' arg'1')++class QXmlStreamEntityDeclarationSuper a where+  downToQXmlStreamEntityDeclaration :: a -> QXmlStreamEntityDeclaration+++class QXmlStreamEntityDeclarationSuperConst a where+  downToQXmlStreamEntityDeclarationConst :: a -> QXmlStreamEntityDeclarationConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamEntityDeclaration)) QXmlStreamEntityDeclaration where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QXmlStreamEntityDeclarationValue a => HoppyFHR.Assignable QXmlStreamEntityDeclaration a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamEntityDeclaration)) QXmlStreamEntityDeclaration where+  decode = HoppyP.fmap QXmlStreamEntityDeclaration . HoppyF.peek++instance HoppyFHR.Decodable QXmlStreamEntityDeclaration (QXmlStreamEntityDeclaration) where+  decode = HoppyFHR.decode . toQXmlStreamEntityDeclarationConst++instance HoppyFHR.Decodable QXmlStreamEntityDeclarationConst (QXmlStreamEntityDeclaration) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QXmlStreamEntityResolver.hs view
@@ -0,0 +1,137 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QXmlStreamEntityResolver (+  QXmlStreamEntityResolverValue (..),+  QXmlStreamEntityResolverConstPtr (..),+  QXmlStreamEntityResolverPtr (..),+  resolveUndeclaredEntity,+  QXmlStreamEntityResolverConst (..),+  castQXmlStreamEntityResolverToConst,+  QXmlStreamEntityResolver (..),+  castQXmlStreamEntityResolverToNonconst,+  QXmlStreamEntityResolverSuper (..),+  QXmlStreamEntityResolverSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (=<<), (==))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QXmlStreamEntityResolver_resolveUndeclaredEntity" resolveUndeclaredEntity' ::  HoppyF.Ptr QXmlStreamEntityResolver -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "gendel__QXmlStreamEntityResolver" delete'QXmlStreamEntityResolver :: HoppyF.Ptr QXmlStreamEntityResolverConst -> HoppyP.IO ()+foreign import ccall "&gendel__QXmlStreamEntityResolver" deletePtr'QXmlStreamEntityResolver :: HoppyF.FunPtr (HoppyF.Ptr QXmlStreamEntityResolverConst -> HoppyP.IO ())++class QXmlStreamEntityResolverValue a where+  withQXmlStreamEntityResolverPtr :: a -> (QXmlStreamEntityResolverConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QXmlStreamEntityResolverConstPtr a => QXmlStreamEntityResolverValue a where+  withQXmlStreamEntityResolverPtr = HoppyP.flip ($) . toQXmlStreamEntityResolverConst++class (HoppyFHR.CppPtr this) => QXmlStreamEntityResolverConstPtr this where+  toQXmlStreamEntityResolverConst :: this -> QXmlStreamEntityResolverConst++class (QXmlStreamEntityResolverConstPtr this) => QXmlStreamEntityResolverPtr this where+  toQXmlStreamEntityResolver :: this -> QXmlStreamEntityResolver++resolveUndeclaredEntity :: (QXmlStreamEntityResolverPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+resolveUndeclaredEntity arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamEntityResolver arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (resolveUndeclaredEntity' arg'1' arg'2')++data QXmlStreamEntityResolverConst =+    QXmlStreamEntityResolverConst (HoppyF.Ptr QXmlStreamEntityResolverConst)+  | QXmlStreamEntityResolverConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamEntityResolverConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamEntityResolverConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamEntityResolverConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamEntityResolverToConst :: QXmlStreamEntityResolver -> QXmlStreamEntityResolverConst+castQXmlStreamEntityResolverToConst (QXmlStreamEntityResolver ptr') = QXmlStreamEntityResolverConst $ HoppyF.castPtr ptr'+castQXmlStreamEntityResolverToConst (QXmlStreamEntityResolverGc fptr' ptr') = QXmlStreamEntityResolverConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamEntityResolverConst where+  nullptr = QXmlStreamEntityResolverConst HoppyF.nullPtr+  +  withCppPtr (QXmlStreamEntityResolverConst ptr') f' = f' ptr'+  withCppPtr (QXmlStreamEntityResolverConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamEntityResolverConst ptr') = ptr'+  toPtr (QXmlStreamEntityResolverConstGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamEntityResolverConst _) = HoppyP.return ()+  touchCppPtr (QXmlStreamEntityResolverConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamEntityResolverConst where+  delete (QXmlStreamEntityResolverConst ptr') = delete'QXmlStreamEntityResolver ptr'+  delete (QXmlStreamEntityResolverConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamEntityResolverConst", " object."]+  +  toGc this'@(QXmlStreamEntityResolverConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamEntityResolverConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamEntityResolver :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamEntityResolverConstGc {}) = HoppyP.return this'++instance QXmlStreamEntityResolverConstPtr QXmlStreamEntityResolverConst where+  toQXmlStreamEntityResolverConst = HoppyP.id++data QXmlStreamEntityResolver =+    QXmlStreamEntityResolver (HoppyF.Ptr QXmlStreamEntityResolver)+  | QXmlStreamEntityResolverGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamEntityResolver)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamEntityResolver where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamEntityResolver where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamEntityResolverToNonconst :: QXmlStreamEntityResolverConst -> QXmlStreamEntityResolver+castQXmlStreamEntityResolverToNonconst (QXmlStreamEntityResolverConst ptr') = QXmlStreamEntityResolver $ HoppyF.castPtr ptr'+castQXmlStreamEntityResolverToNonconst (QXmlStreamEntityResolverConstGc fptr' ptr') = QXmlStreamEntityResolverGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamEntityResolver where+  nullptr = QXmlStreamEntityResolver HoppyF.nullPtr+  +  withCppPtr (QXmlStreamEntityResolver ptr') f' = f' ptr'+  withCppPtr (QXmlStreamEntityResolverGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamEntityResolver ptr') = ptr'+  toPtr (QXmlStreamEntityResolverGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamEntityResolver _) = HoppyP.return ()+  touchCppPtr (QXmlStreamEntityResolverGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamEntityResolver where+  delete (QXmlStreamEntityResolver ptr') = delete'QXmlStreamEntityResolver $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QXmlStreamEntityResolverConst)+  delete (QXmlStreamEntityResolverGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamEntityResolver", " object."]+  +  toGc this'@(QXmlStreamEntityResolver ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamEntityResolverGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamEntityResolver :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamEntityResolverGc {}) = HoppyP.return this'++instance QXmlStreamEntityResolverConstPtr QXmlStreamEntityResolver where+  toQXmlStreamEntityResolverConst (QXmlStreamEntityResolver ptr') = QXmlStreamEntityResolverConst $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamEntityResolver -> HoppyF.Ptr QXmlStreamEntityResolverConst) ptr'+  toQXmlStreamEntityResolverConst (QXmlStreamEntityResolverGc fptr' ptr') = QXmlStreamEntityResolverConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamEntityResolver -> HoppyF.Ptr QXmlStreamEntityResolverConst) ptr'++instance QXmlStreamEntityResolverPtr QXmlStreamEntityResolver where+  toQXmlStreamEntityResolver = HoppyP.id++class QXmlStreamEntityResolverSuper a where+  downToQXmlStreamEntityResolver :: a -> QXmlStreamEntityResolver+++class QXmlStreamEntityResolverSuperConst a where+  downToQXmlStreamEntityResolverConst :: a -> QXmlStreamEntityResolverConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamEntityResolver)) QXmlStreamEntityResolver where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamEntityResolver)) QXmlStreamEntityResolver where+  decode = HoppyP.fmap QXmlStreamEntityResolver . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/QXmlStreamNamespaceDeclaration.hs view
@@ -0,0 +1,198 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QXmlStreamNamespaceDeclaration (+  QXmlStreamNamespaceDeclarationValue (..),+  QXmlStreamNamespaceDeclarationConstPtr (..),+  eQ,+  nE,+  QXmlStreamNamespaceDeclarationPtr (..),+  aSSIGN,+  QXmlStreamNamespaceDeclarationConst (..),+  castQXmlStreamNamespaceDeclarationToConst,+  QXmlStreamNamespaceDeclaration (..),+  castQXmlStreamNamespaceDeclarationToNonconst,+  new,+  newWithPrefixAndNamespaceUri,+  newCopy,+  QXmlStreamNamespaceDeclarationSuper (..),+  QXmlStreamNamespaceDeclarationSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QXmlStreamNamespaceDeclaration_new" new' ::  HoppyP.IO (HoppyF.Ptr QXmlStreamNamespaceDeclaration)+foreign import ccall "genpop__QXmlStreamNamespaceDeclaration_newWithPrefixAndNamespaceUri" newWithPrefixAndNamespaceUri' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QXmlStreamNamespaceDeclaration)+foreign import ccall "genpop__QXmlStreamNamespaceDeclaration_newCopy" newCopy' ::  HoppyF.Ptr QXmlStreamNamespaceDeclarationConst -> HoppyP.IO (HoppyF.Ptr QXmlStreamNamespaceDeclaration)+foreign import ccall "genpop__QXmlStreamNamespaceDeclaration_EQ" eQ' ::  HoppyF.Ptr QXmlStreamNamespaceDeclarationConst -> HoppyF.Ptr QXmlStreamNamespaceDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamNamespaceDeclaration_NE" nE' ::  HoppyF.Ptr QXmlStreamNamespaceDeclarationConst -> HoppyF.Ptr QXmlStreamNamespaceDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamNamespaceDeclaration_ASSIGN" aSSIGN' ::  HoppyF.Ptr QXmlStreamNamespaceDeclaration -> HoppyF.Ptr QXmlStreamNamespaceDeclarationConst -> HoppyP.IO (HoppyF.Ptr QXmlStreamNamespaceDeclaration)+foreign import ccall "gendel__QXmlStreamNamespaceDeclaration" delete'QXmlStreamNamespaceDeclaration :: HoppyF.Ptr QXmlStreamNamespaceDeclarationConst -> HoppyP.IO ()+foreign import ccall "&gendel__QXmlStreamNamespaceDeclaration" deletePtr'QXmlStreamNamespaceDeclaration :: HoppyF.FunPtr (HoppyF.Ptr QXmlStreamNamespaceDeclarationConst -> HoppyP.IO ())++class QXmlStreamNamespaceDeclarationValue a where+  withQXmlStreamNamespaceDeclarationPtr :: a -> (QXmlStreamNamespaceDeclarationConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QXmlStreamNamespaceDeclarationConstPtr a => QXmlStreamNamespaceDeclarationValue a where+  withQXmlStreamNamespaceDeclarationPtr = HoppyP.flip ($) . toQXmlStreamNamespaceDeclarationConst++class (HoppyFHR.CppPtr this) => QXmlStreamNamespaceDeclarationConstPtr this where+  toQXmlStreamNamespaceDeclarationConst :: this -> QXmlStreamNamespaceDeclarationConst++eQ :: (QXmlStreamNamespaceDeclarationValue this, QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QXmlStreamNamespaceDeclarationValue this, QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QXmlStreamNamespaceDeclarationConstPtr this) => QXmlStreamNamespaceDeclarationPtr this where+  toQXmlStreamNamespaceDeclaration :: this -> QXmlStreamNamespaceDeclaration++aSSIGN :: (QXmlStreamNamespaceDeclarationPtr this, QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QXmlStreamNamespaceDeclaration)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamNamespaceDeclaration arg'1) $ \arg'1' ->+  withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QXmlStreamNamespaceDeclaration+  (aSSIGN' arg'1' arg'2')++data QXmlStreamNamespaceDeclarationConst =+    QXmlStreamNamespaceDeclarationConst (HoppyF.Ptr QXmlStreamNamespaceDeclarationConst)+  | QXmlStreamNamespaceDeclarationConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamNamespaceDeclarationConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamNamespaceDeclarationConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamNamespaceDeclarationConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamNamespaceDeclarationToConst :: QXmlStreamNamespaceDeclaration -> QXmlStreamNamespaceDeclarationConst+castQXmlStreamNamespaceDeclarationToConst (QXmlStreamNamespaceDeclaration ptr') = QXmlStreamNamespaceDeclarationConst $ HoppyF.castPtr ptr'+castQXmlStreamNamespaceDeclarationToConst (QXmlStreamNamespaceDeclarationGc fptr' ptr') = QXmlStreamNamespaceDeclarationConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamNamespaceDeclarationConst where+  nullptr = QXmlStreamNamespaceDeclarationConst HoppyF.nullPtr+  +  withCppPtr (QXmlStreamNamespaceDeclarationConst ptr') f' = f' ptr'+  withCppPtr (QXmlStreamNamespaceDeclarationConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamNamespaceDeclarationConst ptr') = ptr'+  toPtr (QXmlStreamNamespaceDeclarationConstGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamNamespaceDeclarationConst _) = HoppyP.return ()+  touchCppPtr (QXmlStreamNamespaceDeclarationConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamNamespaceDeclarationConst where+  delete (QXmlStreamNamespaceDeclarationConst ptr') = delete'QXmlStreamNamespaceDeclaration ptr'+  delete (QXmlStreamNamespaceDeclarationConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamNamespaceDeclarationConst", " object."]+  +  toGc this'@(QXmlStreamNamespaceDeclarationConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamNamespaceDeclarationConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamNamespaceDeclaration :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamNamespaceDeclarationConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QXmlStreamNamespaceDeclarationConst QXmlStreamNamespaceDeclaration where copy = newCopy++instance QXmlStreamNamespaceDeclarationConstPtr QXmlStreamNamespaceDeclarationConst where+  toQXmlStreamNamespaceDeclarationConst = HoppyP.id++data QXmlStreamNamespaceDeclaration =+    QXmlStreamNamespaceDeclaration (HoppyF.Ptr QXmlStreamNamespaceDeclaration)+  | QXmlStreamNamespaceDeclarationGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamNamespaceDeclaration)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamNamespaceDeclaration where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamNamespaceDeclaration where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamNamespaceDeclarationToNonconst :: QXmlStreamNamespaceDeclarationConst -> QXmlStreamNamespaceDeclaration+castQXmlStreamNamespaceDeclarationToNonconst (QXmlStreamNamespaceDeclarationConst ptr') = QXmlStreamNamespaceDeclaration $ HoppyF.castPtr ptr'+castQXmlStreamNamespaceDeclarationToNonconst (QXmlStreamNamespaceDeclarationConstGc fptr' ptr') = QXmlStreamNamespaceDeclarationGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamNamespaceDeclaration where+  nullptr = QXmlStreamNamespaceDeclaration HoppyF.nullPtr+  +  withCppPtr (QXmlStreamNamespaceDeclaration ptr') f' = f' ptr'+  withCppPtr (QXmlStreamNamespaceDeclarationGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamNamespaceDeclaration ptr') = ptr'+  toPtr (QXmlStreamNamespaceDeclarationGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamNamespaceDeclaration _) = HoppyP.return ()+  touchCppPtr (QXmlStreamNamespaceDeclarationGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamNamespaceDeclaration where+  delete (QXmlStreamNamespaceDeclaration ptr') = delete'QXmlStreamNamespaceDeclaration $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QXmlStreamNamespaceDeclarationConst)+  delete (QXmlStreamNamespaceDeclarationGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamNamespaceDeclaration", " object."]+  +  toGc this'@(QXmlStreamNamespaceDeclaration ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamNamespaceDeclarationGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamNamespaceDeclaration :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamNamespaceDeclarationGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QXmlStreamNamespaceDeclaration QXmlStreamNamespaceDeclaration where copy = newCopy++instance QXmlStreamNamespaceDeclarationConstPtr QXmlStreamNamespaceDeclaration where+  toQXmlStreamNamespaceDeclarationConst (QXmlStreamNamespaceDeclaration ptr') = QXmlStreamNamespaceDeclarationConst $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamNamespaceDeclaration -> HoppyF.Ptr QXmlStreamNamespaceDeclarationConst) ptr'+  toQXmlStreamNamespaceDeclarationConst (QXmlStreamNamespaceDeclarationGc fptr' ptr') = QXmlStreamNamespaceDeclarationConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamNamespaceDeclaration -> HoppyF.Ptr QXmlStreamNamespaceDeclarationConst) ptr'++instance QXmlStreamNamespaceDeclarationPtr QXmlStreamNamespaceDeclaration where+  toQXmlStreamNamespaceDeclaration = HoppyP.id++new :: (HoppyP.IO QXmlStreamNamespaceDeclaration)+new =+  HoppyP.fmap QXmlStreamNamespaceDeclaration+  (new')++newWithPrefixAndNamespaceUri :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QXmlStreamNamespaceDeclaration)+newWithPrefixAndNamespaceUri arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QXmlStreamNamespaceDeclaration+  (newWithPrefixAndNamespaceUri' arg'1' arg'2')++newCopy :: (QXmlStreamNamespaceDeclarationValue arg'1) => (arg'1) -> (HoppyP.IO QXmlStreamNamespaceDeclaration)+newCopy arg'1 =+  withQXmlStreamNamespaceDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QXmlStreamNamespaceDeclaration+  (newCopy' arg'1')++class QXmlStreamNamespaceDeclarationSuper a where+  downToQXmlStreamNamespaceDeclaration :: a -> QXmlStreamNamespaceDeclaration+++class QXmlStreamNamespaceDeclarationSuperConst a where+  downToQXmlStreamNamespaceDeclarationConst :: a -> QXmlStreamNamespaceDeclarationConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamNamespaceDeclaration)) QXmlStreamNamespaceDeclaration where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QXmlStreamNamespaceDeclarationValue a => HoppyFHR.Assignable QXmlStreamNamespaceDeclaration a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamNamespaceDeclaration)) QXmlStreamNamespaceDeclaration where+  decode = HoppyP.fmap QXmlStreamNamespaceDeclaration . HoppyF.peek++instance HoppyFHR.Decodable QXmlStreamNamespaceDeclaration (QXmlStreamNamespaceDeclaration) where+  decode = HoppyFHR.decode . toQXmlStreamNamespaceDeclarationConst++instance HoppyFHR.Decodable QXmlStreamNamespaceDeclarationConst (QXmlStreamNamespaceDeclaration) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QXmlStreamNotationDeclaration.hs view
@@ -0,0 +1,188 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QXmlStreamNotationDeclaration (+  QXmlStreamNotationDeclarationValue (..),+  QXmlStreamNotationDeclarationConstPtr (..),+  eQ,+  nE,+  QXmlStreamNotationDeclarationPtr (..),+  aSSIGN,+  QXmlStreamNotationDeclarationConst (..),+  castQXmlStreamNotationDeclarationToConst,+  QXmlStreamNotationDeclaration (..),+  castQXmlStreamNotationDeclarationToNonconst,+  new,+  newCopy,+  QXmlStreamNotationDeclarationSuper (..),+  QXmlStreamNotationDeclarationSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import Prelude (($), (.), (/=), (=<<), (==), (>>))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QXmlStreamNotationDeclaration_new" new' ::  HoppyP.IO (HoppyF.Ptr QXmlStreamNotationDeclaration)+foreign import ccall "genpop__QXmlStreamNotationDeclaration_newCopy" newCopy' ::  HoppyF.Ptr QXmlStreamNotationDeclarationConst -> HoppyP.IO (HoppyF.Ptr QXmlStreamNotationDeclaration)+foreign import ccall "genpop__QXmlStreamNotationDeclaration_EQ" eQ' ::  HoppyF.Ptr QXmlStreamNotationDeclarationConst -> HoppyF.Ptr QXmlStreamNotationDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamNotationDeclaration_NE" nE' ::  HoppyF.Ptr QXmlStreamNotationDeclarationConst -> HoppyF.Ptr QXmlStreamNotationDeclarationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamNotationDeclaration_ASSIGN" aSSIGN' ::  HoppyF.Ptr QXmlStreamNotationDeclaration -> HoppyF.Ptr QXmlStreamNotationDeclarationConst -> HoppyP.IO (HoppyF.Ptr QXmlStreamNotationDeclaration)+foreign import ccall "gendel__QXmlStreamNotationDeclaration" delete'QXmlStreamNotationDeclaration :: HoppyF.Ptr QXmlStreamNotationDeclarationConst -> HoppyP.IO ()+foreign import ccall "&gendel__QXmlStreamNotationDeclaration" deletePtr'QXmlStreamNotationDeclaration :: HoppyF.FunPtr (HoppyF.Ptr QXmlStreamNotationDeclarationConst -> HoppyP.IO ())++class QXmlStreamNotationDeclarationValue a where+  withQXmlStreamNotationDeclarationPtr :: a -> (QXmlStreamNotationDeclarationConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QXmlStreamNotationDeclarationConstPtr a => QXmlStreamNotationDeclarationValue a where+  withQXmlStreamNotationDeclarationPtr = HoppyP.flip ($) . toQXmlStreamNotationDeclarationConst++class (HoppyFHR.CppPtr this) => QXmlStreamNotationDeclarationConstPtr this where+  toQXmlStreamNotationDeclarationConst :: this -> QXmlStreamNotationDeclarationConst++eQ :: (QXmlStreamNotationDeclarationValue this, QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QXmlStreamNotationDeclarationValue this, QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QXmlStreamNotationDeclarationConstPtr this) => QXmlStreamNotationDeclarationPtr this where+  toQXmlStreamNotationDeclaration :: this -> QXmlStreamNotationDeclaration++aSSIGN :: (QXmlStreamNotationDeclarationPtr this, QXmlStreamNotationDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QXmlStreamNotationDeclaration)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamNotationDeclaration arg'1) $ \arg'1' ->+  withQXmlStreamNotationDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QXmlStreamNotationDeclaration+  (aSSIGN' arg'1' arg'2')++data QXmlStreamNotationDeclarationConst =+    QXmlStreamNotationDeclarationConst (HoppyF.Ptr QXmlStreamNotationDeclarationConst)+  | QXmlStreamNotationDeclarationConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamNotationDeclarationConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamNotationDeclarationConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamNotationDeclarationConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamNotationDeclarationToConst :: QXmlStreamNotationDeclaration -> QXmlStreamNotationDeclarationConst+castQXmlStreamNotationDeclarationToConst (QXmlStreamNotationDeclaration ptr') = QXmlStreamNotationDeclarationConst $ HoppyF.castPtr ptr'+castQXmlStreamNotationDeclarationToConst (QXmlStreamNotationDeclarationGc fptr' ptr') = QXmlStreamNotationDeclarationConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamNotationDeclarationConst where+  nullptr = QXmlStreamNotationDeclarationConst HoppyF.nullPtr+  +  withCppPtr (QXmlStreamNotationDeclarationConst ptr') f' = f' ptr'+  withCppPtr (QXmlStreamNotationDeclarationConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamNotationDeclarationConst ptr') = ptr'+  toPtr (QXmlStreamNotationDeclarationConstGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamNotationDeclarationConst _) = HoppyP.return ()+  touchCppPtr (QXmlStreamNotationDeclarationConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamNotationDeclarationConst where+  delete (QXmlStreamNotationDeclarationConst ptr') = delete'QXmlStreamNotationDeclaration ptr'+  delete (QXmlStreamNotationDeclarationConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamNotationDeclarationConst", " object."]+  +  toGc this'@(QXmlStreamNotationDeclarationConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamNotationDeclarationConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamNotationDeclaration :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamNotationDeclarationConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QXmlStreamNotationDeclarationConst QXmlStreamNotationDeclaration where copy = newCopy++instance QXmlStreamNotationDeclarationConstPtr QXmlStreamNotationDeclarationConst where+  toQXmlStreamNotationDeclarationConst = HoppyP.id++data QXmlStreamNotationDeclaration =+    QXmlStreamNotationDeclaration (HoppyF.Ptr QXmlStreamNotationDeclaration)+  | QXmlStreamNotationDeclarationGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamNotationDeclaration)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamNotationDeclaration where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamNotationDeclaration where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamNotationDeclarationToNonconst :: QXmlStreamNotationDeclarationConst -> QXmlStreamNotationDeclaration+castQXmlStreamNotationDeclarationToNonconst (QXmlStreamNotationDeclarationConst ptr') = QXmlStreamNotationDeclaration $ HoppyF.castPtr ptr'+castQXmlStreamNotationDeclarationToNonconst (QXmlStreamNotationDeclarationConstGc fptr' ptr') = QXmlStreamNotationDeclarationGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamNotationDeclaration where+  nullptr = QXmlStreamNotationDeclaration HoppyF.nullPtr+  +  withCppPtr (QXmlStreamNotationDeclaration ptr') f' = f' ptr'+  withCppPtr (QXmlStreamNotationDeclarationGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamNotationDeclaration ptr') = ptr'+  toPtr (QXmlStreamNotationDeclarationGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamNotationDeclaration _) = HoppyP.return ()+  touchCppPtr (QXmlStreamNotationDeclarationGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamNotationDeclaration where+  delete (QXmlStreamNotationDeclaration ptr') = delete'QXmlStreamNotationDeclaration $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QXmlStreamNotationDeclarationConst)+  delete (QXmlStreamNotationDeclarationGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamNotationDeclaration", " object."]+  +  toGc this'@(QXmlStreamNotationDeclaration ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamNotationDeclarationGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamNotationDeclaration :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamNotationDeclarationGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QXmlStreamNotationDeclaration QXmlStreamNotationDeclaration where copy = newCopy++instance QXmlStreamNotationDeclarationConstPtr QXmlStreamNotationDeclaration where+  toQXmlStreamNotationDeclarationConst (QXmlStreamNotationDeclaration ptr') = QXmlStreamNotationDeclarationConst $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamNotationDeclaration -> HoppyF.Ptr QXmlStreamNotationDeclarationConst) ptr'+  toQXmlStreamNotationDeclarationConst (QXmlStreamNotationDeclarationGc fptr' ptr') = QXmlStreamNotationDeclarationConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamNotationDeclaration -> HoppyF.Ptr QXmlStreamNotationDeclarationConst) ptr'++instance QXmlStreamNotationDeclarationPtr QXmlStreamNotationDeclaration where+  toQXmlStreamNotationDeclaration = HoppyP.id++new :: (HoppyP.IO QXmlStreamNotationDeclaration)+new =+  HoppyP.fmap QXmlStreamNotationDeclaration+  (new')++newCopy :: (QXmlStreamNotationDeclarationValue arg'1) => (arg'1) -> (HoppyP.IO QXmlStreamNotationDeclaration)+newCopy arg'1 =+  withQXmlStreamNotationDeclarationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QXmlStreamNotationDeclaration+  (newCopy' arg'1')++class QXmlStreamNotationDeclarationSuper a where+  downToQXmlStreamNotationDeclaration :: a -> QXmlStreamNotationDeclaration+++class QXmlStreamNotationDeclarationSuperConst a where+  downToQXmlStreamNotationDeclarationConst :: a -> QXmlStreamNotationDeclarationConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamNotationDeclaration)) QXmlStreamNotationDeclaration where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QXmlStreamNotationDeclarationValue a => HoppyFHR.Assignable QXmlStreamNotationDeclaration a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamNotationDeclaration)) QXmlStreamNotationDeclaration where+  decode = HoppyP.fmap QXmlStreamNotationDeclaration . HoppyF.peek++instance HoppyFHR.Decodable QXmlStreamNotationDeclaration (QXmlStreamNotationDeclaration) where+  decode = HoppyFHR.decode . toQXmlStreamNotationDeclarationConst++instance HoppyFHR.Decodable QXmlStreamNotationDeclarationConst (QXmlStreamNotationDeclaration) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Core/QXmlStreamReader.hs view
@@ -0,0 +1,675 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QXmlStreamReader (+  QXmlStreamReaderValue (..),+  QXmlStreamReaderConstPtr (..),+  namespaceProcessing,+  atEnd,+  attributes,+  characterOffset,+  columnNumber,+  device,+  entityDeclarations,+  entityResolver,+  error,+  errorString,+  hasError,+  isCDATA,+  isCharacters,+  isComment,+  isDTD,+  isEndDocument,+  isEndElement,+  isEntityReference,+  isProcessingInstruction,+  isStandaloneDocument,+  isStartDocument,+  isStartElement,+  isWhitespace,+  lineNumber,+  namespaceDeclarations,+  notationDeclarations,+  tokenString,+  tokenType,+  QXmlStreamReaderPtr (..),+  setNamespaceProcessing,+  addDataWithByteArray,+  addDataWithString,+  addDataWithPtrChar,+  addExtraNamespaceDeclaration,+  addExtraNamespaceDeclarations,+  clear,+  setDevice,+  setEntityResolver,+  raiseError,+  raiseErrorWithMessage,+  readElementText,+  readElementTextWithBehaviour,+  readNext,+  readNextStartElement,+  skipCurrentElement,+  QXmlStreamReaderConst (..),+  castQXmlStreamReaderToConst,+  QXmlStreamReader (..),+  castQXmlStreamReaderToNonconst,+  new,+  newWithPtrChar,+  newWithString,+  newWithByteArray,+  newWithIODevice,+  QXmlStreamReaderSuper (..),+  QXmlStreamReaderSuperConst (..),+  QXmlStreamReaderError (..),+  QXmlStreamReaderReadElementTextBehaviour (..),+  QXmlStreamReaderTokenType (..),+  ) where++import qualified Data.Int as HoppyDI+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QIODevice as M48+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QVector.QXmlStreamEntityDeclaration as M230+import qualified Graphics.UI.Qtah.Generated.Core.QVector.QXmlStreamNamespaceDeclaration as M232+import qualified Graphics.UI.Qtah.Generated.Core.QVector.QXmlStreamNotationDeclaration as M234+import qualified Graphics.UI.Qtah.Generated.Core.QXmlStreamAttributes as M176+import qualified Graphics.UI.Qtah.Generated.Core.QXmlStreamEntityResolver as M180+import qualified Graphics.UI.Qtah.Generated.Core.QXmlStreamNamespaceDeclaration as M182+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QXmlStreamReader_new" new' ::  HoppyP.IO (HoppyF.Ptr QXmlStreamReader)+foreign import ccall "genpop__QXmlStreamReader_newWithPtrChar" newWithPtrChar' ::  HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QXmlStreamReader)+foreign import ccall "genpop__QXmlStreamReader_newWithString" newWithString' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QXmlStreamReader)+foreign import ccall "genpop__QXmlStreamReader_newWithByteArray" newWithByteArray' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QXmlStreamReader)+foreign import ccall "genpop__QXmlStreamReader_newWithIODevice" newWithIODevice' ::  HoppyF.Ptr M48.QIODevice -> HoppyP.IO (HoppyF.Ptr QXmlStreamReader)+foreign import ccall "genpop__QXmlStreamReader_namespaceProcessing" namespaceProcessing' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_setNamespaceProcessing" setNamespaceProcessing' ::  HoppyF.Ptr QXmlStreamReader -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamReader_addDataWithByteArray" addDataWithByteArray' ::  HoppyF.Ptr QXmlStreamReader -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamReader_addDataWithString" addDataWithString' ::  HoppyF.Ptr QXmlStreamReader -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamReader_addDataWithPtrChar" addDataWithPtrChar' ::  HoppyF.Ptr QXmlStreamReader -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamReader_addExtraNamespaceDeclaration" addExtraNamespaceDeclaration' ::  HoppyF.Ptr QXmlStreamReader -> HoppyF.Ptr M182.QXmlStreamNamespaceDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamReader_addExtraNamespaceDeclarations" addExtraNamespaceDeclarations' ::  HoppyF.Ptr QXmlStreamReader -> HoppyF.Ptr M232.QVectorQQXmlStreamNamespaceDeclarationConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamReader_atEnd" atEnd' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_attributes" attributes' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO (HoppyF.Ptr M176.QXmlStreamAttributes)+foreign import ccall "genpop__QXmlStreamReader_characterOffset" characterOffset' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QXmlStreamReader_clear" clear' ::  HoppyF.Ptr QXmlStreamReader -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamReader_columnNumber" columnNumber' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QXmlStreamReader_device" device' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO (HoppyF.Ptr M48.QIODevice)+foreign import ccall "genpop__QXmlStreamReader_setDevice" setDevice' ::  HoppyF.Ptr QXmlStreamReader -> HoppyF.Ptr M48.QIODevice -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamReader_entityDeclarations" entityDeclarations' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO (HoppyF.Ptr M230.QVectorQXmlStreamEntityDeclaration)+foreign import ccall "genpop__QXmlStreamReader_entityResolver" entityResolver' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO (HoppyF.Ptr M180.QXmlStreamEntityResolver)+foreign import ccall "genpop__QXmlStreamReader_setEntityResolver" setEntityResolver' ::  HoppyF.Ptr QXmlStreamReader -> HoppyF.Ptr M180.QXmlStreamEntityResolver -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamReader_error" error' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QXmlStreamReader_errorString" errorString' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QXmlStreamReader_hasError" hasError' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_isCDATA" isCDATA' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_isCharacters" isCharacters' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_isComment" isComment' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_isDTD" isDTD' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_isEndDocument" isEndDocument' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_isEndElement" isEndElement' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_isEntityReference" isEntityReference' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_isProcessingInstruction" isProcessingInstruction' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_isStandaloneDocument" isStandaloneDocument' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_isStartDocument" isStartDocument' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_isStartElement" isStartElement' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_isWhitespace" isWhitespace' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_lineNumber" lineNumber' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QXmlStreamReader_namespaceDeclarations" namespaceDeclarations' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO (HoppyF.Ptr M232.QVectorQQXmlStreamNamespaceDeclaration)+foreign import ccall "genpop__QXmlStreamReader_notationDeclarations" notationDeclarations' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO (HoppyF.Ptr M234.QVectorQXmlStreamNotationDeclaration)+foreign import ccall "genpop__QXmlStreamReader_raiseError" raiseError' ::  HoppyF.Ptr QXmlStreamReader -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamReader_raiseErrorWithMessage" raiseErrorWithMessage' ::  HoppyF.Ptr QXmlStreamReader -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamReader_readElementText" readElementText' ::  HoppyF.Ptr QXmlStreamReader -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QXmlStreamReader_readElementTextWithBehaviour" readElementTextWithBehaviour' ::  HoppyF.Ptr QXmlStreamReader -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QXmlStreamReader_readNext" readNext' ::  HoppyF.Ptr QXmlStreamReader -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QXmlStreamReader_readNextStartElement" readNextStartElement' ::  HoppyF.Ptr QXmlStreamReader -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamReader_skipCurrentElement" skipCurrentElement' ::  HoppyF.Ptr QXmlStreamReader -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamReader_tokenString" tokenString' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QXmlStreamReader_tokenType" tokenType' ::  HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "gendel__QXmlStreamReader" delete'QXmlStreamReader :: HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO ()+foreign import ccall "&gendel__QXmlStreamReader" deletePtr'QXmlStreamReader :: HoppyF.FunPtr (HoppyF.Ptr QXmlStreamReaderConst -> HoppyP.IO ())++class QXmlStreamReaderValue a where+  withQXmlStreamReaderPtr :: a -> (QXmlStreamReaderConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QXmlStreamReaderConstPtr a => QXmlStreamReaderValue a where+  withQXmlStreamReaderPtr = HoppyP.flip ($) . toQXmlStreamReaderConst++class (HoppyFHR.CppPtr this) => QXmlStreamReaderConstPtr this where+  toQXmlStreamReaderConst :: this -> QXmlStreamReaderConst++namespaceProcessing :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+namespaceProcessing arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (namespaceProcessing' arg'1')++atEnd :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+atEnd arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (atEnd' arg'1')++attributes :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO M176.QXmlStreamAttributes)+attributes arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap M176.QXmlStreamAttributes+  (attributes' arg'1')++characterOffset :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+characterOffset arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (characterOffset' arg'1')++columnNumber :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+columnNumber arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (columnNumber' arg'1')++device :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO M48.QIODevice)+device arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M48.QIODevice+  (device' arg'1')++entityDeclarations :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO M230.QVectorQXmlStreamEntityDeclaration)+entityDeclarations arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap M230.QVectorQXmlStreamEntityDeclaration+  (entityDeclarations' arg'1')++entityResolver :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO M180.QXmlStreamEntityResolver)+entityResolver arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M180.QXmlStreamEntityResolver+  (entityResolver' arg'1')++error :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO QXmlStreamReaderError)+error arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (error' arg'1')++errorString :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+errorString arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (errorString' arg'1')++hasError :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasError arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasError' arg'1')++isCDATA :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isCDATA arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isCDATA' arg'1')++isCharacters :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isCharacters arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isCharacters' arg'1')++isComment :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isComment arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isComment' arg'1')++isDTD :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isDTD arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isDTD' arg'1')++isEndDocument :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEndDocument arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEndDocument' arg'1')++isEndElement :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEndElement arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEndElement' arg'1')++isEntityReference :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEntityReference arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEntityReference' arg'1')++isProcessingInstruction :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isProcessingInstruction arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isProcessingInstruction' arg'1')++isStandaloneDocument :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isStandaloneDocument arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isStandaloneDocument' arg'1')++isStartDocument :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isStartDocument arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isStartDocument' arg'1')++isStartElement :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isStartElement arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isStartElement' arg'1')++isWhitespace :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isWhitespace arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isWhitespace' arg'1')++lineNumber :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+lineNumber arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (lineNumber' arg'1')++namespaceDeclarations :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO M232.QVectorQQXmlStreamNamespaceDeclaration)+namespaceDeclarations arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap M232.QVectorQQXmlStreamNamespaceDeclaration+  (namespaceDeclarations' arg'1')++notationDeclarations :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO M234.QVectorQXmlStreamNotationDeclaration)+notationDeclarations arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap M234.QVectorQXmlStreamNotationDeclaration+  (notationDeclarations' arg'1')++tokenString :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+tokenString arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (tokenString' arg'1')++tokenType :: (QXmlStreamReaderValue this) => (this) {- ^ this -} -> (HoppyP.IO QXmlStreamReaderTokenType)+tokenType arg'1 =+  withQXmlStreamReaderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (tokenType' arg'1')++class (QXmlStreamReaderConstPtr this) => QXmlStreamReaderPtr this where+  toQXmlStreamReader :: this -> QXmlStreamReader++setNamespaceProcessing :: (QXmlStreamReaderPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setNamespaceProcessing arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setNamespaceProcessing' arg'1' arg'2')++addDataWithByteArray :: (QXmlStreamReaderPtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addDataWithByteArray arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (addDataWithByteArray' arg'1' arg'2')++addDataWithString :: (QXmlStreamReaderPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addDataWithString arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (addDataWithString' arg'1' arg'2')++addDataWithPtrChar :: (QXmlStreamReaderPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO ())+addDataWithPtrChar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (addDataWithPtrChar' arg'1' arg'2')++addExtraNamespaceDeclaration :: (QXmlStreamReaderPtr this, M182.QXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addExtraNamespaceDeclaration arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  M182.withQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (addExtraNamespaceDeclaration' arg'1' arg'2')++addExtraNamespaceDeclarations :: (QXmlStreamReaderPtr this, M232.QVectorQQXmlStreamNamespaceDeclarationValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addExtraNamespaceDeclarations arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  M232.withQVectorQQXmlStreamNamespaceDeclarationPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (addExtraNamespaceDeclarations' arg'1' arg'2')++clear :: (QXmlStreamReaderPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  (clear' arg'1')++setDevice :: (QXmlStreamReaderPtr this, M48.QIODevicePtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setDevice arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M48.toQIODevice arg'2) $ \arg'2' ->+  (setDevice' arg'1' arg'2')++setEntityResolver :: (QXmlStreamReaderPtr this, M180.QXmlStreamEntityResolverPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setEntityResolver arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M180.toQXmlStreamEntityResolver arg'2) $ \arg'2' ->+  (setEntityResolver' arg'1' arg'2')++raiseError :: (QXmlStreamReaderPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+raiseError arg'1 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  (raiseError' arg'1')++raiseErrorWithMessage :: (QXmlStreamReaderPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+raiseErrorWithMessage arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (raiseErrorWithMessage' arg'1' arg'2')++readElementText :: (QXmlStreamReaderPtr this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+readElementText arg'1 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (readElementText' arg'1')++readElementTextWithBehaviour :: (QXmlStreamReaderPtr this) => (this) {- ^ this -} -> (QXmlStreamReaderReadElementTextBehaviour) -> (HoppyP.IO QtahP.String)+readElementTextWithBehaviour arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (readElementTextWithBehaviour' arg'1' arg'2')++readNext :: (QXmlStreamReaderPtr this) => (this) {- ^ this -} -> (HoppyP.IO QXmlStreamReaderTokenType)+readNext arg'1 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (readNext' arg'1')++readNextStartElement :: (QXmlStreamReaderPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+readNextStartElement arg'1 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (readNextStartElement' arg'1')++skipCurrentElement :: (QXmlStreamReaderPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+skipCurrentElement arg'1 =+  HoppyFHR.withCppPtr (toQXmlStreamReader arg'1) $ \arg'1' ->+  (skipCurrentElement' arg'1')++data QXmlStreamReaderConst =+    QXmlStreamReaderConst (HoppyF.Ptr QXmlStreamReaderConst)+  | QXmlStreamReaderConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamReaderConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamReaderConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamReaderConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamReaderToConst :: QXmlStreamReader -> QXmlStreamReaderConst+castQXmlStreamReaderToConst (QXmlStreamReader ptr') = QXmlStreamReaderConst $ HoppyF.castPtr ptr'+castQXmlStreamReaderToConst (QXmlStreamReaderGc fptr' ptr') = QXmlStreamReaderConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamReaderConst where+  nullptr = QXmlStreamReaderConst HoppyF.nullPtr+  +  withCppPtr (QXmlStreamReaderConst ptr') f' = f' ptr'+  withCppPtr (QXmlStreamReaderConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamReaderConst ptr') = ptr'+  toPtr (QXmlStreamReaderConstGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamReaderConst _) = HoppyP.return ()+  touchCppPtr (QXmlStreamReaderConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamReaderConst where+  delete (QXmlStreamReaderConst ptr') = delete'QXmlStreamReader ptr'+  delete (QXmlStreamReaderConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamReaderConst", " object."]+  +  toGc this'@(QXmlStreamReaderConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamReaderConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamReader :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamReaderConstGc {}) = HoppyP.return this'++instance QXmlStreamReaderConstPtr QXmlStreamReaderConst where+  toQXmlStreamReaderConst = HoppyP.id++data QXmlStreamReader =+    QXmlStreamReader (HoppyF.Ptr QXmlStreamReader)+  | QXmlStreamReaderGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamReader)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamReader where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamReader where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamReaderToNonconst :: QXmlStreamReaderConst -> QXmlStreamReader+castQXmlStreamReaderToNonconst (QXmlStreamReaderConst ptr') = QXmlStreamReader $ HoppyF.castPtr ptr'+castQXmlStreamReaderToNonconst (QXmlStreamReaderConstGc fptr' ptr') = QXmlStreamReaderGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamReader where+  nullptr = QXmlStreamReader HoppyF.nullPtr+  +  withCppPtr (QXmlStreamReader ptr') f' = f' ptr'+  withCppPtr (QXmlStreamReaderGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamReader ptr') = ptr'+  toPtr (QXmlStreamReaderGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamReader _) = HoppyP.return ()+  touchCppPtr (QXmlStreamReaderGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamReader where+  delete (QXmlStreamReader ptr') = delete'QXmlStreamReader $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QXmlStreamReaderConst)+  delete (QXmlStreamReaderGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamReader", " object."]+  +  toGc this'@(QXmlStreamReader ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamReaderGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamReader :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamReaderGc {}) = HoppyP.return this'++instance QXmlStreamReaderConstPtr QXmlStreamReader where+  toQXmlStreamReaderConst (QXmlStreamReader ptr') = QXmlStreamReaderConst $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamReader -> HoppyF.Ptr QXmlStreamReaderConst) ptr'+  toQXmlStreamReaderConst (QXmlStreamReaderGc fptr' ptr') = QXmlStreamReaderConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamReader -> HoppyF.Ptr QXmlStreamReaderConst) ptr'++instance QXmlStreamReaderPtr QXmlStreamReader where+  toQXmlStreamReader = HoppyP.id++new :: (HoppyP.IO QXmlStreamReader)+new =+  HoppyP.fmap QXmlStreamReader+  (new')++newWithPtrChar :: (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QXmlStreamReader)+newWithPtrChar arg'1 =+  let arg'1' = arg'1 in+  HoppyP.fmap QXmlStreamReader+  (newWithPtrChar' arg'1')++newWithString :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QXmlStreamReader)+newWithString arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QXmlStreamReader+  (newWithString' arg'1')++newWithByteArray :: (M12.QByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO QXmlStreamReader)+newWithByteArray arg'1 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QXmlStreamReader+  (newWithByteArray' arg'1')++newWithIODevice :: (M48.QIODevicePtr arg'1) => (arg'1) -> (HoppyP.IO QXmlStreamReader)+newWithIODevice arg'1 =+  HoppyFHR.withCppPtr (M48.toQIODevice arg'1) $ \arg'1' ->+  HoppyP.fmap QXmlStreamReader+  (newWithIODevice' arg'1')++class QXmlStreamReaderSuper a where+  downToQXmlStreamReader :: a -> QXmlStreamReader+++class QXmlStreamReaderSuperConst a where+  downToQXmlStreamReaderConst :: a -> QXmlStreamReaderConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamReader)) QXmlStreamReader where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamReader)) QXmlStreamReader where+  decode = HoppyP.fmap QXmlStreamReader . HoppyF.peek++data QXmlStreamReaderError =+  NoError+  | UnexpectedElementError+  | CustomError+  | NotWellFormedError+  | PrematureEndOfDocumentError+  | UnknownQXmlStreamReaderError (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QXmlStreamReaderError where+  fromCppEnum NoError = 0+  fromCppEnum UnexpectedElementError = 1+  fromCppEnum CustomError = 2+  fromCppEnum NotWellFormedError = 3+  fromCppEnum PrematureEndOfDocumentError = 4+  fromCppEnum (UnknownQXmlStreamReaderError n) = n+  +  toCppEnum (0) = NoError+  toCppEnum (1) = UnexpectedElementError+  toCppEnum (2) = CustomError+  toCppEnum (3) = NotWellFormedError+  toCppEnum (4) = PrematureEndOfDocumentError+  toCppEnum n = UnknownQXmlStreamReaderError n++instance HoppyP.Eq QXmlStreamReaderError where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QXmlStreamReaderError where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QXmlStreamReaderReadElementTextBehaviour =+  ErrorOnUnexpectedElement+  | IncludeChildElements+  | SkipChildElements+  | UnknownQXmlStreamReaderReadElementTextBehaviour (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QXmlStreamReaderReadElementTextBehaviour where+  fromCppEnum ErrorOnUnexpectedElement = 0+  fromCppEnum IncludeChildElements = 1+  fromCppEnum SkipChildElements = 2+  fromCppEnum (UnknownQXmlStreamReaderReadElementTextBehaviour n) = n+  +  toCppEnum (0) = ErrorOnUnexpectedElement+  toCppEnum (1) = IncludeChildElements+  toCppEnum (2) = SkipChildElements+  toCppEnum n = UnknownQXmlStreamReaderReadElementTextBehaviour n++instance HoppyP.Eq QXmlStreamReaderReadElementTextBehaviour where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QXmlStreamReaderReadElementTextBehaviour where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QXmlStreamReaderTokenType =+  NoToken+  | Invalid+  | StartDocument+  | EndDocument+  | StartElement+  | EndElement+  | Characters+  | Comment+  | Dtd+  | EntityReference+  | ProcessingInstruction+  | UnknownQXmlStreamReaderTokenType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QXmlStreamReaderTokenType where+  fromCppEnum NoToken = 0+  fromCppEnum Invalid = 1+  fromCppEnum StartDocument = 2+  fromCppEnum EndDocument = 3+  fromCppEnum StartElement = 4+  fromCppEnum EndElement = 5+  fromCppEnum Characters = 6+  fromCppEnum Comment = 7+  fromCppEnum Dtd = 8+  fromCppEnum EntityReference = 9+  fromCppEnum ProcessingInstruction = 10+  fromCppEnum (UnknownQXmlStreamReaderTokenType n) = n+  +  toCppEnum (0) = NoToken+  toCppEnum (1) = Invalid+  toCppEnum (2) = StartDocument+  toCppEnum (3) = EndDocument+  toCppEnum (4) = StartElement+  toCppEnum (5) = EndElement+  toCppEnum (6) = Characters+  toCppEnum (7) = Comment+  toCppEnum (8) = Dtd+  toCppEnum (9) = EntityReference+  toCppEnum (10) = ProcessingInstruction+  toCppEnum n = UnknownQXmlStreamReaderTokenType n++instance HoppyP.Eq QXmlStreamReaderTokenType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QXmlStreamReaderTokenType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Core/QXmlStreamWriter.hs view
@@ -0,0 +1,473 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.QXmlStreamWriter (+  QXmlStreamWriterValue (..),+  QXmlStreamWriterConstPtr (..),+  autoFormatting,+  autoFormattingIndent,+  codec,+  device,+  hasError,+  QXmlStreamWriterPtr (..),+  setAutoFormatting,+  setAutoFormattingIndent,+  setDevice,+  setCodec,+  setCodecWithPtrChar,+  writeAttributeWithNamespaceUriAndNameAndValue,+  writeAttributeWithQualifiedNameAndValue,+  writeAttribute,+  writeAttributes,+  writeCDATA,+  writeCharacters,+  writeComment,+  writeCurrentToken,+  writeDTD,+  writeDefaultNamespace,+  writeEmptyElementWithNamespaceUriAndName,+  writeEmptyElement,+  writeEndDocument,+  writeEndElement,+  writeEntityReference,+  writeNamespace,+  writeNamespaceWithNamespaceUriAndPrefix,+  writeProcessingInstruction,+  writeProcessingInstructionWithTargetAndData,+  writeStartDocumentWithVersion,+  writeStartDocument,+  writeStartDocumentWithVersionAndStandalone,+  writeStartElementWithNamespaceUriAndName,+  writeStartElement,+  writeTextElementWithNamespaceUriAndNameAndText,+  writeTextElementWithQualifiedNameAndText,+  QXmlStreamWriterConst (..),+  castQXmlStreamWriterToConst,+  QXmlStreamWriter (..),+  castQXmlStreamWriterToNonconst,+  new,+  newWithString,+  newWithByteArray,+  newWithIODevice,+  QXmlStreamWriterSuper (..),+  QXmlStreamWriterSuperConst (..),+  ) 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.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QIODevice as M48+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QTextCodec as M150+import qualified Graphics.UI.Qtah.Generated.Core.QXmlStreamAttribute as M174+import qualified Graphics.UI.Qtah.Generated.Core.QXmlStreamAttributes as M176+import qualified Graphics.UI.Qtah.Generated.Core.QXmlStreamReader as M186+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QXmlStreamWriter_new" new' ::  HoppyP.IO (HoppyF.Ptr QXmlStreamWriter)+foreign import ccall "genpop__QXmlStreamWriter_newWithString" newWithString' ::  HoppyF.Ptr M142.QString -> HoppyP.IO (HoppyF.Ptr QXmlStreamWriter)+foreign import ccall "genpop__QXmlStreamWriter_newWithByteArray" newWithByteArray' ::  HoppyF.Ptr M12.QByteArray -> HoppyP.IO (HoppyF.Ptr QXmlStreamWriter)+foreign import ccall "genpop__QXmlStreamWriter_newWithIODevice" newWithIODevice' ::  HoppyF.Ptr M48.QIODevice -> HoppyP.IO (HoppyF.Ptr QXmlStreamWriter)+foreign import ccall "genpop__QXmlStreamWriter_autoFormatting" autoFormatting' ::  HoppyF.Ptr QXmlStreamWriterConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamWriter_setAutoFormatting" setAutoFormatting' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_autoFormattingIndent" autoFormattingIndent' ::  HoppyF.Ptr QXmlStreamWriterConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QXmlStreamWriter_setAutoFormattingIndent" setAutoFormattingIndent' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_codec" codec' ::  HoppyF.Ptr QXmlStreamWriterConst -> HoppyP.IO (HoppyF.Ptr M150.QTextCodec)+foreign import ccall "genpop__QXmlStreamWriter_device" device' ::  HoppyF.Ptr QXmlStreamWriterConst -> HoppyP.IO (HoppyF.Ptr M48.QIODevice)+foreign import ccall "genpop__QXmlStreamWriter_setDevice" setDevice' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M48.QIODevice -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_hasError" hasError' ::  HoppyF.Ptr QXmlStreamWriterConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QXmlStreamWriter_setCodec" setCodec' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M150.QTextCodec -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_setCodecWithPtrChar" setCodecWithPtrChar' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeAttributeWithNamespaceUriAndNameAndValue" writeAttributeWithNamespaceUriAndNameAndValue' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeAttributeWithQualifiedNameAndValue" writeAttributeWithQualifiedNameAndValue' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeAttribute" writeAttribute' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M174.QXmlStreamAttributeConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeAttributes" writeAttributes' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M176.QXmlStreamAttributesConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeCDATA" writeCDATA' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeCharacters" writeCharacters' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeComment" writeComment' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeCurrentToken" writeCurrentToken' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M186.QXmlStreamReaderConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeDTD" writeDTD' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeDefaultNamespace" writeDefaultNamespace' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeEmptyElementWithNamespaceUriAndName" writeEmptyElementWithNamespaceUriAndName' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeEmptyElement" writeEmptyElement' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeEndDocument" writeEndDocument' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeEndElement" writeEndElement' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeEntityReference" writeEntityReference' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeNamespace" writeNamespace' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeNamespaceWithNamespaceUriAndPrefix" writeNamespaceWithNamespaceUriAndPrefix' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeProcessingInstruction" writeProcessingInstruction' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeProcessingInstructionWithTargetAndData" writeProcessingInstructionWithTargetAndData' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeStartDocumentWithVersion" writeStartDocumentWithVersion' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeStartDocument" writeStartDocument' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeStartDocumentWithVersionAndStandalone" writeStartDocumentWithVersionAndStandalone' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeStartElementWithNamespaceUriAndName" writeStartElementWithNamespaceUriAndName' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeStartElement" writeStartElement' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeTextElementWithNamespaceUriAndNameAndText" writeTextElementWithNamespaceUriAndNameAndText' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QXmlStreamWriter_writeTextElementWithQualifiedNameAndText" writeTextElementWithQualifiedNameAndText' ::  HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "gendel__QXmlStreamWriter" delete'QXmlStreamWriter :: HoppyF.Ptr QXmlStreamWriterConst -> HoppyP.IO ()+foreign import ccall "&gendel__QXmlStreamWriter" deletePtr'QXmlStreamWriter :: HoppyF.FunPtr (HoppyF.Ptr QXmlStreamWriterConst -> HoppyP.IO ())++class QXmlStreamWriterValue a where+  withQXmlStreamWriterPtr :: a -> (QXmlStreamWriterConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QXmlStreamWriterConstPtr a => QXmlStreamWriterValue a where+  withQXmlStreamWriterPtr = HoppyP.flip ($) . toQXmlStreamWriterConst++class (HoppyFHR.CppPtr this) => QXmlStreamWriterConstPtr this where+  toQXmlStreamWriterConst :: this -> QXmlStreamWriterConst++autoFormatting :: (QXmlStreamWriterValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+autoFormatting arg'1 =+  withQXmlStreamWriterPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (autoFormatting' arg'1')++autoFormattingIndent :: (QXmlStreamWriterValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+autoFormattingIndent arg'1 =+  withQXmlStreamWriterPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (autoFormattingIndent' arg'1')++codec :: (QXmlStreamWriterValue this) => (this) {- ^ this -} -> (HoppyP.IO M150.QTextCodec)+codec arg'1 =+  withQXmlStreamWriterPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M150.QTextCodec+  (codec' arg'1')++device :: (QXmlStreamWriterValue this) => (this) {- ^ this -} -> (HoppyP.IO M48.QIODevice)+device arg'1 =+  withQXmlStreamWriterPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M48.QIODevice+  (device' arg'1')++hasError :: (QXmlStreamWriterValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasError arg'1 =+  withQXmlStreamWriterPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasError' arg'1')++class (QXmlStreamWriterConstPtr this) => QXmlStreamWriterPtr this where+  toQXmlStreamWriter :: this -> QXmlStreamWriter++setAutoFormatting :: (QXmlStreamWriterPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setAutoFormatting arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAutoFormatting' arg'1' arg'2')++setAutoFormattingIndent :: (QXmlStreamWriterPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setAutoFormattingIndent arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setAutoFormattingIndent' arg'1' arg'2')++setDevice :: (QXmlStreamWriterPtr this, M48.QIODevicePtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setDevice arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M48.toQIODevice arg'2) $ \arg'2' ->+  (setDevice' arg'1' arg'2')++setCodec :: (QXmlStreamWriterPtr this, M150.QTextCodecPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setCodec arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M150.toQTextCodec arg'2) $ \arg'2' ->+  (setCodec' arg'1' arg'2')++setCodecWithPtrChar :: (QXmlStreamWriterPtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO ())+setCodecWithPtrChar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (setCodecWithPtrChar' arg'1' arg'2')++writeAttributeWithNamespaceUriAndNameAndValue :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO ())+writeAttributeWithNamespaceUriAndNameAndValue arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (writeAttributeWithNamespaceUriAndNameAndValue' arg'1' arg'2' arg'3' arg'4')++writeAttributeWithQualifiedNameAndValue :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+writeAttributeWithQualifiedNameAndValue arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (writeAttributeWithQualifiedNameAndValue' arg'1' arg'2' arg'3')++writeAttribute :: (QXmlStreamWriterPtr this, M174.QXmlStreamAttributeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+writeAttribute arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M174.withQXmlStreamAttributePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (writeAttribute' arg'1' arg'2')++writeAttributes :: (QXmlStreamWriterPtr this, M176.QXmlStreamAttributesValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+writeAttributes arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M176.withQXmlStreamAttributesPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (writeAttributes' arg'1' arg'2')++writeCDATA :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+writeCDATA arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (writeCDATA' arg'1' arg'2')++writeCharacters :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+writeCharacters arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (writeCharacters' arg'1' arg'2')++writeComment :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+writeComment arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (writeComment' arg'1' arg'2')++writeCurrentToken :: (QXmlStreamWriterPtr this, M186.QXmlStreamReaderValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+writeCurrentToken arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M186.withQXmlStreamReaderPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (writeCurrentToken' arg'1' arg'2')++writeDTD :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+writeDTD arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (writeDTD' arg'1' arg'2')++writeDefaultNamespace :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+writeDefaultNamespace arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (writeDefaultNamespace' arg'1' arg'2')++writeEmptyElementWithNamespaceUriAndName :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+writeEmptyElementWithNamespaceUriAndName arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (writeEmptyElementWithNamespaceUriAndName' arg'1' arg'2' arg'3')++writeEmptyElement :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+writeEmptyElement arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (writeEmptyElement' arg'1' arg'2')++writeEndDocument :: (QXmlStreamWriterPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+writeEndDocument arg'1 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  (writeEndDocument' arg'1')++writeEndElement :: (QXmlStreamWriterPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+writeEndElement arg'1 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  (writeEndElement' arg'1')++writeEntityReference :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+writeEntityReference arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (writeEntityReference' arg'1' arg'2')++writeNamespace :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+writeNamespace arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (writeNamespace' arg'1' arg'2')++writeNamespaceWithNamespaceUriAndPrefix :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+writeNamespaceWithNamespaceUriAndPrefix arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (writeNamespaceWithNamespaceUriAndPrefix' arg'1' arg'2' arg'3')++writeProcessingInstruction :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+writeProcessingInstruction arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (writeProcessingInstruction' arg'1' arg'2')++writeProcessingInstructionWithTargetAndData :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+writeProcessingInstructionWithTargetAndData arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (writeProcessingInstructionWithTargetAndData' arg'1' arg'2' arg'3')++writeStartDocumentWithVersion :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+writeStartDocumentWithVersion arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (writeStartDocumentWithVersion' arg'1' arg'2')++writeStartDocument :: (QXmlStreamWriterPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+writeStartDocument arg'1 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  (writeStartDocument' arg'1')++writeStartDocumentWithVersionAndStandalone :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Bool) -> (HoppyP.IO ())+writeStartDocumentWithVersionAndStandalone arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'3 >>= \arg'3' ->+  (writeStartDocumentWithVersionAndStandalone' arg'1' arg'2' arg'3')++writeStartElementWithNamespaceUriAndName :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+writeStartElementWithNamespaceUriAndName arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (writeStartElementWithNamespaceUriAndName' arg'1' arg'2' arg'3')++writeStartElement :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+writeStartElement arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (writeStartElement' arg'1' arg'2')++writeTextElementWithNamespaceUriAndNameAndText :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO ())+writeTextElementWithNamespaceUriAndNameAndText arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (writeTextElementWithNamespaceUriAndNameAndText' arg'1' arg'2' arg'3' arg'4')++writeTextElementWithQualifiedNameAndText :: (QXmlStreamWriterPtr this, M142.QStringValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+writeTextElementWithQualifiedNameAndText arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQXmlStreamWriter arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (writeTextElementWithQualifiedNameAndText' arg'1' arg'2' arg'3')++data QXmlStreamWriterConst =+    QXmlStreamWriterConst (HoppyF.Ptr QXmlStreamWriterConst)+  | QXmlStreamWriterConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamWriterConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamWriterConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamWriterConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamWriterToConst :: QXmlStreamWriter -> QXmlStreamWriterConst+castQXmlStreamWriterToConst (QXmlStreamWriter ptr') = QXmlStreamWriterConst $ HoppyF.castPtr ptr'+castQXmlStreamWriterToConst (QXmlStreamWriterGc fptr' ptr') = QXmlStreamWriterConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamWriterConst where+  nullptr = QXmlStreamWriterConst HoppyF.nullPtr+  +  withCppPtr (QXmlStreamWriterConst ptr') f' = f' ptr'+  withCppPtr (QXmlStreamWriterConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamWriterConst ptr') = ptr'+  toPtr (QXmlStreamWriterConstGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamWriterConst _) = HoppyP.return ()+  touchCppPtr (QXmlStreamWriterConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamWriterConst where+  delete (QXmlStreamWriterConst ptr') = delete'QXmlStreamWriter ptr'+  delete (QXmlStreamWriterConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamWriterConst", " object."]+  +  toGc this'@(QXmlStreamWriterConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamWriterConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamWriter :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamWriterConstGc {}) = HoppyP.return this'++instance QXmlStreamWriterConstPtr QXmlStreamWriterConst where+  toQXmlStreamWriterConst = HoppyP.id++data QXmlStreamWriter =+    QXmlStreamWriter (HoppyF.Ptr QXmlStreamWriter)+  | QXmlStreamWriterGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QXmlStreamWriter)+  deriving (HoppyP.Show)++instance HoppyP.Eq QXmlStreamWriter where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QXmlStreamWriter where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQXmlStreamWriterToNonconst :: QXmlStreamWriterConst -> QXmlStreamWriter+castQXmlStreamWriterToNonconst (QXmlStreamWriterConst ptr') = QXmlStreamWriter $ HoppyF.castPtr ptr'+castQXmlStreamWriterToNonconst (QXmlStreamWriterConstGc fptr' ptr') = QXmlStreamWriterGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QXmlStreamWriter where+  nullptr = QXmlStreamWriter HoppyF.nullPtr+  +  withCppPtr (QXmlStreamWriter ptr') f' = f' ptr'+  withCppPtr (QXmlStreamWriterGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QXmlStreamWriter ptr') = ptr'+  toPtr (QXmlStreamWriterGc _ ptr') = ptr'+  +  touchCppPtr (QXmlStreamWriter _) = HoppyP.return ()+  touchCppPtr (QXmlStreamWriterGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QXmlStreamWriter where+  delete (QXmlStreamWriter ptr') = delete'QXmlStreamWriter $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QXmlStreamWriterConst)+  delete (QXmlStreamWriterGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QXmlStreamWriter", " object."]+  +  toGc this'@(QXmlStreamWriter ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QXmlStreamWriterGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QXmlStreamWriter :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QXmlStreamWriterGc {}) = HoppyP.return this'++instance QXmlStreamWriterConstPtr QXmlStreamWriter where+  toQXmlStreamWriterConst (QXmlStreamWriter ptr') = QXmlStreamWriterConst $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr QXmlStreamWriterConst) ptr'+  toQXmlStreamWriterConst (QXmlStreamWriterGc fptr' ptr') = QXmlStreamWriterConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QXmlStreamWriter -> HoppyF.Ptr QXmlStreamWriterConst) ptr'++instance QXmlStreamWriterPtr QXmlStreamWriter where+  toQXmlStreamWriter = HoppyP.id++new :: (HoppyP.IO QXmlStreamWriter)+new =+  HoppyP.fmap QXmlStreamWriter+  (new')++newWithString :: (M142.QStringPtr arg'1) => (arg'1) -> (HoppyP.IO QXmlStreamWriter)+newWithString arg'1 =+  HoppyFHR.withCppPtr (M142.toQString arg'1) $ \arg'1' ->+  HoppyP.fmap QXmlStreamWriter+  (newWithString' arg'1')++newWithByteArray :: (M12.QByteArrayPtr arg'1) => (arg'1) -> (HoppyP.IO QXmlStreamWriter)+newWithByteArray arg'1 =+  HoppyFHR.withCppPtr (M12.toQByteArray arg'1) $ \arg'1' ->+  HoppyP.fmap QXmlStreamWriter+  (newWithByteArray' arg'1')++newWithIODevice :: (M48.QIODevicePtr arg'1) => (arg'1) -> (HoppyP.IO QXmlStreamWriter)+newWithIODevice arg'1 =+  HoppyFHR.withCppPtr (M48.toQIODevice arg'1) $ \arg'1' ->+  HoppyP.fmap QXmlStreamWriter+  (newWithIODevice' arg'1')++class QXmlStreamWriterSuper a where+  downToQXmlStreamWriter :: a -> QXmlStreamWriter+++class QXmlStreamWriterSuperConst a where+  downToQXmlStreamWriterConst :: a -> QXmlStreamWriterConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamWriter)) QXmlStreamWriter where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QXmlStreamWriter)) QXmlStreamWriter where+  decode = HoppyP.fmap QXmlStreamWriter . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Core/Types.hs view
@@ -0,0 +1,5644 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Core.Types (+  QtAlignment,+  IsQtAlignment (..),+  alignAbsolute,+  alignBottom,+  alignHCenter,+  alignJustify,+  alignLeft,+  alignRight,+  alignTop,+  alignVCenter,+  QtAlignmentFlag (..),+  QtAnchorPoint (..),+  QtApplicationAttribute (..),+  QtApplicationState (..),+  QtApplicationStates,+  IsQtApplicationStates (..),+  applicationActive,+  applicationHidden,+  applicationInactive,+  applicationSuspended,+  QtArrowType (..),+  QtAspectRatioMode (..),+  QtAxis (..),+  QtBGMode (..),+  QtBrushStyle (..),+  QtCaseSensitivity (..),+  QtCheckState (..),+  QtChecksumType (..),+  QtClipOperation (..),+  QtConnectionType (..),+  QtContextMenuPolicy (..),+  QtCoordinateSystem (..),+  QtCorner (..),+  QtCursorMoveStyle (..),+  QtCursorShape (..),+  QtDateFormat (..),+  QtDayOfWeek (..),+  QtDockWidgetArea (..),+  QtDockWidgetAreas,+  IsQtDockWidgetAreas (..),+  allDockWidgetAreas,+  bottomDockWidgetArea,+  leftDockWidgetArea,+  noDockWidgetArea,+  rightDockWidgetArea,+  topDockWidgetArea,+  QtDropAction (..),+  QtDropActions,+  IsQtDropActions (..),+  actionMask,+  copyAction,+  ignoreAction,+  linkAction,+  moveAction,+  targetMoveAction,+  QtEdge (..),+  QtEdges,+  IsQtEdges (..),+  bottomEdge,+  leftEdge,+  rightEdge,+  topEdge,+  QtEnterKeyType (..),+  QtEventPriority (..),+  QtFillRule (..),+  QtFindChildOption (..),+  QtFindChildOptions,+  IsQtFindChildOptions (..),+  findChildrenRecursively,+  findDirectChildrenOnly,+  QtFocusPolicy (..),+  QtFocusReason (..),+  QtGestureFlag (..),+  QtGestureFlags,+  IsQtGestureFlags (..),+  dontStartGestureOnChildren,+  ignoredGesturesPropagateToParent,+  receivePartialGestures,+  QtGestureState (..),+  QtGestureStates,+  IsQtGestureStates (..),+  gestureCanceled,+  gestureFinished,+  gestureStarted,+  gestureUpdated,+  noGesture,+  QtGestureType (..),+  QtGlobalColor (..),+  QtHitTestAccuracy (..),+  QtImageConversionFlag (..),+  QtImageConversionFlags,+  IsQtImageConversionFlags (..),+  autoColor,+  avoidDither,+  colorOnly,+  diffuseAlphaDither,+  diffuseDither,+  monoOnly,+  noFormatConversion,+  noOpaqueDetection,+  orderedAlphaDither,+  orderedDither,+  preferDither,+  thresholdAlphaDither,+  thresholdDither,+  QtInputMethodHint (..),+  QtInputMethodHints,+  IsQtInputMethodHints (..),+  imhDate,+  imhDialableCharactersOnly,+  imhDigitsOnly,+  imhEmailCharactersOnly,+  imhExclusiveInputMask,+  imhFormattedNumbersOnly,+  imhHiddenText,+  imhLatinOnly,+  imhLowercaseOnly,+  imhMultiLine,+  imhNoAutoUppercase,+  imhNoPredictiveText,+  imhNone,+  imhPreferLatin,+  imhPreferLowercase,+  imhPreferNumbers,+  imhPreferUppercase,+  imhSensitiveData,+  imhTime,+  imhUppercaseOnly,+  imhUrlCharactersOnly,+  QtInputMethodQueries,+  IsQtInputMethodQueries (..),+  imAbsolutePosition,+  imAnchorPosition,+  imAnchorRectangle,+  imCurrentSelection,+  imCursorPosition,+  imCursorRectangle,+  imEnabled,+  imEnterKeyType,+  imFont,+  imHints,+  imInputItemClipRectangle,+  imMaximumTextLength,+  imMicroFocus,+  imPlatformData,+  imPreferredLanguage,+  imSurroundingText,+  imTextAfterCursor,+  imTextBeforeCursor,+  QtInputMethodQuery (..),+  QtItemDataRole (..),+  QtItemFlag (..),+  QtItemFlags,+  IsQtItemFlags (..),+  itemIsAutoTristate,+  itemIsDragEnabled,+  itemIsDropEnabled,+  itemIsEditable,+  itemIsEnabled,+  itemIsSelectable,+  itemIsUserCheckable,+  itemIsUserTristate,+  itemNeverHasChildren,+  noItemFlags,+  QtItemSelectionMode (..),+  QtItemSelectionOperation (..),+  QtKey (..),+  QtKeyboardModifier (..),+  QtKeyboardModifiers,+  IsQtKeyboardModifiers (..),+  altModifier,+  controlModifier,+  groupSwitchModifier,+  keypadModifier,+  metaModifier,+  noModifier,+  shiftModifier,+  QtLayoutDirection (..),+  QtMaskMode (..),+  QtMatchFlag (..),+  QtMatchFlags,+  IsQtMatchFlags (..),+  matchCaseSensitive,+  matchContains,+  matchEndsWith,+  matchExactly,+  matchFixedString,+  matchRecursive,+  matchRegExp,+  matchStartsWith,+  matchWildcard,+  matchWrap,+  QtMouseButton (..),+  QtMouseButtons,+  IsQtMouseButtons (..),+  allButtons,+  backButton,+  extraButton1,+  extraButton10,+  extraButton11,+  extraButton12,+  extraButton13,+  extraButton14,+  extraButton15,+  extraButton16,+  extraButton17,+  extraButton18,+  extraButton19,+  extraButton2,+  extraButton20,+  extraButton21,+  extraButton22,+  extraButton23,+  extraButton24,+  extraButton3,+  extraButton4,+  extraButton5,+  extraButton6,+  extraButton7,+  extraButton8,+  extraButton9,+  forwardButton,+  leftButton,+  midButton,+  middleButton,+  noButton,+  rightButton,+  taskButton,+  xButton1,+  xButton2,+  QtMouseEventFlag (..),+  QtMouseEventFlags,+  IsQtMouseEventFlags (..),+  mouseEventCreatedDoubleClick,+  QtMouseEventSource (..),+  QtMsgType (..),+  QtNativeGestureType (..),+  QtNavigationMode (..),+  QtOrientation (..),+  QtOrientations,+  IsQtOrientations (..),+  horizontal,+  vertical,+  QtPenCapStyle (..),+  QtPenJoinStyle (..),+  QtPenStyle (..),+  QtScreenOrientation (..),+  QtScreenOrientations,+  IsQtScreenOrientations (..),+  invertedLandscapeOrientation,+  invertedPortraitOrientation,+  landscapeOrientation,+  portraitOrientation,+  primaryOrientation,+  QtScrollBarPolicy (..),+  QtScrollPhase (..),+  QtShortcutContext (..),+  QtSizeHint (..),+  QtSizeMode (..),+  QtSortOrder (..),+  QtTabFocusBehavior (..),+  QtTextElideMode (..),+  QtTextFlag (..),+  QtTextFormat (..),+  QtTextInteractionFlag (..),+  QtTextInteractionFlags,+  IsQtTextInteractionFlags (..),+  linksAccessibleByKeyboard,+  linksAccessibleByMouse,+  noTextInteraction,+  textBrowserInteraction,+  textEditable,+  textEditorInteraction,+  textSelectableByKeyboard,+  textSelectableByMouse,+  QtTileRule (..),+  QtTimeSpec (..),+  QtTimerType (..),+  QtToolBarArea (..),+  QtToolBarAreas,+  IsQtToolBarAreas (..),+  allToolBarAreas,+  bottomToolBarArea,+  leftToolBarArea,+  noToolBarArea,+  rightToolBarArea,+  topToolBarArea,+  QtToolButtonStyle (..),+  QtTouchPointState (..),+  QtTouchPointStates,+  IsQtTouchPointStates (..),+  touchPointMoved,+  touchPointPressed,+  touchPointReleased,+  touchPointStationary,+  QtTransformationMode (..),+  QtUIEffect (..),+  QtWhiteSpaceMode (..),+  QtWidgetAttribute (..),+  QtWindowFlags,+  IsQtWindowFlags (..),+  coverWindow,+  desktop,+  dialog,+  drawer,+  foreignWindow,+  popup,+  sheet,+  splashScreen,+  subWindow,+  tool,+  toolTip,+  widget,+  window,+  QtWindowFrameSection (..),+  QtWindowModality (..),+  QtWindowState (..),+  QtWindowStates,+  IsQtWindowStates (..),+  windowActive,+  windowFullScreen,+  windowMaximized,+  windowMinimized,+  windowNoState,+  QtWindowType (..),+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++newtype QtAlignment = QtAlignment (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtAlignmentFlag QtAlignment where+  enumToFlags = QtAlignment . QtahFHR.fromCppEnum+  flagsToEnum (QtAlignment x') = QtahFHR.toCppEnum x'++class IsQtAlignment a where+  toQtAlignment :: a -> QtAlignment++instance IsQtAlignment QtAlignment where toQtAlignment = QtahP.id+instance IsQtAlignment QtAlignmentFlag where toQtAlignment = QtahFlags.enumToFlags+instance IsQtAlignment (HoppyFC.CInt) where toQtAlignment = QtahFlags.numToFlags++alignAbsolute :: QtAlignment+alignAbsolute = QtAlignment (16)++alignBottom :: QtAlignment+alignBottom = QtAlignment (64)++alignHCenter :: QtAlignment+alignHCenter = QtAlignment (4)++alignJustify :: QtAlignment+alignJustify = QtAlignment (8)++alignLeft :: QtAlignment+alignLeft = QtAlignment (1)++alignRight :: QtAlignment+alignRight = QtAlignment (2)++alignTop :: QtAlignment+alignTop = QtAlignment (32)++alignVCenter :: QtAlignment+alignVCenter = QtAlignment (128)++instance QtahDB.Bits QtAlignment where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtAlignmentFlag =+  AlignLeft+  | AlignRight+  | AlignHCenter+  | AlignJustify+  | AlignTop+  | AlignBottom+  | AlignVCenter+  | AlignAbsolute+  | UnknownQtAlignmentFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtAlignmentFlag where+  fromCppEnum AlignLeft = 1+  fromCppEnum AlignRight = 2+  fromCppEnum AlignHCenter = 4+  fromCppEnum AlignJustify = 8+  fromCppEnum AlignTop = 32+  fromCppEnum AlignBottom = 64+  fromCppEnum AlignVCenter = 128+  fromCppEnum AlignAbsolute = 16+  fromCppEnum (UnknownQtAlignmentFlag n) = n+  +  toCppEnum (1) = AlignLeft+  toCppEnum (2) = AlignRight+  toCppEnum (4) = AlignHCenter+  toCppEnum (8) = AlignJustify+  toCppEnum (16) = AlignAbsolute+  toCppEnum (32) = AlignTop+  toCppEnum (64) = AlignBottom+  toCppEnum (128) = AlignVCenter+  toCppEnum n = UnknownQtAlignmentFlag n++instance HoppyP.Eq QtAlignmentFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtAlignmentFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtAnchorPoint =+  AnchorLeft+  | AnchorHorizontalCenter+  | AnchorRight+  | AnchorTop+  | AnchorVerticalCenter+  | AnchorBottom+  | UnknownQtAnchorPoint (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtAnchorPoint where+  fromCppEnum AnchorLeft = 0+  fromCppEnum AnchorHorizontalCenter = 1+  fromCppEnum AnchorRight = 2+  fromCppEnum AnchorTop = 3+  fromCppEnum AnchorVerticalCenter = 4+  fromCppEnum AnchorBottom = 5+  fromCppEnum (UnknownQtAnchorPoint n) = n+  +  toCppEnum (0) = AnchorLeft+  toCppEnum (1) = AnchorHorizontalCenter+  toCppEnum (2) = AnchorRight+  toCppEnum (3) = AnchorTop+  toCppEnum (4) = AnchorVerticalCenter+  toCppEnum (5) = AnchorBottom+  toCppEnum n = UnknownQtAnchorPoint n++instance HoppyP.Eq QtAnchorPoint where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtAnchorPoint where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtApplicationAttribute =+  AaDontShowIconsInMenus+  | AaDontShowShortcutsInContextMenus+  | AaNativeWindows+  | AaDontCreateNativeWidgetSiblings+  | AaPluginApplication+  | AaDontUseNativeMenuBar+  | AaMacDontSwapCtrlAndMeta+  | AaUse96Dpi+  | AaSynthesizeTouchForUnhandledMouseEvents+  | AaSynthesizeMouseForUnhandledTouchEvents+  | AaUseHighDpiPixmaps+  | AaForceRasterWidgets+  | AaUseDesktopOpenGl+  | AaUseOpenGles+  | AaUseSoftwareOpenGl+  | AaShareOpenGlContexts+  | AaSetPalette+  | AaEnableHighDpiScaling+  | AaDisableHighDpiScaling+  | AaUseStyleSheetPropagationInWidgetStyles+  | AaDontUseNativeDialogs+  | AaSynthesizeMouseForUnhandledTabletEvents+  | AaCompressHighFrequencyEvents+  | AaCompressTabletEvents+  | AaDontCheckOpenGlContextThreadAffinity+  | AaDisableShaderDiskCache+  | AaDisableWindowContextHelpButton+  | UnknownQtApplicationAttribute (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtApplicationAttribute where+  fromCppEnum AaDontShowIconsInMenus = 2+  fromCppEnum AaDontShowShortcutsInContextMenus = 28+  fromCppEnum AaNativeWindows = 3+  fromCppEnum AaDontCreateNativeWidgetSiblings = 4+  fromCppEnum AaPluginApplication = 5+  fromCppEnum AaDontUseNativeMenuBar = 6+  fromCppEnum AaMacDontSwapCtrlAndMeta = 7+  fromCppEnum AaUse96Dpi = 8+  fromCppEnum AaSynthesizeTouchForUnhandledMouseEvents = 11+  fromCppEnum AaSynthesizeMouseForUnhandledTouchEvents = 12+  fromCppEnum AaUseHighDpiPixmaps = 13+  fromCppEnum AaForceRasterWidgets = 14+  fromCppEnum AaUseDesktopOpenGl = 15+  fromCppEnum AaUseOpenGles = 16+  fromCppEnum AaUseSoftwareOpenGl = 17+  fromCppEnum AaShareOpenGlContexts = 18+  fromCppEnum AaSetPalette = 19+  fromCppEnum AaEnableHighDpiScaling = 20+  fromCppEnum AaDisableHighDpiScaling = 21+  fromCppEnum AaUseStyleSheetPropagationInWidgetStyles = 22+  fromCppEnum AaDontUseNativeDialogs = 23+  fromCppEnum AaSynthesizeMouseForUnhandledTabletEvents = 24+  fromCppEnum AaCompressHighFrequencyEvents = 25+  fromCppEnum AaCompressTabletEvents = 29+  fromCppEnum AaDontCheckOpenGlContextThreadAffinity = 26+  fromCppEnum AaDisableShaderDiskCache = 27+  fromCppEnum AaDisableWindowContextHelpButton = 30+  fromCppEnum (UnknownQtApplicationAttribute n) = n+  +  toCppEnum (2) = AaDontShowIconsInMenus+  toCppEnum (3) = AaNativeWindows+  toCppEnum (4) = AaDontCreateNativeWidgetSiblings+  toCppEnum (5) = AaPluginApplication+  toCppEnum (6) = AaDontUseNativeMenuBar+  toCppEnum (7) = AaMacDontSwapCtrlAndMeta+  toCppEnum (8) = AaUse96Dpi+  toCppEnum (11) = AaSynthesizeTouchForUnhandledMouseEvents+  toCppEnum (12) = AaSynthesizeMouseForUnhandledTouchEvents+  toCppEnum (13) = AaUseHighDpiPixmaps+  toCppEnum (14) = AaForceRasterWidgets+  toCppEnum (15) = AaUseDesktopOpenGl+  toCppEnum (16) = AaUseOpenGles+  toCppEnum (17) = AaUseSoftwareOpenGl+  toCppEnum (18) = AaShareOpenGlContexts+  toCppEnum (19) = AaSetPalette+  toCppEnum (20) = AaEnableHighDpiScaling+  toCppEnum (21) = AaDisableHighDpiScaling+  toCppEnum (22) = AaUseStyleSheetPropagationInWidgetStyles+  toCppEnum (23) = AaDontUseNativeDialogs+  toCppEnum (24) = AaSynthesizeMouseForUnhandledTabletEvents+  toCppEnum (25) = AaCompressHighFrequencyEvents+  toCppEnum (26) = AaDontCheckOpenGlContextThreadAffinity+  toCppEnum (27) = AaDisableShaderDiskCache+  toCppEnum (28) = AaDontShowShortcutsInContextMenus+  toCppEnum (29) = AaCompressTabletEvents+  toCppEnum (30) = AaDisableWindowContextHelpButton+  toCppEnum n = UnknownQtApplicationAttribute n++instance HoppyP.Eq QtApplicationAttribute where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtApplicationAttribute where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtApplicationState =+  ApplicationSuspended+  | ApplicationHidden+  | ApplicationInactive+  | ApplicationActive+  | UnknownQtApplicationState (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtApplicationState where+  fromCppEnum ApplicationSuspended = 0+  fromCppEnum ApplicationHidden = 1+  fromCppEnum ApplicationInactive = 2+  fromCppEnum ApplicationActive = 4+  fromCppEnum (UnknownQtApplicationState n) = n+  +  toCppEnum (0) = ApplicationSuspended+  toCppEnum (1) = ApplicationHidden+  toCppEnum (2) = ApplicationInactive+  toCppEnum (4) = ApplicationActive+  toCppEnum n = UnknownQtApplicationState n++instance HoppyP.Eq QtApplicationState where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtApplicationState where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtApplicationStates = QtApplicationStates (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtApplicationState QtApplicationStates where+  enumToFlags = QtApplicationStates . QtahFHR.fromCppEnum+  flagsToEnum (QtApplicationStates x') = QtahFHR.toCppEnum x'++class IsQtApplicationStates a where+  toQtApplicationStates :: a -> QtApplicationStates++instance IsQtApplicationStates QtApplicationStates where toQtApplicationStates = QtahP.id+instance IsQtApplicationStates QtApplicationState where toQtApplicationStates = QtahFlags.enumToFlags+instance IsQtApplicationStates (HoppyFC.CInt) where toQtApplicationStates = QtahFlags.numToFlags++applicationActive :: QtApplicationStates+applicationActive = QtApplicationStates (4)++applicationHidden :: QtApplicationStates+applicationHidden = QtApplicationStates (1)++applicationInactive :: QtApplicationStates+applicationInactive = QtApplicationStates (2)++applicationSuspended :: QtApplicationStates+applicationSuspended = QtApplicationStates (0)++instance QtahDB.Bits QtApplicationStates where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtArrowType =+  NoArrow+  | UpArrow+  | DownArrow+  | LeftArrow+  | RightArrow+  | UnknownQtArrowType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtArrowType where+  fromCppEnum NoArrow = 0+  fromCppEnum UpArrow = 1+  fromCppEnum DownArrow = 2+  fromCppEnum LeftArrow = 3+  fromCppEnum RightArrow = 4+  fromCppEnum (UnknownQtArrowType n) = n+  +  toCppEnum (0) = NoArrow+  toCppEnum (1) = UpArrow+  toCppEnum (2) = DownArrow+  toCppEnum (3) = LeftArrow+  toCppEnum (4) = RightArrow+  toCppEnum n = UnknownQtArrowType n++instance HoppyP.Eq QtArrowType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtArrowType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtAspectRatioMode =+  IgnoreAspectRatio+  | KeepAspectRatio+  | KeepAspectRatioByExpanding+  | UnknownQtAspectRatioMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtAspectRatioMode where+  fromCppEnum IgnoreAspectRatio = 0+  fromCppEnum KeepAspectRatio = 1+  fromCppEnum KeepAspectRatioByExpanding = 2+  fromCppEnum (UnknownQtAspectRatioMode n) = n+  +  toCppEnum (0) = IgnoreAspectRatio+  toCppEnum (1) = KeepAspectRatio+  toCppEnum (2) = KeepAspectRatioByExpanding+  toCppEnum n = UnknownQtAspectRatioMode n++instance HoppyP.Eq QtAspectRatioMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtAspectRatioMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtAxis =+  XAxis+  | YAxis+  | ZAxis+  | UnknownQtAxis (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtAxis where+  fromCppEnum XAxis = 0+  fromCppEnum YAxis = 1+  fromCppEnum ZAxis = 2+  fromCppEnum (UnknownQtAxis n) = n+  +  toCppEnum (0) = XAxis+  toCppEnum (1) = YAxis+  toCppEnum (2) = ZAxis+  toCppEnum n = UnknownQtAxis n++instance HoppyP.Eq QtAxis where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtAxis where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtBGMode =+  TransparentMode+  | OpaqueMode+  | UnknownQtBgMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtBGMode where+  fromCppEnum TransparentMode = 0+  fromCppEnum OpaqueMode = 1+  fromCppEnum (UnknownQtBgMode n) = n+  +  toCppEnum (0) = TransparentMode+  toCppEnum (1) = OpaqueMode+  toCppEnum n = UnknownQtBgMode n++instance HoppyP.Eq QtBGMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtBGMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtBrushStyle =+  NoBrush+  | SolidPattern+  | Dense1Pattern+  | Dense2Pattern+  | Dense3Pattern+  | Dense4Pattern+  | Dense5Pattern+  | Dense6Pattern+  | Dense7Pattern+  | HorPattern+  | VerPattern+  | CrossPattern+  | BDiagPattern+  | FDiagPattern+  | DiagCrossPattern+  | LinearGradientPattern+  | RadialGradientPattern+  | ConicalGradientPattern+  | TexturePattern+  | UnknownQtBrushStyle (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtBrushStyle where+  fromCppEnum NoBrush = 0+  fromCppEnum SolidPattern = 1+  fromCppEnum Dense1Pattern = 2+  fromCppEnum Dense2Pattern = 3+  fromCppEnum Dense3Pattern = 4+  fromCppEnum Dense4Pattern = 5+  fromCppEnum Dense5Pattern = 6+  fromCppEnum Dense6Pattern = 7+  fromCppEnum Dense7Pattern = 8+  fromCppEnum HorPattern = 9+  fromCppEnum VerPattern = 10+  fromCppEnum CrossPattern = 11+  fromCppEnum BDiagPattern = 12+  fromCppEnum FDiagPattern = 13+  fromCppEnum DiagCrossPattern = 14+  fromCppEnum LinearGradientPattern = 15+  fromCppEnum RadialGradientPattern = 16+  fromCppEnum ConicalGradientPattern = 17+  fromCppEnum TexturePattern = 24+  fromCppEnum (UnknownQtBrushStyle n) = n+  +  toCppEnum (0) = NoBrush+  toCppEnum (1) = SolidPattern+  toCppEnum (2) = Dense1Pattern+  toCppEnum (3) = Dense2Pattern+  toCppEnum (4) = Dense3Pattern+  toCppEnum (5) = Dense4Pattern+  toCppEnum (6) = Dense5Pattern+  toCppEnum (7) = Dense6Pattern+  toCppEnum (8) = Dense7Pattern+  toCppEnum (9) = HorPattern+  toCppEnum (10) = VerPattern+  toCppEnum (11) = CrossPattern+  toCppEnum (12) = BDiagPattern+  toCppEnum (13) = FDiagPattern+  toCppEnum (14) = DiagCrossPattern+  toCppEnum (15) = LinearGradientPattern+  toCppEnum (16) = RadialGradientPattern+  toCppEnum (17) = ConicalGradientPattern+  toCppEnum (24) = TexturePattern+  toCppEnum n = UnknownQtBrushStyle n++instance HoppyP.Eq QtBrushStyle where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtBrushStyle where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtCaseSensitivity =+  CaseInsensitive+  | CaseSensitive+  | UnknownQtCaseSensitivity (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtCaseSensitivity where+  fromCppEnum CaseInsensitive = 0+  fromCppEnum CaseSensitive = 1+  fromCppEnum (UnknownQtCaseSensitivity n) = n+  +  toCppEnum (0) = CaseInsensitive+  toCppEnum (1) = CaseSensitive+  toCppEnum n = UnknownQtCaseSensitivity n++instance HoppyP.Eq QtCaseSensitivity where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtCaseSensitivity where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtCheckState =+  Unchecked+  | PartiallyChecked+  | Checked+  | UnknownQtCheckState (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtCheckState where+  fromCppEnum Unchecked = 0+  fromCppEnum PartiallyChecked = 1+  fromCppEnum Checked = 2+  fromCppEnum (UnknownQtCheckState n) = n+  +  toCppEnum (0) = Unchecked+  toCppEnum (1) = PartiallyChecked+  toCppEnum (2) = Checked+  toCppEnum n = UnknownQtCheckState n++instance HoppyP.Eq QtCheckState where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtCheckState where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtChecksumType =+  ChecksumIso3309+  | ChecksumItuV41+  | UnknownQtChecksumType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtChecksumType where+  fromCppEnum ChecksumIso3309 = 0+  fromCppEnum ChecksumItuV41 = 1+  fromCppEnum (UnknownQtChecksumType n) = n+  +  toCppEnum (0) = ChecksumIso3309+  toCppEnum (1) = ChecksumItuV41+  toCppEnum n = UnknownQtChecksumType n++instance HoppyP.Eq QtChecksumType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtChecksumType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtClipOperation =+  NoClip+  | ReplaceClip+  | IntersectClip+  | UnknownQtClipOperation (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtClipOperation where+  fromCppEnum NoClip = 0+  fromCppEnum ReplaceClip = 1+  fromCppEnum IntersectClip = 2+  fromCppEnum (UnknownQtClipOperation n) = n+  +  toCppEnum (0) = NoClip+  toCppEnum (1) = ReplaceClip+  toCppEnum (2) = IntersectClip+  toCppEnum n = UnknownQtClipOperation n++instance HoppyP.Eq QtClipOperation where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtClipOperation where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtConnectionType =+  AutoConnection+  | DirectConnection+  | QueuedConnection+  | BlockingQueuedConnection+  | UniqueConnection+  | UnknownQtConnectionType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtConnectionType where+  fromCppEnum AutoConnection = 0+  fromCppEnum DirectConnection = 1+  fromCppEnum QueuedConnection = 2+  fromCppEnum BlockingQueuedConnection = 3+  fromCppEnum UniqueConnection = 128+  fromCppEnum (UnknownQtConnectionType n) = n+  +  toCppEnum (0) = AutoConnection+  toCppEnum (1) = DirectConnection+  toCppEnum (2) = QueuedConnection+  toCppEnum (3) = BlockingQueuedConnection+  toCppEnum (128) = UniqueConnection+  toCppEnum n = UnknownQtConnectionType n++instance HoppyP.Eq QtConnectionType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtConnectionType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtContextMenuPolicy =+  NoContextMenu+  | PreventContextMenu+  | DefaultContextMenu+  | ActionsContextMenu+  | CustomContextMenu+  | UnknownQtContextMenuPolicy (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtContextMenuPolicy where+  fromCppEnum NoContextMenu = 0+  fromCppEnum PreventContextMenu = 4+  fromCppEnum DefaultContextMenu = 1+  fromCppEnum ActionsContextMenu = 2+  fromCppEnum CustomContextMenu = 3+  fromCppEnum (UnknownQtContextMenuPolicy n) = n+  +  toCppEnum (0) = NoContextMenu+  toCppEnum (1) = DefaultContextMenu+  toCppEnum (2) = ActionsContextMenu+  toCppEnum (3) = CustomContextMenu+  toCppEnum (4) = PreventContextMenu+  toCppEnum n = UnknownQtContextMenuPolicy n++instance HoppyP.Eq QtContextMenuPolicy where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtContextMenuPolicy where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtCoordinateSystem =+  DeviceCoordinates+  | LogicalCoordinates+  | UnknownQtCoordinateSystem (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtCoordinateSystem where+  fromCppEnum DeviceCoordinates = 0+  fromCppEnum LogicalCoordinates = 1+  fromCppEnum (UnknownQtCoordinateSystem n) = n+  +  toCppEnum (0) = DeviceCoordinates+  toCppEnum (1) = LogicalCoordinates+  toCppEnum n = UnknownQtCoordinateSystem n++instance HoppyP.Eq QtCoordinateSystem where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtCoordinateSystem where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtCorner =+  TopLeftCorner+  | TopRightCorner+  | BottomLeftCorner+  | BottomRightCorner+  | UnknownQtCorner (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtCorner where+  fromCppEnum TopLeftCorner = 0+  fromCppEnum TopRightCorner = 1+  fromCppEnum BottomLeftCorner = 2+  fromCppEnum BottomRightCorner = 3+  fromCppEnum (UnknownQtCorner n) = n+  +  toCppEnum (0) = TopLeftCorner+  toCppEnum (1) = TopRightCorner+  toCppEnum (2) = BottomLeftCorner+  toCppEnum (3) = BottomRightCorner+  toCppEnum n = UnknownQtCorner n++instance HoppyP.Eq QtCorner where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtCorner where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtCursorMoveStyle =+  LogicalMoveStyle+  | VisualMoveStyle+  | UnknownQtCursorMoveStyle (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtCursorMoveStyle where+  fromCppEnum LogicalMoveStyle = 0+  fromCppEnum VisualMoveStyle = 1+  fromCppEnum (UnknownQtCursorMoveStyle n) = n+  +  toCppEnum (0) = LogicalMoveStyle+  toCppEnum (1) = VisualMoveStyle+  toCppEnum n = UnknownQtCursorMoveStyle n++instance HoppyP.Eq QtCursorMoveStyle where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtCursorMoveStyle where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtCursorShape =+  ArrowCursor+  | UpArrowCursor+  | CrossCursor+  | WaitCursor+  | IBeamCursor+  | SizeVerCursor+  | SizeHorCursor+  | SizeBDiagCursor+  | SizeFDiagCursor+  | SizeAllCursor+  | BlankCursor+  | SplitVCursor+  | SplitHCursor+  | PointingHandCursor+  | ForbiddenCursor+  | WhatsThisCursor+  | BusyCursor+  | OpenHandCursor+  | ClosedHandCursor+  | DragCopyCursor+  | DragMoveCursor+  | DragLinkCursor+  | BitmapCursor+  | UnknownQtCursorShape (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtCursorShape where+  fromCppEnum ArrowCursor = 0+  fromCppEnum UpArrowCursor = 1+  fromCppEnum CrossCursor = 2+  fromCppEnum WaitCursor = 3+  fromCppEnum IBeamCursor = 4+  fromCppEnum SizeVerCursor = 5+  fromCppEnum SizeHorCursor = 6+  fromCppEnum SizeBDiagCursor = 7+  fromCppEnum SizeFDiagCursor = 8+  fromCppEnum SizeAllCursor = 9+  fromCppEnum BlankCursor = 10+  fromCppEnum SplitVCursor = 11+  fromCppEnum SplitHCursor = 12+  fromCppEnum PointingHandCursor = 13+  fromCppEnum ForbiddenCursor = 14+  fromCppEnum WhatsThisCursor = 15+  fromCppEnum BusyCursor = 16+  fromCppEnum OpenHandCursor = 17+  fromCppEnum ClosedHandCursor = 18+  fromCppEnum DragCopyCursor = 19+  fromCppEnum DragMoveCursor = 20+  fromCppEnum DragLinkCursor = 21+  fromCppEnum BitmapCursor = 24+  fromCppEnum (UnknownQtCursorShape n) = n+  +  toCppEnum (0) = ArrowCursor+  toCppEnum (1) = UpArrowCursor+  toCppEnum (2) = CrossCursor+  toCppEnum (3) = WaitCursor+  toCppEnum (4) = IBeamCursor+  toCppEnum (5) = SizeVerCursor+  toCppEnum (6) = SizeHorCursor+  toCppEnum (7) = SizeBDiagCursor+  toCppEnum (8) = SizeFDiagCursor+  toCppEnum (9) = SizeAllCursor+  toCppEnum (10) = BlankCursor+  toCppEnum (11) = SplitVCursor+  toCppEnum (12) = SplitHCursor+  toCppEnum (13) = PointingHandCursor+  toCppEnum (14) = ForbiddenCursor+  toCppEnum (15) = WhatsThisCursor+  toCppEnum (16) = BusyCursor+  toCppEnum (17) = OpenHandCursor+  toCppEnum (18) = ClosedHandCursor+  toCppEnum (19) = DragCopyCursor+  toCppEnum (20) = DragMoveCursor+  toCppEnum (21) = DragLinkCursor+  toCppEnum (24) = BitmapCursor+  toCppEnum n = UnknownQtCursorShape n++instance HoppyP.Eq QtCursorShape where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtCursorShape where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtDateFormat =+  TextDate+  | IsoDate+  | IsoDateWithMs+  | SystemLocaleShortDate+  | SystemLocaleLongDate+  | DefaultLocaleShortDate+  | DefaultLocaleLongDate+  | SystemLocaleDate+  | LocaleDate+  | Rfc2822Date+  | UnknownQtDateFormat (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtDateFormat where+  fromCppEnum TextDate = 0+  fromCppEnum IsoDate = 1+  fromCppEnum IsoDateWithMs = 9+  fromCppEnum SystemLocaleShortDate = 4+  fromCppEnum SystemLocaleLongDate = 5+  fromCppEnum DefaultLocaleShortDate = 6+  fromCppEnum DefaultLocaleLongDate = 7+  fromCppEnum SystemLocaleDate = 2+  fromCppEnum LocaleDate = 3+  fromCppEnum Rfc2822Date = 8+  fromCppEnum (UnknownQtDateFormat n) = n+  +  toCppEnum (0) = TextDate+  toCppEnum (1) = IsoDate+  toCppEnum (2) = SystemLocaleDate+  toCppEnum (3) = LocaleDate+  toCppEnum (4) = SystemLocaleShortDate+  toCppEnum (5) = SystemLocaleLongDate+  toCppEnum (6) = DefaultLocaleShortDate+  toCppEnum (7) = DefaultLocaleLongDate+  toCppEnum (8) = Rfc2822Date+  toCppEnum (9) = IsoDateWithMs+  toCppEnum n = UnknownQtDateFormat n++instance HoppyP.Eq QtDateFormat where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtDateFormat where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtDayOfWeek =+  Monday+  | Tuesday+  | Wednesday+  | Thursday+  | Friday+  | Saturday+  | Sunday+  | UnknownQtDayOfWeek (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtDayOfWeek where+  fromCppEnum Monday = 1+  fromCppEnum Tuesday = 2+  fromCppEnum Wednesday = 3+  fromCppEnum Thursday = 4+  fromCppEnum Friday = 5+  fromCppEnum Saturday = 6+  fromCppEnum Sunday = 7+  fromCppEnum (UnknownQtDayOfWeek n) = n+  +  toCppEnum (1) = Monday+  toCppEnum (2) = Tuesday+  toCppEnum (3) = Wednesday+  toCppEnum (4) = Thursday+  toCppEnum (5) = Friday+  toCppEnum (6) = Saturday+  toCppEnum (7) = Sunday+  toCppEnum n = UnknownQtDayOfWeek n++instance HoppyP.Eq QtDayOfWeek where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtDayOfWeek where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtDockWidgetArea =+  NoDockWidgetArea+  | LeftDockWidgetArea+  | RightDockWidgetArea+  | TopDockWidgetArea+  | BottomDockWidgetArea+  | AllDockWidgetAreas+  | UnknownQtDockWidgetArea (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtDockWidgetArea where+  fromCppEnum NoDockWidgetArea = 0+  fromCppEnum LeftDockWidgetArea = 1+  fromCppEnum RightDockWidgetArea = 2+  fromCppEnum TopDockWidgetArea = 4+  fromCppEnum BottomDockWidgetArea = 8+  fromCppEnum AllDockWidgetAreas = 15+  fromCppEnum (UnknownQtDockWidgetArea n) = n+  +  toCppEnum (0) = NoDockWidgetArea+  toCppEnum (1) = LeftDockWidgetArea+  toCppEnum (2) = RightDockWidgetArea+  toCppEnum (4) = TopDockWidgetArea+  toCppEnum (8) = BottomDockWidgetArea+  toCppEnum (15) = AllDockWidgetAreas+  toCppEnum n = UnknownQtDockWidgetArea n++instance HoppyP.Eq QtDockWidgetArea where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtDockWidgetArea where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtDockWidgetAreas = QtDockWidgetAreas (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtDockWidgetArea QtDockWidgetAreas where+  enumToFlags = QtDockWidgetAreas . QtahFHR.fromCppEnum+  flagsToEnum (QtDockWidgetAreas x') = QtahFHR.toCppEnum x'++class IsQtDockWidgetAreas a where+  toQtDockWidgetAreas :: a -> QtDockWidgetAreas++instance IsQtDockWidgetAreas QtDockWidgetAreas where toQtDockWidgetAreas = QtahP.id+instance IsQtDockWidgetAreas QtDockWidgetArea where toQtDockWidgetAreas = QtahFlags.enumToFlags+instance IsQtDockWidgetAreas (HoppyFC.CInt) where toQtDockWidgetAreas = QtahFlags.numToFlags++allDockWidgetAreas :: QtDockWidgetAreas+allDockWidgetAreas = QtDockWidgetAreas (15)++bottomDockWidgetArea :: QtDockWidgetAreas+bottomDockWidgetArea = QtDockWidgetAreas (8)++leftDockWidgetArea :: QtDockWidgetAreas+leftDockWidgetArea = QtDockWidgetAreas (1)++noDockWidgetArea :: QtDockWidgetAreas+noDockWidgetArea = QtDockWidgetAreas (0)++rightDockWidgetArea :: QtDockWidgetAreas+rightDockWidgetArea = QtDockWidgetAreas (2)++topDockWidgetArea :: QtDockWidgetAreas+topDockWidgetArea = QtDockWidgetAreas (4)++instance QtahDB.Bits QtDockWidgetAreas where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtDropAction =+  IgnoreAction+  | CopyAction+  | MoveAction+  | LinkAction+  | ActionMask+  | TargetMoveAction+  | UnknownQtDropAction (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtDropAction where+  fromCppEnum IgnoreAction = 0+  fromCppEnum CopyAction = 1+  fromCppEnum MoveAction = 2+  fromCppEnum LinkAction = 4+  fromCppEnum ActionMask = 255+  fromCppEnum TargetMoveAction = 32770+  fromCppEnum (UnknownQtDropAction n) = n+  +  toCppEnum (0) = IgnoreAction+  toCppEnum (1) = CopyAction+  toCppEnum (2) = MoveAction+  toCppEnum (4) = LinkAction+  toCppEnum (255) = ActionMask+  toCppEnum (32770) = TargetMoveAction+  toCppEnum n = UnknownQtDropAction n++instance HoppyP.Eq QtDropAction where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtDropAction where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtDropActions = QtDropActions (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtDropAction QtDropActions where+  enumToFlags = QtDropActions . QtahFHR.fromCppEnum+  flagsToEnum (QtDropActions x') = QtahFHR.toCppEnum x'++class IsQtDropActions a where+  toQtDropActions :: a -> QtDropActions++instance IsQtDropActions QtDropActions where toQtDropActions = QtahP.id+instance IsQtDropActions QtDropAction where toQtDropActions = QtahFlags.enumToFlags+instance IsQtDropActions (HoppyFC.CInt) where toQtDropActions = QtahFlags.numToFlags++actionMask :: QtDropActions+actionMask = QtDropActions (255)++copyAction :: QtDropActions+copyAction = QtDropActions (1)++ignoreAction :: QtDropActions+ignoreAction = QtDropActions (0)++linkAction :: QtDropActions+linkAction = QtDropActions (4)++moveAction :: QtDropActions+moveAction = QtDropActions (2)++targetMoveAction :: QtDropActions+targetMoveAction = QtDropActions (32770)++instance QtahDB.Bits QtDropActions where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtEdge =+  TopEdge+  | LeftEdge+  | RightEdge+  | BottomEdge+  | UnknownQtEdge (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtEdge where+  fromCppEnum TopEdge = 1+  fromCppEnum LeftEdge = 2+  fromCppEnum RightEdge = 4+  fromCppEnum BottomEdge = 8+  fromCppEnum (UnknownQtEdge n) = n+  +  toCppEnum (1) = TopEdge+  toCppEnum (2) = LeftEdge+  toCppEnum (4) = RightEdge+  toCppEnum (8) = BottomEdge+  toCppEnum n = UnknownQtEdge n++instance HoppyP.Eq QtEdge where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtEdge where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtEdges = QtEdges (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtEdge QtEdges where+  enumToFlags = QtEdges . QtahFHR.fromCppEnum+  flagsToEnum (QtEdges x') = QtahFHR.toCppEnum x'++class IsQtEdges a where+  toQtEdges :: a -> QtEdges++instance IsQtEdges QtEdges where toQtEdges = QtahP.id+instance IsQtEdges QtEdge where toQtEdges = QtahFlags.enumToFlags+instance IsQtEdges (HoppyFC.CInt) where toQtEdges = QtahFlags.numToFlags++bottomEdge :: QtEdges+bottomEdge = QtEdges (8)++leftEdge :: QtEdges+leftEdge = QtEdges (2)++rightEdge :: QtEdges+rightEdge = QtEdges (4)++topEdge :: QtEdges+topEdge = QtEdges (1)++instance QtahDB.Bits QtEdges where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtEnterKeyType =+  EnterKeyDefault+  | EnterKeyReturn+  | EnterKeyDone+  | EnterKeyGo+  | EnterKeySend+  | EnterKeySearch+  | EnterKeyNext+  | EnterKeyPrevious+  | UnknownQtEnterKeyType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtEnterKeyType where+  fromCppEnum EnterKeyDefault = 0+  fromCppEnum EnterKeyReturn = 1+  fromCppEnum EnterKeyDone = 2+  fromCppEnum EnterKeyGo = 3+  fromCppEnum EnterKeySend = 4+  fromCppEnum EnterKeySearch = 5+  fromCppEnum EnterKeyNext = 6+  fromCppEnum EnterKeyPrevious = 7+  fromCppEnum (UnknownQtEnterKeyType n) = n+  +  toCppEnum (0) = EnterKeyDefault+  toCppEnum (1) = EnterKeyReturn+  toCppEnum (2) = EnterKeyDone+  toCppEnum (3) = EnterKeyGo+  toCppEnum (4) = EnterKeySend+  toCppEnum (5) = EnterKeySearch+  toCppEnum (6) = EnterKeyNext+  toCppEnum (7) = EnterKeyPrevious+  toCppEnum n = UnknownQtEnterKeyType n++instance HoppyP.Eq QtEnterKeyType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtEnterKeyType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtEventPriority =+  HighEventPriority+  | NormalEventPriority+  | LowEventPriority+  | UnknownQtEventPriority (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtEventPriority where+  fromCppEnum HighEventPriority = 1+  fromCppEnum NormalEventPriority = 0+  fromCppEnum LowEventPriority = -1+  fromCppEnum (UnknownQtEventPriority n) = n+  +  toCppEnum (-1) = LowEventPriority+  toCppEnum (0) = NormalEventPriority+  toCppEnum (1) = HighEventPriority+  toCppEnum n = UnknownQtEventPriority n++instance HoppyP.Eq QtEventPriority where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtEventPriority where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtFillRule =+  OddEvenFill+  | WindingFill+  | UnknownQtFillRule (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtFillRule where+  fromCppEnum OddEvenFill = 0+  fromCppEnum WindingFill = 1+  fromCppEnum (UnknownQtFillRule n) = n+  +  toCppEnum (0) = OddEvenFill+  toCppEnum (1) = WindingFill+  toCppEnum n = UnknownQtFillRule n++instance HoppyP.Eq QtFillRule where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtFillRule where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtFindChildOption =+  FindDirectChildrenOnly+  | FindChildrenRecursively+  | UnknownQtFindChildOption (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtFindChildOption where+  fromCppEnum FindDirectChildrenOnly = 0+  fromCppEnum FindChildrenRecursively = 1+  fromCppEnum (UnknownQtFindChildOption n) = n+  +  toCppEnum (0) = FindDirectChildrenOnly+  toCppEnum (1) = FindChildrenRecursively+  toCppEnum n = UnknownQtFindChildOption n++instance HoppyP.Eq QtFindChildOption where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtFindChildOption where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtFindChildOptions = QtFindChildOptions (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtFindChildOption QtFindChildOptions where+  enumToFlags = QtFindChildOptions . QtahFHR.fromCppEnum+  flagsToEnum (QtFindChildOptions x') = QtahFHR.toCppEnum x'++class IsQtFindChildOptions a where+  toQtFindChildOptions :: a -> QtFindChildOptions++instance IsQtFindChildOptions QtFindChildOptions where toQtFindChildOptions = QtahP.id+instance IsQtFindChildOptions QtFindChildOption where toQtFindChildOptions = QtahFlags.enumToFlags+instance IsQtFindChildOptions (HoppyFC.CInt) where toQtFindChildOptions = QtahFlags.numToFlags++findChildrenRecursively :: QtFindChildOptions+findChildrenRecursively = QtFindChildOptions (1)++findDirectChildrenOnly :: QtFindChildOptions+findDirectChildrenOnly = QtFindChildOptions (0)++instance QtahDB.Bits QtFindChildOptions where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtFocusPolicy =+  TabFocus+  | ClickFocus+  | StrongFocus+  | WheelFocus+  | NoFocus+  | UnknownQtFocusPolicy (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtFocusPolicy where+  fromCppEnum TabFocus = 1+  fromCppEnum ClickFocus = 2+  fromCppEnum StrongFocus = 11+  fromCppEnum WheelFocus = 15+  fromCppEnum NoFocus = 0+  fromCppEnum (UnknownQtFocusPolicy n) = n+  +  toCppEnum (0) = NoFocus+  toCppEnum (1) = TabFocus+  toCppEnum (2) = ClickFocus+  toCppEnum (11) = StrongFocus+  toCppEnum (15) = WheelFocus+  toCppEnum n = UnknownQtFocusPolicy n++instance HoppyP.Eq QtFocusPolicy where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtFocusPolicy where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtFocusReason =+  MouseFocusReason+  | TabFocusReason+  | BacktabFocusReason+  | ActiveWindowFocusReason+  | PopupFocusReason+  | ShortcutFocusReason+  | MenuBarFocusReason+  | OtherFocusReason+  | UnknownQtFocusReason (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtFocusReason where+  fromCppEnum MouseFocusReason = 0+  fromCppEnum TabFocusReason = 1+  fromCppEnum BacktabFocusReason = 2+  fromCppEnum ActiveWindowFocusReason = 3+  fromCppEnum PopupFocusReason = 4+  fromCppEnum ShortcutFocusReason = 5+  fromCppEnum MenuBarFocusReason = 6+  fromCppEnum OtherFocusReason = 7+  fromCppEnum (UnknownQtFocusReason n) = n+  +  toCppEnum (0) = MouseFocusReason+  toCppEnum (1) = TabFocusReason+  toCppEnum (2) = BacktabFocusReason+  toCppEnum (3) = ActiveWindowFocusReason+  toCppEnum (4) = PopupFocusReason+  toCppEnum (5) = ShortcutFocusReason+  toCppEnum (6) = MenuBarFocusReason+  toCppEnum (7) = OtherFocusReason+  toCppEnum n = UnknownQtFocusReason n++instance HoppyP.Eq QtFocusReason where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtFocusReason where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtGestureFlag =+  DontStartGestureOnChildren+  | ReceivePartialGestures+  | IgnoredGesturesPropagateToParent+  | UnknownQtGestureFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtGestureFlag where+  fromCppEnum DontStartGestureOnChildren = 1+  fromCppEnum ReceivePartialGestures = 2+  fromCppEnum IgnoredGesturesPropagateToParent = 4+  fromCppEnum (UnknownQtGestureFlag n) = n+  +  toCppEnum (1) = DontStartGestureOnChildren+  toCppEnum (2) = ReceivePartialGestures+  toCppEnum (4) = IgnoredGesturesPropagateToParent+  toCppEnum n = UnknownQtGestureFlag n++instance HoppyP.Eq QtGestureFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtGestureFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtGestureFlags = QtGestureFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtGestureFlag QtGestureFlags where+  enumToFlags = QtGestureFlags . QtahFHR.fromCppEnum+  flagsToEnum (QtGestureFlags x') = QtahFHR.toCppEnum x'++class IsQtGestureFlags a where+  toQtGestureFlags :: a -> QtGestureFlags++instance IsQtGestureFlags QtGestureFlags where toQtGestureFlags = QtahP.id+instance IsQtGestureFlags QtGestureFlag where toQtGestureFlags = QtahFlags.enumToFlags+instance IsQtGestureFlags (HoppyFC.CInt) where toQtGestureFlags = QtahFlags.numToFlags++dontStartGestureOnChildren :: QtGestureFlags+dontStartGestureOnChildren = QtGestureFlags (1)++ignoredGesturesPropagateToParent :: QtGestureFlags+ignoredGesturesPropagateToParent = QtGestureFlags (4)++receivePartialGestures :: QtGestureFlags+receivePartialGestures = QtGestureFlags (2)++instance QtahDB.Bits QtGestureFlags where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtGestureState =+  NoGesture+  | GestureStarted+  | GestureUpdated+  | GestureFinished+  | GestureCanceled+  | UnknownQtGestureState (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtGestureState where+  fromCppEnum NoGesture = 0+  fromCppEnum GestureStarted = 1+  fromCppEnum GestureUpdated = 2+  fromCppEnum GestureFinished = 3+  fromCppEnum GestureCanceled = 4+  fromCppEnum (UnknownQtGestureState n) = n+  +  toCppEnum (0) = NoGesture+  toCppEnum (1) = GestureStarted+  toCppEnum (2) = GestureUpdated+  toCppEnum (3) = GestureFinished+  toCppEnum (4) = GestureCanceled+  toCppEnum n = UnknownQtGestureState n++instance HoppyP.Eq QtGestureState where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtGestureState where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtGestureStates = QtGestureStates (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtGestureState QtGestureStates where+  enumToFlags = QtGestureStates . QtahFHR.fromCppEnum+  flagsToEnum (QtGestureStates x') = QtahFHR.toCppEnum x'++class IsQtGestureStates a where+  toQtGestureStates :: a -> QtGestureStates++instance IsQtGestureStates QtGestureStates where toQtGestureStates = QtahP.id+instance IsQtGestureStates QtGestureState where toQtGestureStates = QtahFlags.enumToFlags+instance IsQtGestureStates (HoppyFC.CInt) where toQtGestureStates = QtahFlags.numToFlags++gestureCanceled :: QtGestureStates+gestureCanceled = QtGestureStates (4)++gestureFinished :: QtGestureStates+gestureFinished = QtGestureStates (3)++gestureStarted :: QtGestureStates+gestureStarted = QtGestureStates (1)++gestureUpdated :: QtGestureStates+gestureUpdated = QtGestureStates (2)++noGesture :: QtGestureStates+noGesture = QtGestureStates (0)++instance QtahDB.Bits QtGestureStates where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtGestureType =+  TapGesture+  | TapAndHoldGesture+  | PanGesture+  | PinchGesture+  | SwipeGesture+  | CustomGesture+  | UnknownQtGestureType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtGestureType where+  fromCppEnum TapGesture = 1+  fromCppEnum TapAndHoldGesture = 2+  fromCppEnum PanGesture = 3+  fromCppEnum PinchGesture = 4+  fromCppEnum SwipeGesture = 5+  fromCppEnum CustomGesture = 256+  fromCppEnum (UnknownQtGestureType n) = n+  +  toCppEnum (1) = TapGesture+  toCppEnum (2) = TapAndHoldGesture+  toCppEnum (3) = PanGesture+  toCppEnum (4) = PinchGesture+  toCppEnum (5) = SwipeGesture+  toCppEnum (256) = CustomGesture+  toCppEnum n = UnknownQtGestureType n++instance HoppyP.Eq QtGestureType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtGestureType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtGlobalColor =+  White+  | Black+  | Red+  | DarkRed+  | Green+  | DarkGreen+  | Blue+  | DarkBlue+  | Cyan+  | DarkCyan+  | Magenta+  | DarkMagenta+  | Yellow+  | DarkYellow+  | Gray+  | DarkGray+  | LightGray+  | Transparent+  | Color0+  | Color1+  | UnknownQtGlobalColor (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtGlobalColor where+  fromCppEnum White = 3+  fromCppEnum Black = 2+  fromCppEnum Red = 7+  fromCppEnum DarkRed = 13+  fromCppEnum Green = 8+  fromCppEnum DarkGreen = 14+  fromCppEnum Blue = 9+  fromCppEnum DarkBlue = 15+  fromCppEnum Cyan = 10+  fromCppEnum DarkCyan = 16+  fromCppEnum Magenta = 11+  fromCppEnum DarkMagenta = 17+  fromCppEnum Yellow = 12+  fromCppEnum DarkYellow = 18+  fromCppEnum Gray = 5+  fromCppEnum DarkGray = 4+  fromCppEnum LightGray = 6+  fromCppEnum Transparent = 19+  fromCppEnum Color0 = 0+  fromCppEnum Color1 = 1+  fromCppEnum (UnknownQtGlobalColor n) = n+  +  toCppEnum (0) = Color0+  toCppEnum (1) = Color1+  toCppEnum (2) = Black+  toCppEnum (3) = White+  toCppEnum (4) = DarkGray+  toCppEnum (5) = Gray+  toCppEnum (6) = LightGray+  toCppEnum (7) = Red+  toCppEnum (8) = Green+  toCppEnum (9) = Blue+  toCppEnum (10) = Cyan+  toCppEnum (11) = Magenta+  toCppEnum (12) = Yellow+  toCppEnum (13) = DarkRed+  toCppEnum (14) = DarkGreen+  toCppEnum (15) = DarkBlue+  toCppEnum (16) = DarkCyan+  toCppEnum (17) = DarkMagenta+  toCppEnum (18) = DarkYellow+  toCppEnum (19) = Transparent+  toCppEnum n = UnknownQtGlobalColor n++instance HoppyP.Eq QtGlobalColor where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtGlobalColor where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtHitTestAccuracy =+  ExactHit+  | FuzzyHit+  | UnknownQtHitTestAccuracy (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtHitTestAccuracy where+  fromCppEnum ExactHit = 0+  fromCppEnum FuzzyHit = 1+  fromCppEnum (UnknownQtHitTestAccuracy n) = n+  +  toCppEnum (0) = ExactHit+  toCppEnum (1) = FuzzyHit+  toCppEnum n = UnknownQtHitTestAccuracy n++instance HoppyP.Eq QtHitTestAccuracy where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtHitTestAccuracy where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtImageConversionFlag =+  AutoColor+  | ColorOnly+  | MonoOnly+  | DiffuseDither+  | OrderedDither+  | ThresholdDither+  | ThresholdAlphaDither+  | OrderedAlphaDither+  | DiffuseAlphaDither+  | PreferDither+  | AvoidDither+  | NoOpaqueDetection+  | NoFormatConversion+  | UnknownQtImageConversionFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtImageConversionFlag where+  fromCppEnum AutoColor = 0+  fromCppEnum ColorOnly = 3+  fromCppEnum MonoOnly = 2+  fromCppEnum DiffuseDither = 0+  fromCppEnum OrderedDither = 16+  fromCppEnum ThresholdDither = 32+  fromCppEnum ThresholdAlphaDither = 0+  fromCppEnum OrderedAlphaDither = 4+  fromCppEnum DiffuseAlphaDither = 8+  fromCppEnum PreferDither = 64+  fromCppEnum AvoidDither = 128+  fromCppEnum NoOpaqueDetection = 256+  fromCppEnum NoFormatConversion = 512+  fromCppEnum (UnknownQtImageConversionFlag n) = n+  +  toCppEnum (0) = ThresholdAlphaDither+  toCppEnum (2) = MonoOnly+  toCppEnum (3) = ColorOnly+  toCppEnum (4) = OrderedAlphaDither+  toCppEnum (8) = DiffuseAlphaDither+  toCppEnum (16) = OrderedDither+  toCppEnum (32) = ThresholdDither+  toCppEnum (64) = PreferDither+  toCppEnum (128) = AvoidDither+  toCppEnum (256) = NoOpaqueDetection+  toCppEnum (512) = NoFormatConversion+  toCppEnum n = UnknownQtImageConversionFlag n++instance HoppyP.Eq QtImageConversionFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtImageConversionFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtImageConversionFlags = QtImageConversionFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtImageConversionFlag QtImageConversionFlags where+  enumToFlags = QtImageConversionFlags . QtahFHR.fromCppEnum+  flagsToEnum (QtImageConversionFlags x') = QtahFHR.toCppEnum x'++class IsQtImageConversionFlags a where+  toQtImageConversionFlags :: a -> QtImageConversionFlags++instance IsQtImageConversionFlags QtImageConversionFlags where toQtImageConversionFlags = QtahP.id+instance IsQtImageConversionFlags QtImageConversionFlag where toQtImageConversionFlags = QtahFlags.enumToFlags+instance IsQtImageConversionFlags (HoppyFC.CInt) where toQtImageConversionFlags = QtahFlags.numToFlags++autoColor :: QtImageConversionFlags+autoColor = QtImageConversionFlags (0)++avoidDither :: QtImageConversionFlags+avoidDither = QtImageConversionFlags (128)++colorOnly :: QtImageConversionFlags+colorOnly = QtImageConversionFlags (3)++diffuseAlphaDither :: QtImageConversionFlags+diffuseAlphaDither = QtImageConversionFlags (8)++diffuseDither :: QtImageConversionFlags+diffuseDither = QtImageConversionFlags (0)++monoOnly :: QtImageConversionFlags+monoOnly = QtImageConversionFlags (2)++noFormatConversion :: QtImageConversionFlags+noFormatConversion = QtImageConversionFlags (512)++noOpaqueDetection :: QtImageConversionFlags+noOpaqueDetection = QtImageConversionFlags (256)++orderedAlphaDither :: QtImageConversionFlags+orderedAlphaDither = QtImageConversionFlags (4)++orderedDither :: QtImageConversionFlags+orderedDither = QtImageConversionFlags (16)++preferDither :: QtImageConversionFlags+preferDither = QtImageConversionFlags (64)++thresholdAlphaDither :: QtImageConversionFlags+thresholdAlphaDither = QtImageConversionFlags (0)++thresholdDither :: QtImageConversionFlags+thresholdDither = QtImageConversionFlags (32)++instance QtahDB.Bits QtImageConversionFlags where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtInputMethodHint =+  ImhNone+  | ImhHiddenText+  | ImhSensitiveData+  | ImhNoAutoUppercase+  | ImhPreferNumbers+  | ImhPreferUppercase+  | ImhPreferLowercase+  | ImhNoPredictiveText+  | ImhDate+  | ImhTime+  | ImhPreferLatin+  | ImhMultiLine+  | ImhDigitsOnly+  | ImhFormattedNumbersOnly+  | ImhUppercaseOnly+  | ImhLowercaseOnly+  | ImhDialableCharactersOnly+  | ImhEmailCharactersOnly+  | ImhUrlCharactersOnly+  | ImhLatinOnly+  | ImhExclusiveInputMask+  | UnknownQtInputMethodHint (HoppyFC.CUInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CUInt) QtInputMethodHint where+  fromCppEnum ImhNone = 0+  fromCppEnum ImhHiddenText = 1+  fromCppEnum ImhSensitiveData = 2+  fromCppEnum ImhNoAutoUppercase = 4+  fromCppEnum ImhPreferNumbers = 8+  fromCppEnum ImhPreferUppercase = 16+  fromCppEnum ImhPreferLowercase = 32+  fromCppEnum ImhNoPredictiveText = 64+  fromCppEnum ImhDate = 128+  fromCppEnum ImhTime = 256+  fromCppEnum ImhPreferLatin = 512+  fromCppEnum ImhMultiLine = 1024+  fromCppEnum ImhDigitsOnly = 65536+  fromCppEnum ImhFormattedNumbersOnly = 131072+  fromCppEnum ImhUppercaseOnly = 262144+  fromCppEnum ImhLowercaseOnly = 524288+  fromCppEnum ImhDialableCharactersOnly = 1048576+  fromCppEnum ImhEmailCharactersOnly = 2097152+  fromCppEnum ImhUrlCharactersOnly = 4194304+  fromCppEnum ImhLatinOnly = 8388608+  fromCppEnum ImhExclusiveInputMask = 4294901760+  fromCppEnum (UnknownQtInputMethodHint n) = n+  +  toCppEnum (0) = ImhNone+  toCppEnum (1) = ImhHiddenText+  toCppEnum (2) = ImhSensitiveData+  toCppEnum (4) = ImhNoAutoUppercase+  toCppEnum (8) = ImhPreferNumbers+  toCppEnum (16) = ImhPreferUppercase+  toCppEnum (32) = ImhPreferLowercase+  toCppEnum (64) = ImhNoPredictiveText+  toCppEnum (128) = ImhDate+  toCppEnum (256) = ImhTime+  toCppEnum (512) = ImhPreferLatin+  toCppEnum (1024) = ImhMultiLine+  toCppEnum (65536) = ImhDigitsOnly+  toCppEnum (131072) = ImhFormattedNumbersOnly+  toCppEnum (262144) = ImhUppercaseOnly+  toCppEnum (524288) = ImhLowercaseOnly+  toCppEnum (1048576) = ImhDialableCharactersOnly+  toCppEnum (2097152) = ImhEmailCharactersOnly+  toCppEnum (4194304) = ImhUrlCharactersOnly+  toCppEnum (8388608) = ImhLatinOnly+  toCppEnum (4294901760) = ImhExclusiveInputMask+  toCppEnum n = UnknownQtInputMethodHint n++instance HoppyP.Eq QtInputMethodHint where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtInputMethodHint where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtInputMethodHints = QtInputMethodHints (HoppyFC.CUInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CUInt) QtInputMethodHint QtInputMethodHints where+  enumToFlags = QtInputMethodHints . QtahFHR.fromCppEnum+  flagsToEnum (QtInputMethodHints x') = QtahFHR.toCppEnum x'++class IsQtInputMethodHints a where+  toQtInputMethodHints :: a -> QtInputMethodHints++instance IsQtInputMethodHints QtInputMethodHints where toQtInputMethodHints = QtahP.id+instance IsQtInputMethodHints QtInputMethodHint where toQtInputMethodHints = QtahFlags.enumToFlags+instance IsQtInputMethodHints (HoppyFC.CUInt) where toQtInputMethodHints = QtahFlags.numToFlags++imhDate :: QtInputMethodHints+imhDate = QtInputMethodHints (128)++imhDialableCharactersOnly :: QtInputMethodHints+imhDialableCharactersOnly = QtInputMethodHints (1048576)++imhDigitsOnly :: QtInputMethodHints+imhDigitsOnly = QtInputMethodHints (65536)++imhEmailCharactersOnly :: QtInputMethodHints+imhEmailCharactersOnly = QtInputMethodHints (2097152)++imhExclusiveInputMask :: QtInputMethodHints+imhExclusiveInputMask = QtInputMethodHints (4294901760)++imhFormattedNumbersOnly :: QtInputMethodHints+imhFormattedNumbersOnly = QtInputMethodHints (131072)++imhHiddenText :: QtInputMethodHints+imhHiddenText = QtInputMethodHints (1)++imhLatinOnly :: QtInputMethodHints+imhLatinOnly = QtInputMethodHints (8388608)++imhLowercaseOnly :: QtInputMethodHints+imhLowercaseOnly = QtInputMethodHints (524288)++imhMultiLine :: QtInputMethodHints+imhMultiLine = QtInputMethodHints (1024)++imhNoAutoUppercase :: QtInputMethodHints+imhNoAutoUppercase = QtInputMethodHints (4)++imhNoPredictiveText :: QtInputMethodHints+imhNoPredictiveText = QtInputMethodHints (64)++imhNone :: QtInputMethodHints+imhNone = QtInputMethodHints (0)++imhPreferLatin :: QtInputMethodHints+imhPreferLatin = QtInputMethodHints (512)++imhPreferLowercase :: QtInputMethodHints+imhPreferLowercase = QtInputMethodHints (32)++imhPreferNumbers :: QtInputMethodHints+imhPreferNumbers = QtInputMethodHints (8)++imhPreferUppercase :: QtInputMethodHints+imhPreferUppercase = QtInputMethodHints (16)++imhSensitiveData :: QtInputMethodHints+imhSensitiveData = QtInputMethodHints (2)++imhTime :: QtInputMethodHints+imhTime = QtInputMethodHints (256)++imhUppercaseOnly :: QtInputMethodHints+imhUppercaseOnly = QtInputMethodHints (262144)++imhUrlCharactersOnly :: QtInputMethodHints+imhUrlCharactersOnly = QtInputMethodHints (4194304)++instance QtahDB.Bits QtInputMethodHints where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++newtype QtInputMethodQueries = QtInputMethodQueries (HoppyFC.CUInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CUInt) QtInputMethodQuery QtInputMethodQueries where+  enumToFlags = QtInputMethodQueries . QtahFHR.fromCppEnum+  flagsToEnum (QtInputMethodQueries x') = QtahFHR.toCppEnum x'++class IsQtInputMethodQueries a where+  toQtInputMethodQueries :: a -> QtInputMethodQueries++instance IsQtInputMethodQueries QtInputMethodQueries where toQtInputMethodQueries = QtahP.id+instance IsQtInputMethodQueries QtInputMethodQuery where toQtInputMethodQueries = QtahFlags.enumToFlags+instance IsQtInputMethodQueries (HoppyFC.CUInt) where toQtInputMethodQueries = QtahFlags.numToFlags++imAbsolutePosition :: QtInputMethodQueries+imAbsolutePosition = QtInputMethodQueries (1024)++imAnchorPosition :: QtInputMethodQueries+imAnchorPosition = QtInputMethodQueries (128)++imAnchorRectangle :: QtInputMethodQueries+imAnchorRectangle = QtInputMethodQueries (16384)++imCurrentSelection :: QtInputMethodQueries+imCurrentSelection = QtInputMethodQueries (32)++imCursorPosition :: QtInputMethodQueries+imCursorPosition = QtInputMethodQueries (8)++imCursorRectangle :: QtInputMethodQueries+imCursorRectangle = QtInputMethodQueries (2)++imEnabled :: QtInputMethodQueries+imEnabled = QtInputMethodQueries (1)++imEnterKeyType :: QtInputMethodQueries+imEnterKeyType = QtInputMethodQueries (8192)++imFont :: QtInputMethodQueries+imFont = QtInputMethodQueries (4)++imHints :: QtInputMethodQueries+imHints = QtInputMethodQueries (256)++imInputItemClipRectangle :: QtInputMethodQueries+imInputItemClipRectangle = QtInputMethodQueries (32768)++imMaximumTextLength :: QtInputMethodQueries+imMaximumTextLength = QtInputMethodQueries (64)++imMicroFocus :: QtInputMethodQueries+imMicroFocus = QtInputMethodQueries (2)++imPlatformData :: QtInputMethodQueries+imPlatformData = QtInputMethodQueries (2147483648)++imPreferredLanguage :: QtInputMethodQueries+imPreferredLanguage = QtInputMethodQueries (512)++imSurroundingText :: QtInputMethodQueries+imSurroundingText = QtInputMethodQueries (16)++imTextAfterCursor :: QtInputMethodQueries+imTextAfterCursor = QtInputMethodQueries (4096)++imTextBeforeCursor :: QtInputMethodQueries+imTextBeforeCursor = QtInputMethodQueries (2048)++instance QtahDB.Bits QtInputMethodQueries where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtInputMethodQuery =+  ImEnabled+  | ImMicroFocus+  | ImCursorRectangle+  | ImFont+  | ImCursorPosition+  | ImSurroundingText+  | ImCurrentSelection+  | ImMaximumTextLength+  | ImAnchorPosition+  | ImHints+  | ImPreferredLanguage+  | ImPlatformData+  | ImAbsolutePosition+  | ImTextBeforeCursor+  | ImTextAfterCursor+  | ImEnterKeyType+  | ImAnchorRectangle+  | ImInputItemClipRectangle+  | UnknownQtInputMethodQuery (HoppyFC.CUInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CUInt) QtInputMethodQuery where+  fromCppEnum ImEnabled = 1+  fromCppEnum ImMicroFocus = 2+  fromCppEnum ImCursorRectangle = 2+  fromCppEnum ImFont = 4+  fromCppEnum ImCursorPosition = 8+  fromCppEnum ImSurroundingText = 16+  fromCppEnum ImCurrentSelection = 32+  fromCppEnum ImMaximumTextLength = 64+  fromCppEnum ImAnchorPosition = 128+  fromCppEnum ImHints = 256+  fromCppEnum ImPreferredLanguage = 512+  fromCppEnum ImPlatformData = 2147483648+  fromCppEnum ImAbsolutePosition = 1024+  fromCppEnum ImTextBeforeCursor = 2048+  fromCppEnum ImTextAfterCursor = 4096+  fromCppEnum ImEnterKeyType = 8192+  fromCppEnum ImAnchorRectangle = 16384+  fromCppEnum ImInputItemClipRectangle = 32768+  fromCppEnum (UnknownQtInputMethodQuery n) = n+  +  toCppEnum (1) = ImEnabled+  toCppEnum (2) = ImCursorRectangle+  toCppEnum (4) = ImFont+  toCppEnum (8) = ImCursorPosition+  toCppEnum (16) = ImSurroundingText+  toCppEnum (32) = ImCurrentSelection+  toCppEnum (64) = ImMaximumTextLength+  toCppEnum (128) = ImAnchorPosition+  toCppEnum (256) = ImHints+  toCppEnum (512) = ImPreferredLanguage+  toCppEnum (1024) = ImAbsolutePosition+  toCppEnum (2048) = ImTextBeforeCursor+  toCppEnum (4096) = ImTextAfterCursor+  toCppEnum (8192) = ImEnterKeyType+  toCppEnum (16384) = ImAnchorRectangle+  toCppEnum (32768) = ImInputItemClipRectangle+  toCppEnum (2147483648) = ImPlatformData+  toCppEnum n = UnknownQtInputMethodQuery n++instance HoppyP.Eq QtInputMethodQuery where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtInputMethodQuery where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtItemDataRole =+  DisplayRole+  | DecorationRole+  | EditRole+  | ToolTipRole+  | StatusTipRole+  | WhatsThisRole+  | SizeHintRole+  | FontRole+  | TextAlignmentRole+  | BackgroundRole+  | ForegroundRole+  | CheckStateRole+  | InitialSortOrderRole+  | AccessibleTextRole+  | AccessibleDescriptionRole+  | UserRole+  | UnknownQtItemDataRole (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtItemDataRole where+  fromCppEnum DisplayRole = 0+  fromCppEnum DecorationRole = 1+  fromCppEnum EditRole = 2+  fromCppEnum ToolTipRole = 3+  fromCppEnum StatusTipRole = 4+  fromCppEnum WhatsThisRole = 5+  fromCppEnum SizeHintRole = 13+  fromCppEnum FontRole = 6+  fromCppEnum TextAlignmentRole = 7+  fromCppEnum BackgroundRole = 8+  fromCppEnum ForegroundRole = 9+  fromCppEnum CheckStateRole = 10+  fromCppEnum InitialSortOrderRole = 14+  fromCppEnum AccessibleTextRole = 11+  fromCppEnum AccessibleDescriptionRole = 12+  fromCppEnum UserRole = 256+  fromCppEnum (UnknownQtItemDataRole n) = n+  +  toCppEnum (0) = DisplayRole+  toCppEnum (1) = DecorationRole+  toCppEnum (2) = EditRole+  toCppEnum (3) = ToolTipRole+  toCppEnum (4) = StatusTipRole+  toCppEnum (5) = WhatsThisRole+  toCppEnum (6) = FontRole+  toCppEnum (7) = TextAlignmentRole+  toCppEnum (8) = BackgroundRole+  toCppEnum (9) = ForegroundRole+  toCppEnum (10) = CheckStateRole+  toCppEnum (11) = AccessibleTextRole+  toCppEnum (12) = AccessibleDescriptionRole+  toCppEnum (13) = SizeHintRole+  toCppEnum (14) = InitialSortOrderRole+  toCppEnum (256) = UserRole+  toCppEnum n = UnknownQtItemDataRole n++instance HoppyP.Eq QtItemDataRole where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtItemDataRole where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtItemFlag =+  NoItemFlags+  | ItemIsSelectable+  | ItemIsEditable+  | ItemIsDragEnabled+  | ItemIsDropEnabled+  | ItemIsUserCheckable+  | ItemIsEnabled+  | ItemIsAutoTristate+  | ItemNeverHasChildren+  | ItemIsUserTristate+  | UnknownQtItemFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtItemFlag where+  fromCppEnum NoItemFlags = 0+  fromCppEnum ItemIsSelectable = 1+  fromCppEnum ItemIsEditable = 2+  fromCppEnum ItemIsDragEnabled = 4+  fromCppEnum ItemIsDropEnabled = 8+  fromCppEnum ItemIsUserCheckable = 16+  fromCppEnum ItemIsEnabled = 32+  fromCppEnum ItemIsAutoTristate = 64+  fromCppEnum ItemNeverHasChildren = 128+  fromCppEnum ItemIsUserTristate = 256+  fromCppEnum (UnknownQtItemFlag n) = n+  +  toCppEnum (0) = NoItemFlags+  toCppEnum (1) = ItemIsSelectable+  toCppEnum (2) = ItemIsEditable+  toCppEnum (4) = ItemIsDragEnabled+  toCppEnum (8) = ItemIsDropEnabled+  toCppEnum (16) = ItemIsUserCheckable+  toCppEnum (32) = ItemIsEnabled+  toCppEnum (64) = ItemIsAutoTristate+  toCppEnum (128) = ItemNeverHasChildren+  toCppEnum (256) = ItemIsUserTristate+  toCppEnum n = UnknownQtItemFlag n++instance HoppyP.Eq QtItemFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtItemFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtItemFlags = QtItemFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtItemFlag QtItemFlags where+  enumToFlags = QtItemFlags . QtahFHR.fromCppEnum+  flagsToEnum (QtItemFlags x') = QtahFHR.toCppEnum x'++class IsQtItemFlags a where+  toQtItemFlags :: a -> QtItemFlags++instance IsQtItemFlags QtItemFlags where toQtItemFlags = QtahP.id+instance IsQtItemFlags QtItemFlag where toQtItemFlags = QtahFlags.enumToFlags+instance IsQtItemFlags (HoppyFC.CInt) where toQtItemFlags = QtahFlags.numToFlags++itemIsAutoTristate :: QtItemFlags+itemIsAutoTristate = QtItemFlags (64)++itemIsDragEnabled :: QtItemFlags+itemIsDragEnabled = QtItemFlags (4)++itemIsDropEnabled :: QtItemFlags+itemIsDropEnabled = QtItemFlags (8)++itemIsEditable :: QtItemFlags+itemIsEditable = QtItemFlags (2)++itemIsEnabled :: QtItemFlags+itemIsEnabled = QtItemFlags (32)++itemIsSelectable :: QtItemFlags+itemIsSelectable = QtItemFlags (1)++itemIsUserCheckable :: QtItemFlags+itemIsUserCheckable = QtItemFlags (16)++itemIsUserTristate :: QtItemFlags+itemIsUserTristate = QtItemFlags (256)++itemNeverHasChildren :: QtItemFlags+itemNeverHasChildren = QtItemFlags (128)++noItemFlags :: QtItemFlags+noItemFlags = QtItemFlags (0)++instance QtahDB.Bits QtItemFlags where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtItemSelectionMode =+  ContainsItemShape+  | IntersectsItemShape+  | ContainsItemBoundingRect+  | IntersectsItemBoundingRect+  | UnknownQtItemSelectionMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtItemSelectionMode where+  fromCppEnum ContainsItemShape = 0+  fromCppEnum IntersectsItemShape = 1+  fromCppEnum ContainsItemBoundingRect = 2+  fromCppEnum IntersectsItemBoundingRect = 3+  fromCppEnum (UnknownQtItemSelectionMode n) = n+  +  toCppEnum (0) = ContainsItemShape+  toCppEnum (1) = IntersectsItemShape+  toCppEnum (2) = ContainsItemBoundingRect+  toCppEnum (3) = IntersectsItemBoundingRect+  toCppEnum n = UnknownQtItemSelectionMode n++instance HoppyP.Eq QtItemSelectionMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtItemSelectionMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtItemSelectionOperation =+  ReplaceSelection+  | AddToSelection+  | UnknownQtItemSelectionOperation (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtItemSelectionOperation where+  fromCppEnum ReplaceSelection = 0+  fromCppEnum AddToSelection = 1+  fromCppEnum (UnknownQtItemSelectionOperation n) = n+  +  toCppEnum (0) = ReplaceSelection+  toCppEnum (1) = AddToSelection+  toCppEnum n = UnknownQtItemSelectionOperation n++instance HoppyP.Eq QtItemSelectionOperation where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtItemSelectionOperation where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtKey =+  KeyEscape+  | KeyTab+  | KeyBacktab+  | KeyBackspace+  | KeyReturn+  | KeyEnter+  | KeyInsert+  | KeyDelete+  | KeyPause+  | KeyPrint+  | KeySysReq+  | KeyClear+  | KeyHome+  | KeyEnd+  | KeyLeft+  | KeyUp+  | KeyRight+  | KeyDown+  | KeyPageUp+  | KeyPageDown+  | KeyShift+  | KeyControl+  | KeyMeta+  | KeyAlt+  | KeyAltGr+  | KeyCapsLock+  | KeyNumLock+  | KeyScrollLock+  | KeyF1+  | KeyF2+  | KeyF3+  | KeyF4+  | KeyF5+  | KeyF6+  | KeyF7+  | KeyF8+  | KeyF9+  | KeyF10+  | KeyF11+  | KeyF12+  | KeyF13+  | KeyF14+  | KeyF15+  | KeyF16+  | KeyF17+  | KeyF18+  | KeyF19+  | KeyF20+  | KeyF21+  | KeyF22+  | KeyF23+  | KeyF24+  | KeyF25+  | KeyF26+  | KeyF27+  | KeyF28+  | KeyF29+  | KeyF30+  | KeyF31+  | KeyF32+  | KeyF33+  | KeyF34+  | KeyF35+  | KeySuperL+  | KeySuperR+  | KeyMenu+  | KeyHyperL+  | KeyHyperR+  | KeyHelp+  | KeyDirectionL+  | KeyDirectionR+  | KeySpace+  | KeyAny+  | KeyExclam+  | KeyQuoteDbl+  | KeyNumberSign+  | KeyDollar+  | KeyPercent+  | KeyAmpersand+  | KeyApostrophe+  | KeyParenLeft+  | KeyParenRight+  | KeyAsterisk+  | KeyPlus+  | KeyComma+  | KeyMinus+  | KeyPeriod+  | KeySlash+  | Key0+  | Key1+  | Key2+  | Key3+  | Key4+  | Key5+  | Key6+  | Key7+  | Key8+  | Key9+  | KeyColon+  | KeySemicolon+  | KeyLess+  | KeyEqual+  | KeyGreater+  | KeyQuestion+  | KeyAt+  | KeyA+  | KeyB+  | KeyC+  | KeyD+  | KeyE+  | KeyF+  | KeyG+  | KeyH+  | KeyI+  | KeyJ+  | KeyK+  | KeyL+  | KeyM+  | KeyN+  | KeyO+  | KeyP+  | KeyQ+  | KeyR+  | KeyS+  | KeyT+  | KeyU+  | KeyV+  | KeyW+  | KeyX+  | KeyY+  | KeyZ+  | KeyBracketLeft+  | KeyBackslash+  | KeyBracketRight+  | KeyAsciiCircum+  | KeyUnderscore+  | KeyQuoteLeft+  | KeyBraceLeft+  | KeyBar+  | KeyBraceRight+  | KeyAsciiTilde+  | KeyNobreakspace+  | KeyExclamdown+  | KeyCent+  | KeySterling+  | KeyCurrency+  | KeyYen+  | KeyBrokenbar+  | KeySection+  | KeyDiaeresis+  | KeyCopyright+  | KeyOrdfeminine+  | KeyGuillemotleft+  | KeyNotsign+  | KeyHyphen+  | KeyRegistered+  | KeyMacron+  | KeyDegree+  | KeyPlusminus+  | KeyTwosuperior+  | KeyThreesuperior+  | KeyAcute+  | KeyMu+  | KeyParagraph+  | KeyPeriodcentered+  | KeyCedilla+  | KeyOnesuperior+  | KeyMasculine+  | KeyGuillemotright+  | KeyOnequarter+  | KeyOnehalf+  | KeyThreequarters+  | KeyQuestiondown+  | KeyAgrave+  | KeyAacute+  | KeyAcircumflex+  | KeyAtilde+  | KeyAdiaeresis+  | KeyAring+  | KeyAe+  | KeyCcedilla+  | KeyEgrave+  | KeyEacute+  | KeyEcircumflex+  | KeyEdiaeresis+  | KeyIgrave+  | KeyIacute+  | KeyIcircumflex+  | KeyIdiaeresis+  | KeyEth+  | KeyNtilde+  | KeyOgrave+  | KeyOacute+  | KeyOcircumflex+  | KeyOtilde+  | KeyOdiaeresis+  | KeyMultiply+  | KeyOoblique+  | KeyUgrave+  | KeyUacute+  | KeyUcircumflex+  | KeyUdiaeresis+  | KeyYacute+  | KeyThorn+  | KeySsharp+  | KeyDivision+  | KeyYdiaeresis+  | KeyMultiKey+  | KeyCodeinput+  | KeySingleCandidate+  | KeyMultipleCandidate+  | KeyPreviousCandidate+  | KeyModeSwitch+  | KeyKanji+  | KeyMuhenkan+  | KeyHenkan+  | KeyRomaji+  | KeyHiragana+  | KeyKatakana+  | KeyHiraganaKatakana+  | KeyZenkaku+  | KeyHankaku+  | KeyZenkakuHankaku+  | KeyTouroku+  | KeyMassyo+  | KeyKanaLock+  | KeyKanaShift+  | KeyEisuShift+  | KeyEisuToggle+  | KeyHangul+  | KeyHangulStart+  | KeyHangulEnd+  | KeyHangulHanja+  | KeyHangulJamo+  | KeyHangulRomaja+  | KeyHangulJeonja+  | KeyHangulBanja+  | KeyHangulPreHanja+  | KeyHangulPostHanja+  | KeyHangulSpecial+  | KeyDeadGrave+  | KeyDeadAcute+  | KeyDeadCircumflex+  | KeyDeadTilde+  | KeyDeadMacron+  | KeyDeadBreve+  | KeyDeadAbovedot+  | KeyDeadDiaeresis+  | KeyDeadAbovering+  | KeyDeadDoubleacute+  | KeyDeadCaron+  | KeyDeadCedilla+  | KeyDeadOgonek+  | KeyDeadIota+  | KeyDeadVoicedSound+  | KeyDeadSemivoicedSound+  | KeyDeadBelowdot+  | KeyDeadHook+  | KeyDeadHorn+  | KeyDeadStroke+  | KeyDeadAbovecomma+  | KeyDeadAbovereversedcomma+  | KeyDeadDoublegrave+  | KeyDeadBelowring+  | KeyDeadBelowmacron+  | KeyDeadBelowtilde+  | KeyDeadBelowbreve+  | KeyDeadBelowdiaeresis+  | KeyDeadInvertedbreve+  | KeyDeadBelowcomma+  | KeyDeadCurrency+  | KeyDeadALower+  | KeyDeadAUpper+  | KeyDeadELower+  | KeyDeadEUpper+  | KeyDeadILower+  | KeyDeadIUpper+  | KeyDeadOLower+  | KeyDeadOUpper+  | KeyDeadULower+  | KeyDeadUUpper+  | KeyDeadSmallSchwa+  | KeyDeadCapitalSchwa+  | KeyDeadGreek+  | KeyDeadLowline+  | KeyDeadAboveverticalline+  | KeyDeadBelowverticalline+  | KeyDeadLongsolidusoverlay+  | KeyBack+  | KeyForward+  | KeyStop+  | KeyRefresh+  | KeyVolumeDown+  | KeyVolumeMute+  | KeyVolumeUp+  | KeyBassBoost+  | KeyBassUp+  | KeyBassDown+  | KeyTrebleUp+  | KeyTrebleDown+  | KeyMediaPlay+  | KeyMediaStop+  | KeyMediaPrevious+  | KeyMediaNext+  | KeyMediaRecord+  | KeyMediaPause+  | KeyMediaTogglePlayPause+  | KeyHomePage+  | KeyFavorites+  | KeySearch+  | KeyStandby+  | KeyOpenUrl+  | KeyLaunchMail+  | KeyLaunchMedia+  | KeyLaunch0+  | KeyLaunch1+  | KeyLaunch2+  | KeyLaunch3+  | KeyLaunch4+  | KeyLaunch5+  | KeyLaunch6+  | KeyLaunch7+  | KeyLaunch8+  | KeyLaunch9+  | KeyLaunchA+  | KeyLaunchB+  | KeyLaunchC+  | KeyLaunchD+  | KeyLaunchE+  | KeyLaunchF+  | KeyLaunchG+  | KeyLaunchH+  | UnknownQtKey (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtKey where+  fromCppEnum KeyEscape = 16777216+  fromCppEnum KeyTab = 16777217+  fromCppEnum KeyBacktab = 16777218+  fromCppEnum KeyBackspace = 16777219+  fromCppEnum KeyReturn = 16777220+  fromCppEnum KeyEnter = 16777221+  fromCppEnum KeyInsert = 16777222+  fromCppEnum KeyDelete = 16777223+  fromCppEnum KeyPause = 16777224+  fromCppEnum KeyPrint = 16777225+  fromCppEnum KeySysReq = 16777226+  fromCppEnum KeyClear = 16777227+  fromCppEnum KeyHome = 16777232+  fromCppEnum KeyEnd = 16777233+  fromCppEnum KeyLeft = 16777234+  fromCppEnum KeyUp = 16777235+  fromCppEnum KeyRight = 16777236+  fromCppEnum KeyDown = 16777237+  fromCppEnum KeyPageUp = 16777238+  fromCppEnum KeyPageDown = 16777239+  fromCppEnum KeyShift = 16777248+  fromCppEnum KeyControl = 16777249+  fromCppEnum KeyMeta = 16777250+  fromCppEnum KeyAlt = 16777251+  fromCppEnum KeyAltGr = 16781571+  fromCppEnum KeyCapsLock = 16777252+  fromCppEnum KeyNumLock = 16777253+  fromCppEnum KeyScrollLock = 16777254+  fromCppEnum KeyF1 = 16777264+  fromCppEnum KeyF2 = 16777265+  fromCppEnum KeyF3 = 16777266+  fromCppEnum KeyF4 = 16777267+  fromCppEnum KeyF5 = 16777268+  fromCppEnum KeyF6 = 16777269+  fromCppEnum KeyF7 = 16777270+  fromCppEnum KeyF8 = 16777271+  fromCppEnum KeyF9 = 16777272+  fromCppEnum KeyF10 = 16777273+  fromCppEnum KeyF11 = 16777274+  fromCppEnum KeyF12 = 16777275+  fromCppEnum KeyF13 = 16777276+  fromCppEnum KeyF14 = 16777277+  fromCppEnum KeyF15 = 16777278+  fromCppEnum KeyF16 = 16777279+  fromCppEnum KeyF17 = 16777280+  fromCppEnum KeyF18 = 16777281+  fromCppEnum KeyF19 = 16777282+  fromCppEnum KeyF20 = 16777283+  fromCppEnum KeyF21 = 16777284+  fromCppEnum KeyF22 = 16777285+  fromCppEnum KeyF23 = 16777286+  fromCppEnum KeyF24 = 16777287+  fromCppEnum KeyF25 = 16777288+  fromCppEnum KeyF26 = 16777289+  fromCppEnum KeyF27 = 16777290+  fromCppEnum KeyF28 = 16777291+  fromCppEnum KeyF29 = 16777292+  fromCppEnum KeyF30 = 16777293+  fromCppEnum KeyF31 = 16777294+  fromCppEnum KeyF32 = 16777295+  fromCppEnum KeyF33 = 16777296+  fromCppEnum KeyF34 = 16777297+  fromCppEnum KeyF35 = 16777298+  fromCppEnum KeySuperL = 16777299+  fromCppEnum KeySuperR = 16777300+  fromCppEnum KeyMenu = 16777301+  fromCppEnum KeyHyperL = 16777302+  fromCppEnum KeyHyperR = 16777303+  fromCppEnum KeyHelp = 16777304+  fromCppEnum KeyDirectionL = 16777305+  fromCppEnum KeyDirectionR = 16777312+  fromCppEnum KeySpace = 32+  fromCppEnum KeyAny = 32+  fromCppEnum KeyExclam = 33+  fromCppEnum KeyQuoteDbl = 34+  fromCppEnum KeyNumberSign = 35+  fromCppEnum KeyDollar = 36+  fromCppEnum KeyPercent = 37+  fromCppEnum KeyAmpersand = 38+  fromCppEnum KeyApostrophe = 39+  fromCppEnum KeyParenLeft = 40+  fromCppEnum KeyParenRight = 41+  fromCppEnum KeyAsterisk = 42+  fromCppEnum KeyPlus = 43+  fromCppEnum KeyComma = 44+  fromCppEnum KeyMinus = 45+  fromCppEnum KeyPeriod = 46+  fromCppEnum KeySlash = 47+  fromCppEnum Key0 = 48+  fromCppEnum Key1 = 49+  fromCppEnum Key2 = 50+  fromCppEnum Key3 = 51+  fromCppEnum Key4 = 52+  fromCppEnum Key5 = 53+  fromCppEnum Key6 = 54+  fromCppEnum Key7 = 55+  fromCppEnum Key8 = 56+  fromCppEnum Key9 = 57+  fromCppEnum KeyColon = 58+  fromCppEnum KeySemicolon = 59+  fromCppEnum KeyLess = 60+  fromCppEnum KeyEqual = 61+  fromCppEnum KeyGreater = 62+  fromCppEnum KeyQuestion = 63+  fromCppEnum KeyAt = 64+  fromCppEnum KeyA = 65+  fromCppEnum KeyB = 66+  fromCppEnum KeyC = 67+  fromCppEnum KeyD = 68+  fromCppEnum KeyE = 69+  fromCppEnum KeyF = 70+  fromCppEnum KeyG = 71+  fromCppEnum KeyH = 72+  fromCppEnum KeyI = 73+  fromCppEnum KeyJ = 74+  fromCppEnum KeyK = 75+  fromCppEnum KeyL = 76+  fromCppEnum KeyM = 77+  fromCppEnum KeyN = 78+  fromCppEnum KeyO = 79+  fromCppEnum KeyP = 80+  fromCppEnum KeyQ = 81+  fromCppEnum KeyR = 82+  fromCppEnum KeyS = 83+  fromCppEnum KeyT = 84+  fromCppEnum KeyU = 85+  fromCppEnum KeyV = 86+  fromCppEnum KeyW = 87+  fromCppEnum KeyX = 88+  fromCppEnum KeyY = 89+  fromCppEnum KeyZ = 90+  fromCppEnum KeyBracketLeft = 91+  fromCppEnum KeyBackslash = 92+  fromCppEnum KeyBracketRight = 93+  fromCppEnum KeyAsciiCircum = 94+  fromCppEnum KeyUnderscore = 95+  fromCppEnum KeyQuoteLeft = 96+  fromCppEnum KeyBraceLeft = 123+  fromCppEnum KeyBar = 124+  fromCppEnum KeyBraceRight = 125+  fromCppEnum KeyAsciiTilde = 126+  fromCppEnum KeyNobreakspace = 160+  fromCppEnum KeyExclamdown = 161+  fromCppEnum KeyCent = 162+  fromCppEnum KeySterling = 163+  fromCppEnum KeyCurrency = 164+  fromCppEnum KeyYen = 165+  fromCppEnum KeyBrokenbar = 166+  fromCppEnum KeySection = 167+  fromCppEnum KeyDiaeresis = 168+  fromCppEnum KeyCopyright = 169+  fromCppEnum KeyOrdfeminine = 170+  fromCppEnum KeyGuillemotleft = 171+  fromCppEnum KeyNotsign = 172+  fromCppEnum KeyHyphen = 173+  fromCppEnum KeyRegistered = 174+  fromCppEnum KeyMacron = 175+  fromCppEnum KeyDegree = 176+  fromCppEnum KeyPlusminus = 177+  fromCppEnum KeyTwosuperior = 178+  fromCppEnum KeyThreesuperior = 179+  fromCppEnum KeyAcute = 180+  fromCppEnum KeyMu = 181+  fromCppEnum KeyParagraph = 182+  fromCppEnum KeyPeriodcentered = 183+  fromCppEnum KeyCedilla = 184+  fromCppEnum KeyOnesuperior = 185+  fromCppEnum KeyMasculine = 186+  fromCppEnum KeyGuillemotright = 187+  fromCppEnum KeyOnequarter = 188+  fromCppEnum KeyOnehalf = 189+  fromCppEnum KeyThreequarters = 190+  fromCppEnum KeyQuestiondown = 191+  fromCppEnum KeyAgrave = 192+  fromCppEnum KeyAacute = 193+  fromCppEnum KeyAcircumflex = 194+  fromCppEnum KeyAtilde = 195+  fromCppEnum KeyAdiaeresis = 196+  fromCppEnum KeyAring = 197+  fromCppEnum KeyAe = 198+  fromCppEnum KeyCcedilla = 199+  fromCppEnum KeyEgrave = 200+  fromCppEnum KeyEacute = 201+  fromCppEnum KeyEcircumflex = 202+  fromCppEnum KeyEdiaeresis = 203+  fromCppEnum KeyIgrave = 204+  fromCppEnum KeyIacute = 205+  fromCppEnum KeyIcircumflex = 206+  fromCppEnum KeyIdiaeresis = 207+  fromCppEnum KeyEth = 208+  fromCppEnum KeyNtilde = 209+  fromCppEnum KeyOgrave = 210+  fromCppEnum KeyOacute = 211+  fromCppEnum KeyOcircumflex = 212+  fromCppEnum KeyOtilde = 213+  fromCppEnum KeyOdiaeresis = 214+  fromCppEnum KeyMultiply = 215+  fromCppEnum KeyOoblique = 216+  fromCppEnum KeyUgrave = 217+  fromCppEnum KeyUacute = 218+  fromCppEnum KeyUcircumflex = 219+  fromCppEnum KeyUdiaeresis = 220+  fromCppEnum KeyYacute = 221+  fromCppEnum KeyThorn = 222+  fromCppEnum KeySsharp = 223+  fromCppEnum KeyDivision = 247+  fromCppEnum KeyYdiaeresis = 255+  fromCppEnum KeyMultiKey = 16781600+  fromCppEnum KeyCodeinput = 16781623+  fromCppEnum KeySingleCandidate = 16781628+  fromCppEnum KeyMultipleCandidate = 16781629+  fromCppEnum KeyPreviousCandidate = 16781630+  fromCppEnum KeyModeSwitch = 16781694+  fromCppEnum KeyKanji = 16781601+  fromCppEnum KeyMuhenkan = 16781602+  fromCppEnum KeyHenkan = 16781603+  fromCppEnum KeyRomaji = 16781604+  fromCppEnum KeyHiragana = 16781605+  fromCppEnum KeyKatakana = 16781606+  fromCppEnum KeyHiraganaKatakana = 16781607+  fromCppEnum KeyZenkaku = 16781608+  fromCppEnum KeyHankaku = 16781609+  fromCppEnum KeyZenkakuHankaku = 16781610+  fromCppEnum KeyTouroku = 16781611+  fromCppEnum KeyMassyo = 16781612+  fromCppEnum KeyKanaLock = 16781613+  fromCppEnum KeyKanaShift = 16781614+  fromCppEnum KeyEisuShift = 16781615+  fromCppEnum KeyEisuToggle = 16781616+  fromCppEnum KeyHangul = 16781617+  fromCppEnum KeyHangulStart = 16781618+  fromCppEnum KeyHangulEnd = 16781619+  fromCppEnum KeyHangulHanja = 16781620+  fromCppEnum KeyHangulJamo = 16781621+  fromCppEnum KeyHangulRomaja = 16781622+  fromCppEnum KeyHangulJeonja = 16781624+  fromCppEnum KeyHangulBanja = 16781625+  fromCppEnum KeyHangulPreHanja = 16781626+  fromCppEnum KeyHangulPostHanja = 16781627+  fromCppEnum KeyHangulSpecial = 16781631+  fromCppEnum KeyDeadGrave = 16781904+  fromCppEnum KeyDeadAcute = 16781905+  fromCppEnum KeyDeadCircumflex = 16781906+  fromCppEnum KeyDeadTilde = 16781907+  fromCppEnum KeyDeadMacron = 16781908+  fromCppEnum KeyDeadBreve = 16781909+  fromCppEnum KeyDeadAbovedot = 16781910+  fromCppEnum KeyDeadDiaeresis = 16781911+  fromCppEnum KeyDeadAbovering = 16781912+  fromCppEnum KeyDeadDoubleacute = 16781913+  fromCppEnum KeyDeadCaron = 16781914+  fromCppEnum KeyDeadCedilla = 16781915+  fromCppEnum KeyDeadOgonek = 16781916+  fromCppEnum KeyDeadIota = 16781917+  fromCppEnum KeyDeadVoicedSound = 16781918+  fromCppEnum KeyDeadSemivoicedSound = 16781919+  fromCppEnum KeyDeadBelowdot = 16781920+  fromCppEnum KeyDeadHook = 16781921+  fromCppEnum KeyDeadHorn = 16781922+  fromCppEnum KeyDeadStroke = 16781923+  fromCppEnum KeyDeadAbovecomma = 16781924+  fromCppEnum KeyDeadAbovereversedcomma = 16781925+  fromCppEnum KeyDeadDoublegrave = 16781926+  fromCppEnum KeyDeadBelowring = 16781927+  fromCppEnum KeyDeadBelowmacron = 16781928+  fromCppEnum KeyDeadBelowtilde = 16781930+  fromCppEnum KeyDeadBelowbreve = 16781931+  fromCppEnum KeyDeadBelowdiaeresis = 16781932+  fromCppEnum KeyDeadInvertedbreve = 16781933+  fromCppEnum KeyDeadBelowcomma = 16781934+  fromCppEnum KeyDeadCurrency = 16781935+  fromCppEnum KeyDeadALower = 16781952+  fromCppEnum KeyDeadAUpper = 16781953+  fromCppEnum KeyDeadELower = 16781954+  fromCppEnum KeyDeadEUpper = 16781955+  fromCppEnum KeyDeadILower = 16781956+  fromCppEnum KeyDeadIUpper = 16781957+  fromCppEnum KeyDeadOLower = 16781958+  fromCppEnum KeyDeadOUpper = 16781959+  fromCppEnum KeyDeadULower = 16781960+  fromCppEnum KeyDeadUUpper = 16781961+  fromCppEnum KeyDeadSmallSchwa = 16781962+  fromCppEnum KeyDeadCapitalSchwa = 16781963+  fromCppEnum KeyDeadGreek = 16781964+  fromCppEnum KeyDeadLowline = 16781968+  fromCppEnum KeyDeadAboveverticalline = 16781969+  fromCppEnum KeyDeadBelowverticalline = 16781970+  fromCppEnum KeyDeadLongsolidusoverlay = 16781971+  fromCppEnum KeyBack = 16777313+  fromCppEnum KeyForward = 16777314+  fromCppEnum KeyStop = 16777315+  fromCppEnum KeyRefresh = 16777316+  fromCppEnum KeyVolumeDown = 16777328+  fromCppEnum KeyVolumeMute = 16777329+  fromCppEnum KeyVolumeUp = 16777330+  fromCppEnum KeyBassBoost = 16777331+  fromCppEnum KeyBassUp = 16777332+  fromCppEnum KeyBassDown = 16777333+  fromCppEnum KeyTrebleUp = 16777334+  fromCppEnum KeyTrebleDown = 16777335+  fromCppEnum KeyMediaPlay = 16777344+  fromCppEnum KeyMediaStop = 16777345+  fromCppEnum KeyMediaPrevious = 16777346+  fromCppEnum KeyMediaNext = 16777347+  fromCppEnum KeyMediaRecord = 16777348+  fromCppEnum KeyMediaPause = 16777349+  fromCppEnum KeyMediaTogglePlayPause = 16777350+  fromCppEnum KeyHomePage = 16777360+  fromCppEnum KeyFavorites = 16777361+  fromCppEnum KeySearch = 16777362+  fromCppEnum KeyStandby = 16777363+  fromCppEnum KeyOpenUrl = 16777364+  fromCppEnum KeyLaunchMail = 16777376+  fromCppEnum KeyLaunchMedia = 16777377+  fromCppEnum KeyLaunch0 = 16777378+  fromCppEnum KeyLaunch1 = 16777379+  fromCppEnum KeyLaunch2 = 16777380+  fromCppEnum KeyLaunch3 = 16777381+  fromCppEnum KeyLaunch4 = 16777382+  fromCppEnum KeyLaunch5 = 16777383+  fromCppEnum KeyLaunch6 = 16777384+  fromCppEnum KeyLaunch7 = 16777385+  fromCppEnum KeyLaunch8 = 16777386+  fromCppEnum KeyLaunch9 = 16777387+  fromCppEnum KeyLaunchA = 16777388+  fromCppEnum KeyLaunchB = 16777389+  fromCppEnum KeyLaunchC = 16777390+  fromCppEnum KeyLaunchD = 16777391+  fromCppEnum KeyLaunchE = 16777392+  fromCppEnum KeyLaunchF = 16777393+  fromCppEnum KeyLaunchG = 16777486+  fromCppEnum KeyLaunchH = 16777487+  fromCppEnum (UnknownQtKey n) = n+  +  toCppEnum (32) = KeyAny+  toCppEnum (33) = KeyExclam+  toCppEnum (34) = KeyQuoteDbl+  toCppEnum (35) = KeyNumberSign+  toCppEnum (36) = KeyDollar+  toCppEnum (37) = KeyPercent+  toCppEnum (38) = KeyAmpersand+  toCppEnum (39) = KeyApostrophe+  toCppEnum (40) = KeyParenLeft+  toCppEnum (41) = KeyParenRight+  toCppEnum (42) = KeyAsterisk+  toCppEnum (43) = KeyPlus+  toCppEnum (44) = KeyComma+  toCppEnum (45) = KeyMinus+  toCppEnum (46) = KeyPeriod+  toCppEnum (47) = KeySlash+  toCppEnum (48) = Key0+  toCppEnum (49) = Key1+  toCppEnum (50) = Key2+  toCppEnum (51) = Key3+  toCppEnum (52) = Key4+  toCppEnum (53) = Key5+  toCppEnum (54) = Key6+  toCppEnum (55) = Key7+  toCppEnum (56) = Key8+  toCppEnum (57) = Key9+  toCppEnum (58) = KeyColon+  toCppEnum (59) = KeySemicolon+  toCppEnum (60) = KeyLess+  toCppEnum (61) = KeyEqual+  toCppEnum (62) = KeyGreater+  toCppEnum (63) = KeyQuestion+  toCppEnum (64) = KeyAt+  toCppEnum (65) = KeyA+  toCppEnum (66) = KeyB+  toCppEnum (67) = KeyC+  toCppEnum (68) = KeyD+  toCppEnum (69) = KeyE+  toCppEnum (70) = KeyF+  toCppEnum (71) = KeyG+  toCppEnum (72) = KeyH+  toCppEnum (73) = KeyI+  toCppEnum (74) = KeyJ+  toCppEnum (75) = KeyK+  toCppEnum (76) = KeyL+  toCppEnum (77) = KeyM+  toCppEnum (78) = KeyN+  toCppEnum (79) = KeyO+  toCppEnum (80) = KeyP+  toCppEnum (81) = KeyQ+  toCppEnum (82) = KeyR+  toCppEnum (83) = KeyS+  toCppEnum (84) = KeyT+  toCppEnum (85) = KeyU+  toCppEnum (86) = KeyV+  toCppEnum (87) = KeyW+  toCppEnum (88) = KeyX+  toCppEnum (89) = KeyY+  toCppEnum (90) = KeyZ+  toCppEnum (91) = KeyBracketLeft+  toCppEnum (92) = KeyBackslash+  toCppEnum (93) = KeyBracketRight+  toCppEnum (94) = KeyAsciiCircum+  toCppEnum (95) = KeyUnderscore+  toCppEnum (96) = KeyQuoteLeft+  toCppEnum (123) = KeyBraceLeft+  toCppEnum (124) = KeyBar+  toCppEnum (125) = KeyBraceRight+  toCppEnum (126) = KeyAsciiTilde+  toCppEnum (160) = KeyNobreakspace+  toCppEnum (161) = KeyExclamdown+  toCppEnum (162) = KeyCent+  toCppEnum (163) = KeySterling+  toCppEnum (164) = KeyCurrency+  toCppEnum (165) = KeyYen+  toCppEnum (166) = KeyBrokenbar+  toCppEnum (167) = KeySection+  toCppEnum (168) = KeyDiaeresis+  toCppEnum (169) = KeyCopyright+  toCppEnum (170) = KeyOrdfeminine+  toCppEnum (171) = KeyGuillemotleft+  toCppEnum (172) = KeyNotsign+  toCppEnum (173) = KeyHyphen+  toCppEnum (174) = KeyRegistered+  toCppEnum (175) = KeyMacron+  toCppEnum (176) = KeyDegree+  toCppEnum (177) = KeyPlusminus+  toCppEnum (178) = KeyTwosuperior+  toCppEnum (179) = KeyThreesuperior+  toCppEnum (180) = KeyAcute+  toCppEnum (181) = KeyMu+  toCppEnum (182) = KeyParagraph+  toCppEnum (183) = KeyPeriodcentered+  toCppEnum (184) = KeyCedilla+  toCppEnum (185) = KeyOnesuperior+  toCppEnum (186) = KeyMasculine+  toCppEnum (187) = KeyGuillemotright+  toCppEnum (188) = KeyOnequarter+  toCppEnum (189) = KeyOnehalf+  toCppEnum (190) = KeyThreequarters+  toCppEnum (191) = KeyQuestiondown+  toCppEnum (192) = KeyAgrave+  toCppEnum (193) = KeyAacute+  toCppEnum (194) = KeyAcircumflex+  toCppEnum (195) = KeyAtilde+  toCppEnum (196) = KeyAdiaeresis+  toCppEnum (197) = KeyAring+  toCppEnum (198) = KeyAe+  toCppEnum (199) = KeyCcedilla+  toCppEnum (200) = KeyEgrave+  toCppEnum (201) = KeyEacute+  toCppEnum (202) = KeyEcircumflex+  toCppEnum (203) = KeyEdiaeresis+  toCppEnum (204) = KeyIgrave+  toCppEnum (205) = KeyIacute+  toCppEnum (206) = KeyIcircumflex+  toCppEnum (207) = KeyIdiaeresis+  toCppEnum (208) = KeyEth+  toCppEnum (209) = KeyNtilde+  toCppEnum (210) = KeyOgrave+  toCppEnum (211) = KeyOacute+  toCppEnum (212) = KeyOcircumflex+  toCppEnum (213) = KeyOtilde+  toCppEnum (214) = KeyOdiaeresis+  toCppEnum (215) = KeyMultiply+  toCppEnum (216) = KeyOoblique+  toCppEnum (217) = KeyUgrave+  toCppEnum (218) = KeyUacute+  toCppEnum (219) = KeyUcircumflex+  toCppEnum (220) = KeyUdiaeresis+  toCppEnum (221) = KeyYacute+  toCppEnum (222) = KeyThorn+  toCppEnum (223) = KeySsharp+  toCppEnum (247) = KeyDivision+  toCppEnum (255) = KeyYdiaeresis+  toCppEnum (16777216) = KeyEscape+  toCppEnum (16777217) = KeyTab+  toCppEnum (16777218) = KeyBacktab+  toCppEnum (16777219) = KeyBackspace+  toCppEnum (16777220) = KeyReturn+  toCppEnum (16777221) = KeyEnter+  toCppEnum (16777222) = KeyInsert+  toCppEnum (16777223) = KeyDelete+  toCppEnum (16777224) = KeyPause+  toCppEnum (16777225) = KeyPrint+  toCppEnum (16777226) = KeySysReq+  toCppEnum (16777227) = KeyClear+  toCppEnum (16777232) = KeyHome+  toCppEnum (16777233) = KeyEnd+  toCppEnum (16777234) = KeyLeft+  toCppEnum (16777235) = KeyUp+  toCppEnum (16777236) = KeyRight+  toCppEnum (16777237) = KeyDown+  toCppEnum (16777238) = KeyPageUp+  toCppEnum (16777239) = KeyPageDown+  toCppEnum (16777248) = KeyShift+  toCppEnum (16777249) = KeyControl+  toCppEnum (16777250) = KeyMeta+  toCppEnum (16777251) = KeyAlt+  toCppEnum (16777252) = KeyCapsLock+  toCppEnum (16777253) = KeyNumLock+  toCppEnum (16777254) = KeyScrollLock+  toCppEnum (16777264) = KeyF1+  toCppEnum (16777265) = KeyF2+  toCppEnum (16777266) = KeyF3+  toCppEnum (16777267) = KeyF4+  toCppEnum (16777268) = KeyF5+  toCppEnum (16777269) = KeyF6+  toCppEnum (16777270) = KeyF7+  toCppEnum (16777271) = KeyF8+  toCppEnum (16777272) = KeyF9+  toCppEnum (16777273) = KeyF10+  toCppEnum (16777274) = KeyF11+  toCppEnum (16777275) = KeyF12+  toCppEnum (16777276) = KeyF13+  toCppEnum (16777277) = KeyF14+  toCppEnum (16777278) = KeyF15+  toCppEnum (16777279) = KeyF16+  toCppEnum (16777280) = KeyF17+  toCppEnum (16777281) = KeyF18+  toCppEnum (16777282) = KeyF19+  toCppEnum (16777283) = KeyF20+  toCppEnum (16777284) = KeyF21+  toCppEnum (16777285) = KeyF22+  toCppEnum (16777286) = KeyF23+  toCppEnum (16777287) = KeyF24+  toCppEnum (16777288) = KeyF25+  toCppEnum (16777289) = KeyF26+  toCppEnum (16777290) = KeyF27+  toCppEnum (16777291) = KeyF28+  toCppEnum (16777292) = KeyF29+  toCppEnum (16777293) = KeyF30+  toCppEnum (16777294) = KeyF31+  toCppEnum (16777295) = KeyF32+  toCppEnum (16777296) = KeyF33+  toCppEnum (16777297) = KeyF34+  toCppEnum (16777298) = KeyF35+  toCppEnum (16777299) = KeySuperL+  toCppEnum (16777300) = KeySuperR+  toCppEnum (16777301) = KeyMenu+  toCppEnum (16777302) = KeyHyperL+  toCppEnum (16777303) = KeyHyperR+  toCppEnum (16777304) = KeyHelp+  toCppEnum (16777305) = KeyDirectionL+  toCppEnum (16777312) = KeyDirectionR+  toCppEnum (16777313) = KeyBack+  toCppEnum (16777314) = KeyForward+  toCppEnum (16777315) = KeyStop+  toCppEnum (16777316) = KeyRefresh+  toCppEnum (16777328) = KeyVolumeDown+  toCppEnum (16777329) = KeyVolumeMute+  toCppEnum (16777330) = KeyVolumeUp+  toCppEnum (16777331) = KeyBassBoost+  toCppEnum (16777332) = KeyBassUp+  toCppEnum (16777333) = KeyBassDown+  toCppEnum (16777334) = KeyTrebleUp+  toCppEnum (16777335) = KeyTrebleDown+  toCppEnum (16777344) = KeyMediaPlay+  toCppEnum (16777345) = KeyMediaStop+  toCppEnum (16777346) = KeyMediaPrevious+  toCppEnum (16777347) = KeyMediaNext+  toCppEnum (16777348) = KeyMediaRecord+  toCppEnum (16777349) = KeyMediaPause+  toCppEnum (16777350) = KeyMediaTogglePlayPause+  toCppEnum (16777360) = KeyHomePage+  toCppEnum (16777361) = KeyFavorites+  toCppEnum (16777362) = KeySearch+  toCppEnum (16777363) = KeyStandby+  toCppEnum (16777364) = KeyOpenUrl+  toCppEnum (16777376) = KeyLaunchMail+  toCppEnum (16777377) = KeyLaunchMedia+  toCppEnum (16777378) = KeyLaunch0+  toCppEnum (16777379) = KeyLaunch1+  toCppEnum (16777380) = KeyLaunch2+  toCppEnum (16777381) = KeyLaunch3+  toCppEnum (16777382) = KeyLaunch4+  toCppEnum (16777383) = KeyLaunch5+  toCppEnum (16777384) = KeyLaunch6+  toCppEnum (16777385) = KeyLaunch7+  toCppEnum (16777386) = KeyLaunch8+  toCppEnum (16777387) = KeyLaunch9+  toCppEnum (16777388) = KeyLaunchA+  toCppEnum (16777389) = KeyLaunchB+  toCppEnum (16777390) = KeyLaunchC+  toCppEnum (16777391) = KeyLaunchD+  toCppEnum (16777392) = KeyLaunchE+  toCppEnum (16777393) = KeyLaunchF+  toCppEnum (16777486) = KeyLaunchG+  toCppEnum (16777487) = KeyLaunchH+  toCppEnum (16781571) = KeyAltGr+  toCppEnum (16781600) = KeyMultiKey+  toCppEnum (16781601) = KeyKanji+  toCppEnum (16781602) = KeyMuhenkan+  toCppEnum (16781603) = KeyHenkan+  toCppEnum (16781604) = KeyRomaji+  toCppEnum (16781605) = KeyHiragana+  toCppEnum (16781606) = KeyKatakana+  toCppEnum (16781607) = KeyHiraganaKatakana+  toCppEnum (16781608) = KeyZenkaku+  toCppEnum (16781609) = KeyHankaku+  toCppEnum (16781610) = KeyZenkakuHankaku+  toCppEnum (16781611) = KeyTouroku+  toCppEnum (16781612) = KeyMassyo+  toCppEnum (16781613) = KeyKanaLock+  toCppEnum (16781614) = KeyKanaShift+  toCppEnum (16781615) = KeyEisuShift+  toCppEnum (16781616) = KeyEisuToggle+  toCppEnum (16781617) = KeyHangul+  toCppEnum (16781618) = KeyHangulStart+  toCppEnum (16781619) = KeyHangulEnd+  toCppEnum (16781620) = KeyHangulHanja+  toCppEnum (16781621) = KeyHangulJamo+  toCppEnum (16781622) = KeyHangulRomaja+  toCppEnum (16781623) = KeyCodeinput+  toCppEnum (16781624) = KeyHangulJeonja+  toCppEnum (16781625) = KeyHangulBanja+  toCppEnum (16781626) = KeyHangulPreHanja+  toCppEnum (16781627) = KeyHangulPostHanja+  toCppEnum (16781628) = KeySingleCandidate+  toCppEnum (16781629) = KeyMultipleCandidate+  toCppEnum (16781630) = KeyPreviousCandidate+  toCppEnum (16781631) = KeyHangulSpecial+  toCppEnum (16781694) = KeyModeSwitch+  toCppEnum (16781904) = KeyDeadGrave+  toCppEnum (16781905) = KeyDeadAcute+  toCppEnum (16781906) = KeyDeadCircumflex+  toCppEnum (16781907) = KeyDeadTilde+  toCppEnum (16781908) = KeyDeadMacron+  toCppEnum (16781909) = KeyDeadBreve+  toCppEnum (16781910) = KeyDeadAbovedot+  toCppEnum (16781911) = KeyDeadDiaeresis+  toCppEnum (16781912) = KeyDeadAbovering+  toCppEnum (16781913) = KeyDeadDoubleacute+  toCppEnum (16781914) = KeyDeadCaron+  toCppEnum (16781915) = KeyDeadCedilla+  toCppEnum (16781916) = KeyDeadOgonek+  toCppEnum (16781917) = KeyDeadIota+  toCppEnum (16781918) = KeyDeadVoicedSound+  toCppEnum (16781919) = KeyDeadSemivoicedSound+  toCppEnum (16781920) = KeyDeadBelowdot+  toCppEnum (16781921) = KeyDeadHook+  toCppEnum (16781922) = KeyDeadHorn+  toCppEnum (16781923) = KeyDeadStroke+  toCppEnum (16781924) = KeyDeadAbovecomma+  toCppEnum (16781925) = KeyDeadAbovereversedcomma+  toCppEnum (16781926) = KeyDeadDoublegrave+  toCppEnum (16781927) = KeyDeadBelowring+  toCppEnum (16781928) = KeyDeadBelowmacron+  toCppEnum (16781930) = KeyDeadBelowtilde+  toCppEnum (16781931) = KeyDeadBelowbreve+  toCppEnum (16781932) = KeyDeadBelowdiaeresis+  toCppEnum (16781933) = KeyDeadInvertedbreve+  toCppEnum (16781934) = KeyDeadBelowcomma+  toCppEnum (16781935) = KeyDeadCurrency+  toCppEnum (16781952) = KeyDeadALower+  toCppEnum (16781953) = KeyDeadAUpper+  toCppEnum (16781954) = KeyDeadELower+  toCppEnum (16781955) = KeyDeadEUpper+  toCppEnum (16781956) = KeyDeadILower+  toCppEnum (16781957) = KeyDeadIUpper+  toCppEnum (16781958) = KeyDeadOLower+  toCppEnum (16781959) = KeyDeadOUpper+  toCppEnum (16781960) = KeyDeadULower+  toCppEnum (16781961) = KeyDeadUUpper+  toCppEnum (16781962) = KeyDeadSmallSchwa+  toCppEnum (16781963) = KeyDeadCapitalSchwa+  toCppEnum (16781964) = KeyDeadGreek+  toCppEnum (16781968) = KeyDeadLowline+  toCppEnum (16781969) = KeyDeadAboveverticalline+  toCppEnum (16781970) = KeyDeadBelowverticalline+  toCppEnum (16781971) = KeyDeadLongsolidusoverlay+  toCppEnum n = UnknownQtKey n++instance HoppyP.Eq QtKey where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtKey where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtKeyboardModifier =+  NoModifier+  | ShiftModifier+  | ControlModifier+  | AltModifier+  | MetaModifier+  | KeypadModifier+  | GroupSwitchModifier+  | UnknownQtKeyboardModifier (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtKeyboardModifier where+  fromCppEnum NoModifier = 0+  fromCppEnum ShiftModifier = 33554432+  fromCppEnum ControlModifier = 67108864+  fromCppEnum AltModifier = 134217728+  fromCppEnum MetaModifier = 268435456+  fromCppEnum KeypadModifier = 536870912+  fromCppEnum GroupSwitchModifier = 1073741824+  fromCppEnum (UnknownQtKeyboardModifier n) = n+  +  toCppEnum (0) = NoModifier+  toCppEnum (33554432) = ShiftModifier+  toCppEnum (67108864) = ControlModifier+  toCppEnum (134217728) = AltModifier+  toCppEnum (268435456) = MetaModifier+  toCppEnum (536870912) = KeypadModifier+  toCppEnum (1073741824) = GroupSwitchModifier+  toCppEnum n = UnknownQtKeyboardModifier n++instance HoppyP.Eq QtKeyboardModifier where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtKeyboardModifier where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtKeyboardModifiers = QtKeyboardModifiers (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtKeyboardModifier QtKeyboardModifiers where+  enumToFlags = QtKeyboardModifiers . QtahFHR.fromCppEnum+  flagsToEnum (QtKeyboardModifiers x') = QtahFHR.toCppEnum x'++class IsQtKeyboardModifiers a where+  toQtKeyboardModifiers :: a -> QtKeyboardModifiers++instance IsQtKeyboardModifiers QtKeyboardModifiers where toQtKeyboardModifiers = QtahP.id+instance IsQtKeyboardModifiers QtKeyboardModifier where toQtKeyboardModifiers = QtahFlags.enumToFlags+instance IsQtKeyboardModifiers (HoppyFC.CInt) where toQtKeyboardModifiers = QtahFlags.numToFlags++altModifier :: QtKeyboardModifiers+altModifier = QtKeyboardModifiers (134217728)++controlModifier :: QtKeyboardModifiers+controlModifier = QtKeyboardModifiers (67108864)++groupSwitchModifier :: QtKeyboardModifiers+groupSwitchModifier = QtKeyboardModifiers (1073741824)++keypadModifier :: QtKeyboardModifiers+keypadModifier = QtKeyboardModifiers (536870912)++metaModifier :: QtKeyboardModifiers+metaModifier = QtKeyboardModifiers (268435456)++noModifier :: QtKeyboardModifiers+noModifier = QtKeyboardModifiers (0)++shiftModifier :: QtKeyboardModifiers+shiftModifier = QtKeyboardModifiers (33554432)++instance QtahDB.Bits QtKeyboardModifiers where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtLayoutDirection =+  LeftToRight+  | RightToLeft+  | LayoutDirectionAuto+  | UnknownQtLayoutDirection (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtLayoutDirection where+  fromCppEnum LeftToRight = 0+  fromCppEnum RightToLeft = 1+  fromCppEnum LayoutDirectionAuto = 2+  fromCppEnum (UnknownQtLayoutDirection n) = n+  +  toCppEnum (0) = LeftToRight+  toCppEnum (1) = RightToLeft+  toCppEnum (2) = LayoutDirectionAuto+  toCppEnum n = UnknownQtLayoutDirection n++instance HoppyP.Eq QtLayoutDirection where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtLayoutDirection where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtMaskMode =+  MaskInColor+  | MaskOutColor+  | UnknownQtMaskMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtMaskMode where+  fromCppEnum MaskInColor = 0+  fromCppEnum MaskOutColor = 1+  fromCppEnum (UnknownQtMaskMode n) = n+  +  toCppEnum (0) = MaskInColor+  toCppEnum (1) = MaskOutColor+  toCppEnum n = UnknownQtMaskMode n++instance HoppyP.Eq QtMaskMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtMaskMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtMatchFlag =+  MatchExactly+  | MatchFixedString+  | MatchContains+  | MatchStartsWith+  | MatchEndsWith+  | MatchCaseSensitive+  | MatchRegExp+  | MatchWildcard+  | MatchWrap+  | MatchRecursive+  | UnknownQtMatchFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtMatchFlag where+  fromCppEnum MatchExactly = 0+  fromCppEnum MatchFixedString = 8+  fromCppEnum MatchContains = 1+  fromCppEnum MatchStartsWith = 2+  fromCppEnum MatchEndsWith = 3+  fromCppEnum MatchCaseSensitive = 16+  fromCppEnum MatchRegExp = 4+  fromCppEnum MatchWildcard = 5+  fromCppEnum MatchWrap = 32+  fromCppEnum MatchRecursive = 64+  fromCppEnum (UnknownQtMatchFlag n) = n+  +  toCppEnum (0) = MatchExactly+  toCppEnum (1) = MatchContains+  toCppEnum (2) = MatchStartsWith+  toCppEnum (3) = MatchEndsWith+  toCppEnum (4) = MatchRegExp+  toCppEnum (5) = MatchWildcard+  toCppEnum (8) = MatchFixedString+  toCppEnum (16) = MatchCaseSensitive+  toCppEnum (32) = MatchWrap+  toCppEnum (64) = MatchRecursive+  toCppEnum n = UnknownQtMatchFlag n++instance HoppyP.Eq QtMatchFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtMatchFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtMatchFlags = QtMatchFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtMatchFlag QtMatchFlags where+  enumToFlags = QtMatchFlags . QtahFHR.fromCppEnum+  flagsToEnum (QtMatchFlags x') = QtahFHR.toCppEnum x'++class IsQtMatchFlags a where+  toQtMatchFlags :: a -> QtMatchFlags++instance IsQtMatchFlags QtMatchFlags where toQtMatchFlags = QtahP.id+instance IsQtMatchFlags QtMatchFlag where toQtMatchFlags = QtahFlags.enumToFlags+instance IsQtMatchFlags (HoppyFC.CInt) where toQtMatchFlags = QtahFlags.numToFlags++matchCaseSensitive :: QtMatchFlags+matchCaseSensitive = QtMatchFlags (16)++matchContains :: QtMatchFlags+matchContains = QtMatchFlags (1)++matchEndsWith :: QtMatchFlags+matchEndsWith = QtMatchFlags (3)++matchExactly :: QtMatchFlags+matchExactly = QtMatchFlags (0)++matchFixedString :: QtMatchFlags+matchFixedString = QtMatchFlags (8)++matchRecursive :: QtMatchFlags+matchRecursive = QtMatchFlags (64)++matchRegExp :: QtMatchFlags+matchRegExp = QtMatchFlags (4)++matchStartsWith :: QtMatchFlags+matchStartsWith = QtMatchFlags (2)++matchWildcard :: QtMatchFlags+matchWildcard = QtMatchFlags (5)++matchWrap :: QtMatchFlags+matchWrap = QtMatchFlags (32)++instance QtahDB.Bits QtMatchFlags where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtMouseButton =+  NoButton+  | AllButtons+  | LeftButton+  | RightButton+  | MidButton+  | MiddleButton+  | BackButton+  | XButton1+  | ExtraButton1+  | ForwardButton+  | XButton2+  | ExtraButton2+  | TaskButton+  | ExtraButton3+  | ExtraButton4+  | ExtraButton5+  | ExtraButton6+  | ExtraButton7+  | ExtraButton8+  | ExtraButton9+  | ExtraButton10+  | ExtraButton11+  | ExtraButton12+  | ExtraButton13+  | ExtraButton14+  | ExtraButton15+  | ExtraButton16+  | ExtraButton17+  | ExtraButton18+  | ExtraButton19+  | ExtraButton20+  | ExtraButton21+  | ExtraButton22+  | ExtraButton23+  | ExtraButton24+  | UnknownQtMouseButton (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtMouseButton where+  fromCppEnum NoButton = 0+  fromCppEnum AllButtons = 134217727+  fromCppEnum LeftButton = 1+  fromCppEnum RightButton = 2+  fromCppEnum MidButton = 4+  fromCppEnum MiddleButton = 4+  fromCppEnum BackButton = 8+  fromCppEnum XButton1 = 8+  fromCppEnum ExtraButton1 = 8+  fromCppEnum ForwardButton = 16+  fromCppEnum XButton2 = 16+  fromCppEnum ExtraButton2 = 16+  fromCppEnum TaskButton = 32+  fromCppEnum ExtraButton3 = 32+  fromCppEnum ExtraButton4 = 64+  fromCppEnum ExtraButton5 = 128+  fromCppEnum ExtraButton6 = 256+  fromCppEnum ExtraButton7 = 512+  fromCppEnum ExtraButton8 = 1024+  fromCppEnum ExtraButton9 = 2048+  fromCppEnum ExtraButton10 = 4096+  fromCppEnum ExtraButton11 = 8192+  fromCppEnum ExtraButton12 = 16384+  fromCppEnum ExtraButton13 = 32768+  fromCppEnum ExtraButton14 = 65536+  fromCppEnum ExtraButton15 = 131072+  fromCppEnum ExtraButton16 = 262144+  fromCppEnum ExtraButton17 = 524288+  fromCppEnum ExtraButton18 = 1048576+  fromCppEnum ExtraButton19 = 2097152+  fromCppEnum ExtraButton20 = 4194304+  fromCppEnum ExtraButton21 = 8388608+  fromCppEnum ExtraButton22 = 16777216+  fromCppEnum ExtraButton23 = 33554432+  fromCppEnum ExtraButton24 = 67108864+  fromCppEnum (UnknownQtMouseButton n) = n+  +  toCppEnum (0) = NoButton+  toCppEnum (1) = LeftButton+  toCppEnum (2) = RightButton+  toCppEnum (4) = MiddleButton+  toCppEnum (8) = ExtraButton1+  toCppEnum (16) = ExtraButton2+  toCppEnum (32) = ExtraButton3+  toCppEnum (64) = ExtraButton4+  toCppEnum (128) = ExtraButton5+  toCppEnum (256) = ExtraButton6+  toCppEnum (512) = ExtraButton7+  toCppEnum (1024) = ExtraButton8+  toCppEnum (2048) = ExtraButton9+  toCppEnum (4096) = ExtraButton10+  toCppEnum (8192) = ExtraButton11+  toCppEnum (16384) = ExtraButton12+  toCppEnum (32768) = ExtraButton13+  toCppEnum (65536) = ExtraButton14+  toCppEnum (131072) = ExtraButton15+  toCppEnum (262144) = ExtraButton16+  toCppEnum (524288) = ExtraButton17+  toCppEnum (1048576) = ExtraButton18+  toCppEnum (2097152) = ExtraButton19+  toCppEnum (4194304) = ExtraButton20+  toCppEnum (8388608) = ExtraButton21+  toCppEnum (16777216) = ExtraButton22+  toCppEnum (33554432) = ExtraButton23+  toCppEnum (67108864) = ExtraButton24+  toCppEnum (134217727) = AllButtons+  toCppEnum n = UnknownQtMouseButton n++instance HoppyP.Eq QtMouseButton where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtMouseButton where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtMouseButtons = QtMouseButtons (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtMouseButton QtMouseButtons where+  enumToFlags = QtMouseButtons . QtahFHR.fromCppEnum+  flagsToEnum (QtMouseButtons x') = QtahFHR.toCppEnum x'++class IsQtMouseButtons a where+  toQtMouseButtons :: a -> QtMouseButtons++instance IsQtMouseButtons QtMouseButtons where toQtMouseButtons = QtahP.id+instance IsQtMouseButtons QtMouseButton where toQtMouseButtons = QtahFlags.enumToFlags+instance IsQtMouseButtons (HoppyFC.CInt) where toQtMouseButtons = QtahFlags.numToFlags++allButtons :: QtMouseButtons+allButtons = QtMouseButtons (134217727)++backButton :: QtMouseButtons+backButton = QtMouseButtons (8)++extraButton1 :: QtMouseButtons+extraButton1 = QtMouseButtons (8)++extraButton10 :: QtMouseButtons+extraButton10 = QtMouseButtons (4096)++extraButton11 :: QtMouseButtons+extraButton11 = QtMouseButtons (8192)++extraButton12 :: QtMouseButtons+extraButton12 = QtMouseButtons (16384)++extraButton13 :: QtMouseButtons+extraButton13 = QtMouseButtons (32768)++extraButton14 :: QtMouseButtons+extraButton14 = QtMouseButtons (65536)++extraButton15 :: QtMouseButtons+extraButton15 = QtMouseButtons (131072)++extraButton16 :: QtMouseButtons+extraButton16 = QtMouseButtons (262144)++extraButton17 :: QtMouseButtons+extraButton17 = QtMouseButtons (524288)++extraButton18 :: QtMouseButtons+extraButton18 = QtMouseButtons (1048576)++extraButton19 :: QtMouseButtons+extraButton19 = QtMouseButtons (2097152)++extraButton2 :: QtMouseButtons+extraButton2 = QtMouseButtons (16)++extraButton20 :: QtMouseButtons+extraButton20 = QtMouseButtons (4194304)++extraButton21 :: QtMouseButtons+extraButton21 = QtMouseButtons (8388608)++extraButton22 :: QtMouseButtons+extraButton22 = QtMouseButtons (16777216)++extraButton23 :: QtMouseButtons+extraButton23 = QtMouseButtons (33554432)++extraButton24 :: QtMouseButtons+extraButton24 = QtMouseButtons (67108864)++extraButton3 :: QtMouseButtons+extraButton3 = QtMouseButtons (32)++extraButton4 :: QtMouseButtons+extraButton4 = QtMouseButtons (64)++extraButton5 :: QtMouseButtons+extraButton5 = QtMouseButtons (128)++extraButton6 :: QtMouseButtons+extraButton6 = QtMouseButtons (256)++extraButton7 :: QtMouseButtons+extraButton7 = QtMouseButtons (512)++extraButton8 :: QtMouseButtons+extraButton8 = QtMouseButtons (1024)++extraButton9 :: QtMouseButtons+extraButton9 = QtMouseButtons (2048)++forwardButton :: QtMouseButtons+forwardButton = QtMouseButtons (16)++leftButton :: QtMouseButtons+leftButton = QtMouseButtons (1)++midButton :: QtMouseButtons+midButton = QtMouseButtons (4)++middleButton :: QtMouseButtons+middleButton = QtMouseButtons (4)++noButton :: QtMouseButtons+noButton = QtMouseButtons (0)++rightButton :: QtMouseButtons+rightButton = QtMouseButtons (2)++taskButton :: QtMouseButtons+taskButton = QtMouseButtons (32)++xButton1 :: QtMouseButtons+xButton1 = QtMouseButtons (8)++xButton2 :: QtMouseButtons+xButton2 = QtMouseButtons (16)++instance QtahDB.Bits QtMouseButtons where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtMouseEventFlag =+  MouseEventCreatedDoubleClick+  | UnknownQtMouseEventFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtMouseEventFlag where+  fromCppEnum MouseEventCreatedDoubleClick = 1+  fromCppEnum (UnknownQtMouseEventFlag n) = n+  +  toCppEnum (1) = MouseEventCreatedDoubleClick+  toCppEnum n = UnknownQtMouseEventFlag n++instance HoppyP.Eq QtMouseEventFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtMouseEventFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtMouseEventFlags = QtMouseEventFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtMouseEventFlag QtMouseEventFlags where+  enumToFlags = QtMouseEventFlags . QtahFHR.fromCppEnum+  flagsToEnum (QtMouseEventFlags x') = QtahFHR.toCppEnum x'++class IsQtMouseEventFlags a where+  toQtMouseEventFlags :: a -> QtMouseEventFlags++instance IsQtMouseEventFlags QtMouseEventFlags where toQtMouseEventFlags = QtahP.id+instance IsQtMouseEventFlags QtMouseEventFlag where toQtMouseEventFlags = QtahFlags.enumToFlags+instance IsQtMouseEventFlags (HoppyFC.CInt) where toQtMouseEventFlags = QtahFlags.numToFlags++mouseEventCreatedDoubleClick :: QtMouseEventFlags+mouseEventCreatedDoubleClick = QtMouseEventFlags (1)++instance QtahDB.Bits QtMouseEventFlags where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtMouseEventSource =+  MouseEventNotSynthesized+  | MouseEventSynthesizedBySystem+  | MouseEventSynthesizedByQt+  | UnknownQtMouseEventSource (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtMouseEventSource where+  fromCppEnum MouseEventNotSynthesized = 0+  fromCppEnum MouseEventSynthesizedBySystem = 1+  fromCppEnum MouseEventSynthesizedByQt = 2+  fromCppEnum (UnknownQtMouseEventSource n) = n+  +  toCppEnum (0) = MouseEventNotSynthesized+  toCppEnum (1) = MouseEventSynthesizedBySystem+  toCppEnum (2) = MouseEventSynthesizedByQt+  toCppEnum n = UnknownQtMouseEventSource n++instance HoppyP.Eq QtMouseEventSource where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtMouseEventSource where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtMsgType =+  QtDebugMsg+  | QtInfoMsg+  | QtWarningMsg+  | QtCriticalMsg+  | QtFatalMsg+  | QtSystemMsg+  | UnknownQtMsgType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtMsgType where+  fromCppEnum QtDebugMsg = 0+  fromCppEnum QtInfoMsg = 4+  fromCppEnum QtWarningMsg = 1+  fromCppEnum QtCriticalMsg = 2+  fromCppEnum QtFatalMsg = 3+  fromCppEnum QtSystemMsg = 2+  fromCppEnum (UnknownQtMsgType n) = n+  +  toCppEnum (0) = QtDebugMsg+  toCppEnum (1) = QtWarningMsg+  toCppEnum (2) = QtSystemMsg+  toCppEnum (3) = QtFatalMsg+  toCppEnum (4) = QtInfoMsg+  toCppEnum n = UnknownQtMsgType n++instance HoppyP.Eq QtMsgType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtMsgType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtNativeGestureType =+  BeginNativeGesture+  | EndNativeGesture+  | PanNativeGesture+  | ZoomNativeGesture+  | SmartZoomNativeGesture+  | RotateNativeGesture+  | SwipeNativeGesture+  | UnknownQtNativeGestureType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtNativeGestureType where+  fromCppEnum BeginNativeGesture = 0+  fromCppEnum EndNativeGesture = 1+  fromCppEnum PanNativeGesture = 2+  fromCppEnum ZoomNativeGesture = 3+  fromCppEnum SmartZoomNativeGesture = 4+  fromCppEnum RotateNativeGesture = 5+  fromCppEnum SwipeNativeGesture = 6+  fromCppEnum (UnknownQtNativeGestureType n) = n+  +  toCppEnum (0) = BeginNativeGesture+  toCppEnum (1) = EndNativeGesture+  toCppEnum (2) = PanNativeGesture+  toCppEnum (3) = ZoomNativeGesture+  toCppEnum (4) = SmartZoomNativeGesture+  toCppEnum (5) = RotateNativeGesture+  toCppEnum (6) = SwipeNativeGesture+  toCppEnum n = UnknownQtNativeGestureType n++instance HoppyP.Eq QtNativeGestureType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtNativeGestureType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtNavigationMode =+  NavigationModeNone+  | NavigationModeKeypadTabOrder+  | NavigationModeKeypadDirectional+  | NavigationModeCursorAuto+  | NavigationModeCursorForceVisible+  | UnknownQtNavigationMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtNavigationMode where+  fromCppEnum NavigationModeNone = 0+  fromCppEnum NavigationModeKeypadTabOrder = 1+  fromCppEnum NavigationModeKeypadDirectional = 2+  fromCppEnum NavigationModeCursorAuto = 3+  fromCppEnum NavigationModeCursorForceVisible = 4+  fromCppEnum (UnknownQtNavigationMode n) = n+  +  toCppEnum (0) = NavigationModeNone+  toCppEnum (1) = NavigationModeKeypadTabOrder+  toCppEnum (2) = NavigationModeKeypadDirectional+  toCppEnum (3) = NavigationModeCursorAuto+  toCppEnum (4) = NavigationModeCursorForceVisible+  toCppEnum n = UnknownQtNavigationMode n++instance HoppyP.Eq QtNavigationMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtNavigationMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtOrientation =+  Horizontal+  | Vertical+  | UnknownQtOrientation (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtOrientation where+  fromCppEnum Horizontal = 1+  fromCppEnum Vertical = 2+  fromCppEnum (UnknownQtOrientation n) = n+  +  toCppEnum (1) = Horizontal+  toCppEnum (2) = Vertical+  toCppEnum n = UnknownQtOrientation n++instance HoppyP.Eq QtOrientation where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtOrientation where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtOrientations = QtOrientations (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtOrientation QtOrientations where+  enumToFlags = QtOrientations . QtahFHR.fromCppEnum+  flagsToEnum (QtOrientations x') = QtahFHR.toCppEnum x'++class IsQtOrientations a where+  toQtOrientations :: a -> QtOrientations++instance IsQtOrientations QtOrientations where toQtOrientations = QtahP.id+instance IsQtOrientations QtOrientation where toQtOrientations = QtahFlags.enumToFlags+instance IsQtOrientations (HoppyFC.CInt) where toQtOrientations = QtahFlags.numToFlags++horizontal :: QtOrientations+horizontal = QtOrientations (1)++vertical :: QtOrientations+vertical = QtOrientations (2)++instance QtahDB.Bits QtOrientations where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtPenCapStyle =+  FlatCap+  | SquareCap+  | RoundCap+  | UnknownQtPenCapStyle (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtPenCapStyle where+  fromCppEnum FlatCap = 0+  fromCppEnum SquareCap = 16+  fromCppEnum RoundCap = 32+  fromCppEnum (UnknownQtPenCapStyle n) = n+  +  toCppEnum (0) = FlatCap+  toCppEnum (16) = SquareCap+  toCppEnum (32) = RoundCap+  toCppEnum n = UnknownQtPenCapStyle n++instance HoppyP.Eq QtPenCapStyle where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtPenCapStyle where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtPenJoinStyle =+  MiterJoin+  | BevelJoin+  | RoundJoin+  | SvgMiterJoin+  | UnknownQtPenJoinStyle (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtPenJoinStyle where+  fromCppEnum MiterJoin = 0+  fromCppEnum BevelJoin = 64+  fromCppEnum RoundJoin = 128+  fromCppEnum SvgMiterJoin = 256+  fromCppEnum (UnknownQtPenJoinStyle n) = n+  +  toCppEnum (0) = MiterJoin+  toCppEnum (64) = BevelJoin+  toCppEnum (128) = RoundJoin+  toCppEnum (256) = SvgMiterJoin+  toCppEnum n = UnknownQtPenJoinStyle n++instance HoppyP.Eq QtPenJoinStyle where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtPenJoinStyle where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtPenStyle =+  NoPen+  | SolidLine+  | DashLine+  | DotLine+  | DashDotLine+  | DashDotDotLine+  | CustomDashLine+  | UnknownQtPenStyle (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtPenStyle where+  fromCppEnum NoPen = 0+  fromCppEnum SolidLine = 1+  fromCppEnum DashLine = 2+  fromCppEnum DotLine = 3+  fromCppEnum DashDotLine = 4+  fromCppEnum DashDotDotLine = 5+  fromCppEnum CustomDashLine = 6+  fromCppEnum (UnknownQtPenStyle n) = n+  +  toCppEnum (0) = NoPen+  toCppEnum (1) = SolidLine+  toCppEnum (2) = DashLine+  toCppEnum (3) = DotLine+  toCppEnum (4) = DashDotLine+  toCppEnum (5) = DashDotDotLine+  toCppEnum (6) = CustomDashLine+  toCppEnum n = UnknownQtPenStyle n++instance HoppyP.Eq QtPenStyle where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtPenStyle where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtScreenOrientation =+  PrimaryOrientation+  | PortraitOrientation+  | LandscapeOrientation+  | InvertedPortraitOrientation+  | InvertedLandscapeOrientation+  | UnknownQtScreenOrientation (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtScreenOrientation where+  fromCppEnum PrimaryOrientation = 0+  fromCppEnum PortraitOrientation = 1+  fromCppEnum LandscapeOrientation = 2+  fromCppEnum InvertedPortraitOrientation = 4+  fromCppEnum InvertedLandscapeOrientation = 8+  fromCppEnum (UnknownQtScreenOrientation n) = n+  +  toCppEnum (0) = PrimaryOrientation+  toCppEnum (1) = PortraitOrientation+  toCppEnum (2) = LandscapeOrientation+  toCppEnum (4) = InvertedPortraitOrientation+  toCppEnum (8) = InvertedLandscapeOrientation+  toCppEnum n = UnknownQtScreenOrientation n++instance HoppyP.Eq QtScreenOrientation where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtScreenOrientation where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtScreenOrientations = QtScreenOrientations (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtScreenOrientation QtScreenOrientations where+  enumToFlags = QtScreenOrientations . QtahFHR.fromCppEnum+  flagsToEnum (QtScreenOrientations x') = QtahFHR.toCppEnum x'++class IsQtScreenOrientations a where+  toQtScreenOrientations :: a -> QtScreenOrientations++instance IsQtScreenOrientations QtScreenOrientations where toQtScreenOrientations = QtahP.id+instance IsQtScreenOrientations QtScreenOrientation where toQtScreenOrientations = QtahFlags.enumToFlags+instance IsQtScreenOrientations (HoppyFC.CInt) where toQtScreenOrientations = QtahFlags.numToFlags++invertedLandscapeOrientation :: QtScreenOrientations+invertedLandscapeOrientation = QtScreenOrientations (8)++invertedPortraitOrientation :: QtScreenOrientations+invertedPortraitOrientation = QtScreenOrientations (4)++landscapeOrientation :: QtScreenOrientations+landscapeOrientation = QtScreenOrientations (2)++portraitOrientation :: QtScreenOrientations+portraitOrientation = QtScreenOrientations (1)++primaryOrientation :: QtScreenOrientations+primaryOrientation = QtScreenOrientations (0)++instance QtahDB.Bits QtScreenOrientations where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtScrollBarPolicy =+  ScrollBarAsNeeded+  | ScrollBarAlwaysOff+  | ScrollBarAlwaysOn+  | UnknownQtScrollBarPolicy (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtScrollBarPolicy where+  fromCppEnum ScrollBarAsNeeded = 0+  fromCppEnum ScrollBarAlwaysOff = 1+  fromCppEnum ScrollBarAlwaysOn = 2+  fromCppEnum (UnknownQtScrollBarPolicy n) = n+  +  toCppEnum (0) = ScrollBarAsNeeded+  toCppEnum (1) = ScrollBarAlwaysOff+  toCppEnum (2) = ScrollBarAlwaysOn+  toCppEnum n = UnknownQtScrollBarPolicy n++instance HoppyP.Eq QtScrollBarPolicy where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtScrollBarPolicy where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtScrollPhase =+  ScrollBegin+  | ScrollUpdate+  | ScrollEnd+  | UnknownQtScrollPhase (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtScrollPhase where+  fromCppEnum ScrollBegin = 1+  fromCppEnum ScrollUpdate = 2+  fromCppEnum ScrollEnd = 3+  fromCppEnum (UnknownQtScrollPhase n) = n+  +  toCppEnum (1) = ScrollBegin+  toCppEnum (2) = ScrollUpdate+  toCppEnum (3) = ScrollEnd+  toCppEnum n = UnknownQtScrollPhase n++instance HoppyP.Eq QtScrollPhase where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtScrollPhase where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtShortcutContext =+  WidgetShortcut+  | WidgetWithChildrenShortcut+  | WindowShortcut+  | ApplicationShortcut+  | UnknownQtShortcutContext (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtShortcutContext where+  fromCppEnum WidgetShortcut = 0+  fromCppEnum WidgetWithChildrenShortcut = 3+  fromCppEnum WindowShortcut = 1+  fromCppEnum ApplicationShortcut = 2+  fromCppEnum (UnknownQtShortcutContext n) = n+  +  toCppEnum (0) = WidgetShortcut+  toCppEnum (1) = WindowShortcut+  toCppEnum (2) = ApplicationShortcut+  toCppEnum (3) = WidgetWithChildrenShortcut+  toCppEnum n = UnknownQtShortcutContext n++instance HoppyP.Eq QtShortcutContext where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtShortcutContext where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtSizeHint =+  MinimumSize+  | PreferredSize+  | MaximumSize+  | MinimumDescent+  | UnknownQtSizeHint (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtSizeHint where+  fromCppEnum MinimumSize = 0+  fromCppEnum PreferredSize = 1+  fromCppEnum MaximumSize = 2+  fromCppEnum MinimumDescent = 3+  fromCppEnum (UnknownQtSizeHint n) = n+  +  toCppEnum (0) = MinimumSize+  toCppEnum (1) = PreferredSize+  toCppEnum (2) = MaximumSize+  toCppEnum (3) = MinimumDescent+  toCppEnum n = UnknownQtSizeHint n++instance HoppyP.Eq QtSizeHint where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtSizeHint where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtSizeMode =+  AbsoluteSize+  | RelativeSize+  | UnknownQtSizeMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtSizeMode where+  fromCppEnum AbsoluteSize = 0+  fromCppEnum RelativeSize = 1+  fromCppEnum (UnknownQtSizeMode n) = n+  +  toCppEnum (0) = AbsoluteSize+  toCppEnum (1) = RelativeSize+  toCppEnum n = UnknownQtSizeMode n++instance HoppyP.Eq QtSizeMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtSizeMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtSortOrder =+  AscendingOrder+  | DescendingOrder+  | UnknownQtSortOrder (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtSortOrder where+  fromCppEnum AscendingOrder = 0+  fromCppEnum DescendingOrder = 1+  fromCppEnum (UnknownQtSortOrder n) = n+  +  toCppEnum (0) = AscendingOrder+  toCppEnum (1) = DescendingOrder+  toCppEnum n = UnknownQtSortOrder n++instance HoppyP.Eq QtSortOrder where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtSortOrder where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtTabFocusBehavior =+  NoTabFocus+  | TabFocusTextControls+  | TabFocusListControls+  | TabFocusAllControls+  | UnknownQtTabFocusBehavior (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTabFocusBehavior where+  fromCppEnum NoTabFocus = 0+  fromCppEnum TabFocusTextControls = 1+  fromCppEnum TabFocusListControls = 2+  fromCppEnum TabFocusAllControls = 255+  fromCppEnum (UnknownQtTabFocusBehavior n) = n+  +  toCppEnum (0) = NoTabFocus+  toCppEnum (1) = TabFocusTextControls+  toCppEnum (2) = TabFocusListControls+  toCppEnum (255) = TabFocusAllControls+  toCppEnum n = UnknownQtTabFocusBehavior n++instance HoppyP.Eq QtTabFocusBehavior where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtTabFocusBehavior where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtTextElideMode =+  ElideLeft+  | ElideRight+  | ElideMiddle+  | ElideNone+  | UnknownQtTextElideMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTextElideMode where+  fromCppEnum ElideLeft = 0+  fromCppEnum ElideRight = 1+  fromCppEnum ElideMiddle = 2+  fromCppEnum ElideNone = 3+  fromCppEnum (UnknownQtTextElideMode n) = n+  +  toCppEnum (0) = ElideLeft+  toCppEnum (1) = ElideRight+  toCppEnum (2) = ElideMiddle+  toCppEnum (3) = ElideNone+  toCppEnum n = UnknownQtTextElideMode n++instance HoppyP.Eq QtTextElideMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtTextElideMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtTextFlag =+  TextSingleLine+  | TextDontClip+  | TextExpandTabs+  | TextShowMnemonic+  | TextWordWrap+  | TextWrapAnywhere+  | TextHideMnemonic+  | TextDontPrint+  | TextIncludeTrailingSpaces+  | TextJustificationForced+  | UnknownQtTextFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTextFlag where+  fromCppEnum TextSingleLine = 256+  fromCppEnum TextDontClip = 512+  fromCppEnum TextExpandTabs = 1024+  fromCppEnum TextShowMnemonic = 2048+  fromCppEnum TextWordWrap = 4096+  fromCppEnum TextWrapAnywhere = 8192+  fromCppEnum TextHideMnemonic = 32768+  fromCppEnum TextDontPrint = 16384+  fromCppEnum TextIncludeTrailingSpaces = 134217728+  fromCppEnum TextJustificationForced = 65536+  fromCppEnum (UnknownQtTextFlag n) = n+  +  toCppEnum (256) = TextSingleLine+  toCppEnum (512) = TextDontClip+  toCppEnum (1024) = TextExpandTabs+  toCppEnum (2048) = TextShowMnemonic+  toCppEnum (4096) = TextWordWrap+  toCppEnum (8192) = TextWrapAnywhere+  toCppEnum (16384) = TextDontPrint+  toCppEnum (32768) = TextHideMnemonic+  toCppEnum (65536) = TextJustificationForced+  toCppEnum (134217728) = TextIncludeTrailingSpaces+  toCppEnum n = UnknownQtTextFlag n++instance HoppyP.Eq QtTextFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtTextFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtTextFormat =+  PlainText+  | RichText+  | AutoText+  | UnknownQtTextFormat (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTextFormat where+  fromCppEnum PlainText = 0+  fromCppEnum RichText = 1+  fromCppEnum AutoText = 2+  fromCppEnum (UnknownQtTextFormat n) = n+  +  toCppEnum (0) = PlainText+  toCppEnum (1) = RichText+  toCppEnum (2) = AutoText+  toCppEnum n = UnknownQtTextFormat n++instance HoppyP.Eq QtTextFormat where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtTextFormat where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtTextInteractionFlag =+  NoTextInteraction+  | TextSelectableByMouse+  | TextSelectableByKeyboard+  | LinksAccessibleByMouse+  | LinksAccessibleByKeyboard+  | TextEditable+  | TextEditorInteraction+  | TextBrowserInteraction+  | UnknownQtTextInteractionFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTextInteractionFlag where+  fromCppEnum NoTextInteraction = 0+  fromCppEnum TextSelectableByMouse = 1+  fromCppEnum TextSelectableByKeyboard = 2+  fromCppEnum LinksAccessibleByMouse = 4+  fromCppEnum LinksAccessibleByKeyboard = 8+  fromCppEnum TextEditable = 16+  fromCppEnum TextEditorInteraction = 19+  fromCppEnum TextBrowserInteraction = 13+  fromCppEnum (UnknownQtTextInteractionFlag n) = n+  +  toCppEnum (0) = NoTextInteraction+  toCppEnum (1) = TextSelectableByMouse+  toCppEnum (2) = TextSelectableByKeyboard+  toCppEnum (4) = LinksAccessibleByMouse+  toCppEnum (8) = LinksAccessibleByKeyboard+  toCppEnum (13) = TextBrowserInteraction+  toCppEnum (16) = TextEditable+  toCppEnum (19) = TextEditorInteraction+  toCppEnum n = UnknownQtTextInteractionFlag n++instance HoppyP.Eq QtTextInteractionFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtTextInteractionFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtTextInteractionFlags = QtTextInteractionFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtTextInteractionFlag QtTextInteractionFlags where+  enumToFlags = QtTextInteractionFlags . QtahFHR.fromCppEnum+  flagsToEnum (QtTextInteractionFlags x') = QtahFHR.toCppEnum x'++class IsQtTextInteractionFlags a where+  toQtTextInteractionFlags :: a -> QtTextInteractionFlags++instance IsQtTextInteractionFlags QtTextInteractionFlags where toQtTextInteractionFlags = QtahP.id+instance IsQtTextInteractionFlags QtTextInteractionFlag where toQtTextInteractionFlags = QtahFlags.enumToFlags+instance IsQtTextInteractionFlags (HoppyFC.CInt) where toQtTextInteractionFlags = QtahFlags.numToFlags++linksAccessibleByKeyboard :: QtTextInteractionFlags+linksAccessibleByKeyboard = QtTextInteractionFlags (8)++linksAccessibleByMouse :: QtTextInteractionFlags+linksAccessibleByMouse = QtTextInteractionFlags (4)++noTextInteraction :: QtTextInteractionFlags+noTextInteraction = QtTextInteractionFlags (0)++textBrowserInteraction :: QtTextInteractionFlags+textBrowserInteraction = QtTextInteractionFlags (13)++textEditable :: QtTextInteractionFlags+textEditable = QtTextInteractionFlags (16)++textEditorInteraction :: QtTextInteractionFlags+textEditorInteraction = QtTextInteractionFlags (19)++textSelectableByKeyboard :: QtTextInteractionFlags+textSelectableByKeyboard = QtTextInteractionFlags (2)++textSelectableByMouse :: QtTextInteractionFlags+textSelectableByMouse = QtTextInteractionFlags (1)++instance QtahDB.Bits QtTextInteractionFlags where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtTileRule =+  StretchTile+  | RepeatTile+  | RoundTile+  | UnknownQtTileRule (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTileRule where+  fromCppEnum StretchTile = 0+  fromCppEnum RepeatTile = 1+  fromCppEnum RoundTile = 2+  fromCppEnum (UnknownQtTileRule n) = n+  +  toCppEnum (0) = StretchTile+  toCppEnum (1) = RepeatTile+  toCppEnum (2) = RoundTile+  toCppEnum n = UnknownQtTileRule n++instance HoppyP.Eq QtTileRule where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtTileRule where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtTimeSpec =+  LocalTime+  | Utc+  | OffsetFromUtc+  | TimeZone+  | UnknownQtTimeSpec (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTimeSpec where+  fromCppEnum LocalTime = 0+  fromCppEnum Utc = 1+  fromCppEnum OffsetFromUtc = 2+  fromCppEnum TimeZone = 3+  fromCppEnum (UnknownQtTimeSpec n) = n+  +  toCppEnum (0) = LocalTime+  toCppEnum (1) = Utc+  toCppEnum (2) = OffsetFromUtc+  toCppEnum (3) = TimeZone+  toCppEnum n = UnknownQtTimeSpec n++instance HoppyP.Eq QtTimeSpec where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtTimeSpec where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtTimerType =+  PreciseTimer+  | CoarseTimer+  | VeryCoarseTimer+  | UnknownQtTimerType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTimerType where+  fromCppEnum PreciseTimer = 0+  fromCppEnum CoarseTimer = 1+  fromCppEnum VeryCoarseTimer = 2+  fromCppEnum (UnknownQtTimerType n) = n+  +  toCppEnum (0) = PreciseTimer+  toCppEnum (1) = CoarseTimer+  toCppEnum (2) = VeryCoarseTimer+  toCppEnum n = UnknownQtTimerType n++instance HoppyP.Eq QtTimerType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtTimerType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtToolBarArea =+  NoToolBarArea+  | LeftToolBarArea+  | RightToolBarArea+  | TopToolBarArea+  | BottomToolBarArea+  | AllToolBarAreas+  | UnknownQtToolBarArea (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtToolBarArea where+  fromCppEnum NoToolBarArea = 0+  fromCppEnum LeftToolBarArea = 1+  fromCppEnum RightToolBarArea = 2+  fromCppEnum TopToolBarArea = 4+  fromCppEnum BottomToolBarArea = 8+  fromCppEnum AllToolBarAreas = 15+  fromCppEnum (UnknownQtToolBarArea n) = n+  +  toCppEnum (0) = NoToolBarArea+  toCppEnum (1) = LeftToolBarArea+  toCppEnum (2) = RightToolBarArea+  toCppEnum (4) = TopToolBarArea+  toCppEnum (8) = BottomToolBarArea+  toCppEnum (15) = AllToolBarAreas+  toCppEnum n = UnknownQtToolBarArea n++instance HoppyP.Eq QtToolBarArea where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtToolBarArea where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtToolBarAreas = QtToolBarAreas (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtToolBarArea QtToolBarAreas where+  enumToFlags = QtToolBarAreas . QtahFHR.fromCppEnum+  flagsToEnum (QtToolBarAreas x') = QtahFHR.toCppEnum x'++class IsQtToolBarAreas a where+  toQtToolBarAreas :: a -> QtToolBarAreas++instance IsQtToolBarAreas QtToolBarAreas where toQtToolBarAreas = QtahP.id+instance IsQtToolBarAreas QtToolBarArea where toQtToolBarAreas = QtahFlags.enumToFlags+instance IsQtToolBarAreas (HoppyFC.CInt) where toQtToolBarAreas = QtahFlags.numToFlags++allToolBarAreas :: QtToolBarAreas+allToolBarAreas = QtToolBarAreas (15)++bottomToolBarArea :: QtToolBarAreas+bottomToolBarArea = QtToolBarAreas (8)++leftToolBarArea :: QtToolBarAreas+leftToolBarArea = QtToolBarAreas (1)++noToolBarArea :: QtToolBarAreas+noToolBarArea = QtToolBarAreas (0)++rightToolBarArea :: QtToolBarAreas+rightToolBarArea = QtToolBarAreas (2)++topToolBarArea :: QtToolBarAreas+topToolBarArea = QtToolBarAreas (4)++instance QtahDB.Bits QtToolBarAreas where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtToolButtonStyle =+  ToolButtonIconOnly+  | ToolButtonTextOnly+  | ToolButtonTextBesideIcon+  | ToolButtonTextUnderIcon+  | ToolButtonFollowStyle+  | UnknownQtToolButtonStyle (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtToolButtonStyle where+  fromCppEnum ToolButtonIconOnly = 0+  fromCppEnum ToolButtonTextOnly = 1+  fromCppEnum ToolButtonTextBesideIcon = 2+  fromCppEnum ToolButtonTextUnderIcon = 3+  fromCppEnum ToolButtonFollowStyle = 4+  fromCppEnum (UnknownQtToolButtonStyle n) = n+  +  toCppEnum (0) = ToolButtonIconOnly+  toCppEnum (1) = ToolButtonTextOnly+  toCppEnum (2) = ToolButtonTextBesideIcon+  toCppEnum (3) = ToolButtonTextUnderIcon+  toCppEnum (4) = ToolButtonFollowStyle+  toCppEnum n = UnknownQtToolButtonStyle n++instance HoppyP.Eq QtToolButtonStyle where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtToolButtonStyle where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtTouchPointState =+  TouchPointPressed+  | TouchPointMoved+  | TouchPointStationary+  | TouchPointReleased+  | UnknownQtTouchPointState (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTouchPointState where+  fromCppEnum TouchPointPressed = 1+  fromCppEnum TouchPointMoved = 2+  fromCppEnum TouchPointStationary = 4+  fromCppEnum TouchPointReleased = 8+  fromCppEnum (UnknownQtTouchPointState n) = n+  +  toCppEnum (1) = TouchPointPressed+  toCppEnum (2) = TouchPointMoved+  toCppEnum (4) = TouchPointStationary+  toCppEnum (8) = TouchPointReleased+  toCppEnum n = UnknownQtTouchPointState n++instance HoppyP.Eq QtTouchPointState where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtTouchPointState where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtTouchPointStates = QtTouchPointStates (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtTouchPointState QtTouchPointStates where+  enumToFlags = QtTouchPointStates . QtahFHR.fromCppEnum+  flagsToEnum (QtTouchPointStates x') = QtahFHR.toCppEnum x'++class IsQtTouchPointStates a where+  toQtTouchPointStates :: a -> QtTouchPointStates++instance IsQtTouchPointStates QtTouchPointStates where toQtTouchPointStates = QtahP.id+instance IsQtTouchPointStates QtTouchPointState where toQtTouchPointStates = QtahFlags.enumToFlags+instance IsQtTouchPointStates (HoppyFC.CInt) where toQtTouchPointStates = QtahFlags.numToFlags++touchPointMoved :: QtTouchPointStates+touchPointMoved = QtTouchPointStates (2)++touchPointPressed :: QtTouchPointStates+touchPointPressed = QtTouchPointStates (1)++touchPointReleased :: QtTouchPointStates+touchPointReleased = QtTouchPointStates (8)++touchPointStationary :: QtTouchPointStates+touchPointStationary = QtTouchPointStates (4)++instance QtahDB.Bits QtTouchPointStates where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtTransformationMode =+  FastTransformation+  | SmoothTransformation+  | UnknownQtTransformationMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtTransformationMode where+  fromCppEnum FastTransformation = 0+  fromCppEnum SmoothTransformation = 1+  fromCppEnum (UnknownQtTransformationMode n) = n+  +  toCppEnum (0) = FastTransformation+  toCppEnum (1) = SmoothTransformation+  toCppEnum n = UnknownQtTransformationMode n++instance HoppyP.Eq QtTransformationMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtTransformationMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtUIEffect =+  UiAnimateMenu+  | UiFadeMenu+  | UiAnimateCombo+  | UiAnimateTooltip+  | UiFadeTooltip+  | UiAnimateToolBox+  | UnknownQtUiEffect (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtUIEffect where+  fromCppEnum UiAnimateMenu = 1+  fromCppEnum UiFadeMenu = 2+  fromCppEnum UiAnimateCombo = 3+  fromCppEnum UiAnimateTooltip = 4+  fromCppEnum UiFadeTooltip = 5+  fromCppEnum UiAnimateToolBox = 6+  fromCppEnum (UnknownQtUiEffect n) = n+  +  toCppEnum (1) = UiAnimateMenu+  toCppEnum (2) = UiFadeMenu+  toCppEnum (3) = UiAnimateCombo+  toCppEnum (4) = UiAnimateTooltip+  toCppEnum (5) = UiFadeTooltip+  toCppEnum (6) = UiAnimateToolBox+  toCppEnum n = UnknownQtUiEffect n++instance HoppyP.Eq QtUIEffect where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtUIEffect where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtWhiteSpaceMode =+  WhiteSpaceNormal+  | WhiteSpacePre+  | WhiteSpaceNoWrap+  | UnknownQtWhiteSpaceMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtWhiteSpaceMode where+  fromCppEnum WhiteSpaceNormal = 0+  fromCppEnum WhiteSpacePre = 1+  fromCppEnum WhiteSpaceNoWrap = 2+  fromCppEnum (UnknownQtWhiteSpaceMode n) = n+  +  toCppEnum (0) = WhiteSpaceNormal+  toCppEnum (1) = WhiteSpacePre+  toCppEnum (2) = WhiteSpaceNoWrap+  toCppEnum n = UnknownQtWhiteSpaceMode n++instance HoppyP.Eq QtWhiteSpaceMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtWhiteSpaceMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtWidgetAttribute =+  WaAcceptDrops+  | WaAlwaysShowToolTips+  | WaContentsPropagated+  | WaCustomWhatsThis+  | WaDeleteOnClose+  | WaDisabled+  | WaDontShowOnScreen+  | WaForceDisabled+  | WaForceUpdatesDisabled+  | WaGroupLeader+  | WaHover+  | WaInputMethodEnabled+  | WaKeyboardFocusChange+  | WaKeyCompression+  | WaLayoutOnEntireRect+  | WaLayoutUsesWidgetRect+  | WaMacNoClickThrough+  | WaMacOpaqueSizeGrip+  | WaMacShowFocusRect+  | WaMacNormalSize+  | WaMacSmallSize+  | WaMacMiniSize+  | WaMacVariableSize+  | WaMacBrushedMetal+  | WaMapped+  | WaMouseNoMask+  | WaMouseTracking+  | WaMoved+  | WaMsWindowsUseDirect3D+  | WaNoChildEventsForParent+  | WaNoChildEventsFromChildren+  | WaNoMouseReplay+  | WaNoMousePropagation+  | WaTransparentForMouseEvents+  | WaNoSystemBackground+  | WaOpaquePaintEvent+  | WaOutsideWsRange+  | WaPaintOnScreen+  | WaPaintUnclipped+  | WaPendingMoveEvent+  | WaPendingResizeEvent+  | WaQuitOnClose+  | WaResized+  | WaRightToLeft+  | WaSetCursor+  | WaSetFont+  | WaSetPalette+  | WaSetStyle+  | WaShowModal+  | WaStaticContents+  | WaStyleSheet+  | WaStyleSheetTarget+  | WaTabletTracking+  | WaTranslucentBackground+  | WaUnderMouse+  | WaUpdatesDisabled+  | WaWindowModified+  | WaWindowPropagation+  | WaMacAlwaysShowToolWindow+  | WaSetLocale+  | WaStyledBackground+  | WaShowWithoutActivating+  | WaNativeWindow+  | WaDontCreateNativeAncestors+  | WaX11NetWmWindowTypeDesktop+  | WaX11NetWmWindowTypeDock+  | WaX11NetWmWindowTypeToolBar+  | WaX11NetWmWindowTypeMenu+  | WaX11NetWmWindowTypeUtility+  | WaX11NetWmWindowTypeSplash+  | WaX11NetWmWindowTypeDialog+  | WaX11NetWmWindowTypeDropDownMenu+  | WaX11NetWmWindowTypePopupMenu+  | WaX11NetWmWindowTypeToolTip+  | WaX11NetWmWindowTypeNotification+  | WaX11NetWmWindowTypeCombo+  | WaX11NetWmWindowTypeDnd+  | WaMacFrameworkScaled+  | WaAcceptTouchEvents+  | WaTouchPadAcceptSingleTouchEvents+  | WaX11DoNotAcceptFocus+  | WaAlwaysStackOnTop+  | WaContentsMarginsRespectsSafeArea+  | UnknownQtWidgetAttribute (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtWidgetAttribute where+  fromCppEnum WaAcceptDrops = 78+  fromCppEnum WaAlwaysShowToolTips = 84+  fromCppEnum WaContentsPropagated = 3+  fromCppEnum WaCustomWhatsThis = 47+  fromCppEnum WaDeleteOnClose = 55+  fromCppEnum WaDisabled = 0+  fromCppEnum WaDontShowOnScreen = 103+  fromCppEnum WaForceDisabled = 32+  fromCppEnum WaForceUpdatesDisabled = 59+  fromCppEnum WaGroupLeader = 72+  fromCppEnum WaHover = 74+  fromCppEnum WaInputMethodEnabled = 14+  fromCppEnum WaKeyboardFocusChange = 77+  fromCppEnum WaKeyCompression = 33+  fromCppEnum WaLayoutOnEntireRect = 48+  fromCppEnum WaLayoutUsesWidgetRect = 92+  fromCppEnum WaMacNoClickThrough = 12+  fromCppEnum WaMacOpaqueSizeGrip = 85+  fromCppEnum WaMacShowFocusRect = 88+  fromCppEnum WaMacNormalSize = 89+  fromCppEnum WaMacSmallSize = 90+  fromCppEnum WaMacMiniSize = 91+  fromCppEnum WaMacVariableSize = 102+  fromCppEnum WaMacBrushedMetal = 46+  fromCppEnum WaMapped = 11+  fromCppEnum WaMouseNoMask = 71+  fromCppEnum WaMouseTracking = 2+  fromCppEnum WaMoved = 43+  fromCppEnum WaMsWindowsUseDirect3D = 94+  fromCppEnum WaNoChildEventsForParent = 58+  fromCppEnum WaNoChildEventsFromChildren = 39+  fromCppEnum WaNoMouseReplay = 54+  fromCppEnum WaNoMousePropagation = 73+  fromCppEnum WaTransparentForMouseEvents = 51+  fromCppEnum WaNoSystemBackground = 9+  fromCppEnum WaOpaquePaintEvent = 4+  fromCppEnum WaOutsideWsRange = 49+  fromCppEnum WaPaintOnScreen = 8+  fromCppEnum WaPaintUnclipped = 52+  fromCppEnum WaPendingMoveEvent = 34+  fromCppEnum WaPendingResizeEvent = 35+  fromCppEnum WaQuitOnClose = 76+  fromCppEnum WaResized = 42+  fromCppEnum WaRightToLeft = 56+  fromCppEnum WaSetCursor = 38+  fromCppEnum WaSetFont = 37+  fromCppEnum WaSetPalette = 36+  fromCppEnum WaSetStyle = 86+  fromCppEnum WaShowModal = 70+  fromCppEnum WaStaticContents = 5+  fromCppEnum WaStyleSheet = 97+  fromCppEnum WaStyleSheetTarget = 131+  fromCppEnum WaTabletTracking = 129+  fromCppEnum WaTranslucentBackground = 120+  fromCppEnum WaUnderMouse = 1+  fromCppEnum WaUpdatesDisabled = 10+  fromCppEnum WaWindowModified = 41+  fromCppEnum WaWindowPropagation = 80+  fromCppEnum WaMacAlwaysShowToolWindow = 96+  fromCppEnum WaSetLocale = 87+  fromCppEnum WaStyledBackground = 93+  fromCppEnum WaShowWithoutActivating = 98+  fromCppEnum WaNativeWindow = 100+  fromCppEnum WaDontCreateNativeAncestors = 101+  fromCppEnum WaX11NetWmWindowTypeDesktop = 104+  fromCppEnum WaX11NetWmWindowTypeDock = 105+  fromCppEnum WaX11NetWmWindowTypeToolBar = 106+  fromCppEnum WaX11NetWmWindowTypeMenu = 107+  fromCppEnum WaX11NetWmWindowTypeUtility = 108+  fromCppEnum WaX11NetWmWindowTypeSplash = 109+  fromCppEnum WaX11NetWmWindowTypeDialog = 110+  fromCppEnum WaX11NetWmWindowTypeDropDownMenu = 111+  fromCppEnum WaX11NetWmWindowTypePopupMenu = 112+  fromCppEnum WaX11NetWmWindowTypeToolTip = 113+  fromCppEnum WaX11NetWmWindowTypeNotification = 114+  fromCppEnum WaX11NetWmWindowTypeCombo = 115+  fromCppEnum WaX11NetWmWindowTypeDnd = 116+  fromCppEnum WaMacFrameworkScaled = 117+  fromCppEnum WaAcceptTouchEvents = 121+  fromCppEnum WaTouchPadAcceptSingleTouchEvents = 123+  fromCppEnum WaX11DoNotAcceptFocus = 126+  fromCppEnum WaAlwaysStackOnTop = 128+  fromCppEnum WaContentsMarginsRespectsSafeArea = 130+  fromCppEnum (UnknownQtWidgetAttribute n) = n+  +  toCppEnum (0) = WaDisabled+  toCppEnum (1) = WaUnderMouse+  toCppEnum (2) = WaMouseTracking+  toCppEnum (3) = WaContentsPropagated+  toCppEnum (4) = WaOpaquePaintEvent+  toCppEnum (5) = WaStaticContents+  toCppEnum (8) = WaPaintOnScreen+  toCppEnum (9) = WaNoSystemBackground+  toCppEnum (10) = WaUpdatesDisabled+  toCppEnum (11) = WaMapped+  toCppEnum (12) = WaMacNoClickThrough+  toCppEnum (14) = WaInputMethodEnabled+  toCppEnum (32) = WaForceDisabled+  toCppEnum (33) = WaKeyCompression+  toCppEnum (34) = WaPendingMoveEvent+  toCppEnum (35) = WaPendingResizeEvent+  toCppEnum (36) = WaSetPalette+  toCppEnum (37) = WaSetFont+  toCppEnum (38) = WaSetCursor+  toCppEnum (39) = WaNoChildEventsFromChildren+  toCppEnum (41) = WaWindowModified+  toCppEnum (42) = WaResized+  toCppEnum (43) = WaMoved+  toCppEnum (46) = WaMacBrushedMetal+  toCppEnum (47) = WaCustomWhatsThis+  toCppEnum (48) = WaLayoutOnEntireRect+  toCppEnum (49) = WaOutsideWsRange+  toCppEnum (51) = WaTransparentForMouseEvents+  toCppEnum (52) = WaPaintUnclipped+  toCppEnum (54) = WaNoMouseReplay+  toCppEnum (55) = WaDeleteOnClose+  toCppEnum (56) = WaRightToLeft+  toCppEnum (58) = WaNoChildEventsForParent+  toCppEnum (59) = WaForceUpdatesDisabled+  toCppEnum (70) = WaShowModal+  toCppEnum (71) = WaMouseNoMask+  toCppEnum (72) = WaGroupLeader+  toCppEnum (73) = WaNoMousePropagation+  toCppEnum (74) = WaHover+  toCppEnum (76) = WaQuitOnClose+  toCppEnum (77) = WaKeyboardFocusChange+  toCppEnum (78) = WaAcceptDrops+  toCppEnum (80) = WaWindowPropagation+  toCppEnum (84) = WaAlwaysShowToolTips+  toCppEnum (85) = WaMacOpaqueSizeGrip+  toCppEnum (86) = WaSetStyle+  toCppEnum (87) = WaSetLocale+  toCppEnum (88) = WaMacShowFocusRect+  toCppEnum (89) = WaMacNormalSize+  toCppEnum (90) = WaMacSmallSize+  toCppEnum (91) = WaMacMiniSize+  toCppEnum (92) = WaLayoutUsesWidgetRect+  toCppEnum (93) = WaStyledBackground+  toCppEnum (94) = WaMsWindowsUseDirect3D+  toCppEnum (96) = WaMacAlwaysShowToolWindow+  toCppEnum (97) = WaStyleSheet+  toCppEnum (98) = WaShowWithoutActivating+  toCppEnum (100) = WaNativeWindow+  toCppEnum (101) = WaDontCreateNativeAncestors+  toCppEnum (102) = WaMacVariableSize+  toCppEnum (103) = WaDontShowOnScreen+  toCppEnum (104) = WaX11NetWmWindowTypeDesktop+  toCppEnum (105) = WaX11NetWmWindowTypeDock+  toCppEnum (106) = WaX11NetWmWindowTypeToolBar+  toCppEnum (107) = WaX11NetWmWindowTypeMenu+  toCppEnum (108) = WaX11NetWmWindowTypeUtility+  toCppEnum (109) = WaX11NetWmWindowTypeSplash+  toCppEnum (110) = WaX11NetWmWindowTypeDialog+  toCppEnum (111) = WaX11NetWmWindowTypeDropDownMenu+  toCppEnum (112) = WaX11NetWmWindowTypePopupMenu+  toCppEnum (113) = WaX11NetWmWindowTypeToolTip+  toCppEnum (114) = WaX11NetWmWindowTypeNotification+  toCppEnum (115) = WaX11NetWmWindowTypeCombo+  toCppEnum (116) = WaX11NetWmWindowTypeDnd+  toCppEnum (117) = WaMacFrameworkScaled+  toCppEnum (120) = WaTranslucentBackground+  toCppEnum (121) = WaAcceptTouchEvents+  toCppEnum (123) = WaTouchPadAcceptSingleTouchEvents+  toCppEnum (126) = WaX11DoNotAcceptFocus+  toCppEnum (128) = WaAlwaysStackOnTop+  toCppEnum (129) = WaTabletTracking+  toCppEnum (130) = WaContentsMarginsRespectsSafeArea+  toCppEnum (131) = WaStyleSheetTarget+  toCppEnum n = UnknownQtWidgetAttribute n++instance HoppyP.Eq QtWidgetAttribute where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtWidgetAttribute where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtWindowFlags = QtWindowFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtWindowType QtWindowFlags where+  enumToFlags = QtWindowFlags . QtahFHR.fromCppEnum+  flagsToEnum (QtWindowFlags x') = QtahFHR.toCppEnum x'++class IsQtWindowFlags a where+  toQtWindowFlags :: a -> QtWindowFlags++instance IsQtWindowFlags QtWindowFlags where toQtWindowFlags = QtahP.id+instance IsQtWindowFlags QtWindowType where toQtWindowFlags = QtahFlags.enumToFlags+instance IsQtWindowFlags (HoppyFC.CInt) where toQtWindowFlags = QtahFlags.numToFlags++coverWindow :: QtWindowFlags+coverWindow = QtWindowFlags (65)++desktop :: QtWindowFlags+desktop = QtWindowFlags (17)++dialog :: QtWindowFlags+dialog = QtWindowFlags (3)++drawer :: QtWindowFlags+drawer = QtWindowFlags (7)++foreignWindow :: QtWindowFlags+foreignWindow = QtWindowFlags (33)++popup :: QtWindowFlags+popup = QtWindowFlags (9)++sheet :: QtWindowFlags+sheet = QtWindowFlags (5)++splashScreen :: QtWindowFlags+splashScreen = QtWindowFlags (15)++subWindow :: QtWindowFlags+subWindow = QtWindowFlags (18)++tool :: QtWindowFlags+tool = QtWindowFlags (11)++toolTip :: QtWindowFlags+toolTip = QtWindowFlags (13)++widget :: QtWindowFlags+widget = QtWindowFlags (0)++window :: QtWindowFlags+window = QtWindowFlags (1)++instance QtahDB.Bits QtWindowFlags where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtWindowFrameSection =+  NoSection+  | LeftSection+  | TopLeftSection+  | TopSection+  | TopRightSection+  | RightSection+  | BottomRightSection+  | BottomSection+  | BottomLeftSection+  | TitleBarArea+  | UnknownQtWindowFrameSection (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtWindowFrameSection where+  fromCppEnum NoSection = 0+  fromCppEnum LeftSection = 1+  fromCppEnum TopLeftSection = 2+  fromCppEnum TopSection = 3+  fromCppEnum TopRightSection = 4+  fromCppEnum RightSection = 5+  fromCppEnum BottomRightSection = 6+  fromCppEnum BottomSection = 7+  fromCppEnum BottomLeftSection = 8+  fromCppEnum TitleBarArea = 9+  fromCppEnum (UnknownQtWindowFrameSection n) = n+  +  toCppEnum (0) = NoSection+  toCppEnum (1) = LeftSection+  toCppEnum (2) = TopLeftSection+  toCppEnum (3) = TopSection+  toCppEnum (4) = TopRightSection+  toCppEnum (5) = RightSection+  toCppEnum (6) = BottomRightSection+  toCppEnum (7) = BottomSection+  toCppEnum (8) = BottomLeftSection+  toCppEnum (9) = TitleBarArea+  toCppEnum n = UnknownQtWindowFrameSection n++instance HoppyP.Eq QtWindowFrameSection where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtWindowFrameSection where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtWindowModality =+  NonModal+  | WindowModal+  | ApplicationModal+  | UnknownQtWindowModality (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtWindowModality where+  fromCppEnum NonModal = 0+  fromCppEnum WindowModal = 1+  fromCppEnum ApplicationModal = 2+  fromCppEnum (UnknownQtWindowModality n) = n+  +  toCppEnum (0) = NonModal+  toCppEnum (1) = WindowModal+  toCppEnum (2) = ApplicationModal+  toCppEnum n = UnknownQtWindowModality n++instance HoppyP.Eq QtWindowModality where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtWindowModality where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QtWindowState =+  WindowNoState+  | WindowMinimized+  | WindowMaximized+  | WindowFullScreen+  | WindowActive+  | UnknownQtWindowState (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtWindowState where+  fromCppEnum WindowNoState = 0+  fromCppEnum WindowMinimized = 1+  fromCppEnum WindowMaximized = 2+  fromCppEnum WindowFullScreen = 4+  fromCppEnum WindowActive = 8+  fromCppEnum (UnknownQtWindowState n) = n+  +  toCppEnum (0) = WindowNoState+  toCppEnum (1) = WindowMinimized+  toCppEnum (2) = WindowMaximized+  toCppEnum (4) = WindowFullScreen+  toCppEnum (8) = WindowActive+  toCppEnum n = UnknownQtWindowState n++instance HoppyP.Eq QtWindowState where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtWindowState where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QtWindowStates = QtWindowStates (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QtWindowState QtWindowStates where+  enumToFlags = QtWindowStates . QtahFHR.fromCppEnum+  flagsToEnum (QtWindowStates x') = QtahFHR.toCppEnum x'++class IsQtWindowStates a where+  toQtWindowStates :: a -> QtWindowStates++instance IsQtWindowStates QtWindowStates where toQtWindowStates = QtahP.id+instance IsQtWindowStates QtWindowState where toQtWindowStates = QtahFlags.enumToFlags+instance IsQtWindowStates (HoppyFC.CInt) where toQtWindowStates = QtahFlags.numToFlags++windowActive :: QtWindowStates+windowActive = QtWindowStates (8)++windowFullScreen :: QtWindowStates+windowFullScreen = QtWindowStates (4)++windowMaximized :: QtWindowStates+windowMaximized = QtWindowStates (2)++windowMinimized :: QtWindowStates+windowMinimized = QtWindowStates (1)++windowNoState :: QtWindowStates+windowNoState = QtWindowStates (0)++instance QtahDB.Bits QtWindowStates where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QtWindowType =+  Widget+  | Window+  | Dialog+  | Sheet+  | Drawer+  | Popup+  | Tool+  | ToolTip+  | SplashScreen+  | Desktop+  | SubWindow+  | ForeignWindow+  | CoverWindow+  | UnknownQtWindowType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QtWindowType where+  fromCppEnum Widget = 0+  fromCppEnum Window = 1+  fromCppEnum Dialog = 3+  fromCppEnum Sheet = 5+  fromCppEnum Drawer = 7+  fromCppEnum Popup = 9+  fromCppEnum Tool = 11+  fromCppEnum ToolTip = 13+  fromCppEnum SplashScreen = 15+  fromCppEnum Desktop = 17+  fromCppEnum SubWindow = 18+  fromCppEnum ForeignWindow = 33+  fromCppEnum CoverWindow = 65+  fromCppEnum (UnknownQtWindowType n) = n+  +  toCppEnum (0) = Widget+  toCppEnum (1) = Window+  toCppEnum (3) = Dialog+  toCppEnum (5) = Sheet+  toCppEnum (7) = Drawer+  toCppEnum (9) = Popup+  toCppEnum (11) = Tool+  toCppEnum (13) = ToolTip+  toCppEnum (15) = SplashScreen+  toCppEnum (17) = Desktop+  toCppEnum (18) = SubWindow+  toCppEnum (33) = ForeignWindow+  toCppEnum (65) = CoverWindow+  toCppEnum n = UnknownQtWindowType n++instance HoppyP.Eq QtWindowType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QtWindowType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Gui/QActionEvent.hs view
@@ -0,0 +1,193 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QActionEvent (+  castQActionEventToQEvent,+  castQEventToQActionEvent,+  QActionEventValue (..),+  QActionEventConstPtr (..),+  action,+  before,+  QActionEventPtr (..),+  QActionEventConst (..),+  castQActionEventToConst,+  QActionEvent (..),+  castQActionEventToNonconst,+  new,+  newBefore,+  QActionEventSuper (..),+  QActionEventSuperConst (..),+  ) 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.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Widgets.QAction as M368+import Prelude (($), (.), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QActionEvent_new" new' ::  HoppyFC.CInt -> HoppyF.Ptr M368.QAction -> HoppyP.IO (HoppyF.Ptr QActionEvent)+foreign import ccall "genpop__QActionEvent_newBefore" newBefore' ::  HoppyFC.CInt -> HoppyF.Ptr M368.QAction -> HoppyP.IO (HoppyF.Ptr QActionEvent)+foreign import ccall "genpop__QActionEvent_action" action' ::  HoppyF.Ptr QActionEventConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QActionEvent_before" before' ::  HoppyF.Ptr QActionEventConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "gencast__QActionEvent__QEvent" castQActionEventToQEvent :: HoppyF.Ptr QActionEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QActionEvent" castQEventToQActionEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QActionEventConst+foreign import ccall "gendel__QActionEvent" delete'QActionEvent :: HoppyF.Ptr QActionEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QActionEvent" deletePtr'QActionEvent :: HoppyF.FunPtr (HoppyF.Ptr QActionEventConst -> HoppyP.IO ())++class QActionEventValue a where+  withQActionEventPtr :: a -> (QActionEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QActionEventConstPtr a => QActionEventValue a where+  withQActionEventPtr = HoppyP.flip ($) . toQActionEventConst++class (M34.QEventConstPtr this) => QActionEventConstPtr this where+  toQActionEventConst :: this -> QActionEventConst++action :: (QActionEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M368.QAction)+action arg'1 =+  withQActionEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M368.QAction+  (action' arg'1')++before :: (QActionEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M368.QAction)+before arg'1 =+  withQActionEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M368.QAction+  (before' arg'1')++class (QActionEventConstPtr this, M34.QEventPtr this) => QActionEventPtr this where+  toQActionEvent :: this -> QActionEvent++data QActionEventConst =+    QActionEventConst (HoppyF.Ptr QActionEventConst)+  | QActionEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QActionEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QActionEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QActionEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQActionEventToConst :: QActionEvent -> QActionEventConst+castQActionEventToConst (QActionEvent ptr') = QActionEventConst $ HoppyF.castPtr ptr'+castQActionEventToConst (QActionEventGc fptr' ptr') = QActionEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QActionEventConst where+  nullptr = QActionEventConst HoppyF.nullPtr+  +  withCppPtr (QActionEventConst ptr') f' = f' ptr'+  withCppPtr (QActionEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QActionEventConst ptr') = ptr'+  toPtr (QActionEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QActionEventConst _) = HoppyP.return ()+  touchCppPtr (QActionEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QActionEventConst where+  delete (QActionEventConst ptr') = delete'QActionEvent ptr'+  delete (QActionEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QActionEventConst", " object."]+  +  toGc this'@(QActionEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QActionEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QActionEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QActionEventConstGc {}) = HoppyP.return this'++instance QActionEventConstPtr QActionEventConst where+  toQActionEventConst = HoppyP.id++instance M34.QEventConstPtr QActionEventConst where+  toQEventConst (QActionEventConst ptr') = M34.QEventConst $ castQActionEventToQEvent ptr'+  toQEventConst (QActionEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQActionEventToQEvent ptr'++data QActionEvent =+    QActionEvent (HoppyF.Ptr QActionEvent)+  | QActionEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QActionEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QActionEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QActionEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQActionEventToNonconst :: QActionEventConst -> QActionEvent+castQActionEventToNonconst (QActionEventConst ptr') = QActionEvent $ HoppyF.castPtr ptr'+castQActionEventToNonconst (QActionEventConstGc fptr' ptr') = QActionEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QActionEvent where+  nullptr = QActionEvent HoppyF.nullPtr+  +  withCppPtr (QActionEvent ptr') f' = f' ptr'+  withCppPtr (QActionEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QActionEvent ptr') = ptr'+  toPtr (QActionEventGc _ ptr') = ptr'+  +  touchCppPtr (QActionEvent _) = HoppyP.return ()+  touchCppPtr (QActionEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QActionEvent where+  delete (QActionEvent ptr') = delete'QActionEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QActionEventConst)+  delete (QActionEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QActionEvent", " object."]+  +  toGc this'@(QActionEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QActionEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QActionEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QActionEventGc {}) = HoppyP.return this'++instance QActionEventConstPtr QActionEvent where+  toQActionEventConst (QActionEvent ptr') = QActionEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QActionEvent -> HoppyF.Ptr QActionEventConst) ptr'+  toQActionEventConst (QActionEventGc fptr' ptr') = QActionEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QActionEvent -> HoppyF.Ptr QActionEventConst) ptr'++instance QActionEventPtr QActionEvent where+  toQActionEvent = HoppyP.id++instance M34.QEventConstPtr QActionEvent where+  toQEventConst (QActionEvent ptr') = M34.QEventConst $ castQActionEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QActionEvent -> HoppyF.Ptr QActionEventConst) ptr'+  toQEventConst (QActionEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQActionEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QActionEvent -> HoppyF.Ptr QActionEventConst) ptr'++instance M34.QEventPtr QActionEvent where+  toQEvent (QActionEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQActionEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QActionEvent -> HoppyF.Ptr QActionEventConst) ptr'+  toQEvent (QActionEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQActionEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QActionEvent -> HoppyF.Ptr QActionEventConst) ptr'++new :: (M368.QActionPtr arg'2) => (M34.QEventType) -> (arg'2) -> (HoppyP.IO QActionEvent)+new arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->+  HoppyP.fmap QActionEvent+  (new' arg'1' arg'2')++newBefore :: (M368.QActionPtr arg'2) => (M34.QEventType) -> (arg'2) -> (HoppyP.IO QActionEvent)+newBefore arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->+  HoppyP.fmap QActionEvent+  (newBefore' arg'1' arg'2')++class QActionEventSuper a where+  downToQActionEvent :: a -> QActionEvent++instance QActionEventSuper M34.QEvent where+  downToQActionEvent = castQActionEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QActionEventConst $ castQEventToQActionEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QActionEventConstGc fptr' $ castQEventToQActionEvent ptr'++class QActionEventSuperConst a where+  downToQActionEventConst :: a -> QActionEventConst++instance QActionEventSuperConst M34.QEventConst where+  downToQActionEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QActionEventConst $ castQEventToQActionEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QActionEventConstGc fptr' $ castQEventToQActionEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QActionEvent)) QActionEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QActionEvent)) QActionEvent where+  decode = HoppyP.fmap QActionEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QBackingStore.hs view
@@ -0,0 +1,258 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QBackingStore (+  QBackingStoreValue (..),+  QBackingStoreConstPtr (..),+  hasStaticContents,+  size,+  staticContents,+  window,+  QBackingStorePtr (..),+  beginPaint,+  endPaint,+  flush,+  flushWithWindow,+  flushAll,+  paintDevice,+  resize,+  scroll,+  setStaticContents,+  QBackingStoreConst (..),+  castQBackingStoreToConst,+  QBackingStore (..),+  castQBackingStoreToNonconst,+  new,+  QBackingStoreSuper (..),+  QBackingStoreSuperConst (..),+  ) 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.HSize as HSize+import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114+import qualified Graphics.UI.Qtah.Generated.Core.QSize as M134+import qualified Graphics.UI.Qtah.Generated.Gui.QPaintDevice as M304+import qualified Graphics.UI.Qtah.Generated.Gui.QRegion as M324+import qualified Graphics.UI.Qtah.Generated.Gui.QWindow as M342+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QBackingStore_new" new' ::  HoppyF.Ptr M342.QWindow -> HoppyP.IO (HoppyF.Ptr QBackingStore)+foreign import ccall "genpop__QBackingStore_beginPaint" beginPaint' ::  HoppyF.Ptr QBackingStore -> HoppyF.Ptr M324.QRegionConst -> HoppyP.IO ()+foreign import ccall "genpop__QBackingStore_endPaint" endPaint' ::  HoppyF.Ptr QBackingStore -> HoppyP.IO ()+foreign import ccall "genpop__QBackingStore_flush" flush' ::  HoppyF.Ptr QBackingStore -> HoppyF.Ptr M324.QRegionConst -> HoppyP.IO ()+foreign import ccall "genpop__QBackingStore_flushWithWindow" flushWithWindow' ::  HoppyF.Ptr QBackingStore -> HoppyF.Ptr M324.QRegionConst -> HoppyF.Ptr M342.QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QBackingStore_flushAll" flushAll' ::  HoppyF.Ptr QBackingStore -> HoppyF.Ptr M324.QRegionConst -> HoppyF.Ptr M342.QWindow -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QBackingStore_hasStaticContents" hasStaticContents' ::  HoppyF.Ptr QBackingStoreConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QBackingStore_paintDevice" paintDevice' ::  HoppyF.Ptr QBackingStore -> HoppyP.IO (HoppyF.Ptr M304.QPaintDevice)+foreign import ccall "genpop__QBackingStore_resize" resize' ::  HoppyF.Ptr QBackingStore -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QBackingStore_scroll" scroll' ::  HoppyF.Ptr QBackingStore -> HoppyF.Ptr M324.QRegionConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QBackingStore_setStaticContents" setStaticContents' ::  HoppyF.Ptr QBackingStore -> HoppyF.Ptr M324.QRegionConst -> HoppyP.IO ()+foreign import ccall "genpop__QBackingStore_size" size' ::  HoppyF.Ptr QBackingStoreConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QBackingStore_staticContents" staticContents' ::  HoppyF.Ptr QBackingStoreConst -> HoppyP.IO (HoppyF.Ptr M324.QRegionConst)+foreign import ccall "genpop__QBackingStore_window" window' ::  HoppyF.Ptr QBackingStoreConst -> HoppyP.IO (HoppyF.Ptr M342.QWindow)+foreign import ccall "gendel__QBackingStore" delete'QBackingStore :: HoppyF.Ptr QBackingStoreConst -> HoppyP.IO ()+foreign import ccall "&gendel__QBackingStore" deletePtr'QBackingStore :: HoppyF.FunPtr (HoppyF.Ptr QBackingStoreConst -> HoppyP.IO ())++class QBackingStoreValue a where+  withQBackingStorePtr :: a -> (QBackingStoreConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QBackingStoreConstPtr a => QBackingStoreValue a where+  withQBackingStorePtr = HoppyP.flip ($) . toQBackingStoreConst++class (HoppyFHR.CppPtr this) => QBackingStoreConstPtr this where+  toQBackingStoreConst :: this -> QBackingStoreConst++hasStaticContents :: (QBackingStoreValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasStaticContents arg'1 =+  withQBackingStorePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasStaticContents' arg'1')++size :: (QBackingStoreValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+size arg'1 =+  withQBackingStorePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (size' arg'1')++staticContents :: (QBackingStoreValue this) => (this) {- ^ this -} -> (HoppyP.IO M324.QRegion)+staticContents arg'1 =+  withQBackingStorePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M324.QRegionConst) =<<+  (staticContents' arg'1')++window :: (QBackingStoreValue this) => (this) {- ^ this -} -> (HoppyP.IO M342.QWindow)+window arg'1 =+  withQBackingStorePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M342.QWindow+  (window' arg'1')++class (QBackingStoreConstPtr this) => QBackingStorePtr this where+  toQBackingStore :: this -> QBackingStore++beginPaint :: (QBackingStorePtr this, M324.QRegionValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+beginPaint arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBackingStore arg'1) $ \arg'1' ->+  M324.withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (beginPaint' arg'1' arg'2')++endPaint :: (QBackingStorePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+endPaint arg'1 =+  HoppyFHR.withCppPtr (toQBackingStore arg'1) $ \arg'1' ->+  (endPaint' arg'1')++flush :: (QBackingStorePtr this, M324.QRegionValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+flush arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBackingStore arg'1) $ \arg'1' ->+  M324.withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (flush' arg'1' arg'2')++flushWithWindow :: (QBackingStorePtr this, M324.QRegionValue arg'2, M342.QWindowPtr arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+flushWithWindow arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQBackingStore arg'1) $ \arg'1' ->+  M324.withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.withCppPtr (M342.toQWindow arg'3) $ \arg'3' ->+  (flushWithWindow' arg'1' arg'2' arg'3')++flushAll :: (QBackingStorePtr this, M324.QRegionValue arg'2, M342.QWindowPtr arg'3, M114.QPointValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO ())+flushAll arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQBackingStore arg'1) $ \arg'1' ->+  M324.withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.withCppPtr (M342.toQWindow arg'3) $ \arg'3' ->+  M114.withQPointPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (flushAll' arg'1' arg'2' arg'3' arg'4')++paintDevice :: (QBackingStorePtr this) => (this) {- ^ this -} -> (HoppyP.IO M304.QPaintDevice)+paintDevice arg'1 =+  HoppyFHR.withCppPtr (toQBackingStore arg'1) $ \arg'1' ->+  HoppyP.fmap M304.QPaintDevice+  (paintDevice' arg'1')++resize :: (QBackingStorePtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+resize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBackingStore arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (resize' arg'1' arg'2')++scroll :: (QBackingStorePtr this, M324.QRegionValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+scroll arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQBackingStore arg'1) $ \arg'1' ->+  M324.withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (scroll' arg'1' arg'2' arg'3' arg'4')++setStaticContents :: (QBackingStorePtr this, M324.QRegionValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setStaticContents arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBackingStore arg'1) $ \arg'1' ->+  M324.withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setStaticContents' arg'1' arg'2')++data QBackingStoreConst =+    QBackingStoreConst (HoppyF.Ptr QBackingStoreConst)+  | QBackingStoreConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QBackingStoreConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QBackingStoreConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QBackingStoreConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQBackingStoreToConst :: QBackingStore -> QBackingStoreConst+castQBackingStoreToConst (QBackingStore ptr') = QBackingStoreConst $ HoppyF.castPtr ptr'+castQBackingStoreToConst (QBackingStoreGc fptr' ptr') = QBackingStoreConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QBackingStoreConst where+  nullptr = QBackingStoreConst HoppyF.nullPtr+  +  withCppPtr (QBackingStoreConst ptr') f' = f' ptr'+  withCppPtr (QBackingStoreConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QBackingStoreConst ptr') = ptr'+  toPtr (QBackingStoreConstGc _ ptr') = ptr'+  +  touchCppPtr (QBackingStoreConst _) = HoppyP.return ()+  touchCppPtr (QBackingStoreConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QBackingStoreConst where+  delete (QBackingStoreConst ptr') = delete'QBackingStore ptr'+  delete (QBackingStoreConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QBackingStoreConst", " object."]+  +  toGc this'@(QBackingStoreConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QBackingStoreConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QBackingStore :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QBackingStoreConstGc {}) = HoppyP.return this'++instance QBackingStoreConstPtr QBackingStoreConst where+  toQBackingStoreConst = HoppyP.id++data QBackingStore =+    QBackingStore (HoppyF.Ptr QBackingStore)+  | QBackingStoreGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QBackingStore)+  deriving (HoppyP.Show)++instance HoppyP.Eq QBackingStore where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QBackingStore where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQBackingStoreToNonconst :: QBackingStoreConst -> QBackingStore+castQBackingStoreToNonconst (QBackingStoreConst ptr') = QBackingStore $ HoppyF.castPtr ptr'+castQBackingStoreToNonconst (QBackingStoreConstGc fptr' ptr') = QBackingStoreGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QBackingStore where+  nullptr = QBackingStore HoppyF.nullPtr+  +  withCppPtr (QBackingStore ptr') f' = f' ptr'+  withCppPtr (QBackingStoreGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QBackingStore ptr') = ptr'+  toPtr (QBackingStoreGc _ ptr') = ptr'+  +  touchCppPtr (QBackingStore _) = HoppyP.return ()+  touchCppPtr (QBackingStoreGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QBackingStore where+  delete (QBackingStore ptr') = delete'QBackingStore $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QBackingStoreConst)+  delete (QBackingStoreGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QBackingStore", " object."]+  +  toGc this'@(QBackingStore ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QBackingStoreGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QBackingStore :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QBackingStoreGc {}) = HoppyP.return this'++instance QBackingStoreConstPtr QBackingStore where+  toQBackingStoreConst (QBackingStore ptr') = QBackingStoreConst $ (HoppyF.castPtr :: HoppyF.Ptr QBackingStore -> HoppyF.Ptr QBackingStoreConst) ptr'+  toQBackingStoreConst (QBackingStoreGc fptr' ptr') = QBackingStoreConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QBackingStore -> HoppyF.Ptr QBackingStoreConst) ptr'++instance QBackingStorePtr QBackingStore where+  toQBackingStore = HoppyP.id++new :: (M342.QWindowPtr arg'1) => (arg'1) -> (HoppyP.IO QBackingStore)+new arg'1 =+  HoppyFHR.withCppPtr (M342.toQWindow arg'1) $ \arg'1' ->+  HoppyP.fmap QBackingStore+  (new' arg'1')++class QBackingStoreSuper a where+  downToQBackingStore :: a -> QBackingStore+++class QBackingStoreSuperConst a where+  downToQBackingStoreConst :: a -> QBackingStoreConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QBackingStore)) QBackingStore where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QBackingStore)) QBackingStore where+  decode = HoppyP.fmap QBackingStore . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QBitmap.hs view
@@ -0,0 +1,329 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QBitmap (+  castQBitmapToQPixmap,+  castQPixmapToQBitmap,+  castQBitmapToQPaintDevice,+  castQPaintDeviceToQBitmap,+  QBitmapValue (..),+  QBitmapConstPtr (..),+  transformed,+  QBitmapPtr (..),+  clear,+  swap,+  aSSIGN,+  fromData,+  fromDataAll,+  fromImage,+  fromImageAll,+  QBitmapConst (..),+  castQBitmapToConst,+  QBitmap (..),+  castQBitmapToNonconst,+  new,+  newWithSize,+  newWithSizeRaw,+  newWithFile,+  newWithFileAndFormat,+  newCopy,+  QBitmapSuper (..),+  QBitmapSuperConst (..),+  ) where++import Control.Monad ((>=>))+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.QSize as M134+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QImage as M292+import qualified Graphics.UI.Qtah.Generated.Gui.QPaintDevice as M304+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QPixmap as M316+import qualified Graphics.UI.Qtah.Generated.Gui.QTransform as M336+import Prelude (($), (.), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QBitmap_new" new' ::  HoppyP.IO (HoppyF.Ptr QBitmap)+foreign import ccall "genpop__QBitmap_newWithSize" newWithSize' ::  HoppyF.Ptr M134.QSizeConst -> HoppyP.IO (HoppyF.Ptr QBitmap)+foreign import ccall "genpop__QBitmap_newWithSizeRaw" newWithSizeRaw' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QBitmap)+foreign import ccall "genpop__QBitmap_newWithFile" newWithFile' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QBitmap)+foreign import ccall "genpop__QBitmap_newWithFileAndFormat" newWithFileAndFormat' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr HoppyFC.CChar -> HoppyP.IO (HoppyF.Ptr QBitmap)+foreign import ccall "genpop__QBitmap_newCopy" newCopy' ::  HoppyF.Ptr QBitmapConst -> HoppyP.IO (HoppyF.Ptr QBitmap)+foreign import ccall "genpop__QBitmap_clear" clear' ::  HoppyF.Ptr QBitmap -> HoppyP.IO ()+foreign import ccall "genpop__QBitmap_swap" swap' ::  HoppyF.Ptr QBitmap -> HoppyF.Ptr QBitmap -> HoppyP.IO ()+foreign import ccall "genpop__QBitmap_transformed" transformed' ::  HoppyF.Ptr QBitmapConst -> HoppyF.Ptr M336.QTransformConst -> HoppyP.IO (HoppyF.Ptr QBitmapConst)+foreign import ccall "genpop__QBitmap_fromData" fromData' ::  HoppyF.Ptr M134.QSizeConst -> HoppyF.Ptr HoppyFC.CUChar -> HoppyP.IO (HoppyF.Ptr QBitmapConst)+foreign import ccall "genpop__QBitmap_fromDataAll" fromDataAll' ::  HoppyF.Ptr M134.QSizeConst -> HoppyF.Ptr HoppyFC.CUChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QBitmapConst)+foreign import ccall "genpop__QBitmap_fromImage" fromImage' ::  HoppyF.Ptr M292.QImageConst -> HoppyP.IO (HoppyF.Ptr QBitmapConst)+foreign import ccall "genpop__QBitmap_fromImageAll" fromImageAll' ::  HoppyF.Ptr M292.QImageConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QBitmapConst)+foreign import ccall "genpop__QBitmap_ASSIGN" aSSIGN' ::  HoppyF.Ptr QBitmap -> HoppyF.Ptr QBitmapConst -> HoppyP.IO (HoppyF.Ptr QBitmap)+foreign import ccall "gencast__QBitmap__QPixmap" castQBitmapToQPixmap :: HoppyF.Ptr QBitmapConst -> HoppyF.Ptr M316.QPixmapConst+foreign import ccall "gencast__QPixmap__QBitmap" castQPixmapToQBitmap :: HoppyF.Ptr M316.QPixmapConst -> HoppyF.Ptr QBitmapConst+foreign import ccall "gencast__QBitmap__QPaintDevice" castQBitmapToQPaintDevice :: HoppyF.Ptr QBitmapConst -> HoppyF.Ptr M304.QPaintDeviceConst+foreign import ccall "gencast__QPaintDevice__QBitmap" castQPaintDeviceToQBitmap :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr QBitmapConst+foreign import ccall "gendel__QBitmap" delete'QBitmap :: HoppyF.Ptr QBitmapConst -> HoppyP.IO ()+foreign import ccall "&gendel__QBitmap" deletePtr'QBitmap :: HoppyF.FunPtr (HoppyF.Ptr QBitmapConst -> HoppyP.IO ())++class QBitmapValue a where+  withQBitmapPtr :: a -> (QBitmapConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QBitmapConstPtr a => QBitmapValue a where+  withQBitmapPtr = HoppyP.flip ($) . toQBitmapConst++class (M316.QPixmapConstPtr this) => QBitmapConstPtr this where+  toQBitmapConst :: this -> QBitmapConst++transformed :: (QBitmapValue this, M336.QTransformValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QBitmap)+transformed arg'1 arg'2 =+  withQBitmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M336.withQTransformPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QBitmapConst) =<<+  (transformed' arg'1' arg'2')++class (QBitmapConstPtr this, M316.QPixmapPtr this) => QBitmapPtr this where+  toQBitmap :: this -> QBitmap++clear :: (QBitmapPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQBitmap arg'1) $ \arg'1' ->+  (clear' arg'1')++swap :: (QBitmapPtr this, QBitmapPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBitmap arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQBitmap arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++aSSIGN :: (QBitmapPtr this, QBitmapValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QBitmap)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBitmap arg'1) $ \arg'1' ->+  withQBitmapPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QBitmap+  (aSSIGN' arg'1' arg'2')++fromData :: (M134.QSizeValue arg'1) => (arg'1) -> (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.IO QBitmap)+fromData arg'1 arg'2 =+  M134.withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . QBitmapConst) =<<+  (fromData' arg'1' arg'2')++fromDataAll :: (M134.QSizeValue arg'1) => (arg'1) -> (HoppyF.Ptr HoppyFC.CUChar) -> (M292.QImageFormat) -> (HoppyP.IO QBitmap)+fromDataAll arg'1 arg'2 arg'3 =+  M134.withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QBitmapConst) =<<+  (fromDataAll' arg'1' arg'2' arg'3')++fromImage :: (M292.QImageValue arg'1) => (arg'1) -> (HoppyP.IO QBitmap)+fromImage arg'1 =+  M292.withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QBitmapConst) =<<+  (fromImage' arg'1')++fromImageAll :: (M292.QImageValue arg'1, M190.IsQtImageConversionFlags arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QBitmap)+fromImageAll arg'1 arg'2 =+  M292.withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtImageConversionFlags+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QBitmapConst) =<<+  (fromImageAll' arg'1' arg'2')++data QBitmapConst =+    QBitmapConst (HoppyF.Ptr QBitmapConst)+  | QBitmapConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QBitmapConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QBitmapConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QBitmapConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQBitmapToConst :: QBitmap -> QBitmapConst+castQBitmapToConst (QBitmap ptr') = QBitmapConst $ HoppyF.castPtr ptr'+castQBitmapToConst (QBitmapGc fptr' ptr') = QBitmapConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QBitmapConst where+  nullptr = QBitmapConst HoppyF.nullPtr+  +  withCppPtr (QBitmapConst ptr') f' = f' ptr'+  withCppPtr (QBitmapConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QBitmapConst ptr') = ptr'+  toPtr (QBitmapConstGc _ ptr') = ptr'+  +  touchCppPtr (QBitmapConst _) = HoppyP.return ()+  touchCppPtr (QBitmapConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QBitmapConst where+  delete (QBitmapConst ptr') = delete'QBitmap ptr'+  delete (QBitmapConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QBitmapConst", " object."]+  +  toGc this'@(QBitmapConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QBitmapConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QBitmap :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QBitmapConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QBitmapConst QBitmap where copy = newCopy++instance QBitmapConstPtr QBitmapConst where+  toQBitmapConst = HoppyP.id++instance M316.QPixmapConstPtr QBitmapConst where+  toQPixmapConst (QBitmapConst ptr') = M316.QPixmapConst $ castQBitmapToQPixmap ptr'+  toQPixmapConst (QBitmapConstGc fptr' ptr') = M316.QPixmapConstGc fptr' $ castQBitmapToQPixmap ptr'++instance M304.QPaintDeviceConstPtr QBitmapConst where+  toQPaintDeviceConst (QBitmapConst ptr') = M304.QPaintDeviceConst $ castQBitmapToQPaintDevice ptr'+  toQPaintDeviceConst (QBitmapConstGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQBitmapToQPaintDevice ptr'++data QBitmap =+    QBitmap (HoppyF.Ptr QBitmap)+  | QBitmapGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QBitmap)+  deriving (HoppyP.Show)++instance HoppyP.Eq QBitmap where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QBitmap where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQBitmapToNonconst :: QBitmapConst -> QBitmap+castQBitmapToNonconst (QBitmapConst ptr') = QBitmap $ HoppyF.castPtr ptr'+castQBitmapToNonconst (QBitmapConstGc fptr' ptr') = QBitmapGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QBitmap where+  nullptr = QBitmap HoppyF.nullPtr+  +  withCppPtr (QBitmap ptr') f' = f' ptr'+  withCppPtr (QBitmapGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QBitmap ptr') = ptr'+  toPtr (QBitmapGc _ ptr') = ptr'+  +  touchCppPtr (QBitmap _) = HoppyP.return ()+  touchCppPtr (QBitmapGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QBitmap where+  delete (QBitmap ptr') = delete'QBitmap $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QBitmapConst)+  delete (QBitmapGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QBitmap", " object."]+  +  toGc this'@(QBitmap ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QBitmapGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QBitmap :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QBitmapGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QBitmap QBitmap where copy = newCopy++instance QBitmapConstPtr QBitmap where+  toQBitmapConst (QBitmap ptr') = QBitmapConst $ (HoppyF.castPtr :: HoppyF.Ptr QBitmap -> HoppyF.Ptr QBitmapConst) ptr'+  toQBitmapConst (QBitmapGc fptr' ptr') = QBitmapConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QBitmap -> HoppyF.Ptr QBitmapConst) ptr'++instance QBitmapPtr QBitmap where+  toQBitmap = HoppyP.id++instance M316.QPixmapConstPtr QBitmap where+  toQPixmapConst (QBitmap ptr') = M316.QPixmapConst $ castQBitmapToQPixmap $ (HoppyF.castPtr :: HoppyF.Ptr QBitmap -> HoppyF.Ptr QBitmapConst) ptr'+  toQPixmapConst (QBitmapGc fptr' ptr') = M316.QPixmapConstGc fptr' $ castQBitmapToQPixmap $ (HoppyF.castPtr :: HoppyF.Ptr QBitmap -> HoppyF.Ptr QBitmapConst) ptr'++instance M316.QPixmapPtr QBitmap where+  toQPixmap (QBitmap ptr') = M316.QPixmap $ (HoppyF.castPtr :: HoppyF.Ptr M316.QPixmapConst -> HoppyF.Ptr M316.QPixmap) $ castQBitmapToQPixmap $ (HoppyF.castPtr :: HoppyF.Ptr QBitmap -> HoppyF.Ptr QBitmapConst) ptr'+  toQPixmap (QBitmapGc fptr' ptr') = M316.QPixmapGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M316.QPixmapConst -> HoppyF.Ptr M316.QPixmap) $ castQBitmapToQPixmap $ (HoppyF.castPtr :: HoppyF.Ptr QBitmap -> HoppyF.Ptr QBitmapConst) ptr'++instance M304.QPaintDeviceConstPtr QBitmap where+  toQPaintDeviceConst (QBitmap ptr') = M304.QPaintDeviceConst $ castQBitmapToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QBitmap -> HoppyF.Ptr QBitmapConst) ptr'+  toQPaintDeviceConst (QBitmapGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQBitmapToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QBitmap -> HoppyF.Ptr QBitmapConst) ptr'++instance M304.QPaintDevicePtr QBitmap where+  toQPaintDevice (QBitmap ptr') = M304.QPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQBitmapToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QBitmap -> HoppyF.Ptr QBitmapConst) ptr'+  toQPaintDevice (QBitmapGc fptr' ptr') = M304.QPaintDeviceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQBitmapToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QBitmap -> HoppyF.Ptr QBitmapConst) ptr'++new :: (HoppyP.IO QBitmap)+new =+  HoppyP.fmap QBitmap+  (new')++newWithSize :: (M134.QSizeValue arg'1) => (arg'1) -> (HoppyP.IO QBitmap)+newWithSize arg'1 =+  M134.withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QBitmap+  (newWithSize' arg'1')++newWithSizeRaw :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QBitmap)+newWithSizeRaw arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QBitmap+  (newWithSizeRaw' arg'1' arg'2')++newWithFile :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QBitmap)+newWithFile arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QBitmap+  (newWithFile' arg'1')++newWithFileAndFormat :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyF.Ptr HoppyFC.CChar) -> (HoppyP.IO QBitmap)+newWithFileAndFormat arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  HoppyP.fmap QBitmap+  (newWithFileAndFormat' arg'1' arg'2')++newCopy :: (QBitmapValue arg'1) => (arg'1) -> (HoppyP.IO QBitmap)+newCopy arg'1 =+  withQBitmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QBitmap+  (newCopy' arg'1')++class QBitmapSuper a where+  downToQBitmap :: a -> QBitmap++instance QBitmapSuper M316.QPixmap where+  downToQBitmap = castQBitmapToNonconst . cast' . M316.castQPixmapToConst+    where+      cast' (M316.QPixmapConst ptr') = QBitmapConst $ castQPixmapToQBitmap ptr'+      cast' (M316.QPixmapConstGc fptr' ptr') = QBitmapConstGc fptr' $ castQPixmapToQBitmap ptr'+instance QBitmapSuper M304.QPaintDevice where+  downToQBitmap = castQBitmapToNonconst . cast' . M304.castQPaintDeviceToConst+    where+      cast' (M304.QPaintDeviceConst ptr') = QBitmapConst $ castQPaintDeviceToQBitmap ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QBitmapConstGc fptr' $ castQPaintDeviceToQBitmap ptr'++class QBitmapSuperConst a where+  downToQBitmapConst :: a -> QBitmapConst++instance QBitmapSuperConst M316.QPixmapConst where+  downToQBitmapConst = cast'+    where+      cast' (M316.QPixmapConst ptr') = QBitmapConst $ castQPixmapToQBitmap ptr'+      cast' (M316.QPixmapConstGc fptr' ptr') = QBitmapConstGc fptr' $ castQPixmapToQBitmap ptr'+instance QBitmapSuperConst M304.QPaintDeviceConst where+  downToQBitmapConst = cast'+    where+      cast' (M304.QPaintDeviceConst ptr') = QBitmapConst $ castQPaintDeviceToQBitmap ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QBitmapConstGc fptr' $ castQPaintDeviceToQBitmap ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QBitmap)) QBitmap where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QBitmapValue a => HoppyFHR.Assignable QBitmap a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QBitmap)) QBitmap where+  decode = HoppyP.fmap QBitmap . HoppyF.peek++instance HoppyFHR.Decodable QBitmap (QBitmap) where+  decode = HoppyFHR.decode . toQBitmapConst++instance HoppyFHR.Decodable QBitmapConst (QBitmap) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
+ src/Graphics/UI/Qtah/Generated/Gui/QBitmap.hs-boot view
@@ -0,0 +1,77 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QBitmap (+  QBitmapValue (..),+  QBitmapConstPtr (..),+  QBitmapPtr (..),+  QBitmapConst (..),+  castQBitmapToConst,+  QBitmap (..),+  castQBitmapToNonconst,+  castQBitmapToQPixmap,+  castQBitmapToQPaintDevice,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Gui.QPaintDevice as M304+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QPixmap as M316+import qualified Prelude as HoppyP+++class QBitmapValue a where+  withQBitmapPtr :: a -> (QBitmapConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QBitmapConstPtr a => QBitmapValue a++class (M316.QPixmapConstPtr this) => QBitmapConstPtr this where+  toQBitmapConst :: this -> QBitmapConst++class (QBitmapConstPtr this, M316.QPixmapPtr this) => QBitmapPtr this where+  toQBitmap :: this -> QBitmap++data QBitmapConst =+    QBitmapConst (HoppyF.Ptr QBitmapConst)+  | QBitmapConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QBitmapConst)++castQBitmapToConst :: QBitmap -> QBitmapConst++instance HoppyFHR.CppPtr QBitmapConst+instance HoppyFHR.Deletable QBitmapConst+instance HoppyFHR.Copyable QBitmapConst QBitmap++instance QBitmapConstPtr QBitmapConst++instance M316.QPixmapConstPtr QBitmapConst++instance M304.QPaintDeviceConstPtr QBitmapConst++data QBitmap =+    QBitmap (HoppyF.Ptr QBitmap)+  | QBitmapGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QBitmap)++castQBitmapToNonconst :: QBitmapConst -> QBitmap++instance HoppyFHR.CppPtr QBitmap+instance HoppyFHR.Deletable QBitmap+instance HoppyFHR.Copyable QBitmap QBitmap++instance QBitmapConstPtr QBitmap++instance QBitmapPtr QBitmap++instance M316.QPixmapConstPtr QBitmap++instance M316.QPixmapPtr QBitmap++instance M304.QPaintDeviceConstPtr QBitmap++instance M304.QPaintDevicePtr QBitmap+castQBitmapToQPixmap :: HoppyF.Ptr QBitmapConst -> HoppyF.Ptr M316.QPixmapConst+castQBitmapToQPaintDevice :: HoppyF.Ptr QBitmapConst -> HoppyF.Ptr M304.QPaintDeviceConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QBitmap)) QBitmap++instance HoppyFHR.Decodable QBitmap ((QBitmap))+instance HoppyFHR.Decodable QBitmapConst ((QBitmap))
src/Graphics/UI/Qtah/Generated/Gui/QBrush.hs view
@@ -0,0 +1,314 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QBrush (+  QBrushValue (..),+  QBrushConstPtr (..),+  color,+  isOpaque,+  style,+  texture,+  textureImage,+  transform,+  eQ,+  nE,+  QBrushPtr (..),+  setColor,+  setGlobalColor,+  setStyle,+  swap,+  setTexture,+  setTextureImage,+  setTransform,+  aSSIGN,+  QBrushConst (..),+  castQBrushToConst,+  QBrush (..),+  castQBrushToNonconst,+  new,+  newWithColor,+  newCopy,+  QBrushSuper (..),+  QBrushSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Gui.QColor as M252+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QImage as M292+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QPixmap as M316+import qualified Graphics.UI.Qtah.Generated.Gui.QTransform as M336+import qualified Graphics.UI.Qtah.Gui.HColor as HColor+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QBrush_new" new' ::  HoppyP.IO (HoppyF.Ptr QBrush)+foreign import ccall "genpop__QBrush_newWithColor" newWithColor' ::  HoppyF.Ptr M252.QColorConst -> HoppyP.IO (HoppyF.Ptr QBrush)+foreign import ccall "genpop__QBrush_newCopy" newCopy' ::  HoppyF.Ptr QBrushConst -> HoppyP.IO (HoppyF.Ptr QBrush)+foreign import ccall "genpop__QBrush_color" color' ::  HoppyF.Ptr QBrushConst -> HoppyP.IO (HoppyF.Ptr M252.QColorConst)+foreign import ccall "genpop__QBrush_setColor" setColor' ::  HoppyF.Ptr QBrush -> HoppyF.Ptr M252.QColorConst -> HoppyP.IO ()+foreign import ccall "genpop__QBrush_isOpaque" isOpaque' ::  HoppyF.Ptr QBrushConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QBrush_setGlobalColor" setGlobalColor' ::  HoppyF.Ptr QBrush -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBrush_style" style' ::  HoppyF.Ptr QBrushConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QBrush_setStyle" setStyle' ::  HoppyF.Ptr QBrush -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBrush_swap" swap' ::  HoppyF.Ptr QBrush -> HoppyF.Ptr QBrush -> HoppyP.IO ()+foreign import ccall "genpop__QBrush_texture" texture' ::  HoppyF.Ptr QBrushConst -> HoppyP.IO (HoppyF.Ptr M316.QPixmapConst)+foreign import ccall "genpop__QBrush_setTexture" setTexture' ::  HoppyF.Ptr QBrush -> HoppyF.Ptr M316.QPixmapConst -> HoppyP.IO ()+foreign import ccall "genpop__QBrush_textureImage" textureImage' ::  HoppyF.Ptr QBrushConst -> HoppyP.IO (HoppyF.Ptr M292.QImageConst)+foreign import ccall "genpop__QBrush_setTextureImage" setTextureImage' ::  HoppyF.Ptr QBrush -> HoppyF.Ptr M292.QImageConst -> HoppyP.IO ()+foreign import ccall "genpop__QBrush_transform" transform' ::  HoppyF.Ptr QBrushConst -> HoppyP.IO (HoppyF.Ptr M336.QTransformConst)+foreign import ccall "genpop__QBrush_setTransform" setTransform' ::  HoppyF.Ptr QBrush -> HoppyF.Ptr M336.QTransformConst -> HoppyP.IO ()+foreign import ccall "genpop__QBrush_EQ" eQ' ::  HoppyF.Ptr QBrushConst -> HoppyF.Ptr QBrushConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QBrush_NE" nE' ::  HoppyF.Ptr QBrushConst -> HoppyF.Ptr QBrushConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QBrush_ASSIGN" aSSIGN' ::  HoppyF.Ptr QBrush -> HoppyF.Ptr QBrushConst -> HoppyP.IO (HoppyF.Ptr QBrush)+foreign import ccall "gendel__QBrush" delete'QBrush :: HoppyF.Ptr QBrushConst -> HoppyP.IO ()+foreign import ccall "&gendel__QBrush" deletePtr'QBrush :: HoppyF.FunPtr (HoppyF.Ptr QBrushConst -> HoppyP.IO ())++class QBrushValue a where+  withQBrushPtr :: a -> (QBrushConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QBrushConstPtr a => QBrushValue a where+  withQBrushPtr = HoppyP.flip ($) . toQBrushConst++class (HoppyFHR.CppPtr this) => QBrushConstPtr this where+  toQBrushConst :: this -> QBrushConst++color :: (QBrushValue this) => (this) {- ^ this -} -> (HoppyP.IO HColor.HColor)+color arg'1 =+  withQBrushPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M252.QColorConst) =<<+  (color' arg'1')++isOpaque :: (QBrushValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isOpaque arg'1 =+  withQBrushPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isOpaque' arg'1')++style :: (QBrushValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtBrushStyle)+style arg'1 =+  withQBrushPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (style' arg'1')++texture :: (QBrushValue this) => (this) {- ^ this -} -> (HoppyP.IO M316.QPixmap)+texture arg'1 =+  withQBrushPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M316.QPixmapConst) =<<+  (texture' arg'1')++textureImage :: (QBrushValue this) => (this) {- ^ this -} -> (HoppyP.IO M292.QImage)+textureImage arg'1 =+  withQBrushPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M292.QImageConst) =<<+  (textureImage' arg'1')++transform :: (QBrushValue this) => (this) {- ^ this -} -> (HoppyP.IO M336.QTransform)+transform arg'1 =+  withQBrushPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M336.QTransformConst) =<<+  (transform' arg'1')++eQ :: (QBrushValue this, QBrushValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQBrushPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQBrushPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QBrushValue this, QBrushValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQBrushPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQBrushPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QBrushConstPtr this) => QBrushPtr this where+  toQBrush :: this -> QBrush++setColor :: (QBrushPtr this, M252.QColorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setColor arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBrush arg'1) $ \arg'1' ->+  M252.withQColorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setColor' arg'1' arg'2')++setGlobalColor :: (QBrushPtr this) => (this) {- ^ this -} -> (M190.QtGlobalColor) -> (HoppyP.IO ())+setGlobalColor arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBrush arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setGlobalColor' arg'1' arg'2')++setStyle :: (QBrushPtr this) => (this) {- ^ this -} -> (M190.QtBrushStyle) -> (HoppyP.IO ())+setStyle arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBrush arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setStyle' arg'1' arg'2')++swap :: (QBrushPtr this, QBrushPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBrush arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQBrush arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++setTexture :: (QBrushPtr this, M316.QPixmapValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTexture arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBrush arg'1) $ \arg'1' ->+  M316.withQPixmapPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setTexture' arg'1' arg'2')++setTextureImage :: (QBrushPtr this, M292.QImageValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTextureImage arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBrush arg'1) $ \arg'1' ->+  M292.withQImagePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setTextureImage' arg'1' arg'2')++setTransform :: (QBrushPtr this, M336.QTransformValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTransform arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBrush arg'1) $ \arg'1' ->+  M336.withQTransformPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setTransform' arg'1' arg'2')++aSSIGN :: (QBrushPtr this, QBrushValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QBrush)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBrush arg'1) $ \arg'1' ->+  withQBrushPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QBrush+  (aSSIGN' arg'1' arg'2')++data QBrushConst =+    QBrushConst (HoppyF.Ptr QBrushConst)+  | QBrushConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QBrushConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QBrushConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QBrushConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQBrushToConst :: QBrush -> QBrushConst+castQBrushToConst (QBrush ptr') = QBrushConst $ HoppyF.castPtr ptr'+castQBrushToConst (QBrushGc fptr' ptr') = QBrushConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QBrushConst where+  nullptr = QBrushConst HoppyF.nullPtr+  +  withCppPtr (QBrushConst ptr') f' = f' ptr'+  withCppPtr (QBrushConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QBrushConst ptr') = ptr'+  toPtr (QBrushConstGc _ ptr') = ptr'+  +  touchCppPtr (QBrushConst _) = HoppyP.return ()+  touchCppPtr (QBrushConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QBrushConst where+  delete (QBrushConst ptr') = delete'QBrush ptr'+  delete (QBrushConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QBrushConst", " object."]+  +  toGc this'@(QBrushConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QBrushConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QBrush :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QBrushConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QBrushConst QBrush where copy = newCopy++instance QBrushConstPtr QBrushConst where+  toQBrushConst = HoppyP.id++data QBrush =+    QBrush (HoppyF.Ptr QBrush)+  | QBrushGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QBrush)+  deriving (HoppyP.Show)++instance HoppyP.Eq QBrush where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QBrush where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQBrushToNonconst :: QBrushConst -> QBrush+castQBrushToNonconst (QBrushConst ptr') = QBrush $ HoppyF.castPtr ptr'+castQBrushToNonconst (QBrushConstGc fptr' ptr') = QBrushGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QBrush where+  nullptr = QBrush HoppyF.nullPtr+  +  withCppPtr (QBrush ptr') f' = f' ptr'+  withCppPtr (QBrushGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QBrush ptr') = ptr'+  toPtr (QBrushGc _ ptr') = ptr'+  +  touchCppPtr (QBrush _) = HoppyP.return ()+  touchCppPtr (QBrushGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QBrush where+  delete (QBrush ptr') = delete'QBrush $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QBrushConst)+  delete (QBrushGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QBrush", " object."]+  +  toGc this'@(QBrush ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QBrushGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QBrush :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QBrushGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QBrush QBrush where copy = newCopy++instance QBrushConstPtr QBrush where+  toQBrushConst (QBrush ptr') = QBrushConst $ (HoppyF.castPtr :: HoppyF.Ptr QBrush -> HoppyF.Ptr QBrushConst) ptr'+  toQBrushConst (QBrushGc fptr' ptr') = QBrushConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QBrush -> HoppyF.Ptr QBrushConst) ptr'++instance QBrushPtr QBrush where+  toQBrush = HoppyP.id++new :: (HoppyP.IO QBrush)+new =+  HoppyP.fmap QBrush+  (new')++newWithColor :: (M252.QColorValue arg'1) => (arg'1) -> (HoppyP.IO QBrush)+newWithColor arg'1 =+  M252.withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QBrush+  (newWithColor' arg'1')++newCopy :: (QBrushValue arg'1) => (arg'1) -> (HoppyP.IO QBrush)+newCopy arg'1 =+  withQBrushPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QBrush+  (newCopy' arg'1')++class QBrushSuper a where+  downToQBrush :: a -> QBrush+++class QBrushSuperConst a where+  downToQBrushConst :: a -> QBrushConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QBrush)) QBrush where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QBrushValue a => HoppyFHR.Assignable QBrush a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QBrush)) QBrush where+  decode = HoppyP.fmap QBrush . HoppyF.peek++instance HoppyFHR.Decodable QBrush (QBrush) where+  decode = HoppyFHR.decode . toQBrushConst++instance HoppyFHR.Decodable QBrushConst (QBrush) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
+ src/Graphics/UI/Qtah/Generated/Gui/QBrush.hs-boot view
@@ -0,0 +1,59 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QBrush (+  QBrushValue (..),+  QBrushConstPtr (..),+  QBrushPtr (..),+  QBrushConst (..),+  castQBrushToConst,+  QBrush (..),+  castQBrushToNonconst,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Prelude as HoppyP+++class QBrushValue a where+  withQBrushPtr :: a -> (QBrushConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QBrushConstPtr a => QBrushValue a++class (HoppyFHR.CppPtr this) => QBrushConstPtr this where+  toQBrushConst :: this -> QBrushConst++class (QBrushConstPtr this) => QBrushPtr this where+  toQBrush :: this -> QBrush++data QBrushConst =+    QBrushConst (HoppyF.Ptr QBrushConst)+  | QBrushConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QBrushConst)++castQBrushToConst :: QBrush -> QBrushConst++instance HoppyFHR.CppPtr QBrushConst+instance HoppyFHR.Deletable QBrushConst+instance HoppyFHR.Copyable QBrushConst QBrush++instance QBrushConstPtr QBrushConst++data QBrush =+    QBrush (HoppyF.Ptr QBrush)+  | QBrushGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QBrush)++castQBrushToNonconst :: QBrushConst -> QBrush++instance HoppyFHR.CppPtr QBrush+instance HoppyFHR.Deletable QBrush+instance HoppyFHR.Copyable QBrush QBrush++instance QBrushConstPtr QBrush++instance QBrushPtr QBrush++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QBrush)) QBrush++instance HoppyFHR.Decodable QBrush ((QBrush))+instance HoppyFHR.Decodable QBrushConst ((QBrush))
src/Graphics/UI/Qtah/Generated/Gui/QClipboard.hs view
@@ -0,0 +1,400 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QClipboard (+  castQClipboardToQObject,+  castQObjectToQClipboard,+  QClipboardValue (..),+  QClipboardConstPtr (..),+  image,+  imageAll,+  ownsClipboard,+  ownsFindBuffer,+  ownsSelection,+  pixmap,+  pixmapAll,+  supportsFindBuffer,+  supportsSelection,+  text,+  textWithMode,+  textSubtype,+  textSubtypeWithMode,+  QClipboardPtr (..),+  clear,+  clearWithMode,+  setImage,+  setImageAll,+  setPixmap,+  setPixmapAll,+  setText,+  setTextWithMode,+  emitChanged,+  emitDataChanged,+  emitFindBufferChanged,+  emitSelectionChanged,+  QClipboardConst (..),+  castQClipboardToConst,+  QClipboard (..),+  castQClipboardToNonconst,+  QClipboardSuper (..),+  QClipboardSuperConst (..),+  QClipboardMode (..),+  ) 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.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QImage as M292+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QPixmap as M316+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QClipboard_clear" clear' ::  HoppyF.Ptr QClipboard -> HoppyP.IO ()+foreign import ccall "genpop__QClipboard_clearWithMode" clearWithMode' ::  HoppyF.Ptr QClipboard -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QClipboard_image" image' ::  HoppyF.Ptr QClipboardConst -> HoppyP.IO (HoppyF.Ptr M292.QImageConst)+foreign import ccall "genpop__QClipboard_imageAll" imageAll' ::  HoppyF.Ptr QClipboardConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M292.QImageConst)+foreign import ccall "genpop__QClipboard_ownsClipboard" ownsClipboard' ::  HoppyF.Ptr QClipboardConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QClipboard_ownsFindBuffer" ownsFindBuffer' ::  HoppyF.Ptr QClipboardConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QClipboard_ownsSelection" ownsSelection' ::  HoppyF.Ptr QClipboardConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QClipboard_pixmap" pixmap' ::  HoppyF.Ptr QClipboardConst -> HoppyP.IO (HoppyF.Ptr M316.QPixmapConst)+foreign import ccall "genpop__QClipboard_pixmapAll" pixmapAll' ::  HoppyF.Ptr QClipboardConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M316.QPixmapConst)+foreign import ccall "genpop__QClipboard_setImage" setImage' ::  HoppyF.Ptr QClipboard -> HoppyF.Ptr M292.QImageConst -> HoppyP.IO ()+foreign import ccall "genpop__QClipboard_setImageAll" setImageAll' ::  HoppyF.Ptr QClipboard -> HoppyF.Ptr M292.QImageConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QClipboard_setPixmap" setPixmap' ::  HoppyF.Ptr QClipboard -> HoppyF.Ptr M316.QPixmapConst -> HoppyP.IO ()+foreign import ccall "genpop__QClipboard_setPixmapAll" setPixmapAll' ::  HoppyF.Ptr QClipboard -> HoppyF.Ptr M316.QPixmapConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QClipboard_setText" setText' ::  HoppyF.Ptr QClipboard -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QClipboard_setTextWithMode" setTextWithMode' ::  HoppyF.Ptr QClipboard -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QClipboard_supportsFindBuffer" supportsFindBuffer' ::  HoppyF.Ptr QClipboardConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QClipboard_supportsSelection" supportsSelection' ::  HoppyF.Ptr QClipboardConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QClipboard_text" text' ::  HoppyF.Ptr QClipboardConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QClipboard_textWithMode" textWithMode' ::  HoppyF.Ptr QClipboardConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QClipboard_textSubtype" textSubtype' ::  HoppyF.Ptr QClipboardConst -> HoppyF.Ptr M142.QString -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QClipboard_textSubtypeWithMode" textSubtypeWithMode' ::  HoppyF.Ptr QClipboardConst -> HoppyF.Ptr M142.QString -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QClipboard_emitChanged" emitChanged' ::  HoppyF.Ptr QClipboard -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QClipboard_emitDataChanged" emitDataChanged' ::  HoppyF.Ptr QClipboard -> HoppyP.IO ()+foreign import ccall "genpop__QClipboard_emitFindBufferChanged" emitFindBufferChanged' ::  HoppyF.Ptr QClipboard -> HoppyP.IO ()+foreign import ccall "genpop__QClipboard_emitSelectionChanged" emitSelectionChanged' ::  HoppyF.Ptr QClipboard -> HoppyP.IO ()+foreign import ccall "gencast__QClipboard__QObject" castQClipboardToQObject :: HoppyF.Ptr QClipboardConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QClipboard" castQObjectToQClipboard :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QClipboardConst++class QClipboardValue a where+  withQClipboardPtr :: a -> (QClipboardConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QClipboardConstPtr a => QClipboardValue a where+  withQClipboardPtr = HoppyP.flip ($) . toQClipboardConst++class (M94.QObjectConstPtr this) => QClipboardConstPtr this where+  toQClipboardConst :: this -> QClipboardConst++image :: (QClipboardValue this) => (this) {- ^ this -} -> (HoppyP.IO M292.QImage)+image arg'1 =+  withQClipboardPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M292.QImageConst) =<<+  (image' arg'1')++imageAll :: (QClipboardValue this) => (this) {- ^ this -} -> (QClipboardMode) -> (HoppyP.IO M292.QImage)+imageAll arg'1 arg'2 =+  withQClipboardPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M292.QImageConst) =<<+  (imageAll' arg'1' arg'2')++ownsClipboard :: (QClipboardValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+ownsClipboard arg'1 =+  withQClipboardPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (ownsClipboard' arg'1')++ownsFindBuffer :: (QClipboardValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+ownsFindBuffer arg'1 =+  withQClipboardPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (ownsFindBuffer' arg'1')++ownsSelection :: (QClipboardValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+ownsSelection arg'1 =+  withQClipboardPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (ownsSelection' arg'1')++pixmap :: (QClipboardValue this) => (this) {- ^ this -} -> (HoppyP.IO M316.QPixmap)+pixmap arg'1 =+  withQClipboardPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M316.QPixmapConst) =<<+  (pixmap' arg'1')++pixmapAll :: (QClipboardValue this) => (this) {- ^ this -} -> (QClipboardMode) -> (HoppyP.IO M316.QPixmap)+pixmapAll arg'1 arg'2 =+  withQClipboardPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M316.QPixmapConst) =<<+  (pixmapAll' arg'1' arg'2')++supportsFindBuffer :: (QClipboardValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+supportsFindBuffer arg'1 =+  withQClipboardPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (supportsFindBuffer' arg'1')++supportsSelection :: (QClipboardValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+supportsSelection arg'1 =+  withQClipboardPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (supportsSelection' arg'1')++text :: (QClipboardValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+text arg'1 =+  withQClipboardPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (text' arg'1')++textWithMode :: (QClipboardValue this) => (this) {- ^ this -} -> (QClipboardMode) -> (HoppyP.IO QtahP.String)+textWithMode arg'1 arg'2 =+  withQClipboardPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (textWithMode' arg'1' arg'2')++textSubtype :: (QClipboardValue this, M142.QStringPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+textSubtype arg'1 arg'2 =+  withQClipboardPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M142.toQString arg'2) $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (textSubtype' arg'1' arg'2')++textSubtypeWithMode :: (QClipboardValue this, M142.QStringPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (QClipboardMode) -> (HoppyP.IO QtahP.String)+textSubtypeWithMode arg'1 arg'2 arg'3 =+  withQClipboardPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M142.toQString arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (textSubtypeWithMode' arg'1' arg'2' arg'3')++class (QClipboardConstPtr this, M94.QObjectPtr this) => QClipboardPtr this where+  toQClipboard :: this -> QClipboard++clear :: (QClipboardPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQClipboard arg'1) $ \arg'1' ->+  (clear' arg'1')++clearWithMode :: (QClipboardPtr this) => (this) {- ^ this -} -> (QClipboardMode) -> (HoppyP.IO ())+clearWithMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQClipboard arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (clearWithMode' arg'1' arg'2')++setImage :: (QClipboardPtr this, M292.QImageValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setImage arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQClipboard arg'1) $ \arg'1' ->+  M292.withQImagePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setImage' arg'1' arg'2')++setImageAll :: (QClipboardPtr this, M292.QImageValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (QClipboardMode) -> (HoppyP.IO ())+setImageAll arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQClipboard arg'1) $ \arg'1' ->+  M292.withQImagePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (setImageAll' arg'1' arg'2' arg'3')++setPixmap :: (QClipboardPtr this, M316.QPixmapValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setPixmap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQClipboard arg'1) $ \arg'1' ->+  M316.withQPixmapPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setPixmap' arg'1' arg'2')++setPixmapAll :: (QClipboardPtr this, M316.QPixmapValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (QClipboardMode) -> (HoppyP.IO ())+setPixmapAll arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQClipboard arg'1) $ \arg'1' ->+  M316.withQPixmapPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (setPixmapAll' arg'1' arg'2' arg'3')++setText :: (QClipboardPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQClipboard arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setText' arg'1' arg'2')++setTextWithMode :: (QClipboardPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (QClipboardMode) -> (HoppyP.IO ())+setTextWithMode arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQClipboard arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (setTextWithMode' arg'1' arg'2' arg'3')++emitChanged :: (QClipboardPtr this) => (this) {- ^ this -} -> (QClipboardMode) -> (HoppyP.IO ())+emitChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQClipboard arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (emitChanged' arg'1' arg'2')++emitDataChanged :: (QClipboardPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitDataChanged arg'1 =+  HoppyFHR.withCppPtr (toQClipboard arg'1) $ \arg'1' ->+  (emitDataChanged' arg'1')++emitFindBufferChanged :: (QClipboardPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitFindBufferChanged arg'1 =+  HoppyFHR.withCppPtr (toQClipboard arg'1) $ \arg'1' ->+  (emitFindBufferChanged' arg'1')++emitSelectionChanged :: (QClipboardPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitSelectionChanged arg'1 =+  HoppyFHR.withCppPtr (toQClipboard arg'1) $ \arg'1' ->+  (emitSelectionChanged' arg'1')++data QClipboardConst =+    QClipboardConst (HoppyF.Ptr QClipboardConst)+  | QClipboardConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QClipboardConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QClipboardConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QClipboardConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQClipboardToConst :: QClipboard -> QClipboardConst+castQClipboardToConst (QClipboard ptr') = QClipboardConst $ HoppyF.castPtr ptr'+castQClipboardToConst (QClipboardGc fptr' ptr') = QClipboardConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QClipboardConst where+  nullptr = QClipboardConst HoppyF.nullPtr+  +  withCppPtr (QClipboardConst ptr') f' = f' ptr'+  withCppPtr (QClipboardConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QClipboardConst ptr') = ptr'+  toPtr (QClipboardConstGc _ ptr') = ptr'+  +  touchCppPtr (QClipboardConst _) = HoppyP.return ()+  touchCppPtr (QClipboardConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance QClipboardConstPtr QClipboardConst where+  toQClipboardConst = HoppyP.id++instance M94.QObjectConstPtr QClipboardConst where+  toQObjectConst (QClipboardConst ptr') = M94.QObjectConst $ castQClipboardToQObject ptr'+  toQObjectConst (QClipboardConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQClipboardToQObject ptr'++data QClipboard =+    QClipboard (HoppyF.Ptr QClipboard)+  | QClipboardGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QClipboard)+  deriving (HoppyP.Show)++instance HoppyP.Eq QClipboard where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QClipboard where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQClipboardToNonconst :: QClipboardConst -> QClipboard+castQClipboardToNonconst (QClipboardConst ptr') = QClipboard $ HoppyF.castPtr ptr'+castQClipboardToNonconst (QClipboardConstGc fptr' ptr') = QClipboardGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QClipboard where+  nullptr = QClipboard HoppyF.nullPtr+  +  withCppPtr (QClipboard ptr') f' = f' ptr'+  withCppPtr (QClipboardGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QClipboard ptr') = ptr'+  toPtr (QClipboardGc _ ptr') = ptr'+  +  touchCppPtr (QClipboard _) = HoppyP.return ()+  touchCppPtr (QClipboardGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance QClipboardConstPtr QClipboard where+  toQClipboardConst (QClipboard ptr') = QClipboardConst $ (HoppyF.castPtr :: HoppyF.Ptr QClipboard -> HoppyF.Ptr QClipboardConst) ptr'+  toQClipboardConst (QClipboardGc fptr' ptr') = QClipboardConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QClipboard -> HoppyF.Ptr QClipboardConst) ptr'++instance QClipboardPtr QClipboard where+  toQClipboard = HoppyP.id++instance M94.QObjectConstPtr QClipboard where+  toQObjectConst (QClipboard ptr') = M94.QObjectConst $ castQClipboardToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QClipboard -> HoppyF.Ptr QClipboardConst) ptr'+  toQObjectConst (QClipboardGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQClipboardToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QClipboard -> HoppyF.Ptr QClipboardConst) ptr'++instance M94.QObjectPtr QClipboard where+  toQObject (QClipboard ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQClipboardToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QClipboard -> HoppyF.Ptr QClipboardConst) ptr'+  toQObject (QClipboardGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQClipboardToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QClipboard -> HoppyF.Ptr QClipboardConst) ptr'++class QClipboardSuper a where+  downToQClipboard :: a -> QClipboard++instance QClipboardSuper M94.QObject where+  downToQClipboard = castQClipboardToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QClipboardConst $ castQObjectToQClipboard ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QClipboardConstGc fptr' $ castQObjectToQClipboard ptr'++class QClipboardSuperConst a where+  downToQClipboardConst :: a -> QClipboardConst++instance QClipboardSuperConst M94.QObjectConst where+  downToQClipboardConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QClipboardConst $ castQObjectToQClipboard ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QClipboardConstGc fptr' $ castQObjectToQClipboard ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QClipboard)) QClipboard where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QClipboard)) QClipboard where+  decode = HoppyP.fmap QClipboard . HoppyF.peek++data QClipboardMode =+  Clipboard+  | Selection+  | FindBuffer+  | UnknownQClipboardMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QClipboardMode where+  fromCppEnum Clipboard = 0+  fromCppEnum Selection = 1+  fromCppEnum FindBuffer = 2+  fromCppEnum (UnknownQClipboardMode n) = n+  +  toCppEnum (0) = Clipboard+  toCppEnum (1) = Selection+  toCppEnum (2) = FindBuffer+  toCppEnum n = UnknownQClipboardMode n++instance HoppyP.Eq QClipboardMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QClipboardMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Gui/QClipboard.hs-boot view
@@ -0,0 +1,69 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QClipboard (+  QClipboardValue (..),+  QClipboardConstPtr (..),+  QClipboardPtr (..),+  QClipboardConst (..),+  castQClipboardToConst,+  QClipboard (..),+  castQClipboardToNonconst,+  castQClipboardToQObject,+  QClipboardMode,+  ) 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.Core.QObject as M94+import qualified Prelude as HoppyP+++class QClipboardValue a where+  withQClipboardPtr :: a -> (QClipboardConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QClipboardConstPtr a => QClipboardValue a++class (M94.QObjectConstPtr this) => QClipboardConstPtr this where+  toQClipboardConst :: this -> QClipboardConst++class (QClipboardConstPtr this, M94.QObjectPtr this) => QClipboardPtr this where+  toQClipboard :: this -> QClipboard++data QClipboardConst =+    QClipboardConst (HoppyF.Ptr QClipboardConst)+  | QClipboardConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QClipboardConst)++castQClipboardToConst :: QClipboard -> QClipboardConst++instance HoppyFHR.CppPtr QClipboardConst++instance QClipboardConstPtr QClipboardConst++instance M94.QObjectConstPtr QClipboardConst++data QClipboard =+    QClipboard (HoppyF.Ptr QClipboard)+  | QClipboardGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QClipboard)++castQClipboardToNonconst :: QClipboardConst -> QClipboard++instance HoppyFHR.CppPtr QClipboard++instance QClipboardConstPtr QClipboard++instance QClipboardPtr QClipboard++instance M94.QObjectConstPtr QClipboard++instance M94.QObjectPtr QClipboard+castQClipboardToQObject :: HoppyF.Ptr QClipboardConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QClipboard)) QClipboard++data QClipboardMode+instance HoppyFHR.CppEnum (HoppyFC.CInt) QClipboardMode+instance HoppyP.Eq QClipboardMode+instance HoppyP.Ord QClipboardMode+instance HoppyP.Show QClipboardMode
src/Graphics/UI/Qtah/Generated/Gui/QCloseEvent.hs view
@@ -0,0 +1,160 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QCloseEvent (+  castQCloseEventToQEvent,+  castQEventToQCloseEvent,+  QCloseEventValue (..),+  QCloseEventConstPtr (..),+  QCloseEventPtr (..),+  QCloseEventConst (..),+  castQCloseEventToConst,+  QCloseEvent (..),+  castQCloseEventToNonconst,+  new,+  QCloseEventSuper (..),+  QCloseEventSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QCloseEvent_new" new' ::  HoppyP.IO (HoppyF.Ptr QCloseEvent)+foreign import ccall "gencast__QCloseEvent__QEvent" castQCloseEventToQEvent :: HoppyF.Ptr QCloseEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QCloseEvent" castQEventToQCloseEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QCloseEventConst+foreign import ccall "gendel__QCloseEvent" delete'QCloseEvent :: HoppyF.Ptr QCloseEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QCloseEvent" deletePtr'QCloseEvent :: HoppyF.FunPtr (HoppyF.Ptr QCloseEventConst -> HoppyP.IO ())++class QCloseEventValue a where+  withQCloseEventPtr :: a -> (QCloseEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QCloseEventConstPtr a => QCloseEventValue a where+  withQCloseEventPtr = HoppyP.flip ($) . toQCloseEventConst++class (M34.QEventConstPtr this) => QCloseEventConstPtr this where+  toQCloseEventConst :: this -> QCloseEventConst++class (QCloseEventConstPtr this, M34.QEventPtr this) => QCloseEventPtr this where+  toQCloseEvent :: this -> QCloseEvent++data QCloseEventConst =+    QCloseEventConst (HoppyF.Ptr QCloseEventConst)+  | QCloseEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QCloseEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QCloseEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QCloseEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQCloseEventToConst :: QCloseEvent -> QCloseEventConst+castQCloseEventToConst (QCloseEvent ptr') = QCloseEventConst $ HoppyF.castPtr ptr'+castQCloseEventToConst (QCloseEventGc fptr' ptr') = QCloseEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QCloseEventConst where+  nullptr = QCloseEventConst HoppyF.nullPtr+  +  withCppPtr (QCloseEventConst ptr') f' = f' ptr'+  withCppPtr (QCloseEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QCloseEventConst ptr') = ptr'+  toPtr (QCloseEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QCloseEventConst _) = HoppyP.return ()+  touchCppPtr (QCloseEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QCloseEventConst where+  delete (QCloseEventConst ptr') = delete'QCloseEvent ptr'+  delete (QCloseEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QCloseEventConst", " object."]+  +  toGc this'@(QCloseEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QCloseEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QCloseEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QCloseEventConstGc {}) = HoppyP.return this'++instance QCloseEventConstPtr QCloseEventConst where+  toQCloseEventConst = HoppyP.id++instance M34.QEventConstPtr QCloseEventConst where+  toQEventConst (QCloseEventConst ptr') = M34.QEventConst $ castQCloseEventToQEvent ptr'+  toQEventConst (QCloseEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQCloseEventToQEvent ptr'++data QCloseEvent =+    QCloseEvent (HoppyF.Ptr QCloseEvent)+  | QCloseEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QCloseEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QCloseEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QCloseEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQCloseEventToNonconst :: QCloseEventConst -> QCloseEvent+castQCloseEventToNonconst (QCloseEventConst ptr') = QCloseEvent $ HoppyF.castPtr ptr'+castQCloseEventToNonconst (QCloseEventConstGc fptr' ptr') = QCloseEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QCloseEvent where+  nullptr = QCloseEvent HoppyF.nullPtr+  +  withCppPtr (QCloseEvent ptr') f' = f' ptr'+  withCppPtr (QCloseEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QCloseEvent ptr') = ptr'+  toPtr (QCloseEventGc _ ptr') = ptr'+  +  touchCppPtr (QCloseEvent _) = HoppyP.return ()+  touchCppPtr (QCloseEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QCloseEvent where+  delete (QCloseEvent ptr') = delete'QCloseEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QCloseEventConst)+  delete (QCloseEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QCloseEvent", " object."]+  +  toGc this'@(QCloseEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QCloseEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QCloseEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QCloseEventGc {}) = HoppyP.return this'++instance QCloseEventConstPtr QCloseEvent where+  toQCloseEventConst (QCloseEvent ptr') = QCloseEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QCloseEvent -> HoppyF.Ptr QCloseEventConst) ptr'+  toQCloseEventConst (QCloseEventGc fptr' ptr') = QCloseEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QCloseEvent -> HoppyF.Ptr QCloseEventConst) ptr'++instance QCloseEventPtr QCloseEvent where+  toQCloseEvent = HoppyP.id++instance M34.QEventConstPtr QCloseEvent where+  toQEventConst (QCloseEvent ptr') = M34.QEventConst $ castQCloseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QCloseEvent -> HoppyF.Ptr QCloseEventConst) ptr'+  toQEventConst (QCloseEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQCloseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QCloseEvent -> HoppyF.Ptr QCloseEventConst) ptr'++instance M34.QEventPtr QCloseEvent where+  toQEvent (QCloseEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQCloseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QCloseEvent -> HoppyF.Ptr QCloseEventConst) ptr'+  toQEvent (QCloseEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQCloseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QCloseEvent -> HoppyF.Ptr QCloseEventConst) ptr'++new :: (HoppyP.IO QCloseEvent)+new =+  HoppyP.fmap QCloseEvent+  (new')++class QCloseEventSuper a where+  downToQCloseEvent :: a -> QCloseEvent++instance QCloseEventSuper M34.QEvent where+  downToQCloseEvent = castQCloseEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QCloseEventConst $ castQEventToQCloseEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QCloseEventConstGc fptr' $ castQEventToQCloseEvent ptr'++class QCloseEventSuperConst a where+  downToQCloseEventConst :: a -> QCloseEventConst++instance QCloseEventSuperConst M34.QEventConst where+  downToQCloseEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QCloseEventConst $ castQEventToQCloseEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QCloseEventConstGc fptr' $ castQEventToQCloseEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QCloseEvent)) QCloseEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QCloseEvent)) QCloseEvent where+  decode = HoppyP.fmap QCloseEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QColor.hs view
@@ -0,0 +1,1346 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QColor (+  QColorValue (..),+  QColorConstPtr (..),+  alpha,+  alphaF,+  black,+  blackF,+  blue,+  blueF,+  convertTo,+  cyan,+  cyanF,+  darker,+  darkerBy,+  green,+  greenF,+  hslHue,+  hslHueF,+  hslSaturation,+  hslSaturationF,+  hsvHue,+  hsvHueF,+  hsvSaturation,+  hsvSaturationF,+  hue,+  hueF,+  isValid,+  lighter,+  lighterBy,+  lightness,+  lightnessF,+  magenta,+  magentaF,+  name,+  nameWithFormat,+  red,+  redF,+  rgb,+  rgba,+  saturation,+  saturationF,+  spec,+  toCmyk,+  toHsl,+  toHsv,+  toRgb,+  value,+  valueF,+  yellow,+  yellowF,+  eQ,+  nE,+  QColorPtr (..),+  setAlpha,+  setAlphaF,+  setBlue,+  setBlueF,+  setGreen,+  setGreenF,+  setRed,+  setRedF,+  setCmyk,+  setCmyka,+  setCmykF,+  setCmykaF,+  setHsl,+  setHsla,+  setHslF,+  setHslaF,+  setHsv,+  setHsva,+  setHsvF,+  setHsvaF,+  setNamedColor,+  setQRgb,+  setQRgba,+  setRgb,+  setRgba,+  setRgbF,+  setRgbaF,+  aSSIGN,+  colorNames,+  isValidColor,+  QColorConst (..),+  castQColorToConst,+  QColor (..),+  castQColorToNonconst,+  new,+  newQRgb,+  newRgb,+  newRgba,+  newNamedColor,+  newGlobalColor,+  newCopy,+  QColorSuper (..),+  QColorSuperConst (..),+  QColorNameFormat (..),+  QColorSpec (..),+  qAlpha,+  qBlue,+  qGray,+  qGrayFromRgb,+  qGreen,+  qPremultiply,+  qRed,+  qRgb,+  qRgba,+  qUnpremultiply,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QStringList as M144+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Gui.HColor as HColor+import Prelude (($), (++), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+import qualified System.IO.Unsafe as HoppySIU++foreign import ccall "genpop__QColor_new" new' ::  HoppyP.IO (HoppyF.Ptr QColor)+foreign import ccall "genpop__QColor_newQRgb" newQRgb' ::  HoppyFC.CUInt -> HoppyP.IO (HoppyF.Ptr QColor)+foreign import ccall "genpop__QColor_newRgb" newRgb' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QColor)+foreign import ccall "genpop__QColor_newRgba" newRgba' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QColor)+foreign import ccall "genpop__QColor_newNamedColor" newNamedColor' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QColor)+foreign import ccall "genpop__QColor_newGlobalColor" newGlobalColor' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QColor)+foreign import ccall "genpop__QColor_newCopy" newCopy' ::  HoppyF.Ptr QColorConst -> HoppyP.IO (HoppyF.Ptr QColor)+foreign import ccall "genpop__QColor_alpha" alpha' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_setAlpha" setAlpha' ::  HoppyF.Ptr QColor -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QColor_alphaF" alphaF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_setAlphaF" setAlphaF' ::  HoppyF.Ptr QColor -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QColor_black" black' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_blackF" blackF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_blue" blue' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_setBlue" setBlue' ::  HoppyF.Ptr QColor -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QColor_blueF" blueF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_setBlueF" setBlueF' ::  HoppyF.Ptr QColor -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QColor_colorNames" colorNames' ::  HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QColor_convertTo" convertTo' ::  HoppyF.Ptr QColorConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QColorConst)+foreign import ccall "genpop__QColor_cyan" cyan' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_cyanF" cyanF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_darker" darker' ::  HoppyF.Ptr QColorConst -> HoppyP.IO (HoppyF.Ptr QColorConst)+foreign import ccall "genpop__QColor_darkerBy" darkerBy' ::  HoppyF.Ptr QColorConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QColorConst)+foreign import ccall "genpop__QColor_green" green' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_setGreen" setGreen' ::  HoppyF.Ptr QColor -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QColor_greenF" greenF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_setGreenF" setGreenF' ::  HoppyF.Ptr QColor -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QColor_hslHue" hslHue' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_hslHueF" hslHueF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_hslSaturation" hslSaturation' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_hslSaturationF" hslSaturationF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_hsvHue" hsvHue' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_hsvHueF" hsvHueF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_hsvSaturation" hsvSaturation' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_hsvSaturationF" hsvSaturationF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_hue" hue' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_hueF" hueF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_isValid" isValid' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QColor_isValidColor" isValidColor' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QColor_lighter" lighter' ::  HoppyF.Ptr QColorConst -> HoppyP.IO (HoppyF.Ptr QColorConst)+foreign import ccall "genpop__QColor_lighterBy" lighterBy' ::  HoppyF.Ptr QColorConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QColorConst)+foreign import ccall "genpop__QColor_lightness" lightness' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_lightnessF" lightnessF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_magenta" magenta' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_magentaF" magentaF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_name" name' ::  HoppyF.Ptr QColorConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QColor_nameWithFormat" nameWithFormat' ::  HoppyF.Ptr QColorConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QColor_red" red' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_setRed" setRed' ::  HoppyF.Ptr QColor -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QColor_redF" redF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_setRedF" setRedF' ::  HoppyF.Ptr QColor -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QColor_rgb" rgb' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QColor_rgba" rgba' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QColor_saturation" saturation' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_saturationF" saturationF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_setCmyk" setCmyk' ::  HoppyF.Ptr QColor -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setCmyka" setCmyka' ::  HoppyF.Ptr QColor -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setCmykF" setCmykF' ::  HoppyF.Ptr QColor -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setCmykaF" setCmykaF' ::  HoppyF.Ptr QColor -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setHsl" setHsl' ::  HoppyF.Ptr QColor -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setHsla" setHsla' ::  HoppyF.Ptr QColor -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setHslF" setHslF' ::  HoppyF.Ptr QColor -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setHslaF" setHslaF' ::  HoppyF.Ptr QColor -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setHsv" setHsv' ::  HoppyF.Ptr QColor -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setHsva" setHsva' ::  HoppyF.Ptr QColor -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setHsvF" setHsvF' ::  HoppyF.Ptr QColor -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setHsvaF" setHsvaF' ::  HoppyF.Ptr QColor -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setNamedColor" setNamedColor' ::  HoppyF.Ptr QColor -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setQRgb" setQRgb' ::  HoppyF.Ptr QColor -> HoppyFC.CUInt -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setQRgba" setQRgba' ::  HoppyF.Ptr QColor -> HoppyFC.CUInt -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setRgb" setRgb' ::  HoppyF.Ptr QColor -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setRgba" setRgba' ::  HoppyF.Ptr QColor -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setRgbF" setRgbF' ::  HoppyF.Ptr QColor -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QColor_setRgbaF" setRgbaF' ::  HoppyF.Ptr QColor -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QColor_spec" spec' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_toCmyk" toCmyk' ::  HoppyF.Ptr QColorConst -> HoppyP.IO (HoppyF.Ptr QColorConst)+foreign import ccall "genpop__QColor_toHsl" toHsl' ::  HoppyF.Ptr QColorConst -> HoppyP.IO (HoppyF.Ptr QColorConst)+foreign import ccall "genpop__QColor_toHsv" toHsv' ::  HoppyF.Ptr QColorConst -> HoppyP.IO (HoppyF.Ptr QColorConst)+foreign import ccall "genpop__QColor_toRgb" toRgb' ::  HoppyF.Ptr QColorConst -> HoppyP.IO (HoppyF.Ptr QColorConst)+foreign import ccall "genpop__QColor_value" value' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_valueF" valueF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_yellow" yellow' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QColor_yellowF" yellowF' ::  HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QColor_EQ" eQ' ::  HoppyF.Ptr QColorConst -> HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QColor_NE" nE' ::  HoppyF.Ptr QColorConst -> HoppyF.Ptr QColorConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QColor_ASSIGN" aSSIGN' ::  HoppyF.Ptr QColor -> HoppyF.Ptr QColorConst -> HoppyP.IO (HoppyF.Ptr QColor)+foreign import ccall "gendel__QColor" delete'QColor :: HoppyF.Ptr QColorConst -> HoppyP.IO ()+foreign import ccall "&gendel__QColor" deletePtr'QColor :: HoppyF.FunPtr (HoppyF.Ptr QColorConst -> HoppyP.IO ())+foreign import ccall "genpop__qAlpha" qAlpha' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__qBlue" qBlue' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__qGray" qGray' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__qGrayFromRgb" qGrayFromRgb' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__qGreen" qGreen' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__qPremultiply" qPremultiply' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__qRed" qRed' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__qRgb" qRgb' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__qRgba" qRgba' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__qUnpremultiply" qUnpremultiply' ::  HoppyFC.CUInt -> HoppyP.IO HoppyFC.CUInt++class QColorValue a where+  withQColorPtr :: a -> (QColorConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QColorConstPtr a => QColorValue a where+  withQColorPtr = HoppyP.flip ($) . toQColorConst++instance {-# OVERLAPPING #-} QColorValue (HColor.HColor) where+  withQColorPtr = HoppyFHR.withCppObj++class (HoppyFHR.CppPtr this) => QColorConstPtr this where+  toQColorConst :: this -> QColorConst++alpha :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+alpha arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (alpha' arg'1')++alphaF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+alphaF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (alphaF' arg'1')++black :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+black arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (black' arg'1')++blackF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+blackF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (blackF' arg'1')++blue :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+blue arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (blue' arg'1')++blueF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+blueF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (blueF' arg'1')++convertTo :: (QColorValue this) => (this) {- ^ this -} -> (QColorSpec) -> (HoppyP.IO HColor.HColor)+convertTo arg'1 arg'2 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QColorConst) =<<+  (convertTo' arg'1' arg'2')++cyan :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+cyan arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (cyan' arg'1')++cyanF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+cyanF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (cyanF' arg'1')++darker :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HColor.HColor)+darker arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QColorConst) =<<+  (darker' arg'1')++darkerBy :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HColor.HColor)+darkerBy arg'1 arg'2 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QColorConst) =<<+  (darkerBy' arg'1' arg'2')++green :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+green arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (green' arg'1')++greenF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+greenF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (greenF' arg'1')++hslHue :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+hslHue arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (hslHue' arg'1')++hslHueF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+hslHueF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (hslHueF' arg'1')++hslSaturation :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+hslSaturation arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (hslSaturation' arg'1')++hslSaturationF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+hslSaturationF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (hslSaturationF' arg'1')++hsvHue :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+hsvHue arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (hsvHue' arg'1')++hsvHueF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+hsvHueF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (hsvHueF' arg'1')++hsvSaturation :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+hsvSaturation arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (hsvSaturation' arg'1')++hsvSaturationF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+hsvSaturationF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (hsvSaturationF' arg'1')++hue :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+hue arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (hue' arg'1')++hueF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+hueF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (hueF' arg'1')++isValid :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++lighter :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HColor.HColor)+lighter arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QColorConst) =<<+  (lighter' arg'1')++lighterBy :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HColor.HColor)+lighterBy arg'1 arg'2 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QColorConst) =<<+  (lighterBy' arg'1' arg'2')++lightness :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+lightness arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lightness' arg'1')++lightnessF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+lightnessF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (lightnessF' arg'1')++magenta :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+magenta arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (magenta' arg'1')++magentaF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+magentaF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (magentaF' arg'1')++name :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+name arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (name' arg'1')++nameWithFormat :: (QColorValue this) => (this) {- ^ this -} -> (QColorNameFormat) -> (HoppyP.IO QtahP.String)+nameWithFormat arg'1 arg'2 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (nameWithFormat' arg'1' arg'2')++red :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+red arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (red' arg'1')++redF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+redF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (redF' arg'1')++rgb :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CUInt)+rgb arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (rgb' arg'1')++rgba :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CUInt)+rgba arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (rgba' arg'1')++saturation :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+saturation arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (saturation' arg'1')++saturationF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+saturationF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (saturationF' arg'1')++spec :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO QColorSpec)+spec arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (spec' arg'1')++toCmyk :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HColor.HColor)+toCmyk arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QColorConst) =<<+  (toCmyk' arg'1')++toHsl :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HColor.HColor)+toHsl arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QColorConst) =<<+  (toHsl' arg'1')++toHsv :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HColor.HColor)+toHsv arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QColorConst) =<<+  (toHsv' arg'1')++toRgb :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HColor.HColor)+toRgb arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QColorConst) =<<+  (toRgb' arg'1')++value :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+value arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (value' arg'1')++valueF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+valueF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (valueF' arg'1')++yellow :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+yellow arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (yellow' arg'1')++yellowF :: (QColorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+yellowF arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (yellowF' arg'1')++eQ :: (QColorValue this, QColorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQColorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QColorValue this, QColorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQColorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QColorConstPtr this) => QColorPtr this where+  toQColor :: this -> QColor++setAlpha :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setAlpha arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setAlpha' arg'1' arg'2')++setAlphaF :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setAlphaF arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setAlphaF' arg'1' arg'2')++setBlue :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setBlue arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setBlue' arg'1' arg'2')++setBlueF :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setBlueF arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setBlueF' arg'1' arg'2')++setGreen :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setGreen arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setGreen' arg'1' arg'2')++setGreenF :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setGreenF arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setGreenF' arg'1' arg'2')++setRed :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setRed arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setRed' arg'1' arg'2')++setRedF :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setRedF arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setRedF' arg'1' arg'2')++setCmyk :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setCmyk arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQColor 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' ->+  (setCmyk' arg'1' arg'2' arg'3' arg'4' arg'5')++setCmyka :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setCmyka arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  HoppyFHR.withCppPtr (toQColor 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' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (setCmyka' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++setCmykF :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setCmykF arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (setCmykF' arg'1' arg'2' arg'3' arg'4' arg'5')++setCmykaF :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setCmykaF arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'6 >>= \arg'6' ->+  (setCmykaF' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++setHsl :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setHsl arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQColor 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' ->+  (setHsl' arg'1' arg'2' arg'3' arg'4')++setHsla :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setHsla arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQColor 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' ->+  (setHsla' arg'1' arg'2' arg'3' arg'4' arg'5')++setHslF :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setHslF arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (setHslF' arg'1' arg'2' arg'3' arg'4')++setHslaF :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setHslaF arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (setHslaF' arg'1' arg'2' arg'3' arg'4' arg'5')++setHsv :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setHsv arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQColor 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' ->+  (setHsv' arg'1' arg'2' arg'3' arg'4')++setHsva :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setHsva arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQColor 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' ->+  (setHsva' arg'1' arg'2' arg'3' arg'4' arg'5')++setHsvF :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setHsvF arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (setHsvF' arg'1' arg'2' arg'3' arg'4')++setHsvaF :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setHsvaF arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (setHsvaF' arg'1' arg'2' arg'3' arg'4' arg'5')++setNamedColor :: (QColorPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setNamedColor arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setNamedColor' arg'1' arg'2')++setQRgb :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO ())+setQRgb arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (setQRgb' arg'1' arg'2')++setQRgba :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO ())+setQRgba arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (setQRgba' arg'1' arg'2')++setRgb :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setRgb arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQColor 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' ->+  (setRgb' arg'1' arg'2' arg'3' arg'4')++setRgba :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setRgba arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQColor 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' ->+  (setRgba' arg'1' arg'2' arg'3' arg'4' arg'5')++setRgbF :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setRgbF arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (setRgbF' arg'1' arg'2' arg'3' arg'4')++setRgbaF :: (QColorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setRgbaF arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (setRgbaF' arg'1' arg'2' arg'3' arg'4' arg'5')++aSSIGN :: (QColorPtr this, QColorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QColor)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQColor arg'1) $ \arg'1' ->+  withQColorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QColor+  (aSSIGN' arg'1' arg'2')++colorNames :: (HoppyP.IO [QtahP.String])+colorNames =+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (colorNames')++isValidColor :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Bool)+isValidColor arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValidColor' arg'1')++data QColorConst =+    QColorConst (HoppyF.Ptr QColorConst)+  | QColorConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QColorConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QColorConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QColorConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQColorToConst :: QColor -> QColorConst+castQColorToConst (QColor ptr') = QColorConst $ HoppyF.castPtr ptr'+castQColorToConst (QColorGc fptr' ptr') = QColorConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QColorConst where+  nullptr = QColorConst HoppyF.nullPtr+  +  withCppPtr (QColorConst ptr') f' = f' ptr'+  withCppPtr (QColorConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QColorConst ptr') = ptr'+  toPtr (QColorConstGc _ ptr') = ptr'+  +  touchCppPtr (QColorConst _) = HoppyP.return ()+  touchCppPtr (QColorConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QColorConst where+  delete (QColorConst ptr') = delete'QColor ptr'+  delete (QColorConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QColorConst", " object."]+  +  toGc this'@(QColorConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QColorConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QColor :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QColorConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QColorConst QColor where copy = newCopy++instance QColorConstPtr QColorConst where+  toQColorConst = HoppyP.id++data QColor =+    QColor (HoppyF.Ptr QColor)+  | QColorGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QColor)+  deriving (HoppyP.Show)++instance HoppyP.Eq QColor where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QColor where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQColorToNonconst :: QColorConst -> QColor+castQColorToNonconst (QColorConst ptr') = QColor $ HoppyF.castPtr ptr'+castQColorToNonconst (QColorConstGc fptr' ptr') = QColorGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QColor where+  nullptr = QColor HoppyF.nullPtr+  +  withCppPtr (QColor ptr') f' = f' ptr'+  withCppPtr (QColorGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QColor ptr') = ptr'+  toPtr (QColorGc _ ptr') = ptr'+  +  touchCppPtr (QColor _) = HoppyP.return ()+  touchCppPtr (QColorGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QColor where+  delete (QColor ptr') = delete'QColor $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QColorConst)+  delete (QColorGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QColor", " object."]+  +  toGc this'@(QColor ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QColorGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QColor :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QColorGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QColor QColor where copy = newCopy++instance QColorConstPtr QColor where+  toQColorConst (QColor ptr') = QColorConst $ (HoppyF.castPtr :: HoppyF.Ptr QColor -> HoppyF.Ptr QColorConst) ptr'+  toQColorConst (QColorGc fptr' ptr') = QColorConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QColor -> HoppyF.Ptr QColorConst) ptr'++instance QColorPtr QColor where+  toQColor = HoppyP.id++new :: (HoppyP.IO QColor)+new =+  HoppyP.fmap QColor+  (new')++newQRgb :: (HoppyFC.CUInt) -> (HoppyP.IO QColor)+newQRgb arg'1 =+  let arg'1' = arg'1 in+  HoppyP.fmap QColor+  (newQRgb' arg'1')++newRgb :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QColor)+newRgb arg'1 arg'2 arg'3 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QColor+  (newRgb' arg'1' arg'2' arg'3')++newRgba :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QColor)+newRgba 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.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QColor+  (newRgba' arg'1' arg'2' arg'3' arg'4')++newNamedColor :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QColor)+newNamedColor arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QColor+  (newNamedColor' arg'1')++newGlobalColor :: (M190.QtGlobalColor) -> (HoppyP.IO QColor)+newGlobalColor arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QColor+  (newGlobalColor' arg'1')++newCopy :: (QColorValue arg'1) => (arg'1) -> (HoppyP.IO QColor)+newCopy arg'1 =+  withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QColor+  (newCopy' arg'1')++class QColorSuper a where+  downToQColor :: a -> QColor+++class QColorSuperConst a where+  downToQColorConst :: a -> QColorConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QColor)) QColor where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QColorValue a => HoppyFHR.Assignable QColor a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QColor)) QColor where+  decode = HoppyP.fmap QColor . HoppyF.peek++instance HoppyFHR.Encodable QColor (HColor.HColor) where+  encode =+    \color' -> do+      this' <- new+      case color' of+        HColor.Invalid -> QtahP.return ()+        HColor.Rgb r' g' b' a' -> setRgba this' (QtahFHR.coerceIntegral r') (QtahFHR.coerceIntegral g') (QtahFHR.coerceIntegral b') (QtahFHR.coerceIntegral a')+        HColor.Cmyk c' m' y' k' a' -> setCmyka this' (QtahFHR.coerceIntegral c') (QtahFHR.coerceIntegral m') (QtahFHR.coerceIntegral y') (QtahFHR.coerceIntegral k') (QtahFHR.coerceIntegral a')+        HColor.Hsl h' s' l' a' -> setHsla this' (QtahFHR.coerceIntegral h') (QtahFHR.coerceIntegral s') (QtahFHR.coerceIntegral l') (QtahFHR.coerceIntegral a')+        HColor.Hsv h' s' v' a' -> setHsva this' (QtahFHR.coerceIntegral h') (QtahFHR.coerceIntegral s') (QtahFHR.coerceIntegral v') (QtahFHR.coerceIntegral a')+      QtahP.return this'++instance HoppyFHR.Encodable QColorConst (HColor.HColor) where+  encode = HoppyP.fmap (toQColorConst) . HoppyFHR.encodeAs (HoppyP.undefined :: QColor)++instance HoppyFHR.Decodable QColor (HColor.HColor) where+  decode = HoppyFHR.decode . toQColorConst++instance HoppyFHR.Decodable QColorConst (HColor.HColor) where+  decode =+    \this' -> spec this' >>= \spec' -> case spec' of+      Invalid -> do+        QtahP.return $ HColor.Invalid+      Rgb -> do+        r' <- QtahP.fmap QtahFHR.coerceIntegral $ red this'+        g' <- QtahP.fmap QtahFHR.coerceIntegral $ green this'+        b' <- QtahP.fmap QtahFHR.coerceIntegral $ blue this'+        a' <- QtahP.fmap QtahFHR.coerceIntegral $ alpha this'+        QtahP.return $ HColor.Rgb r' g' b' a'+      Cmyk -> do+        c' <- QtahP.fmap QtahFHR.coerceIntegral $ cyan this'+        m' <- QtahP.fmap QtahFHR.coerceIntegral $ magenta this'+        y' <- QtahP.fmap QtahFHR.coerceIntegral $ yellow this'+        k' <- QtahP.fmap QtahFHR.coerceIntegral $ black this'+        a' <- QtahP.fmap QtahFHR.coerceIntegral $ alpha this'+        QtahP.return $ HColor.Cmyk c' m' y' k' a'+      Hsl -> do+        h' <- QtahP.fmap QtahFHR.coerceIntegral $ hslHue this'+        s' <- QtahP.fmap QtahFHR.coerceIntegral $ hslSaturation this'+        l' <- QtahP.fmap QtahFHR.coerceIntegral $ lightness this'+        a' <- QtahP.fmap QtahFHR.coerceIntegral $ alpha this'+        QtahP.return $ HColor.Hsl h' s' l' a'+      Hsv -> do+        h' <- QtahP.fmap QtahFHR.coerceIntegral $ hsvHue this'+        s' <- QtahP.fmap QtahFHR.coerceIntegral $ hsvSaturation this'+        v' <- QtahP.fmap QtahFHR.coerceIntegral $ value this'+        a' <- QtahP.fmap QtahFHR.coerceIntegral $ alpha this'+        QtahP.return $ HColor.Hsv h' s' v' a'+      _ -> QtahP.error $ "HColor's Decodable instance doesn't understand QColor::Spec " ++ QtahP.show spec' ++ "."++data QColorNameFormat =+  HexRgb+  | HexArgb+  | UnknownQColorNameFormat (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QColorNameFormat where+  fromCppEnum HexRgb = 0+  fromCppEnum HexArgb = 1+  fromCppEnum (UnknownQColorNameFormat n) = n+  +  toCppEnum (0) = HexRgb+  toCppEnum (1) = HexArgb+  toCppEnum n = UnknownQColorNameFormat n++instance HoppyP.Eq QColorNameFormat where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QColorNameFormat where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QColorSpec =+  Invalid+  | Rgb+  | Hsv+  | Cmyk+  | Hsl+  | UnknownQColorSpec (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QColorSpec where+  fromCppEnum Invalid = 0+  fromCppEnum Rgb = 1+  fromCppEnum Hsv = 2+  fromCppEnum Cmyk = 3+  fromCppEnum Hsl = 4+  fromCppEnum (UnknownQColorSpec n) = n+  +  toCppEnum (0) = Invalid+  toCppEnum (1) = Rgb+  toCppEnum (2) = Hsv+  toCppEnum (3) = Cmyk+  toCppEnum (4) = Hsl+  toCppEnum n = UnknownQColorSpec n++instance HoppyP.Eq QColorSpec where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QColorSpec where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++qAlpha :: (HoppyFC.CUInt) -> (HoppyP.Int)+{-# NOINLINE qAlpha #-}+qAlpha arg'1 = HoppySIU.unsafePerformIO $+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (qAlpha' arg'1')++qBlue :: (HoppyFC.CUInt) -> (HoppyP.Int)+{-# NOINLINE qBlue #-}+qBlue arg'1 = HoppySIU.unsafePerformIO $+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (qBlue' arg'1')++qGray :: (HoppyFC.CUInt) -> (HoppyP.Int)+{-# NOINLINE qGray #-}+qGray arg'1 = HoppySIU.unsafePerformIO $+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (qGray' arg'1')++qGrayFromRgb :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int)+{-# NOINLINE qGrayFromRgb #-}+qGrayFromRgb arg'1 arg'2 arg'3 = HoppySIU.unsafePerformIO $+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (qGrayFromRgb' arg'1' arg'2' arg'3')++qGreen :: (HoppyFC.CUInt) -> (HoppyP.Int)+{-# NOINLINE qGreen #-}+qGreen arg'1 = HoppySIU.unsafePerformIO $+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (qGreen' arg'1')++qPremultiply :: (HoppyFC.CUInt) -> (HoppyFC.CUInt)+{-# NOINLINE qPremultiply #-}+qPremultiply arg'1 = HoppySIU.unsafePerformIO $+  let arg'1' = arg'1 in+  (qPremultiply' arg'1')++qRed :: (HoppyFC.CUInt) -> (HoppyP.Int)+{-# NOINLINE qRed #-}+qRed arg'1 = HoppySIU.unsafePerformIO $+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (qRed' arg'1')++qRgb :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyFC.CUInt)+{-# NOINLINE qRgb #-}+qRgb arg'1 arg'2 arg'3 = HoppySIU.unsafePerformIO $+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (qRgb' arg'1' arg'2' arg'3')++qRgba :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyFC.CUInt)+{-# NOINLINE qRgba #-}+qRgba arg'1 arg'2 arg'3 arg'4 = HoppySIU.unsafePerformIO $+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) 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' ->+  (qRgba' arg'1' arg'2' arg'3' arg'4')++qUnpremultiply :: (HoppyFC.CUInt) -> (HoppyFC.CUInt)+{-# NOINLINE qUnpremultiply #-}+qUnpremultiply arg'1 = HoppySIU.unsafePerformIO $+  let arg'1' = arg'1 in+  (qUnpremultiply' arg'1')
+ src/Graphics/UI/Qtah/Generated/Gui/QContextMenuEvent.hs view
@@ -0,0 +1,315 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QContextMenuEvent (+  castQContextMenuEventToQInputEvent,+  castQInputEventToQContextMenuEvent,+  castQContextMenuEventToQEvent,+  castQEventToQContextMenuEvent,+  QContextMenuEventValue (..),+  QContextMenuEventConstPtr (..),+  globalPos,+  globalX,+  globalY,+  pos,+  reason,+  x,+  y,+  QContextMenuEventPtr (..),+  QContextMenuEventConst (..),+  castQContextMenuEventToConst,+  QContextMenuEvent (..),+  castQContextMenuEventToNonconst,+  new,+  newWithGlobalPos,+  newWithGlobalPosAndModifiers,+  QContextMenuEventSuper (..),+  QContextMenuEventSuperConst (..),+  QContextMenuEventReason (..),+  ) 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.HPoint as HPoint+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Gui.QInputEvent as M294+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QContextMenuEvent_new" new' ::  HoppyFC.CInt -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr QContextMenuEvent)+foreign import ccall "genpop__QContextMenuEvent_newWithGlobalPos" newWithGlobalPos' ::  HoppyFC.CInt -> HoppyF.Ptr M114.QPointConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr QContextMenuEvent)+foreign import ccall "genpop__QContextMenuEvent_newWithGlobalPosAndModifiers" newWithGlobalPosAndModifiers' ::  HoppyFC.CInt -> HoppyF.Ptr M114.QPointConst -> HoppyF.Ptr M114.QPointConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QContextMenuEvent)+foreign import ccall "genpop__QContextMenuEvent_globalPos" globalPos' ::  HoppyF.Ptr QContextMenuEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QContextMenuEvent_globalX" globalX' ::  HoppyF.Ptr QContextMenuEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QContextMenuEvent_globalY" globalY' ::  HoppyF.Ptr QContextMenuEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QContextMenuEvent_pos" pos' ::  HoppyF.Ptr QContextMenuEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QContextMenuEvent_reason" reason' ::  HoppyF.Ptr QContextMenuEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QContextMenuEvent_x" x' ::  HoppyF.Ptr QContextMenuEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QContextMenuEvent_y" y' ::  HoppyF.Ptr QContextMenuEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "gencast__QContextMenuEvent__QInputEvent" castQContextMenuEventToQInputEvent :: HoppyF.Ptr QContextMenuEventConst -> HoppyF.Ptr M294.QInputEventConst+foreign import ccall "gencast__QInputEvent__QContextMenuEvent" castQInputEventToQContextMenuEvent :: HoppyF.Ptr M294.QInputEventConst -> HoppyF.Ptr QContextMenuEventConst+foreign import ccall "gencast__QContextMenuEvent__QEvent" castQContextMenuEventToQEvent :: HoppyF.Ptr QContextMenuEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QContextMenuEvent" castQEventToQContextMenuEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QContextMenuEventConst+foreign import ccall "gendel__QContextMenuEvent" delete'QContextMenuEvent :: HoppyF.Ptr QContextMenuEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QContextMenuEvent" deletePtr'QContextMenuEvent :: HoppyF.FunPtr (HoppyF.Ptr QContextMenuEventConst -> HoppyP.IO ())++class QContextMenuEventValue a where+  withQContextMenuEventPtr :: a -> (QContextMenuEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QContextMenuEventConstPtr a => QContextMenuEventValue a where+  withQContextMenuEventPtr = HoppyP.flip ($) . toQContextMenuEventConst++class (M294.QInputEventConstPtr this) => QContextMenuEventConstPtr this where+  toQContextMenuEventConst :: this -> QContextMenuEventConst++globalPos :: (QContextMenuEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+globalPos arg'1 =+  withQContextMenuEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (globalPos' arg'1')++globalX :: (QContextMenuEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+globalX arg'1 =+  withQContextMenuEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (globalX' arg'1')++globalY :: (QContextMenuEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+globalY arg'1 =+  withQContextMenuEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (globalY' arg'1')++pos :: (QContextMenuEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+pos arg'1 =+  withQContextMenuEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (pos' arg'1')++reason :: (QContextMenuEventValue this) => (this) {- ^ this -} -> (HoppyP.IO QContextMenuEventReason)+reason arg'1 =+  withQContextMenuEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (reason' arg'1')++x :: (QContextMenuEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+x arg'1 =+  withQContextMenuEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (x' arg'1')++y :: (QContextMenuEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+y arg'1 =+  withQContextMenuEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (y' arg'1')++class (QContextMenuEventConstPtr this, M294.QInputEventPtr this) => QContextMenuEventPtr this where+  toQContextMenuEvent :: this -> QContextMenuEvent++data QContextMenuEventConst =+    QContextMenuEventConst (HoppyF.Ptr QContextMenuEventConst)+  | QContextMenuEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QContextMenuEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QContextMenuEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QContextMenuEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQContextMenuEventToConst :: QContextMenuEvent -> QContextMenuEventConst+castQContextMenuEventToConst (QContextMenuEvent ptr') = QContextMenuEventConst $ HoppyF.castPtr ptr'+castQContextMenuEventToConst (QContextMenuEventGc fptr' ptr') = QContextMenuEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QContextMenuEventConst where+  nullptr = QContextMenuEventConst HoppyF.nullPtr+  +  withCppPtr (QContextMenuEventConst ptr') f' = f' ptr'+  withCppPtr (QContextMenuEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QContextMenuEventConst ptr') = ptr'+  toPtr (QContextMenuEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QContextMenuEventConst _) = HoppyP.return ()+  touchCppPtr (QContextMenuEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QContextMenuEventConst where+  delete (QContextMenuEventConst ptr') = delete'QContextMenuEvent ptr'+  delete (QContextMenuEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QContextMenuEventConst", " object."]+  +  toGc this'@(QContextMenuEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QContextMenuEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QContextMenuEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QContextMenuEventConstGc {}) = HoppyP.return this'++instance QContextMenuEventConstPtr QContextMenuEventConst where+  toQContextMenuEventConst = HoppyP.id++instance M294.QInputEventConstPtr QContextMenuEventConst where+  toQInputEventConst (QContextMenuEventConst ptr') = M294.QInputEventConst $ castQContextMenuEventToQInputEvent ptr'+  toQInputEventConst (QContextMenuEventConstGc fptr' ptr') = M294.QInputEventConstGc fptr' $ castQContextMenuEventToQInputEvent ptr'++instance M34.QEventConstPtr QContextMenuEventConst where+  toQEventConst (QContextMenuEventConst ptr') = M34.QEventConst $ castQContextMenuEventToQEvent ptr'+  toQEventConst (QContextMenuEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQContextMenuEventToQEvent ptr'++data QContextMenuEvent =+    QContextMenuEvent (HoppyF.Ptr QContextMenuEvent)+  | QContextMenuEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QContextMenuEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QContextMenuEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QContextMenuEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQContextMenuEventToNonconst :: QContextMenuEventConst -> QContextMenuEvent+castQContextMenuEventToNonconst (QContextMenuEventConst ptr') = QContextMenuEvent $ HoppyF.castPtr ptr'+castQContextMenuEventToNonconst (QContextMenuEventConstGc fptr' ptr') = QContextMenuEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QContextMenuEvent where+  nullptr = QContextMenuEvent HoppyF.nullPtr+  +  withCppPtr (QContextMenuEvent ptr') f' = f' ptr'+  withCppPtr (QContextMenuEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QContextMenuEvent ptr') = ptr'+  toPtr (QContextMenuEventGc _ ptr') = ptr'+  +  touchCppPtr (QContextMenuEvent _) = HoppyP.return ()+  touchCppPtr (QContextMenuEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QContextMenuEvent where+  delete (QContextMenuEvent ptr') = delete'QContextMenuEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QContextMenuEventConst)+  delete (QContextMenuEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QContextMenuEvent", " object."]+  +  toGc this'@(QContextMenuEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QContextMenuEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QContextMenuEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QContextMenuEventGc {}) = HoppyP.return this'++instance QContextMenuEventConstPtr QContextMenuEvent where+  toQContextMenuEventConst (QContextMenuEvent ptr') = QContextMenuEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QContextMenuEvent -> HoppyF.Ptr QContextMenuEventConst) ptr'+  toQContextMenuEventConst (QContextMenuEventGc fptr' ptr') = QContextMenuEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QContextMenuEvent -> HoppyF.Ptr QContextMenuEventConst) ptr'++instance QContextMenuEventPtr QContextMenuEvent where+  toQContextMenuEvent = HoppyP.id++instance M294.QInputEventConstPtr QContextMenuEvent where+  toQInputEventConst (QContextMenuEvent ptr') = M294.QInputEventConst $ castQContextMenuEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QContextMenuEvent -> HoppyF.Ptr QContextMenuEventConst) ptr'+  toQInputEventConst (QContextMenuEventGc fptr' ptr') = M294.QInputEventConstGc fptr' $ castQContextMenuEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QContextMenuEvent -> HoppyF.Ptr QContextMenuEventConst) ptr'++instance M294.QInputEventPtr QContextMenuEvent where+  toQInputEvent (QContextMenuEvent ptr') = M294.QInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr M294.QInputEventConst -> HoppyF.Ptr M294.QInputEvent) $ castQContextMenuEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QContextMenuEvent -> HoppyF.Ptr QContextMenuEventConst) ptr'+  toQInputEvent (QContextMenuEventGc fptr' ptr') = M294.QInputEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M294.QInputEventConst -> HoppyF.Ptr M294.QInputEvent) $ castQContextMenuEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QContextMenuEvent -> HoppyF.Ptr QContextMenuEventConst) ptr'++instance M34.QEventConstPtr QContextMenuEvent where+  toQEventConst (QContextMenuEvent ptr') = M34.QEventConst $ castQContextMenuEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QContextMenuEvent -> HoppyF.Ptr QContextMenuEventConst) ptr'+  toQEventConst (QContextMenuEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQContextMenuEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QContextMenuEvent -> HoppyF.Ptr QContextMenuEventConst) ptr'++instance M34.QEventPtr QContextMenuEvent where+  toQEvent (QContextMenuEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQContextMenuEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QContextMenuEvent -> HoppyF.Ptr QContextMenuEventConst) ptr'+  toQEvent (QContextMenuEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQContextMenuEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QContextMenuEvent -> HoppyF.Ptr QContextMenuEventConst) ptr'++new :: (M114.QPointValue arg'2) => (QContextMenuEventReason) -> (arg'2) -> (HoppyP.IO QContextMenuEvent)+new arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QContextMenuEvent+  (new' arg'1' arg'2')++newWithGlobalPos :: (M114.QPointValue arg'2, M114.QPointValue arg'3) => (QContextMenuEventReason) -> (arg'2) -> (arg'3) -> (HoppyP.IO QContextMenuEvent)+newWithGlobalPos arg'1 arg'2 arg'3 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M114.withQPointPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap QContextMenuEvent+  (newWithGlobalPos' arg'1' arg'2' arg'3')++newWithGlobalPosAndModifiers :: (M114.QPointValue arg'2, M114.QPointValue arg'3, M190.IsQtKeyboardModifiers arg'4) => (QContextMenuEventReason) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO QContextMenuEvent)+newWithGlobalPosAndModifiers arg'1 arg'2 arg'3 arg'4 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M114.withQPointPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QContextMenuEvent+  (newWithGlobalPosAndModifiers' arg'1' arg'2' arg'3' arg'4')++class QContextMenuEventSuper a where+  downToQContextMenuEvent :: a -> QContextMenuEvent++instance QContextMenuEventSuper M294.QInputEvent where+  downToQContextMenuEvent = castQContextMenuEventToNonconst . cast' . M294.castQInputEventToConst+    where+      cast' (M294.QInputEventConst ptr') = QContextMenuEventConst $ castQInputEventToQContextMenuEvent ptr'+      cast' (M294.QInputEventConstGc fptr' ptr') = QContextMenuEventConstGc fptr' $ castQInputEventToQContextMenuEvent ptr'+instance QContextMenuEventSuper M34.QEvent where+  downToQContextMenuEvent = castQContextMenuEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QContextMenuEventConst $ castQEventToQContextMenuEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QContextMenuEventConstGc fptr' $ castQEventToQContextMenuEvent ptr'++class QContextMenuEventSuperConst a where+  downToQContextMenuEventConst :: a -> QContextMenuEventConst++instance QContextMenuEventSuperConst M294.QInputEventConst where+  downToQContextMenuEventConst = cast'+    where+      cast' (M294.QInputEventConst ptr') = QContextMenuEventConst $ castQInputEventToQContextMenuEvent ptr'+      cast' (M294.QInputEventConstGc fptr' ptr') = QContextMenuEventConstGc fptr' $ castQInputEventToQContextMenuEvent ptr'+instance QContextMenuEventSuperConst M34.QEventConst where+  downToQContextMenuEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QContextMenuEventConst $ castQEventToQContextMenuEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QContextMenuEventConstGc fptr' $ castQEventToQContextMenuEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QContextMenuEvent)) QContextMenuEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QContextMenuEvent)) QContextMenuEvent where+  decode = HoppyP.fmap QContextMenuEvent . HoppyF.peek++data QContextMenuEventReason =+  Mouse+  | Keyboard+  | Other+  | UnknownQContextMenuEventReason (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QContextMenuEventReason where+  fromCppEnum Mouse = 0+  fromCppEnum Keyboard = 1+  fromCppEnum Other = 2+  fromCppEnum (UnknownQContextMenuEventReason n) = n+  +  toCppEnum (0) = Mouse+  toCppEnum (1) = Keyboard+  toCppEnum (2) = Other+  toCppEnum n = UnknownQContextMenuEventReason n++instance HoppyP.Eq QContextMenuEventReason where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QContextMenuEventReason where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Gui/QCursor.hs view
@@ -0,0 +1,335 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QCursor (+  QCursorValue (..),+  QCursorConstPtr (..),+  bitmap,+  hotSpot,+  mask,+  pixmap,+  shape,+  eQ,+  nE,+  QCursorPtr (..),+  setShape,+  swap,+  aSSIGN,+  pos,+  setPos,+  setPosRaw,+  QCursorConst (..),+  castQCursorToConst,+  QCursor (..),+  castQCursorToNonconst,+  new,+  newWithCursorShape,+  newWithPixmap,+  newWithPixmapAndHotSpot,+  newWithBitmap,+  newWithBitmapAndHotSpot,+  newCopy,+  QCursorSuper (..),+  QCursorSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Core.HPoint as HPoint+import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QBitmap as M244+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QPixmap as M316+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QCursor_new" new' ::  HoppyP.IO (HoppyF.Ptr QCursor)+foreign import ccall "genpop__QCursor_newWithCursorShape" newWithCursorShape' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QCursor)+foreign import ccall "genpop__QCursor_newWithPixmap" newWithPixmap' ::  HoppyF.Ptr M316.QPixmapConst -> HoppyP.IO (HoppyF.Ptr QCursor)+foreign import ccall "genpop__QCursor_newWithPixmapAndHotSpot" newWithPixmapAndHotSpot' ::  HoppyF.Ptr M316.QPixmapConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QCursor)+foreign import ccall "genpop__QCursor_newWithBitmap" newWithBitmap' ::  HoppyF.Ptr M244.QBitmapConst -> HoppyF.Ptr M244.QBitmapConst -> HoppyP.IO (HoppyF.Ptr QCursor)+foreign import ccall "genpop__QCursor_newWithBitmapAndHotSpot" newWithBitmapAndHotSpot' ::  HoppyF.Ptr M244.QBitmapConst -> HoppyF.Ptr M244.QBitmapConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QCursor)+foreign import ccall "genpop__QCursor_newCopy" newCopy' ::  HoppyF.Ptr QCursorConst -> HoppyP.IO (HoppyF.Ptr QCursor)+foreign import ccall "genpop__QCursor_bitmap" bitmap' ::  HoppyF.Ptr QCursorConst -> HoppyP.IO (HoppyF.Ptr M244.QBitmapConst)+foreign import ccall "genpop__QCursor_hotSpot" hotSpot' ::  HoppyF.Ptr QCursorConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QCursor_mask" mask' ::  HoppyF.Ptr QCursorConst -> HoppyP.IO (HoppyF.Ptr M244.QBitmapConst)+foreign import ccall "genpop__QCursor_pixmap" pixmap' ::  HoppyF.Ptr QCursorConst -> HoppyP.IO (HoppyF.Ptr M316.QPixmapConst)+foreign import ccall "genpop__QCursor_setShape" setShape' ::  HoppyF.Ptr QCursor -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QCursor_shape" shape' ::  HoppyF.Ptr QCursorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QCursor_swap" swap' ::  HoppyF.Ptr QCursor -> HoppyF.Ptr QCursor -> HoppyP.IO ()+foreign import ccall "genpop__QCursor_pos" pos' ::  HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QCursor_setPos" setPos' ::  HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QCursor_setPosRaw" setPosRaw' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QCursor_EQ" eQ' ::  HoppyF.Ptr QCursorConst -> HoppyF.Ptr QCursorConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QCursor_NE" nE' ::  HoppyF.Ptr QCursorConst -> HoppyF.Ptr QCursorConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QCursor_ASSIGN" aSSIGN' ::  HoppyF.Ptr QCursor -> HoppyF.Ptr QCursorConst -> HoppyP.IO (HoppyF.Ptr QCursor)+foreign import ccall "gendel__QCursor" delete'QCursor :: HoppyF.Ptr QCursorConst -> HoppyP.IO ()+foreign import ccall "&gendel__QCursor" deletePtr'QCursor :: HoppyF.FunPtr (HoppyF.Ptr QCursorConst -> HoppyP.IO ())++class QCursorValue a where+  withQCursorPtr :: a -> (QCursorConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QCursorConstPtr a => QCursorValue a where+  withQCursorPtr = HoppyP.flip ($) . toQCursorConst++class (HoppyFHR.CppPtr this) => QCursorConstPtr this where+  toQCursorConst :: this -> QCursorConst++bitmap :: (QCursorValue this) => (this) {- ^ this -} -> (HoppyP.IO M244.QBitmapConst)+bitmap arg'1 =+  withQCursorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M244.QBitmapConst+  (bitmap' arg'1')++hotSpot :: (QCursorValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+hotSpot arg'1 =+  withQCursorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (hotSpot' arg'1')++mask :: (QCursorValue this) => (this) {- ^ this -} -> (HoppyP.IO M244.QBitmapConst)+mask arg'1 =+  withQCursorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M244.QBitmapConst+  (mask' arg'1')++pixmap :: (QCursorValue this) => (this) {- ^ this -} -> (HoppyP.IO M316.QPixmap)+pixmap arg'1 =+  withQCursorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M316.QPixmapConst) =<<+  (pixmap' arg'1')++shape :: (QCursorValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtCursorShape)+shape arg'1 =+  withQCursorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (shape' arg'1')++eQ :: (QCursorValue this, QCursorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQCursorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQCursorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QCursorValue this, QCursorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQCursorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQCursorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QCursorConstPtr this) => QCursorPtr this where+  toQCursor :: this -> QCursor++setShape :: (QCursorPtr this) => (this) {- ^ this -} -> (M190.QtCursorShape) -> (HoppyP.IO ())+setShape arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQCursor arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setShape' arg'1' arg'2')++swap :: (QCursorPtr this, QCursorPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQCursor arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQCursor arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++aSSIGN :: (QCursorPtr this, QCursorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QCursor)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQCursor arg'1) $ \arg'1' ->+  withQCursorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QCursor+  (aSSIGN' arg'1' arg'2')++pos :: (HoppyP.IO HPoint.HPoint)+pos =+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (pos')++setPos :: (M114.QPointValue arg'1) => (arg'1) -> (HoppyP.IO ())+setPos arg'1 =+  M114.withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (setPos' arg'1')++setPosRaw :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setPosRaw arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setPosRaw' arg'1' arg'2')++data QCursorConst =+    QCursorConst (HoppyF.Ptr QCursorConst)+  | QCursorConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QCursorConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QCursorConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QCursorConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQCursorToConst :: QCursor -> QCursorConst+castQCursorToConst (QCursor ptr') = QCursorConst $ HoppyF.castPtr ptr'+castQCursorToConst (QCursorGc fptr' ptr') = QCursorConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QCursorConst where+  nullptr = QCursorConst HoppyF.nullPtr+  +  withCppPtr (QCursorConst ptr') f' = f' ptr'+  withCppPtr (QCursorConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QCursorConst ptr') = ptr'+  toPtr (QCursorConstGc _ ptr') = ptr'+  +  touchCppPtr (QCursorConst _) = HoppyP.return ()+  touchCppPtr (QCursorConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QCursorConst where+  delete (QCursorConst ptr') = delete'QCursor ptr'+  delete (QCursorConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QCursorConst", " object."]+  +  toGc this'@(QCursorConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QCursorConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QCursor :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QCursorConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QCursorConst QCursor where copy = newCopy++instance QCursorConstPtr QCursorConst where+  toQCursorConst = HoppyP.id++data QCursor =+    QCursor (HoppyF.Ptr QCursor)+  | QCursorGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QCursor)+  deriving (HoppyP.Show)++instance HoppyP.Eq QCursor where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QCursor where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQCursorToNonconst :: QCursorConst -> QCursor+castQCursorToNonconst (QCursorConst ptr') = QCursor $ HoppyF.castPtr ptr'+castQCursorToNonconst (QCursorConstGc fptr' ptr') = QCursorGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QCursor where+  nullptr = QCursor HoppyF.nullPtr+  +  withCppPtr (QCursor ptr') f' = f' ptr'+  withCppPtr (QCursorGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QCursor ptr') = ptr'+  toPtr (QCursorGc _ ptr') = ptr'+  +  touchCppPtr (QCursor _) = HoppyP.return ()+  touchCppPtr (QCursorGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QCursor where+  delete (QCursor ptr') = delete'QCursor $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QCursorConst)+  delete (QCursorGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QCursor", " object."]+  +  toGc this'@(QCursor ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QCursorGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QCursor :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QCursorGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QCursor QCursor where copy = newCopy++instance QCursorConstPtr QCursor where+  toQCursorConst (QCursor ptr') = QCursorConst $ (HoppyF.castPtr :: HoppyF.Ptr QCursor -> HoppyF.Ptr QCursorConst) ptr'+  toQCursorConst (QCursorGc fptr' ptr') = QCursorConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QCursor -> HoppyF.Ptr QCursorConst) ptr'++instance QCursorPtr QCursor where+  toQCursor = HoppyP.id++new :: (HoppyP.IO QCursor)+new =+  HoppyP.fmap QCursor+  (new')++newWithCursorShape :: (M190.QtCursorShape) -> (HoppyP.IO QCursor)+newWithCursorShape arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QCursor+  (newWithCursorShape' arg'1')++newWithPixmap :: (M316.QPixmapValue arg'1) => (arg'1) -> (HoppyP.IO QCursor)+newWithPixmap arg'1 =+  M316.withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QCursor+  (newWithPixmap' arg'1')++newWithPixmapAndHotSpot :: (M316.QPixmapValue arg'1) => (arg'1) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QCursor)+newWithPixmapAndHotSpot arg'1 arg'2 arg'3 =+  M316.withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QCursor+  (newWithPixmapAndHotSpot' arg'1' arg'2' arg'3')++newWithBitmap :: (M244.QBitmapValue arg'1, M244.QBitmapValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QCursor)+newWithBitmap arg'1 arg'2 =+  M244.withQBitmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M244.withQBitmapPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QCursor+  (newWithBitmap' arg'1' arg'2')++newWithBitmapAndHotSpot :: (M244.QBitmapValue arg'1, M244.QBitmapValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QCursor)+newWithBitmapAndHotSpot arg'1 arg'2 arg'3 arg'4 =+  M244.withQBitmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M244.withQBitmapPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QCursor+  (newWithBitmapAndHotSpot' arg'1' arg'2' arg'3' arg'4')++newCopy :: (QCursorValue arg'1) => (arg'1) -> (HoppyP.IO QCursor)+newCopy arg'1 =+  withQCursorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QCursor+  (newCopy' arg'1')++class QCursorSuper a where+  downToQCursor :: a -> QCursor+++class QCursorSuperConst a where+  downToQCursorConst :: a -> QCursorConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QCursor)) QCursor where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QCursorValue a => HoppyFHR.Assignable QCursor a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QCursor)) QCursor where+  decode = HoppyP.fmap QCursor . HoppyF.peek++instance HoppyFHR.Decodable QCursor (QCursor) where+  decode = HoppyFHR.decode . toQCursorConst++instance HoppyFHR.Decodable QCursorConst (QCursor) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
+ src/Graphics/UI/Qtah/Generated/Gui/QCursor.hs-boot view
@@ -0,0 +1,59 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QCursor (+  QCursorValue (..),+  QCursorConstPtr (..),+  QCursorPtr (..),+  QCursorConst (..),+  castQCursorToConst,+  QCursor (..),+  castQCursorToNonconst,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Prelude as HoppyP+++class QCursorValue a where+  withQCursorPtr :: a -> (QCursorConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QCursorConstPtr a => QCursorValue a++class (HoppyFHR.CppPtr this) => QCursorConstPtr this where+  toQCursorConst :: this -> QCursorConst++class (QCursorConstPtr this) => QCursorPtr this where+  toQCursor :: this -> QCursor++data QCursorConst =+    QCursorConst (HoppyF.Ptr QCursorConst)+  | QCursorConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QCursorConst)++castQCursorToConst :: QCursor -> QCursorConst++instance HoppyFHR.CppPtr QCursorConst+instance HoppyFHR.Deletable QCursorConst+instance HoppyFHR.Copyable QCursorConst QCursor++instance QCursorConstPtr QCursorConst++data QCursor =+    QCursor (HoppyF.Ptr QCursor)+  | QCursorGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QCursor)++castQCursorToNonconst :: QCursorConst -> QCursor++instance HoppyFHR.CppPtr QCursor+instance HoppyFHR.Deletable QCursor+instance HoppyFHR.Copyable QCursor QCursor++instance QCursorConstPtr QCursor++instance QCursorPtr QCursor++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QCursor)) QCursor++instance HoppyFHR.Decodable QCursor ((QCursor))+instance HoppyFHR.Decodable QCursorConst ((QCursor))
src/Graphics/UI/Qtah/Generated/Gui/QDoubleValidator.hs view
@@ -0,0 +1,360 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QDoubleValidator (+  castQDoubleValidatorToQValidator,+  castQValidatorToQDoubleValidator,+  castQDoubleValidatorToQObject,+  castQObjectToQDoubleValidator,+  QDoubleValidatorValue (..),+  QDoubleValidatorConstPtr (..),+  bottom,+  decimals,+  notation,+  top,+  QDoubleValidatorPtr (..),+  setBottom,+  setDecimals,+  setNotation,+  setRange,+  setRangeAndDecimals,+  setTop,+  QDoubleValidatorConst (..),+  castQDoubleValidatorToConst,+  QDoubleValidator (..),+  castQDoubleValidatorToNonconst,+  new,+  newWithParent,+  newWithOptions,+  newWithOptionsAndParent,+  QDoubleValidatorSuper (..),+  QDoubleValidatorSuperConst (..),+  QDoubleValidatorNotation (..),+  ) 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.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Gui.QValidator as M338+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QDoubleValidator_new" new' ::  HoppyP.IO (HoppyF.Ptr QDoubleValidator)+foreign import ccall "genpop__QDoubleValidator_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QDoubleValidator)+foreign import ccall "genpop__QDoubleValidator_newWithOptions" newWithOptions' ::  HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDoubleValidator)+foreign import ccall "genpop__QDoubleValidator_newWithOptionsAndParent" newWithOptionsAndParent' ::  HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CInt -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QDoubleValidator)+foreign import ccall "genpop__QDoubleValidator_bottom" bottom' ::  HoppyF.Ptr QDoubleValidatorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QDoubleValidator_setBottom" setBottom' ::  HoppyF.Ptr QDoubleValidator -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QDoubleValidator_decimals" decimals' ::  HoppyF.Ptr QDoubleValidatorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDoubleValidator_setDecimals" setDecimals' ::  HoppyF.Ptr QDoubleValidator -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDoubleValidator_notation" notation' ::  HoppyF.Ptr QDoubleValidatorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDoubleValidator_setNotation" setNotation' ::  HoppyF.Ptr QDoubleValidator -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDoubleValidator_setRange" setRange' ::  HoppyF.Ptr QDoubleValidator -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QDoubleValidator_setRangeAndDecimals" setRangeAndDecimals' ::  HoppyF.Ptr QDoubleValidator -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDoubleValidator_top" top' ::  HoppyF.Ptr QDoubleValidatorConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QDoubleValidator_setTop" setTop' ::  HoppyF.Ptr QDoubleValidator -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "gencast__QDoubleValidator__QValidator" castQDoubleValidatorToQValidator :: HoppyF.Ptr QDoubleValidatorConst -> HoppyF.Ptr M338.QValidatorConst+foreign import ccall "gencast__QValidator__QDoubleValidator" castQValidatorToQDoubleValidator :: HoppyF.Ptr M338.QValidatorConst -> HoppyF.Ptr QDoubleValidatorConst+foreign import ccall "gencast__QDoubleValidator__QObject" castQDoubleValidatorToQObject :: HoppyF.Ptr QDoubleValidatorConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QDoubleValidator" castQObjectToQDoubleValidator :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QDoubleValidatorConst+foreign import ccall "gendel__QDoubleValidator" delete'QDoubleValidator :: HoppyF.Ptr QDoubleValidatorConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDoubleValidator" deletePtr'QDoubleValidator :: HoppyF.FunPtr (HoppyF.Ptr QDoubleValidatorConst -> HoppyP.IO ())++class QDoubleValidatorValue a where+  withQDoubleValidatorPtr :: a -> (QDoubleValidatorConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDoubleValidatorConstPtr a => QDoubleValidatorValue a where+  withQDoubleValidatorPtr = HoppyP.flip ($) . toQDoubleValidatorConst++class (M338.QValidatorConstPtr this) => QDoubleValidatorConstPtr this where+  toQDoubleValidatorConst :: this -> QDoubleValidatorConst++bottom :: (QDoubleValidatorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+bottom arg'1 =+  withQDoubleValidatorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (bottom' arg'1')++decimals :: (QDoubleValidatorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+decimals arg'1 =+  withQDoubleValidatorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (decimals' arg'1')++notation :: (QDoubleValidatorValue this) => (this) {- ^ this -} -> (HoppyP.IO QDoubleValidatorNotation)+notation arg'1 =+  withQDoubleValidatorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (notation' arg'1')++top :: (QDoubleValidatorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+top arg'1 =+  withQDoubleValidatorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (top' arg'1')++class (QDoubleValidatorConstPtr this, M338.QValidatorPtr this) => QDoubleValidatorPtr this where+  toQDoubleValidator :: this -> QDoubleValidator++setBottom :: (QDoubleValidatorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setBottom arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDoubleValidator arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setBottom' arg'1' arg'2')++setDecimals :: (QDoubleValidatorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setDecimals arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDoubleValidator arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setDecimals' arg'1' arg'2')++setNotation :: (QDoubleValidatorPtr this) => (this) {- ^ this -} -> (QDoubleValidatorNotation) -> (HoppyP.IO ())+setNotation arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDoubleValidator arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setNotation' arg'1' arg'2')++setRange :: (QDoubleValidatorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setRange arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQDoubleValidator arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (setRange' arg'1' arg'2' arg'3')++setRangeAndDecimals :: (QDoubleValidatorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Int) -> (HoppyP.IO ())+setRangeAndDecimals arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQDoubleValidator arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (setRangeAndDecimals' arg'1' arg'2' arg'3' arg'4')++setTop :: (QDoubleValidatorPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setTop arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDoubleValidator arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setTop' arg'1' arg'2')++data QDoubleValidatorConst =+    QDoubleValidatorConst (HoppyF.Ptr QDoubleValidatorConst)+  | QDoubleValidatorConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDoubleValidatorConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDoubleValidatorConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDoubleValidatorConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDoubleValidatorToConst :: QDoubleValidator -> QDoubleValidatorConst+castQDoubleValidatorToConst (QDoubleValidator ptr') = QDoubleValidatorConst $ HoppyF.castPtr ptr'+castQDoubleValidatorToConst (QDoubleValidatorGc fptr' ptr') = QDoubleValidatorConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDoubleValidatorConst where+  nullptr = QDoubleValidatorConst HoppyF.nullPtr+  +  withCppPtr (QDoubleValidatorConst ptr') f' = f' ptr'+  withCppPtr (QDoubleValidatorConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDoubleValidatorConst ptr') = ptr'+  toPtr (QDoubleValidatorConstGc _ ptr') = ptr'+  +  touchCppPtr (QDoubleValidatorConst _) = HoppyP.return ()+  touchCppPtr (QDoubleValidatorConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDoubleValidatorConst where+  delete (QDoubleValidatorConst ptr') = delete'QDoubleValidator ptr'+  delete (QDoubleValidatorConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDoubleValidatorConst", " object."]+  +  toGc this'@(QDoubleValidatorConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDoubleValidatorConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDoubleValidator :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDoubleValidatorConstGc {}) = HoppyP.return this'++instance QDoubleValidatorConstPtr QDoubleValidatorConst where+  toQDoubleValidatorConst = HoppyP.id++instance M338.QValidatorConstPtr QDoubleValidatorConst where+  toQValidatorConst (QDoubleValidatorConst ptr') = M338.QValidatorConst $ castQDoubleValidatorToQValidator ptr'+  toQValidatorConst (QDoubleValidatorConstGc fptr' ptr') = M338.QValidatorConstGc fptr' $ castQDoubleValidatorToQValidator ptr'++instance M94.QObjectConstPtr QDoubleValidatorConst where+  toQObjectConst (QDoubleValidatorConst ptr') = M94.QObjectConst $ castQDoubleValidatorToQObject ptr'+  toQObjectConst (QDoubleValidatorConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDoubleValidatorToQObject ptr'++data QDoubleValidator =+    QDoubleValidator (HoppyF.Ptr QDoubleValidator)+  | QDoubleValidatorGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDoubleValidator)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDoubleValidator where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDoubleValidator where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDoubleValidatorToNonconst :: QDoubleValidatorConst -> QDoubleValidator+castQDoubleValidatorToNonconst (QDoubleValidatorConst ptr') = QDoubleValidator $ HoppyF.castPtr ptr'+castQDoubleValidatorToNonconst (QDoubleValidatorConstGc fptr' ptr') = QDoubleValidatorGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDoubleValidator where+  nullptr = QDoubleValidator HoppyF.nullPtr+  +  withCppPtr (QDoubleValidator ptr') f' = f' ptr'+  withCppPtr (QDoubleValidatorGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDoubleValidator ptr') = ptr'+  toPtr (QDoubleValidatorGc _ ptr') = ptr'+  +  touchCppPtr (QDoubleValidator _) = HoppyP.return ()+  touchCppPtr (QDoubleValidatorGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDoubleValidator where+  delete (QDoubleValidator ptr') = delete'QDoubleValidator $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDoubleValidatorConst)+  delete (QDoubleValidatorGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDoubleValidator", " object."]+  +  toGc this'@(QDoubleValidator ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDoubleValidatorGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDoubleValidator :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDoubleValidatorGc {}) = HoppyP.return this'++instance QDoubleValidatorConstPtr QDoubleValidator where+  toQDoubleValidatorConst (QDoubleValidator ptr') = QDoubleValidatorConst $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleValidator -> HoppyF.Ptr QDoubleValidatorConst) ptr'+  toQDoubleValidatorConst (QDoubleValidatorGc fptr' ptr') = QDoubleValidatorConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleValidator -> HoppyF.Ptr QDoubleValidatorConst) ptr'++instance QDoubleValidatorPtr QDoubleValidator where+  toQDoubleValidator = HoppyP.id++instance M338.QValidatorConstPtr QDoubleValidator where+  toQValidatorConst (QDoubleValidator ptr') = M338.QValidatorConst $ castQDoubleValidatorToQValidator $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleValidator -> HoppyF.Ptr QDoubleValidatorConst) ptr'+  toQValidatorConst (QDoubleValidatorGc fptr' ptr') = M338.QValidatorConstGc fptr' $ castQDoubleValidatorToQValidator $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleValidator -> HoppyF.Ptr QDoubleValidatorConst) ptr'++instance M338.QValidatorPtr QDoubleValidator where+  toQValidator (QDoubleValidator ptr') = M338.QValidator $ (HoppyF.castPtr :: HoppyF.Ptr M338.QValidatorConst -> HoppyF.Ptr M338.QValidator) $ castQDoubleValidatorToQValidator $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleValidator -> HoppyF.Ptr QDoubleValidatorConst) ptr'+  toQValidator (QDoubleValidatorGc fptr' ptr') = M338.QValidatorGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M338.QValidatorConst -> HoppyF.Ptr M338.QValidator) $ castQDoubleValidatorToQValidator $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleValidator -> HoppyF.Ptr QDoubleValidatorConst) ptr'++instance M94.QObjectConstPtr QDoubleValidator where+  toQObjectConst (QDoubleValidator ptr') = M94.QObjectConst $ castQDoubleValidatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleValidator -> HoppyF.Ptr QDoubleValidatorConst) ptr'+  toQObjectConst (QDoubleValidatorGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDoubleValidatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleValidator -> HoppyF.Ptr QDoubleValidatorConst) ptr'++instance M94.QObjectPtr QDoubleValidator where+  toQObject (QDoubleValidator ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDoubleValidatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleValidator -> HoppyF.Ptr QDoubleValidatorConst) ptr'+  toQObject (QDoubleValidatorGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDoubleValidatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleValidator -> HoppyF.Ptr QDoubleValidatorConst) ptr'++new :: (HoppyP.IO QDoubleValidator)+new =+  HoppyP.fmap QDoubleValidator+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QDoubleValidator)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QDoubleValidator+  (newWithParent' arg'1')++newWithOptions :: (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Int) -> (HoppyP.IO QDoubleValidator)+newWithOptions arg'1 arg'2 arg'3 =+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QDoubleValidator+  (newWithOptions' arg'1' arg'2' arg'3')++newWithOptionsAndParent :: (M94.QObjectPtr arg'4) => (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO QDoubleValidator)+newWithOptionsAndParent arg'1 arg'2 arg'3 arg'4 =+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'4) $ \arg'4' ->+  HoppyP.fmap QDoubleValidator+  (newWithOptionsAndParent' arg'1' arg'2' arg'3' arg'4')++class QDoubleValidatorSuper a where+  downToQDoubleValidator :: a -> QDoubleValidator++instance QDoubleValidatorSuper M338.QValidator where+  downToQDoubleValidator = castQDoubleValidatorToNonconst . cast' . M338.castQValidatorToConst+    where+      cast' (M338.QValidatorConst ptr') = QDoubleValidatorConst $ castQValidatorToQDoubleValidator ptr'+      cast' (M338.QValidatorConstGc fptr' ptr') = QDoubleValidatorConstGc fptr' $ castQValidatorToQDoubleValidator ptr'+instance QDoubleValidatorSuper M94.QObject where+  downToQDoubleValidator = castQDoubleValidatorToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QDoubleValidatorConst $ castQObjectToQDoubleValidator ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDoubleValidatorConstGc fptr' $ castQObjectToQDoubleValidator ptr'++class QDoubleValidatorSuperConst a where+  downToQDoubleValidatorConst :: a -> QDoubleValidatorConst++instance QDoubleValidatorSuperConst M338.QValidatorConst where+  downToQDoubleValidatorConst = cast'+    where+      cast' (M338.QValidatorConst ptr') = QDoubleValidatorConst $ castQValidatorToQDoubleValidator ptr'+      cast' (M338.QValidatorConstGc fptr' ptr') = QDoubleValidatorConstGc fptr' $ castQValidatorToQDoubleValidator ptr'+instance QDoubleValidatorSuperConst M94.QObjectConst where+  downToQDoubleValidatorConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QDoubleValidatorConst $ castQObjectToQDoubleValidator ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDoubleValidatorConstGc fptr' $ castQObjectToQDoubleValidator ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDoubleValidator)) QDoubleValidator where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDoubleValidator)) QDoubleValidator where+  decode = HoppyP.fmap QDoubleValidator . HoppyF.peek++data QDoubleValidatorNotation =+  StandardNotation+  | ScientificNotation+  | UnknownQDoubleValidatorNotation (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QDoubleValidatorNotation where+  fromCppEnum StandardNotation = 0+  fromCppEnum ScientificNotation = 1+  fromCppEnum (UnknownQDoubleValidatorNotation n) = n+  +  toCppEnum (0) = StandardNotation+  toCppEnum (1) = ScientificNotation+  toCppEnum n = UnknownQDoubleValidatorNotation n++instance HoppyP.Eq QDoubleValidatorNotation where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QDoubleValidatorNotation where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Gui/QDragEnterEvent.hs view
@@ -0,0 +1,231 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QDragEnterEvent (+  castQDragEnterEventToQDragMoveEvent,+  castQDragMoveEventToQDragEnterEvent,+  castQDragEnterEventToQDropEvent,+  castQDropEventToQDragEnterEvent,+  castQDragEnterEventToQEvent,+  castQEventToQDragEnterEvent,+  QDragEnterEventValue (..),+  QDragEnterEventConstPtr (..),+  QDragEnterEventPtr (..),+  QDragEnterEventConst (..),+  castQDragEnterEventToConst,+  QDragEnterEvent (..),+  castQDragEnterEventToNonconst,+  new,+  QDragEnterEventSuper (..),+  QDragEnterEventSuperConst (..),+  ) 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.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QMimeData as M90+import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Gui.QDragMoveEvent as M264+import qualified Graphics.UI.Qtah.Generated.Gui.QDropEvent as M266+import Prelude (($), (.), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QDragEnterEvent_new" new' ::  HoppyF.Ptr M114.QPointConst -> HoppyFC.CInt -> HoppyF.Ptr M90.QMimeDataConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDragEnterEvent)+foreign import ccall "gencast__QDragEnterEvent__QDragMoveEvent" castQDragEnterEventToQDragMoveEvent :: HoppyF.Ptr QDragEnterEventConst -> HoppyF.Ptr M264.QDragMoveEventConst+foreign import ccall "gencast__QDragMoveEvent__QDragEnterEvent" castQDragMoveEventToQDragEnterEvent :: HoppyF.Ptr M264.QDragMoveEventConst -> HoppyF.Ptr QDragEnterEventConst+foreign import ccall "gencast__QDragEnterEvent__QDropEvent" castQDragEnterEventToQDropEvent :: HoppyF.Ptr QDragEnterEventConst -> HoppyF.Ptr M266.QDropEventConst+foreign import ccall "gencast__QDropEvent__QDragEnterEvent" castQDropEventToQDragEnterEvent :: HoppyF.Ptr M266.QDropEventConst -> HoppyF.Ptr QDragEnterEventConst+foreign import ccall "gencast__QDragEnterEvent__QEvent" castQDragEnterEventToQEvent :: HoppyF.Ptr QDragEnterEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QDragEnterEvent" castQEventToQDragEnterEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QDragEnterEventConst+foreign import ccall "gendel__QDragEnterEvent" delete'QDragEnterEvent :: HoppyF.Ptr QDragEnterEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDragEnterEvent" deletePtr'QDragEnterEvent :: HoppyF.FunPtr (HoppyF.Ptr QDragEnterEventConst -> HoppyP.IO ())++class QDragEnterEventValue a where+  withQDragEnterEventPtr :: a -> (QDragEnterEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDragEnterEventConstPtr a => QDragEnterEventValue a where+  withQDragEnterEventPtr = HoppyP.flip ($) . toQDragEnterEventConst++class (M264.QDragMoveEventConstPtr this) => QDragEnterEventConstPtr this where+  toQDragEnterEventConst :: this -> QDragEnterEventConst++class (QDragEnterEventConstPtr this, M264.QDragMoveEventPtr this) => QDragEnterEventPtr this where+  toQDragEnterEvent :: this -> QDragEnterEvent++data QDragEnterEventConst =+    QDragEnterEventConst (HoppyF.Ptr QDragEnterEventConst)+  | QDragEnterEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDragEnterEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDragEnterEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDragEnterEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDragEnterEventToConst :: QDragEnterEvent -> QDragEnterEventConst+castQDragEnterEventToConst (QDragEnterEvent ptr') = QDragEnterEventConst $ HoppyF.castPtr ptr'+castQDragEnterEventToConst (QDragEnterEventGc fptr' ptr') = QDragEnterEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDragEnterEventConst where+  nullptr = QDragEnterEventConst HoppyF.nullPtr+  +  withCppPtr (QDragEnterEventConst ptr') f' = f' ptr'+  withCppPtr (QDragEnterEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDragEnterEventConst ptr') = ptr'+  toPtr (QDragEnterEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QDragEnterEventConst _) = HoppyP.return ()+  touchCppPtr (QDragEnterEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDragEnterEventConst where+  delete (QDragEnterEventConst ptr') = delete'QDragEnterEvent ptr'+  delete (QDragEnterEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDragEnterEventConst", " object."]+  +  toGc this'@(QDragEnterEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDragEnterEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDragEnterEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDragEnterEventConstGc {}) = HoppyP.return this'++instance QDragEnterEventConstPtr QDragEnterEventConst where+  toQDragEnterEventConst = HoppyP.id++instance M264.QDragMoveEventConstPtr QDragEnterEventConst where+  toQDragMoveEventConst (QDragEnterEventConst ptr') = M264.QDragMoveEventConst $ castQDragEnterEventToQDragMoveEvent ptr'+  toQDragMoveEventConst (QDragEnterEventConstGc fptr' ptr') = M264.QDragMoveEventConstGc fptr' $ castQDragEnterEventToQDragMoveEvent ptr'++instance M266.QDropEventConstPtr QDragEnterEventConst where+  toQDropEventConst (QDragEnterEventConst ptr') = M266.QDropEventConst $ castQDragEnterEventToQDropEvent ptr'+  toQDropEventConst (QDragEnterEventConstGc fptr' ptr') = M266.QDropEventConstGc fptr' $ castQDragEnterEventToQDropEvent ptr'++instance M34.QEventConstPtr QDragEnterEventConst where+  toQEventConst (QDragEnterEventConst ptr') = M34.QEventConst $ castQDragEnterEventToQEvent ptr'+  toQEventConst (QDragEnterEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQDragEnterEventToQEvent ptr'++data QDragEnterEvent =+    QDragEnterEvent (HoppyF.Ptr QDragEnterEvent)+  | QDragEnterEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDragEnterEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDragEnterEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDragEnterEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDragEnterEventToNonconst :: QDragEnterEventConst -> QDragEnterEvent+castQDragEnterEventToNonconst (QDragEnterEventConst ptr') = QDragEnterEvent $ HoppyF.castPtr ptr'+castQDragEnterEventToNonconst (QDragEnterEventConstGc fptr' ptr') = QDragEnterEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDragEnterEvent where+  nullptr = QDragEnterEvent HoppyF.nullPtr+  +  withCppPtr (QDragEnterEvent ptr') f' = f' ptr'+  withCppPtr (QDragEnterEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDragEnterEvent ptr') = ptr'+  toPtr (QDragEnterEventGc _ ptr') = ptr'+  +  touchCppPtr (QDragEnterEvent _) = HoppyP.return ()+  touchCppPtr (QDragEnterEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDragEnterEvent where+  delete (QDragEnterEvent ptr') = delete'QDragEnterEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDragEnterEventConst)+  delete (QDragEnterEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDragEnterEvent", " object."]+  +  toGc this'@(QDragEnterEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDragEnterEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDragEnterEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDragEnterEventGc {}) = HoppyP.return this'++instance QDragEnterEventConstPtr QDragEnterEvent where+  toQDragEnterEventConst (QDragEnterEvent ptr') = QDragEnterEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QDragEnterEvent -> HoppyF.Ptr QDragEnterEventConst) ptr'+  toQDragEnterEventConst (QDragEnterEventGc fptr' ptr') = QDragEnterEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDragEnterEvent -> HoppyF.Ptr QDragEnterEventConst) ptr'++instance QDragEnterEventPtr QDragEnterEvent where+  toQDragEnterEvent = HoppyP.id++instance M264.QDragMoveEventConstPtr QDragEnterEvent where+  toQDragMoveEventConst (QDragEnterEvent ptr') = M264.QDragMoveEventConst $ castQDragEnterEventToQDragMoveEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragEnterEvent -> HoppyF.Ptr QDragEnterEventConst) ptr'+  toQDragMoveEventConst (QDragEnterEventGc fptr' ptr') = M264.QDragMoveEventConstGc fptr' $ castQDragEnterEventToQDragMoveEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragEnterEvent -> HoppyF.Ptr QDragEnterEventConst) ptr'++instance M264.QDragMoveEventPtr QDragEnterEvent where+  toQDragMoveEvent (QDragEnterEvent ptr') = M264.QDragMoveEvent $ (HoppyF.castPtr :: HoppyF.Ptr M264.QDragMoveEventConst -> HoppyF.Ptr M264.QDragMoveEvent) $ castQDragEnterEventToQDragMoveEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragEnterEvent -> HoppyF.Ptr QDragEnterEventConst) ptr'+  toQDragMoveEvent (QDragEnterEventGc fptr' ptr') = M264.QDragMoveEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M264.QDragMoveEventConst -> HoppyF.Ptr M264.QDragMoveEvent) $ castQDragEnterEventToQDragMoveEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragEnterEvent -> HoppyF.Ptr QDragEnterEventConst) ptr'++instance M266.QDropEventConstPtr QDragEnterEvent where+  toQDropEventConst (QDragEnterEvent ptr') = M266.QDropEventConst $ castQDragEnterEventToQDropEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragEnterEvent -> HoppyF.Ptr QDragEnterEventConst) ptr'+  toQDropEventConst (QDragEnterEventGc fptr' ptr') = M266.QDropEventConstGc fptr' $ castQDragEnterEventToQDropEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragEnterEvent -> HoppyF.Ptr QDragEnterEventConst) ptr'++instance M266.QDropEventPtr QDragEnterEvent where+  toQDropEvent (QDragEnterEvent ptr') = M266.QDropEvent $ (HoppyF.castPtr :: HoppyF.Ptr M266.QDropEventConst -> HoppyF.Ptr M266.QDropEvent) $ castQDragEnterEventToQDropEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragEnterEvent -> HoppyF.Ptr QDragEnterEventConst) ptr'+  toQDropEvent (QDragEnterEventGc fptr' ptr') = M266.QDropEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M266.QDropEventConst -> HoppyF.Ptr M266.QDropEvent) $ castQDragEnterEventToQDropEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragEnterEvent -> HoppyF.Ptr QDragEnterEventConst) ptr'++instance M34.QEventConstPtr QDragEnterEvent where+  toQEventConst (QDragEnterEvent ptr') = M34.QEventConst $ castQDragEnterEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragEnterEvent -> HoppyF.Ptr QDragEnterEventConst) ptr'+  toQEventConst (QDragEnterEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQDragEnterEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragEnterEvent -> HoppyF.Ptr QDragEnterEventConst) ptr'++instance M34.QEventPtr QDragEnterEvent where+  toQEvent (QDragEnterEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQDragEnterEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragEnterEvent -> HoppyF.Ptr QDragEnterEventConst) ptr'+  toQEvent (QDragEnterEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQDragEnterEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragEnterEvent -> HoppyF.Ptr QDragEnterEventConst) ptr'++new :: (M114.QPointValue arg'1, M190.IsQtDropActions arg'2, M90.QMimeDataValue arg'3, M190.IsQtMouseButtons arg'4, M190.IsQtKeyboardModifiers arg'5) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (HoppyP.IO QDragEnterEvent)+new arg'1 arg'2 arg'3 arg'4 arg'5 =+  M114.withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtDropActions+  ) arg'2 >>= \arg'2' ->+  M90.withQMimeDataPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtMouseButtons+  ) arg'4 >>= \arg'4' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'5 >>= \arg'5' ->+  HoppyP.fmap QDragEnterEvent+  (new' arg'1' arg'2' arg'3' arg'4' arg'5')++class QDragEnterEventSuper a where+  downToQDragEnterEvent :: a -> QDragEnterEvent++instance QDragEnterEventSuper M264.QDragMoveEvent where+  downToQDragEnterEvent = castQDragEnterEventToNonconst . cast' . M264.castQDragMoveEventToConst+    where+      cast' (M264.QDragMoveEventConst ptr') = QDragEnterEventConst $ castQDragMoveEventToQDragEnterEvent ptr'+      cast' (M264.QDragMoveEventConstGc fptr' ptr') = QDragEnterEventConstGc fptr' $ castQDragMoveEventToQDragEnterEvent ptr'+instance QDragEnterEventSuper M266.QDropEvent where+  downToQDragEnterEvent = castQDragEnterEventToNonconst . cast' . M266.castQDropEventToConst+    where+      cast' (M266.QDropEventConst ptr') = QDragEnterEventConst $ castQDropEventToQDragEnterEvent ptr'+      cast' (M266.QDropEventConstGc fptr' ptr') = QDragEnterEventConstGc fptr' $ castQDropEventToQDragEnterEvent ptr'+instance QDragEnterEventSuper M34.QEvent where+  downToQDragEnterEvent = castQDragEnterEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QDragEnterEventConst $ castQEventToQDragEnterEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QDragEnterEventConstGc fptr' $ castQEventToQDragEnterEvent ptr'++class QDragEnterEventSuperConst a where+  downToQDragEnterEventConst :: a -> QDragEnterEventConst++instance QDragEnterEventSuperConst M264.QDragMoveEventConst where+  downToQDragEnterEventConst = cast'+    where+      cast' (M264.QDragMoveEventConst ptr') = QDragEnterEventConst $ castQDragMoveEventToQDragEnterEvent ptr'+      cast' (M264.QDragMoveEventConstGc fptr' ptr') = QDragEnterEventConstGc fptr' $ castQDragMoveEventToQDragEnterEvent ptr'+instance QDragEnterEventSuperConst M266.QDropEventConst where+  downToQDragEnterEventConst = cast'+    where+      cast' (M266.QDropEventConst ptr') = QDragEnterEventConst $ castQDropEventToQDragEnterEvent ptr'+      cast' (M266.QDropEventConstGc fptr' ptr') = QDragEnterEventConstGc fptr' $ castQDropEventToQDragEnterEvent ptr'+instance QDragEnterEventSuperConst M34.QEventConst where+  downToQDragEnterEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QDragEnterEventConst $ castQEventToQDragEnterEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QDragEnterEventConstGc fptr' $ castQEventToQDragEnterEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDragEnterEvent)) QDragEnterEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDragEnterEvent)) QDragEnterEvent where+  decode = HoppyP.fmap QDragEnterEvent . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Gui/QDragLeaveEvent.hs view
@@ -0,0 +1,160 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QDragLeaveEvent (+  castQDragLeaveEventToQEvent,+  castQEventToQDragLeaveEvent,+  QDragLeaveEventValue (..),+  QDragLeaveEventConstPtr (..),+  QDragLeaveEventPtr (..),+  QDragLeaveEventConst (..),+  castQDragLeaveEventToConst,+  QDragLeaveEvent (..),+  castQDragLeaveEventToNonconst,+  new,+  QDragLeaveEventSuper (..),+  QDragLeaveEventSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QDragLeaveEvent_new" new' ::  HoppyP.IO (HoppyF.Ptr QDragLeaveEvent)+foreign import ccall "gencast__QDragLeaveEvent__QEvent" castQDragLeaveEventToQEvent :: HoppyF.Ptr QDragLeaveEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QDragLeaveEvent" castQEventToQDragLeaveEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QDragLeaveEventConst+foreign import ccall "gendel__QDragLeaveEvent" delete'QDragLeaveEvent :: HoppyF.Ptr QDragLeaveEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDragLeaveEvent" deletePtr'QDragLeaveEvent :: HoppyF.FunPtr (HoppyF.Ptr QDragLeaveEventConst -> HoppyP.IO ())++class QDragLeaveEventValue a where+  withQDragLeaveEventPtr :: a -> (QDragLeaveEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDragLeaveEventConstPtr a => QDragLeaveEventValue a where+  withQDragLeaveEventPtr = HoppyP.flip ($) . toQDragLeaveEventConst++class (M34.QEventConstPtr this) => QDragLeaveEventConstPtr this where+  toQDragLeaveEventConst :: this -> QDragLeaveEventConst++class (QDragLeaveEventConstPtr this, M34.QEventPtr this) => QDragLeaveEventPtr this where+  toQDragLeaveEvent :: this -> QDragLeaveEvent++data QDragLeaveEventConst =+    QDragLeaveEventConst (HoppyF.Ptr QDragLeaveEventConst)+  | QDragLeaveEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDragLeaveEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDragLeaveEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDragLeaveEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDragLeaveEventToConst :: QDragLeaveEvent -> QDragLeaveEventConst+castQDragLeaveEventToConst (QDragLeaveEvent ptr') = QDragLeaveEventConst $ HoppyF.castPtr ptr'+castQDragLeaveEventToConst (QDragLeaveEventGc fptr' ptr') = QDragLeaveEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDragLeaveEventConst where+  nullptr = QDragLeaveEventConst HoppyF.nullPtr+  +  withCppPtr (QDragLeaveEventConst ptr') f' = f' ptr'+  withCppPtr (QDragLeaveEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDragLeaveEventConst ptr') = ptr'+  toPtr (QDragLeaveEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QDragLeaveEventConst _) = HoppyP.return ()+  touchCppPtr (QDragLeaveEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDragLeaveEventConst where+  delete (QDragLeaveEventConst ptr') = delete'QDragLeaveEvent ptr'+  delete (QDragLeaveEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDragLeaveEventConst", " object."]+  +  toGc this'@(QDragLeaveEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDragLeaveEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDragLeaveEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDragLeaveEventConstGc {}) = HoppyP.return this'++instance QDragLeaveEventConstPtr QDragLeaveEventConst where+  toQDragLeaveEventConst = HoppyP.id++instance M34.QEventConstPtr QDragLeaveEventConst where+  toQEventConst (QDragLeaveEventConst ptr') = M34.QEventConst $ castQDragLeaveEventToQEvent ptr'+  toQEventConst (QDragLeaveEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQDragLeaveEventToQEvent ptr'++data QDragLeaveEvent =+    QDragLeaveEvent (HoppyF.Ptr QDragLeaveEvent)+  | QDragLeaveEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDragLeaveEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDragLeaveEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDragLeaveEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDragLeaveEventToNonconst :: QDragLeaveEventConst -> QDragLeaveEvent+castQDragLeaveEventToNonconst (QDragLeaveEventConst ptr') = QDragLeaveEvent $ HoppyF.castPtr ptr'+castQDragLeaveEventToNonconst (QDragLeaveEventConstGc fptr' ptr') = QDragLeaveEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDragLeaveEvent where+  nullptr = QDragLeaveEvent HoppyF.nullPtr+  +  withCppPtr (QDragLeaveEvent ptr') f' = f' ptr'+  withCppPtr (QDragLeaveEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDragLeaveEvent ptr') = ptr'+  toPtr (QDragLeaveEventGc _ ptr') = ptr'+  +  touchCppPtr (QDragLeaveEvent _) = HoppyP.return ()+  touchCppPtr (QDragLeaveEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDragLeaveEvent where+  delete (QDragLeaveEvent ptr') = delete'QDragLeaveEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDragLeaveEventConst)+  delete (QDragLeaveEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDragLeaveEvent", " object."]+  +  toGc this'@(QDragLeaveEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDragLeaveEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDragLeaveEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDragLeaveEventGc {}) = HoppyP.return this'++instance QDragLeaveEventConstPtr QDragLeaveEvent where+  toQDragLeaveEventConst (QDragLeaveEvent ptr') = QDragLeaveEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QDragLeaveEvent -> HoppyF.Ptr QDragLeaveEventConst) ptr'+  toQDragLeaveEventConst (QDragLeaveEventGc fptr' ptr') = QDragLeaveEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDragLeaveEvent -> HoppyF.Ptr QDragLeaveEventConst) ptr'++instance QDragLeaveEventPtr QDragLeaveEvent where+  toQDragLeaveEvent = HoppyP.id++instance M34.QEventConstPtr QDragLeaveEvent where+  toQEventConst (QDragLeaveEvent ptr') = M34.QEventConst $ castQDragLeaveEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragLeaveEvent -> HoppyF.Ptr QDragLeaveEventConst) ptr'+  toQEventConst (QDragLeaveEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQDragLeaveEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragLeaveEvent -> HoppyF.Ptr QDragLeaveEventConst) ptr'++instance M34.QEventPtr QDragLeaveEvent where+  toQEvent (QDragLeaveEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQDragLeaveEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragLeaveEvent -> HoppyF.Ptr QDragLeaveEventConst) ptr'+  toQEvent (QDragLeaveEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQDragLeaveEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragLeaveEvent -> HoppyF.Ptr QDragLeaveEventConst) ptr'++new :: (HoppyP.IO QDragLeaveEvent)+new =+  HoppyP.fmap QDragLeaveEvent+  (new')++class QDragLeaveEventSuper a where+  downToQDragLeaveEvent :: a -> QDragLeaveEvent++instance QDragLeaveEventSuper M34.QEvent where+  downToQDragLeaveEvent = castQDragLeaveEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QDragLeaveEventConst $ castQEventToQDragLeaveEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QDragLeaveEventConstGc fptr' $ castQEventToQDragLeaveEvent ptr'++class QDragLeaveEventSuperConst a where+  downToQDragLeaveEventConst :: a -> QDragLeaveEventConst++instance QDragLeaveEventSuperConst M34.QEventConst where+  downToQDragLeaveEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QDragLeaveEventConst $ castQEventToQDragLeaveEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QDragLeaveEventConstGc fptr' $ castQEventToQDragLeaveEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDragLeaveEvent)) QDragLeaveEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDragLeaveEvent)) QDragLeaveEvent where+  decode = HoppyP.fmap QDragLeaveEvent . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Gui/QDragMoveEvent.hs view
@@ -0,0 +1,265 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QDragMoveEvent (+  castQDragMoveEventToQDropEvent,+  castQDropEventToQDragMoveEvent,+  castQDragMoveEventToQEvent,+  castQEventToQDragMoveEvent,+  QDragMoveEventValue (..),+  QDragMoveEventConstPtr (..),+  answerRect,+  QDragMoveEventPtr (..),+  accept,+  acceptWithRect,+  ignore,+  ignoreWithRect,+  QDragMoveEventConst (..),+  castQDragMoveEventToConst,+  QDragMoveEvent (..),+  castQDragMoveEventToNonconst,+  new,+  newWithType,+  QDragMoveEventSuper (..),+  QDragMoveEventSuperConst (..),+  ) 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.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QMimeData as M90+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.Types as M190+import qualified Graphics.UI.Qtah.Generated.Gui.QDropEvent as M266+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QDragMoveEvent_new" new' ::  HoppyF.Ptr M114.QPointConst -> HoppyFC.CInt -> HoppyF.Ptr M90.QMimeDataConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDragMoveEvent)+foreign import ccall "genpop__QDragMoveEvent_newWithType" newWithType' ::  HoppyF.Ptr M114.QPointConst -> HoppyFC.CInt -> HoppyF.Ptr M90.QMimeDataConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDragMoveEvent)+foreign import ccall "genpop__QDragMoveEvent_accept" accept' ::  HoppyF.Ptr QDragMoveEvent -> HoppyP.IO ()+foreign import ccall "genpop__QDragMoveEvent_acceptWithRect" acceptWithRect' ::  HoppyF.Ptr QDragMoveEvent -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO ()+foreign import ccall "genpop__QDragMoveEvent_answerRect" answerRect' ::  HoppyF.Ptr QDragMoveEventConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QDragMoveEvent_ignore" ignore' ::  HoppyF.Ptr QDragMoveEvent -> HoppyP.IO ()+foreign import ccall "genpop__QDragMoveEvent_ignoreWithRect" ignoreWithRect' ::  HoppyF.Ptr QDragMoveEvent -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO ()+foreign import ccall "gencast__QDragMoveEvent__QDropEvent" castQDragMoveEventToQDropEvent :: HoppyF.Ptr QDragMoveEventConst -> HoppyF.Ptr M266.QDropEventConst+foreign import ccall "gencast__QDropEvent__QDragMoveEvent" castQDropEventToQDragMoveEvent :: HoppyF.Ptr M266.QDropEventConst -> HoppyF.Ptr QDragMoveEventConst+foreign import ccall "gencast__QDragMoveEvent__QEvent" castQDragMoveEventToQEvent :: HoppyF.Ptr QDragMoveEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QDragMoveEvent" castQEventToQDragMoveEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QDragMoveEventConst+foreign import ccall "gendel__QDragMoveEvent" delete'QDragMoveEvent :: HoppyF.Ptr QDragMoveEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDragMoveEvent" deletePtr'QDragMoveEvent :: HoppyF.FunPtr (HoppyF.Ptr QDragMoveEventConst -> HoppyP.IO ())++class QDragMoveEventValue a where+  withQDragMoveEventPtr :: a -> (QDragMoveEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDragMoveEventConstPtr a => QDragMoveEventValue a where+  withQDragMoveEventPtr = HoppyP.flip ($) . toQDragMoveEventConst++class (M266.QDropEventConstPtr this) => QDragMoveEventConstPtr this where+  toQDragMoveEventConst :: this -> QDragMoveEventConst++answerRect :: (QDragMoveEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HRect.HRect)+answerRect arg'1 =+  withQDragMoveEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<+  (answerRect' arg'1')++class (QDragMoveEventConstPtr this, M266.QDropEventPtr this) => QDragMoveEventPtr this where+  toQDragMoveEvent :: this -> QDragMoveEvent++accept :: (QDragMoveEventPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+accept arg'1 =+  HoppyFHR.withCppPtr (toQDragMoveEvent arg'1) $ \arg'1' ->+  (accept' arg'1')++acceptWithRect :: (QDragMoveEventPtr this, M122.QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+acceptWithRect arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDragMoveEvent arg'1) $ \arg'1' ->+  M122.withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (acceptWithRect' arg'1' arg'2')++ignore :: (QDragMoveEventPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+ignore arg'1 =+  HoppyFHR.withCppPtr (toQDragMoveEvent arg'1) $ \arg'1' ->+  (ignore' arg'1')++ignoreWithRect :: (QDragMoveEventPtr this, M122.QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+ignoreWithRect arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDragMoveEvent arg'1) $ \arg'1' ->+  M122.withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (ignoreWithRect' arg'1' arg'2')++data QDragMoveEventConst =+    QDragMoveEventConst (HoppyF.Ptr QDragMoveEventConst)+  | QDragMoveEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDragMoveEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDragMoveEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDragMoveEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDragMoveEventToConst :: QDragMoveEvent -> QDragMoveEventConst+castQDragMoveEventToConst (QDragMoveEvent ptr') = QDragMoveEventConst $ HoppyF.castPtr ptr'+castQDragMoveEventToConst (QDragMoveEventGc fptr' ptr') = QDragMoveEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDragMoveEventConst where+  nullptr = QDragMoveEventConst HoppyF.nullPtr+  +  withCppPtr (QDragMoveEventConst ptr') f' = f' ptr'+  withCppPtr (QDragMoveEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDragMoveEventConst ptr') = ptr'+  toPtr (QDragMoveEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QDragMoveEventConst _) = HoppyP.return ()+  touchCppPtr (QDragMoveEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDragMoveEventConst where+  delete (QDragMoveEventConst ptr') = delete'QDragMoveEvent ptr'+  delete (QDragMoveEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDragMoveEventConst", " object."]+  +  toGc this'@(QDragMoveEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDragMoveEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDragMoveEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDragMoveEventConstGc {}) = HoppyP.return this'++instance QDragMoveEventConstPtr QDragMoveEventConst where+  toQDragMoveEventConst = HoppyP.id++instance M266.QDropEventConstPtr QDragMoveEventConst where+  toQDropEventConst (QDragMoveEventConst ptr') = M266.QDropEventConst $ castQDragMoveEventToQDropEvent ptr'+  toQDropEventConst (QDragMoveEventConstGc fptr' ptr') = M266.QDropEventConstGc fptr' $ castQDragMoveEventToQDropEvent ptr'++instance M34.QEventConstPtr QDragMoveEventConst where+  toQEventConst (QDragMoveEventConst ptr') = M34.QEventConst $ castQDragMoveEventToQEvent ptr'+  toQEventConst (QDragMoveEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQDragMoveEventToQEvent ptr'++data QDragMoveEvent =+    QDragMoveEvent (HoppyF.Ptr QDragMoveEvent)+  | QDragMoveEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDragMoveEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDragMoveEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDragMoveEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDragMoveEventToNonconst :: QDragMoveEventConst -> QDragMoveEvent+castQDragMoveEventToNonconst (QDragMoveEventConst ptr') = QDragMoveEvent $ HoppyF.castPtr ptr'+castQDragMoveEventToNonconst (QDragMoveEventConstGc fptr' ptr') = QDragMoveEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDragMoveEvent where+  nullptr = QDragMoveEvent HoppyF.nullPtr+  +  withCppPtr (QDragMoveEvent ptr') f' = f' ptr'+  withCppPtr (QDragMoveEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDragMoveEvent ptr') = ptr'+  toPtr (QDragMoveEventGc _ ptr') = ptr'+  +  touchCppPtr (QDragMoveEvent _) = HoppyP.return ()+  touchCppPtr (QDragMoveEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDragMoveEvent where+  delete (QDragMoveEvent ptr') = delete'QDragMoveEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDragMoveEventConst)+  delete (QDragMoveEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDragMoveEvent", " object."]+  +  toGc this'@(QDragMoveEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDragMoveEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDragMoveEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDragMoveEventGc {}) = HoppyP.return this'++instance QDragMoveEventConstPtr QDragMoveEvent where+  toQDragMoveEventConst (QDragMoveEvent ptr') = QDragMoveEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QDragMoveEvent -> HoppyF.Ptr QDragMoveEventConst) ptr'+  toQDragMoveEventConst (QDragMoveEventGc fptr' ptr') = QDragMoveEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDragMoveEvent -> HoppyF.Ptr QDragMoveEventConst) ptr'++instance QDragMoveEventPtr QDragMoveEvent where+  toQDragMoveEvent = HoppyP.id++instance M266.QDropEventConstPtr QDragMoveEvent where+  toQDropEventConst (QDragMoveEvent ptr') = M266.QDropEventConst $ castQDragMoveEventToQDropEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragMoveEvent -> HoppyF.Ptr QDragMoveEventConst) ptr'+  toQDropEventConst (QDragMoveEventGc fptr' ptr') = M266.QDropEventConstGc fptr' $ castQDragMoveEventToQDropEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragMoveEvent -> HoppyF.Ptr QDragMoveEventConst) ptr'++instance M266.QDropEventPtr QDragMoveEvent where+  toQDropEvent (QDragMoveEvent ptr') = M266.QDropEvent $ (HoppyF.castPtr :: HoppyF.Ptr M266.QDropEventConst -> HoppyF.Ptr M266.QDropEvent) $ castQDragMoveEventToQDropEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragMoveEvent -> HoppyF.Ptr QDragMoveEventConst) ptr'+  toQDropEvent (QDragMoveEventGc fptr' ptr') = M266.QDropEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M266.QDropEventConst -> HoppyF.Ptr M266.QDropEvent) $ castQDragMoveEventToQDropEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragMoveEvent -> HoppyF.Ptr QDragMoveEventConst) ptr'++instance M34.QEventConstPtr QDragMoveEvent where+  toQEventConst (QDragMoveEvent ptr') = M34.QEventConst $ castQDragMoveEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragMoveEvent -> HoppyF.Ptr QDragMoveEventConst) ptr'+  toQEventConst (QDragMoveEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQDragMoveEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragMoveEvent -> HoppyF.Ptr QDragMoveEventConst) ptr'++instance M34.QEventPtr QDragMoveEvent where+  toQEvent (QDragMoveEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQDragMoveEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragMoveEvent -> HoppyF.Ptr QDragMoveEventConst) ptr'+  toQEvent (QDragMoveEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQDragMoveEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDragMoveEvent -> HoppyF.Ptr QDragMoveEventConst) ptr'++new :: (M114.QPointValue arg'1, M190.IsQtDropActions arg'2, M90.QMimeDataValue arg'3, M190.IsQtMouseButtons arg'4, M190.IsQtKeyboardModifiers arg'5) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (HoppyP.IO QDragMoveEvent)+new arg'1 arg'2 arg'3 arg'4 arg'5 =+  M114.withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtDropActions+  ) arg'2 >>= \arg'2' ->+  M90.withQMimeDataPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtMouseButtons+  ) arg'4 >>= \arg'4' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'5 >>= \arg'5' ->+  HoppyP.fmap QDragMoveEvent+  (new' arg'1' arg'2' arg'3' arg'4' arg'5')++newWithType :: (M114.QPointValue arg'1, M190.IsQtDropActions arg'2, M90.QMimeDataValue arg'3, M190.IsQtMouseButtons arg'4, M190.IsQtKeyboardModifiers arg'5) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (M34.QEventType) -> (HoppyP.IO QDragMoveEvent)+newWithType arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  M114.withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtDropActions+  ) arg'2 >>= \arg'2' ->+  M90.withQMimeDataPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtMouseButtons+  ) arg'4 >>= \arg'4' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'5 >>= \arg'5' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'6 >>= \arg'6' ->+  HoppyP.fmap QDragMoveEvent+  (newWithType' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++class QDragMoveEventSuper a where+  downToQDragMoveEvent :: a -> QDragMoveEvent++instance QDragMoveEventSuper M266.QDropEvent where+  downToQDragMoveEvent = castQDragMoveEventToNonconst . cast' . M266.castQDropEventToConst+    where+      cast' (M266.QDropEventConst ptr') = QDragMoveEventConst $ castQDropEventToQDragMoveEvent ptr'+      cast' (M266.QDropEventConstGc fptr' ptr') = QDragMoveEventConstGc fptr' $ castQDropEventToQDragMoveEvent ptr'+instance QDragMoveEventSuper M34.QEvent where+  downToQDragMoveEvent = castQDragMoveEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QDragMoveEventConst $ castQEventToQDragMoveEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QDragMoveEventConstGc fptr' $ castQEventToQDragMoveEvent ptr'++class QDragMoveEventSuperConst a where+  downToQDragMoveEventConst :: a -> QDragMoveEventConst++instance QDragMoveEventSuperConst M266.QDropEventConst where+  downToQDragMoveEventConst = cast'+    where+      cast' (M266.QDropEventConst ptr') = QDragMoveEventConst $ castQDropEventToQDragMoveEvent ptr'+      cast' (M266.QDropEventConstGc fptr' ptr') = QDragMoveEventConstGc fptr' $ castQDropEventToQDragMoveEvent ptr'+instance QDragMoveEventSuperConst M34.QEventConst where+  downToQDragMoveEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QDragMoveEventConst $ castQEventToQDragMoveEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QDragMoveEventConstGc fptr' $ castQEventToQDragMoveEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDragMoveEvent)) QDragMoveEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDragMoveEvent)) QDragMoveEvent where+  decode = HoppyP.fmap QDragMoveEvent . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Gui/QDropEvent.hs view
@@ -0,0 +1,301 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QDropEvent (+  castQDropEventToQEvent,+  castQEventToQDropEvent,+  QDropEventValue (..),+  QDropEventConstPtr (..),+  dropAction,+  keyboardModifiers,+  mimeData,+  mouseButtons,+  pos,+  posF,+  possibleActions,+  proposedAction,+  source,+  QDropEventPtr (..),+  acceptProposedAction,+  setDropAction,+  QDropEventConst (..),+  castQDropEventToConst,+  QDropEvent (..),+  castQDropEventToNonconst,+  new,+  newWithType,+  QDropEventSuper (..),+  QDropEventSuperConst (..),+  ) 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.HPoint as HPoint+import qualified Graphics.UI.Qtah.Core.HPointF as HPointF+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QMimeData as M90+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.QPointF as M116+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QDropEvent_new" new' ::  HoppyF.Ptr M116.QPointFConst -> HoppyFC.CInt -> HoppyF.Ptr M90.QMimeDataConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDropEvent)+foreign import ccall "genpop__QDropEvent_newWithType" newWithType' ::  HoppyF.Ptr M116.QPointFConst -> HoppyFC.CInt -> HoppyF.Ptr M90.QMimeDataConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDropEvent)+foreign import ccall "genpop__QDropEvent_acceptProposedAction" acceptProposedAction' ::  HoppyF.Ptr QDropEvent -> HoppyP.IO ()+foreign import ccall "genpop__QDropEvent_dropAction" dropAction' ::  HoppyF.Ptr QDropEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDropEvent_setDropAction" setDropAction' ::  HoppyF.Ptr QDropEvent -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDropEvent_keyboardModifiers" keyboardModifiers' ::  HoppyF.Ptr QDropEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDropEvent_mimeData" mimeData' ::  HoppyF.Ptr QDropEventConst -> HoppyP.IO (HoppyF.Ptr M90.QMimeDataConst)+foreign import ccall "genpop__QDropEvent_mouseButtons" mouseButtons' ::  HoppyF.Ptr QDropEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDropEvent_pos" pos' ::  HoppyF.Ptr QDropEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QDropEvent_posF" posF' ::  HoppyF.Ptr QDropEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QDropEvent_possibleActions" possibleActions' ::  HoppyF.Ptr QDropEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDropEvent_proposedAction" proposedAction' ::  HoppyF.Ptr QDropEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDropEvent_source" source' ::  HoppyF.Ptr QDropEventConst -> HoppyP.IO (HoppyF.Ptr M94.QObject)+foreign import ccall "gencast__QDropEvent__QEvent" castQDropEventToQEvent :: HoppyF.Ptr QDropEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QDropEvent" castQEventToQDropEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QDropEventConst+foreign import ccall "gendel__QDropEvent" delete'QDropEvent :: HoppyF.Ptr QDropEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDropEvent" deletePtr'QDropEvent :: HoppyF.FunPtr (HoppyF.Ptr QDropEventConst -> HoppyP.IO ())++class QDropEventValue a where+  withQDropEventPtr :: a -> (QDropEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDropEventConstPtr a => QDropEventValue a where+  withQDropEventPtr = HoppyP.flip ($) . toQDropEventConst++class (M34.QEventConstPtr this) => QDropEventConstPtr this where+  toQDropEventConst :: this -> QDropEventConst++dropAction :: (QDropEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtDropAction)+dropAction arg'1 =+  withQDropEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (dropAction' arg'1')++keyboardModifiers :: (QDropEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtKeyboardModifiers)+keyboardModifiers arg'1 =+  withQDropEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (keyboardModifiers' arg'1')++mimeData :: (QDropEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M90.QMimeDataConst)+mimeData arg'1 =+  withQDropEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M90.QMimeDataConst+  (mimeData' arg'1')++mouseButtons :: (QDropEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtMouseButtons)+mouseButtons arg'1 =+  withQDropEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (mouseButtons' arg'1')++pos :: (QDropEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+pos arg'1 =+  withQDropEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (pos' arg'1')++posF :: (QDropEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+posF arg'1 =+  withQDropEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (posF' arg'1')++possibleActions :: (QDropEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtDropActions)+possibleActions arg'1 =+  withQDropEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (possibleActions' arg'1')++proposedAction :: (QDropEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtDropAction)+proposedAction arg'1 =+  withQDropEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (proposedAction' arg'1')++source :: (QDropEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M94.QObject)+source arg'1 =+  withQDropEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M94.QObject+  (source' arg'1')++class (QDropEventConstPtr this, M34.QEventPtr this) => QDropEventPtr this where+  toQDropEvent :: this -> QDropEvent++acceptProposedAction :: (QDropEventPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+acceptProposedAction arg'1 =+  HoppyFHR.withCppPtr (toQDropEvent arg'1) $ \arg'1' ->+  (acceptProposedAction' arg'1')++setDropAction :: (QDropEventPtr this) => (this) {- ^ this -} -> (M190.QtDropAction) -> (HoppyP.IO ())+setDropAction arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDropEvent arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setDropAction' arg'1' arg'2')++data QDropEventConst =+    QDropEventConst (HoppyF.Ptr QDropEventConst)+  | QDropEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDropEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDropEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDropEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDropEventToConst :: QDropEvent -> QDropEventConst+castQDropEventToConst (QDropEvent ptr') = QDropEventConst $ HoppyF.castPtr ptr'+castQDropEventToConst (QDropEventGc fptr' ptr') = QDropEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDropEventConst where+  nullptr = QDropEventConst HoppyF.nullPtr+  +  withCppPtr (QDropEventConst ptr') f' = f' ptr'+  withCppPtr (QDropEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDropEventConst ptr') = ptr'+  toPtr (QDropEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QDropEventConst _) = HoppyP.return ()+  touchCppPtr (QDropEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDropEventConst where+  delete (QDropEventConst ptr') = delete'QDropEvent ptr'+  delete (QDropEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDropEventConst", " object."]+  +  toGc this'@(QDropEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDropEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDropEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDropEventConstGc {}) = HoppyP.return this'++instance QDropEventConstPtr QDropEventConst where+  toQDropEventConst = HoppyP.id++instance M34.QEventConstPtr QDropEventConst where+  toQEventConst (QDropEventConst ptr') = M34.QEventConst $ castQDropEventToQEvent ptr'+  toQEventConst (QDropEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQDropEventToQEvent ptr'++data QDropEvent =+    QDropEvent (HoppyF.Ptr QDropEvent)+  | QDropEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDropEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDropEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDropEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDropEventToNonconst :: QDropEventConst -> QDropEvent+castQDropEventToNonconst (QDropEventConst ptr') = QDropEvent $ HoppyF.castPtr ptr'+castQDropEventToNonconst (QDropEventConstGc fptr' ptr') = QDropEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDropEvent where+  nullptr = QDropEvent HoppyF.nullPtr+  +  withCppPtr (QDropEvent ptr') f' = f' ptr'+  withCppPtr (QDropEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDropEvent ptr') = ptr'+  toPtr (QDropEventGc _ ptr') = ptr'+  +  touchCppPtr (QDropEvent _) = HoppyP.return ()+  touchCppPtr (QDropEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDropEvent where+  delete (QDropEvent ptr') = delete'QDropEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDropEventConst)+  delete (QDropEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDropEvent", " object."]+  +  toGc this'@(QDropEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDropEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDropEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDropEventGc {}) = HoppyP.return this'++instance QDropEventConstPtr QDropEvent where+  toQDropEventConst (QDropEvent ptr') = QDropEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QDropEvent -> HoppyF.Ptr QDropEventConst) ptr'+  toQDropEventConst (QDropEventGc fptr' ptr') = QDropEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDropEvent -> HoppyF.Ptr QDropEventConst) ptr'++instance QDropEventPtr QDropEvent where+  toQDropEvent = HoppyP.id++instance M34.QEventConstPtr QDropEvent where+  toQEventConst (QDropEvent ptr') = M34.QEventConst $ castQDropEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDropEvent -> HoppyF.Ptr QDropEventConst) ptr'+  toQEventConst (QDropEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQDropEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDropEvent -> HoppyF.Ptr QDropEventConst) ptr'++instance M34.QEventPtr QDropEvent where+  toQEvent (QDropEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQDropEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDropEvent -> HoppyF.Ptr QDropEventConst) ptr'+  toQEvent (QDropEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQDropEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QDropEvent -> HoppyF.Ptr QDropEventConst) ptr'++new :: (M116.QPointFValue arg'1, M190.IsQtDropActions arg'2, M90.QMimeDataValue arg'3, M190.IsQtMouseButtons arg'4, M190.IsQtKeyboardModifiers arg'5) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (HoppyP.IO QDropEvent)+new arg'1 arg'2 arg'3 arg'4 arg'5 =+  M116.withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtDropActions+  ) arg'2 >>= \arg'2' ->+  M90.withQMimeDataPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtMouseButtons+  ) arg'4 >>= \arg'4' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'5 >>= \arg'5' ->+  HoppyP.fmap QDropEvent+  (new' arg'1' arg'2' arg'3' arg'4' arg'5')++newWithType :: (M116.QPointFValue arg'1, M190.IsQtDropActions arg'2, M90.QMimeDataValue arg'3, M190.IsQtMouseButtons arg'4, M190.IsQtKeyboardModifiers arg'5) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (M34.QEventType) -> (HoppyP.IO QDropEvent)+newWithType arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  M116.withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtDropActions+  ) arg'2 >>= \arg'2' ->+  M90.withQMimeDataPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtMouseButtons+  ) arg'4 >>= \arg'4' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'5 >>= \arg'5' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'6 >>= \arg'6' ->+  HoppyP.fmap QDropEvent+  (newWithType' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++class QDropEventSuper a where+  downToQDropEvent :: a -> QDropEvent++instance QDropEventSuper M34.QEvent where+  downToQDropEvent = castQDropEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QDropEventConst $ castQEventToQDropEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QDropEventConstGc fptr' $ castQEventToQDropEvent ptr'++class QDropEventSuperConst a where+  downToQDropEventConst :: a -> QDropEventConst++instance QDropEventSuperConst M34.QEventConst where+  downToQDropEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QDropEventConst $ castQEventToQDropEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QDropEventConstGc fptr' $ castQEventToQDropEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDropEvent)) QDropEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDropEvent)) QDropEvent where+  decode = HoppyP.fmap QDropEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QEnterEvent.hs view
@@ -0,0 +1,248 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QEnterEvent (+  castQEnterEventToQEvent,+  castQEventToQEnterEvent,+  QEnterEventValue (..),+  QEnterEventConstPtr (..),+  globalPos,+  globalX,+  globalY,+  localPos,+  pos,+  screenPos,+  windowPos,+  x,+  y,+  QEnterEventPtr (..),+  QEnterEventConst (..),+  castQEnterEventToConst,+  QEnterEvent (..),+  castQEnterEventToNonconst,+  new,+  QEnterEventSuper (..),+  QEnterEventSuperConst (..),+  ) 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.HPoint as HPoint+import qualified Graphics.UI.Qtah.Core.HPointF as HPointF+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114+import qualified Graphics.UI.Qtah.Generated.Core.QPointF as M116+import Prelude (($), (.), (=<<), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QEnterEvent_new" new' ::  HoppyF.Ptr M116.QPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO (HoppyF.Ptr QEnterEvent)+foreign import ccall "genpop__QEnterEvent_globalPos" globalPos' ::  HoppyF.Ptr QEnterEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QEnterEvent_globalX" globalX' ::  HoppyF.Ptr QEnterEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QEnterEvent_globalY" globalY' ::  HoppyF.Ptr QEnterEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QEnterEvent_localPos" localPos' ::  HoppyF.Ptr QEnterEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QEnterEvent_pos" pos' ::  HoppyF.Ptr QEnterEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QEnterEvent_screenPos" screenPos' ::  HoppyF.Ptr QEnterEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QEnterEvent_windowPos" windowPos' ::  HoppyF.Ptr QEnterEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QEnterEvent_x" x' ::  HoppyF.Ptr QEnterEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QEnterEvent_y" y' ::  HoppyF.Ptr QEnterEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "gencast__QEnterEvent__QEvent" castQEnterEventToQEvent :: HoppyF.Ptr QEnterEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QEnterEvent" castQEventToQEnterEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QEnterEventConst+foreign import ccall "gendel__QEnterEvent" delete'QEnterEvent :: HoppyF.Ptr QEnterEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QEnterEvent" deletePtr'QEnterEvent :: HoppyF.FunPtr (HoppyF.Ptr QEnterEventConst -> HoppyP.IO ())++class QEnterEventValue a where+  withQEnterEventPtr :: a -> (QEnterEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QEnterEventConstPtr a => QEnterEventValue a where+  withQEnterEventPtr = HoppyP.flip ($) . toQEnterEventConst++class (M34.QEventConstPtr this) => QEnterEventConstPtr this where+  toQEnterEventConst :: this -> QEnterEventConst++globalPos :: (QEnterEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+globalPos arg'1 =+  withQEnterEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (globalPos' arg'1')++globalX :: (QEnterEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+globalX arg'1 =+  withQEnterEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (globalX' arg'1')++globalY :: (QEnterEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+globalY arg'1 =+  withQEnterEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (globalY' arg'1')++localPos :: (QEnterEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+localPos arg'1 =+  withQEnterEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (localPos' arg'1')++pos :: (QEnterEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+pos arg'1 =+  withQEnterEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (pos' arg'1')++screenPos :: (QEnterEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+screenPos arg'1 =+  withQEnterEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (screenPos' arg'1')++windowPos :: (QEnterEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+windowPos arg'1 =+  withQEnterEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (windowPos' arg'1')++x :: (QEnterEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+x arg'1 =+  withQEnterEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (x' arg'1')++y :: (QEnterEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+y arg'1 =+  withQEnterEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (y' arg'1')++class (QEnterEventConstPtr this, M34.QEventPtr this) => QEnterEventPtr this where+  toQEnterEvent :: this -> QEnterEvent++data QEnterEventConst =+    QEnterEventConst (HoppyF.Ptr QEnterEventConst)+  | QEnterEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QEnterEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QEnterEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QEnterEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQEnterEventToConst :: QEnterEvent -> QEnterEventConst+castQEnterEventToConst (QEnterEvent ptr') = QEnterEventConst $ HoppyF.castPtr ptr'+castQEnterEventToConst (QEnterEventGc fptr' ptr') = QEnterEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QEnterEventConst where+  nullptr = QEnterEventConst HoppyF.nullPtr+  +  withCppPtr (QEnterEventConst ptr') f' = f' ptr'+  withCppPtr (QEnterEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QEnterEventConst ptr') = ptr'+  toPtr (QEnterEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QEnterEventConst _) = HoppyP.return ()+  touchCppPtr (QEnterEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QEnterEventConst where+  delete (QEnterEventConst ptr') = delete'QEnterEvent ptr'+  delete (QEnterEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QEnterEventConst", " object."]+  +  toGc this'@(QEnterEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QEnterEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QEnterEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QEnterEventConstGc {}) = HoppyP.return this'++instance QEnterEventConstPtr QEnterEventConst where+  toQEnterEventConst = HoppyP.id++instance M34.QEventConstPtr QEnterEventConst where+  toQEventConst (QEnterEventConst ptr') = M34.QEventConst $ castQEnterEventToQEvent ptr'+  toQEventConst (QEnterEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQEnterEventToQEvent ptr'++data QEnterEvent =+    QEnterEvent (HoppyF.Ptr QEnterEvent)+  | QEnterEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QEnterEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QEnterEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QEnterEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQEnterEventToNonconst :: QEnterEventConst -> QEnterEvent+castQEnterEventToNonconst (QEnterEventConst ptr') = QEnterEvent $ HoppyF.castPtr ptr'+castQEnterEventToNonconst (QEnterEventConstGc fptr' ptr') = QEnterEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QEnterEvent where+  nullptr = QEnterEvent HoppyF.nullPtr+  +  withCppPtr (QEnterEvent ptr') f' = f' ptr'+  withCppPtr (QEnterEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QEnterEvent ptr') = ptr'+  toPtr (QEnterEventGc _ ptr') = ptr'+  +  touchCppPtr (QEnterEvent _) = HoppyP.return ()+  touchCppPtr (QEnterEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QEnterEvent where+  delete (QEnterEvent ptr') = delete'QEnterEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QEnterEventConst)+  delete (QEnterEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QEnterEvent", " object."]+  +  toGc this'@(QEnterEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QEnterEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QEnterEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QEnterEventGc {}) = HoppyP.return this'++instance QEnterEventConstPtr QEnterEvent where+  toQEnterEventConst (QEnterEvent ptr') = QEnterEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QEnterEvent -> HoppyF.Ptr QEnterEventConst) ptr'+  toQEnterEventConst (QEnterEventGc fptr' ptr') = QEnterEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QEnterEvent -> HoppyF.Ptr QEnterEventConst) ptr'++instance QEnterEventPtr QEnterEvent where+  toQEnterEvent = HoppyP.id++instance M34.QEventConstPtr QEnterEvent where+  toQEventConst (QEnterEvent ptr') = M34.QEventConst $ castQEnterEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QEnterEvent -> HoppyF.Ptr QEnterEventConst) ptr'+  toQEventConst (QEnterEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQEnterEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QEnterEvent -> HoppyF.Ptr QEnterEventConst) ptr'++instance M34.QEventPtr QEnterEvent where+  toQEvent (QEnterEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQEnterEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QEnterEvent -> HoppyF.Ptr QEnterEventConst) ptr'+  toQEvent (QEnterEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQEnterEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QEnterEvent -> HoppyF.Ptr QEnterEventConst) ptr'++new :: (M116.QPointFValue arg'1, M116.QPointFValue arg'2, M116.QPointFValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO QEnterEvent)+new arg'1 arg'2 arg'3 =+  M116.withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M116.withQPointFPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap QEnterEvent+  (new' arg'1' arg'2' arg'3')++class QEnterEventSuper a where+  downToQEnterEvent :: a -> QEnterEvent++instance QEnterEventSuper M34.QEvent where+  downToQEnterEvent = castQEnterEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QEnterEventConst $ castQEventToQEnterEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QEnterEventConstGc fptr' $ castQEventToQEnterEvent ptr'++class QEnterEventSuperConst a where+  downToQEnterEventConst :: a -> QEnterEventConst++instance QEnterEventSuperConst M34.QEventConst where+  downToQEnterEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QEnterEventConst $ castQEventToQEnterEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QEnterEventConstGc fptr' $ castQEventToQEnterEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QEnterEvent)) QEnterEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QEnterEvent)) QEnterEvent where+  decode = HoppyP.fmap QEnterEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QExposeEvent.hs view
@@ -0,0 +1,170 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QExposeEvent (+  castQExposeEventToQEvent,+  castQEventToQExposeEvent,+  QExposeEventValue (..),+  QExposeEventConstPtr (..),+  region,+  QExposeEventPtr (..),+  QExposeEventConst (..),+  castQExposeEventToConst,+  QExposeEvent (..),+  castQExposeEventToNonconst,+  new,+  QExposeEventSuper (..),+  QExposeEventSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Gui.QRegion as M324+import Prelude (($), (.), (=<<), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QExposeEvent_new" new' ::  HoppyF.Ptr M324.QRegionConst -> HoppyP.IO (HoppyF.Ptr QExposeEvent)+foreign import ccall "genpop__QExposeEvent_region" region' ::  HoppyF.Ptr QExposeEventConst -> HoppyP.IO (HoppyF.Ptr M324.QRegionConst)+foreign import ccall "gencast__QExposeEvent__QEvent" castQExposeEventToQEvent :: HoppyF.Ptr QExposeEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QExposeEvent" castQEventToQExposeEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QExposeEventConst+foreign import ccall "gendel__QExposeEvent" delete'QExposeEvent :: HoppyF.Ptr QExposeEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QExposeEvent" deletePtr'QExposeEvent :: HoppyF.FunPtr (HoppyF.Ptr QExposeEventConst -> HoppyP.IO ())++class QExposeEventValue a where+  withQExposeEventPtr :: a -> (QExposeEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QExposeEventConstPtr a => QExposeEventValue a where+  withQExposeEventPtr = HoppyP.flip ($) . toQExposeEventConst++class (M34.QEventConstPtr this) => QExposeEventConstPtr this where+  toQExposeEventConst :: this -> QExposeEventConst++region :: (QExposeEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M324.QRegion)+region arg'1 =+  withQExposeEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M324.QRegionConst) =<<+  (region' arg'1')++class (QExposeEventConstPtr this, M34.QEventPtr this) => QExposeEventPtr this where+  toQExposeEvent :: this -> QExposeEvent++data QExposeEventConst =+    QExposeEventConst (HoppyF.Ptr QExposeEventConst)+  | QExposeEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QExposeEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QExposeEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QExposeEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQExposeEventToConst :: QExposeEvent -> QExposeEventConst+castQExposeEventToConst (QExposeEvent ptr') = QExposeEventConst $ HoppyF.castPtr ptr'+castQExposeEventToConst (QExposeEventGc fptr' ptr') = QExposeEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QExposeEventConst where+  nullptr = QExposeEventConst HoppyF.nullPtr+  +  withCppPtr (QExposeEventConst ptr') f' = f' ptr'+  withCppPtr (QExposeEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QExposeEventConst ptr') = ptr'+  toPtr (QExposeEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QExposeEventConst _) = HoppyP.return ()+  touchCppPtr (QExposeEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QExposeEventConst where+  delete (QExposeEventConst ptr') = delete'QExposeEvent ptr'+  delete (QExposeEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QExposeEventConst", " object."]+  +  toGc this'@(QExposeEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QExposeEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QExposeEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QExposeEventConstGc {}) = HoppyP.return this'++instance QExposeEventConstPtr QExposeEventConst where+  toQExposeEventConst = HoppyP.id++instance M34.QEventConstPtr QExposeEventConst where+  toQEventConst (QExposeEventConst ptr') = M34.QEventConst $ castQExposeEventToQEvent ptr'+  toQEventConst (QExposeEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQExposeEventToQEvent ptr'++data QExposeEvent =+    QExposeEvent (HoppyF.Ptr QExposeEvent)+  | QExposeEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QExposeEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QExposeEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QExposeEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQExposeEventToNonconst :: QExposeEventConst -> QExposeEvent+castQExposeEventToNonconst (QExposeEventConst ptr') = QExposeEvent $ HoppyF.castPtr ptr'+castQExposeEventToNonconst (QExposeEventConstGc fptr' ptr') = QExposeEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QExposeEvent where+  nullptr = QExposeEvent HoppyF.nullPtr+  +  withCppPtr (QExposeEvent ptr') f' = f' ptr'+  withCppPtr (QExposeEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QExposeEvent ptr') = ptr'+  toPtr (QExposeEventGc _ ptr') = ptr'+  +  touchCppPtr (QExposeEvent _) = HoppyP.return ()+  touchCppPtr (QExposeEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QExposeEvent where+  delete (QExposeEvent ptr') = delete'QExposeEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QExposeEventConst)+  delete (QExposeEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QExposeEvent", " object."]+  +  toGc this'@(QExposeEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QExposeEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QExposeEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QExposeEventGc {}) = HoppyP.return this'++instance QExposeEventConstPtr QExposeEvent where+  toQExposeEventConst (QExposeEvent ptr') = QExposeEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QExposeEvent -> HoppyF.Ptr QExposeEventConst) ptr'+  toQExposeEventConst (QExposeEventGc fptr' ptr') = QExposeEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QExposeEvent -> HoppyF.Ptr QExposeEventConst) ptr'++instance QExposeEventPtr QExposeEvent where+  toQExposeEvent = HoppyP.id++instance M34.QEventConstPtr QExposeEvent where+  toQEventConst (QExposeEvent ptr') = M34.QEventConst $ castQExposeEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QExposeEvent -> HoppyF.Ptr QExposeEventConst) ptr'+  toQEventConst (QExposeEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQExposeEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QExposeEvent -> HoppyF.Ptr QExposeEventConst) ptr'++instance M34.QEventPtr QExposeEvent where+  toQEvent (QExposeEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQExposeEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QExposeEvent -> HoppyF.Ptr QExposeEventConst) ptr'+  toQEvent (QExposeEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQExposeEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QExposeEvent -> HoppyF.Ptr QExposeEventConst) ptr'++new :: (M324.QRegionValue arg'1) => (arg'1) -> (HoppyP.IO QExposeEvent)+new arg'1 =+  M324.withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QExposeEvent+  (new' arg'1')++class QExposeEventSuper a where+  downToQExposeEvent :: a -> QExposeEvent++instance QExposeEventSuper M34.QEvent where+  downToQExposeEvent = castQExposeEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QExposeEventConst $ castQEventToQExposeEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QExposeEventConstGc fptr' $ castQEventToQExposeEvent ptr'++class QExposeEventSuperConst a where+  downToQExposeEventConst :: a -> QExposeEventConst++instance QExposeEventSuperConst M34.QEventConst where+  downToQExposeEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QExposeEventConst $ castQEventToQExposeEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QExposeEventConstGc fptr' $ castQEventToQExposeEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QExposeEvent)) QExposeEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QExposeEvent)) QExposeEvent where+  decode = HoppyP.fmap QExposeEvent . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Gui/QFileOpenEvent.hs view
@@ -0,0 +1,181 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QFileOpenEvent (+  castQFileOpenEventToQEvent,+  castQEventToQFileOpenEvent,+  QFileOpenEventValue (..),+  QFileOpenEventConstPtr (..),+  file,+  openFile,+  QFileOpenEventPtr (..),+  QFileOpenEventConst (..),+  castQFileOpenEventToConst,+  QFileOpenEvent (..),+  castQFileOpenEventToNonconst,+  QFileOpenEventSuper (..),+  QFileOpenEventSuperConst (..),+  ) 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.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QFile as M36+import qualified Graphics.UI.Qtah.Generated.Core.QIODevice as M48+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QFileOpenEvent_file" file' ::  HoppyF.Ptr QFileOpenEventConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileOpenEvent_openFile" openFile' ::  HoppyF.Ptr QFileOpenEventConst -> HoppyF.Ptr M36.QFile -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "gencast__QFileOpenEvent__QEvent" castQFileOpenEventToQEvent :: HoppyF.Ptr QFileOpenEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QFileOpenEvent" castQEventToQFileOpenEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QFileOpenEventConst+foreign import ccall "gendel__QFileOpenEvent" delete'QFileOpenEvent :: HoppyF.Ptr QFileOpenEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QFileOpenEvent" deletePtr'QFileOpenEvent :: HoppyF.FunPtr (HoppyF.Ptr QFileOpenEventConst -> HoppyP.IO ())++class QFileOpenEventValue a where+  withQFileOpenEventPtr :: a -> (QFileOpenEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QFileOpenEventConstPtr a => QFileOpenEventValue a where+  withQFileOpenEventPtr = HoppyP.flip ($) . toQFileOpenEventConst++class (M34.QEventConstPtr this) => QFileOpenEventConstPtr this where+  toQFileOpenEventConst :: this -> QFileOpenEventConst++file :: (QFileOpenEventValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+file arg'1 =+  withQFileOpenEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (file' arg'1')++openFile :: (QFileOpenEventValue this, M36.QFilePtr arg'2, M48.IsQIODeviceOpenMode arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+openFile arg'1 arg'2 arg'3 =+  withQFileOpenEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M36.toQFile arg'2) $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M48.toQIODeviceOpenMode+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (openFile' arg'1' arg'2' arg'3')++class (QFileOpenEventConstPtr this, M34.QEventPtr this) => QFileOpenEventPtr this where+  toQFileOpenEvent :: this -> QFileOpenEvent++data QFileOpenEventConst =+    QFileOpenEventConst (HoppyF.Ptr QFileOpenEventConst)+  | QFileOpenEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFileOpenEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFileOpenEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFileOpenEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFileOpenEventToConst :: QFileOpenEvent -> QFileOpenEventConst+castQFileOpenEventToConst (QFileOpenEvent ptr') = QFileOpenEventConst $ HoppyF.castPtr ptr'+castQFileOpenEventToConst (QFileOpenEventGc fptr' ptr') = QFileOpenEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFileOpenEventConst where+  nullptr = QFileOpenEventConst HoppyF.nullPtr+  +  withCppPtr (QFileOpenEventConst ptr') f' = f' ptr'+  withCppPtr (QFileOpenEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFileOpenEventConst ptr') = ptr'+  toPtr (QFileOpenEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QFileOpenEventConst _) = HoppyP.return ()+  touchCppPtr (QFileOpenEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFileOpenEventConst where+  delete (QFileOpenEventConst ptr') = delete'QFileOpenEvent ptr'+  delete (QFileOpenEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFileOpenEventConst", " object."]+  +  toGc this'@(QFileOpenEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileOpenEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFileOpenEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFileOpenEventConstGc {}) = HoppyP.return this'++instance QFileOpenEventConstPtr QFileOpenEventConst where+  toQFileOpenEventConst = HoppyP.id++instance M34.QEventConstPtr QFileOpenEventConst where+  toQEventConst (QFileOpenEventConst ptr') = M34.QEventConst $ castQFileOpenEventToQEvent ptr'+  toQEventConst (QFileOpenEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQFileOpenEventToQEvent ptr'++data QFileOpenEvent =+    QFileOpenEvent (HoppyF.Ptr QFileOpenEvent)+  | QFileOpenEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFileOpenEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFileOpenEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFileOpenEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFileOpenEventToNonconst :: QFileOpenEventConst -> QFileOpenEvent+castQFileOpenEventToNonconst (QFileOpenEventConst ptr') = QFileOpenEvent $ HoppyF.castPtr ptr'+castQFileOpenEventToNonconst (QFileOpenEventConstGc fptr' ptr') = QFileOpenEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFileOpenEvent where+  nullptr = QFileOpenEvent HoppyF.nullPtr+  +  withCppPtr (QFileOpenEvent ptr') f' = f' ptr'+  withCppPtr (QFileOpenEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFileOpenEvent ptr') = ptr'+  toPtr (QFileOpenEventGc _ ptr') = ptr'+  +  touchCppPtr (QFileOpenEvent _) = HoppyP.return ()+  touchCppPtr (QFileOpenEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFileOpenEvent where+  delete (QFileOpenEvent ptr') = delete'QFileOpenEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QFileOpenEventConst)+  delete (QFileOpenEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFileOpenEvent", " object."]+  +  toGc this'@(QFileOpenEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileOpenEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFileOpenEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFileOpenEventGc {}) = HoppyP.return this'++instance QFileOpenEventConstPtr QFileOpenEvent where+  toQFileOpenEventConst (QFileOpenEvent ptr') = QFileOpenEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QFileOpenEvent -> HoppyF.Ptr QFileOpenEventConst) ptr'+  toQFileOpenEventConst (QFileOpenEventGc fptr' ptr') = QFileOpenEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QFileOpenEvent -> HoppyF.Ptr QFileOpenEventConst) ptr'++instance QFileOpenEventPtr QFileOpenEvent where+  toQFileOpenEvent = HoppyP.id++instance M34.QEventConstPtr QFileOpenEvent where+  toQEventConst (QFileOpenEvent ptr') = M34.QEventConst $ castQFileOpenEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QFileOpenEvent -> HoppyF.Ptr QFileOpenEventConst) ptr'+  toQEventConst (QFileOpenEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQFileOpenEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QFileOpenEvent -> HoppyF.Ptr QFileOpenEventConst) ptr'++instance M34.QEventPtr QFileOpenEvent where+  toQEvent (QFileOpenEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQFileOpenEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QFileOpenEvent -> HoppyF.Ptr QFileOpenEventConst) ptr'+  toQEvent (QFileOpenEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQFileOpenEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QFileOpenEvent -> HoppyF.Ptr QFileOpenEventConst) ptr'++class QFileOpenEventSuper a where+  downToQFileOpenEvent :: a -> QFileOpenEvent++instance QFileOpenEventSuper M34.QEvent where+  downToQFileOpenEvent = castQFileOpenEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QFileOpenEventConst $ castQEventToQFileOpenEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QFileOpenEventConstGc fptr' $ castQEventToQFileOpenEvent ptr'++class QFileOpenEventSuperConst a where+  downToQFileOpenEventConst :: a -> QFileOpenEventConst++instance QFileOpenEventSuperConst M34.QEventConst where+  downToQFileOpenEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QFileOpenEventConst $ castQEventToQFileOpenEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QFileOpenEventConstGc fptr' $ castQEventToQFileOpenEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QFileOpenEvent)) QFileOpenEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QFileOpenEvent)) QFileOpenEvent where+  decode = HoppyP.fmap QFileOpenEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QFocusEvent.hs view
@@ -0,0 +1,198 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QFocusEvent (+  castQFocusEventToQEvent,+  castQEventToQFocusEvent,+  QFocusEventValue (..),+  QFocusEventConstPtr (..),+  gotFocus,+  lostFocus,+  reason,+  QFocusEventPtr (..),+  QFocusEventConst (..),+  castQFocusEventToConst,+  QFocusEvent (..),+  castQFocusEventToNonconst,+  new,+  QFocusEventSuper (..),+  QFocusEventSuperConst (..),+  ) 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.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QFocusEvent_new" new' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QFocusEvent)+foreign import ccall "genpop__QFocusEvent_gotFocus" gotFocus' ::  HoppyF.Ptr QFocusEventConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFocusEvent_lostFocus" lostFocus' ::  HoppyF.Ptr QFocusEventConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFocusEvent_reason" reason' ::  HoppyF.Ptr QFocusEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "gencast__QFocusEvent__QEvent" castQFocusEventToQEvent :: HoppyF.Ptr QFocusEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QFocusEvent" castQEventToQFocusEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QFocusEventConst+foreign import ccall "gendel__QFocusEvent" delete'QFocusEvent :: HoppyF.Ptr QFocusEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QFocusEvent" deletePtr'QFocusEvent :: HoppyF.FunPtr (HoppyF.Ptr QFocusEventConst -> HoppyP.IO ())++class QFocusEventValue a where+  withQFocusEventPtr :: a -> (QFocusEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QFocusEventConstPtr a => QFocusEventValue a where+  withQFocusEventPtr = HoppyP.flip ($) . toQFocusEventConst++class (M34.QEventConstPtr this) => QFocusEventConstPtr this where+  toQFocusEventConst :: this -> QFocusEventConst++gotFocus :: (QFocusEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+gotFocus arg'1 =+  withQFocusEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (gotFocus' arg'1')++lostFocus :: (QFocusEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+lostFocus arg'1 =+  withQFocusEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (lostFocus' arg'1')++reason :: (QFocusEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtFocusReason)+reason arg'1 =+  withQFocusEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (reason' arg'1')++class (QFocusEventConstPtr this, M34.QEventPtr this) => QFocusEventPtr this where+  toQFocusEvent :: this -> QFocusEvent++data QFocusEventConst =+    QFocusEventConst (HoppyF.Ptr QFocusEventConst)+  | QFocusEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFocusEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFocusEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFocusEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFocusEventToConst :: QFocusEvent -> QFocusEventConst+castQFocusEventToConst (QFocusEvent ptr') = QFocusEventConst $ HoppyF.castPtr ptr'+castQFocusEventToConst (QFocusEventGc fptr' ptr') = QFocusEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFocusEventConst where+  nullptr = QFocusEventConst HoppyF.nullPtr+  +  withCppPtr (QFocusEventConst ptr') f' = f' ptr'+  withCppPtr (QFocusEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFocusEventConst ptr') = ptr'+  toPtr (QFocusEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QFocusEventConst _) = HoppyP.return ()+  touchCppPtr (QFocusEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFocusEventConst where+  delete (QFocusEventConst ptr') = delete'QFocusEvent ptr'+  delete (QFocusEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFocusEventConst", " object."]+  +  toGc this'@(QFocusEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFocusEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFocusEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFocusEventConstGc {}) = HoppyP.return this'++instance QFocusEventConstPtr QFocusEventConst where+  toQFocusEventConst = HoppyP.id++instance M34.QEventConstPtr QFocusEventConst where+  toQEventConst (QFocusEventConst ptr') = M34.QEventConst $ castQFocusEventToQEvent ptr'+  toQEventConst (QFocusEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQFocusEventToQEvent ptr'++data QFocusEvent =+    QFocusEvent (HoppyF.Ptr QFocusEvent)+  | QFocusEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFocusEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFocusEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFocusEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFocusEventToNonconst :: QFocusEventConst -> QFocusEvent+castQFocusEventToNonconst (QFocusEventConst ptr') = QFocusEvent $ HoppyF.castPtr ptr'+castQFocusEventToNonconst (QFocusEventConstGc fptr' ptr') = QFocusEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFocusEvent where+  nullptr = QFocusEvent HoppyF.nullPtr+  +  withCppPtr (QFocusEvent ptr') f' = f' ptr'+  withCppPtr (QFocusEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFocusEvent ptr') = ptr'+  toPtr (QFocusEventGc _ ptr') = ptr'+  +  touchCppPtr (QFocusEvent _) = HoppyP.return ()+  touchCppPtr (QFocusEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFocusEvent where+  delete (QFocusEvent ptr') = delete'QFocusEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QFocusEventConst)+  delete (QFocusEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFocusEvent", " object."]+  +  toGc this'@(QFocusEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFocusEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFocusEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFocusEventGc {}) = HoppyP.return this'++instance QFocusEventConstPtr QFocusEvent where+  toQFocusEventConst (QFocusEvent ptr') = QFocusEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QFocusEvent -> HoppyF.Ptr QFocusEventConst) ptr'+  toQFocusEventConst (QFocusEventGc fptr' ptr') = QFocusEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QFocusEvent -> HoppyF.Ptr QFocusEventConst) ptr'++instance QFocusEventPtr QFocusEvent where+  toQFocusEvent = HoppyP.id++instance M34.QEventConstPtr QFocusEvent where+  toQEventConst (QFocusEvent ptr') = M34.QEventConst $ castQFocusEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QFocusEvent -> HoppyF.Ptr QFocusEventConst) ptr'+  toQEventConst (QFocusEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQFocusEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QFocusEvent -> HoppyF.Ptr QFocusEventConst) ptr'++instance M34.QEventPtr QFocusEvent where+  toQEvent (QFocusEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQFocusEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QFocusEvent -> HoppyF.Ptr QFocusEventConst) ptr'+  toQEvent (QFocusEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQFocusEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QFocusEvent -> HoppyF.Ptr QFocusEventConst) ptr'++new :: (M34.QEventType) -> (M190.QtFocusReason) -> (HoppyP.IO QFocusEvent)+new arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QFocusEvent+  (new' arg'1' arg'2')++class QFocusEventSuper a where+  downToQFocusEvent :: a -> QFocusEvent++instance QFocusEventSuper M34.QEvent where+  downToQFocusEvent = castQFocusEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QFocusEventConst $ castQEventToQFocusEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QFocusEventConstGc fptr' $ castQEventToQFocusEvent ptr'++class QFocusEventSuperConst a where+  downToQFocusEventConst :: a -> QFocusEventConst++instance QFocusEventSuperConst M34.QEventConst where+  downToQFocusEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QFocusEventConst $ castQEventToQFocusEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QFocusEventConstGc fptr' $ castQEventToQFocusEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QFocusEvent)) QFocusEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QFocusEvent)) QFocusEvent where+  decode = HoppyP.fmap QFocusEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QFont.hs view
@@ -0,0 +1,248 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QFont (+  QFontValue (..),+  QFontConstPtr (..),+  bold,+  weight,+  eQ,+  nE,+  QFontPtr (..),+  setBold,+  setPixelSize,+  setPointSize,+  setWeight,+  aSSIGN,+  QFontConst (..),+  castQFontToConst,+  QFont (..),+  castQFontToNonconst,+  new,+  newCopy,+  QFontSuper (..),+  QFontSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QFont_new" new' ::  HoppyP.IO (HoppyF.Ptr QFont)+foreign import ccall "genpop__QFont_newCopy" newCopy' ::  HoppyF.Ptr QFontConst -> HoppyP.IO (HoppyF.Ptr QFont)+foreign import ccall "genpop__QFont_bold" bold' ::  HoppyF.Ptr QFontConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFont_setBold" setBold' ::  HoppyF.Ptr QFont -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QFont_setPixelSize" setPixelSize' ::  HoppyF.Ptr QFont -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFont_setPointSize" setPointSize' ::  HoppyF.Ptr QFont -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFont_setWeight" setWeight' ::  HoppyF.Ptr QFont -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFont_weight" weight' ::  HoppyF.Ptr QFontConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFont_EQ" eQ' ::  HoppyF.Ptr QFontConst -> HoppyF.Ptr QFontConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFont_NE" nE' ::  HoppyF.Ptr QFontConst -> HoppyF.Ptr QFontConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QFont_ASSIGN" aSSIGN' ::  HoppyF.Ptr QFont -> HoppyF.Ptr QFontConst -> HoppyP.IO (HoppyF.Ptr QFont)+foreign import ccall "gendel__QFont" delete'QFont :: HoppyF.Ptr QFontConst -> HoppyP.IO ()+foreign import ccall "&gendel__QFont" deletePtr'QFont :: HoppyF.FunPtr (HoppyF.Ptr QFontConst -> HoppyP.IO ())++class QFontValue a where+  withQFontPtr :: a -> (QFontConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QFontConstPtr a => QFontValue a where+  withQFontPtr = HoppyP.flip ($) . toQFontConst++class (HoppyFHR.CppPtr this) => QFontConstPtr this where+  toQFontConst :: this -> QFontConst++bold :: (QFontValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+bold arg'1 =+  withQFontPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (bold' arg'1')++weight :: (QFontValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+weight arg'1 =+  withQFontPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (weight' arg'1')++eQ :: (QFontValue this, QFontValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQFontPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQFontPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QFontValue this, QFontValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQFontPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQFontPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QFontConstPtr this) => QFontPtr this where+  toQFont :: this -> QFont++setBold :: (QFontPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setBold arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFont arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setBold' arg'1' arg'2')++setPixelSize :: (QFontPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setPixelSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFont arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setPixelSize' arg'1' arg'2')++setPointSize :: (QFontPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setPointSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFont arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setPointSize' arg'1' arg'2')++setWeight :: (QFontPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setWeight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFont arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setWeight' arg'1' arg'2')++aSSIGN :: (QFontPtr this, QFontValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QFont)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFont arg'1) $ \arg'1' ->+  withQFontPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QFont+  (aSSIGN' arg'1' arg'2')++data QFontConst =+    QFontConst (HoppyF.Ptr QFontConst)+  | QFontConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFontConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFontConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFontConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFontToConst :: QFont -> QFontConst+castQFontToConst (QFont ptr') = QFontConst $ HoppyF.castPtr ptr'+castQFontToConst (QFontGc fptr' ptr') = QFontConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFontConst where+  nullptr = QFontConst HoppyF.nullPtr+  +  withCppPtr (QFontConst ptr') f' = f' ptr'+  withCppPtr (QFontConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFontConst ptr') = ptr'+  toPtr (QFontConstGc _ ptr') = ptr'+  +  touchCppPtr (QFontConst _) = HoppyP.return ()+  touchCppPtr (QFontConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFontConst where+  delete (QFontConst ptr') = delete'QFont ptr'+  delete (QFontConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFontConst", " object."]+  +  toGc this'@(QFontConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFontConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFont :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFontConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QFontConst QFont where copy = newCopy++instance QFontConstPtr QFontConst where+  toQFontConst = HoppyP.id++data QFont =+    QFont (HoppyF.Ptr QFont)+  | QFontGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFont)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFont where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFont where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFontToNonconst :: QFontConst -> QFont+castQFontToNonconst (QFontConst ptr') = QFont $ HoppyF.castPtr ptr'+castQFontToNonconst (QFontConstGc fptr' ptr') = QFontGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFont where+  nullptr = QFont HoppyF.nullPtr+  +  withCppPtr (QFont ptr') f' = f' ptr'+  withCppPtr (QFontGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFont ptr') = ptr'+  toPtr (QFontGc _ ptr') = ptr'+  +  touchCppPtr (QFont _) = HoppyP.return ()+  touchCppPtr (QFontGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFont where+  delete (QFont ptr') = delete'QFont $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QFontConst)+  delete (QFontGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFont", " object."]+  +  toGc this'@(QFont ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFontGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFont :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFontGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QFont QFont where copy = newCopy++instance QFontConstPtr QFont where+  toQFontConst (QFont ptr') = QFontConst $ (HoppyF.castPtr :: HoppyF.Ptr QFont -> HoppyF.Ptr QFontConst) ptr'+  toQFontConst (QFontGc fptr' ptr') = QFontConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QFont -> HoppyF.Ptr QFontConst) ptr'++instance QFontPtr QFont where+  toQFont = HoppyP.id++new :: (HoppyP.IO QFont)+new =+  HoppyP.fmap QFont+  (new')++newCopy :: (QFontValue arg'1) => (arg'1) -> (HoppyP.IO QFont)+newCopy arg'1 =+  withQFontPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QFont+  (newCopy' arg'1')++class QFontSuper a where+  downToQFont :: a -> QFont+++class QFontSuperConst a where+  downToQFontConst :: a -> QFontConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QFont)) QFont where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QFontValue a => HoppyFHR.Assignable QFont a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QFont)) QFont where+  decode = HoppyP.fmap QFont . HoppyF.peek++instance HoppyFHR.Decodable QFont (QFont) where+  decode = HoppyFHR.decode . toQFontConst++instance HoppyFHR.Decodable QFontConst (QFont) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Gui/QFontDatabase.hs view
@@ -0,0 +1,138 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QFontDatabase (+  QFontDatabaseValue (..),+  QFontDatabaseConstPtr (..),+  QFontDatabasePtr (..),+  addApplicationFont,+  QFontDatabaseConst (..),+  castQFontDatabaseToConst,+  QFontDatabase (..),+  castQFontDatabaseToNonconst,+  QFontDatabaseSuper (..),+  QFontDatabaseSuperConst (..),+  ) 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.Core.QString as M142+import Prelude (($), (.), (=<<), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QFontDatabase_addApplicationFont" addApplicationFont' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "gendel__QFontDatabase" delete'QFontDatabase :: HoppyF.Ptr QFontDatabaseConst -> HoppyP.IO ()+foreign import ccall "&gendel__QFontDatabase" deletePtr'QFontDatabase :: HoppyF.FunPtr (HoppyF.Ptr QFontDatabaseConst -> HoppyP.IO ())++class QFontDatabaseValue a where+  withQFontDatabasePtr :: a -> (QFontDatabaseConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QFontDatabaseConstPtr a => QFontDatabaseValue a where+  withQFontDatabasePtr = HoppyP.flip ($) . toQFontDatabaseConst++class (HoppyFHR.CppPtr this) => QFontDatabaseConstPtr this where+  toQFontDatabaseConst :: this -> QFontDatabaseConst++class (QFontDatabaseConstPtr this) => QFontDatabasePtr this where+  toQFontDatabase :: this -> QFontDatabase++addApplicationFont :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Int)+addApplicationFont arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (addApplicationFont' arg'1')++data QFontDatabaseConst =+    QFontDatabaseConst (HoppyF.Ptr QFontDatabaseConst)+  | QFontDatabaseConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFontDatabaseConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFontDatabaseConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFontDatabaseConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFontDatabaseToConst :: QFontDatabase -> QFontDatabaseConst+castQFontDatabaseToConst (QFontDatabase ptr') = QFontDatabaseConst $ HoppyF.castPtr ptr'+castQFontDatabaseToConst (QFontDatabaseGc fptr' ptr') = QFontDatabaseConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFontDatabaseConst where+  nullptr = QFontDatabaseConst HoppyF.nullPtr+  +  withCppPtr (QFontDatabaseConst ptr') f' = f' ptr'+  withCppPtr (QFontDatabaseConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFontDatabaseConst ptr') = ptr'+  toPtr (QFontDatabaseConstGc _ ptr') = ptr'+  +  touchCppPtr (QFontDatabaseConst _) = HoppyP.return ()+  touchCppPtr (QFontDatabaseConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFontDatabaseConst where+  delete (QFontDatabaseConst ptr') = delete'QFontDatabase ptr'+  delete (QFontDatabaseConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFontDatabaseConst", " object."]+  +  toGc this'@(QFontDatabaseConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFontDatabaseConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFontDatabase :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFontDatabaseConstGc {}) = HoppyP.return this'++instance QFontDatabaseConstPtr QFontDatabaseConst where+  toQFontDatabaseConst = HoppyP.id++data QFontDatabase =+    QFontDatabase (HoppyF.Ptr QFontDatabase)+  | QFontDatabaseGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFontDatabase)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFontDatabase where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFontDatabase where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFontDatabaseToNonconst :: QFontDatabaseConst -> QFontDatabase+castQFontDatabaseToNonconst (QFontDatabaseConst ptr') = QFontDatabase $ HoppyF.castPtr ptr'+castQFontDatabaseToNonconst (QFontDatabaseConstGc fptr' ptr') = QFontDatabaseGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFontDatabase where+  nullptr = QFontDatabase HoppyF.nullPtr+  +  withCppPtr (QFontDatabase ptr') f' = f' ptr'+  withCppPtr (QFontDatabaseGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFontDatabase ptr') = ptr'+  toPtr (QFontDatabaseGc _ ptr') = ptr'+  +  touchCppPtr (QFontDatabase _) = HoppyP.return ()+  touchCppPtr (QFontDatabaseGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFontDatabase where+  delete (QFontDatabase ptr') = delete'QFontDatabase $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QFontDatabaseConst)+  delete (QFontDatabaseGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFontDatabase", " object."]+  +  toGc this'@(QFontDatabase ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFontDatabaseGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFontDatabase :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFontDatabaseGc {}) = HoppyP.return this'++instance QFontDatabaseConstPtr QFontDatabase where+  toQFontDatabaseConst (QFontDatabase ptr') = QFontDatabaseConst $ (HoppyF.castPtr :: HoppyF.Ptr QFontDatabase -> HoppyF.Ptr QFontDatabaseConst) ptr'+  toQFontDatabaseConst (QFontDatabaseGc fptr' ptr') = QFontDatabaseConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QFontDatabase -> HoppyF.Ptr QFontDatabaseConst) ptr'++instance QFontDatabasePtr QFontDatabase where+  toQFontDatabase = HoppyP.id++class QFontDatabaseSuper a where+  downToQFontDatabase :: a -> QFontDatabase+++class QFontDatabaseSuperConst a where+  downToQFontDatabaseConst :: a -> QFontDatabaseConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QFontDatabase)) QFontDatabase where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QFontDatabase)) QFontDatabase where+  decode = HoppyP.fmap QFontDatabase . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QGradient.hs view
@@ -0,0 +1,341 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QGradient (+  QGradientValue (..),+  QGradientConstPtr (..),+  coordinateMode,+  spread,+  getType,+  eQ,+  nE,+  QGradientPtr (..),+  setCoordinateMode,+  setColorAt,+  setSpread,+  QGradientConst (..),+  castQGradientToConst,+  QGradient (..),+  castQGradientToNonconst,+  new,+  newCopy,+  QGradientSuper (..),+  QGradientSuperConst (..),+  QGradientCoordinateMode (..),+  QGradientPreset (..),+  QGradientSpread (..),+  QGradientType (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Gui.QColor as M252+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QGradient_new" new' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QGradient)+foreign import ccall "genpop__QGradient_newCopy" newCopy' ::  HoppyF.Ptr QGradientConst -> HoppyP.IO (HoppyF.Ptr QGradient)+foreign import ccall "genpop__QGradient_coordinateMode" coordinateMode' ::  HoppyF.Ptr QGradientConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGradient_setCoordinateMode" setCoordinateMode' ::  HoppyF.Ptr QGradient -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGradient_setColorAt" setColorAt' ::  HoppyF.Ptr QGradient -> HoppyFC.CDouble -> HoppyF.Ptr M252.QColorConst -> HoppyP.IO ()+foreign import ccall "genpop__QGradient_spread" spread' ::  HoppyF.Ptr QGradientConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGradient_setSpread" setSpread' ::  HoppyF.Ptr QGradient -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGradient_getType" getType' ::  HoppyF.Ptr QGradientConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGradient_EQ" eQ' ::  HoppyF.Ptr QGradientConst -> HoppyF.Ptr QGradientConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGradient_NE" nE' ::  HoppyF.Ptr QGradientConst -> HoppyF.Ptr QGradientConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "gendel__QGradient" delete'QGradient :: HoppyF.Ptr QGradientConst -> HoppyP.IO ()+foreign import ccall "&gendel__QGradient" deletePtr'QGradient :: HoppyF.FunPtr (HoppyF.Ptr QGradientConst -> HoppyP.IO ())++class QGradientValue a where+  withQGradientPtr :: a -> (QGradientConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGradientConstPtr a => QGradientValue a where+  withQGradientPtr = HoppyP.flip ($) . toQGradientConst++class (HoppyFHR.CppPtr this) => QGradientConstPtr this where+  toQGradientConst :: this -> QGradientConst++coordinateMode :: (QGradientValue this) => (this) {- ^ this -} -> (HoppyP.IO QGradientCoordinateMode)+coordinateMode arg'1 =+  withQGradientPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (coordinateMode' arg'1')++spread :: (QGradientValue this) => (this) {- ^ this -} -> (HoppyP.IO QGradientSpread)+spread arg'1 =+  withQGradientPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (spread' arg'1')++getType :: (QGradientValue this) => (this) {- ^ this -} -> (HoppyP.IO QGradientType)+getType arg'1 =+  withQGradientPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (getType' arg'1')++eQ :: (QGradientValue this, QGradientValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQGradientPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQGradientPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QGradientValue this, QGradientValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQGradientPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQGradientPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QGradientConstPtr this) => QGradientPtr this where+  toQGradient :: this -> QGradient++setCoordinateMode :: (QGradientPtr this) => (this) {- ^ this -} -> (QGradientCoordinateMode) -> (HoppyP.IO ())+setCoordinateMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGradient arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setCoordinateMode' arg'1' arg'2')++setColorAt :: (QGradientPtr this, M252.QColorValue arg'3) => (this) {- ^ this -} -> (HoppyP.Double) -> (arg'3) -> (HoppyP.IO ())+setColorAt arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGradient arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  M252.withQColorPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (setColorAt' arg'1' arg'2' arg'3')++setSpread :: (QGradientPtr this) => (this) {- ^ this -} -> (QGradientSpread) -> (HoppyP.IO ())+setSpread arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGradient arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setSpread' arg'1' arg'2')++data QGradientConst =+    QGradientConst (HoppyF.Ptr QGradientConst)+  | QGradientConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGradientConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGradientConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGradientConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGradientToConst :: QGradient -> QGradientConst+castQGradientToConst (QGradient ptr') = QGradientConst $ HoppyF.castPtr ptr'+castQGradientToConst (QGradientGc fptr' ptr') = QGradientConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGradientConst where+  nullptr = QGradientConst HoppyF.nullPtr+  +  withCppPtr (QGradientConst ptr') f' = f' ptr'+  withCppPtr (QGradientConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGradientConst ptr') = ptr'+  toPtr (QGradientConstGc _ ptr') = ptr'+  +  touchCppPtr (QGradientConst _) = HoppyP.return ()+  touchCppPtr (QGradientConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGradientConst where+  delete (QGradientConst ptr') = delete'QGradient ptr'+  delete (QGradientConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGradientConst", " object."]+  +  toGc this'@(QGradientConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGradientConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGradient :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGradientConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QGradientConst QGradient where copy = newCopy++instance QGradientConstPtr QGradientConst where+  toQGradientConst = HoppyP.id++data QGradient =+    QGradient (HoppyF.Ptr QGradient)+  | QGradientGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGradient)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGradient where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGradient where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGradientToNonconst :: QGradientConst -> QGradient+castQGradientToNonconst (QGradientConst ptr') = QGradient $ HoppyF.castPtr ptr'+castQGradientToNonconst (QGradientConstGc fptr' ptr') = QGradientGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGradient where+  nullptr = QGradient HoppyF.nullPtr+  +  withCppPtr (QGradient ptr') f' = f' ptr'+  withCppPtr (QGradientGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGradient ptr') = ptr'+  toPtr (QGradientGc _ ptr') = ptr'+  +  touchCppPtr (QGradient _) = HoppyP.return ()+  touchCppPtr (QGradientGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGradient where+  delete (QGradient ptr') = delete'QGradient $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QGradientConst)+  delete (QGradientGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGradient", " object."]+  +  toGc this'@(QGradient ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGradientGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGradient :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGradientGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QGradient QGradient where copy = newCopy++instance QGradientConstPtr QGradient where+  toQGradientConst (QGradient ptr') = QGradientConst $ (HoppyF.castPtr :: HoppyF.Ptr QGradient -> HoppyF.Ptr QGradientConst) ptr'+  toQGradientConst (QGradientGc fptr' ptr') = QGradientConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QGradient -> HoppyF.Ptr QGradientConst) ptr'++instance QGradientPtr QGradient where+  toQGradient = HoppyP.id++new :: (QGradientPreset) -> (HoppyP.IO QGradient)+new arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QGradient+  (new' arg'1')++newCopy :: (QGradientValue arg'1) => (arg'1) -> (HoppyP.IO QGradient)+newCopy arg'1 =+  withQGradientPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QGradient+  (newCopy' arg'1')++class QGradientSuper a where+  downToQGradient :: a -> QGradient+++class QGradientSuperConst a where+  downToQGradientConst :: a -> QGradientConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QGradient)) QGradient where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGradient)) QGradient where+  decode = HoppyP.fmap QGradient . HoppyF.peek++instance HoppyFHR.Decodable QGradient (QGradient) where+  decode = HoppyFHR.decode . toQGradientConst++instance HoppyFHR.Decodable QGradientConst (QGradient) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc++data QGradientCoordinateMode =+  LogicalMode+  | StretchToDeviceMode+  | ObjectBoundingMode+  | ObjectMode+  | UnknownQGradientCoordinateMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGradientCoordinateMode where+  fromCppEnum LogicalMode = 0+  fromCppEnum StretchToDeviceMode = 1+  fromCppEnum ObjectBoundingMode = 2+  fromCppEnum ObjectMode = 3+  fromCppEnum (UnknownQGradientCoordinateMode n) = n+  +  toCppEnum (0) = LogicalMode+  toCppEnum (1) = StretchToDeviceMode+  toCppEnum (2) = ObjectBoundingMode+  toCppEnum (3) = ObjectMode+  toCppEnum n = UnknownQGradientCoordinateMode n++instance HoppyP.Eq QGradientCoordinateMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGradientCoordinateMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QGradientPreset =+  WarmFlame+  | UnknownQGradientPreset (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGradientPreset where+  fromCppEnum WarmFlame = 1+  fromCppEnum (UnknownQGradientPreset n) = n+  +  toCppEnum (1) = WarmFlame+  toCppEnum n = UnknownQGradientPreset n++instance HoppyP.Eq QGradientPreset where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGradientPreset where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QGradientSpread =+  PadSpread+  | ReflectSpread+  | RepeatSpread+  | UnknownQGradientSpread (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGradientSpread where+  fromCppEnum PadSpread = 0+  fromCppEnum ReflectSpread = 1+  fromCppEnum RepeatSpread = 2+  fromCppEnum (UnknownQGradientSpread n) = n+  +  toCppEnum (0) = PadSpread+  toCppEnum (1) = ReflectSpread+  toCppEnum (2) = RepeatSpread+  toCppEnum n = UnknownQGradientSpread n++instance HoppyP.Eq QGradientSpread where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGradientSpread where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QGradientType =+  LinearGradient+  | RadialGradient+  | ConicalGradient+  | NoGradient+  | UnknownQGradientType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGradientType where+  fromCppEnum LinearGradient = 0+  fromCppEnum RadialGradient = 1+  fromCppEnum ConicalGradient = 2+  fromCppEnum NoGradient = 3+  fromCppEnum (UnknownQGradientType n) = n+  +  toCppEnum (0) = LinearGradient+  toCppEnum (1) = RadialGradient+  toCppEnum (2) = ConicalGradient+  toCppEnum (3) = NoGradient+  toCppEnum n = UnknownQGradientType n++instance HoppyP.Eq QGradientType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGradientType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Gui/QHelpEvent.hs view
@@ -0,0 +1,224 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QHelpEvent (+  castQHelpEventToQEvent,+  castQEventToQHelpEvent,+  QHelpEventValue (..),+  QHelpEventConstPtr (..),+  globalPos,+  globalX,+  globalY,+  pos,+  x,+  y,+  QHelpEventPtr (..),+  QHelpEventConst (..),+  castQHelpEventToConst,+  QHelpEvent (..),+  castQHelpEventToNonconst,+  new,+  QHelpEventSuper (..),+  QHelpEventSuperConst (..),+  ) 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.HPoint as HPoint+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QHelpEvent_new" new' ::  HoppyFC.CInt -> HoppyF.Ptr M114.QPointConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr QHelpEvent)+foreign import ccall "genpop__QHelpEvent_globalPos" globalPos' ::  HoppyF.Ptr QHelpEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QHelpEvent_globalX" globalX' ::  HoppyF.Ptr QHelpEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QHelpEvent_globalY" globalY' ::  HoppyF.Ptr QHelpEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QHelpEvent_pos" pos' ::  HoppyF.Ptr QHelpEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QHelpEvent_x" x' ::  HoppyF.Ptr QHelpEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QHelpEvent_y" y' ::  HoppyF.Ptr QHelpEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "gencast__QHelpEvent__QEvent" castQHelpEventToQEvent :: HoppyF.Ptr QHelpEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QHelpEvent" castQEventToQHelpEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QHelpEventConst+foreign import ccall "gendel__QHelpEvent" delete'QHelpEvent :: HoppyF.Ptr QHelpEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QHelpEvent" deletePtr'QHelpEvent :: HoppyF.FunPtr (HoppyF.Ptr QHelpEventConst -> HoppyP.IO ())++class QHelpEventValue a where+  withQHelpEventPtr :: a -> (QHelpEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QHelpEventConstPtr a => QHelpEventValue a where+  withQHelpEventPtr = HoppyP.flip ($) . toQHelpEventConst++class (M34.QEventConstPtr this) => QHelpEventConstPtr this where+  toQHelpEventConst :: this -> QHelpEventConst++globalPos :: (QHelpEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+globalPos arg'1 =+  withQHelpEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (globalPos' arg'1')++globalX :: (QHelpEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+globalX arg'1 =+  withQHelpEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (globalX' arg'1')++globalY :: (QHelpEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+globalY arg'1 =+  withQHelpEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (globalY' arg'1')++pos :: (QHelpEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+pos arg'1 =+  withQHelpEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (pos' arg'1')++x :: (QHelpEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+x arg'1 =+  withQHelpEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (x' arg'1')++y :: (QHelpEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+y arg'1 =+  withQHelpEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (y' arg'1')++class (QHelpEventConstPtr this, M34.QEventPtr this) => QHelpEventPtr this where+  toQHelpEvent :: this -> QHelpEvent++data QHelpEventConst =+    QHelpEventConst (HoppyF.Ptr QHelpEventConst)+  | QHelpEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QHelpEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QHelpEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QHelpEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQHelpEventToConst :: QHelpEvent -> QHelpEventConst+castQHelpEventToConst (QHelpEvent ptr') = QHelpEventConst $ HoppyF.castPtr ptr'+castQHelpEventToConst (QHelpEventGc fptr' ptr') = QHelpEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QHelpEventConst where+  nullptr = QHelpEventConst HoppyF.nullPtr+  +  withCppPtr (QHelpEventConst ptr') f' = f' ptr'+  withCppPtr (QHelpEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QHelpEventConst ptr') = ptr'+  toPtr (QHelpEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QHelpEventConst _) = HoppyP.return ()+  touchCppPtr (QHelpEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QHelpEventConst where+  delete (QHelpEventConst ptr') = delete'QHelpEvent ptr'+  delete (QHelpEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QHelpEventConst", " object."]+  +  toGc this'@(QHelpEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QHelpEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QHelpEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QHelpEventConstGc {}) = HoppyP.return this'++instance QHelpEventConstPtr QHelpEventConst where+  toQHelpEventConst = HoppyP.id++instance M34.QEventConstPtr QHelpEventConst where+  toQEventConst (QHelpEventConst ptr') = M34.QEventConst $ castQHelpEventToQEvent ptr'+  toQEventConst (QHelpEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQHelpEventToQEvent ptr'++data QHelpEvent =+    QHelpEvent (HoppyF.Ptr QHelpEvent)+  | QHelpEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QHelpEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QHelpEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QHelpEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQHelpEventToNonconst :: QHelpEventConst -> QHelpEvent+castQHelpEventToNonconst (QHelpEventConst ptr') = QHelpEvent $ HoppyF.castPtr ptr'+castQHelpEventToNonconst (QHelpEventConstGc fptr' ptr') = QHelpEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QHelpEvent where+  nullptr = QHelpEvent HoppyF.nullPtr+  +  withCppPtr (QHelpEvent ptr') f' = f' ptr'+  withCppPtr (QHelpEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QHelpEvent ptr') = ptr'+  toPtr (QHelpEventGc _ ptr') = ptr'+  +  touchCppPtr (QHelpEvent _) = HoppyP.return ()+  touchCppPtr (QHelpEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QHelpEvent where+  delete (QHelpEvent ptr') = delete'QHelpEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QHelpEventConst)+  delete (QHelpEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QHelpEvent", " object."]+  +  toGc this'@(QHelpEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QHelpEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QHelpEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QHelpEventGc {}) = HoppyP.return this'++instance QHelpEventConstPtr QHelpEvent where+  toQHelpEventConst (QHelpEvent ptr') = QHelpEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QHelpEvent -> HoppyF.Ptr QHelpEventConst) ptr'+  toQHelpEventConst (QHelpEventGc fptr' ptr') = QHelpEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QHelpEvent -> HoppyF.Ptr QHelpEventConst) ptr'++instance QHelpEventPtr QHelpEvent where+  toQHelpEvent = HoppyP.id++instance M34.QEventConstPtr QHelpEvent where+  toQEventConst (QHelpEvent ptr') = M34.QEventConst $ castQHelpEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHelpEvent -> HoppyF.Ptr QHelpEventConst) ptr'+  toQEventConst (QHelpEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQHelpEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHelpEvent -> HoppyF.Ptr QHelpEventConst) ptr'++instance M34.QEventPtr QHelpEvent where+  toQEvent (QHelpEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQHelpEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHelpEvent -> HoppyF.Ptr QHelpEventConst) ptr'+  toQEvent (QHelpEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQHelpEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHelpEvent -> HoppyF.Ptr QHelpEventConst) ptr'++new :: (M114.QPointValue arg'2, M114.QPointValue arg'3) => (M34.QEventType) -> (arg'2) -> (arg'3) -> (HoppyP.IO QHelpEvent)+new arg'1 arg'2 arg'3 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M114.withQPointPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap QHelpEvent+  (new' arg'1' arg'2' arg'3')++class QHelpEventSuper a where+  downToQHelpEvent :: a -> QHelpEvent++instance QHelpEventSuper M34.QEvent where+  downToQHelpEvent = castQHelpEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QHelpEventConst $ castQEventToQHelpEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QHelpEventConstGc fptr' $ castQEventToQHelpEvent ptr'++class QHelpEventSuperConst a where+  downToQHelpEventConst :: a -> QHelpEventConst++instance QHelpEventSuperConst M34.QEventConst where+  downToQHelpEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QHelpEventConst $ castQEventToQHelpEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QHelpEventConstGc fptr' $ castQEventToQHelpEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QHelpEvent)) QHelpEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QHelpEvent)) QHelpEvent where+  decode = HoppyP.fmap QHelpEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QHideEvent.hs view
@@ -0,0 +1,160 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QHideEvent (+  castQHideEventToQEvent,+  castQEventToQHideEvent,+  QHideEventValue (..),+  QHideEventConstPtr (..),+  QHideEventPtr (..),+  QHideEventConst (..),+  castQHideEventToConst,+  QHideEvent (..),+  castQHideEventToNonconst,+  new,+  QHideEventSuper (..),+  QHideEventSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QHideEvent_new" new' ::  HoppyP.IO (HoppyF.Ptr QHideEvent)+foreign import ccall "gencast__QHideEvent__QEvent" castQHideEventToQEvent :: HoppyF.Ptr QHideEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QHideEvent" castQEventToQHideEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QHideEventConst+foreign import ccall "gendel__QHideEvent" delete'QHideEvent :: HoppyF.Ptr QHideEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QHideEvent" deletePtr'QHideEvent :: HoppyF.FunPtr (HoppyF.Ptr QHideEventConst -> HoppyP.IO ())++class QHideEventValue a where+  withQHideEventPtr :: a -> (QHideEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QHideEventConstPtr a => QHideEventValue a where+  withQHideEventPtr = HoppyP.flip ($) . toQHideEventConst++class (M34.QEventConstPtr this) => QHideEventConstPtr this where+  toQHideEventConst :: this -> QHideEventConst++class (QHideEventConstPtr this, M34.QEventPtr this) => QHideEventPtr this where+  toQHideEvent :: this -> QHideEvent++data QHideEventConst =+    QHideEventConst (HoppyF.Ptr QHideEventConst)+  | QHideEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QHideEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QHideEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QHideEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQHideEventToConst :: QHideEvent -> QHideEventConst+castQHideEventToConst (QHideEvent ptr') = QHideEventConst $ HoppyF.castPtr ptr'+castQHideEventToConst (QHideEventGc fptr' ptr') = QHideEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QHideEventConst where+  nullptr = QHideEventConst HoppyF.nullPtr+  +  withCppPtr (QHideEventConst ptr') f' = f' ptr'+  withCppPtr (QHideEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QHideEventConst ptr') = ptr'+  toPtr (QHideEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QHideEventConst _) = HoppyP.return ()+  touchCppPtr (QHideEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QHideEventConst where+  delete (QHideEventConst ptr') = delete'QHideEvent ptr'+  delete (QHideEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QHideEventConst", " object."]+  +  toGc this'@(QHideEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QHideEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QHideEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QHideEventConstGc {}) = HoppyP.return this'++instance QHideEventConstPtr QHideEventConst where+  toQHideEventConst = HoppyP.id++instance M34.QEventConstPtr QHideEventConst where+  toQEventConst (QHideEventConst ptr') = M34.QEventConst $ castQHideEventToQEvent ptr'+  toQEventConst (QHideEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQHideEventToQEvent ptr'++data QHideEvent =+    QHideEvent (HoppyF.Ptr QHideEvent)+  | QHideEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QHideEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QHideEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QHideEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQHideEventToNonconst :: QHideEventConst -> QHideEvent+castQHideEventToNonconst (QHideEventConst ptr') = QHideEvent $ HoppyF.castPtr ptr'+castQHideEventToNonconst (QHideEventConstGc fptr' ptr') = QHideEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QHideEvent where+  nullptr = QHideEvent HoppyF.nullPtr+  +  withCppPtr (QHideEvent ptr') f' = f' ptr'+  withCppPtr (QHideEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QHideEvent ptr') = ptr'+  toPtr (QHideEventGc _ ptr') = ptr'+  +  touchCppPtr (QHideEvent _) = HoppyP.return ()+  touchCppPtr (QHideEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QHideEvent where+  delete (QHideEvent ptr') = delete'QHideEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QHideEventConst)+  delete (QHideEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QHideEvent", " object."]+  +  toGc this'@(QHideEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QHideEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QHideEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QHideEventGc {}) = HoppyP.return this'++instance QHideEventConstPtr QHideEvent where+  toQHideEventConst (QHideEvent ptr') = QHideEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QHideEvent -> HoppyF.Ptr QHideEventConst) ptr'+  toQHideEventConst (QHideEventGc fptr' ptr') = QHideEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QHideEvent -> HoppyF.Ptr QHideEventConst) ptr'++instance QHideEventPtr QHideEvent where+  toQHideEvent = HoppyP.id++instance M34.QEventConstPtr QHideEvent where+  toQEventConst (QHideEvent ptr') = M34.QEventConst $ castQHideEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHideEvent -> HoppyF.Ptr QHideEventConst) ptr'+  toQEventConst (QHideEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQHideEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHideEvent -> HoppyF.Ptr QHideEventConst) ptr'++instance M34.QEventPtr QHideEvent where+  toQEvent (QHideEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQHideEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHideEvent -> HoppyF.Ptr QHideEventConst) ptr'+  toQEvent (QHideEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQHideEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHideEvent -> HoppyF.Ptr QHideEventConst) ptr'++new :: (HoppyP.IO QHideEvent)+new =+  HoppyP.fmap QHideEvent+  (new')++class QHideEventSuper a where+  downToQHideEvent :: a -> QHideEvent++instance QHideEventSuper M34.QEvent where+  downToQHideEvent = castQHideEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QHideEventConst $ castQEventToQHideEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QHideEventConstGc fptr' $ castQEventToQHideEvent ptr'++class QHideEventSuperConst a where+  downToQHideEventConst :: a -> QHideEventConst++instance QHideEventSuperConst M34.QEventConst where+  downToQHideEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QHideEventConst $ castQEventToQHideEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QHideEventConstGc fptr' $ castQEventToQHideEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QHideEvent)) QHideEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QHideEvent)) QHideEvent where+  decode = HoppyP.fmap QHideEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QHoverEvent.hs view
@@ -0,0 +1,247 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QHoverEvent (+  castQHoverEventToQInputEvent,+  castQInputEventToQHoverEvent,+  castQHoverEventToQEvent,+  castQEventToQHoverEvent,+  QHoverEventValue (..),+  QHoverEventConstPtr (..),+  oldPos,+  oldPosF,+  pos,+  posF,+  QHoverEventPtr (..),+  QHoverEventConst (..),+  castQHoverEventToConst,+  QHoverEvent (..),+  castQHoverEventToNonconst,+  new,+  newWithModifiers,+  QHoverEventSuper (..),+  QHoverEventSuperConst (..),+  ) 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.HPoint as HPoint+import qualified Graphics.UI.Qtah.Core.HPointF as HPointF+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114+import qualified Graphics.UI.Qtah.Generated.Core.QPointF as M116+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Gui.QInputEvent as M294+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QHoverEvent_new" new' ::  HoppyFC.CInt -> HoppyF.Ptr M116.QPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO (HoppyF.Ptr QHoverEvent)+foreign import ccall "genpop__QHoverEvent_newWithModifiers" newWithModifiers' ::  HoppyFC.CInt -> HoppyF.Ptr M116.QPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QHoverEvent)+foreign import ccall "genpop__QHoverEvent_oldPos" oldPos' ::  HoppyF.Ptr QHoverEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QHoverEvent_oldPosF" oldPosF' ::  HoppyF.Ptr QHoverEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QHoverEvent_pos" pos' ::  HoppyF.Ptr QHoverEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QHoverEvent_posF" posF' ::  HoppyF.Ptr QHoverEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "gencast__QHoverEvent__QInputEvent" castQHoverEventToQInputEvent :: HoppyF.Ptr QHoverEventConst -> HoppyF.Ptr M294.QInputEventConst+foreign import ccall "gencast__QInputEvent__QHoverEvent" castQInputEventToQHoverEvent :: HoppyF.Ptr M294.QInputEventConst -> HoppyF.Ptr QHoverEventConst+foreign import ccall "gencast__QHoverEvent__QEvent" castQHoverEventToQEvent :: HoppyF.Ptr QHoverEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QHoverEvent" castQEventToQHoverEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QHoverEventConst+foreign import ccall "gendel__QHoverEvent" delete'QHoverEvent :: HoppyF.Ptr QHoverEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QHoverEvent" deletePtr'QHoverEvent :: HoppyF.FunPtr (HoppyF.Ptr QHoverEventConst -> HoppyP.IO ())++class QHoverEventValue a where+  withQHoverEventPtr :: a -> (QHoverEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QHoverEventConstPtr a => QHoverEventValue a where+  withQHoverEventPtr = HoppyP.flip ($) . toQHoverEventConst++class (M294.QInputEventConstPtr this) => QHoverEventConstPtr this where+  toQHoverEventConst :: this -> QHoverEventConst++oldPos :: (QHoverEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+oldPos arg'1 =+  withQHoverEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (oldPos' arg'1')++oldPosF :: (QHoverEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+oldPosF arg'1 =+  withQHoverEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (oldPosF' arg'1')++pos :: (QHoverEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+pos arg'1 =+  withQHoverEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (pos' arg'1')++posF :: (QHoverEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+posF arg'1 =+  withQHoverEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (posF' arg'1')++class (QHoverEventConstPtr this, M294.QInputEventPtr this) => QHoverEventPtr this where+  toQHoverEvent :: this -> QHoverEvent++data QHoverEventConst =+    QHoverEventConst (HoppyF.Ptr QHoverEventConst)+  | QHoverEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QHoverEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QHoverEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QHoverEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQHoverEventToConst :: QHoverEvent -> QHoverEventConst+castQHoverEventToConst (QHoverEvent ptr') = QHoverEventConst $ HoppyF.castPtr ptr'+castQHoverEventToConst (QHoverEventGc fptr' ptr') = QHoverEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QHoverEventConst where+  nullptr = QHoverEventConst HoppyF.nullPtr+  +  withCppPtr (QHoverEventConst ptr') f' = f' ptr'+  withCppPtr (QHoverEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QHoverEventConst ptr') = ptr'+  toPtr (QHoverEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QHoverEventConst _) = HoppyP.return ()+  touchCppPtr (QHoverEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QHoverEventConst where+  delete (QHoverEventConst ptr') = delete'QHoverEvent ptr'+  delete (QHoverEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QHoverEventConst", " object."]+  +  toGc this'@(QHoverEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QHoverEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QHoverEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QHoverEventConstGc {}) = HoppyP.return this'++instance QHoverEventConstPtr QHoverEventConst where+  toQHoverEventConst = HoppyP.id++instance M294.QInputEventConstPtr QHoverEventConst where+  toQInputEventConst (QHoverEventConst ptr') = M294.QInputEventConst $ castQHoverEventToQInputEvent ptr'+  toQInputEventConst (QHoverEventConstGc fptr' ptr') = M294.QInputEventConstGc fptr' $ castQHoverEventToQInputEvent ptr'++instance M34.QEventConstPtr QHoverEventConst where+  toQEventConst (QHoverEventConst ptr') = M34.QEventConst $ castQHoverEventToQEvent ptr'+  toQEventConst (QHoverEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQHoverEventToQEvent ptr'++data QHoverEvent =+    QHoverEvent (HoppyF.Ptr QHoverEvent)+  | QHoverEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QHoverEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QHoverEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QHoverEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQHoverEventToNonconst :: QHoverEventConst -> QHoverEvent+castQHoverEventToNonconst (QHoverEventConst ptr') = QHoverEvent $ HoppyF.castPtr ptr'+castQHoverEventToNonconst (QHoverEventConstGc fptr' ptr') = QHoverEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QHoverEvent where+  nullptr = QHoverEvent HoppyF.nullPtr+  +  withCppPtr (QHoverEvent ptr') f' = f' ptr'+  withCppPtr (QHoverEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QHoverEvent ptr') = ptr'+  toPtr (QHoverEventGc _ ptr') = ptr'+  +  touchCppPtr (QHoverEvent _) = HoppyP.return ()+  touchCppPtr (QHoverEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QHoverEvent where+  delete (QHoverEvent ptr') = delete'QHoverEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QHoverEventConst)+  delete (QHoverEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QHoverEvent", " object."]+  +  toGc this'@(QHoverEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QHoverEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QHoverEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QHoverEventGc {}) = HoppyP.return this'++instance QHoverEventConstPtr QHoverEvent where+  toQHoverEventConst (QHoverEvent ptr') = QHoverEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QHoverEvent -> HoppyF.Ptr QHoverEventConst) ptr'+  toQHoverEventConst (QHoverEventGc fptr' ptr') = QHoverEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QHoverEvent -> HoppyF.Ptr QHoverEventConst) ptr'++instance QHoverEventPtr QHoverEvent where+  toQHoverEvent = HoppyP.id++instance M294.QInputEventConstPtr QHoverEvent where+  toQInputEventConst (QHoverEvent ptr') = M294.QInputEventConst $ castQHoverEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHoverEvent -> HoppyF.Ptr QHoverEventConst) ptr'+  toQInputEventConst (QHoverEventGc fptr' ptr') = M294.QInputEventConstGc fptr' $ castQHoverEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHoverEvent -> HoppyF.Ptr QHoverEventConst) ptr'++instance M294.QInputEventPtr QHoverEvent where+  toQInputEvent (QHoverEvent ptr') = M294.QInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr M294.QInputEventConst -> HoppyF.Ptr M294.QInputEvent) $ castQHoverEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHoverEvent -> HoppyF.Ptr QHoverEventConst) ptr'+  toQInputEvent (QHoverEventGc fptr' ptr') = M294.QInputEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M294.QInputEventConst -> HoppyF.Ptr M294.QInputEvent) $ castQHoverEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHoverEvent -> HoppyF.Ptr QHoverEventConst) ptr'++instance M34.QEventConstPtr QHoverEvent where+  toQEventConst (QHoverEvent ptr') = M34.QEventConst $ castQHoverEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHoverEvent -> HoppyF.Ptr QHoverEventConst) ptr'+  toQEventConst (QHoverEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQHoverEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHoverEvent -> HoppyF.Ptr QHoverEventConst) ptr'++instance M34.QEventPtr QHoverEvent where+  toQEvent (QHoverEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQHoverEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHoverEvent -> HoppyF.Ptr QHoverEventConst) ptr'+  toQEvent (QHoverEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQHoverEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QHoverEvent -> HoppyF.Ptr QHoverEventConst) ptr'++new :: (M116.QPointFValue arg'2, M116.QPointFValue arg'3) => (M34.QEventType) -> (arg'2) -> (arg'3) -> (HoppyP.IO QHoverEvent)+new arg'1 arg'2 arg'3 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M116.withQPointFPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap QHoverEvent+  (new' arg'1' arg'2' arg'3')++newWithModifiers :: (M116.QPointFValue arg'2, M116.QPointFValue arg'3, M190.IsQtKeyboardModifiers arg'4) => (M34.QEventType) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO QHoverEvent)+newWithModifiers arg'1 arg'2 arg'3 arg'4 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M116.withQPointFPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QHoverEvent+  (newWithModifiers' arg'1' arg'2' arg'3' arg'4')++class QHoverEventSuper a where+  downToQHoverEvent :: a -> QHoverEvent++instance QHoverEventSuper M294.QInputEvent where+  downToQHoverEvent = castQHoverEventToNonconst . cast' . M294.castQInputEventToConst+    where+      cast' (M294.QInputEventConst ptr') = QHoverEventConst $ castQInputEventToQHoverEvent ptr'+      cast' (M294.QInputEventConstGc fptr' ptr') = QHoverEventConstGc fptr' $ castQInputEventToQHoverEvent ptr'+instance QHoverEventSuper M34.QEvent where+  downToQHoverEvent = castQHoverEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QHoverEventConst $ castQEventToQHoverEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QHoverEventConstGc fptr' $ castQEventToQHoverEvent ptr'++class QHoverEventSuperConst a where+  downToQHoverEventConst :: a -> QHoverEventConst++instance QHoverEventSuperConst M294.QInputEventConst where+  downToQHoverEventConst = cast'+    where+      cast' (M294.QInputEventConst ptr') = QHoverEventConst $ castQInputEventToQHoverEvent ptr'+      cast' (M294.QInputEventConstGc fptr' ptr') = QHoverEventConstGc fptr' $ castQInputEventToQHoverEvent ptr'+instance QHoverEventSuperConst M34.QEventConst where+  downToQHoverEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QHoverEventConst $ castQEventToQHoverEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QHoverEventConstGc fptr' $ castQEventToQHoverEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QHoverEvent)) QHoverEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QHoverEvent)) QHoverEvent where+  decode = HoppyP.fmap QHoverEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QIcon.hs view
@@ -0,0 +1,632 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QIcon (+  QIconValue (..),+  QIconConstPtr (..),+  actualSize,+  actualSizeAll,+  actualSizeWithWindow,+  actualSizeWithWindowAll,+  availableSizes,+  availableSizesAll,+  cacheKey,+  isMask,+  isNull,+  name,+  paintWithRect,+  paintWithRectAll,+  paintWithRaw,+  paintWithRawAll,+  pixmapExtent,+  pixmapExtentAll,+  pixmapRaw,+  pixmapRawAll,+  pixmapSize,+  pixmapSizeAll,+  QIconPtr (..),+  addFile,+  addFileAll,+  addPixmap,+  addPixmapAll,+  setIsMask,+  swap,+  aSSIGN,+  fromTheme,+  fromThemeWithFallback,+  hasThemeIcon,+  setThemeName,+  setThemeSearchPaths,+  themeName,+  themeSearchPaths,+  QIconConst (..),+  castQIconToConst,+  QIcon (..),+  castQIconToNonconst,+  new,+  newWithFile,+  newWithPixmap,+  newCopy,+  QIconSuper (..),+  QIconSuperConst (..),+  QIconMode (..),+  QIconState (..),+  ) where++import Control.Monad ((>=>))+import qualified Data.Int as HoppyDI+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Core.HSize as HSize+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QList.QSize as M204+import qualified Graphics.UI.Qtah.Generated.Core.QRect as M122+import qualified Graphics.UI.Qtah.Generated.Core.QSize as M134+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QStringList as M144+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QPainter as M310+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QPixmap as M316+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QWindow as M342+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QIcon_new" new' ::  HoppyP.IO (HoppyF.Ptr QIcon)+foreign import ccall "genpop__QIcon_newWithFile" newWithFile' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QIcon)+foreign import ccall "genpop__QIcon_newWithPixmap" newWithPixmap' ::  HoppyF.Ptr M316.QPixmapConst -> HoppyP.IO (HoppyF.Ptr QIcon)+foreign import ccall "genpop__QIcon_newCopy" newCopy' ::  HoppyF.Ptr QIconConst -> HoppyP.IO (HoppyF.Ptr QIcon)+foreign import ccall "genpop__QIcon_actualSize" actualSize' ::  HoppyF.Ptr QIconConst -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QIcon_actualSizeAll" actualSizeAll' ::  HoppyF.Ptr QIconConst -> HoppyF.Ptr M134.QSizeConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QIcon_actualSizeWithWindow" actualSizeWithWindow' ::  HoppyF.Ptr QIconConst -> HoppyF.Ptr M342.QWindow -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QIcon_actualSizeWithWindowAll" actualSizeWithWindowAll' ::  HoppyF.Ptr QIconConst -> HoppyF.Ptr M342.QWindow -> HoppyF.Ptr M134.QSizeConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QIcon_addFile" addFile' ::  HoppyF.Ptr QIcon -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QIcon_addFileAll" addFileAll' ::  HoppyF.Ptr QIcon -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M134.QSizeConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QIcon_addPixmap" addPixmap' ::  HoppyF.Ptr QIcon -> HoppyF.Ptr M316.QPixmapConst -> HoppyP.IO ()+foreign import ccall "genpop__QIcon_addPixmapAll" addPixmapAll' ::  HoppyF.Ptr QIcon -> HoppyF.Ptr M316.QPixmapConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QIcon_availableSizes" availableSizes' ::  HoppyF.Ptr QIconConst -> HoppyP.IO (HoppyF.Ptr M204.QListQSizeConst)+foreign import ccall "genpop__QIcon_availableSizesAll" availableSizesAll' ::  HoppyF.Ptr QIconConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M204.QListQSizeConst)+foreign import ccall "genpop__QIcon_cacheKey" cacheKey' ::  HoppyF.Ptr QIconConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QIcon_fromTheme" fromTheme' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QIconConst)+foreign import ccall "genpop__QIcon_fromThemeWithFallback" fromThemeWithFallback' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr QIconConst -> HoppyP.IO (HoppyF.Ptr QIconConst)+foreign import ccall "genpop__QIcon_hasThemeIcon" hasThemeIcon' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIcon_isMask" isMask' ::  HoppyF.Ptr QIconConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIcon_isNull" isNull' ::  HoppyF.Ptr QIconConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QIcon_name" name' ::  HoppyF.Ptr QIconConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QIcon_paintWithRect" paintWithRect' ::  HoppyF.Ptr QIconConst -> HoppyF.Ptr M310.QPainter -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO ()+foreign import ccall "genpop__QIcon_paintWithRectAll" paintWithRectAll' ::  HoppyF.Ptr QIconConst -> HoppyF.Ptr M310.QPainter -> HoppyF.Ptr M122.QRectConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QIcon_paintWithRaw" paintWithRaw' ::  HoppyF.Ptr QIconConst -> HoppyF.Ptr M310.QPainter -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QIcon_paintWithRawAll" paintWithRawAll' ::  HoppyF.Ptr QIconConst -> HoppyF.Ptr M310.QPainter -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QIcon_pixmapExtent" pixmapExtent' ::  HoppyF.Ptr QIconConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M316.QPixmapConst)+foreign import ccall "genpop__QIcon_pixmapExtentAll" pixmapExtentAll' ::  HoppyF.Ptr QIconConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M316.QPixmapConst)+foreign import ccall "genpop__QIcon_pixmapRaw" pixmapRaw' ::  HoppyF.Ptr QIconConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M316.QPixmapConst)+foreign import ccall "genpop__QIcon_pixmapRawAll" pixmapRawAll' ::  HoppyF.Ptr QIconConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M316.QPixmapConst)+foreign import ccall "genpop__QIcon_pixmapSize" pixmapSize' ::  HoppyF.Ptr QIconConst -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO (HoppyF.Ptr M316.QPixmapConst)+foreign import ccall "genpop__QIcon_pixmapSizeAll" pixmapSizeAll' ::  HoppyF.Ptr QIconConst -> HoppyF.Ptr M134.QSizeConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M316.QPixmapConst)+foreign import ccall "genpop__QIcon_setIsMask" setIsMask' ::  HoppyF.Ptr QIcon -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QIcon_setThemeName" setThemeName' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QIcon_setThemeSearchPaths" setThemeSearchPaths' ::  HoppyF.Ptr M144.QStringListConst -> HoppyP.IO ()+foreign import ccall "genpop__QIcon_swap" swap' ::  HoppyF.Ptr QIcon -> HoppyF.Ptr QIcon -> HoppyP.IO ()+foreign import ccall "genpop__QIcon_themeName" themeName' ::  HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QIcon_themeSearchPaths" themeSearchPaths' ::  HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QIcon_ASSIGN" aSSIGN' ::  HoppyF.Ptr QIcon -> HoppyF.Ptr QIconConst -> HoppyP.IO (HoppyF.Ptr QIcon)+foreign import ccall "gendel__QIcon" delete'QIcon :: HoppyF.Ptr QIconConst -> HoppyP.IO ()+foreign import ccall "&gendel__QIcon" deletePtr'QIcon :: HoppyF.FunPtr (HoppyF.Ptr QIconConst -> HoppyP.IO ())++class QIconValue a where+  withQIconPtr :: a -> (QIconConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QIconConstPtr a => QIconValue a where+  withQIconPtr = HoppyP.flip ($) . toQIconConst++class (HoppyFHR.CppPtr this) => QIconConstPtr this where+  toQIconConst :: this -> QIconConst++actualSize :: (QIconValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HSize.HSize)+actualSize arg'1 arg'2 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (actualSize' arg'1' arg'2')++actualSizeAll :: (QIconValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (QIconMode) -> (QIconState) -> (HoppyP.IO HSize.HSize)+actualSizeAll arg'1 arg'2 arg'3 arg'4 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'4 >>= \arg'4' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (actualSizeAll' arg'1' arg'2' arg'3' arg'4')++actualSizeWithWindow :: (QIconValue this, M342.QWindowPtr arg'2, M134.QSizeValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO HSize.HSize)+actualSizeWithWindow arg'1 arg'2 arg'3 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M342.toQWindow arg'2) $ \arg'2' ->+  M134.withQSizePtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (actualSizeWithWindow' arg'1' arg'2' arg'3')++actualSizeWithWindowAll :: (QIconValue this, M342.QWindowPtr arg'2, M134.QSizeValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (QIconMode) -> (QIconState) -> (HoppyP.IO HSize.HSize)+actualSizeWithWindowAll arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M342.toQWindow arg'2) $ \arg'2' ->+  M134.withQSizePtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'5 >>= \arg'5' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (actualSizeWithWindowAll' arg'1' arg'2' arg'3' arg'4' arg'5')++availableSizes :: (QIconValue this) => (this) {- ^ this -} -> (HoppyP.IO [HSize.HSize])+availableSizes arg'1 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M204.QListQSizeConst) =<<+  (availableSizes' arg'1')++availableSizesAll :: (QIconValue this) => (this) {- ^ this -} -> (QIconMode) -> (QIconState) -> (HoppyP.IO [HSize.HSize])+availableSizesAll arg'1 arg'2 arg'3 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M204.QListQSizeConst) =<<+  (availableSizesAll' arg'1' arg'2' arg'3')++cacheKey :: (QIconValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+cacheKey arg'1 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (cacheKey' arg'1')++isMask :: (QIconValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isMask arg'1 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isMask' arg'1')++isNull :: (QIconValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++name :: (QIconValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+name arg'1 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (name' arg'1')++paintWithRect :: (QIconValue this, M310.QPainterPtr arg'2, M122.QRectValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+paintWithRect arg'1 arg'2 arg'3 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M310.toQPainter arg'2) $ \arg'2' ->+  M122.withQRectPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (paintWithRect' arg'1' arg'2' arg'3')++paintWithRectAll :: (QIconValue this, M310.QPainterPtr arg'2, M122.QRectValue arg'3, M190.IsQtAlignment arg'4) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (QIconMode) -> (QIconState) -> (HoppyP.IO ())+paintWithRectAll arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M310.toQPainter arg'2) $ \arg'2' ->+  M122.withQRectPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'5 >>= \arg'5' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'6 >>= \arg'6' ->+  (paintWithRectAll' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++paintWithRaw :: (QIconValue this, M310.QPainterPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+paintWithRaw arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M310.toQPainter 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' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (paintWithRaw' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++paintWithRawAll :: (QIconValue this, M310.QPainterPtr arg'2, M190.IsQtAlignment arg'7) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'7) -> (QIconMode) -> (QIconState) -> (HoppyP.IO ())+paintWithRawAll arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 arg'8 arg'9 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M310.toQPainter 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' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'7 >>= \arg'7' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'8 >>= \arg'8' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'9 >>= \arg'9' ->+  (paintWithRawAll' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7' arg'8' arg'9')++pixmapExtent :: (QIconValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M316.QPixmap)+pixmapExtent arg'1 arg'2 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M316.QPixmapConst) =<<+  (pixmapExtent' arg'1' arg'2')++pixmapExtentAll :: (QIconValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (QIconMode) -> (QIconState) -> (HoppyP.IO M316.QPixmap)+pixmapExtentAll arg'1 arg'2 arg'3 arg'4 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \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' ->+  (HoppyFHR.decodeAndDelete . M316.QPixmapConst) =<<+  (pixmapExtentAll' arg'1' arg'2' arg'3' arg'4')++pixmapRaw :: (QIconValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO M316.QPixmap)+pixmapRaw arg'1 arg'2 arg'3 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M316.QPixmapConst) =<<+  (pixmapRaw' arg'1' arg'2' arg'3')++pixmapRawAll :: (QIconValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (QIconMode) -> (QIconState) -> (HoppyP.IO M316.QPixmap)+pixmapRawAll arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \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' ->+  (HoppyFHR.decodeAndDelete . M316.QPixmapConst) =<<+  (pixmapRawAll' arg'1' arg'2' arg'3' arg'4' arg'5')++pixmapSize :: (QIconValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M316.QPixmap)+pixmapSize arg'1 arg'2 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M316.QPixmapConst) =<<+  (pixmapSize' arg'1' arg'2')++pixmapSizeAll :: (QIconValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (QIconMode) -> (QIconState) -> (HoppyP.IO M316.QPixmap)+pixmapSizeAll arg'1 arg'2 arg'3 arg'4 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'4 >>= \arg'4' ->+  (HoppyFHR.decodeAndDelete . M316.QPixmapConst) =<<+  (pixmapSizeAll' arg'1' arg'2' arg'3' arg'4')++class (QIconConstPtr this) => QIconPtr this where+  toQIcon :: this -> QIcon++addFile :: (QIconPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addFile arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIcon arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (addFile' arg'1' arg'2')++addFileAll :: (QIconPtr this, M142.QStringValue arg'2, M134.QSizeValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (QIconMode) -> (QIconState) -> (HoppyP.IO ())+addFileAll arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQIcon arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M134.withQSizePtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'5 >>= \arg'5' ->+  (addFileAll' arg'1' arg'2' arg'3' arg'4' arg'5')++addPixmap :: (QIconPtr this, M316.QPixmapValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addPixmap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIcon arg'1) $ \arg'1' ->+  M316.withQPixmapPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (addPixmap' arg'1' arg'2')++addPixmapAll :: (QIconPtr this, M316.QPixmapValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (QIconMode) -> (QIconState) -> (HoppyP.IO ())+addPixmapAll arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQIcon arg'1) $ \arg'1' ->+  M316.withQPixmapPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'4 >>= \arg'4' ->+  (addPixmapAll' arg'1' arg'2' arg'3' arg'4')++setIsMask :: (QIconPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setIsMask arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIcon arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setIsMask' arg'1' arg'2')++swap :: (QIconPtr this, QIconPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIcon arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQIcon arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++aSSIGN :: (QIconPtr this, QIconValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QIcon)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIcon arg'1) $ \arg'1' ->+  withQIconPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QIcon+  (aSSIGN' arg'1' arg'2')++fromTheme :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QIcon)+fromTheme arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QIconConst) =<<+  (fromTheme' arg'1')++fromThemeWithFallback :: (M142.QStringValue arg'1, QIconValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QIcon)+fromThemeWithFallback arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQIconPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QIconConst) =<<+  (fromThemeWithFallback' arg'1' arg'2')++hasThemeIcon :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO HoppyP.Bool)+hasThemeIcon arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasThemeIcon' arg'1')++setThemeName :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO ())+setThemeName arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (setThemeName' arg'1')++setThemeSearchPaths :: (M144.QStringListValue arg'1) => (arg'1) -> (HoppyP.IO ())+setThemeSearchPaths arg'1 =+  M144.withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (setThemeSearchPaths' arg'1')++themeName :: (HoppyP.IO QtahP.String)+themeName =+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (themeName')++themeSearchPaths :: (HoppyP.IO [QtahP.String])+themeSearchPaths =+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (themeSearchPaths')++data QIconConst =+    QIconConst (HoppyF.Ptr QIconConst)+  | QIconConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QIconConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QIconConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QIconConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQIconToConst :: QIcon -> QIconConst+castQIconToConst (QIcon ptr') = QIconConst $ HoppyF.castPtr ptr'+castQIconToConst (QIconGc fptr' ptr') = QIconConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QIconConst where+  nullptr = QIconConst HoppyF.nullPtr+  +  withCppPtr (QIconConst ptr') f' = f' ptr'+  withCppPtr (QIconConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QIconConst ptr') = ptr'+  toPtr (QIconConstGc _ ptr') = ptr'+  +  touchCppPtr (QIconConst _) = HoppyP.return ()+  touchCppPtr (QIconConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QIconConst where+  delete (QIconConst ptr') = delete'QIcon ptr'+  delete (QIconConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QIconConst", " object."]+  +  toGc this'@(QIconConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QIconConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QIcon :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QIconConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QIconConst QIcon where copy = newCopy++instance QIconConstPtr QIconConst where+  toQIconConst = HoppyP.id++data QIcon =+    QIcon (HoppyF.Ptr QIcon)+  | QIconGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QIcon)+  deriving (HoppyP.Show)++instance HoppyP.Eq QIcon where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QIcon where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQIconToNonconst :: QIconConst -> QIcon+castQIconToNonconst (QIconConst ptr') = QIcon $ HoppyF.castPtr ptr'+castQIconToNonconst (QIconConstGc fptr' ptr') = QIconGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QIcon where+  nullptr = QIcon HoppyF.nullPtr+  +  withCppPtr (QIcon ptr') f' = f' ptr'+  withCppPtr (QIconGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QIcon ptr') = ptr'+  toPtr (QIconGc _ ptr') = ptr'+  +  touchCppPtr (QIcon _) = HoppyP.return ()+  touchCppPtr (QIconGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QIcon where+  delete (QIcon ptr') = delete'QIcon $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QIconConst)+  delete (QIconGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QIcon", " object."]+  +  toGc this'@(QIcon ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QIconGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QIcon :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QIconGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QIcon QIcon where copy = newCopy++instance QIconConstPtr QIcon where+  toQIconConst (QIcon ptr') = QIconConst $ (HoppyF.castPtr :: HoppyF.Ptr QIcon -> HoppyF.Ptr QIconConst) ptr'+  toQIconConst (QIconGc fptr' ptr') = QIconConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QIcon -> HoppyF.Ptr QIconConst) ptr'++instance QIconPtr QIcon where+  toQIcon = HoppyP.id++new :: (HoppyP.IO QIcon)+new =+  HoppyP.fmap QIcon+  (new')++newWithFile :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QIcon)+newWithFile arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QIcon+  (newWithFile' arg'1')++newWithPixmap :: (M316.QPixmapValue arg'1) => (arg'1) -> (HoppyP.IO QIcon)+newWithPixmap arg'1 =+  M316.withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QIcon+  (newWithPixmap' arg'1')++newCopy :: (QIconValue arg'1) => (arg'1) -> (HoppyP.IO QIcon)+newCopy arg'1 =+  withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QIcon+  (newCopy' arg'1')++class QIconSuper a where+  downToQIcon :: a -> QIcon+++class QIconSuperConst a where+  downToQIconConst :: a -> QIconConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QIcon)) QIcon where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QIconValue a => HoppyFHR.Assignable QIcon a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QIcon)) QIcon where+  decode = HoppyP.fmap QIcon . HoppyF.peek++instance HoppyFHR.Decodable QIcon (QIcon) where+  decode = HoppyFHR.decode . toQIconConst++instance HoppyFHR.Decodable QIconConst (QIcon) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc++data QIconMode =+  Normal+  | Disabled+  | Active+  | Selected+  | UnknownQIconMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QIconMode where+  fromCppEnum Normal = 0+  fromCppEnum Disabled = 1+  fromCppEnum Active = 2+  fromCppEnum Selected = 3+  fromCppEnum (UnknownQIconMode n) = n+  +  toCppEnum (0) = Normal+  toCppEnum (1) = Disabled+  toCppEnum (2) = Active+  toCppEnum (3) = Selected+  toCppEnum n = UnknownQIconMode n++instance HoppyP.Eq QIconMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QIconMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QIconState =+  On+  | Off+  | UnknownQIconState (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QIconState where+  fromCppEnum On = 0+  fromCppEnum Off = 1+  fromCppEnum (UnknownQIconState n) = n+  +  toCppEnum (0) = On+  toCppEnum (1) = Off+  toCppEnum n = UnknownQIconState n++instance HoppyP.Eq QIconState where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QIconState where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Gui/QIcon.hs-boot view
@@ -0,0 +1,74 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QIcon (+  QIconValue (..),+  QIconConstPtr (..),+  QIconPtr (..),+  QIconConst (..),+  castQIconToConst,+  QIcon (..),+  castQIconToNonconst,+  QIconMode,+  QIconState,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Prelude as HoppyP+++class QIconValue a where+  withQIconPtr :: a -> (QIconConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QIconConstPtr a => QIconValue a++class (HoppyFHR.CppPtr this) => QIconConstPtr this where+  toQIconConst :: this -> QIconConst++class (QIconConstPtr this) => QIconPtr this where+  toQIcon :: this -> QIcon++data QIconConst =+    QIconConst (HoppyF.Ptr QIconConst)+  | QIconConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QIconConst)++castQIconToConst :: QIcon -> QIconConst++instance HoppyFHR.CppPtr QIconConst+instance HoppyFHR.Deletable QIconConst+instance HoppyFHR.Copyable QIconConst QIcon++instance QIconConstPtr QIconConst++data QIcon =+    QIcon (HoppyF.Ptr QIcon)+  | QIconGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QIcon)++castQIconToNonconst :: QIconConst -> QIcon++instance HoppyFHR.CppPtr QIcon+instance HoppyFHR.Deletable QIcon+instance HoppyFHR.Copyable QIcon QIcon++instance QIconConstPtr QIcon++instance QIconPtr QIcon++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QIcon)) QIcon++instance HoppyFHR.Decodable QIcon ((QIcon))+instance HoppyFHR.Decodable QIconConst ((QIcon))++data QIconMode+instance HoppyFHR.CppEnum (HoppyFC.CInt) QIconMode+instance HoppyP.Eq QIconMode+instance HoppyP.Ord QIconMode+instance HoppyP.Show QIconMode++data QIconState+instance HoppyFHR.CppEnum (HoppyFC.CInt) QIconState+instance HoppyP.Eq QIconState+instance HoppyP.Ord QIconState+instance HoppyP.Show QIconState
+ src/Graphics/UI/Qtah/Generated/Gui/QIconDragEvent.hs view
@@ -0,0 +1,160 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QIconDragEvent (+  castQIconDragEventToQEvent,+  castQEventToQIconDragEvent,+  QIconDragEventValue (..),+  QIconDragEventConstPtr (..),+  QIconDragEventPtr (..),+  QIconDragEventConst (..),+  castQIconDragEventToConst,+  QIconDragEvent (..),+  castQIconDragEventToNonconst,+  new,+  QIconDragEventSuper (..),+  QIconDragEventSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QIconDragEvent_new" new' ::  HoppyP.IO (HoppyF.Ptr QIconDragEvent)+foreign import ccall "gencast__QIconDragEvent__QEvent" castQIconDragEventToQEvent :: HoppyF.Ptr QIconDragEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QIconDragEvent" castQEventToQIconDragEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QIconDragEventConst+foreign import ccall "gendel__QIconDragEvent" delete'QIconDragEvent :: HoppyF.Ptr QIconDragEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QIconDragEvent" deletePtr'QIconDragEvent :: HoppyF.FunPtr (HoppyF.Ptr QIconDragEventConst -> HoppyP.IO ())++class QIconDragEventValue a where+  withQIconDragEventPtr :: a -> (QIconDragEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QIconDragEventConstPtr a => QIconDragEventValue a where+  withQIconDragEventPtr = HoppyP.flip ($) . toQIconDragEventConst++class (M34.QEventConstPtr this) => QIconDragEventConstPtr this where+  toQIconDragEventConst :: this -> QIconDragEventConst++class (QIconDragEventConstPtr this, M34.QEventPtr this) => QIconDragEventPtr this where+  toQIconDragEvent :: this -> QIconDragEvent++data QIconDragEventConst =+    QIconDragEventConst (HoppyF.Ptr QIconDragEventConst)+  | QIconDragEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QIconDragEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QIconDragEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QIconDragEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQIconDragEventToConst :: QIconDragEvent -> QIconDragEventConst+castQIconDragEventToConst (QIconDragEvent ptr') = QIconDragEventConst $ HoppyF.castPtr ptr'+castQIconDragEventToConst (QIconDragEventGc fptr' ptr') = QIconDragEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QIconDragEventConst where+  nullptr = QIconDragEventConst HoppyF.nullPtr+  +  withCppPtr (QIconDragEventConst ptr') f' = f' ptr'+  withCppPtr (QIconDragEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QIconDragEventConst ptr') = ptr'+  toPtr (QIconDragEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QIconDragEventConst _) = HoppyP.return ()+  touchCppPtr (QIconDragEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QIconDragEventConst where+  delete (QIconDragEventConst ptr') = delete'QIconDragEvent ptr'+  delete (QIconDragEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QIconDragEventConst", " object."]+  +  toGc this'@(QIconDragEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QIconDragEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QIconDragEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QIconDragEventConstGc {}) = HoppyP.return this'++instance QIconDragEventConstPtr QIconDragEventConst where+  toQIconDragEventConst = HoppyP.id++instance M34.QEventConstPtr QIconDragEventConst where+  toQEventConst (QIconDragEventConst ptr') = M34.QEventConst $ castQIconDragEventToQEvent ptr'+  toQEventConst (QIconDragEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQIconDragEventToQEvent ptr'++data QIconDragEvent =+    QIconDragEvent (HoppyF.Ptr QIconDragEvent)+  | QIconDragEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QIconDragEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QIconDragEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QIconDragEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQIconDragEventToNonconst :: QIconDragEventConst -> QIconDragEvent+castQIconDragEventToNonconst (QIconDragEventConst ptr') = QIconDragEvent $ HoppyF.castPtr ptr'+castQIconDragEventToNonconst (QIconDragEventConstGc fptr' ptr') = QIconDragEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QIconDragEvent where+  nullptr = QIconDragEvent HoppyF.nullPtr+  +  withCppPtr (QIconDragEvent ptr') f' = f' ptr'+  withCppPtr (QIconDragEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QIconDragEvent ptr') = ptr'+  toPtr (QIconDragEventGc _ ptr') = ptr'+  +  touchCppPtr (QIconDragEvent _) = HoppyP.return ()+  touchCppPtr (QIconDragEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QIconDragEvent where+  delete (QIconDragEvent ptr') = delete'QIconDragEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QIconDragEventConst)+  delete (QIconDragEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QIconDragEvent", " object."]+  +  toGc this'@(QIconDragEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QIconDragEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QIconDragEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QIconDragEventGc {}) = HoppyP.return this'++instance QIconDragEventConstPtr QIconDragEvent where+  toQIconDragEventConst (QIconDragEvent ptr') = QIconDragEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QIconDragEvent -> HoppyF.Ptr QIconDragEventConst) ptr'+  toQIconDragEventConst (QIconDragEventGc fptr' ptr') = QIconDragEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QIconDragEvent -> HoppyF.Ptr QIconDragEventConst) ptr'++instance QIconDragEventPtr QIconDragEvent where+  toQIconDragEvent = HoppyP.id++instance M34.QEventConstPtr QIconDragEvent where+  toQEventConst (QIconDragEvent ptr') = M34.QEventConst $ castQIconDragEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QIconDragEvent -> HoppyF.Ptr QIconDragEventConst) ptr'+  toQEventConst (QIconDragEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQIconDragEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QIconDragEvent -> HoppyF.Ptr QIconDragEventConst) ptr'++instance M34.QEventPtr QIconDragEvent where+  toQEvent (QIconDragEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQIconDragEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QIconDragEvent -> HoppyF.Ptr QIconDragEventConst) ptr'+  toQEvent (QIconDragEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQIconDragEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QIconDragEvent -> HoppyF.Ptr QIconDragEventConst) ptr'++new :: (HoppyP.IO QIconDragEvent)+new =+  HoppyP.fmap QIconDragEvent+  (new')++class QIconDragEventSuper a where+  downToQIconDragEvent :: a -> QIconDragEvent++instance QIconDragEventSuper M34.QEvent where+  downToQIconDragEvent = castQIconDragEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QIconDragEventConst $ castQEventToQIconDragEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QIconDragEventConstGc fptr' $ castQEventToQIconDragEvent ptr'++class QIconDragEventSuperConst a where+  downToQIconDragEventConst :: a -> QIconDragEventConst++instance QIconDragEventSuperConst M34.QEventConst where+  downToQIconDragEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QIconDragEventConst $ castQEventToQIconDragEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QIconDragEventConstGc fptr' $ castQEventToQIconDragEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QIconDragEvent)) QIconDragEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QIconDragEvent)) QIconDragEvent where+  decode = HoppyP.fmap QIconDragEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QImage.hs view
@@ -0,0 +1,1441 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QImage (+  castQImageToQPaintDevice,+  castQPaintDeviceToQImage,+  QImageValue (..),+  QImageConstPtr (..),+  allGray,+  bitPlaneCount,+  bitsConst,+  byteCount,+  bytesPerLine,+  color,+  colorCount,+  colorTable,+  constScanLine,+  copyRect,+  copyRaw,+  createAlphaMask,+  createHeuristicMask,+  createHeuristicMaskWithClipTight,+  createMaskFromColor,+  createMaskFromColorWithMode,+  depth,+  devicePixelRatio,+  dotsPerMeterX,+  dotsPerMeterY,+  format,+  hasAlphaChannel,+  height,+  isGrayscale,+  isNull,+  mirrored,+  offset,+  pixelAtPoint,+  pixelAtRaw,+  pixelColorAtPoint,+  pixelColorAtRaw,+  pixelIndexAtPoint,+  pixelIndexAtRaw,+  rect,+  rgbSwapped,+  scaled,+  scaledAll,+  scaledWithRaw,+  scaledWithRawAll,+  scaledToHeight,+  scaledToHeightAll,+  scaledToWidth,+  scaledToWidthAll,+  scanLineConst,+  size,+  text,+  textKeys,+  transformedWithTransform,+  transformedWithTransformAll,+  validAtPoint,+  validAtRaw,+  width,+  eQ,+  nE,+  QImagePtr (..),+  bits,+  setColorCount,+  setDevicePixelRatio,+  setDotsPerMeterX,+  setDotsPerMeterY,+  fillWithPixel,+  fillWithColor,+  fillWithGlobalColor,+  invertPixels,+  invertPixelsWithMode,+  load,+  loadFromDataByteArray,+  loadFromDataRaw,+  setOffset,+  save,+  scanLine,+  setColor,+  setColorTable,+  setPixelAtPoint,+  setPixelAtRaw,+  setPixelColorAtPoint,+  setPixelColorAtRaw,+  setText,+  swap,+  aSSIGN,+  newWithDataAndCleanup,+  newWithConstDataAndCleanup,+  newWithDataAndBytesPerLineAndCleanup,+  newWithConstDataAndBytesPerLineAndCleanup,+  newWithFileAndFormat,+  fromDataByteArray,+  fromDataByteArrayWithFormat,+  fromDataRaw,+  fromDataRawWithFormat,+  loadWithFormat,+  loadFromDataByteArrayWithFormat,+  loadFromDataRawWithFormat,+  saveAll,+  trueMatrixWithTransform,+  QImageConst (..),+  castQImageToConst,+  QImage (..),+  castQImageToNonconst,+  new,+  newWithSize,+  newWithSizeRaw,+  newWithData,+  newWithConstData,+  newWithDataAndBytesPerLine,+  newWithConstDataAndBytesPerLine,+  newWithFile,+  newCopy,+  QImageSuper (..),+  QImageSuperConst (..),+  QImageFormat (..),+  QImageInvertMode (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Core.HPoint as HPoint+import qualified Graphics.UI.Qtah.Core.HRect as HRect+import qualified Graphics.UI.Qtah.Core.HSize as HSize+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+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.QSize as M134+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QStringList as M144+import qualified Graphics.UI.Qtah.Generated.Core.QVector.QRgb as M222+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Gui.QColor as M252+import qualified Graphics.UI.Qtah.Generated.Gui.QPaintDevice as M304+import qualified Graphics.UI.Qtah.Generated.Gui.QTransform as M336+import qualified Graphics.UI.Qtah.Gui.HColor as HColor+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Internal.Callback as M348+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QImage_new" new' ::  HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_newWithSize" newWithSize' ::  HoppyF.Ptr M134.QSizeConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_newWithSizeRaw" newWithSizeRaw' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_newWithData" newWithData' ::  HoppyF.Ptr HoppyFC.CUChar -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_newWithConstData" newWithConstData' ::  HoppyF.Ptr HoppyFC.CUChar -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_newWithDataAndBytesPerLine" newWithDataAndBytesPerLine' ::  HoppyF.Ptr HoppyFC.CUChar -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_newWithConstDataAndBytesPerLine" newWithConstDataAndBytesPerLine' ::  HoppyF.Ptr HoppyFC.CUChar -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_newWithFile" newWithFile' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_newCopy" newCopy' ::  HoppyF.Ptr QImageConst -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_newWithDataAndCleanup" newWithDataAndCleanup' ::  HoppyF.Ptr HoppyFC.CUChar -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFHR.CCallback (HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_newWithConstDataAndCleanup" newWithConstDataAndCleanup' ::  HoppyF.Ptr HoppyFC.CUChar -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFHR.CCallback (HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_newWithDataAndBytesPerLineAndCleanup" newWithDataAndBytesPerLineAndCleanup' ::  HoppyF.Ptr HoppyFC.CUChar -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFHR.CCallback (HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_newWithConstDataAndBytesPerLineAndCleanup" newWithConstDataAndBytesPerLineAndCleanup' ::  HoppyF.Ptr HoppyFC.CUChar -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFHR.CCallback (HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_newWithFileAndFormat" newWithFileAndFormat' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_allGray" allGray' ::  HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_bitPlaneCount" bitPlaneCount' ::  HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QImage_bits" bits' ::  HoppyF.Ptr QImage -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar)+foreign import ccall "genpop__QImage_bitsConst" bitsConst' ::  HoppyF.Ptr QImageConst -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar)+foreign import ccall "genpop__QImage_byteCount" byteCount' ::  HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QImage_bytesPerLine" bytesPerLine' ::  HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QImage_color" color' ::  HoppyF.Ptr QImageConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QImage_colorCount" colorCount' ::  HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QImage_setColorCount" setColorCount' ::  HoppyF.Ptr QImage -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QImage_colorTable" colorTable' ::  HoppyF.Ptr QImageConst -> HoppyP.IO (HoppyF.Ptr M222.QVectorQRgb)+foreign import ccall "genpop__QImage_constScanLine" constScanLine' ::  HoppyF.Ptr QImageConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar)+foreign import ccall "genpop__QImage_copyRect" copyRect' ::  HoppyF.Ptr QImageConst -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_copyRaw" copyRaw' ::  HoppyF.Ptr QImageConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_createAlphaMask" createAlphaMask' ::  HoppyF.Ptr QImageConst -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_createHeuristicMask" createHeuristicMask' ::  HoppyF.Ptr QImageConst -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_createHeuristicMaskWithClipTight" createHeuristicMaskWithClipTight' ::  HoppyF.Ptr QImageConst -> HoppyFC.CBool -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_createMaskFromColor" createMaskFromColor' ::  HoppyF.Ptr QImageConst -> HoppyFC.CUInt -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_createMaskFromColorWithMode" createMaskFromColorWithMode' ::  HoppyF.Ptr QImageConst -> HoppyFC.CUInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_depth" depth' ::  HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QImage_devicePixelRatio" devicePixelRatio' ::  HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QImage_setDevicePixelRatio" setDevicePixelRatio' ::  HoppyF.Ptr QImage -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QImage_dotsPerMeterX" dotsPerMeterX' ::  HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QImage_setDotsPerMeterX" setDotsPerMeterX' ::  HoppyF.Ptr QImage -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QImage_dotsPerMeterY" dotsPerMeterY' ::  HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QImage_setDotsPerMeterY" setDotsPerMeterY' ::  HoppyF.Ptr QImage -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QImage_fillWithPixel" fillWithPixel' ::  HoppyF.Ptr QImage -> HoppyFC.CUInt -> HoppyP.IO ()+foreign import ccall "genpop__QImage_fillWithColor" fillWithColor' ::  HoppyF.Ptr QImage -> HoppyF.Ptr M252.QColorConst -> HoppyP.IO ()+foreign import ccall "genpop__QImage_fillWithGlobalColor" fillWithGlobalColor' ::  HoppyF.Ptr QImage -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QImage_format" format' ::  HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QImage_fromDataByteArray" fromDataByteArray' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_fromDataByteArrayWithFormat" fromDataByteArrayWithFormat' ::  HoppyF.Ptr M12.QByteArrayConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_fromDataRaw" fromDataRaw' ::  HoppyF.Ptr HoppyFC.CUChar -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_fromDataRawWithFormat" fromDataRawWithFormat' ::  HoppyF.Ptr HoppyFC.CUChar -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "genpop__QImage_hasAlphaChannel" hasAlphaChannel' ::  HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_height" height' ::  HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QImage_invertPixels" invertPixels' ::  HoppyF.Ptr QImage -> HoppyP.IO ()+foreign import ccall "genpop__QImage_invertPixelsWithMode" invertPixelsWithMode' ::  HoppyF.Ptr QImage -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QImage_isGrayscale" isGrayscale' ::  HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_isNull" isNull' ::  HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_load" load' ::  HoppyF.Ptr QImage -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_loadWithFormat" loadWithFormat' ::  HoppyF.Ptr QImage -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_loadFromDataByteArray" loadFromDataByteArray' ::  HoppyF.Ptr QImage -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_loadFromDataByteArrayWithFormat" loadFromDataByteArrayWithFormat' ::  HoppyF.Ptr QImage -> HoppyF.Ptr M12.QByteArrayConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_loadFromDataRaw" loadFromDataRaw' ::  HoppyF.Ptr QImage -> HoppyF.Ptr HoppyFC.CUChar -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_loadFromDataRawWithFormat" loadFromDataRawWithFormat' ::  HoppyF.Ptr QImage -> HoppyF.Ptr HoppyFC.CUChar -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_mirrored" mirrored' ::  HoppyF.Ptr QImageConst -> HoppyFC.CBool -> HoppyFC.CBool -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_offset" offset' ::  HoppyF.Ptr QImageConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QImage_setOffset" setOffset' ::  HoppyF.Ptr QImage -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QImage_pixelAtPoint" pixelAtPoint' ::  HoppyF.Ptr QImageConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QImage_pixelAtRaw" pixelAtRaw' ::  HoppyF.Ptr QImageConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CUInt+foreign import ccall "genpop__QImage_pixelColorAtPoint" pixelColorAtPoint' ::  HoppyF.Ptr QImageConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr M252.QColorConst)+foreign import ccall "genpop__QImage_pixelColorAtRaw" pixelColorAtRaw' ::  HoppyF.Ptr QImageConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M252.QColorConst)+foreign import ccall "genpop__QImage_pixelIndexAtPoint" pixelIndexAtPoint' ::  HoppyF.Ptr QImageConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QImage_pixelIndexAtRaw" pixelIndexAtRaw' ::  HoppyF.Ptr QImageConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QImage_rect" rect' ::  HoppyF.Ptr QImageConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QImage_rgbSwapped" rgbSwapped' ::  HoppyF.Ptr QImageConst -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_save" save' ::  HoppyF.Ptr QImage -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_saveAll" saveAll' ::  HoppyF.Ptr QImage -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_scaled" scaled' ::  HoppyF.Ptr QImageConst -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_scaledAll" scaledAll' ::  HoppyF.Ptr QImageConst -> HoppyF.Ptr M134.QSizeConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_scaledWithRaw" scaledWithRaw' ::  HoppyF.Ptr QImageConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_scaledWithRawAll" scaledWithRawAll' ::  HoppyF.Ptr QImageConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_scaledToHeight" scaledToHeight' ::  HoppyF.Ptr QImageConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_scaledToHeightAll" scaledToHeightAll' ::  HoppyF.Ptr QImageConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_scaledToWidth" scaledToWidth' ::  HoppyF.Ptr QImageConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_scaledToWidthAll" scaledToWidthAll' ::  HoppyF.Ptr QImageConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_scanLine" scanLine' ::  HoppyF.Ptr QImage -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar)+foreign import ccall "genpop__QImage_scanLineConst" scanLineConst' ::  HoppyF.Ptr QImageConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar)+foreign import ccall "genpop__QImage_setColor" setColor' ::  HoppyF.Ptr QImage -> HoppyFC.CInt -> HoppyFC.CUInt -> HoppyP.IO ()+foreign import ccall "genpop__QImage_setColorTable" setColorTable' ::  HoppyF.Ptr QImage -> HoppyF.Ptr M222.QVectorQRgbConst -> HoppyP.IO ()+foreign import ccall "genpop__QImage_setPixelAtPoint" setPixelAtPoint' ::  HoppyF.Ptr QImage -> HoppyF.Ptr M114.QPointConst -> HoppyFC.CUInt -> HoppyP.IO ()+foreign import ccall "genpop__QImage_setPixelAtRaw" setPixelAtRaw' ::  HoppyF.Ptr QImage -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CUInt -> HoppyP.IO ()+foreign import ccall "genpop__QImage_setPixelColorAtPoint" setPixelColorAtPoint' ::  HoppyF.Ptr QImage -> HoppyF.Ptr M114.QPointConst -> HoppyF.Ptr M252.QColorConst -> HoppyP.IO ()+foreign import ccall "genpop__QImage_setPixelColorAtRaw" setPixelColorAtRaw' ::  HoppyF.Ptr QImage -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M252.QColorConst -> HoppyP.IO ()+foreign import ccall "genpop__QImage_setText" setText' ::  HoppyF.Ptr QImage -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QImage_size" size' ::  HoppyF.Ptr QImageConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QImage_swap" swap' ::  HoppyF.Ptr QImage -> HoppyF.Ptr QImage -> HoppyP.IO ()+foreign import ccall "genpop__QImage_text" text' ::  HoppyF.Ptr QImageConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QImage_textKeys" textKeys' ::  HoppyF.Ptr QImageConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QImage_transformedWithTransform" transformedWithTransform' ::  HoppyF.Ptr QImageConst -> HoppyF.Ptr M336.QTransformConst -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_transformedWithTransformAll" transformedWithTransformAll' ::  HoppyF.Ptr QImageConst -> HoppyF.Ptr M336.QTransformConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QImageConst)+foreign import ccall "genpop__QImage_trueMatrixWithTransform" trueMatrixWithTransform' ::  HoppyF.Ptr M336.QTransformConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M336.QTransformConst)+foreign import ccall "genpop__QImage_validAtPoint" validAtPoint' ::  HoppyF.Ptr QImageConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_validAtRaw" validAtRaw' ::  HoppyF.Ptr QImageConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_width" width' ::  HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QImage_EQ" eQ' ::  HoppyF.Ptr QImageConst -> HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_NE" nE' ::  HoppyF.Ptr QImageConst -> HoppyF.Ptr QImageConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QImage_ASSIGN" aSSIGN' ::  HoppyF.Ptr QImage -> HoppyF.Ptr QImageConst -> HoppyP.IO (HoppyF.Ptr QImage)+foreign import ccall "gencast__QImage__QPaintDevice" castQImageToQPaintDevice :: HoppyF.Ptr QImageConst -> HoppyF.Ptr M304.QPaintDeviceConst+foreign import ccall "gencast__QPaintDevice__QImage" castQPaintDeviceToQImage :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr QImageConst+foreign import ccall "gendel__QImage" delete'QImage :: HoppyF.Ptr QImageConst -> HoppyP.IO ()+foreign import ccall "&gendel__QImage" deletePtr'QImage :: HoppyF.FunPtr (HoppyF.Ptr QImageConst -> HoppyP.IO ())++class QImageValue a where+  withQImagePtr :: a -> (QImageConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QImageConstPtr a => QImageValue a where+  withQImagePtr = HoppyP.flip ($) . toQImageConst++class (M304.QPaintDeviceConstPtr this) => QImageConstPtr this where+  toQImageConst :: this -> QImageConst++allGray :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+allGray arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (allGray' arg'1')++bitPlaneCount :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+bitPlaneCount arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (bitPlaneCount' arg'1')++bitsConst :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar))+bitsConst arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (bitsConst' arg'1')++byteCount :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+byteCount arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (byteCount' arg'1')++bytesPerLine :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+bytesPerLine arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (bytesPerLine' arg'1')++color :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyFC.CUInt)+color arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (color' arg'1' arg'2')++colorCount :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+colorCount arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (colorCount' arg'1')++colorTable :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO M222.QVectorQRgb)+colorTable arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.toGc =<<+  HoppyP.fmap M222.QVectorQRgb+  (colorTable' arg'1')++constScanLine :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar))+constScanLine arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (constScanLine' arg'1' arg'2')++copyRect :: (QImageValue this, M122.QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QImage)+copyRect arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M122.withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (copyRect' arg'1' arg'2')++copyRaw :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QImage)+copyRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \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' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (copyRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++createAlphaMask :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO QImage)+createAlphaMask arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (createAlphaMask' arg'1')++createHeuristicMask :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO QImage)+createHeuristicMask arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (createHeuristicMask' arg'1')++createHeuristicMaskWithClipTight :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO QImage)+createHeuristicMaskWithClipTight arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (createHeuristicMaskWithClipTight' arg'1' arg'2')++createMaskFromColor :: (QImageValue this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO QImage)+createMaskFromColor arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (createMaskFromColor' arg'1' arg'2')++createMaskFromColorWithMode :: (QImageValue this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (M190.QtMaskMode) -> (HoppyP.IO QImage)+createMaskFromColorWithMode arg'1 arg'2 arg'3 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (createMaskFromColorWithMode' arg'1' arg'2' arg'3')++depth :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+depth arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (depth' arg'1')++devicePixelRatio :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+devicePixelRatio arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (devicePixelRatio' arg'1')++dotsPerMeterX :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+dotsPerMeterX arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (dotsPerMeterX' arg'1')++dotsPerMeterY :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+dotsPerMeterY arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (dotsPerMeterY' arg'1')++format :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO QImageFormat)+format arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (format' arg'1')++hasAlphaChannel :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasAlphaChannel arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasAlphaChannel' arg'1')++height :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+height arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (height' arg'1')++isGrayscale :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isGrayscale arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isGrayscale' arg'1')++isNull :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++mirrored :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.Bool) -> (HoppyP.IO QImage)+mirrored arg'1 arg'2 arg'3 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (mirrored' arg'1' arg'2' arg'3')++offset :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+offset arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (offset' arg'1')++pixelAtPoint :: (QImageValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyFC.CUInt)+pixelAtPoint arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (pixelAtPoint' arg'1' arg'2')++pixelAtRaw :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyFC.CUInt)+pixelAtRaw arg'1 arg'2 arg'3 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (pixelAtRaw' arg'1' arg'2' arg'3')++pixelColorAtPoint :: (QImageValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HColor.HColor)+pixelColorAtPoint arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M252.QColorConst) =<<+  (pixelColorAtPoint' arg'1' arg'2')++pixelColorAtRaw :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HColor.HColor)+pixelColorAtRaw arg'1 arg'2 arg'3 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M252.QColorConst) =<<+  (pixelColorAtRaw' arg'1' arg'2' arg'3')++pixelIndexAtPoint :: (QImageValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+pixelIndexAtPoint arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (pixelIndexAtPoint' arg'1' arg'2')++pixelIndexAtRaw :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+pixelIndexAtRaw arg'1 arg'2 arg'3 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (pixelIndexAtRaw' arg'1' arg'2' arg'3')++rect :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HRect.HRect)+rect arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<+  (rect' arg'1')++rgbSwapped :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO QImage)+rgbSwapped arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (rgbSwapped' arg'1')++scaled :: (QImageValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QImage)+scaled arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (scaled' arg'1' arg'2')++scaledAll :: (QImageValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtAspectRatioMode) -> (M190.QtTransformationMode) -> (HoppyP.IO QImage)+scaledAll arg'1 arg'2 arg'3 arg'4 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'4 >>= \arg'4' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (scaledAll' arg'1' arg'2' arg'3' arg'4')++scaledWithRaw :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QImage)+scaledWithRaw arg'1 arg'2 arg'3 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (scaledWithRaw' arg'1' arg'2' arg'3')++scaledWithRawAll :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (M190.QtAspectRatioMode) -> (M190.QtTransformationMode) -> (HoppyP.IO QImage)+scaledWithRawAll arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \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' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (scaledWithRawAll' arg'1' arg'2' arg'3' arg'4' arg'5')++scaledToHeight :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QImage)+scaledToHeight arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (scaledToHeight' arg'1' arg'2')++scaledToHeightAll :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (M190.QtTransformationMode) -> (HoppyP.IO QImage)+scaledToHeightAll arg'1 arg'2 arg'3 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (scaledToHeightAll' arg'1' arg'2' arg'3')++scaledToWidth :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QImage)+scaledToWidth arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (scaledToWidth' arg'1' arg'2')++scaledToWidthAll :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (M190.QtTransformationMode) -> (HoppyP.IO QImage)+scaledToWidthAll arg'1 arg'2 arg'3 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (scaledToWidthAll' arg'1' arg'2' arg'3')++scanLineConst :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar))+scanLineConst arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (scanLineConst' arg'1' arg'2')++size :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+size arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (size' arg'1')++text :: (QImageValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)+text arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (text' arg'1' arg'2')++textKeys :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+textKeys arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (textKeys' arg'1')++transformedWithTransform :: (QImageValue this, M336.QTransformValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QImage)+transformedWithTransform arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M336.withQTransformPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (transformedWithTransform' arg'1' arg'2')++transformedWithTransformAll :: (QImageValue this, M336.QTransformValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtTransformationMode) -> (HoppyP.IO QImage)+transformedWithTransformAll arg'1 arg'2 arg'3 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M336.withQTransformPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QImageConst) =<<+  (transformedWithTransformAll' arg'1' arg'2' arg'3')++validAtPoint :: (QImageValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+validAtPoint arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (validAtPoint' arg'1' arg'2')++validAtRaw :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+validAtRaw arg'1 arg'2 arg'3 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (validAtRaw' arg'1' arg'2' arg'3')++width :: (QImageValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+width arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (width' arg'1')++eQ :: (QImageValue this, QImageValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQImagePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QImageValue this, QImageValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQImagePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QImageConstPtr this, M304.QPaintDevicePtr this) => QImagePtr this where+  toQImage :: this -> QImage++bits :: (QImagePtr this) => (this) {- ^ this -} -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar))+bits arg'1 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  (bits' arg'1')++setColorCount :: (QImagePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setColorCount arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setColorCount' arg'1' arg'2')++setDevicePixelRatio :: (QImagePtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setDevicePixelRatio arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setDevicePixelRatio' arg'1' arg'2')++setDotsPerMeterX :: (QImagePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setDotsPerMeterX arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setDotsPerMeterX' arg'1' arg'2')++setDotsPerMeterY :: (QImagePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setDotsPerMeterY arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setDotsPerMeterY' arg'1' arg'2')++fillWithPixel :: (QImagePtr this) => (this) {- ^ this -} -> (HoppyFC.CUInt) -> (HoppyP.IO ())+fillWithPixel arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (fillWithPixel' arg'1' arg'2')++fillWithColor :: (QImagePtr this, M252.QColorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+fillWithColor arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  M252.withQColorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (fillWithColor' arg'1' arg'2')++fillWithGlobalColor :: (QImagePtr this) => (this) {- ^ this -} -> (M190.QtGlobalColor) -> (HoppyP.IO ())+fillWithGlobalColor arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (fillWithGlobalColor' arg'1' arg'2')++invertPixels :: (QImagePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+invertPixels arg'1 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  (invertPixels' arg'1')++invertPixelsWithMode :: (QImagePtr this) => (this) {- ^ this -} -> (QImageInvertMode) -> (HoppyP.IO ())+invertPixelsWithMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (invertPixelsWithMode' arg'1' arg'2')++load :: (QImagePtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+load arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (load' arg'1' arg'2')++loadFromDataByteArray :: (QImagePtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+loadFromDataByteArray arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (loadFromDataByteArray' arg'1' arg'2')++loadFromDataRaw :: (QImagePtr this) => (this) {- ^ this -} -> (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+loadFromDataRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (loadFromDataRaw' arg'1' arg'2' arg'3')++setOffset :: (QImagePtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setOffset arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setOffset' arg'1' arg'2')++save :: (QImagePtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+save arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (save' arg'1' arg'2')++scanLine :: (QImagePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO (HoppyF.Ptr HoppyFC.CUChar))+scanLine arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (scanLine' arg'1' arg'2')++setColor :: (QImagePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyFC.CUInt) -> (HoppyP.IO ())+setColor arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  let arg'3' = arg'3 in+  (setColor' arg'1' arg'2' arg'3')++setColorTable :: (QImagePtr this, M222.QVectorQRgbValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setColorTable arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  M222.withQVectorQRgbPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setColorTable' arg'1' arg'2')++setPixelAtPoint :: (QImagePtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyFC.CUInt) -> (HoppyP.IO ())+setPixelAtPoint arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  let arg'3' = arg'3 in+  (setPixelAtPoint' arg'1' arg'2' arg'3')++setPixelAtRaw :: (QImagePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyFC.CUInt) -> (HoppyP.IO ())+setPixelAtRaw arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  let arg'4' = arg'4 in+  (setPixelAtRaw' arg'1' arg'2' arg'3' arg'4')++setPixelColorAtPoint :: (QImagePtr this, M114.QPointValue arg'2, M252.QColorValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+setPixelColorAtPoint arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M252.withQColorPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (setPixelColorAtPoint' arg'1' arg'2' arg'3')++setPixelColorAtRaw :: (QImagePtr this, M252.QColorValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO ())+setPixelColorAtRaw arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M252.withQColorPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (setPixelColorAtRaw' arg'1' arg'2' arg'3' arg'4')++setText :: (QImagePtr this, M142.QStringValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+setText arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (setText' arg'1' arg'2' arg'3')++swap :: (QImagePtr this, QImagePtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQImage arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++aSSIGN :: (QImagePtr this, QImageValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QImage)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  withQImagePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QImage+  (aSSIGN' arg'1' arg'2')++newWithDataAndCleanup :: (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.Int) -> (HoppyP.Int) -> (QImageFormat) -> (HoppyP.IO ()) -> (HoppyP.IO QImage)+newWithDataAndCleanup arg'1 arg'2 arg'3 arg'4 arg'5 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'4 >>= \arg'4' ->+  (+    M348.callbackVoid_new+  ) arg'5 >>= \arg'5' ->+  HoppyP.fmap QImage+  (newWithDataAndCleanup' arg'1' arg'2' arg'3' arg'4' arg'5')++newWithConstDataAndCleanup :: (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.Int) -> (HoppyP.Int) -> (QImageFormat) -> (HoppyP.IO ()) -> (HoppyP.IO QImage)+newWithConstDataAndCleanup arg'1 arg'2 arg'3 arg'4 arg'5 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'4 >>= \arg'4' ->+  (+    M348.callbackVoid_new+  ) arg'5 >>= \arg'5' ->+  HoppyP.fmap QImage+  (newWithConstDataAndCleanup' arg'1' arg'2' arg'3' arg'4' arg'5')++newWithDataAndBytesPerLineAndCleanup :: (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (QImageFormat) -> (HoppyP.IO ()) -> (HoppyP.IO QImage)+newWithDataAndBytesPerLineAndCleanup arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  let arg'1' = arg'1 in+  (+    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.fromCppEnum+  ) arg'5 >>= \arg'5' ->+  (+    M348.callbackVoid_new+  ) arg'6 >>= \arg'6' ->+  HoppyP.fmap QImage+  (newWithDataAndBytesPerLineAndCleanup' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++newWithConstDataAndBytesPerLineAndCleanup :: (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (QImageFormat) -> (HoppyP.IO ()) -> (HoppyP.IO QImage)+newWithConstDataAndBytesPerLineAndCleanup arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  let arg'1' = arg'1 in+  (+    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.fromCppEnum+  ) arg'5 >>= \arg'5' ->+  (+    M348.callbackVoid_new+  ) arg'6 >>= \arg'6' ->+  HoppyP.fmap QImage+  (newWithConstDataAndBytesPerLineAndCleanup' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++newWithFileAndFormat :: (M142.QStringValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QImage)+newWithFileAndFormat arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QImage+  (newWithFileAndFormat' arg'1' arg'2')++fromDataByteArray :: (M12.QByteArrayValue arg'1) => (arg'1) -> (HoppyP.IO QImage)+fromDataByteArray arg'1 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QImage+  (fromDataByteArray' arg'1')++fromDataByteArrayWithFormat :: (M12.QByteArrayValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QImage)+fromDataByteArrayWithFormat arg'1 arg'2 =+  M12.withQByteArrayPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QImage+  (fromDataByteArrayWithFormat' arg'1' arg'2')++fromDataRaw :: (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.Int) -> (HoppyP.IO QImage)+fromDataRaw arg'1 arg'2 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QImage+  (fromDataRaw' arg'1' arg'2')++fromDataRawWithFormat :: (M142.QStringValue arg'3) => (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO QImage)+fromDataRawWithFormat arg'1 arg'2 arg'3 =+  let arg'1' = arg'1 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap QImage+  (fromDataRawWithFormat' arg'1' arg'2' arg'3')++loadWithFormat :: (QImagePtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+loadWithFormat arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (loadWithFormat' arg'1' arg'2' arg'3')++loadFromDataByteArrayWithFormat :: (QImagePtr arg'1, M12.QByteArrayValue arg'2, M142.QStringValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+loadFromDataByteArrayWithFormat arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (loadFromDataByteArrayWithFormat' arg'1' arg'2' arg'3')++loadFromDataRawWithFormat :: (QImagePtr arg'1, M142.QStringValue arg'4) => (arg'1) -> (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO HoppyP.Bool)+loadFromDataRawWithFormat arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (loadFromDataRawWithFormat' arg'1' arg'2' arg'3' arg'4')++saveAll :: (QImagePtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+saveAll arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQImage arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (saveAll' arg'1' arg'2' arg'3' arg'4')++trueMatrixWithTransform :: (M336.QTransformValue arg'1) => (arg'1) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO M336.QTransform)+trueMatrixWithTransform arg'1 arg'2 arg'3 =+  M336.withQTransformPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M336.QTransformConst) =<<+  (trueMatrixWithTransform' arg'1' arg'2' arg'3')++data QImageConst =+    QImageConst (HoppyF.Ptr QImageConst)+  | QImageConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QImageConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QImageConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QImageConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQImageToConst :: QImage -> QImageConst+castQImageToConst (QImage ptr') = QImageConst $ HoppyF.castPtr ptr'+castQImageToConst (QImageGc fptr' ptr') = QImageConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QImageConst where+  nullptr = QImageConst HoppyF.nullPtr+  +  withCppPtr (QImageConst ptr') f' = f' ptr'+  withCppPtr (QImageConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QImageConst ptr') = ptr'+  toPtr (QImageConstGc _ ptr') = ptr'+  +  touchCppPtr (QImageConst _) = HoppyP.return ()+  touchCppPtr (QImageConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QImageConst where+  delete (QImageConst ptr') = delete'QImage ptr'+  delete (QImageConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QImageConst", " object."]+  +  toGc this'@(QImageConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QImageConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QImage :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QImageConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QImageConst QImage where copy = newCopy++instance QImageConstPtr QImageConst where+  toQImageConst = HoppyP.id++instance M304.QPaintDeviceConstPtr QImageConst where+  toQPaintDeviceConst (QImageConst ptr') = M304.QPaintDeviceConst $ castQImageToQPaintDevice ptr'+  toQPaintDeviceConst (QImageConstGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQImageToQPaintDevice ptr'++data QImage =+    QImage (HoppyF.Ptr QImage)+  | QImageGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QImage)+  deriving (HoppyP.Show)++instance HoppyP.Eq QImage where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QImage where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQImageToNonconst :: QImageConst -> QImage+castQImageToNonconst (QImageConst ptr') = QImage $ HoppyF.castPtr ptr'+castQImageToNonconst (QImageConstGc fptr' ptr') = QImageGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QImage where+  nullptr = QImage HoppyF.nullPtr+  +  withCppPtr (QImage ptr') f' = f' ptr'+  withCppPtr (QImageGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QImage ptr') = ptr'+  toPtr (QImageGc _ ptr') = ptr'+  +  touchCppPtr (QImage _) = HoppyP.return ()+  touchCppPtr (QImageGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QImage where+  delete (QImage ptr') = delete'QImage $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QImageConst)+  delete (QImageGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QImage", " object."]+  +  toGc this'@(QImage ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QImageGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QImage :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QImageGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QImage QImage where copy = newCopy++instance QImageConstPtr QImage where+  toQImageConst (QImage ptr') = QImageConst $ (HoppyF.castPtr :: HoppyF.Ptr QImage -> HoppyF.Ptr QImageConst) ptr'+  toQImageConst (QImageGc fptr' ptr') = QImageConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QImage -> HoppyF.Ptr QImageConst) ptr'++instance QImagePtr QImage where+  toQImage = HoppyP.id++instance M304.QPaintDeviceConstPtr QImage where+  toQPaintDeviceConst (QImage ptr') = M304.QPaintDeviceConst $ castQImageToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QImage -> HoppyF.Ptr QImageConst) ptr'+  toQPaintDeviceConst (QImageGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQImageToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QImage -> HoppyF.Ptr QImageConst) ptr'++instance M304.QPaintDevicePtr QImage where+  toQPaintDevice (QImage ptr') = M304.QPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQImageToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QImage -> HoppyF.Ptr QImageConst) ptr'+  toQPaintDevice (QImageGc fptr' ptr') = M304.QPaintDeviceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQImageToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QImage -> HoppyF.Ptr QImageConst) ptr'++new :: (HoppyP.IO QImage)+new =+  HoppyP.fmap QImage+  (new')++newWithSize :: (M134.QSizeValue arg'1) => (arg'1) -> (QImageFormat) -> (HoppyP.IO QImage)+newWithSize arg'1 arg'2 =+  M134.withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QImage+  (newWithSize' arg'1' arg'2')++newWithSizeRaw :: (HoppyP.Int) -> (HoppyP.Int) -> (QImageFormat) -> (HoppyP.IO QImage)+newWithSizeRaw arg'1 arg'2 arg'3 =+  (+    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.fmap QImage+  (newWithSizeRaw' arg'1' arg'2' arg'3')++newWithData :: (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.Int) -> (HoppyP.Int) -> (QImageFormat) -> (HoppyP.IO QImage)+newWithData arg'1 arg'2 arg'3 arg'4 =+  let arg'1' = arg'1 in+  (+    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.fmap QImage+  (newWithData' arg'1' arg'2' arg'3' arg'4')++newWithConstData :: (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.Int) -> (HoppyP.Int) -> (QImageFormat) -> (HoppyP.IO QImage)+newWithConstData arg'1 arg'2 arg'3 arg'4 =+  let arg'1' = arg'1 in+  (+    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.fmap QImage+  (newWithConstData' arg'1' arg'2' arg'3' arg'4')++newWithDataAndBytesPerLine :: (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.Int) -> (HoppyP.Int) -> (QImageFormat) -> (HoppyP.IO QImage)+newWithDataAndBytesPerLine arg'1 arg'2 arg'3 arg'4 =+  let arg'1' = arg'1 in+  (+    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.fmap QImage+  (newWithDataAndBytesPerLine' arg'1' arg'2' arg'3' arg'4')++newWithConstDataAndBytesPerLine :: (HoppyF.Ptr HoppyFC.CUChar) -> (HoppyP.Int) -> (HoppyP.Int) -> (QImageFormat) -> (HoppyP.IO QImage)+newWithConstDataAndBytesPerLine arg'1 arg'2 arg'3 arg'4 =+  let arg'1' = arg'1 in+  (+    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.fmap QImage+  (newWithConstDataAndBytesPerLine' arg'1' arg'2' arg'3' arg'4')++newWithFile :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QImage)+newWithFile arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QImage+  (newWithFile' arg'1')++newCopy :: (QImageValue arg'1) => (arg'1) -> (HoppyP.IO QImage)+newCopy arg'1 =+  withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QImage+  (newCopy' arg'1')++class QImageSuper a where+  downToQImage :: a -> QImage++instance QImageSuper M304.QPaintDevice where+  downToQImage = castQImageToNonconst . cast' . M304.castQPaintDeviceToConst+    where+      cast' (M304.QPaintDeviceConst ptr') = QImageConst $ castQPaintDeviceToQImage ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QImageConstGc fptr' $ castQPaintDeviceToQImage ptr'++class QImageSuperConst a where+  downToQImageConst :: a -> QImageConst++instance QImageSuperConst M304.QPaintDeviceConst where+  downToQImageConst = cast'+    where+      cast' (M304.QPaintDeviceConst ptr') = QImageConst $ castQPaintDeviceToQImage ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QImageConstGc fptr' $ castQPaintDeviceToQImage ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QImage)) QImage where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QImageValue a => HoppyFHR.Assignable QImage a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QImage)) QImage where+  decode = HoppyP.fmap QImage . HoppyF.peek++instance HoppyFHR.Decodable QImage (QImage) where+  decode = HoppyFHR.decode . toQImageConst++instance HoppyFHR.Decodable QImageConst (QImage) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc++data QImageFormat =+  FormatInvalid+  | FormatMono+  | FormatMonoLsb+  | FormatIndexed8+  | FormatRgb32+  | FormatArgb32+  | FormatArgb32Premultiplied+  | FormatRgb16+  | FormatArgb8565Premultiplied+  | FormatRgb666+  | FormatArgb6666Premultiplied+  | FormatRgb555+  | FormatArgb8555Premultiplied+  | FormatRgb888+  | FormatRgb444+  | FormatArgb4444Premultiplied+  | FormatRgbx8888+  | FormatRgba8888Premultiplied+  | FormatBgr30+  | FormatA2Rgb30Premultiplied+  | FormatAlpha8+  | FormatGrayscale8+  | UnknownQImageFormat (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QImageFormat where+  fromCppEnum FormatInvalid = 0+  fromCppEnum FormatMono = 1+  fromCppEnum FormatMonoLsb = 2+  fromCppEnum FormatIndexed8 = 3+  fromCppEnum FormatRgb32 = 4+  fromCppEnum FormatArgb32 = 5+  fromCppEnum FormatArgb32Premultiplied = 6+  fromCppEnum FormatRgb16 = 7+  fromCppEnum FormatArgb8565Premultiplied = 8+  fromCppEnum FormatRgb666 = 9+  fromCppEnum FormatArgb6666Premultiplied = 10+  fromCppEnum FormatRgb555 = 11+  fromCppEnum FormatArgb8555Premultiplied = 12+  fromCppEnum FormatRgb888 = 13+  fromCppEnum FormatRgb444 = 14+  fromCppEnum FormatArgb4444Premultiplied = 15+  fromCppEnum FormatRgbx8888 = 16+  fromCppEnum FormatRgba8888Premultiplied = 18+  fromCppEnum FormatBgr30 = 19+  fromCppEnum FormatA2Rgb30Premultiplied = 22+  fromCppEnum FormatAlpha8 = 23+  fromCppEnum FormatGrayscale8 = 24+  fromCppEnum (UnknownQImageFormat n) = n+  +  toCppEnum (0) = FormatInvalid+  toCppEnum (1) = FormatMono+  toCppEnum (2) = FormatMonoLsb+  toCppEnum (3) = FormatIndexed8+  toCppEnum (4) = FormatRgb32+  toCppEnum (5) = FormatArgb32+  toCppEnum (6) = FormatArgb32Premultiplied+  toCppEnum (7) = FormatRgb16+  toCppEnum (8) = FormatArgb8565Premultiplied+  toCppEnum (9) = FormatRgb666+  toCppEnum (10) = FormatArgb6666Premultiplied+  toCppEnum (11) = FormatRgb555+  toCppEnum (12) = FormatArgb8555Premultiplied+  toCppEnum (13) = FormatRgb888+  toCppEnum (14) = FormatRgb444+  toCppEnum (15) = FormatArgb4444Premultiplied+  toCppEnum (16) = FormatRgbx8888+  toCppEnum (18) = FormatRgba8888Premultiplied+  toCppEnum (19) = FormatBgr30+  toCppEnum (22) = FormatA2Rgb30Premultiplied+  toCppEnum (23) = FormatAlpha8+  toCppEnum (24) = FormatGrayscale8+  toCppEnum n = UnknownQImageFormat n++instance HoppyP.Eq QImageFormat where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QImageFormat where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QImageInvertMode =+  InvertRgb+  | InvertRgba+  | UnknownQImageInvertMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QImageInvertMode where+  fromCppEnum InvertRgb = 0+  fromCppEnum InvertRgba = 1+  fromCppEnum (UnknownQImageInvertMode n) = n+  +  toCppEnum (0) = InvertRgb+  toCppEnum (1) = InvertRgba+  toCppEnum n = UnknownQImageInvertMode n++instance HoppyP.Eq QImageInvertMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QImageInvertMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Gui/QImage.hs-boot view
@@ -0,0 +1,83 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QImage (+  QImageValue (..),+  QImageConstPtr (..),+  QImagePtr (..),+  QImageConst (..),+  castQImageToConst,+  QImage (..),+  castQImageToNonconst,+  castQImageToQPaintDevice,+  QImageFormat,+  QImageInvertMode,+  ) 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.Gui.QPaintDevice as M304+import qualified Prelude as HoppyP+++class QImageValue a where+  withQImagePtr :: a -> (QImageConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QImageConstPtr a => QImageValue a++class (M304.QPaintDeviceConstPtr this) => QImageConstPtr this where+  toQImageConst :: this -> QImageConst++class (QImageConstPtr this, M304.QPaintDevicePtr this) => QImagePtr this where+  toQImage :: this -> QImage++data QImageConst =+    QImageConst (HoppyF.Ptr QImageConst)+  | QImageConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QImageConst)++castQImageToConst :: QImage -> QImageConst++instance HoppyFHR.CppPtr QImageConst+instance HoppyFHR.Deletable QImageConst+instance HoppyFHR.Copyable QImageConst QImage++instance QImageConstPtr QImageConst++instance M304.QPaintDeviceConstPtr QImageConst++data QImage =+    QImage (HoppyF.Ptr QImage)+  | QImageGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QImage)++castQImageToNonconst :: QImageConst -> QImage++instance HoppyFHR.CppPtr QImage+instance HoppyFHR.Deletable QImage+instance HoppyFHR.Copyable QImage QImage++instance QImageConstPtr QImage++instance QImagePtr QImage++instance M304.QPaintDeviceConstPtr QImage++instance M304.QPaintDevicePtr QImage+castQImageToQPaintDevice :: HoppyF.Ptr QImageConst -> HoppyF.Ptr M304.QPaintDeviceConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QImage)) QImage++instance HoppyFHR.Decodable QImage ((QImage))+instance HoppyFHR.Decodable QImageConst ((QImage))++data QImageFormat+instance HoppyFHR.CppEnum (HoppyFC.CInt) QImageFormat+instance HoppyP.Eq QImageFormat+instance HoppyP.Ord QImageFormat+instance HoppyP.Show QImageFormat++data QImageInvertMode+instance HoppyFHR.CppEnum (HoppyFC.CInt) QImageInvertMode+instance HoppyP.Eq QImageInvertMode+instance HoppyP.Ord QImageInvertMode+instance HoppyP.Show QImageInvertMode
src/Graphics/UI/Qtah/Generated/Gui/QInputEvent.hs view
@@ -0,0 +1,174 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QInputEvent (+  castQInputEventToQEvent,+  castQEventToQInputEvent,+  QInputEventValue (..),+  QInputEventConstPtr (..),+  modifiers,+  timestamp,+  QInputEventPtr (..),+  QInputEventConst (..),+  castQInputEventToConst,+  QInputEvent (..),+  castQInputEventToNonconst,+  QInputEventSuper (..),+  QInputEventSuperConst (..),+  ) 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.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (=<<), (==))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QInputEvent_modifiers" modifiers' ::  HoppyF.Ptr QInputEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QInputEvent_timestamp" timestamp' ::  HoppyF.Ptr QInputEventConst -> HoppyP.IO HoppyFC.CULong+foreign import ccall "gencast__QInputEvent__QEvent" castQInputEventToQEvent :: HoppyF.Ptr QInputEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QInputEvent" castQEventToQInputEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QInputEventConst+foreign import ccall "gendel__QInputEvent" delete'QInputEvent :: HoppyF.Ptr QInputEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QInputEvent" deletePtr'QInputEvent :: HoppyF.FunPtr (HoppyF.Ptr QInputEventConst -> HoppyP.IO ())++class QInputEventValue a where+  withQInputEventPtr :: a -> (QInputEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QInputEventConstPtr a => QInputEventValue a where+  withQInputEventPtr = HoppyP.flip ($) . toQInputEventConst++class (M34.QEventConstPtr this) => QInputEventConstPtr this where+  toQInputEventConst :: this -> QInputEventConst++modifiers :: (QInputEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtKeyboardModifiers)+modifiers arg'1 =+  withQInputEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (modifiers' arg'1')++timestamp :: (QInputEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyFC.CULong)+timestamp arg'1 =+  withQInputEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (timestamp' arg'1')++class (QInputEventConstPtr this, M34.QEventPtr this) => QInputEventPtr this where+  toQInputEvent :: this -> QInputEvent++data QInputEventConst =+    QInputEventConst (HoppyF.Ptr QInputEventConst)+  | QInputEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QInputEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QInputEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QInputEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQInputEventToConst :: QInputEvent -> QInputEventConst+castQInputEventToConst (QInputEvent ptr') = QInputEventConst $ HoppyF.castPtr ptr'+castQInputEventToConst (QInputEventGc fptr' ptr') = QInputEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QInputEventConst where+  nullptr = QInputEventConst HoppyF.nullPtr+  +  withCppPtr (QInputEventConst ptr') f' = f' ptr'+  withCppPtr (QInputEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QInputEventConst ptr') = ptr'+  toPtr (QInputEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QInputEventConst _) = HoppyP.return ()+  touchCppPtr (QInputEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QInputEventConst where+  delete (QInputEventConst ptr') = delete'QInputEvent ptr'+  delete (QInputEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QInputEventConst", " object."]+  +  toGc this'@(QInputEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QInputEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QInputEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QInputEventConstGc {}) = HoppyP.return this'++instance QInputEventConstPtr QInputEventConst where+  toQInputEventConst = HoppyP.id++instance M34.QEventConstPtr QInputEventConst where+  toQEventConst (QInputEventConst ptr') = M34.QEventConst $ castQInputEventToQEvent ptr'+  toQEventConst (QInputEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQInputEventToQEvent ptr'++data QInputEvent =+    QInputEvent (HoppyF.Ptr QInputEvent)+  | QInputEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QInputEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QInputEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QInputEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQInputEventToNonconst :: QInputEventConst -> QInputEvent+castQInputEventToNonconst (QInputEventConst ptr') = QInputEvent $ HoppyF.castPtr ptr'+castQInputEventToNonconst (QInputEventConstGc fptr' ptr') = QInputEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QInputEvent where+  nullptr = QInputEvent HoppyF.nullPtr+  +  withCppPtr (QInputEvent ptr') f' = f' ptr'+  withCppPtr (QInputEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QInputEvent ptr') = ptr'+  toPtr (QInputEventGc _ ptr') = ptr'+  +  touchCppPtr (QInputEvent _) = HoppyP.return ()+  touchCppPtr (QInputEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QInputEvent where+  delete (QInputEvent ptr') = delete'QInputEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QInputEventConst)+  delete (QInputEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QInputEvent", " object."]+  +  toGc this'@(QInputEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QInputEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QInputEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QInputEventGc {}) = HoppyP.return this'++instance QInputEventConstPtr QInputEvent where+  toQInputEventConst (QInputEvent ptr') = QInputEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QInputEvent -> HoppyF.Ptr QInputEventConst) ptr'+  toQInputEventConst (QInputEventGc fptr' ptr') = QInputEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QInputEvent -> HoppyF.Ptr QInputEventConst) ptr'++instance QInputEventPtr QInputEvent where+  toQInputEvent = HoppyP.id++instance M34.QEventConstPtr QInputEvent where+  toQEventConst (QInputEvent ptr') = M34.QEventConst $ castQInputEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QInputEvent -> HoppyF.Ptr QInputEventConst) ptr'+  toQEventConst (QInputEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQInputEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QInputEvent -> HoppyF.Ptr QInputEventConst) ptr'++instance M34.QEventPtr QInputEvent where+  toQEvent (QInputEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQInputEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QInputEvent -> HoppyF.Ptr QInputEventConst) ptr'+  toQEvent (QInputEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQInputEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QInputEvent -> HoppyF.Ptr QInputEventConst) ptr'++class QInputEventSuper a where+  downToQInputEvent :: a -> QInputEvent++instance QInputEventSuper M34.QEvent where+  downToQInputEvent = castQInputEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QInputEventConst $ castQEventToQInputEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QInputEventConstGc fptr' $ castQEventToQInputEvent ptr'++class QInputEventSuperConst a where+  downToQInputEventConst :: a -> QInputEventConst++instance QInputEventSuperConst M34.QEventConst where+  downToQInputEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QInputEventConst $ castQEventToQInputEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QInputEventConstGc fptr' $ castQEventToQInputEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QInputEvent)) QInputEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QInputEvent)) QInputEvent where+  decode = HoppyP.fmap QInputEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QIntValidator.hs view
@@ -0,0 +1,276 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QIntValidator (+  castQIntValidatorToQValidator,+  castQValidatorToQIntValidator,+  castQIntValidatorToQObject,+  castQObjectToQIntValidator,+  QIntValidatorValue (..),+  QIntValidatorConstPtr (..),+  bottom,+  top,+  QIntValidatorPtr (..),+  setBottom,+  setRange,+  setTop,+  QIntValidatorConst (..),+  castQIntValidatorToConst,+  QIntValidator (..),+  castQIntValidatorToNonconst,+  new,+  newWithParent,+  newWithOptions,+  newWithOptionsAndParent,+  QIntValidatorSuper (..),+  QIntValidatorSuperConst (..),+  ) 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.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Gui.QValidator as M338+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QIntValidator_new" new' ::  HoppyP.IO (HoppyF.Ptr QIntValidator)+foreign import ccall "genpop__QIntValidator_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QIntValidator)+foreign import ccall "genpop__QIntValidator_newWithOptions" newWithOptions' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QIntValidator)+foreign import ccall "genpop__QIntValidator_newWithOptionsAndParent" newWithOptionsAndParent' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QIntValidator)+foreign import ccall "genpop__QIntValidator_bottom" bottom' ::  HoppyF.Ptr QIntValidatorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QIntValidator_setBottom" setBottom' ::  HoppyF.Ptr QIntValidator -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QIntValidator_setRange" setRange' ::  HoppyF.Ptr QIntValidator -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QIntValidator_top" top' ::  HoppyF.Ptr QIntValidatorConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QIntValidator_setTop" setTop' ::  HoppyF.Ptr QIntValidator -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QIntValidator__QValidator" castQIntValidatorToQValidator :: HoppyF.Ptr QIntValidatorConst -> HoppyF.Ptr M338.QValidatorConst+foreign import ccall "gencast__QValidator__QIntValidator" castQValidatorToQIntValidator :: HoppyF.Ptr M338.QValidatorConst -> HoppyF.Ptr QIntValidatorConst+foreign import ccall "gencast__QIntValidator__QObject" castQIntValidatorToQObject :: HoppyF.Ptr QIntValidatorConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QIntValidator" castQObjectToQIntValidator :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QIntValidatorConst+foreign import ccall "gendel__QIntValidator" delete'QIntValidator :: HoppyF.Ptr QIntValidatorConst -> HoppyP.IO ()+foreign import ccall "&gendel__QIntValidator" deletePtr'QIntValidator :: HoppyF.FunPtr (HoppyF.Ptr QIntValidatorConst -> HoppyP.IO ())++class QIntValidatorValue a where+  withQIntValidatorPtr :: a -> (QIntValidatorConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QIntValidatorConstPtr a => QIntValidatorValue a where+  withQIntValidatorPtr = HoppyP.flip ($) . toQIntValidatorConst++class (M338.QValidatorConstPtr this) => QIntValidatorConstPtr this where+  toQIntValidatorConst :: this -> QIntValidatorConst++bottom :: (QIntValidatorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+bottom arg'1 =+  withQIntValidatorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (bottom' arg'1')++top :: (QIntValidatorValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+top arg'1 =+  withQIntValidatorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (top' arg'1')++class (QIntValidatorConstPtr this, M338.QValidatorPtr this) => QIntValidatorPtr this where+  toQIntValidator :: this -> QIntValidator++setBottom :: (QIntValidatorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setBottom arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIntValidator arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setBottom' arg'1' arg'2')++setRange :: (QIntValidatorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setRange arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQIntValidator arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (setRange' arg'1' arg'2' arg'3')++setTop :: (QIntValidatorPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setTop arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQIntValidator arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setTop' arg'1' arg'2')++data QIntValidatorConst =+    QIntValidatorConst (HoppyF.Ptr QIntValidatorConst)+  | QIntValidatorConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QIntValidatorConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QIntValidatorConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QIntValidatorConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQIntValidatorToConst :: QIntValidator -> QIntValidatorConst+castQIntValidatorToConst (QIntValidator ptr') = QIntValidatorConst $ HoppyF.castPtr ptr'+castQIntValidatorToConst (QIntValidatorGc fptr' ptr') = QIntValidatorConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QIntValidatorConst where+  nullptr = QIntValidatorConst HoppyF.nullPtr+  +  withCppPtr (QIntValidatorConst ptr') f' = f' ptr'+  withCppPtr (QIntValidatorConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QIntValidatorConst ptr') = ptr'+  toPtr (QIntValidatorConstGc _ ptr') = ptr'+  +  touchCppPtr (QIntValidatorConst _) = HoppyP.return ()+  touchCppPtr (QIntValidatorConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QIntValidatorConst where+  delete (QIntValidatorConst ptr') = delete'QIntValidator ptr'+  delete (QIntValidatorConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QIntValidatorConst", " object."]+  +  toGc this'@(QIntValidatorConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QIntValidatorConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QIntValidator :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QIntValidatorConstGc {}) = HoppyP.return this'++instance QIntValidatorConstPtr QIntValidatorConst where+  toQIntValidatorConst = HoppyP.id++instance M338.QValidatorConstPtr QIntValidatorConst where+  toQValidatorConst (QIntValidatorConst ptr') = M338.QValidatorConst $ castQIntValidatorToQValidator ptr'+  toQValidatorConst (QIntValidatorConstGc fptr' ptr') = M338.QValidatorConstGc fptr' $ castQIntValidatorToQValidator ptr'++instance M94.QObjectConstPtr QIntValidatorConst where+  toQObjectConst (QIntValidatorConst ptr') = M94.QObjectConst $ castQIntValidatorToQObject ptr'+  toQObjectConst (QIntValidatorConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQIntValidatorToQObject ptr'++data QIntValidator =+    QIntValidator (HoppyF.Ptr QIntValidator)+  | QIntValidatorGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QIntValidator)+  deriving (HoppyP.Show)++instance HoppyP.Eq QIntValidator where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QIntValidator where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQIntValidatorToNonconst :: QIntValidatorConst -> QIntValidator+castQIntValidatorToNonconst (QIntValidatorConst ptr') = QIntValidator $ HoppyF.castPtr ptr'+castQIntValidatorToNonconst (QIntValidatorConstGc fptr' ptr') = QIntValidatorGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QIntValidator where+  nullptr = QIntValidator HoppyF.nullPtr+  +  withCppPtr (QIntValidator ptr') f' = f' ptr'+  withCppPtr (QIntValidatorGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QIntValidator ptr') = ptr'+  toPtr (QIntValidatorGc _ ptr') = ptr'+  +  touchCppPtr (QIntValidator _) = HoppyP.return ()+  touchCppPtr (QIntValidatorGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QIntValidator where+  delete (QIntValidator ptr') = delete'QIntValidator $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QIntValidatorConst)+  delete (QIntValidatorGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QIntValidator", " object."]+  +  toGc this'@(QIntValidator ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QIntValidatorGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QIntValidator :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QIntValidatorGc {}) = HoppyP.return this'++instance QIntValidatorConstPtr QIntValidator where+  toQIntValidatorConst (QIntValidator ptr') = QIntValidatorConst $ (HoppyF.castPtr :: HoppyF.Ptr QIntValidator -> HoppyF.Ptr QIntValidatorConst) ptr'+  toQIntValidatorConst (QIntValidatorGc fptr' ptr') = QIntValidatorConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QIntValidator -> HoppyF.Ptr QIntValidatorConst) ptr'++instance QIntValidatorPtr QIntValidator where+  toQIntValidator = HoppyP.id++instance M338.QValidatorConstPtr QIntValidator where+  toQValidatorConst (QIntValidator ptr') = M338.QValidatorConst $ castQIntValidatorToQValidator $ (HoppyF.castPtr :: HoppyF.Ptr QIntValidator -> HoppyF.Ptr QIntValidatorConst) ptr'+  toQValidatorConst (QIntValidatorGc fptr' ptr') = M338.QValidatorConstGc fptr' $ castQIntValidatorToQValidator $ (HoppyF.castPtr :: HoppyF.Ptr QIntValidator -> HoppyF.Ptr QIntValidatorConst) ptr'++instance M338.QValidatorPtr QIntValidator where+  toQValidator (QIntValidator ptr') = M338.QValidator $ (HoppyF.castPtr :: HoppyF.Ptr M338.QValidatorConst -> HoppyF.Ptr M338.QValidator) $ castQIntValidatorToQValidator $ (HoppyF.castPtr :: HoppyF.Ptr QIntValidator -> HoppyF.Ptr QIntValidatorConst) ptr'+  toQValidator (QIntValidatorGc fptr' ptr') = M338.QValidatorGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M338.QValidatorConst -> HoppyF.Ptr M338.QValidator) $ castQIntValidatorToQValidator $ (HoppyF.castPtr :: HoppyF.Ptr QIntValidator -> HoppyF.Ptr QIntValidatorConst) ptr'++instance M94.QObjectConstPtr QIntValidator where+  toQObjectConst (QIntValidator ptr') = M94.QObjectConst $ castQIntValidatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QIntValidator -> HoppyF.Ptr QIntValidatorConst) ptr'+  toQObjectConst (QIntValidatorGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQIntValidatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QIntValidator -> HoppyF.Ptr QIntValidatorConst) ptr'++instance M94.QObjectPtr QIntValidator where+  toQObject (QIntValidator ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQIntValidatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QIntValidator -> HoppyF.Ptr QIntValidatorConst) ptr'+  toQObject (QIntValidatorGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQIntValidatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QIntValidator -> HoppyF.Ptr QIntValidatorConst) ptr'++new :: (HoppyP.IO QIntValidator)+new =+  HoppyP.fmap QIntValidator+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QIntValidator)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QIntValidator+  (newWithParent' arg'1')++newWithOptions :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QIntValidator)+newWithOptions arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QIntValidator+  (newWithOptions' arg'1' arg'2')++newWithOptionsAndParent :: (M94.QObjectPtr arg'3) => (HoppyP.Int) -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO QIntValidator)+newWithOptionsAndParent arg'1 arg'2 arg'3 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'3) $ \arg'3' ->+  HoppyP.fmap QIntValidator+  (newWithOptionsAndParent' arg'1' arg'2' arg'3')++class QIntValidatorSuper a where+  downToQIntValidator :: a -> QIntValidator++instance QIntValidatorSuper M338.QValidator where+  downToQIntValidator = castQIntValidatorToNonconst . cast' . M338.castQValidatorToConst+    where+      cast' (M338.QValidatorConst ptr') = QIntValidatorConst $ castQValidatorToQIntValidator ptr'+      cast' (M338.QValidatorConstGc fptr' ptr') = QIntValidatorConstGc fptr' $ castQValidatorToQIntValidator ptr'+instance QIntValidatorSuper M94.QObject where+  downToQIntValidator = castQIntValidatorToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QIntValidatorConst $ castQObjectToQIntValidator ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QIntValidatorConstGc fptr' $ castQObjectToQIntValidator ptr'++class QIntValidatorSuperConst a where+  downToQIntValidatorConst :: a -> QIntValidatorConst++instance QIntValidatorSuperConst M338.QValidatorConst where+  downToQIntValidatorConst = cast'+    where+      cast' (M338.QValidatorConst ptr') = QIntValidatorConst $ castQValidatorToQIntValidator ptr'+      cast' (M338.QValidatorConstGc fptr' ptr') = QIntValidatorConstGc fptr' $ castQValidatorToQIntValidator ptr'+instance QIntValidatorSuperConst M94.QObjectConst where+  downToQIntValidatorConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QIntValidatorConst $ castQObjectToQIntValidator ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QIntValidatorConstGc fptr' $ castQObjectToQIntValidator ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QIntValidator)) QIntValidator where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QIntValidator)) QIntValidator where+  decode = HoppyP.fmap QIntValidator . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QKeyEvent.hs view
@@ -0,0 +1,335 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QKeyEvent (+  castQKeyEventToQInputEvent,+  castQInputEventToQKeyEvent,+  castQKeyEventToQEvent,+  castQEventToQKeyEvent,+  QKeyEventValue (..),+  QKeyEventConstPtr (..),+  count,+  isAutoRepeat,+  key,+  modifiers,+  nativeModifiers,+  nativeScanCode,+  nativeVirtualKey,+  text,+  QKeyEventPtr (..),+  QKeyEventConst (..),+  castQKeyEventToConst,+  QKeyEvent (..),+  castQKeyEventToNonconst,+  new,+  newWithText,+  newNative,+  newNativeWithText,+  QKeyEventSuper (..),+  QKeyEventSuperConst (..),+  ) where++import qualified Data.Word as HoppyDW+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.QEvent as M34+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.QInputEvent as M294+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QKeyEvent_new" new' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QKeyEvent)+foreign import ccall "genpop__QKeyEvent_newWithText" newWithText' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CBool -> HoppyFC.CUShort -> HoppyP.IO (HoppyF.Ptr QKeyEvent)+foreign import ccall "genpop__QKeyEvent_newNative" newNative' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyDW.Word32 -> HoppyDW.Word32 -> HoppyDW.Word32 -> HoppyP.IO (HoppyF.Ptr QKeyEvent)+foreign import ccall "genpop__QKeyEvent_newNativeWithText" newNativeWithText' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyDW.Word32 -> HoppyDW.Word32 -> HoppyDW.Word32 -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CBool -> HoppyFC.CUShort -> HoppyP.IO (HoppyF.Ptr QKeyEvent)+foreign import ccall "genpop__QKeyEvent_count" count' ::  HoppyF.Ptr QKeyEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QKeyEvent_isAutoRepeat" isAutoRepeat' ::  HoppyF.Ptr QKeyEventConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QKeyEvent_key" key' ::  HoppyF.Ptr QKeyEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QKeyEvent_modifiers" modifiers' ::  HoppyF.Ptr QKeyEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QKeyEvent_nativeModifiers" nativeModifiers' ::  HoppyF.Ptr QKeyEventConst -> HoppyP.IO HoppyDW.Word32+foreign import ccall "genpop__QKeyEvent_nativeScanCode" nativeScanCode' ::  HoppyF.Ptr QKeyEventConst -> HoppyP.IO HoppyDW.Word32+foreign import ccall "genpop__QKeyEvent_nativeVirtualKey" nativeVirtualKey' ::  HoppyF.Ptr QKeyEventConst -> HoppyP.IO HoppyDW.Word32+foreign import ccall "genpop__QKeyEvent_text" text' ::  HoppyF.Ptr QKeyEventConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "gencast__QKeyEvent__QInputEvent" castQKeyEventToQInputEvent :: HoppyF.Ptr QKeyEventConst -> HoppyF.Ptr M294.QInputEventConst+foreign import ccall "gencast__QInputEvent__QKeyEvent" castQInputEventToQKeyEvent :: HoppyF.Ptr M294.QInputEventConst -> HoppyF.Ptr QKeyEventConst+foreign import ccall "gencast__QKeyEvent__QEvent" castQKeyEventToQEvent :: HoppyF.Ptr QKeyEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QKeyEvent" castQEventToQKeyEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QKeyEventConst+foreign import ccall "gendel__QKeyEvent" delete'QKeyEvent :: HoppyF.Ptr QKeyEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QKeyEvent" deletePtr'QKeyEvent :: HoppyF.FunPtr (HoppyF.Ptr QKeyEventConst -> HoppyP.IO ())++class QKeyEventValue a where+  withQKeyEventPtr :: a -> (QKeyEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QKeyEventConstPtr a => QKeyEventValue a where+  withQKeyEventPtr = HoppyP.flip ($) . toQKeyEventConst++class (M294.QInputEventConstPtr this) => QKeyEventConstPtr this where+  toQKeyEventConst :: this -> QKeyEventConst++count :: (QKeyEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+count arg'1 =+  withQKeyEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1')++isAutoRepeat :: (QKeyEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isAutoRepeat arg'1 =+  withQKeyEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isAutoRepeat' arg'1')++key :: (QKeyEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+key arg'1 =+  withQKeyEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (key' arg'1')++modifiers :: (QKeyEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtKeyboardModifiers)+modifiers arg'1 =+  withQKeyEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (modifiers' arg'1')++nativeModifiers :: (QKeyEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDW.Word32)+nativeModifiers arg'1 =+  withQKeyEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (nativeModifiers' arg'1')++nativeScanCode :: (QKeyEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDW.Word32)+nativeScanCode arg'1 =+  withQKeyEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (nativeScanCode' arg'1')++nativeVirtualKey :: (QKeyEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDW.Word32)+nativeVirtualKey arg'1 =+  withQKeyEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (nativeVirtualKey' arg'1')++text :: (QKeyEventValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+text arg'1 =+  withQKeyEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (text' arg'1')++class (QKeyEventConstPtr this, M294.QInputEventPtr this) => QKeyEventPtr this where+  toQKeyEvent :: this -> QKeyEvent++data QKeyEventConst =+    QKeyEventConst (HoppyF.Ptr QKeyEventConst)+  | QKeyEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QKeyEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QKeyEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QKeyEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQKeyEventToConst :: QKeyEvent -> QKeyEventConst+castQKeyEventToConst (QKeyEvent ptr') = QKeyEventConst $ HoppyF.castPtr ptr'+castQKeyEventToConst (QKeyEventGc fptr' ptr') = QKeyEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QKeyEventConst where+  nullptr = QKeyEventConst HoppyF.nullPtr+  +  withCppPtr (QKeyEventConst ptr') f' = f' ptr'+  withCppPtr (QKeyEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QKeyEventConst ptr') = ptr'+  toPtr (QKeyEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QKeyEventConst _) = HoppyP.return ()+  touchCppPtr (QKeyEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QKeyEventConst where+  delete (QKeyEventConst ptr') = delete'QKeyEvent ptr'+  delete (QKeyEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QKeyEventConst", " object."]+  +  toGc this'@(QKeyEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QKeyEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QKeyEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QKeyEventConstGc {}) = HoppyP.return this'++instance QKeyEventConstPtr QKeyEventConst where+  toQKeyEventConst = HoppyP.id++instance M294.QInputEventConstPtr QKeyEventConst where+  toQInputEventConst (QKeyEventConst ptr') = M294.QInputEventConst $ castQKeyEventToQInputEvent ptr'+  toQInputEventConst (QKeyEventConstGc fptr' ptr') = M294.QInputEventConstGc fptr' $ castQKeyEventToQInputEvent ptr'++instance M34.QEventConstPtr QKeyEventConst where+  toQEventConst (QKeyEventConst ptr') = M34.QEventConst $ castQKeyEventToQEvent ptr'+  toQEventConst (QKeyEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQKeyEventToQEvent ptr'++data QKeyEvent =+    QKeyEvent (HoppyF.Ptr QKeyEvent)+  | QKeyEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QKeyEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QKeyEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QKeyEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQKeyEventToNonconst :: QKeyEventConst -> QKeyEvent+castQKeyEventToNonconst (QKeyEventConst ptr') = QKeyEvent $ HoppyF.castPtr ptr'+castQKeyEventToNonconst (QKeyEventConstGc fptr' ptr') = QKeyEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QKeyEvent where+  nullptr = QKeyEvent HoppyF.nullPtr+  +  withCppPtr (QKeyEvent ptr') f' = f' ptr'+  withCppPtr (QKeyEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QKeyEvent ptr') = ptr'+  toPtr (QKeyEventGc _ ptr') = ptr'+  +  touchCppPtr (QKeyEvent _) = HoppyP.return ()+  touchCppPtr (QKeyEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QKeyEvent where+  delete (QKeyEvent ptr') = delete'QKeyEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QKeyEventConst)+  delete (QKeyEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QKeyEvent", " object."]+  +  toGc this'@(QKeyEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QKeyEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QKeyEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QKeyEventGc {}) = HoppyP.return this'++instance QKeyEventConstPtr QKeyEvent where+  toQKeyEventConst (QKeyEvent ptr') = QKeyEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QKeyEvent -> HoppyF.Ptr QKeyEventConst) ptr'+  toQKeyEventConst (QKeyEventGc fptr' ptr') = QKeyEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QKeyEvent -> HoppyF.Ptr QKeyEventConst) ptr'++instance QKeyEventPtr QKeyEvent where+  toQKeyEvent = HoppyP.id++instance M294.QInputEventConstPtr QKeyEvent where+  toQInputEventConst (QKeyEvent ptr') = M294.QInputEventConst $ castQKeyEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QKeyEvent -> HoppyF.Ptr QKeyEventConst) ptr'+  toQInputEventConst (QKeyEventGc fptr' ptr') = M294.QInputEventConstGc fptr' $ castQKeyEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QKeyEvent -> HoppyF.Ptr QKeyEventConst) ptr'++instance M294.QInputEventPtr QKeyEvent where+  toQInputEvent (QKeyEvent ptr') = M294.QInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr M294.QInputEventConst -> HoppyF.Ptr M294.QInputEvent) $ castQKeyEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QKeyEvent -> HoppyF.Ptr QKeyEventConst) ptr'+  toQInputEvent (QKeyEventGc fptr' ptr') = M294.QInputEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M294.QInputEventConst -> HoppyF.Ptr M294.QInputEvent) $ castQKeyEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QKeyEvent -> HoppyF.Ptr QKeyEventConst) ptr'++instance M34.QEventConstPtr QKeyEvent where+  toQEventConst (QKeyEvent ptr') = M34.QEventConst $ castQKeyEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QKeyEvent -> HoppyF.Ptr QKeyEventConst) ptr'+  toQEventConst (QKeyEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQKeyEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QKeyEvent -> HoppyF.Ptr QKeyEventConst) ptr'++instance M34.QEventPtr QKeyEvent where+  toQEvent (QKeyEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQKeyEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QKeyEvent -> HoppyF.Ptr QKeyEventConst) ptr'+  toQEvent (QKeyEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQKeyEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QKeyEvent -> HoppyF.Ptr QKeyEventConst) ptr'++new :: (M190.IsQtKeyboardModifiers arg'3) => (M34.QEventType) -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO QKeyEvent)+new arg'1 arg'2 arg'3 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QKeyEvent+  (new' arg'1' arg'2' arg'3')++newWithText :: (M190.IsQtKeyboardModifiers arg'3, M142.QStringValue arg'4) => (M34.QEventType) -> (HoppyP.Int) -> (arg'3) -> (arg'4) -> (HoppyP.Bool) -> (HoppyFC.CUShort) -> (HoppyP.IO QKeyEvent)+newWithText arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'3 >>= \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'5 >>= \arg'5' ->+  let arg'6' = arg'6 in+  HoppyP.fmap QKeyEvent+  (newWithText' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++newNative :: (M190.IsQtKeyboardModifiers arg'3) => (M34.QEventType) -> (HoppyP.Int) -> (arg'3) -> (HoppyDW.Word32) -> (HoppyDW.Word32) -> (HoppyDW.Word32) -> (HoppyP.IO QKeyEvent)+newNative arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'3 >>= \arg'3' ->+  let arg'4' = arg'4 in+  let arg'5' = arg'5 in+  let arg'6' = arg'6 in+  HoppyP.fmap QKeyEvent+  (newNative' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++newNativeWithText :: (M190.IsQtKeyboardModifiers arg'3, M142.QStringValue arg'7) => (M34.QEventType) -> (HoppyP.Int) -> (arg'3) -> (HoppyDW.Word32) -> (HoppyDW.Word32) -> (HoppyDW.Word32) -> (arg'7) -> (HoppyP.Bool) -> (HoppyFC.CUShort) -> (HoppyP.IO QKeyEvent)+newNativeWithText arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 arg'8 arg'9 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'3 >>= \arg'3' ->+  let arg'4' = arg'4 in+  let arg'5' = arg'5 in+  let arg'6' = arg'6 in+  M142.withQStringPtr arg'7 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'7' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'8 >>= \arg'8' ->+  let arg'9' = arg'9 in+  HoppyP.fmap QKeyEvent+  (newNativeWithText' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7' arg'8' arg'9')++class QKeyEventSuper a where+  downToQKeyEvent :: a -> QKeyEvent++instance QKeyEventSuper M294.QInputEvent where+  downToQKeyEvent = castQKeyEventToNonconst . cast' . M294.castQInputEventToConst+    where+      cast' (M294.QInputEventConst ptr') = QKeyEventConst $ castQInputEventToQKeyEvent ptr'+      cast' (M294.QInputEventConstGc fptr' ptr') = QKeyEventConstGc fptr' $ castQInputEventToQKeyEvent ptr'+instance QKeyEventSuper M34.QEvent where+  downToQKeyEvent = castQKeyEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QKeyEventConst $ castQEventToQKeyEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QKeyEventConstGc fptr' $ castQEventToQKeyEvent ptr'++class QKeyEventSuperConst a where+  downToQKeyEventConst :: a -> QKeyEventConst++instance QKeyEventSuperConst M294.QInputEventConst where+  downToQKeyEventConst = cast'+    where+      cast' (M294.QInputEventConst ptr') = QKeyEventConst $ castQInputEventToQKeyEvent ptr'+      cast' (M294.QInputEventConstGc fptr' ptr') = QKeyEventConstGc fptr' $ castQInputEventToQKeyEvent ptr'+instance QKeyEventSuperConst M34.QEventConst where+  downToQKeyEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QKeyEventConst $ castQEventToQKeyEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QKeyEventConstGc fptr' $ castQEventToQKeyEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QKeyEvent)) QKeyEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QKeyEvent)) QKeyEvent where+  decode = HoppyP.fmap QKeyEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QMouseEvent.hs view
@@ -0,0 +1,371 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QMouseEvent (+  castQMouseEventToQInputEvent,+  castQInputEventToQMouseEvent,+  castQMouseEventToQEvent,+  castQEventToQMouseEvent,+  QMouseEventValue (..),+  QMouseEventConstPtr (..),+  button,+  buttons,+  flags,+  globalPos,+  globalX,+  globalY,+  localPos,+  pos,+  screenPos,+  source,+  windowPos,+  x,+  y,+  QMouseEventPtr (..),+  QMouseEventConst (..),+  castQMouseEventToConst,+  QMouseEvent (..),+  castQMouseEventToNonconst,+  new,+  newWithScreenPosition,+  newWithWindowAndScreenPosition,+  QMouseEventSuper (..),+  QMouseEventSuperConst (..),+  ) 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.HPoint as HPoint+import qualified Graphics.UI.Qtah.Core.HPointF as HPointF+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114+import qualified Graphics.UI.Qtah.Generated.Core.QPointF as M116+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Gui.QInputEvent as M294+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QMouseEvent_new" new' ::  HoppyFC.CInt -> HoppyF.Ptr M116.QPointFConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QMouseEvent)+foreign import ccall "genpop__QMouseEvent_newWithScreenPosition" newWithScreenPosition' ::  HoppyFC.CInt -> HoppyF.Ptr M116.QPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QMouseEvent)+foreign import ccall "genpop__QMouseEvent_newWithWindowAndScreenPosition" newWithWindowAndScreenPosition' ::  HoppyFC.CInt -> HoppyF.Ptr M116.QPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QMouseEvent)+foreign import ccall "genpop__QMouseEvent_button" button' ::  HoppyF.Ptr QMouseEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMouseEvent_buttons" buttons' ::  HoppyF.Ptr QMouseEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMouseEvent_flags" flags' ::  HoppyF.Ptr QMouseEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMouseEvent_globalPos" globalPos' ::  HoppyF.Ptr QMouseEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QMouseEvent_globalX" globalX' ::  HoppyF.Ptr QMouseEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMouseEvent_globalY" globalY' ::  HoppyF.Ptr QMouseEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMouseEvent_localPos" localPos' ::  HoppyF.Ptr QMouseEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QMouseEvent_pos" pos' ::  HoppyF.Ptr QMouseEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QMouseEvent_screenPos" screenPos' ::  HoppyF.Ptr QMouseEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QMouseEvent_source" source' ::  HoppyF.Ptr QMouseEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMouseEvent_windowPos" windowPos' ::  HoppyF.Ptr QMouseEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QMouseEvent_x" x' ::  HoppyF.Ptr QMouseEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMouseEvent_y" y' ::  HoppyF.Ptr QMouseEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "gencast__QMouseEvent__QInputEvent" castQMouseEventToQInputEvent :: HoppyF.Ptr QMouseEventConst -> HoppyF.Ptr M294.QInputEventConst+foreign import ccall "gencast__QInputEvent__QMouseEvent" castQInputEventToQMouseEvent :: HoppyF.Ptr M294.QInputEventConst -> HoppyF.Ptr QMouseEventConst+foreign import ccall "gencast__QMouseEvent__QEvent" castQMouseEventToQEvent :: HoppyF.Ptr QMouseEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QMouseEvent" castQEventToQMouseEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QMouseEventConst+foreign import ccall "gendel__QMouseEvent" delete'QMouseEvent :: HoppyF.Ptr QMouseEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMouseEvent" deletePtr'QMouseEvent :: HoppyF.FunPtr (HoppyF.Ptr QMouseEventConst -> HoppyP.IO ())++class QMouseEventValue a where+  withQMouseEventPtr :: a -> (QMouseEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMouseEventConstPtr a => QMouseEventValue a where+  withQMouseEventPtr = HoppyP.flip ($) . toQMouseEventConst++class (M294.QInputEventConstPtr this) => QMouseEventConstPtr this where+  toQMouseEventConst :: this -> QMouseEventConst++button :: (QMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtMouseButton)+button arg'1 =+  withQMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (button' arg'1')++buttons :: (QMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtMouseButtons)+buttons arg'1 =+  withQMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (buttons' arg'1')++flags :: (QMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtMouseEventFlags)+flags arg'1 =+  withQMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (flags' arg'1')++globalPos :: (QMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+globalPos arg'1 =+  withQMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (globalPos' arg'1')++globalX :: (QMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+globalX arg'1 =+  withQMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (globalX' arg'1')++globalY :: (QMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+globalY arg'1 =+  withQMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (globalY' arg'1')++localPos :: (QMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+localPos arg'1 =+  withQMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (localPos' arg'1')++pos :: (QMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+pos arg'1 =+  withQMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (pos' arg'1')++screenPos :: (QMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+screenPos arg'1 =+  withQMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (screenPos' arg'1')++source :: (QMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtMouseEventSource)+source arg'1 =+  withQMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (source' arg'1')++windowPos :: (QMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+windowPos arg'1 =+  withQMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (windowPos' arg'1')++x :: (QMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+x arg'1 =+  withQMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (x' arg'1')++y :: (QMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+y arg'1 =+  withQMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (y' arg'1')++class (QMouseEventConstPtr this, M294.QInputEventPtr this) => QMouseEventPtr this where+  toQMouseEvent :: this -> QMouseEvent++data QMouseEventConst =+    QMouseEventConst (HoppyF.Ptr QMouseEventConst)+  | QMouseEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMouseEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMouseEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMouseEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMouseEventToConst :: QMouseEvent -> QMouseEventConst+castQMouseEventToConst (QMouseEvent ptr') = QMouseEventConst $ HoppyF.castPtr ptr'+castQMouseEventToConst (QMouseEventGc fptr' ptr') = QMouseEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMouseEventConst where+  nullptr = QMouseEventConst HoppyF.nullPtr+  +  withCppPtr (QMouseEventConst ptr') f' = f' ptr'+  withCppPtr (QMouseEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMouseEventConst ptr') = ptr'+  toPtr (QMouseEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QMouseEventConst _) = HoppyP.return ()+  touchCppPtr (QMouseEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMouseEventConst where+  delete (QMouseEventConst ptr') = delete'QMouseEvent ptr'+  delete (QMouseEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMouseEventConst", " object."]+  +  toGc this'@(QMouseEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMouseEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMouseEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMouseEventConstGc {}) = HoppyP.return this'++instance QMouseEventConstPtr QMouseEventConst where+  toQMouseEventConst = HoppyP.id++instance M294.QInputEventConstPtr QMouseEventConst where+  toQInputEventConst (QMouseEventConst ptr') = M294.QInputEventConst $ castQMouseEventToQInputEvent ptr'+  toQInputEventConst (QMouseEventConstGc fptr' ptr') = M294.QInputEventConstGc fptr' $ castQMouseEventToQInputEvent ptr'++instance M34.QEventConstPtr QMouseEventConst where+  toQEventConst (QMouseEventConst ptr') = M34.QEventConst $ castQMouseEventToQEvent ptr'+  toQEventConst (QMouseEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQMouseEventToQEvent ptr'++data QMouseEvent =+    QMouseEvent (HoppyF.Ptr QMouseEvent)+  | QMouseEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMouseEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMouseEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMouseEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMouseEventToNonconst :: QMouseEventConst -> QMouseEvent+castQMouseEventToNonconst (QMouseEventConst ptr') = QMouseEvent $ HoppyF.castPtr ptr'+castQMouseEventToNonconst (QMouseEventConstGc fptr' ptr') = QMouseEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMouseEvent where+  nullptr = QMouseEvent HoppyF.nullPtr+  +  withCppPtr (QMouseEvent ptr') f' = f' ptr'+  withCppPtr (QMouseEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMouseEvent ptr') = ptr'+  toPtr (QMouseEventGc _ ptr') = ptr'+  +  touchCppPtr (QMouseEvent _) = HoppyP.return ()+  touchCppPtr (QMouseEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMouseEvent where+  delete (QMouseEvent ptr') = delete'QMouseEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMouseEventConst)+  delete (QMouseEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMouseEvent", " object."]+  +  toGc this'@(QMouseEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMouseEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMouseEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMouseEventGc {}) = HoppyP.return this'++instance QMouseEventConstPtr QMouseEvent where+  toQMouseEventConst (QMouseEvent ptr') = QMouseEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QMouseEvent -> HoppyF.Ptr QMouseEventConst) ptr'+  toQMouseEventConst (QMouseEventGc fptr' ptr') = QMouseEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMouseEvent -> HoppyF.Ptr QMouseEventConst) ptr'++instance QMouseEventPtr QMouseEvent where+  toQMouseEvent = HoppyP.id++instance M294.QInputEventConstPtr QMouseEvent where+  toQInputEventConst (QMouseEvent ptr') = M294.QInputEventConst $ castQMouseEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QMouseEvent -> HoppyF.Ptr QMouseEventConst) ptr'+  toQInputEventConst (QMouseEventGc fptr' ptr') = M294.QInputEventConstGc fptr' $ castQMouseEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QMouseEvent -> HoppyF.Ptr QMouseEventConst) ptr'++instance M294.QInputEventPtr QMouseEvent where+  toQInputEvent (QMouseEvent ptr') = M294.QInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr M294.QInputEventConst -> HoppyF.Ptr M294.QInputEvent) $ castQMouseEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QMouseEvent -> HoppyF.Ptr QMouseEventConst) ptr'+  toQInputEvent (QMouseEventGc fptr' ptr') = M294.QInputEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M294.QInputEventConst -> HoppyF.Ptr M294.QInputEvent) $ castQMouseEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QMouseEvent -> HoppyF.Ptr QMouseEventConst) ptr'++instance M34.QEventConstPtr QMouseEvent where+  toQEventConst (QMouseEvent ptr') = M34.QEventConst $ castQMouseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QMouseEvent -> HoppyF.Ptr QMouseEventConst) ptr'+  toQEventConst (QMouseEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQMouseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QMouseEvent -> HoppyF.Ptr QMouseEventConst) ptr'++instance M34.QEventPtr QMouseEvent where+  toQEvent (QMouseEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQMouseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QMouseEvent -> HoppyF.Ptr QMouseEventConst) ptr'+  toQEvent (QMouseEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQMouseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QMouseEvent -> HoppyF.Ptr QMouseEventConst) ptr'++new :: (M116.QPointFValue arg'2, M190.IsQtMouseButtons arg'4, M190.IsQtKeyboardModifiers arg'5) => (M34.QEventType) -> (arg'2) -> (M190.QtMouseButton) -> (arg'4) -> (arg'5) -> (HoppyP.IO QMouseEvent)+new arg'1 arg'2 arg'3 arg'4 arg'5 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtMouseButtons+  ) arg'4 >>= \arg'4' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'5 >>= \arg'5' ->+  HoppyP.fmap QMouseEvent+  (new' arg'1' arg'2' arg'3' arg'4' arg'5')++newWithScreenPosition :: (M116.QPointFValue arg'2, M116.QPointFValue arg'3, M190.IsQtMouseButtons arg'5, M190.IsQtKeyboardModifiers arg'6) => (M34.QEventType) -> (arg'2) -> (arg'3) -> (M190.QtMouseButton) -> (arg'5) -> (arg'6) -> (HoppyP.IO QMouseEvent)+newWithScreenPosition arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M116.withQPointFPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'4 >>= \arg'4' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtMouseButtons+  ) arg'5 >>= \arg'5' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'6 >>= \arg'6' ->+  HoppyP.fmap QMouseEvent+  (newWithScreenPosition' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++newWithWindowAndScreenPosition :: (M116.QPointFValue arg'2, M116.QPointFValue arg'3, M116.QPointFValue arg'4, M190.IsQtMouseButtons arg'6, M190.IsQtKeyboardModifiers arg'7) => (M34.QEventType) -> (arg'2) -> (arg'3) -> (arg'4) -> (M190.QtMouseButton) -> (arg'6) -> (arg'7) -> (HoppyP.IO QMouseEvent)+newWithWindowAndScreenPosition arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M116.withQPointFPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M116.withQPointFPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'5 >>= \arg'5' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtMouseButtons+  ) arg'6 >>= \arg'6' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'7 >>= \arg'7' ->+  HoppyP.fmap QMouseEvent+  (newWithWindowAndScreenPosition' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7')++class QMouseEventSuper a where+  downToQMouseEvent :: a -> QMouseEvent++instance QMouseEventSuper M294.QInputEvent where+  downToQMouseEvent = castQMouseEventToNonconst . cast' . M294.castQInputEventToConst+    where+      cast' (M294.QInputEventConst ptr') = QMouseEventConst $ castQInputEventToQMouseEvent ptr'+      cast' (M294.QInputEventConstGc fptr' ptr') = QMouseEventConstGc fptr' $ castQInputEventToQMouseEvent ptr'+instance QMouseEventSuper M34.QEvent where+  downToQMouseEvent = castQMouseEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QMouseEventConst $ castQEventToQMouseEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QMouseEventConstGc fptr' $ castQEventToQMouseEvent ptr'++class QMouseEventSuperConst a where+  downToQMouseEventConst :: a -> QMouseEventConst++instance QMouseEventSuperConst M294.QInputEventConst where+  downToQMouseEventConst = cast'+    where+      cast' (M294.QInputEventConst ptr') = QMouseEventConst $ castQInputEventToQMouseEvent ptr'+      cast' (M294.QInputEventConstGc fptr' ptr') = QMouseEventConstGc fptr' $ castQInputEventToQMouseEvent ptr'+instance QMouseEventSuperConst M34.QEventConst where+  downToQMouseEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QMouseEventConst $ castQEventToQMouseEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QMouseEventConstGc fptr' $ castQEventToQMouseEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMouseEvent)) QMouseEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMouseEvent)) QMouseEvent where+  decode = HoppyP.fmap QMouseEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QOpenGLWindow.hs view
@@ -0,0 +1,373 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QOpenGLWindow (+  castQOpenGLWindowToQPaintDeviceWindow,+  castQPaintDeviceWindowToQOpenGLWindow,+  castQOpenGLWindowToQWindow,+  castQWindowToQOpenGLWindow,+  castQOpenGLWindowToQObject,+  castQObjectToQOpenGLWindow,+  castQOpenGLWindowToQSurface,+  castQSurfaceToQOpenGLWindow,+  castQOpenGLWindowToQPaintDevice,+  castQPaintDeviceToQOpenGLWindow,+  QOpenGLWindowValue (..),+  QOpenGLWindowConstPtr (..),+  defaultFramebufferObject,+  isValid,+  updateBehavior,+  QOpenGLWindowPtr (..),+  doneCurrent,+  grabFramebuffer,+  makeCurrent,+  emitFrameSwapped,+  QOpenGLWindowConst (..),+  castQOpenGLWindowToConst,+  QOpenGLWindow (..),+  castQOpenGLWindowToNonconst,+  new,+  newWithUpdateBehavior,+  newWithUpdateBehaviorAndParent,+  QOpenGLWindowSuper (..),+  QOpenGLWindowSuperConst (..),+  QOpenGLWindowUpdateBehavior (..),+  ) where++import qualified Data.Word as HoppyDW+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Gui.QImage as M292+import qualified Graphics.UI.Qtah.Generated.Gui.QPaintDevice as M304+import qualified Graphics.UI.Qtah.Generated.Gui.QPaintDeviceWindow as M306+import qualified Graphics.UI.Qtah.Generated.Gui.QSurface as M334+import qualified Graphics.UI.Qtah.Generated.Gui.QWindow as M342+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QOpenGLWindow_new" new' ::  HoppyP.IO (HoppyF.Ptr QOpenGLWindow)+foreign import ccall "genpop__QOpenGLWindow_newWithUpdateBehavior" newWithUpdateBehavior' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QOpenGLWindow)+foreign import ccall "genpop__QOpenGLWindow_newWithUpdateBehaviorAndParent" newWithUpdateBehaviorAndParent' ::  HoppyFC.CInt -> HoppyF.Ptr M342.QWindow -> HoppyP.IO (HoppyF.Ptr QOpenGLWindow)+foreign import ccall "genpop__QOpenGLWindow_defaultFramebufferObject" defaultFramebufferObject' ::  HoppyF.Ptr QOpenGLWindowConst -> HoppyP.IO HoppyDW.Word32+foreign import ccall "genpop__QOpenGLWindow_doneCurrent" doneCurrent' ::  HoppyF.Ptr QOpenGLWindow -> HoppyP.IO ()+foreign import ccall "genpop__QOpenGLWindow_grabFramebuffer" grabFramebuffer' ::  HoppyF.Ptr QOpenGLWindow -> HoppyP.IO (HoppyF.Ptr M292.QImageConst)+foreign import ccall "genpop__QOpenGLWindow_isValid" isValid' ::  HoppyF.Ptr QOpenGLWindowConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QOpenGLWindow_makeCurrent" makeCurrent' ::  HoppyF.Ptr QOpenGLWindow -> HoppyP.IO ()+foreign import ccall "genpop__QOpenGLWindow_updateBehavior" updateBehavior' ::  HoppyF.Ptr QOpenGLWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QOpenGLWindow_emitFrameSwapped" emitFrameSwapped' ::  HoppyF.Ptr QOpenGLWindow -> HoppyP.IO ()+foreign import ccall "gencast__QOpenGLWindow__QPaintDeviceWindow" castQOpenGLWindowToQPaintDeviceWindow :: HoppyF.Ptr QOpenGLWindowConst -> HoppyF.Ptr M306.QPaintDeviceWindowConst+foreign import ccall "gencast__QPaintDeviceWindow__QOpenGLWindow" castQPaintDeviceWindowToQOpenGLWindow :: HoppyF.Ptr M306.QPaintDeviceWindowConst -> HoppyF.Ptr QOpenGLWindowConst+foreign import ccall "gencast__QOpenGLWindow__QWindow" castQOpenGLWindowToQWindow :: HoppyF.Ptr QOpenGLWindowConst -> HoppyF.Ptr M342.QWindowConst+foreign import ccall "gencast__QWindow__QOpenGLWindow" castQWindowToQOpenGLWindow :: HoppyF.Ptr M342.QWindowConst -> HoppyF.Ptr QOpenGLWindowConst+foreign import ccall "gencast__QOpenGLWindow__QObject" castQOpenGLWindowToQObject :: HoppyF.Ptr QOpenGLWindowConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QOpenGLWindow" castQObjectToQOpenGLWindow :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QOpenGLWindowConst+foreign import ccall "gencast__QOpenGLWindow__QSurface" castQOpenGLWindowToQSurface :: HoppyF.Ptr QOpenGLWindowConst -> HoppyF.Ptr M334.QSurfaceConst+foreign import ccall "gencast__QSurface__QOpenGLWindow" castQSurfaceToQOpenGLWindow :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr QOpenGLWindowConst+foreign import ccall "gencast__QOpenGLWindow__QPaintDevice" castQOpenGLWindowToQPaintDevice :: HoppyF.Ptr QOpenGLWindowConst -> HoppyF.Ptr M304.QPaintDeviceConst+foreign import ccall "gencast__QPaintDevice__QOpenGLWindow" castQPaintDeviceToQOpenGLWindow :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr QOpenGLWindowConst+foreign import ccall "gendel__QOpenGLWindow" delete'QOpenGLWindow :: HoppyF.Ptr QOpenGLWindowConst -> HoppyP.IO ()+foreign import ccall "&gendel__QOpenGLWindow" deletePtr'QOpenGLWindow :: HoppyF.FunPtr (HoppyF.Ptr QOpenGLWindowConst -> HoppyP.IO ())++class QOpenGLWindowValue a where+  withQOpenGLWindowPtr :: a -> (QOpenGLWindowConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QOpenGLWindowConstPtr a => QOpenGLWindowValue a where+  withQOpenGLWindowPtr = HoppyP.flip ($) . toQOpenGLWindowConst++class (M306.QPaintDeviceWindowConstPtr this) => QOpenGLWindowConstPtr this where+  toQOpenGLWindowConst :: this -> QOpenGLWindowConst++defaultFramebufferObject :: (QOpenGLWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDW.Word32)+defaultFramebufferObject arg'1 =+  withQOpenGLWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (defaultFramebufferObject' arg'1')++isValid :: (QOpenGLWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isValid arg'1 =+  withQOpenGLWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isValid' arg'1')++updateBehavior :: (QOpenGLWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO QOpenGLWindowUpdateBehavior)+updateBehavior arg'1 =+  withQOpenGLWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (updateBehavior' arg'1')++class (QOpenGLWindowConstPtr this, M306.QPaintDeviceWindowPtr this) => QOpenGLWindowPtr this where+  toQOpenGLWindow :: this -> QOpenGLWindow++doneCurrent :: (QOpenGLWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+doneCurrent arg'1 =+  HoppyFHR.withCppPtr (toQOpenGLWindow arg'1) $ \arg'1' ->+  (doneCurrent' arg'1')++grabFramebuffer :: (QOpenGLWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO M292.QImage)+grabFramebuffer arg'1 =+  HoppyFHR.withCppPtr (toQOpenGLWindow arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M292.QImageConst) =<<+  (grabFramebuffer' arg'1')++makeCurrent :: (QOpenGLWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+makeCurrent arg'1 =+  HoppyFHR.withCppPtr (toQOpenGLWindow arg'1) $ \arg'1' ->+  (makeCurrent' arg'1')++emitFrameSwapped :: (QOpenGLWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitFrameSwapped arg'1 =+  HoppyFHR.withCppPtr (toQOpenGLWindow arg'1) $ \arg'1' ->+  (emitFrameSwapped' arg'1')++data QOpenGLWindowConst =+    QOpenGLWindowConst (HoppyF.Ptr QOpenGLWindowConst)+  | QOpenGLWindowConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QOpenGLWindowConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QOpenGLWindowConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QOpenGLWindowConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQOpenGLWindowToConst :: QOpenGLWindow -> QOpenGLWindowConst+castQOpenGLWindowToConst (QOpenGLWindow ptr') = QOpenGLWindowConst $ HoppyF.castPtr ptr'+castQOpenGLWindowToConst (QOpenGLWindowGc fptr' ptr') = QOpenGLWindowConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QOpenGLWindowConst where+  nullptr = QOpenGLWindowConst HoppyF.nullPtr+  +  withCppPtr (QOpenGLWindowConst ptr') f' = f' ptr'+  withCppPtr (QOpenGLWindowConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QOpenGLWindowConst ptr') = ptr'+  toPtr (QOpenGLWindowConstGc _ ptr') = ptr'+  +  touchCppPtr (QOpenGLWindowConst _) = HoppyP.return ()+  touchCppPtr (QOpenGLWindowConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QOpenGLWindowConst where+  delete (QOpenGLWindowConst ptr') = delete'QOpenGLWindow ptr'+  delete (QOpenGLWindowConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QOpenGLWindowConst", " object."]+  +  toGc this'@(QOpenGLWindowConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QOpenGLWindowConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QOpenGLWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QOpenGLWindowConstGc {}) = HoppyP.return this'++instance QOpenGLWindowConstPtr QOpenGLWindowConst where+  toQOpenGLWindowConst = HoppyP.id++instance M306.QPaintDeviceWindowConstPtr QOpenGLWindowConst where+  toQPaintDeviceWindowConst (QOpenGLWindowConst ptr') = M306.QPaintDeviceWindowConst $ castQOpenGLWindowToQPaintDeviceWindow ptr'+  toQPaintDeviceWindowConst (QOpenGLWindowConstGc fptr' ptr') = M306.QPaintDeviceWindowConstGc fptr' $ castQOpenGLWindowToQPaintDeviceWindow ptr'++instance M342.QWindowConstPtr QOpenGLWindowConst where+  toQWindowConst (QOpenGLWindowConst ptr') = M342.QWindowConst $ castQOpenGLWindowToQWindow ptr'+  toQWindowConst (QOpenGLWindowConstGc fptr' ptr') = M342.QWindowConstGc fptr' $ castQOpenGLWindowToQWindow ptr'++instance M94.QObjectConstPtr QOpenGLWindowConst where+  toQObjectConst (QOpenGLWindowConst ptr') = M94.QObjectConst $ castQOpenGLWindowToQObject ptr'+  toQObjectConst (QOpenGLWindowConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQOpenGLWindowToQObject ptr'++instance M334.QSurfaceConstPtr QOpenGLWindowConst where+  toQSurfaceConst (QOpenGLWindowConst ptr') = M334.QSurfaceConst $ castQOpenGLWindowToQSurface ptr'+  toQSurfaceConst (QOpenGLWindowConstGc fptr' ptr') = M334.QSurfaceConstGc fptr' $ castQOpenGLWindowToQSurface ptr'++instance M304.QPaintDeviceConstPtr QOpenGLWindowConst where+  toQPaintDeviceConst (QOpenGLWindowConst ptr') = M304.QPaintDeviceConst $ castQOpenGLWindowToQPaintDevice ptr'+  toQPaintDeviceConst (QOpenGLWindowConstGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQOpenGLWindowToQPaintDevice ptr'++data QOpenGLWindow =+    QOpenGLWindow (HoppyF.Ptr QOpenGLWindow)+  | QOpenGLWindowGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QOpenGLWindow)+  deriving (HoppyP.Show)++instance HoppyP.Eq QOpenGLWindow where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QOpenGLWindow where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQOpenGLWindowToNonconst :: QOpenGLWindowConst -> QOpenGLWindow+castQOpenGLWindowToNonconst (QOpenGLWindowConst ptr') = QOpenGLWindow $ HoppyF.castPtr ptr'+castQOpenGLWindowToNonconst (QOpenGLWindowConstGc fptr' ptr') = QOpenGLWindowGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QOpenGLWindow where+  nullptr = QOpenGLWindow HoppyF.nullPtr+  +  withCppPtr (QOpenGLWindow ptr') f' = f' ptr'+  withCppPtr (QOpenGLWindowGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QOpenGLWindow ptr') = ptr'+  toPtr (QOpenGLWindowGc _ ptr') = ptr'+  +  touchCppPtr (QOpenGLWindow _) = HoppyP.return ()+  touchCppPtr (QOpenGLWindowGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QOpenGLWindow where+  delete (QOpenGLWindow ptr') = delete'QOpenGLWindow $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QOpenGLWindowConst)+  delete (QOpenGLWindowGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QOpenGLWindow", " object."]+  +  toGc this'@(QOpenGLWindow ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QOpenGLWindowGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QOpenGLWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QOpenGLWindowGc {}) = HoppyP.return this'++instance QOpenGLWindowConstPtr QOpenGLWindow where+  toQOpenGLWindowConst (QOpenGLWindow ptr') = QOpenGLWindowConst $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'+  toQOpenGLWindowConst (QOpenGLWindowGc fptr' ptr') = QOpenGLWindowConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'++instance QOpenGLWindowPtr QOpenGLWindow where+  toQOpenGLWindow = HoppyP.id++instance M306.QPaintDeviceWindowConstPtr QOpenGLWindow where+  toQPaintDeviceWindowConst (QOpenGLWindow ptr') = M306.QPaintDeviceWindowConst $ castQOpenGLWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'+  toQPaintDeviceWindowConst (QOpenGLWindowGc fptr' ptr') = M306.QPaintDeviceWindowConstGc fptr' $ castQOpenGLWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'++instance M306.QPaintDeviceWindowPtr QOpenGLWindow where+  toQPaintDeviceWindow (QOpenGLWindow ptr') = M306.QPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr M306.QPaintDeviceWindowConst -> HoppyF.Ptr M306.QPaintDeviceWindow) $ castQOpenGLWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'+  toQPaintDeviceWindow (QOpenGLWindowGc fptr' ptr') = M306.QPaintDeviceWindowGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M306.QPaintDeviceWindowConst -> HoppyF.Ptr M306.QPaintDeviceWindow) $ castQOpenGLWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'++instance M342.QWindowConstPtr QOpenGLWindow where+  toQWindowConst (QOpenGLWindow ptr') = M342.QWindowConst $ castQOpenGLWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'+  toQWindowConst (QOpenGLWindowGc fptr' ptr') = M342.QWindowConstGc fptr' $ castQOpenGLWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'++instance M342.QWindowPtr QOpenGLWindow where+  toQWindow (QOpenGLWindow ptr') = M342.QWindow $ (HoppyF.castPtr :: HoppyF.Ptr M342.QWindowConst -> HoppyF.Ptr M342.QWindow) $ castQOpenGLWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'+  toQWindow (QOpenGLWindowGc fptr' ptr') = M342.QWindowGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M342.QWindowConst -> HoppyF.Ptr M342.QWindow) $ castQOpenGLWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'++instance M94.QObjectConstPtr QOpenGLWindow where+  toQObjectConst (QOpenGLWindow ptr') = M94.QObjectConst $ castQOpenGLWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'+  toQObjectConst (QOpenGLWindowGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQOpenGLWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'++instance M94.QObjectPtr QOpenGLWindow where+  toQObject (QOpenGLWindow ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQOpenGLWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'+  toQObject (QOpenGLWindowGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQOpenGLWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'++instance M334.QSurfaceConstPtr QOpenGLWindow where+  toQSurfaceConst (QOpenGLWindow ptr') = M334.QSurfaceConst $ castQOpenGLWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'+  toQSurfaceConst (QOpenGLWindowGc fptr' ptr') = M334.QSurfaceConstGc fptr' $ castQOpenGLWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'++instance M334.QSurfacePtr QOpenGLWindow where+  toQSurface (QOpenGLWindow ptr') = M334.QSurface $ (HoppyF.castPtr :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr M334.QSurface) $ castQOpenGLWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'+  toQSurface (QOpenGLWindowGc fptr' ptr') = M334.QSurfaceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr M334.QSurface) $ castQOpenGLWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'++instance M304.QPaintDeviceConstPtr QOpenGLWindow where+  toQPaintDeviceConst (QOpenGLWindow ptr') = M304.QPaintDeviceConst $ castQOpenGLWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'+  toQPaintDeviceConst (QOpenGLWindowGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQOpenGLWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'++instance M304.QPaintDevicePtr QOpenGLWindow where+  toQPaintDevice (QOpenGLWindow ptr') = M304.QPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQOpenGLWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'+  toQPaintDevice (QOpenGLWindowGc fptr' ptr') = M304.QPaintDeviceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQOpenGLWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QOpenGLWindow -> HoppyF.Ptr QOpenGLWindowConst) ptr'++new :: (HoppyP.IO QOpenGLWindow)+new =+  HoppyP.fmap QOpenGLWindow+  (new')++newWithUpdateBehavior :: (QOpenGLWindowUpdateBehavior) -> (HoppyP.IO QOpenGLWindow)+newWithUpdateBehavior arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QOpenGLWindow+  (newWithUpdateBehavior' arg'1')++newWithUpdateBehaviorAndParent :: (M342.QWindowPtr arg'2) => (QOpenGLWindowUpdateBehavior) -> (arg'2) -> (HoppyP.IO QOpenGLWindow)+newWithUpdateBehaviorAndParent arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyFHR.withCppPtr (M342.toQWindow arg'2) $ \arg'2' ->+  HoppyP.fmap QOpenGLWindow+  (newWithUpdateBehaviorAndParent' arg'1' arg'2')++class QOpenGLWindowSuper a where+  downToQOpenGLWindow :: a -> QOpenGLWindow++instance QOpenGLWindowSuper M306.QPaintDeviceWindow where+  downToQOpenGLWindow = castQOpenGLWindowToNonconst . cast' . M306.castQPaintDeviceWindowToConst+    where+      cast' (M306.QPaintDeviceWindowConst ptr') = QOpenGLWindowConst $ castQPaintDeviceWindowToQOpenGLWindow ptr'+      cast' (M306.QPaintDeviceWindowConstGc fptr' ptr') = QOpenGLWindowConstGc fptr' $ castQPaintDeviceWindowToQOpenGLWindow ptr'+instance QOpenGLWindowSuper M342.QWindow where+  downToQOpenGLWindow = castQOpenGLWindowToNonconst . cast' . M342.castQWindowToConst+    where+      cast' (M342.QWindowConst ptr') = QOpenGLWindowConst $ castQWindowToQOpenGLWindow ptr'+      cast' (M342.QWindowConstGc fptr' ptr') = QOpenGLWindowConstGc fptr' $ castQWindowToQOpenGLWindow ptr'+instance QOpenGLWindowSuper M94.QObject where+  downToQOpenGLWindow = castQOpenGLWindowToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QOpenGLWindowConst $ castQObjectToQOpenGLWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QOpenGLWindowConstGc fptr' $ castQObjectToQOpenGLWindow ptr'+instance QOpenGLWindowSuper M334.QSurface where+  downToQOpenGLWindow = castQOpenGLWindowToNonconst . cast' . M334.castQSurfaceToConst+    where+      cast' (M334.QSurfaceConst ptr') = QOpenGLWindowConst $ castQSurfaceToQOpenGLWindow ptr'+      cast' (M334.QSurfaceConstGc fptr' ptr') = QOpenGLWindowConstGc fptr' $ castQSurfaceToQOpenGLWindow ptr'+instance QOpenGLWindowSuper M304.QPaintDevice where+  downToQOpenGLWindow = castQOpenGLWindowToNonconst . cast' . M304.castQPaintDeviceToConst+    where+      cast' (M304.QPaintDeviceConst ptr') = QOpenGLWindowConst $ castQPaintDeviceToQOpenGLWindow ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QOpenGLWindowConstGc fptr' $ castQPaintDeviceToQOpenGLWindow ptr'++class QOpenGLWindowSuperConst a where+  downToQOpenGLWindowConst :: a -> QOpenGLWindowConst++instance QOpenGLWindowSuperConst M306.QPaintDeviceWindowConst where+  downToQOpenGLWindowConst = cast'+    where+      cast' (M306.QPaintDeviceWindowConst ptr') = QOpenGLWindowConst $ castQPaintDeviceWindowToQOpenGLWindow ptr'+      cast' (M306.QPaintDeviceWindowConstGc fptr' ptr') = QOpenGLWindowConstGc fptr' $ castQPaintDeviceWindowToQOpenGLWindow ptr'+instance QOpenGLWindowSuperConst M342.QWindowConst where+  downToQOpenGLWindowConst = cast'+    where+      cast' (M342.QWindowConst ptr') = QOpenGLWindowConst $ castQWindowToQOpenGLWindow ptr'+      cast' (M342.QWindowConstGc fptr' ptr') = QOpenGLWindowConstGc fptr' $ castQWindowToQOpenGLWindow ptr'+instance QOpenGLWindowSuperConst M94.QObjectConst where+  downToQOpenGLWindowConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QOpenGLWindowConst $ castQObjectToQOpenGLWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QOpenGLWindowConstGc fptr' $ castQObjectToQOpenGLWindow ptr'+instance QOpenGLWindowSuperConst M334.QSurfaceConst where+  downToQOpenGLWindowConst = cast'+    where+      cast' (M334.QSurfaceConst ptr') = QOpenGLWindowConst $ castQSurfaceToQOpenGLWindow ptr'+      cast' (M334.QSurfaceConstGc fptr' ptr') = QOpenGLWindowConstGc fptr' $ castQSurfaceToQOpenGLWindow ptr'+instance QOpenGLWindowSuperConst M304.QPaintDeviceConst where+  downToQOpenGLWindowConst = cast'+    where+      cast' (M304.QPaintDeviceConst ptr') = QOpenGLWindowConst $ castQPaintDeviceToQOpenGLWindow ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QOpenGLWindowConstGc fptr' $ castQPaintDeviceToQOpenGLWindow ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QOpenGLWindow)) QOpenGLWindow where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QOpenGLWindow)) QOpenGLWindow where+  decode = HoppyP.fmap QOpenGLWindow . HoppyF.peek++data QOpenGLWindowUpdateBehavior =+  NoPartialUpdate+  | PartialUpdateBlit+  | PartialUpdateBlend+  | UnknownQOpenGlWindowUpdateBehavior (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QOpenGLWindowUpdateBehavior where+  fromCppEnum NoPartialUpdate = 0+  fromCppEnum PartialUpdateBlit = 1+  fromCppEnum PartialUpdateBlend = 2+  fromCppEnum (UnknownQOpenGlWindowUpdateBehavior n) = n+  +  toCppEnum (0) = NoPartialUpdate+  toCppEnum (1) = PartialUpdateBlit+  toCppEnum (2) = PartialUpdateBlend+  toCppEnum n = UnknownQOpenGlWindowUpdateBehavior n++instance HoppyP.Eq QOpenGLWindowUpdateBehavior where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QOpenGLWindowUpdateBehavior where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Gui/QPaintDevice.hs view
@@ -0,0 +1,309 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QPaintDevice (+  QPaintDeviceValue (..),+  QPaintDeviceConstPtr (..),+  colorCount,+  depth,+  devicePixelRatio,+  devicePixelRatioF,+  height,+  heightMM,+  logicalDpiX,+  logicalDpiY,+  paintingActive,+  physicalDpiX,+  physicalDpiY,+  width,+  widthMM,+  QPaintDevicePtr (..),+  QPaintDeviceConst (..),+  castQPaintDeviceToConst,+  QPaintDevice (..),+  castQPaintDeviceToNonconst,+  QPaintDeviceSuper (..),+  QPaintDeviceSuperConst (..),+  QPaintDevicePaintDeviceMetric (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import Prelude (($), (.), (/=), (=<<), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QPaintDevice_colorCount" colorCount' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPaintDevice_depth" depth' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPaintDevice_devicePixelRatio" devicePixelRatio' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPaintDevice_devicePixelRatioF" devicePixelRatioF' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QPaintDevice_height" height' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPaintDevice_heightMM" heightMM' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPaintDevice_logicalDpiX" logicalDpiX' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPaintDevice_logicalDpiY" logicalDpiY' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPaintDevice_paintingActive" paintingActive' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPaintDevice_physicalDpiX" physicalDpiX' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPaintDevice_physicalDpiY" physicalDpiY' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPaintDevice_width" width' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPaintDevice_widthMM" widthMM' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "gendel__QPaintDevice" delete'QPaintDevice :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPaintDevice" deletePtr'QPaintDevice :: HoppyF.FunPtr (HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO ())++class QPaintDeviceValue a where+  withQPaintDevicePtr :: a -> (QPaintDeviceConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPaintDeviceConstPtr a => QPaintDeviceValue a where+  withQPaintDevicePtr = HoppyP.flip ($) . toQPaintDeviceConst++class (HoppyFHR.CppPtr this) => QPaintDeviceConstPtr this where+  toQPaintDeviceConst :: this -> QPaintDeviceConst++colorCount :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+colorCount arg'1 =+  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (colorCount' arg'1')++depth :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+depth arg'1 =+  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (depth' arg'1')++devicePixelRatio :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+devicePixelRatio arg'1 =+  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (devicePixelRatio' arg'1')++devicePixelRatioF :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+devicePixelRatioF arg'1 =+  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (devicePixelRatioF' arg'1')++height :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+height arg'1 =+  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (height' arg'1')++heightMM :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+heightMM arg'1 =+  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (heightMM' arg'1')++logicalDpiX :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+logicalDpiX arg'1 =+  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (logicalDpiX' arg'1')++logicalDpiY :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+logicalDpiY arg'1 =+  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (logicalDpiY' arg'1')++paintingActive :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+paintingActive arg'1 =+  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (paintingActive' arg'1')++physicalDpiX :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+physicalDpiX arg'1 =+  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (physicalDpiX' arg'1')++physicalDpiY :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+physicalDpiY arg'1 =+  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (physicalDpiY' arg'1')++width :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+width arg'1 =+  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (width' arg'1')++widthMM :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+widthMM arg'1 =+  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (widthMM' arg'1')++class (QPaintDeviceConstPtr this) => QPaintDevicePtr this where+  toQPaintDevice :: this -> QPaintDevice++data QPaintDeviceConst =+    QPaintDeviceConst (HoppyF.Ptr QPaintDeviceConst)+  | QPaintDeviceConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPaintDeviceConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPaintDeviceConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPaintDeviceConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPaintDeviceToConst :: QPaintDevice -> QPaintDeviceConst+castQPaintDeviceToConst (QPaintDevice ptr') = QPaintDeviceConst $ HoppyF.castPtr ptr'+castQPaintDeviceToConst (QPaintDeviceGc fptr' ptr') = QPaintDeviceConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPaintDeviceConst where+  nullptr = QPaintDeviceConst HoppyF.nullPtr+  +  withCppPtr (QPaintDeviceConst ptr') f' = f' ptr'+  withCppPtr (QPaintDeviceConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPaintDeviceConst ptr') = ptr'+  toPtr (QPaintDeviceConstGc _ ptr') = ptr'+  +  touchCppPtr (QPaintDeviceConst _) = HoppyP.return ()+  touchCppPtr (QPaintDeviceConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPaintDeviceConst where+  delete (QPaintDeviceConst ptr') = delete'QPaintDevice ptr'+  delete (QPaintDeviceConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPaintDeviceConst", " object."]+  +  toGc this'@(QPaintDeviceConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPaintDeviceConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPaintDevice :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPaintDeviceConstGc {}) = HoppyP.return this'++instance QPaintDeviceConstPtr QPaintDeviceConst where+  toQPaintDeviceConst = HoppyP.id++data QPaintDevice =+    QPaintDevice (HoppyF.Ptr QPaintDevice)+  | QPaintDeviceGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPaintDevice)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPaintDevice where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPaintDevice where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPaintDeviceToNonconst :: QPaintDeviceConst -> QPaintDevice+castQPaintDeviceToNonconst (QPaintDeviceConst ptr') = QPaintDevice $ HoppyF.castPtr ptr'+castQPaintDeviceToNonconst (QPaintDeviceConstGc fptr' ptr') = QPaintDeviceGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPaintDevice where+  nullptr = QPaintDevice HoppyF.nullPtr+  +  withCppPtr (QPaintDevice ptr') f' = f' ptr'+  withCppPtr (QPaintDeviceGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPaintDevice ptr') = ptr'+  toPtr (QPaintDeviceGc _ ptr') = ptr'+  +  touchCppPtr (QPaintDevice _) = HoppyP.return ()+  touchCppPtr (QPaintDeviceGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPaintDevice where+  delete (QPaintDevice ptr') = delete'QPaintDevice $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPaintDeviceConst)+  delete (QPaintDeviceGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPaintDevice", " object."]+  +  toGc this'@(QPaintDevice ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPaintDeviceGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPaintDevice :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPaintDeviceGc {}) = HoppyP.return this'++instance QPaintDeviceConstPtr QPaintDevice where+  toQPaintDeviceConst (QPaintDevice ptr') = QPaintDeviceConst $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDevice -> HoppyF.Ptr QPaintDeviceConst) ptr'+  toQPaintDeviceConst (QPaintDeviceGc fptr' ptr') = QPaintDeviceConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDevice -> HoppyF.Ptr QPaintDeviceConst) ptr'++instance QPaintDevicePtr QPaintDevice where+  toQPaintDevice = HoppyP.id++class QPaintDeviceSuper a where+  downToQPaintDevice :: a -> QPaintDevice+++class QPaintDeviceSuperConst a where+  downToQPaintDeviceConst :: a -> QPaintDeviceConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPaintDevice)) QPaintDevice where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPaintDevice)) QPaintDevice where+  decode = HoppyP.fmap QPaintDevice . HoppyF.peek++data QPaintDevicePaintDeviceMetric =+  PdmWidth+  | PdmHeight+  | PdmWidthMm+  | PdmHeightMm+  | PdmNumColors+  | PdmDepth+  | PdmDpiX+  | PdmDpiY+  | PdmPhysicalDpiX+  | PdmPhysicalDpiY+  | PdmDevicePixelRatio+  | PdmDevicePixelRatioScaled+  | UnknownQPaintDevicePaintDeviceMetric (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QPaintDevicePaintDeviceMetric where+  fromCppEnum PdmWidth = 1+  fromCppEnum PdmHeight = 2+  fromCppEnum PdmWidthMm = 3+  fromCppEnum PdmHeightMm = 4+  fromCppEnum PdmNumColors = 5+  fromCppEnum PdmDepth = 6+  fromCppEnum PdmDpiX = 7+  fromCppEnum PdmDpiY = 8+  fromCppEnum PdmPhysicalDpiX = 9+  fromCppEnum PdmPhysicalDpiY = 10+  fromCppEnum PdmDevicePixelRatio = 11+  fromCppEnum PdmDevicePixelRatioScaled = 12+  fromCppEnum (UnknownQPaintDevicePaintDeviceMetric n) = n+  +  toCppEnum (1) = PdmWidth+  toCppEnum (2) = PdmHeight+  toCppEnum (3) = PdmWidthMm+  toCppEnum (4) = PdmHeightMm+  toCppEnum (5) = PdmNumColors+  toCppEnum (6) = PdmDepth+  toCppEnum (7) = PdmDpiX+  toCppEnum (8) = PdmDpiY+  toCppEnum (9) = PdmPhysicalDpiX+  toCppEnum (10) = PdmPhysicalDpiY+  toCppEnum (11) = PdmDevicePixelRatio+  toCppEnum (12) = PdmDevicePixelRatioScaled+  toCppEnum n = UnknownQPaintDevicePaintDeviceMetric n++instance HoppyP.Eq QPaintDevicePaintDeviceMetric where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QPaintDevicePaintDeviceMetric where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Gui/QPaintDeviceWindow.hs view
@@ -0,0 +1,259 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QPaintDeviceWindow (+  castQPaintDeviceWindowToQWindow,+  castQWindowToQPaintDeviceWindow,+  castQPaintDeviceWindowToQObject,+  castQObjectToQPaintDeviceWindow,+  castQPaintDeviceWindowToQSurface,+  castQSurfaceToQPaintDeviceWindow,+  castQPaintDeviceWindowToQPaintDevice,+  castQPaintDeviceToQPaintDeviceWindow,+  QPaintDeviceWindowValue (..),+  QPaintDeviceWindowConstPtr (..),+  QPaintDeviceWindowPtr (..),+  update,+  updateRect,+  updateRegion,+  QPaintDeviceWindowConst (..),+  castQPaintDeviceWindowToConst,+  QPaintDeviceWindow (..),+  castQPaintDeviceWindowToNonconst,+  QPaintDeviceWindowSuper (..),+  QPaintDeviceWindowSuperConst (..),+  ) 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.Core.QRect as M122+import qualified Graphics.UI.Qtah.Generated.Gui.QPaintDevice as M304+import qualified Graphics.UI.Qtah.Generated.Gui.QRegion as M324+import qualified Graphics.UI.Qtah.Generated.Gui.QSurface as M334+import qualified Graphics.UI.Qtah.Generated.Gui.QWindow as M342+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QPaintDeviceWindow_update" update' ::  HoppyF.Ptr QPaintDeviceWindow -> HoppyP.IO ()+foreign import ccall "genpop__QPaintDeviceWindow_updateRect" updateRect' ::  HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO ()+foreign import ccall "genpop__QPaintDeviceWindow_updateRegion" updateRegion' ::  HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr M324.QRegionConst -> HoppyP.IO ()+foreign import ccall "gencast__QPaintDeviceWindow__QWindow" castQPaintDeviceWindowToQWindow :: HoppyF.Ptr QPaintDeviceWindowConst -> HoppyF.Ptr M342.QWindowConst+foreign import ccall "gencast__QWindow__QPaintDeviceWindow" castQWindowToQPaintDeviceWindow :: HoppyF.Ptr M342.QWindowConst -> HoppyF.Ptr QPaintDeviceWindowConst+foreign import ccall "gencast__QPaintDeviceWindow__QObject" castQPaintDeviceWindowToQObject :: HoppyF.Ptr QPaintDeviceWindowConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QPaintDeviceWindow" castQObjectToQPaintDeviceWindow :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QPaintDeviceWindowConst+foreign import ccall "gencast__QPaintDeviceWindow__QSurface" castQPaintDeviceWindowToQSurface :: HoppyF.Ptr QPaintDeviceWindowConst -> HoppyF.Ptr M334.QSurfaceConst+foreign import ccall "gencast__QSurface__QPaintDeviceWindow" castQSurfaceToQPaintDeviceWindow :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr QPaintDeviceWindowConst+foreign import ccall "gencast__QPaintDeviceWindow__QPaintDevice" castQPaintDeviceWindowToQPaintDevice :: HoppyF.Ptr QPaintDeviceWindowConst -> HoppyF.Ptr M304.QPaintDeviceConst+foreign import ccall "gencast__QPaintDevice__QPaintDeviceWindow" castQPaintDeviceToQPaintDeviceWindow :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr QPaintDeviceWindowConst+foreign import ccall "gendel__QPaintDeviceWindow" delete'QPaintDeviceWindow :: HoppyF.Ptr QPaintDeviceWindowConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPaintDeviceWindow" deletePtr'QPaintDeviceWindow :: HoppyF.FunPtr (HoppyF.Ptr QPaintDeviceWindowConst -> HoppyP.IO ())++class QPaintDeviceWindowValue a where+  withQPaintDeviceWindowPtr :: a -> (QPaintDeviceWindowConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPaintDeviceWindowConstPtr a => QPaintDeviceWindowValue a where+  withQPaintDeviceWindowPtr = HoppyP.flip ($) . toQPaintDeviceWindowConst++class (M342.QWindowConstPtr this, M304.QPaintDeviceConstPtr this) => QPaintDeviceWindowConstPtr this where+  toQPaintDeviceWindowConst :: this -> QPaintDeviceWindowConst++class (QPaintDeviceWindowConstPtr this, M342.QWindowPtr this, M304.QPaintDevicePtr this) => QPaintDeviceWindowPtr this where+  toQPaintDeviceWindow :: this -> QPaintDeviceWindow++update :: (QPaintDeviceWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+update arg'1 =+  HoppyFHR.withCppPtr (toQPaintDeviceWindow arg'1) $ \arg'1' ->+  (update' arg'1')++updateRect :: (QPaintDeviceWindowPtr this, M122.QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+updateRect arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPaintDeviceWindow arg'1) $ \arg'1' ->+  M122.withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (updateRect' arg'1' arg'2')++updateRegion :: (QPaintDeviceWindowPtr this, M324.QRegionValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+updateRegion arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPaintDeviceWindow arg'1) $ \arg'1' ->+  M324.withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (updateRegion' arg'1' arg'2')++data QPaintDeviceWindowConst =+    QPaintDeviceWindowConst (HoppyF.Ptr QPaintDeviceWindowConst)+  | QPaintDeviceWindowConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPaintDeviceWindowConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPaintDeviceWindowConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPaintDeviceWindowConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPaintDeviceWindowToConst :: QPaintDeviceWindow -> QPaintDeviceWindowConst+castQPaintDeviceWindowToConst (QPaintDeviceWindow ptr') = QPaintDeviceWindowConst $ HoppyF.castPtr ptr'+castQPaintDeviceWindowToConst (QPaintDeviceWindowGc fptr' ptr') = QPaintDeviceWindowConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPaintDeviceWindowConst where+  nullptr = QPaintDeviceWindowConst HoppyF.nullPtr+  +  withCppPtr (QPaintDeviceWindowConst ptr') f' = f' ptr'+  withCppPtr (QPaintDeviceWindowConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPaintDeviceWindowConst ptr') = ptr'+  toPtr (QPaintDeviceWindowConstGc _ ptr') = ptr'+  +  touchCppPtr (QPaintDeviceWindowConst _) = HoppyP.return ()+  touchCppPtr (QPaintDeviceWindowConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPaintDeviceWindowConst where+  delete (QPaintDeviceWindowConst ptr') = delete'QPaintDeviceWindow ptr'+  delete (QPaintDeviceWindowConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPaintDeviceWindowConst", " object."]+  +  toGc this'@(QPaintDeviceWindowConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPaintDeviceWindowConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPaintDeviceWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPaintDeviceWindowConstGc {}) = HoppyP.return this'++instance QPaintDeviceWindowConstPtr QPaintDeviceWindowConst where+  toQPaintDeviceWindowConst = HoppyP.id++instance M342.QWindowConstPtr QPaintDeviceWindowConst where+  toQWindowConst (QPaintDeviceWindowConst ptr') = M342.QWindowConst $ castQPaintDeviceWindowToQWindow ptr'+  toQWindowConst (QPaintDeviceWindowConstGc fptr' ptr') = M342.QWindowConstGc fptr' $ castQPaintDeviceWindowToQWindow ptr'++instance M94.QObjectConstPtr QPaintDeviceWindowConst where+  toQObjectConst (QPaintDeviceWindowConst ptr') = M94.QObjectConst $ castQPaintDeviceWindowToQObject ptr'+  toQObjectConst (QPaintDeviceWindowConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQPaintDeviceWindowToQObject ptr'++instance M334.QSurfaceConstPtr QPaintDeviceWindowConst where+  toQSurfaceConst (QPaintDeviceWindowConst ptr') = M334.QSurfaceConst $ castQPaintDeviceWindowToQSurface ptr'+  toQSurfaceConst (QPaintDeviceWindowConstGc fptr' ptr') = M334.QSurfaceConstGc fptr' $ castQPaintDeviceWindowToQSurface ptr'++instance M304.QPaintDeviceConstPtr QPaintDeviceWindowConst where+  toQPaintDeviceConst (QPaintDeviceWindowConst ptr') = M304.QPaintDeviceConst $ castQPaintDeviceWindowToQPaintDevice ptr'+  toQPaintDeviceConst (QPaintDeviceWindowConstGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQPaintDeviceWindowToQPaintDevice ptr'++data QPaintDeviceWindow =+    QPaintDeviceWindow (HoppyF.Ptr QPaintDeviceWindow)+  | QPaintDeviceWindowGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPaintDeviceWindow)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPaintDeviceWindow where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPaintDeviceWindow where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPaintDeviceWindowToNonconst :: QPaintDeviceWindowConst -> QPaintDeviceWindow+castQPaintDeviceWindowToNonconst (QPaintDeviceWindowConst ptr') = QPaintDeviceWindow $ HoppyF.castPtr ptr'+castQPaintDeviceWindowToNonconst (QPaintDeviceWindowConstGc fptr' ptr') = QPaintDeviceWindowGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPaintDeviceWindow where+  nullptr = QPaintDeviceWindow HoppyF.nullPtr+  +  withCppPtr (QPaintDeviceWindow ptr') f' = f' ptr'+  withCppPtr (QPaintDeviceWindowGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPaintDeviceWindow ptr') = ptr'+  toPtr (QPaintDeviceWindowGc _ ptr') = ptr'+  +  touchCppPtr (QPaintDeviceWindow _) = HoppyP.return ()+  touchCppPtr (QPaintDeviceWindowGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPaintDeviceWindow where+  delete (QPaintDeviceWindow ptr') = delete'QPaintDeviceWindow $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPaintDeviceWindowConst)+  delete (QPaintDeviceWindowGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPaintDeviceWindow", " object."]+  +  toGc this'@(QPaintDeviceWindow ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPaintDeviceWindowGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPaintDeviceWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPaintDeviceWindowGc {}) = HoppyP.return this'++instance QPaintDeviceWindowConstPtr QPaintDeviceWindow where+  toQPaintDeviceWindowConst (QPaintDeviceWindow ptr') = QPaintDeviceWindowConst $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'+  toQPaintDeviceWindowConst (QPaintDeviceWindowGc fptr' ptr') = QPaintDeviceWindowConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'++instance QPaintDeviceWindowPtr QPaintDeviceWindow where+  toQPaintDeviceWindow = HoppyP.id++instance M342.QWindowConstPtr QPaintDeviceWindow where+  toQWindowConst (QPaintDeviceWindow ptr') = M342.QWindowConst $ castQPaintDeviceWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'+  toQWindowConst (QPaintDeviceWindowGc fptr' ptr') = M342.QWindowConstGc fptr' $ castQPaintDeviceWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'++instance M342.QWindowPtr QPaintDeviceWindow where+  toQWindow (QPaintDeviceWindow ptr') = M342.QWindow $ (HoppyF.castPtr :: HoppyF.Ptr M342.QWindowConst -> HoppyF.Ptr M342.QWindow) $ castQPaintDeviceWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'+  toQWindow (QPaintDeviceWindowGc fptr' ptr') = M342.QWindowGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M342.QWindowConst -> HoppyF.Ptr M342.QWindow) $ castQPaintDeviceWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'++instance M94.QObjectConstPtr QPaintDeviceWindow where+  toQObjectConst (QPaintDeviceWindow ptr') = M94.QObjectConst $ castQPaintDeviceWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'+  toQObjectConst (QPaintDeviceWindowGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQPaintDeviceWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'++instance M94.QObjectPtr QPaintDeviceWindow where+  toQObject (QPaintDeviceWindow ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQPaintDeviceWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'+  toQObject (QPaintDeviceWindowGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQPaintDeviceWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'++instance M334.QSurfaceConstPtr QPaintDeviceWindow where+  toQSurfaceConst (QPaintDeviceWindow ptr') = M334.QSurfaceConst $ castQPaintDeviceWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'+  toQSurfaceConst (QPaintDeviceWindowGc fptr' ptr') = M334.QSurfaceConstGc fptr' $ castQPaintDeviceWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'++instance M334.QSurfacePtr QPaintDeviceWindow where+  toQSurface (QPaintDeviceWindow ptr') = M334.QSurface $ (HoppyF.castPtr :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr M334.QSurface) $ castQPaintDeviceWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'+  toQSurface (QPaintDeviceWindowGc fptr' ptr') = M334.QSurfaceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr M334.QSurface) $ castQPaintDeviceWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'++instance M304.QPaintDeviceConstPtr QPaintDeviceWindow where+  toQPaintDeviceConst (QPaintDeviceWindow ptr') = M304.QPaintDeviceConst $ castQPaintDeviceWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'+  toQPaintDeviceConst (QPaintDeviceWindowGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQPaintDeviceWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'++instance M304.QPaintDevicePtr QPaintDeviceWindow where+  toQPaintDevice (QPaintDeviceWindow ptr') = M304.QPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQPaintDeviceWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'+  toQPaintDevice (QPaintDeviceWindowGc fptr' ptr') = M304.QPaintDeviceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQPaintDeviceWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDeviceWindow -> HoppyF.Ptr QPaintDeviceWindowConst) ptr'++class QPaintDeviceWindowSuper a where+  downToQPaintDeviceWindow :: a -> QPaintDeviceWindow++instance QPaintDeviceWindowSuper M342.QWindow where+  downToQPaintDeviceWindow = castQPaintDeviceWindowToNonconst . cast' . M342.castQWindowToConst+    where+      cast' (M342.QWindowConst ptr') = QPaintDeviceWindowConst $ castQWindowToQPaintDeviceWindow ptr'+      cast' (M342.QWindowConstGc fptr' ptr') = QPaintDeviceWindowConstGc fptr' $ castQWindowToQPaintDeviceWindow ptr'+instance QPaintDeviceWindowSuper M94.QObject where+  downToQPaintDeviceWindow = castQPaintDeviceWindowToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QPaintDeviceWindowConst $ castQObjectToQPaintDeviceWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QPaintDeviceWindowConstGc fptr' $ castQObjectToQPaintDeviceWindow ptr'+instance QPaintDeviceWindowSuper M334.QSurface where+  downToQPaintDeviceWindow = castQPaintDeviceWindowToNonconst . cast' . M334.castQSurfaceToConst+    where+      cast' (M334.QSurfaceConst ptr') = QPaintDeviceWindowConst $ castQSurfaceToQPaintDeviceWindow ptr'+      cast' (M334.QSurfaceConstGc fptr' ptr') = QPaintDeviceWindowConstGc fptr' $ castQSurfaceToQPaintDeviceWindow ptr'+instance QPaintDeviceWindowSuper M304.QPaintDevice where+  downToQPaintDeviceWindow = castQPaintDeviceWindowToNonconst . cast' . M304.castQPaintDeviceToConst+    where+      cast' (M304.QPaintDeviceConst ptr') = QPaintDeviceWindowConst $ castQPaintDeviceToQPaintDeviceWindow ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QPaintDeviceWindowConstGc fptr' $ castQPaintDeviceToQPaintDeviceWindow ptr'++class QPaintDeviceWindowSuperConst a where+  downToQPaintDeviceWindowConst :: a -> QPaintDeviceWindowConst++instance QPaintDeviceWindowSuperConst M342.QWindowConst where+  downToQPaintDeviceWindowConst = cast'+    where+      cast' (M342.QWindowConst ptr') = QPaintDeviceWindowConst $ castQWindowToQPaintDeviceWindow ptr'+      cast' (M342.QWindowConstGc fptr' ptr') = QPaintDeviceWindowConstGc fptr' $ castQWindowToQPaintDeviceWindow ptr'+instance QPaintDeviceWindowSuperConst M94.QObjectConst where+  downToQPaintDeviceWindowConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QPaintDeviceWindowConst $ castQObjectToQPaintDeviceWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QPaintDeviceWindowConstGc fptr' $ castQObjectToQPaintDeviceWindow ptr'+instance QPaintDeviceWindowSuperConst M334.QSurfaceConst where+  downToQPaintDeviceWindowConst = cast'+    where+      cast' (M334.QSurfaceConst ptr') = QPaintDeviceWindowConst $ castQSurfaceToQPaintDeviceWindow ptr'+      cast' (M334.QSurfaceConstGc fptr' ptr') = QPaintDeviceWindowConstGc fptr' $ castQSurfaceToQPaintDeviceWindow ptr'+instance QPaintDeviceWindowSuperConst M304.QPaintDeviceConst where+  downToQPaintDeviceWindowConst = cast'+    where+      cast' (M304.QPaintDeviceConst ptr') = QPaintDeviceWindowConst $ castQPaintDeviceToQPaintDeviceWindow ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QPaintDeviceWindowConstGc fptr' $ castQPaintDeviceToQPaintDeviceWindow ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPaintDeviceWindow)) QPaintDeviceWindow where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPaintDeviceWindow)) QPaintDeviceWindow where+  decode = HoppyP.fmap QPaintDeviceWindow . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QPaintEvent.hs view
@@ -0,0 +1,187 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QPaintEvent (+  castQPaintEventToQEvent,+  castQEventToQPaintEvent,+  QPaintEventValue (..),+  QPaintEventConstPtr (..),+  rect,+  region,+  QPaintEventPtr (..),+  QPaintEventConst (..),+  castQPaintEventToConst,+  QPaintEvent (..),+  castQPaintEventToNonconst,+  newWithRect,+  newWithRegion,+  QPaintEventSuper (..),+  QPaintEventSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QRect as M122+import qualified Graphics.UI.Qtah.Generated.Gui.QRegion as M324+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QPaintEvent_newWithRect" newWithRect' ::  HoppyF.Ptr M122.QRectConst -> HoppyP.IO (HoppyF.Ptr QPaintEvent)+foreign import ccall "genpop__QPaintEvent_newWithRegion" newWithRegion' ::  HoppyF.Ptr M324.QRegionConst -> HoppyP.IO (HoppyF.Ptr QPaintEvent)+foreign import ccall "genpop__QPaintEvent_rect" rect' ::  HoppyF.Ptr QPaintEventConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QPaintEvent_region" region' ::  HoppyF.Ptr QPaintEventConst -> HoppyP.IO (HoppyF.Ptr M324.QRegionConst)+foreign import ccall "gencast__QPaintEvent__QEvent" castQPaintEventToQEvent :: HoppyF.Ptr QPaintEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QPaintEvent" castQEventToQPaintEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QPaintEventConst+foreign import ccall "gendel__QPaintEvent" delete'QPaintEvent :: HoppyF.Ptr QPaintEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPaintEvent" deletePtr'QPaintEvent :: HoppyF.FunPtr (HoppyF.Ptr QPaintEventConst -> HoppyP.IO ())++class QPaintEventValue a where+  withQPaintEventPtr :: a -> (QPaintEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPaintEventConstPtr a => QPaintEventValue a where+  withQPaintEventPtr = HoppyP.flip ($) . toQPaintEventConst++class (M34.QEventConstPtr this) => QPaintEventConstPtr this where+  toQPaintEventConst :: this -> QPaintEventConst++rect :: (QPaintEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M122.QRectConst)+rect arg'1 =+  withQPaintEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M122.QRectConst+  (rect' arg'1')++region :: (QPaintEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M324.QRegionConst)+region arg'1 =+  withQPaintEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M324.QRegionConst+  (region' arg'1')++class (QPaintEventConstPtr this, M34.QEventPtr this) => QPaintEventPtr this where+  toQPaintEvent :: this -> QPaintEvent++data QPaintEventConst =+    QPaintEventConst (HoppyF.Ptr QPaintEventConst)+  | QPaintEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPaintEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPaintEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPaintEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPaintEventToConst :: QPaintEvent -> QPaintEventConst+castQPaintEventToConst (QPaintEvent ptr') = QPaintEventConst $ HoppyF.castPtr ptr'+castQPaintEventToConst (QPaintEventGc fptr' ptr') = QPaintEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPaintEventConst where+  nullptr = QPaintEventConst HoppyF.nullPtr+  +  withCppPtr (QPaintEventConst ptr') f' = f' ptr'+  withCppPtr (QPaintEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPaintEventConst ptr') = ptr'+  toPtr (QPaintEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QPaintEventConst _) = HoppyP.return ()+  touchCppPtr (QPaintEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPaintEventConst where+  delete (QPaintEventConst ptr') = delete'QPaintEvent ptr'+  delete (QPaintEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPaintEventConst", " object."]+  +  toGc this'@(QPaintEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPaintEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPaintEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPaintEventConstGc {}) = HoppyP.return this'++instance QPaintEventConstPtr QPaintEventConst where+  toQPaintEventConst = HoppyP.id++instance M34.QEventConstPtr QPaintEventConst where+  toQEventConst (QPaintEventConst ptr') = M34.QEventConst $ castQPaintEventToQEvent ptr'+  toQEventConst (QPaintEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQPaintEventToQEvent ptr'++data QPaintEvent =+    QPaintEvent (HoppyF.Ptr QPaintEvent)+  | QPaintEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPaintEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPaintEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPaintEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPaintEventToNonconst :: QPaintEventConst -> QPaintEvent+castQPaintEventToNonconst (QPaintEventConst ptr') = QPaintEvent $ HoppyF.castPtr ptr'+castQPaintEventToNonconst (QPaintEventConstGc fptr' ptr') = QPaintEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPaintEvent where+  nullptr = QPaintEvent HoppyF.nullPtr+  +  withCppPtr (QPaintEvent ptr') f' = f' ptr'+  withCppPtr (QPaintEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPaintEvent ptr') = ptr'+  toPtr (QPaintEventGc _ ptr') = ptr'+  +  touchCppPtr (QPaintEvent _) = HoppyP.return ()+  touchCppPtr (QPaintEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPaintEvent where+  delete (QPaintEvent ptr') = delete'QPaintEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPaintEventConst)+  delete (QPaintEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPaintEvent", " object."]+  +  toGc this'@(QPaintEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPaintEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPaintEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPaintEventGc {}) = HoppyP.return this'++instance QPaintEventConstPtr QPaintEvent where+  toQPaintEventConst (QPaintEvent ptr') = QPaintEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QPaintEvent -> HoppyF.Ptr QPaintEventConst) ptr'+  toQPaintEventConst (QPaintEventGc fptr' ptr') = QPaintEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPaintEvent -> HoppyF.Ptr QPaintEventConst) ptr'++instance QPaintEventPtr QPaintEvent where+  toQPaintEvent = HoppyP.id++instance M34.QEventConstPtr QPaintEvent where+  toQEventConst (QPaintEvent ptr') = M34.QEventConst $ castQPaintEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QPaintEvent -> HoppyF.Ptr QPaintEventConst) ptr'+  toQEventConst (QPaintEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQPaintEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QPaintEvent -> HoppyF.Ptr QPaintEventConst) ptr'++instance M34.QEventPtr QPaintEvent where+  toQEvent (QPaintEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQPaintEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QPaintEvent -> HoppyF.Ptr QPaintEventConst) ptr'+  toQEvent (QPaintEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQPaintEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QPaintEvent -> HoppyF.Ptr QPaintEventConst) ptr'++newWithRect :: (M122.QRectValue arg'1) => (arg'1) -> (HoppyP.IO QPaintEvent)+newWithRect arg'1 =+  M122.withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPaintEvent+  (newWithRect' arg'1')++newWithRegion :: (M324.QRegionValue arg'1) => (arg'1) -> (HoppyP.IO QPaintEvent)+newWithRegion arg'1 =+  M324.withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPaintEvent+  (newWithRegion' arg'1')++class QPaintEventSuper a where+  downToQPaintEvent :: a -> QPaintEvent++instance QPaintEventSuper M34.QEvent where+  downToQPaintEvent = castQPaintEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QPaintEventConst $ castQEventToQPaintEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QPaintEventConstGc fptr' $ castQEventToQPaintEvent ptr'++class QPaintEventSuperConst a where+  downToQPaintEventConst :: a -> QPaintEventConst++instance QPaintEventSuperConst M34.QEventConst where+  downToQPaintEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QPaintEventConst $ castQEventToQPaintEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QPaintEventConstGc fptr' $ castQEventToQPaintEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPaintEvent)) QPaintEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPaintEvent)) QPaintEvent where+  decode = HoppyP.fmap QPaintEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QPainter.hs view
@@ -0,0 +1,304 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QPainter (+  QPainterValue (..),+  QPainterConstPtr (..),+  QPainterPtr (..),+  drawImageAtRaw,+  drawImageAtRawAll,+  fillRectWithGlobalColor,+  setRenderHint,+  QPainterConst (..),+  castQPainterToConst,+  QPainter (..),+  castQPainterToNonconst,+  new,+  newWithDevice,+  QPainterSuper (..),+  QPainterSuperConst (..),+  QPainterRenderHint (..),+  QPainterRenderHints,+  IsQPainterRenderHints (..),+  antialiasing,+  highQualityAntialiasing,+  nonCosmeticDefaultPen,+  qt4CompatiblePainting,+  smoothPixmapTransform,+  textAntialiasing,+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QRect as M122+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QImage as M292+import qualified Graphics.UI.Qtah.Generated.Gui.QPaintDevice as M304+import Prelude (($), (.), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QPainter_new" new' ::  HoppyP.IO (HoppyF.Ptr QPainter)+foreign import ccall "genpop__QPainter_newWithDevice" newWithDevice' ::  HoppyF.Ptr M304.QPaintDevice -> HoppyP.IO (HoppyF.Ptr QPainter)+foreign import ccall "genpop__QPainter_drawImageAtRaw" drawImageAtRaw' ::  HoppyF.Ptr QPainter -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M292.QImageConst -> HoppyP.IO ()+foreign import ccall "genpop__QPainter_drawImageAtRawAll" drawImageAtRawAll' ::  HoppyF.Ptr QPainter -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M292.QImageConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QPainter_fillRectWithGlobalColor" fillRectWithGlobalColor' ::  HoppyF.Ptr QPainter -> HoppyF.Ptr M122.QRectConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QPainter_setRenderHint" setRenderHint' ::  HoppyF.Ptr QPainter -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gendel__QPainter" delete'QPainter :: HoppyF.Ptr QPainterConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPainter" deletePtr'QPainter :: HoppyF.FunPtr (HoppyF.Ptr QPainterConst -> HoppyP.IO ())++class QPainterValue a where+  withQPainterPtr :: a -> (QPainterConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPainterConstPtr a => QPainterValue a where+  withQPainterPtr = HoppyP.flip ($) . toQPainterConst++class (HoppyFHR.CppPtr this) => QPainterConstPtr this where+  toQPainterConst :: this -> QPainterConst++class (QPainterConstPtr this) => QPainterPtr this where+  toQPainter :: this -> QPainter++drawImageAtRaw :: (QPainterPtr this, M292.QImageValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO ())+drawImageAtRaw arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQPainter arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M292.withQImagePtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (drawImageAtRaw' arg'1' arg'2' arg'3' arg'4')++drawImageAtRawAll :: (QPainterPtr this, M292.QImageValue arg'4, M190.IsQtImageConversionFlags arg'9) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'9) -> (HoppyP.IO ())+drawImageAtRawAll arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 arg'8 arg'9 =+  HoppyFHR.withCppPtr (toQPainter arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M292.withQImagePtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'5 >>= \arg'5' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'7 >>= \arg'7' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'8 >>= \arg'8' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtImageConversionFlags+  ) arg'9 >>= \arg'9' ->+  (drawImageAtRawAll' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7' arg'8' arg'9')++fillRectWithGlobalColor :: (QPainterPtr this, M122.QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtGlobalColor) -> (HoppyP.IO ())+fillRectWithGlobalColor arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQPainter arg'1) $ \arg'1' ->+  M122.withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (fillRectWithGlobalColor' arg'1' arg'2' arg'3')++setRenderHint :: (QPainterPtr this) => (this) {- ^ this -} -> (QPainterRenderHint) -> (HoppyP.IO ())+setRenderHint arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPainter arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setRenderHint' arg'1' arg'2')++data QPainterConst =+    QPainterConst (HoppyF.Ptr QPainterConst)+  | QPainterConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPainterConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPainterConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPainterConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPainterToConst :: QPainter -> QPainterConst+castQPainterToConst (QPainter ptr') = QPainterConst $ HoppyF.castPtr ptr'+castQPainterToConst (QPainterGc fptr' ptr') = QPainterConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPainterConst where+  nullptr = QPainterConst HoppyF.nullPtr+  +  withCppPtr (QPainterConst ptr') f' = f' ptr'+  withCppPtr (QPainterConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPainterConst ptr') = ptr'+  toPtr (QPainterConstGc _ ptr') = ptr'+  +  touchCppPtr (QPainterConst _) = HoppyP.return ()+  touchCppPtr (QPainterConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPainterConst where+  delete (QPainterConst ptr') = delete'QPainter ptr'+  delete (QPainterConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPainterConst", " object."]+  +  toGc this'@(QPainterConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPainterConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPainter :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPainterConstGc {}) = HoppyP.return this'++instance QPainterConstPtr QPainterConst where+  toQPainterConst = HoppyP.id++data QPainter =+    QPainter (HoppyF.Ptr QPainter)+  | QPainterGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPainter)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPainter where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPainter where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPainterToNonconst :: QPainterConst -> QPainter+castQPainterToNonconst (QPainterConst ptr') = QPainter $ HoppyF.castPtr ptr'+castQPainterToNonconst (QPainterConstGc fptr' ptr') = QPainterGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPainter where+  nullptr = QPainter HoppyF.nullPtr+  +  withCppPtr (QPainter ptr') f' = f' ptr'+  withCppPtr (QPainterGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPainter ptr') = ptr'+  toPtr (QPainterGc _ ptr') = ptr'+  +  touchCppPtr (QPainter _) = HoppyP.return ()+  touchCppPtr (QPainterGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPainter where+  delete (QPainter ptr') = delete'QPainter $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPainterConst)+  delete (QPainterGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPainter", " object."]+  +  toGc this'@(QPainter ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPainterGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPainter :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPainterGc {}) = HoppyP.return this'++instance QPainterConstPtr QPainter where+  toQPainterConst (QPainter ptr') = QPainterConst $ (HoppyF.castPtr :: HoppyF.Ptr QPainter -> HoppyF.Ptr QPainterConst) ptr'+  toQPainterConst (QPainterGc fptr' ptr') = QPainterConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPainter -> HoppyF.Ptr QPainterConst) ptr'++instance QPainterPtr QPainter where+  toQPainter = HoppyP.id++new :: (HoppyP.IO QPainter)+new =+  HoppyP.fmap QPainter+  (new')++newWithDevice :: (M304.QPaintDevicePtr arg'1) => (arg'1) -> (HoppyP.IO QPainter)+newWithDevice arg'1 =+  HoppyFHR.withCppPtr (M304.toQPaintDevice arg'1) $ \arg'1' ->+  HoppyP.fmap QPainter+  (newWithDevice' arg'1')++class QPainterSuper a where+  downToQPainter :: a -> QPainter+++class QPainterSuperConst a where+  downToQPainterConst :: a -> QPainterConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPainter)) QPainter where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPainter)) QPainter where+  decode = HoppyP.fmap QPainter . HoppyF.peek++data QPainterRenderHint =+  Antialiasing+  | TextAntialiasing+  | SmoothPixmapTransform+  | HighQualityAntialiasing+  | NonCosmeticDefaultPen+  | Qt4CompatiblePainting+  | UnknownQPainterRenderHint (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QPainterRenderHint where+  fromCppEnum Antialiasing = 1+  fromCppEnum TextAntialiasing = 2+  fromCppEnum SmoothPixmapTransform = 4+  fromCppEnum HighQualityAntialiasing = 8+  fromCppEnum NonCosmeticDefaultPen = 16+  fromCppEnum Qt4CompatiblePainting = 32+  fromCppEnum (UnknownQPainterRenderHint n) = n+  +  toCppEnum (1) = Antialiasing+  toCppEnum (2) = TextAntialiasing+  toCppEnum (4) = SmoothPixmapTransform+  toCppEnum (8) = HighQualityAntialiasing+  toCppEnum (16) = NonCosmeticDefaultPen+  toCppEnum (32) = Qt4CompatiblePainting+  toCppEnum n = UnknownQPainterRenderHint n++instance HoppyP.Eq QPainterRenderHint where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QPainterRenderHint where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QPainterRenderHints = QPainterRenderHints (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QPainterRenderHint QPainterRenderHints where+  enumToFlags = QPainterRenderHints . QtahFHR.fromCppEnum+  flagsToEnum (QPainterRenderHints x') = QtahFHR.toCppEnum x'++class IsQPainterRenderHints a where+  toQPainterRenderHints :: a -> QPainterRenderHints++instance IsQPainterRenderHints QPainterRenderHints where toQPainterRenderHints = QtahP.id+instance IsQPainterRenderHints QPainterRenderHint where toQPainterRenderHints = QtahFlags.enumToFlags+instance IsQPainterRenderHints (HoppyFC.CInt) where toQPainterRenderHints = QtahFlags.numToFlags++antialiasing :: QPainterRenderHints+antialiasing = QPainterRenderHints (1)++highQualityAntialiasing :: QPainterRenderHints+highQualityAntialiasing = QPainterRenderHints (8)++nonCosmeticDefaultPen :: QPainterRenderHints+nonCosmeticDefaultPen = QPainterRenderHints (16)++qt4CompatiblePainting :: QPainterRenderHints+qt4CompatiblePainting = QPainterRenderHints (32)++smoothPixmapTransform :: QPainterRenderHints+smoothPixmapTransform = QPainterRenderHints (4)++textAntialiasing :: QPainterRenderHints+textAntialiasing = QPainterRenderHints (2)++instance QtahDB.Bits QPainterRenderHints where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum
+ src/Graphics/UI/Qtah/Generated/Gui/QPainter.hs-boot view
@@ -0,0 +1,95 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QPainter (+  QPainterValue (..),+  QPainterConstPtr (..),+  QPainterPtr (..),+  QPainterConst (..),+  castQPainterToConst,+  QPainter (..),+  castQPainterToNonconst,+  QPainterRenderHint,+  QPainterRenderHints,+  IsQPainterRenderHints (..),+  antialiasing,+  highQualityAntialiasing,+  nonCosmeticDefaultPen,+  qt4CompatiblePainting,+  smoothPixmapTransform,+  textAntialiasing,+  ) where++import qualified Data.Bits as QtahDB+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 Prelude as HoppyP+import qualified Prelude as QtahP+++class QPainterValue a where+  withQPainterPtr :: a -> (QPainterConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPainterConstPtr a => QPainterValue a++class (HoppyFHR.CppPtr this) => QPainterConstPtr this where+  toQPainterConst :: this -> QPainterConst++class (QPainterConstPtr this) => QPainterPtr this where+  toQPainter :: this -> QPainter++data QPainterConst =+    QPainterConst (HoppyF.Ptr QPainterConst)+  | QPainterConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPainterConst)++castQPainterToConst :: QPainter -> QPainterConst++instance HoppyFHR.CppPtr QPainterConst+instance HoppyFHR.Deletable QPainterConst++instance QPainterConstPtr QPainterConst++data QPainter =+    QPainter (HoppyF.Ptr QPainter)+  | QPainterGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPainter)++castQPainterToNonconst :: QPainterConst -> QPainter++instance HoppyFHR.CppPtr QPainter+instance HoppyFHR.Deletable QPainter++instance QPainterConstPtr QPainter++instance QPainterPtr QPainter++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPainter)) QPainter++data QPainterRenderHint+instance HoppyFHR.CppEnum (HoppyFC.CInt) QPainterRenderHint+instance HoppyP.Eq QPainterRenderHint+instance HoppyP.Ord QPainterRenderHint+instance HoppyP.Show QPainterRenderHint++newtype QPainterRenderHints = QPainterRenderHints (HoppyFC.CInt)+instance QtahDB.Bits QPainterRenderHints+instance QtahP.Eq QPainterRenderHints+instance QtahP.Ord QPainterRenderHints+instance QtahP.Show QPainterRenderHints++instance QtahFlags.Flags (HoppyFC.CInt) QPainterRenderHint QPainterRenderHints++class IsQPainterRenderHints a where+  toQPainterRenderHints :: a -> QPainterRenderHints++instance IsQPainterRenderHints QPainterRenderHints+instance IsQPainterRenderHints QPainterRenderHint+instance IsQPainterRenderHints HoppyFC.CInt++antialiasing :: QPainterRenderHints+highQualityAntialiasing :: QPainterRenderHints+nonCosmeticDefaultPen :: QPainterRenderHints+qt4CompatiblePainting :: QPainterRenderHints+smoothPixmapTransform :: QPainterRenderHints+textAntialiasing :: QPainterRenderHints
src/Graphics/UI/Qtah/Generated/Gui/QPainterPath.hs view
@@ -0,0 +1,207 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QPainterPath (+  QPainterPathValue (..),+  QPainterPathConstPtr (..),+  eQ,+  nE,+  QPainterPathPtr (..),+  addRectRaw,+  aSSIGN,+  QPainterPathConst (..),+  castQPainterPathToConst,+  QPainterPath (..),+  castQPainterPathToNonconst,+  new,+  newCopy,+  QPainterPathSuper (..),+  QPainterPathSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QPainterPath_new" new' ::  HoppyP.IO (HoppyF.Ptr QPainterPath)+foreign import ccall "genpop__QPainterPath_newCopy" newCopy' ::  HoppyF.Ptr QPainterPathConst -> HoppyP.IO (HoppyF.Ptr QPainterPath)+foreign import ccall "genpop__QPainterPath_addRectRaw" addRectRaw' ::  HoppyF.Ptr QPainterPath -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QPainterPath_EQ" eQ' ::  HoppyF.Ptr QPainterPathConst -> HoppyF.Ptr QPainterPathConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPainterPath_NE" nE' ::  HoppyF.Ptr QPainterPathConst -> HoppyF.Ptr QPainterPathConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPainterPath_ASSIGN" aSSIGN' ::  HoppyF.Ptr QPainterPath -> HoppyF.Ptr QPainterPathConst -> HoppyP.IO (HoppyF.Ptr QPainterPath)+foreign import ccall "gendel__QPainterPath" delete'QPainterPath :: HoppyF.Ptr QPainterPathConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPainterPath" deletePtr'QPainterPath :: HoppyF.FunPtr (HoppyF.Ptr QPainterPathConst -> HoppyP.IO ())++class QPainterPathValue a where+  withQPainterPathPtr :: a -> (QPainterPathConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPainterPathConstPtr a => QPainterPathValue a where+  withQPainterPathPtr = HoppyP.flip ($) . toQPainterPathConst++class (HoppyFHR.CppPtr this) => QPainterPathConstPtr this where+  toQPainterPathConst :: this -> QPainterPathConst++eQ :: (QPainterPathValue this, QPainterPathValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQPainterPathPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPainterPathPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QPainterPathValue this, QPainterPathValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQPainterPathPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPainterPathPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QPainterPathConstPtr this) => QPainterPathPtr this where+  toQPainterPath :: this -> QPainterPath++addRectRaw :: (QPainterPathPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+addRectRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQPainterPath arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (addRectRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++aSSIGN :: (QPainterPathPtr this, QPainterPathValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPainterPath)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPainterPath arg'1) $ \arg'1' ->+  withQPainterPathPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QPainterPath+  (aSSIGN' arg'1' arg'2')++data QPainterPathConst =+    QPainterPathConst (HoppyF.Ptr QPainterPathConst)+  | QPainterPathConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPainterPathConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPainterPathConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPainterPathConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPainterPathToConst :: QPainterPath -> QPainterPathConst+castQPainterPathToConst (QPainterPath ptr') = QPainterPathConst $ HoppyF.castPtr ptr'+castQPainterPathToConst (QPainterPathGc fptr' ptr') = QPainterPathConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPainterPathConst where+  nullptr = QPainterPathConst HoppyF.nullPtr+  +  withCppPtr (QPainterPathConst ptr') f' = f' ptr'+  withCppPtr (QPainterPathConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPainterPathConst ptr') = ptr'+  toPtr (QPainterPathConstGc _ ptr') = ptr'+  +  touchCppPtr (QPainterPathConst _) = HoppyP.return ()+  touchCppPtr (QPainterPathConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPainterPathConst where+  delete (QPainterPathConst ptr') = delete'QPainterPath ptr'+  delete (QPainterPathConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPainterPathConst", " object."]+  +  toGc this'@(QPainterPathConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPainterPathConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPainterPath :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPainterPathConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPainterPathConst QPainterPath where copy = newCopy++instance QPainterPathConstPtr QPainterPathConst where+  toQPainterPathConst = HoppyP.id++data QPainterPath =+    QPainterPath (HoppyF.Ptr QPainterPath)+  | QPainterPathGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPainterPath)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPainterPath where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPainterPath where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPainterPathToNonconst :: QPainterPathConst -> QPainterPath+castQPainterPathToNonconst (QPainterPathConst ptr') = QPainterPath $ HoppyF.castPtr ptr'+castQPainterPathToNonconst (QPainterPathConstGc fptr' ptr') = QPainterPathGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPainterPath where+  nullptr = QPainterPath HoppyF.nullPtr+  +  withCppPtr (QPainterPath ptr') f' = f' ptr'+  withCppPtr (QPainterPathGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPainterPath ptr') = ptr'+  toPtr (QPainterPathGc _ ptr') = ptr'+  +  touchCppPtr (QPainterPath _) = HoppyP.return ()+  touchCppPtr (QPainterPathGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPainterPath where+  delete (QPainterPath ptr') = delete'QPainterPath $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPainterPathConst)+  delete (QPainterPathGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPainterPath", " object."]+  +  toGc this'@(QPainterPath ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPainterPathGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPainterPath :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPainterPathGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPainterPath QPainterPath where copy = newCopy++instance QPainterPathConstPtr QPainterPath where+  toQPainterPathConst (QPainterPath ptr') = QPainterPathConst $ (HoppyF.castPtr :: HoppyF.Ptr QPainterPath -> HoppyF.Ptr QPainterPathConst) ptr'+  toQPainterPathConst (QPainterPathGc fptr' ptr') = QPainterPathConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPainterPath -> HoppyF.Ptr QPainterPathConst) ptr'++instance QPainterPathPtr QPainterPath where+  toQPainterPath = HoppyP.id++new :: (HoppyP.IO QPainterPath)+new =+  HoppyP.fmap QPainterPath+  (new')++newCopy :: (QPainterPathValue arg'1) => (arg'1) -> (HoppyP.IO QPainterPath)+newCopy arg'1 =+  withQPainterPathPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPainterPath+  (newCopy' arg'1')++class QPainterPathSuper a where+  downToQPainterPath :: a -> QPainterPath+++class QPainterPathSuperConst a where+  downToQPainterPathConst :: a -> QPainterPathConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPainterPath)) QPainterPath where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QPainterPathValue a => HoppyFHR.Assignable QPainterPath a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPainterPath)) QPainterPath where+  decode = HoppyP.fmap QPainterPath . HoppyF.peek++instance HoppyFHR.Decodable QPainterPath (QPainterPath) where+  decode = HoppyFHR.decode . toQPainterPathConst++instance HoppyFHR.Decodable QPainterPathConst (QPainterPath) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Gui/QPen.hs view
@@ -0,0 +1,197 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QPen (+  QPenValue (..),+  QPenConstPtr (..),+  eQ,+  nE,+  QPenPtr (..),+  aSSIGN,+  QPenConst (..),+  castQPenToConst,+  QPen (..),+  castQPenToNonconst,+  new,+  newWithColor,+  newCopy,+  QPenSuper (..),+  QPenSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Gui.QColor as M252+import Prelude (($), (.), (/=), (=<<), (==), (>>))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QPen_new" new' ::  HoppyP.IO (HoppyF.Ptr QPen)+foreign import ccall "genpop__QPen_newWithColor" newWithColor' ::  HoppyF.Ptr M252.QColorConst -> HoppyP.IO (HoppyF.Ptr QPen)+foreign import ccall "genpop__QPen_newCopy" newCopy' ::  HoppyF.Ptr QPenConst -> HoppyP.IO (HoppyF.Ptr QPen)+foreign import ccall "genpop__QPen_EQ" eQ' ::  HoppyF.Ptr QPenConst -> HoppyF.Ptr QPenConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPen_NE" nE' ::  HoppyF.Ptr QPenConst -> HoppyF.Ptr QPenConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPen_ASSIGN" aSSIGN' ::  HoppyF.Ptr QPen -> HoppyF.Ptr QPenConst -> HoppyP.IO (HoppyF.Ptr QPen)+foreign import ccall "gendel__QPen" delete'QPen :: HoppyF.Ptr QPenConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPen" deletePtr'QPen :: HoppyF.FunPtr (HoppyF.Ptr QPenConst -> HoppyP.IO ())++class QPenValue a where+  withQPenPtr :: a -> (QPenConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPenConstPtr a => QPenValue a where+  withQPenPtr = HoppyP.flip ($) . toQPenConst++class (HoppyFHR.CppPtr this) => QPenConstPtr this where+  toQPenConst :: this -> QPenConst++eQ :: (QPenValue this, QPenValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQPenPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPenPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QPenValue this, QPenValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQPenPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPenPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QPenConstPtr this) => QPenPtr this where+  toQPen :: this -> QPen++aSSIGN :: (QPenPtr this, QPenValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPen)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPen arg'1) $ \arg'1' ->+  withQPenPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QPen+  (aSSIGN' arg'1' arg'2')++data QPenConst =+    QPenConst (HoppyF.Ptr QPenConst)+  | QPenConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPenConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPenConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPenConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPenToConst :: QPen -> QPenConst+castQPenToConst (QPen ptr') = QPenConst $ HoppyF.castPtr ptr'+castQPenToConst (QPenGc fptr' ptr') = QPenConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPenConst where+  nullptr = QPenConst HoppyF.nullPtr+  +  withCppPtr (QPenConst ptr') f' = f' ptr'+  withCppPtr (QPenConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPenConst ptr') = ptr'+  toPtr (QPenConstGc _ ptr') = ptr'+  +  touchCppPtr (QPenConst _) = HoppyP.return ()+  touchCppPtr (QPenConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPenConst where+  delete (QPenConst ptr') = delete'QPen ptr'+  delete (QPenConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPenConst", " object."]+  +  toGc this'@(QPenConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPenConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPen :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPenConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPenConst QPen where copy = newCopy++instance QPenConstPtr QPenConst where+  toQPenConst = HoppyP.id++data QPen =+    QPen (HoppyF.Ptr QPen)+  | QPenGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPen)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPen where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPen where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPenToNonconst :: QPenConst -> QPen+castQPenToNonconst (QPenConst ptr') = QPen $ HoppyF.castPtr ptr'+castQPenToNonconst (QPenConstGc fptr' ptr') = QPenGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPen where+  nullptr = QPen HoppyF.nullPtr+  +  withCppPtr (QPen ptr') f' = f' ptr'+  withCppPtr (QPenGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPen ptr') = ptr'+  toPtr (QPenGc _ ptr') = ptr'+  +  touchCppPtr (QPen _) = HoppyP.return ()+  touchCppPtr (QPenGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPen where+  delete (QPen ptr') = delete'QPen $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPenConst)+  delete (QPenGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPen", " object."]+  +  toGc this'@(QPen ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPenGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPen :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPenGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPen QPen where copy = newCopy++instance QPenConstPtr QPen where+  toQPenConst (QPen ptr') = QPenConst $ (HoppyF.castPtr :: HoppyF.Ptr QPen -> HoppyF.Ptr QPenConst) ptr'+  toQPenConst (QPenGc fptr' ptr') = QPenConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPen -> HoppyF.Ptr QPenConst) ptr'++instance QPenPtr QPen where+  toQPen = HoppyP.id++new :: (HoppyP.IO QPen)+new =+  HoppyP.fmap QPen+  (new')++newWithColor :: (M252.QColorValue arg'1) => (arg'1) -> (HoppyP.IO QPen)+newWithColor arg'1 =+  M252.withQColorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPen+  (newWithColor' arg'1')++newCopy :: (QPenValue arg'1) => (arg'1) -> (HoppyP.IO QPen)+newCopy arg'1 =+  withQPenPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPen+  (newCopy' arg'1')++class QPenSuper a where+  downToQPen :: a -> QPen+++class QPenSuperConst a where+  downToQPenConst :: a -> QPenConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPen)) QPen where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QPenValue a => HoppyFHR.Assignable QPen a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPen)) QPen where+  decode = HoppyP.fmap QPen . HoppyF.peek++instance HoppyFHR.Decodable QPen (QPen) where+  decode = HoppyFHR.decode . toQPenConst++instance HoppyFHR.Decodable QPenConst (QPen) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Gui/QPixmap.hs view
@@ -0,0 +1,713 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QPixmap (+  castQPixmapToQPaintDevice,+  castQPaintDeviceToQPixmap,+  QPixmapValue (..),+  QPixmapConstPtr (..),+  cacheKey,+  copyRect,+  copyRaw,+  depth,+  devicePixelRatio,+  hasAlpha,+  hasAlphaChannel,+  height,+  isNull,+  isQBitmap,+  rect,+  save,+  scaledRaw,+  scaledRawAll,+  scaledSize,+  scaledSizeAll,+  scaledToHeight,+  scaledToHeightAll,+  scaledToWidth,+  scaledToWidthAll,+  size,+  toImage,+  transformed,+  transformedAll,+  width,+  QPixmapPtr (..),+  convertFromImage,+  convertFromImageAll,+  detach,+  setDevicePixelRatio,+  fill,+  fillWithColor,+  load,+  scrollRaw,+  scrollRawAll,+  scrollRect,+  scrollRectAll,+  swap,+  aSSIGN,+  defaultDepth,+  fromImage,+  fromImageAll,+  trueMatrixTransform,+  QPixmapConst (..),+  castQPixmapToConst,+  QPixmap (..),+  castQPixmapToNonconst,+  new,+  newWithSize,+  newWithSizeRaw,+  newWithFile,+  newCopy,+  QPixmapSuper (..),+  QPixmapSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Data.Int as HoppyDI+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.Core.HSize as HSize+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QRect as M122+import qualified Graphics.UI.Qtah.Generated.Core.QSize as M134+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.QColor as M252+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QImage as M292+import qualified Graphics.UI.Qtah.Generated.Gui.QPaintDevice as M304+import qualified Graphics.UI.Qtah.Generated.Gui.QRegion as M324+import qualified Graphics.UI.Qtah.Generated.Gui.QTransform as M336+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QPixmap_new" new' ::  HoppyP.IO (HoppyF.Ptr QPixmap)+foreign import ccall "genpop__QPixmap_newWithSize" newWithSize' ::  HoppyF.Ptr M134.QSizeConst -> HoppyP.IO (HoppyF.Ptr QPixmap)+foreign import ccall "genpop__QPixmap_newWithSizeRaw" newWithSizeRaw' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPixmap)+foreign import ccall "genpop__QPixmap_newWithFile" newWithFile' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QPixmap)+foreign import ccall "genpop__QPixmap_newCopy" newCopy' ::  HoppyF.Ptr QPixmapConst -> HoppyP.IO (HoppyF.Ptr QPixmap)+foreign import ccall "genpop__QPixmap_cacheKey" cacheKey' ::  HoppyF.Ptr QPixmapConst -> HoppyP.IO HoppyDI.Int64+foreign import ccall "genpop__QPixmap_convertFromImage" convertFromImage' ::  HoppyF.Ptr QPixmap -> HoppyF.Ptr M292.QImageConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPixmap_convertFromImageAll" convertFromImageAll' ::  HoppyF.Ptr QPixmap -> HoppyF.Ptr M292.QImageConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPixmap_copyRect" copyRect' ::  HoppyF.Ptr QPixmapConst -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO (HoppyF.Ptr QPixmapConst)+foreign import ccall "genpop__QPixmap_copyRaw" copyRaw' ::  HoppyF.Ptr QPixmapConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPixmapConst)+foreign import ccall "genpop__QPixmap_defaultDepth" defaultDepth' ::  HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPixmap_depth" depth' ::  HoppyF.Ptr QPixmapConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPixmap_detach" detach' ::  HoppyF.Ptr QPixmap -> HoppyP.IO ()+foreign import ccall "genpop__QPixmap_devicePixelRatio" devicePixelRatio' ::  HoppyF.Ptr QPixmapConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QPixmap_setDevicePixelRatio" setDevicePixelRatio' ::  HoppyF.Ptr QPixmap -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QPixmap_fill" fill' ::  HoppyF.Ptr QPixmap -> HoppyP.IO ()+foreign import ccall "genpop__QPixmap_fillWithColor" fillWithColor' ::  HoppyF.Ptr QPixmap -> HoppyF.Ptr M252.QColorConst -> HoppyP.IO ()+foreign import ccall "genpop__QPixmap_fromImage" fromImage' ::  HoppyF.Ptr M292.QImageConst -> HoppyP.IO (HoppyF.Ptr QPixmapConst)+foreign import ccall "genpop__QPixmap_fromImageAll" fromImageAll' ::  HoppyF.Ptr M292.QImageConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPixmapConst)+foreign import ccall "genpop__QPixmap_hasAlpha" hasAlpha' ::  HoppyF.Ptr QPixmapConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPixmap_hasAlphaChannel" hasAlphaChannel' ::  HoppyF.Ptr QPixmapConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPixmap_height" height' ::  HoppyF.Ptr QPixmapConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPixmap_isNull" isNull' ::  HoppyF.Ptr QPixmapConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPixmap_isQBitmap" isQBitmap' ::  HoppyF.Ptr QPixmapConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPixmap_load" load' ::  HoppyF.Ptr QPixmap -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPixmap_rect" rect' ::  HoppyF.Ptr QPixmapConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QPixmap_save" save' ::  HoppyF.Ptr QPixmapConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPixmap_scaledRaw" scaledRaw' ::  HoppyF.Ptr QPixmapConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPixmapConst)+foreign import ccall "genpop__QPixmap_scaledRawAll" scaledRawAll' ::  HoppyF.Ptr QPixmapConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPixmapConst)+foreign import ccall "genpop__QPixmap_scaledSize" scaledSize' ::  HoppyF.Ptr QPixmapConst -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO (HoppyF.Ptr QPixmapConst)+foreign import ccall "genpop__QPixmap_scaledSizeAll" scaledSizeAll' ::  HoppyF.Ptr QPixmapConst -> HoppyF.Ptr M134.QSizeConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPixmapConst)+foreign import ccall "genpop__QPixmap_scaledToHeight" scaledToHeight' ::  HoppyF.Ptr QPixmapConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPixmapConst)+foreign import ccall "genpop__QPixmap_scaledToHeightAll" scaledToHeightAll' ::  HoppyF.Ptr QPixmapConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPixmapConst)+foreign import ccall "genpop__QPixmap_scaledToWidth" scaledToWidth' ::  HoppyF.Ptr QPixmapConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPixmapConst)+foreign import ccall "genpop__QPixmap_scaledToWidthAll" scaledToWidthAll' ::  HoppyF.Ptr QPixmapConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPixmapConst)+foreign import ccall "genpop__QPixmap_scrollRaw" scrollRaw' ::  HoppyF.Ptr QPixmap -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QPixmap_scrollRawAll" scrollRawAll' ::  HoppyF.Ptr QPixmap -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M324.QRegion -> HoppyP.IO ()+foreign import ccall "genpop__QPixmap_scrollRect" scrollRect' ::  HoppyF.Ptr QPixmap -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO ()+foreign import ccall "genpop__QPixmap_scrollRectAll" scrollRectAll' ::  HoppyF.Ptr QPixmap -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M122.QRectConst -> HoppyF.Ptr M324.QRegion -> HoppyP.IO ()+foreign import ccall "genpop__QPixmap_size" size' ::  HoppyF.Ptr QPixmapConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QPixmap_swap" swap' ::  HoppyF.Ptr QPixmap -> HoppyF.Ptr QPixmap -> HoppyP.IO ()+foreign import ccall "genpop__QPixmap_toImage" toImage' ::  HoppyF.Ptr QPixmapConst -> HoppyP.IO (HoppyF.Ptr M292.QImageConst)+foreign import ccall "genpop__QPixmap_transformed" transformed' ::  HoppyF.Ptr QPixmapConst -> HoppyF.Ptr M336.QTransformConst -> HoppyP.IO (HoppyF.Ptr QPixmapConst)+foreign import ccall "genpop__QPixmap_transformedAll" transformedAll' ::  HoppyF.Ptr QPixmapConst -> HoppyF.Ptr M336.QTransformConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPixmapConst)+foreign import ccall "genpop__QPixmap_trueMatrixTransform" trueMatrixTransform' ::  HoppyF.Ptr M336.QTransformConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M336.QTransformConst)+foreign import ccall "genpop__QPixmap_width" width' ::  HoppyF.Ptr QPixmapConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QPixmap_ASSIGN" aSSIGN' ::  HoppyF.Ptr QPixmap -> HoppyF.Ptr QPixmapConst -> HoppyP.IO (HoppyF.Ptr QPixmap)+foreign import ccall "gencast__QPixmap__QPaintDevice" castQPixmapToQPaintDevice :: HoppyF.Ptr QPixmapConst -> HoppyF.Ptr M304.QPaintDeviceConst+foreign import ccall "gencast__QPaintDevice__QPixmap" castQPaintDeviceToQPixmap :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr QPixmapConst+foreign import ccall "gendel__QPixmap" delete'QPixmap :: HoppyF.Ptr QPixmapConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPixmap" deletePtr'QPixmap :: HoppyF.FunPtr (HoppyF.Ptr QPixmapConst -> HoppyP.IO ())++class QPixmapValue a where+  withQPixmapPtr :: a -> (QPixmapConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPixmapConstPtr a => QPixmapValue a where+  withQPixmapPtr = HoppyP.flip ($) . toQPixmapConst++class (M304.QPaintDeviceConstPtr this) => QPixmapConstPtr this where+  toQPixmapConst :: this -> QPixmapConst++cacheKey :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyDI.Int64)+cacheKey arg'1 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (cacheKey' arg'1')++copyRect :: (QPixmapValue this, M122.QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPixmap)+copyRect arg'1 arg'2 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M122.withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QPixmapConst) =<<+  (copyRect' arg'1' arg'2')++copyRaw :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QPixmap)+copyRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \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' ->+  (HoppyFHR.decodeAndDelete . QPixmapConst) =<<+  (copyRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++depth :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+depth arg'1 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (depth' arg'1')++devicePixelRatio :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+devicePixelRatio arg'1 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (devicePixelRatio' arg'1')++hasAlpha :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasAlpha arg'1 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasAlpha' arg'1')++hasAlphaChannel :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasAlphaChannel arg'1 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasAlphaChannel' arg'1')++height :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+height arg'1 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (height' arg'1')++isNull :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++isQBitmap :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isQBitmap arg'1 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isQBitmap' arg'1')++rect :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.IO HRect.HRect)+rect arg'1 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<+  (rect' arg'1')++save :: (QPixmapValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+save arg'1 arg'2 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (save' arg'1' arg'2')++scaledRaw :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QPixmap)+scaledRaw arg'1 arg'2 arg'3 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QPixmapConst) =<<+  (scaledRaw' arg'1' arg'2' arg'3')++scaledRawAll :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (M190.QtAspectRatioMode) -> (M190.QtTransformationMode) -> (HoppyP.IO QPixmap)+scaledRawAll arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \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' ->+  (HoppyFHR.decodeAndDelete . QPixmapConst) =<<+  (scaledRawAll' arg'1' arg'2' arg'3' arg'4' arg'5')++scaledSize :: (QPixmapValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPixmap)+scaledSize arg'1 arg'2 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QPixmapConst) =<<+  (scaledSize' arg'1' arg'2')++scaledSizeAll :: (QPixmapValue this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtAspectRatioMode) -> (M190.QtTransformationMode) -> (HoppyP.IO QPixmap)+scaledSizeAll arg'1 arg'2 arg'3 arg'4 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'4 >>= \arg'4' ->+  (HoppyFHR.decodeAndDelete . QPixmapConst) =<<+  (scaledSizeAll' arg'1' arg'2' arg'3' arg'4')++scaledToHeight :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QPixmap)+scaledToHeight arg'1 arg'2 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QPixmapConst) =<<+  (scaledToHeight' arg'1' arg'2')++scaledToHeightAll :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (M190.QtTransformationMode) -> (HoppyP.IO QPixmap)+scaledToHeightAll arg'1 arg'2 arg'3 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QPixmapConst) =<<+  (scaledToHeightAll' arg'1' arg'2' arg'3')++scaledToWidth :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QPixmap)+scaledToWidth arg'1 arg'2 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QPixmapConst) =<<+  (scaledToWidth' arg'1' arg'2')++scaledToWidthAll :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (M190.QtTransformationMode) -> (HoppyP.IO QPixmap)+scaledToWidthAll arg'1 arg'2 arg'3 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QPixmapConst) =<<+  (scaledToWidthAll' arg'1' arg'2' arg'3')++size :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+size arg'1 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (size' arg'1')++toImage :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.IO M292.QImage)+toImage arg'1 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M292.QImageConst) =<<+  (toImage' arg'1')++transformed :: (QPixmapValue this, M336.QTransformValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPixmap)+transformed arg'1 arg'2 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M336.withQTransformPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QPixmapConst) =<<+  (transformed' arg'1' arg'2')++transformedAll :: (QPixmapValue this, M336.QTransformValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtTransformationMode) -> (HoppyP.IO QPixmap)+transformedAll arg'1 arg'2 arg'3 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M336.withQTransformPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QPixmapConst) =<<+  (transformedAll' arg'1' arg'2' arg'3')++width :: (QPixmapValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+width arg'1 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (width' arg'1')++class (QPixmapConstPtr this, M304.QPaintDevicePtr this) => QPixmapPtr this where+  toQPixmap :: this -> QPixmap++convertFromImage :: (QPixmapPtr this, M292.QImageValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+convertFromImage arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPixmap arg'1) $ \arg'1' ->+  M292.withQImagePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (convertFromImage' arg'1' arg'2')++convertFromImageAll :: (QPixmapPtr this, M292.QImageValue arg'2, M190.IsQtImageConversionFlags arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+convertFromImageAll arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQPixmap arg'1) $ \arg'1' ->+  M292.withQImagePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtImageConversionFlags+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (convertFromImageAll' arg'1' arg'2' arg'3')++detach :: (QPixmapPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+detach arg'1 =+  HoppyFHR.withCppPtr (toQPixmap arg'1) $ \arg'1' ->+  (detach' arg'1')++setDevicePixelRatio :: (QPixmapPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setDevicePixelRatio arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPixmap arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setDevicePixelRatio' arg'1' arg'2')++fill :: (QPixmapPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+fill arg'1 =+  HoppyFHR.withCppPtr (toQPixmap arg'1) $ \arg'1' ->+  (fill' arg'1')++fillWithColor :: (QPixmapPtr this, M252.QColorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+fillWithColor arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPixmap arg'1) $ \arg'1' ->+  M252.withQColorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (fillWithColor' arg'1' arg'2')++load :: (QPixmapPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+load arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPixmap arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (load' arg'1' arg'2')++scrollRaw :: (QPixmapPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+scrollRaw arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 =+  HoppyFHR.withCppPtr (toQPixmap 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' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'7 >>= \arg'7' ->+  (scrollRaw' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7')++scrollRawAll :: (QPixmapPtr this, M324.QRegionPtr arg'8) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'8) -> (HoppyP.IO ())+scrollRawAll arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 arg'8 =+  HoppyFHR.withCppPtr (toQPixmap 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' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'7 >>= \arg'7' ->+  HoppyFHR.withCppPtr (M324.toQRegion arg'8) $ \arg'8' ->+  (scrollRawAll' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7' arg'8')++scrollRect :: (QPixmapPtr this, M122.QRectValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO ())+scrollRect arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQPixmap arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M122.withQRectPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (scrollRect' arg'1' arg'2' arg'3' arg'4')++scrollRectAll :: (QPixmapPtr this, M122.QRectValue arg'4, M324.QRegionPtr arg'5) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (arg'5) -> (HoppyP.IO ())+scrollRectAll arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQPixmap arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  M122.withQRectPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  HoppyFHR.withCppPtr (M324.toQRegion arg'5) $ \arg'5' ->+  (scrollRectAll' arg'1' arg'2' arg'3' arg'4' arg'5')++swap :: (QPixmapPtr this, QPixmapPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPixmap arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQPixmap arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++aSSIGN :: (QPixmapPtr this, QPixmapValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPixmap)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPixmap arg'1) $ \arg'1' ->+  withQPixmapPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QPixmap+  (aSSIGN' arg'1' arg'2')++defaultDepth :: (HoppyP.IO HoppyP.Int)+defaultDepth =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (defaultDepth')++fromImage :: (M292.QImageValue arg'1) => (arg'1) -> (HoppyP.IO QPixmap)+fromImage arg'1 =+  M292.withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . QPixmapConst) =<<+  (fromImage' arg'1')++fromImageAll :: (M292.QImageValue arg'1, M190.IsQtImageConversionFlags arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QPixmap)+fromImageAll arg'1 arg'2 =+  M292.withQImagePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtImageConversionFlags+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . QPixmapConst) =<<+  (fromImageAll' arg'1' arg'2')++trueMatrixTransform :: (M336.QTransformValue arg'1) => (arg'1) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO M336.QTransform)+trueMatrixTransform arg'1 arg'2 arg'3 =+  M336.withQTransformPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M336.QTransformConst) =<<+  (trueMatrixTransform' arg'1' arg'2' arg'3')++data QPixmapConst =+    QPixmapConst (HoppyF.Ptr QPixmapConst)+  | QPixmapConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPixmapConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPixmapConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPixmapConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPixmapToConst :: QPixmap -> QPixmapConst+castQPixmapToConst (QPixmap ptr') = QPixmapConst $ HoppyF.castPtr ptr'+castQPixmapToConst (QPixmapGc fptr' ptr') = QPixmapConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPixmapConst where+  nullptr = QPixmapConst HoppyF.nullPtr+  +  withCppPtr (QPixmapConst ptr') f' = f' ptr'+  withCppPtr (QPixmapConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPixmapConst ptr') = ptr'+  toPtr (QPixmapConstGc _ ptr') = ptr'+  +  touchCppPtr (QPixmapConst _) = HoppyP.return ()+  touchCppPtr (QPixmapConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPixmapConst where+  delete (QPixmapConst ptr') = delete'QPixmap ptr'+  delete (QPixmapConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPixmapConst", " object."]+  +  toGc this'@(QPixmapConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPixmapConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPixmap :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPixmapConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPixmapConst QPixmap where copy = newCopy++instance QPixmapConstPtr QPixmapConst where+  toQPixmapConst = HoppyP.id++instance M304.QPaintDeviceConstPtr QPixmapConst where+  toQPaintDeviceConst (QPixmapConst ptr') = M304.QPaintDeviceConst $ castQPixmapToQPaintDevice ptr'+  toQPaintDeviceConst (QPixmapConstGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQPixmapToQPaintDevice ptr'++data QPixmap =+    QPixmap (HoppyF.Ptr QPixmap)+  | QPixmapGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPixmap)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPixmap where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPixmap where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPixmapToNonconst :: QPixmapConst -> QPixmap+castQPixmapToNonconst (QPixmapConst ptr') = QPixmap $ HoppyF.castPtr ptr'+castQPixmapToNonconst (QPixmapConstGc fptr' ptr') = QPixmapGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPixmap where+  nullptr = QPixmap HoppyF.nullPtr+  +  withCppPtr (QPixmap ptr') f' = f' ptr'+  withCppPtr (QPixmapGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPixmap ptr') = ptr'+  toPtr (QPixmapGc _ ptr') = ptr'+  +  touchCppPtr (QPixmap _) = HoppyP.return ()+  touchCppPtr (QPixmapGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPixmap where+  delete (QPixmap ptr') = delete'QPixmap $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPixmapConst)+  delete (QPixmapGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPixmap", " object."]+  +  toGc this'@(QPixmap ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPixmapGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPixmap :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPixmapGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPixmap QPixmap where copy = newCopy++instance QPixmapConstPtr QPixmap where+  toQPixmapConst (QPixmap ptr') = QPixmapConst $ (HoppyF.castPtr :: HoppyF.Ptr QPixmap -> HoppyF.Ptr QPixmapConst) ptr'+  toQPixmapConst (QPixmapGc fptr' ptr') = QPixmapConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPixmap -> HoppyF.Ptr QPixmapConst) ptr'++instance QPixmapPtr QPixmap where+  toQPixmap = HoppyP.id++instance M304.QPaintDeviceConstPtr QPixmap where+  toQPaintDeviceConst (QPixmap ptr') = M304.QPaintDeviceConst $ castQPixmapToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QPixmap -> HoppyF.Ptr QPixmapConst) ptr'+  toQPaintDeviceConst (QPixmapGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQPixmapToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QPixmap -> HoppyF.Ptr QPixmapConst) ptr'++instance M304.QPaintDevicePtr QPixmap where+  toQPaintDevice (QPixmap ptr') = M304.QPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQPixmapToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QPixmap -> HoppyF.Ptr QPixmapConst) ptr'+  toQPaintDevice (QPixmapGc fptr' ptr') = M304.QPaintDeviceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQPixmapToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QPixmap -> HoppyF.Ptr QPixmapConst) ptr'++new :: (HoppyP.IO QPixmap)+new =+  HoppyP.fmap QPixmap+  (new')++newWithSize :: (M134.QSizeValue arg'1) => (arg'1) -> (HoppyP.IO QPixmap)+newWithSize arg'1 =+  M134.withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPixmap+  (newWithSize' arg'1')++newWithSizeRaw :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QPixmap)+newWithSizeRaw arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QPixmap+  (newWithSizeRaw' arg'1' arg'2')++newWithFile :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QPixmap)+newWithFile arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPixmap+  (newWithFile' arg'1')++newCopy :: (QPixmapValue arg'1) => (arg'1) -> (HoppyP.IO QPixmap)+newCopy arg'1 =+  withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPixmap+  (newCopy' arg'1')++class QPixmapSuper a where+  downToQPixmap :: a -> QPixmap++instance QPixmapSuper M304.QPaintDevice where+  downToQPixmap = castQPixmapToNonconst . cast' . M304.castQPaintDeviceToConst+    where+      cast' (M304.QPaintDeviceConst ptr') = QPixmapConst $ castQPaintDeviceToQPixmap ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QPixmapConstGc fptr' $ castQPaintDeviceToQPixmap ptr'++class QPixmapSuperConst a where+  downToQPixmapConst :: a -> QPixmapConst++instance QPixmapSuperConst M304.QPaintDeviceConst where+  downToQPixmapConst = cast'+    where+      cast' (M304.QPaintDeviceConst ptr') = QPixmapConst $ castQPaintDeviceToQPixmap ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QPixmapConstGc fptr' $ castQPaintDeviceToQPixmap ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPixmap)) QPixmap where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QPixmapValue a => HoppyFHR.Assignable QPixmap a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPixmap)) QPixmap where+  decode = HoppyP.fmap QPixmap . HoppyF.peek++instance HoppyFHR.Decodable QPixmap (QPixmap) where+  decode = HoppyFHR.decode . toQPixmapConst++instance HoppyFHR.Decodable QPixmapConst (QPixmap) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
+ src/Graphics/UI/Qtah/Generated/Gui/QPixmap.hs-boot view
@@ -0,0 +1,68 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QPixmap (+  QPixmapValue (..),+  QPixmapConstPtr (..),+  QPixmapPtr (..),+  QPixmapConst (..),+  castQPixmapToConst,+  QPixmap (..),+  castQPixmapToNonconst,+  castQPixmapToQPaintDevice,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Gui.QPaintDevice as M304+import qualified Prelude as HoppyP+++class QPixmapValue a where+  withQPixmapPtr :: a -> (QPixmapConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPixmapConstPtr a => QPixmapValue a++class (M304.QPaintDeviceConstPtr this) => QPixmapConstPtr this where+  toQPixmapConst :: this -> QPixmapConst++class (QPixmapConstPtr this, M304.QPaintDevicePtr this) => QPixmapPtr this where+  toQPixmap :: this -> QPixmap++data QPixmapConst =+    QPixmapConst (HoppyF.Ptr QPixmapConst)+  | QPixmapConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPixmapConst)++castQPixmapToConst :: QPixmap -> QPixmapConst++instance HoppyFHR.CppPtr QPixmapConst+instance HoppyFHR.Deletable QPixmapConst+instance HoppyFHR.Copyable QPixmapConst QPixmap++instance QPixmapConstPtr QPixmapConst++instance M304.QPaintDeviceConstPtr QPixmapConst++data QPixmap =+    QPixmap (HoppyF.Ptr QPixmap)+  | QPixmapGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPixmap)++castQPixmapToNonconst :: QPixmapConst -> QPixmap++instance HoppyFHR.CppPtr QPixmap+instance HoppyFHR.Deletable QPixmap+instance HoppyFHR.Copyable QPixmap QPixmap++instance QPixmapConstPtr QPixmap++instance QPixmapPtr QPixmap++instance M304.QPaintDeviceConstPtr QPixmap++instance M304.QPaintDevicePtr QPixmap+castQPixmapToQPaintDevice :: HoppyF.Ptr QPixmapConst -> HoppyF.Ptr M304.QPaintDeviceConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPixmap)) QPixmap++instance HoppyFHR.Decodable QPixmap ((QPixmap))+instance HoppyFHR.Decodable QPixmapConst ((QPixmap))
src/Graphics/UI/Qtah/Generated/Gui/QPolygon.hs view
@@ -0,0 +1,377 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QPolygon (+  castQPolygonToQVectorQPoint,+  QPolygonValue (..),+  QPolygonConstPtr (..),+  boundingRect,+  containsPoint,+  intersected,+  point,+  subtracted,+  translatedByRaw,+  translatedByPoint,+  united,+  eQ,+  nE,+  QPolygonPtr (..),+  putPoints,+  setPoint,+  swap,+  translateByRaw,+  translateByPoint,+  aSSIGN,+  QPolygonConst (..),+  castQPolygonToConst,+  QPolygon (..),+  castQPolygonToNonconst,+  new,+  newWithSize,+  newWithPoints,+  newWithRectangle,+  newCopy,+  QPolygonSuper (..),+  QPolygonSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Core.HPoint as HPoint+import qualified Graphics.UI.Qtah.Core.HRect as HRect+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.QVector.QPoint as M218+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QPolygon_new" new' ::  HoppyP.IO (HoppyF.Ptr QPolygon)+foreign import ccall "genpop__QPolygon_newWithSize" newWithSize' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPolygon)+foreign import ccall "genpop__QPolygon_newWithPoints" newWithPoints' ::  HoppyF.Ptr M218.QVectorQPointConst -> HoppyP.IO (HoppyF.Ptr QPolygon)+foreign import ccall "genpop__QPolygon_newWithRectangle" newWithRectangle' ::  HoppyF.Ptr M122.QRectConst -> HoppyFC.CBool -> HoppyP.IO (HoppyF.Ptr QPolygon)+foreign import ccall "genpop__QPolygon_newCopy" newCopy' ::  HoppyF.Ptr QPolygonConst -> HoppyP.IO (HoppyF.Ptr QPolygon)+foreign import ccall "genpop__QPolygon_boundingRect" boundingRect' ::  HoppyF.Ptr QPolygonConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QPolygon_containsPoint" containsPoint' ::  HoppyF.Ptr QPolygonConst -> HoppyF.Ptr M114.QPointConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPolygon_intersected" intersected' ::  HoppyF.Ptr QPolygonConst -> HoppyF.Ptr QPolygonConst -> HoppyP.IO (HoppyF.Ptr QPolygonConst)+foreign import ccall "genpop__QPolygon_point" point' ::  HoppyF.Ptr QPolygonConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QPolygon_putPoints" putPoints' ::  HoppyF.Ptr QPolygon -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr QPolygonConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QPolygon_setPoint" setPoint' ::  HoppyF.Ptr QPolygon -> HoppyFC.CInt -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QPolygon_subtracted" subtracted' ::  HoppyF.Ptr QPolygonConst -> HoppyF.Ptr QPolygonConst -> HoppyP.IO (HoppyF.Ptr QPolygonConst)+foreign import ccall "genpop__QPolygon_swap" swap' ::  HoppyF.Ptr QPolygon -> HoppyF.Ptr QPolygon -> HoppyP.IO ()+foreign import ccall "genpop__QPolygon_translateByRaw" translateByRaw' ::  HoppyF.Ptr QPolygon -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QPolygon_translateByPoint" translateByPoint' ::  HoppyF.Ptr QPolygon -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QPolygon_translatedByRaw" translatedByRaw' ::  HoppyF.Ptr QPolygonConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPolygonConst)+foreign import ccall "genpop__QPolygon_translatedByPoint" translatedByPoint' ::  HoppyF.Ptr QPolygonConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr QPolygonConst)+foreign import ccall "genpop__QPolygon_united" united' ::  HoppyF.Ptr QPolygonConst -> HoppyF.Ptr QPolygonConst -> HoppyP.IO (HoppyF.Ptr QPolygonConst)+foreign import ccall "genpop__QPolygon_EQ" eQ' ::  HoppyF.Ptr QPolygonConst -> HoppyF.Ptr QPolygonConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPolygon_NE" nE' ::  HoppyF.Ptr QPolygonConst -> HoppyF.Ptr QPolygonConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPolygon_ASSIGN" aSSIGN' ::  HoppyF.Ptr QPolygon -> HoppyF.Ptr QPolygonConst -> HoppyP.IO (HoppyF.Ptr QPolygon)+foreign import ccall "gencast__QPolygon__QVectorQPoint" castQPolygonToQVectorQPoint :: HoppyF.Ptr QPolygonConst -> HoppyF.Ptr M218.QVectorQPointConst+foreign import ccall "gendel__QPolygon" delete'QPolygon :: HoppyF.Ptr QPolygonConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPolygon" deletePtr'QPolygon :: HoppyF.FunPtr (HoppyF.Ptr QPolygonConst -> HoppyP.IO ())++class QPolygonValue a where+  withQPolygonPtr :: a -> (QPolygonConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPolygonConstPtr a => QPolygonValue a where+  withQPolygonPtr = HoppyP.flip ($) . toQPolygonConst++class (M218.QVectorQPointConstPtr this) => QPolygonConstPtr this where+  toQPolygonConst :: this -> QPolygonConst++boundingRect :: (QPolygonValue this) => (this) {- ^ this -} -> (HoppyP.IO HRect.HRect)+boundingRect arg'1 =+  withQPolygonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<+  (boundingRect' arg'1')++containsPoint :: (QPolygonValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtFillRule) -> (HoppyP.IO HoppyP.Bool)+containsPoint arg'1 arg'2 arg'3 =+  withQPolygonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (containsPoint' arg'1' arg'2' arg'3')++intersected :: (QPolygonValue this, QPolygonValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPolygon)+intersected arg'1 arg'2 =+  withQPolygonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPolygonPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QPolygonConst) =<<+  (intersected' arg'1' arg'2')++point :: (QPolygonValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HPoint.HPoint)+point arg'1 arg'2 =+  withQPolygonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (point' arg'1' arg'2')++subtracted :: (QPolygonValue this, QPolygonValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPolygon)+subtracted arg'1 arg'2 =+  withQPolygonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPolygonPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QPolygonConst) =<<+  (subtracted' arg'1' arg'2')++translatedByRaw :: (QPolygonValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QPolygon)+translatedByRaw arg'1 arg'2 arg'3 =+  withQPolygonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QPolygonConst) =<<+  (translatedByRaw' arg'1' arg'2' arg'3')++translatedByPoint :: (QPolygonValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPolygon)+translatedByPoint arg'1 arg'2 =+  withQPolygonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QPolygonConst) =<<+  (translatedByPoint' arg'1' arg'2')++united :: (QPolygonValue this, QPolygonValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPolygon)+united arg'1 arg'2 =+  withQPolygonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPolygonPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QPolygonConst) =<<+  (united' arg'1' arg'2')++eQ :: (QPolygonValue this, QPolygonValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQPolygonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPolygonPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QPolygonValue this, QPolygonValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQPolygonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPolygonPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QPolygonConstPtr this, M218.QVectorQPointPtr this) => QPolygonPtr this where+  toQPolygon :: this -> QPolygon++putPoints :: (QPolygonPtr this, QPolygonValue arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.Int) -> (HoppyP.IO ())+putPoints arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQPolygon arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  withQPolygonPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'5 >>= \arg'5' ->+  (putPoints' arg'1' arg'2' arg'3' arg'4' arg'5')++setPoint :: (QPolygonPtr this, M114.QPointValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+setPoint arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQPolygon arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M114.withQPointPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (setPoint' arg'1' arg'2' arg'3')++swap :: (QPolygonPtr this, QPolygonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPolygon arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQPolygon arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++translateByRaw :: (QPolygonPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+translateByRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQPolygon arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (translateByRaw' arg'1' arg'2' arg'3')++translateByPoint :: (QPolygonPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+translateByPoint arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPolygon arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (translateByPoint' arg'1' arg'2')++aSSIGN :: (QPolygonPtr this, QPolygonValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPolygon)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPolygon arg'1) $ \arg'1' ->+  withQPolygonPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QPolygon+  (aSSIGN' arg'1' arg'2')++data QPolygonConst =+    QPolygonConst (HoppyF.Ptr QPolygonConst)+  | QPolygonConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPolygonConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPolygonConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPolygonConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPolygonToConst :: QPolygon -> QPolygonConst+castQPolygonToConst (QPolygon ptr') = QPolygonConst $ HoppyF.castPtr ptr'+castQPolygonToConst (QPolygonGc fptr' ptr') = QPolygonConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPolygonConst where+  nullptr = QPolygonConst HoppyF.nullPtr+  +  withCppPtr (QPolygonConst ptr') f' = f' ptr'+  withCppPtr (QPolygonConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPolygonConst ptr') = ptr'+  toPtr (QPolygonConstGc _ ptr') = ptr'+  +  touchCppPtr (QPolygonConst _) = HoppyP.return ()+  touchCppPtr (QPolygonConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPolygonConst where+  delete (QPolygonConst ptr') = delete'QPolygon ptr'+  delete (QPolygonConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPolygonConst", " object."]+  +  toGc this'@(QPolygonConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPolygonConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPolygon :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPolygonConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPolygonConst QPolygon where copy = newCopy++instance QPolygonConstPtr QPolygonConst where+  toQPolygonConst = HoppyP.id++instance M218.QVectorQPointConstPtr QPolygonConst where+  toQVectorQPointConst (QPolygonConst ptr') = M218.QVectorQPointConst $ castQPolygonToQVectorQPoint ptr'+  toQVectorQPointConst (QPolygonConstGc fptr' ptr') = M218.QVectorQPointConstGc fptr' $ castQPolygonToQVectorQPoint ptr'++data QPolygon =+    QPolygon (HoppyF.Ptr QPolygon)+  | QPolygonGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPolygon)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPolygon where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPolygon where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPolygonToNonconst :: QPolygonConst -> QPolygon+castQPolygonToNonconst (QPolygonConst ptr') = QPolygon $ HoppyF.castPtr ptr'+castQPolygonToNonconst (QPolygonConstGc fptr' ptr') = QPolygonGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPolygon where+  nullptr = QPolygon HoppyF.nullPtr+  +  withCppPtr (QPolygon ptr') f' = f' ptr'+  withCppPtr (QPolygonGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPolygon ptr') = ptr'+  toPtr (QPolygonGc _ ptr') = ptr'+  +  touchCppPtr (QPolygon _) = HoppyP.return ()+  touchCppPtr (QPolygonGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPolygon where+  delete (QPolygon ptr') = delete'QPolygon $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPolygonConst)+  delete (QPolygonGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPolygon", " object."]+  +  toGc this'@(QPolygon ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPolygonGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPolygon :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPolygonGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPolygon QPolygon where copy = newCopy++instance QPolygonConstPtr QPolygon where+  toQPolygonConst (QPolygon ptr') = QPolygonConst $ (HoppyF.castPtr :: HoppyF.Ptr QPolygon -> HoppyF.Ptr QPolygonConst) ptr'+  toQPolygonConst (QPolygonGc fptr' ptr') = QPolygonConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPolygon -> HoppyF.Ptr QPolygonConst) ptr'++instance QPolygonPtr QPolygon where+  toQPolygon = HoppyP.id++instance M218.QVectorQPointConstPtr QPolygon where+  toQVectorQPointConst (QPolygon ptr') = M218.QVectorQPointConst $ castQPolygonToQVectorQPoint $ (HoppyF.castPtr :: HoppyF.Ptr QPolygon -> HoppyF.Ptr QPolygonConst) ptr'+  toQVectorQPointConst (QPolygonGc fptr' ptr') = M218.QVectorQPointConstGc fptr' $ castQPolygonToQVectorQPoint $ (HoppyF.castPtr :: HoppyF.Ptr QPolygon -> HoppyF.Ptr QPolygonConst) ptr'++instance M218.QVectorQPointPtr QPolygon where+  toQVectorQPoint (QPolygon ptr') = M218.QVectorQPoint $ (HoppyF.castPtr :: HoppyF.Ptr M218.QVectorQPointConst -> HoppyF.Ptr M218.QVectorQPoint) $ castQPolygonToQVectorQPoint $ (HoppyF.castPtr :: HoppyF.Ptr QPolygon -> HoppyF.Ptr QPolygonConst) ptr'+  toQVectorQPoint (QPolygonGc fptr' ptr') = M218.QVectorQPointGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M218.QVectorQPointConst -> HoppyF.Ptr M218.QVectorQPoint) $ castQPolygonToQVectorQPoint $ (HoppyF.castPtr :: HoppyF.Ptr QPolygon -> HoppyF.Ptr QPolygonConst) ptr'++new :: (HoppyP.IO QPolygon)+new =+  HoppyP.fmap QPolygon+  (new')++newWithSize :: (HoppyP.Int) -> (HoppyP.IO QPolygon)+newWithSize arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QPolygon+  (newWithSize' arg'1')++newWithPoints :: (M218.QVectorQPointValue arg'1) => (arg'1) -> (HoppyP.IO QPolygon)+newWithPoints arg'1 =+  M218.withQVectorQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPolygon+  (newWithPoints' arg'1')++newWithRectangle :: (M122.QRectValue arg'1) => (arg'1) -> (HoppyP.Bool) -> (HoppyP.IO QPolygon)+newWithRectangle arg'1 arg'2 =+  M122.withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QPolygon+  (newWithRectangle' arg'1' arg'2')++newCopy :: (QPolygonValue arg'1) => (arg'1) -> (HoppyP.IO QPolygon)+newCopy arg'1 =+  withQPolygonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPolygon+  (newCopy' arg'1')++class QPolygonSuper a where+  downToQPolygon :: a -> QPolygon+++class QPolygonSuperConst a where+  downToQPolygonConst :: a -> QPolygonConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPolygon)) QPolygon where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QPolygonValue a => HoppyFHR.Assignable QPolygon a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPolygon)) QPolygon where+  decode = HoppyP.fmap QPolygon . HoppyF.peek++instance HoppyFHR.Decodable QPolygon (QPolygon) where+  decode = HoppyFHR.decode . toQPolygonConst++instance HoppyFHR.Decodable QPolygonConst (QPolygon) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Gui/QPolygonF.hs view
@@ -0,0 +1,360 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QPolygonF (+  castQPolygonFToQVectorQPointF,+  QPolygonFValue (..),+  QPolygonFConstPtr (..),+  boundingRect,+  containsPoint,+  intersected,+  isClosed,+  subtracted,+  toPolygon,+  translatedByRaw,+  translatedByPoint,+  united,+  eQ,+  nE,+  QPolygonFPtr (..),+  swap,+  translateByRaw,+  translateByPoint,+  aSSIGN,+  QPolygonFConst (..),+  castQPolygonFToConst,+  QPolygonF (..),+  castQPolygonFToNonconst,+  new,+  newWithSize,+  newWithPoints,+  newWithPolygon,+  newWithRectangle,+  newCopy,+  QPolygonFSuper (..),+  QPolygonFSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QPointF as M116+import qualified Graphics.UI.Qtah.Generated.Core.QRectF as M124+import qualified Graphics.UI.Qtah.Generated.Core.QVector.QPointF as M220+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Gui.QPolygon as M318+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QPolygonF_new" new' ::  HoppyP.IO (HoppyF.Ptr QPolygonF)+foreign import ccall "genpop__QPolygonF_newWithSize" newWithSize' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPolygonF)+foreign import ccall "genpop__QPolygonF_newWithPoints" newWithPoints' ::  HoppyF.Ptr M220.QVectorQPointFConst -> HoppyP.IO (HoppyF.Ptr QPolygonF)+foreign import ccall "genpop__QPolygonF_newWithPolygon" newWithPolygon' ::  HoppyF.Ptr M318.QPolygonConst -> HoppyP.IO (HoppyF.Ptr QPolygonF)+foreign import ccall "genpop__QPolygonF_newWithRectangle" newWithRectangle' ::  HoppyF.Ptr M124.QRectFConst -> HoppyP.IO (HoppyF.Ptr QPolygonF)+foreign import ccall "genpop__QPolygonF_newCopy" newCopy' ::  HoppyF.Ptr QPolygonFConst -> HoppyP.IO (HoppyF.Ptr QPolygonF)+foreign import ccall "genpop__QPolygonF_boundingRect" boundingRect' ::  HoppyF.Ptr QPolygonFConst -> HoppyP.IO (HoppyF.Ptr M124.QRectFConst)+foreign import ccall "genpop__QPolygonF_containsPoint" containsPoint' ::  HoppyF.Ptr QPolygonFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPolygonF_intersected" intersected' ::  HoppyF.Ptr QPolygonFConst -> HoppyF.Ptr QPolygonFConst -> HoppyP.IO (HoppyF.Ptr QPolygonFConst)+foreign import ccall "genpop__QPolygonF_isClosed" isClosed' ::  HoppyF.Ptr QPolygonFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPolygonF_subtracted" subtracted' ::  HoppyF.Ptr QPolygonFConst -> HoppyF.Ptr QPolygonFConst -> HoppyP.IO (HoppyF.Ptr QPolygonFConst)+foreign import ccall "genpop__QPolygonF_swap" swap' ::  HoppyF.Ptr QPolygonF -> HoppyF.Ptr QPolygonF -> HoppyP.IO ()+foreign import ccall "genpop__QPolygonF_toPolygon" toPolygon' ::  HoppyF.Ptr QPolygonFConst -> HoppyP.IO (HoppyF.Ptr M318.QPolygonConst)+foreign import ccall "genpop__QPolygonF_translateByRaw" translateByRaw' ::  HoppyF.Ptr QPolygonF -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QPolygonF_translateByPoint" translateByPoint' ::  HoppyF.Ptr QPolygonF -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QPolygonF_translatedByRaw" translatedByRaw' ::  HoppyF.Ptr QPolygonFConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QPolygonFConst)+foreign import ccall "genpop__QPolygonF_translatedByPoint" translatedByPoint' ::  HoppyF.Ptr QPolygonFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO (HoppyF.Ptr QPolygonFConst)+foreign import ccall "genpop__QPolygonF_united" united' ::  HoppyF.Ptr QPolygonFConst -> HoppyF.Ptr QPolygonFConst -> HoppyP.IO (HoppyF.Ptr QPolygonFConst)+foreign import ccall "genpop__QPolygonF_EQ" eQ' ::  HoppyF.Ptr QPolygonFConst -> HoppyF.Ptr QPolygonFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPolygonF_NE" nE' ::  HoppyF.Ptr QPolygonFConst -> HoppyF.Ptr QPolygonFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QPolygonF_ASSIGN" aSSIGN' ::  HoppyF.Ptr QPolygonF -> HoppyF.Ptr QPolygonFConst -> HoppyP.IO (HoppyF.Ptr QPolygonF)+foreign import ccall "gencast__QPolygonF__QVectorQPointF" castQPolygonFToQVectorQPointF :: HoppyF.Ptr QPolygonFConst -> HoppyF.Ptr M220.QVectorQPointFConst+foreign import ccall "gendel__QPolygonF" delete'QPolygonF :: HoppyF.Ptr QPolygonFConst -> HoppyP.IO ()+foreign import ccall "&gendel__QPolygonF" deletePtr'QPolygonF :: HoppyF.FunPtr (HoppyF.Ptr QPolygonFConst -> HoppyP.IO ())++class QPolygonFValue a where+  withQPolygonFPtr :: a -> (QPolygonFConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QPolygonFConstPtr a => QPolygonFValue a where+  withQPolygonFPtr = HoppyP.flip ($) . toQPolygonFConst++class (M220.QVectorQPointFConstPtr this) => QPolygonFConstPtr this where+  toQPolygonFConst :: this -> QPolygonFConst++boundingRect :: (QPolygonFValue this) => (this) {- ^ this -} -> (HoppyP.IO M124.QRectF)+boundingRect arg'1 =+  withQPolygonFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M124.QRectFConst) =<<+  (boundingRect' arg'1')++containsPoint :: (QPolygonFValue this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtFillRule) -> (HoppyP.IO HoppyP.Bool)+containsPoint arg'1 arg'2 arg'3 =+  withQPolygonFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (containsPoint' arg'1' arg'2' arg'3')++intersected :: (QPolygonFValue this, QPolygonFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPolygonF)+intersected arg'1 arg'2 =+  withQPolygonFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPolygonFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QPolygonFConst) =<<+  (intersected' arg'1' arg'2')++isClosed :: (QPolygonFValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isClosed arg'1 =+  withQPolygonFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isClosed' arg'1')++subtracted :: (QPolygonFValue this, QPolygonFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPolygonF)+subtracted arg'1 arg'2 =+  withQPolygonFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPolygonFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QPolygonFConst) =<<+  (subtracted' arg'1' arg'2')++toPolygon :: (QPolygonFValue this) => (this) {- ^ this -} -> (HoppyP.IO M318.QPolygon)+toPolygon arg'1 =+  withQPolygonFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M318.QPolygonConst) =<<+  (toPolygon' arg'1')++translatedByRaw :: (QPolygonFValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QPolygonF)+translatedByRaw arg'1 arg'2 arg'3 =+  withQPolygonFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QPolygonFConst) =<<+  (translatedByRaw' arg'1' arg'2' arg'3')++translatedByPoint :: (QPolygonFValue this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPolygonF)+translatedByPoint arg'1 arg'2 =+  withQPolygonFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QPolygonFConst) =<<+  (translatedByPoint' arg'1' arg'2')++united :: (QPolygonFValue this, QPolygonFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPolygonF)+united arg'1 arg'2 =+  withQPolygonFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPolygonFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QPolygonFConst) =<<+  (united' arg'1' arg'2')++eQ :: (QPolygonFValue this, QPolygonFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQPolygonFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPolygonFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QPolygonFValue this, QPolygonFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQPolygonFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQPolygonFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QPolygonFConstPtr this, M220.QVectorQPointFPtr this) => QPolygonFPtr this where+  toQPolygonF :: this -> QPolygonF++swap :: (QPolygonFPtr this, QPolygonFPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPolygonF arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQPolygonF arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++translateByRaw :: (QPolygonFPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+translateByRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQPolygonF arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (translateByRaw' arg'1' arg'2' arg'3')++translateByPoint :: (QPolygonFPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+translateByPoint arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPolygonF arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (translateByPoint' arg'1' arg'2')++aSSIGN :: (QPolygonFPtr this, QPolygonFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QPolygonF)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQPolygonF arg'1) $ \arg'1' ->+  withQPolygonFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QPolygonF+  (aSSIGN' arg'1' arg'2')++data QPolygonFConst =+    QPolygonFConst (HoppyF.Ptr QPolygonFConst)+  | QPolygonFConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPolygonFConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPolygonFConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPolygonFConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPolygonFToConst :: QPolygonF -> QPolygonFConst+castQPolygonFToConst (QPolygonF ptr') = QPolygonFConst $ HoppyF.castPtr ptr'+castQPolygonFToConst (QPolygonFGc fptr' ptr') = QPolygonFConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPolygonFConst where+  nullptr = QPolygonFConst HoppyF.nullPtr+  +  withCppPtr (QPolygonFConst ptr') f' = f' ptr'+  withCppPtr (QPolygonFConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPolygonFConst ptr') = ptr'+  toPtr (QPolygonFConstGc _ ptr') = ptr'+  +  touchCppPtr (QPolygonFConst _) = HoppyP.return ()+  touchCppPtr (QPolygonFConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPolygonFConst where+  delete (QPolygonFConst ptr') = delete'QPolygonF ptr'+  delete (QPolygonFConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPolygonFConst", " object."]+  +  toGc this'@(QPolygonFConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPolygonFConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPolygonF :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPolygonFConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPolygonFConst QPolygonF where copy = newCopy++instance QPolygonFConstPtr QPolygonFConst where+  toQPolygonFConst = HoppyP.id++instance M220.QVectorQPointFConstPtr QPolygonFConst where+  toQVectorQPointFConst (QPolygonFConst ptr') = M220.QVectorQPointFConst $ castQPolygonFToQVectorQPointF ptr'+  toQVectorQPointFConst (QPolygonFConstGc fptr' ptr') = M220.QVectorQPointFConstGc fptr' $ castQPolygonFToQVectorQPointF ptr'++data QPolygonF =+    QPolygonF (HoppyF.Ptr QPolygonF)+  | QPolygonFGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPolygonF)+  deriving (HoppyP.Show)++instance HoppyP.Eq QPolygonF where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QPolygonF where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQPolygonFToNonconst :: QPolygonFConst -> QPolygonF+castQPolygonFToNonconst (QPolygonFConst ptr') = QPolygonF $ HoppyF.castPtr ptr'+castQPolygonFToNonconst (QPolygonFConstGc fptr' ptr') = QPolygonFGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QPolygonF where+  nullptr = QPolygonF HoppyF.nullPtr+  +  withCppPtr (QPolygonF ptr') f' = f' ptr'+  withCppPtr (QPolygonFGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QPolygonF ptr') = ptr'+  toPtr (QPolygonFGc _ ptr') = ptr'+  +  touchCppPtr (QPolygonF _) = HoppyP.return ()+  touchCppPtr (QPolygonFGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QPolygonF where+  delete (QPolygonF ptr') = delete'QPolygonF $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPolygonFConst)+  delete (QPolygonFGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPolygonF", " object."]+  +  toGc this'@(QPolygonF ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPolygonFGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPolygonF :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QPolygonFGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QPolygonF QPolygonF where copy = newCopy++instance QPolygonFConstPtr QPolygonF where+  toQPolygonFConst (QPolygonF ptr') = QPolygonFConst $ (HoppyF.castPtr :: HoppyF.Ptr QPolygonF -> HoppyF.Ptr QPolygonFConst) ptr'+  toQPolygonFConst (QPolygonFGc fptr' ptr') = QPolygonFConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPolygonF -> HoppyF.Ptr QPolygonFConst) ptr'++instance QPolygonFPtr QPolygonF where+  toQPolygonF = HoppyP.id++instance M220.QVectorQPointFConstPtr QPolygonF where+  toQVectorQPointFConst (QPolygonF ptr') = M220.QVectorQPointFConst $ castQPolygonFToQVectorQPointF $ (HoppyF.castPtr :: HoppyF.Ptr QPolygonF -> HoppyF.Ptr QPolygonFConst) ptr'+  toQVectorQPointFConst (QPolygonFGc fptr' ptr') = M220.QVectorQPointFConstGc fptr' $ castQPolygonFToQVectorQPointF $ (HoppyF.castPtr :: HoppyF.Ptr QPolygonF -> HoppyF.Ptr QPolygonFConst) ptr'++instance M220.QVectorQPointFPtr QPolygonF where+  toQVectorQPointF (QPolygonF ptr') = M220.QVectorQPointF $ (HoppyF.castPtr :: HoppyF.Ptr M220.QVectorQPointFConst -> HoppyF.Ptr M220.QVectorQPointF) $ castQPolygonFToQVectorQPointF $ (HoppyF.castPtr :: HoppyF.Ptr QPolygonF -> HoppyF.Ptr QPolygonFConst) ptr'+  toQVectorQPointF (QPolygonFGc fptr' ptr') = M220.QVectorQPointFGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M220.QVectorQPointFConst -> HoppyF.Ptr M220.QVectorQPointF) $ castQPolygonFToQVectorQPointF $ (HoppyF.castPtr :: HoppyF.Ptr QPolygonF -> HoppyF.Ptr QPolygonFConst) ptr'++new :: (HoppyP.IO QPolygonF)+new =+  HoppyP.fmap QPolygonF+  (new')++newWithSize :: (HoppyP.Int) -> (HoppyP.IO QPolygonF)+newWithSize arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QPolygonF+  (newWithSize' arg'1')++newWithPoints :: (M220.QVectorQPointFValue arg'1) => (arg'1) -> (HoppyP.IO QPolygonF)+newWithPoints arg'1 =+  M220.withQVectorQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPolygonF+  (newWithPoints' arg'1')++newWithPolygon :: (M318.QPolygonValue arg'1) => (arg'1) -> (HoppyP.IO QPolygonF)+newWithPolygon arg'1 =+  M318.withQPolygonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPolygonF+  (newWithPolygon' arg'1')++newWithRectangle :: (M124.QRectFValue arg'1) => (arg'1) -> (HoppyP.IO QPolygonF)+newWithRectangle arg'1 =+  M124.withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPolygonF+  (newWithRectangle' arg'1')++newCopy :: (QPolygonFValue arg'1) => (arg'1) -> (HoppyP.IO QPolygonF)+newCopy arg'1 =+  withQPolygonFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QPolygonF+  (newCopy' arg'1')++class QPolygonFSuper a where+  downToQPolygonF :: a -> QPolygonF+++class QPolygonFSuperConst a where+  downToQPolygonFConst :: a -> QPolygonFConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPolygonF)) QPolygonF where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QPolygonFValue a => HoppyFHR.Assignable QPolygonF a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPolygonF)) QPolygonF where+  decode = HoppyP.fmap QPolygonF . HoppyF.peek++instance HoppyFHR.Decodable QPolygonF (QPolygonF) where+  decode = HoppyFHR.decode . toQPolygonFConst++instance HoppyFHR.Decodable QPolygonFConst (QPolygonF) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Gui/QRasterWindow.hs view
@@ -0,0 +1,276 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QRasterWindow (+  castQRasterWindowToQPaintDeviceWindow,+  castQPaintDeviceWindowToQRasterWindow,+  castQRasterWindowToQWindow,+  castQWindowToQRasterWindow,+  castQRasterWindowToQObject,+  castQObjectToQRasterWindow,+  castQRasterWindowToQSurface,+  castQSurfaceToQRasterWindow,+  castQRasterWindowToQPaintDevice,+  castQPaintDeviceToQRasterWindow,+  QRasterWindowValue (..),+  QRasterWindowConstPtr (..),+  QRasterWindowPtr (..),+  QRasterWindowConst (..),+  castQRasterWindowToConst,+  QRasterWindow (..),+  castQRasterWindowToNonconst,+  new,+  newWithParent,+  QRasterWindowSuper (..),+  QRasterWindowSuperConst (..),+  ) 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.Gui.QPaintDevice as M304+import qualified Graphics.UI.Qtah.Generated.Gui.QPaintDeviceWindow as M306+import qualified Graphics.UI.Qtah.Generated.Gui.QSurface as M334+import qualified Graphics.UI.Qtah.Generated.Gui.QWindow as M342+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QRasterWindow_new" new' ::  HoppyP.IO (HoppyF.Ptr QRasterWindow)+foreign import ccall "genpop__QRasterWindow_newWithParent" newWithParent' ::  HoppyF.Ptr M342.QWindow -> HoppyP.IO (HoppyF.Ptr QRasterWindow)+foreign import ccall "gencast__QRasterWindow__QPaintDeviceWindow" castQRasterWindowToQPaintDeviceWindow :: HoppyF.Ptr QRasterWindowConst -> HoppyF.Ptr M306.QPaintDeviceWindowConst+foreign import ccall "gencast__QPaintDeviceWindow__QRasterWindow" castQPaintDeviceWindowToQRasterWindow :: HoppyF.Ptr M306.QPaintDeviceWindowConst -> HoppyF.Ptr QRasterWindowConst+foreign import ccall "gencast__QRasterWindow__QWindow" castQRasterWindowToQWindow :: HoppyF.Ptr QRasterWindowConst -> HoppyF.Ptr M342.QWindowConst+foreign import ccall "gencast__QWindow__QRasterWindow" castQWindowToQRasterWindow :: HoppyF.Ptr M342.QWindowConst -> HoppyF.Ptr QRasterWindowConst+foreign import ccall "gencast__QRasterWindow__QObject" castQRasterWindowToQObject :: HoppyF.Ptr QRasterWindowConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QRasterWindow" castQObjectToQRasterWindow :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QRasterWindowConst+foreign import ccall "gencast__QRasterWindow__QSurface" castQRasterWindowToQSurface :: HoppyF.Ptr QRasterWindowConst -> HoppyF.Ptr M334.QSurfaceConst+foreign import ccall "gencast__QSurface__QRasterWindow" castQSurfaceToQRasterWindow :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr QRasterWindowConst+foreign import ccall "gencast__QRasterWindow__QPaintDevice" castQRasterWindowToQPaintDevice :: HoppyF.Ptr QRasterWindowConst -> HoppyF.Ptr M304.QPaintDeviceConst+foreign import ccall "gencast__QPaintDevice__QRasterWindow" castQPaintDeviceToQRasterWindow :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr QRasterWindowConst+foreign import ccall "gendel__QRasterWindow" delete'QRasterWindow :: HoppyF.Ptr QRasterWindowConst -> HoppyP.IO ()+foreign import ccall "&gendel__QRasterWindow" deletePtr'QRasterWindow :: HoppyF.FunPtr (HoppyF.Ptr QRasterWindowConst -> HoppyP.IO ())++class QRasterWindowValue a where+  withQRasterWindowPtr :: a -> (QRasterWindowConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QRasterWindowConstPtr a => QRasterWindowValue a where+  withQRasterWindowPtr = HoppyP.flip ($) . toQRasterWindowConst++class (M306.QPaintDeviceWindowConstPtr this) => QRasterWindowConstPtr this where+  toQRasterWindowConst :: this -> QRasterWindowConst++class (QRasterWindowConstPtr this, M306.QPaintDeviceWindowPtr this) => QRasterWindowPtr this where+  toQRasterWindow :: this -> QRasterWindow++data QRasterWindowConst =+    QRasterWindowConst (HoppyF.Ptr QRasterWindowConst)+  | QRasterWindowConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QRasterWindowConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QRasterWindowConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QRasterWindowConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQRasterWindowToConst :: QRasterWindow -> QRasterWindowConst+castQRasterWindowToConst (QRasterWindow ptr') = QRasterWindowConst $ HoppyF.castPtr ptr'+castQRasterWindowToConst (QRasterWindowGc fptr' ptr') = QRasterWindowConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QRasterWindowConst where+  nullptr = QRasterWindowConst HoppyF.nullPtr+  +  withCppPtr (QRasterWindowConst ptr') f' = f' ptr'+  withCppPtr (QRasterWindowConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QRasterWindowConst ptr') = ptr'+  toPtr (QRasterWindowConstGc _ ptr') = ptr'+  +  touchCppPtr (QRasterWindowConst _) = HoppyP.return ()+  touchCppPtr (QRasterWindowConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QRasterWindowConst where+  delete (QRasterWindowConst ptr') = delete'QRasterWindow ptr'+  delete (QRasterWindowConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QRasterWindowConst", " object."]+  +  toGc this'@(QRasterWindowConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QRasterWindowConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QRasterWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QRasterWindowConstGc {}) = HoppyP.return this'++instance QRasterWindowConstPtr QRasterWindowConst where+  toQRasterWindowConst = HoppyP.id++instance M306.QPaintDeviceWindowConstPtr QRasterWindowConst where+  toQPaintDeviceWindowConst (QRasterWindowConst ptr') = M306.QPaintDeviceWindowConst $ castQRasterWindowToQPaintDeviceWindow ptr'+  toQPaintDeviceWindowConst (QRasterWindowConstGc fptr' ptr') = M306.QPaintDeviceWindowConstGc fptr' $ castQRasterWindowToQPaintDeviceWindow ptr'++instance M342.QWindowConstPtr QRasterWindowConst where+  toQWindowConst (QRasterWindowConst ptr') = M342.QWindowConst $ castQRasterWindowToQWindow ptr'+  toQWindowConst (QRasterWindowConstGc fptr' ptr') = M342.QWindowConstGc fptr' $ castQRasterWindowToQWindow ptr'++instance M94.QObjectConstPtr QRasterWindowConst where+  toQObjectConst (QRasterWindowConst ptr') = M94.QObjectConst $ castQRasterWindowToQObject ptr'+  toQObjectConst (QRasterWindowConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQRasterWindowToQObject ptr'++instance M334.QSurfaceConstPtr QRasterWindowConst where+  toQSurfaceConst (QRasterWindowConst ptr') = M334.QSurfaceConst $ castQRasterWindowToQSurface ptr'+  toQSurfaceConst (QRasterWindowConstGc fptr' ptr') = M334.QSurfaceConstGc fptr' $ castQRasterWindowToQSurface ptr'++instance M304.QPaintDeviceConstPtr QRasterWindowConst where+  toQPaintDeviceConst (QRasterWindowConst ptr') = M304.QPaintDeviceConst $ castQRasterWindowToQPaintDevice ptr'+  toQPaintDeviceConst (QRasterWindowConstGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQRasterWindowToQPaintDevice ptr'++data QRasterWindow =+    QRasterWindow (HoppyF.Ptr QRasterWindow)+  | QRasterWindowGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QRasterWindow)+  deriving (HoppyP.Show)++instance HoppyP.Eq QRasterWindow where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QRasterWindow where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQRasterWindowToNonconst :: QRasterWindowConst -> QRasterWindow+castQRasterWindowToNonconst (QRasterWindowConst ptr') = QRasterWindow $ HoppyF.castPtr ptr'+castQRasterWindowToNonconst (QRasterWindowConstGc fptr' ptr') = QRasterWindowGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QRasterWindow where+  nullptr = QRasterWindow HoppyF.nullPtr+  +  withCppPtr (QRasterWindow ptr') f' = f' ptr'+  withCppPtr (QRasterWindowGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QRasterWindow ptr') = ptr'+  toPtr (QRasterWindowGc _ ptr') = ptr'+  +  touchCppPtr (QRasterWindow _) = HoppyP.return ()+  touchCppPtr (QRasterWindowGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QRasterWindow where+  delete (QRasterWindow ptr') = delete'QRasterWindow $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QRasterWindowConst)+  delete (QRasterWindowGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QRasterWindow", " object."]+  +  toGc this'@(QRasterWindow ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QRasterWindowGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QRasterWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QRasterWindowGc {}) = HoppyP.return this'++instance QRasterWindowConstPtr QRasterWindow where+  toQRasterWindowConst (QRasterWindow ptr') = QRasterWindowConst $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'+  toQRasterWindowConst (QRasterWindowGc fptr' ptr') = QRasterWindowConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'++instance QRasterWindowPtr QRasterWindow where+  toQRasterWindow = HoppyP.id++instance M306.QPaintDeviceWindowConstPtr QRasterWindow where+  toQPaintDeviceWindowConst (QRasterWindow ptr') = M306.QPaintDeviceWindowConst $ castQRasterWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'+  toQPaintDeviceWindowConst (QRasterWindowGc fptr' ptr') = M306.QPaintDeviceWindowConstGc fptr' $ castQRasterWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'++instance M306.QPaintDeviceWindowPtr QRasterWindow where+  toQPaintDeviceWindow (QRasterWindow ptr') = M306.QPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr M306.QPaintDeviceWindowConst -> HoppyF.Ptr M306.QPaintDeviceWindow) $ castQRasterWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'+  toQPaintDeviceWindow (QRasterWindowGc fptr' ptr') = M306.QPaintDeviceWindowGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M306.QPaintDeviceWindowConst -> HoppyF.Ptr M306.QPaintDeviceWindow) $ castQRasterWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'++instance M342.QWindowConstPtr QRasterWindow where+  toQWindowConst (QRasterWindow ptr') = M342.QWindowConst $ castQRasterWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'+  toQWindowConst (QRasterWindowGc fptr' ptr') = M342.QWindowConstGc fptr' $ castQRasterWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'++instance M342.QWindowPtr QRasterWindow where+  toQWindow (QRasterWindow ptr') = M342.QWindow $ (HoppyF.castPtr :: HoppyF.Ptr M342.QWindowConst -> HoppyF.Ptr M342.QWindow) $ castQRasterWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'+  toQWindow (QRasterWindowGc fptr' ptr') = M342.QWindowGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M342.QWindowConst -> HoppyF.Ptr M342.QWindow) $ castQRasterWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'++instance M94.QObjectConstPtr QRasterWindow where+  toQObjectConst (QRasterWindow ptr') = M94.QObjectConst $ castQRasterWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'+  toQObjectConst (QRasterWindowGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQRasterWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'++instance M94.QObjectPtr QRasterWindow where+  toQObject (QRasterWindow ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQRasterWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'+  toQObject (QRasterWindowGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQRasterWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'++instance M334.QSurfaceConstPtr QRasterWindow where+  toQSurfaceConst (QRasterWindow ptr') = M334.QSurfaceConst $ castQRasterWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'+  toQSurfaceConst (QRasterWindowGc fptr' ptr') = M334.QSurfaceConstGc fptr' $ castQRasterWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'++instance M334.QSurfacePtr QRasterWindow where+  toQSurface (QRasterWindow ptr') = M334.QSurface $ (HoppyF.castPtr :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr M334.QSurface) $ castQRasterWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'+  toQSurface (QRasterWindowGc fptr' ptr') = M334.QSurfaceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr M334.QSurface) $ castQRasterWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'++instance M304.QPaintDeviceConstPtr QRasterWindow where+  toQPaintDeviceConst (QRasterWindow ptr') = M304.QPaintDeviceConst $ castQRasterWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'+  toQPaintDeviceConst (QRasterWindowGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQRasterWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'++instance M304.QPaintDevicePtr QRasterWindow where+  toQPaintDevice (QRasterWindow ptr') = M304.QPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQRasterWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'+  toQPaintDevice (QRasterWindowGc fptr' ptr') = M304.QPaintDeviceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQRasterWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QRasterWindow -> HoppyF.Ptr QRasterWindowConst) ptr'++new :: (HoppyP.IO QRasterWindow)+new =+  HoppyP.fmap QRasterWindow+  (new')++newWithParent :: (M342.QWindowPtr arg'1) => (arg'1) -> (HoppyP.IO QRasterWindow)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M342.toQWindow arg'1) $ \arg'1' ->+  HoppyP.fmap QRasterWindow+  (newWithParent' arg'1')++class QRasterWindowSuper a where+  downToQRasterWindow :: a -> QRasterWindow++instance QRasterWindowSuper M306.QPaintDeviceWindow where+  downToQRasterWindow = castQRasterWindowToNonconst . cast' . M306.castQPaintDeviceWindowToConst+    where+      cast' (M306.QPaintDeviceWindowConst ptr') = QRasterWindowConst $ castQPaintDeviceWindowToQRasterWindow ptr'+      cast' (M306.QPaintDeviceWindowConstGc fptr' ptr') = QRasterWindowConstGc fptr' $ castQPaintDeviceWindowToQRasterWindow ptr'+instance QRasterWindowSuper M342.QWindow where+  downToQRasterWindow = castQRasterWindowToNonconst . cast' . M342.castQWindowToConst+    where+      cast' (M342.QWindowConst ptr') = QRasterWindowConst $ castQWindowToQRasterWindow ptr'+      cast' (M342.QWindowConstGc fptr' ptr') = QRasterWindowConstGc fptr' $ castQWindowToQRasterWindow ptr'+instance QRasterWindowSuper M94.QObject where+  downToQRasterWindow = castQRasterWindowToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QRasterWindowConst $ castQObjectToQRasterWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QRasterWindowConstGc fptr' $ castQObjectToQRasterWindow ptr'+instance QRasterWindowSuper M334.QSurface where+  downToQRasterWindow = castQRasterWindowToNonconst . cast' . M334.castQSurfaceToConst+    where+      cast' (M334.QSurfaceConst ptr') = QRasterWindowConst $ castQSurfaceToQRasterWindow ptr'+      cast' (M334.QSurfaceConstGc fptr' ptr') = QRasterWindowConstGc fptr' $ castQSurfaceToQRasterWindow ptr'+instance QRasterWindowSuper M304.QPaintDevice where+  downToQRasterWindow = castQRasterWindowToNonconst . cast' . M304.castQPaintDeviceToConst+    where+      cast' (M304.QPaintDeviceConst ptr') = QRasterWindowConst $ castQPaintDeviceToQRasterWindow ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QRasterWindowConstGc fptr' $ castQPaintDeviceToQRasterWindow ptr'++class QRasterWindowSuperConst a where+  downToQRasterWindowConst :: a -> QRasterWindowConst++instance QRasterWindowSuperConst M306.QPaintDeviceWindowConst where+  downToQRasterWindowConst = cast'+    where+      cast' (M306.QPaintDeviceWindowConst ptr') = QRasterWindowConst $ castQPaintDeviceWindowToQRasterWindow ptr'+      cast' (M306.QPaintDeviceWindowConstGc fptr' ptr') = QRasterWindowConstGc fptr' $ castQPaintDeviceWindowToQRasterWindow ptr'+instance QRasterWindowSuperConst M342.QWindowConst where+  downToQRasterWindowConst = cast'+    where+      cast' (M342.QWindowConst ptr') = QRasterWindowConst $ castQWindowToQRasterWindow ptr'+      cast' (M342.QWindowConstGc fptr' ptr') = QRasterWindowConstGc fptr' $ castQWindowToQRasterWindow ptr'+instance QRasterWindowSuperConst M94.QObjectConst where+  downToQRasterWindowConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QRasterWindowConst $ castQObjectToQRasterWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QRasterWindowConstGc fptr' $ castQObjectToQRasterWindow ptr'+instance QRasterWindowSuperConst M334.QSurfaceConst where+  downToQRasterWindowConst = cast'+    where+      cast' (M334.QSurfaceConst ptr') = QRasterWindowConst $ castQSurfaceToQRasterWindow ptr'+      cast' (M334.QSurfaceConstGc fptr' ptr') = QRasterWindowConstGc fptr' $ castQSurfaceToQRasterWindow ptr'+instance QRasterWindowSuperConst M304.QPaintDeviceConst where+  downToQRasterWindowConst = cast'+    where+      cast' (M304.QPaintDeviceConst ptr') = QRasterWindowConst $ castQPaintDeviceToQRasterWindow ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QRasterWindowConstGc fptr' $ castQPaintDeviceToQRasterWindow ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QRasterWindow)) QRasterWindow where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QRasterWindow)) QRasterWindow where+  decode = HoppyP.fmap QRasterWindow . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QRegion.hs view
@@ -0,0 +1,455 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QRegion (+  QRegionValue (..),+  QRegionConstPtr (..),+  boundingRect,+  containsPoint,+  containsRect,+  intersected,+  intersectedWithRect,+  intersects,+  intersectsRect,+  isEmpty,+  isNull,+  rectCount,+  subtracted,+  translatedByCoords,+  translatedByPoint,+  united,+  unitedWithRect,+  xored,+  eQ,+  nE,+  QRegionPtr (..),+  swap,+  translateByCoords,+  translateByPoint,+  aSSIGN,+  QRegionConst (..),+  castQRegionToConst,+  QRegion (..),+  castQRegionToNonconst,+  new,+  newFromPoints,+  newFromPolygon,+  newFromPolygonAll,+  newFromRect,+  newCopy,+  QRegionSuper (..),+  QRegionSuperConst (..),+  QRegionRegionType (..),+  ) where++import Control.Monad ((>=>))+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.QPoint as M114+import qualified Graphics.UI.Qtah.Generated.Core.QRect as M122+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Gui.QPolygon as M318+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QRegion_new" new' ::  HoppyP.IO (HoppyF.Ptr QRegion)+foreign import ccall "genpop__QRegion_newFromPoints" newFromPoints' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QRegion)+foreign import ccall "genpop__QRegion_newFromPolygon" newFromPolygon' ::  HoppyF.Ptr M318.QPolygonConst -> HoppyP.IO (HoppyF.Ptr QRegion)+foreign import ccall "genpop__QRegion_newFromPolygonAll" newFromPolygonAll' ::  HoppyF.Ptr M318.QPolygonConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QRegion)+foreign import ccall "genpop__QRegion_newFromRect" newFromRect' ::  HoppyF.Ptr M122.QRectConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QRegion)+foreign import ccall "genpop__QRegion_newCopy" newCopy' ::  HoppyF.Ptr QRegionConst -> HoppyP.IO (HoppyF.Ptr QRegion)+foreign import ccall "genpop__QRegion_boundingRect" boundingRect' ::  HoppyF.Ptr QRegionConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QRegion_containsPoint" containsPoint' ::  HoppyF.Ptr QRegionConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRegion_containsRect" containsRect' ::  HoppyF.Ptr QRegionConst -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRegion_intersected" intersected' ::  HoppyF.Ptr QRegionConst -> HoppyF.Ptr QRegionConst -> HoppyP.IO (HoppyF.Ptr QRegionConst)+foreign import ccall "genpop__QRegion_intersectedWithRect" intersectedWithRect' ::  HoppyF.Ptr QRegionConst -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO (HoppyF.Ptr QRegionConst)+foreign import ccall "genpop__QRegion_intersects" intersects' ::  HoppyF.Ptr QRegionConst -> HoppyF.Ptr QRegionConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRegion_intersectsRect" intersectsRect' ::  HoppyF.Ptr QRegionConst -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRegion_isEmpty" isEmpty' ::  HoppyF.Ptr QRegionConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRegion_isNull" isNull' ::  HoppyF.Ptr QRegionConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRegion_rectCount" rectCount' ::  HoppyF.Ptr QRegionConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QRegion_subtracted" subtracted' ::  HoppyF.Ptr QRegionConst -> HoppyF.Ptr QRegionConst -> HoppyP.IO (HoppyF.Ptr QRegionConst)+foreign import ccall "genpop__QRegion_swap" swap' ::  HoppyF.Ptr QRegion -> HoppyF.Ptr QRegion -> HoppyP.IO ()+foreign import ccall "genpop__QRegion_translateByCoords" translateByCoords' ::  HoppyF.Ptr QRegion -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QRegion_translateByPoint" translateByPoint' ::  HoppyF.Ptr QRegion -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QRegion_translatedByCoords" translatedByCoords' ::  HoppyF.Ptr QRegionConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QRegionConst)+foreign import ccall "genpop__QRegion_translatedByPoint" translatedByPoint' ::  HoppyF.Ptr QRegionConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr QRegionConst)+foreign import ccall "genpop__QRegion_united" united' ::  HoppyF.Ptr QRegionConst -> HoppyF.Ptr QRegionConst -> HoppyP.IO (HoppyF.Ptr QRegionConst)+foreign import ccall "genpop__QRegion_unitedWithRect" unitedWithRect' ::  HoppyF.Ptr QRegionConst -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO (HoppyF.Ptr QRegionConst)+foreign import ccall "genpop__QRegion_xored" xored' ::  HoppyF.Ptr QRegionConst -> HoppyF.Ptr QRegionConst -> HoppyP.IO (HoppyF.Ptr QRegionConst)+foreign import ccall "genpop__QRegion_EQ" eQ' ::  HoppyF.Ptr QRegionConst -> HoppyF.Ptr QRegionConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRegion_NE" nE' ::  HoppyF.Ptr QRegionConst -> HoppyF.Ptr QRegionConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QRegion_ASSIGN" aSSIGN' ::  HoppyF.Ptr QRegion -> HoppyF.Ptr QRegionConst -> HoppyP.IO (HoppyF.Ptr QRegion)+foreign import ccall "gendel__QRegion" delete'QRegion :: HoppyF.Ptr QRegionConst -> HoppyP.IO ()+foreign import ccall "&gendel__QRegion" deletePtr'QRegion :: HoppyF.FunPtr (HoppyF.Ptr QRegionConst -> HoppyP.IO ())++class QRegionValue a where+  withQRegionPtr :: a -> (QRegionConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QRegionConstPtr a => QRegionValue a where+  withQRegionPtr = HoppyP.flip ($) . toQRegionConst++class (HoppyFHR.CppPtr this) => QRegionConstPtr this where+  toQRegionConst :: this -> QRegionConst++boundingRect :: (QRegionValue this) => (this) {- ^ this -} -> (HoppyP.IO HRect.HRect)+boundingRect arg'1 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<+  (boundingRect' arg'1')++containsPoint :: (QRegionValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+containsPoint arg'1 arg'2 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (containsPoint' arg'1' arg'2')++containsRect :: (QRegionValue this, M122.QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+containsRect arg'1 arg'2 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M122.withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (containsRect' arg'1' arg'2')++intersected :: (QRegionValue this, QRegionValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRegion)+intersected arg'1 arg'2 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRegionConst) =<<+  (intersected' arg'1' arg'2')++intersectedWithRect :: (QRegionValue this, M122.QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRegion)+intersectedWithRect arg'1 arg'2 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M122.withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRegionConst) =<<+  (intersectedWithRect' arg'1' arg'2')++intersects :: (QRegionValue this, QRegionValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+intersects arg'1 arg'2 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (intersects' arg'1' arg'2')++intersectsRect :: (QRegionValue this, M122.QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+intersectsRect arg'1 arg'2 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M122.withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (intersectsRect' arg'1' arg'2')++isEmpty :: (QRegionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++isNull :: (QRegionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isNull arg'1 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isNull' arg'1')++rectCount :: (QRegionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+rectCount arg'1 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (rectCount' arg'1')++subtracted :: (QRegionValue this, QRegionValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRegion)+subtracted arg'1 arg'2 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRegionConst) =<<+  (subtracted' arg'1' arg'2')++translatedByCoords :: (QRegionValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QRegion)+translatedByCoords arg'1 arg'2 arg'3 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . QRegionConst) =<<+  (translatedByCoords' arg'1' arg'2' arg'3')++translatedByPoint :: (QRegionValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRegion)+translatedByPoint arg'1 arg'2 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRegionConst) =<<+  (translatedByPoint' arg'1' arg'2')++united :: (QRegionValue this, QRegionValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRegion)+united arg'1 arg'2 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRegionConst) =<<+  (united' arg'1' arg'2')++unitedWithRect :: (QRegionValue this, M122.QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRegion)+unitedWithRect arg'1 arg'2 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M122.withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRegionConst) =<<+  (unitedWithRect' arg'1' arg'2')++xored :: (QRegionValue this, QRegionValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRegion)+xored arg'1 arg'2 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . QRegionConst) =<<+  (xored' arg'1' arg'2')++eQ :: (QRegionValue this, QRegionValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QRegionValue this, QRegionValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QRegionConstPtr this) => QRegionPtr this where+  toQRegion :: this -> QRegion++swap :: (QRegionPtr this, QRegionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+swap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRegion arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQRegion arg'2) $ \arg'2' ->+  (swap' arg'1' arg'2')++translateByCoords :: (QRegionPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+translateByCoords arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQRegion arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (translateByCoords' arg'1' arg'2' arg'3')++translateByPoint :: (QRegionPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+translateByPoint arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRegion arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (translateByPoint' arg'1' arg'2')++aSSIGN :: (QRegionPtr this, QRegionValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QRegion)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQRegion arg'1) $ \arg'1' ->+  withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QRegion+  (aSSIGN' arg'1' arg'2')++data QRegionConst =+    QRegionConst (HoppyF.Ptr QRegionConst)+  | QRegionConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QRegionConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QRegionConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QRegionConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQRegionToConst :: QRegion -> QRegionConst+castQRegionToConst (QRegion ptr') = QRegionConst $ HoppyF.castPtr ptr'+castQRegionToConst (QRegionGc fptr' ptr') = QRegionConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QRegionConst where+  nullptr = QRegionConst HoppyF.nullPtr+  +  withCppPtr (QRegionConst ptr') f' = f' ptr'+  withCppPtr (QRegionConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QRegionConst ptr') = ptr'+  toPtr (QRegionConstGc _ ptr') = ptr'+  +  touchCppPtr (QRegionConst _) = HoppyP.return ()+  touchCppPtr (QRegionConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QRegionConst where+  delete (QRegionConst ptr') = delete'QRegion ptr'+  delete (QRegionConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QRegionConst", " object."]+  +  toGc this'@(QRegionConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QRegionConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QRegion :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QRegionConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QRegionConst QRegion where copy = newCopy++instance QRegionConstPtr QRegionConst where+  toQRegionConst = HoppyP.id++data QRegion =+    QRegion (HoppyF.Ptr QRegion)+  | QRegionGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QRegion)+  deriving (HoppyP.Show)++instance HoppyP.Eq QRegion where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QRegion where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQRegionToNonconst :: QRegionConst -> QRegion+castQRegionToNonconst (QRegionConst ptr') = QRegion $ HoppyF.castPtr ptr'+castQRegionToNonconst (QRegionConstGc fptr' ptr') = QRegionGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QRegion where+  nullptr = QRegion HoppyF.nullPtr+  +  withCppPtr (QRegion ptr') f' = f' ptr'+  withCppPtr (QRegionGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QRegion ptr') = ptr'+  toPtr (QRegionGc _ ptr') = ptr'+  +  touchCppPtr (QRegion _) = HoppyP.return ()+  touchCppPtr (QRegionGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QRegion where+  delete (QRegion ptr') = delete'QRegion $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QRegionConst)+  delete (QRegionGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QRegion", " object."]+  +  toGc this'@(QRegion ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QRegionGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QRegion :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QRegionGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QRegion QRegion where copy = newCopy++instance QRegionConstPtr QRegion where+  toQRegionConst (QRegion ptr') = QRegionConst $ (HoppyF.castPtr :: HoppyF.Ptr QRegion -> HoppyF.Ptr QRegionConst) ptr'+  toQRegionConst (QRegionGc fptr' ptr') = QRegionConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QRegion -> HoppyF.Ptr QRegionConst) ptr'++instance QRegionPtr QRegion where+  toQRegion = HoppyP.id++new :: (HoppyP.IO QRegion)+new =+  HoppyP.fmap QRegion+  (new')++newFromPoints :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (QRegionRegionType) -> (HoppyP.IO QRegion)+newFromPoints arg'1 arg'2 arg'3 arg'4 arg'5 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) 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.fromCppEnum+  ) arg'5 >>= \arg'5' ->+  HoppyP.fmap QRegion+  (newFromPoints' arg'1' arg'2' arg'3' arg'4' arg'5')++newFromPolygon :: (M318.QPolygonValue arg'1) => (arg'1) -> (HoppyP.IO QRegion)+newFromPolygon arg'1 =+  M318.withQPolygonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QRegion+  (newFromPolygon' arg'1')++newFromPolygonAll :: (M318.QPolygonValue arg'1) => (arg'1) -> (M190.QtFillRule) -> (HoppyP.IO QRegion)+newFromPolygonAll arg'1 arg'2 =+  M318.withQPolygonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QRegion+  (newFromPolygonAll' arg'1' arg'2')++newFromRect :: (M122.QRectValue arg'1) => (arg'1) -> (QRegionRegionType) -> (HoppyP.IO QRegion)+newFromRect arg'1 arg'2 =+  M122.withQRectPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QRegion+  (newFromRect' arg'1' arg'2')++newCopy :: (QRegionValue arg'1) => (arg'1) -> (HoppyP.IO QRegion)+newCopy arg'1 =+  withQRegionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QRegion+  (newCopy' arg'1')++class QRegionSuper a where+  downToQRegion :: a -> QRegion+++class QRegionSuperConst a where+  downToQRegionConst :: a -> QRegionConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QRegion)) QRegion where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QRegionValue a => HoppyFHR.Assignable QRegion a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QRegion)) QRegion where+  decode = HoppyP.fmap QRegion . HoppyF.peek++instance HoppyFHR.Decodable QRegion (QRegion) where+  decode = HoppyFHR.decode . toQRegionConst++instance HoppyFHR.Decodable QRegionConst (QRegion) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc++data QRegionRegionType =+  Rectangle+  | Ellipse+  | UnknownQRegionRegionType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QRegionRegionType where+  fromCppEnum Rectangle = 0+  fromCppEnum Ellipse = 1+  fromCppEnum (UnknownQRegionRegionType n) = n+  +  toCppEnum (0) = Rectangle+  toCppEnum (1) = Ellipse+  toCppEnum n = UnknownQRegionRegionType n++instance HoppyP.Eq QRegionRegionType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QRegionRegionType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Gui/QShowEvent.hs view
@@ -0,0 +1,160 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QShowEvent (+  castQShowEventToQEvent,+  castQEventToQShowEvent,+  QShowEventValue (..),+  QShowEventConstPtr (..),+  QShowEventPtr (..),+  QShowEventConst (..),+  castQShowEventToConst,+  QShowEvent (..),+  castQShowEventToNonconst,+  new,+  QShowEventSuper (..),+  QShowEventSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QShowEvent_new" new' ::  HoppyP.IO (HoppyF.Ptr QShowEvent)+foreign import ccall "gencast__QShowEvent__QEvent" castQShowEventToQEvent :: HoppyF.Ptr QShowEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QShowEvent" castQEventToQShowEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QShowEventConst+foreign import ccall "gendel__QShowEvent" delete'QShowEvent :: HoppyF.Ptr QShowEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QShowEvent" deletePtr'QShowEvent :: HoppyF.FunPtr (HoppyF.Ptr QShowEventConst -> HoppyP.IO ())++class QShowEventValue a where+  withQShowEventPtr :: a -> (QShowEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QShowEventConstPtr a => QShowEventValue a where+  withQShowEventPtr = HoppyP.flip ($) . toQShowEventConst++class (M34.QEventConstPtr this) => QShowEventConstPtr this where+  toQShowEventConst :: this -> QShowEventConst++class (QShowEventConstPtr this, M34.QEventPtr this) => QShowEventPtr this where+  toQShowEvent :: this -> QShowEvent++data QShowEventConst =+    QShowEventConst (HoppyF.Ptr QShowEventConst)+  | QShowEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QShowEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QShowEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QShowEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQShowEventToConst :: QShowEvent -> QShowEventConst+castQShowEventToConst (QShowEvent ptr') = QShowEventConst $ HoppyF.castPtr ptr'+castQShowEventToConst (QShowEventGc fptr' ptr') = QShowEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QShowEventConst where+  nullptr = QShowEventConst HoppyF.nullPtr+  +  withCppPtr (QShowEventConst ptr') f' = f' ptr'+  withCppPtr (QShowEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QShowEventConst ptr') = ptr'+  toPtr (QShowEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QShowEventConst _) = HoppyP.return ()+  touchCppPtr (QShowEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QShowEventConst where+  delete (QShowEventConst ptr') = delete'QShowEvent ptr'+  delete (QShowEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QShowEventConst", " object."]+  +  toGc this'@(QShowEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QShowEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QShowEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QShowEventConstGc {}) = HoppyP.return this'++instance QShowEventConstPtr QShowEventConst where+  toQShowEventConst = HoppyP.id++instance M34.QEventConstPtr QShowEventConst where+  toQEventConst (QShowEventConst ptr') = M34.QEventConst $ castQShowEventToQEvent ptr'+  toQEventConst (QShowEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQShowEventToQEvent ptr'++data QShowEvent =+    QShowEvent (HoppyF.Ptr QShowEvent)+  | QShowEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QShowEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QShowEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QShowEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQShowEventToNonconst :: QShowEventConst -> QShowEvent+castQShowEventToNonconst (QShowEventConst ptr') = QShowEvent $ HoppyF.castPtr ptr'+castQShowEventToNonconst (QShowEventConstGc fptr' ptr') = QShowEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QShowEvent where+  nullptr = QShowEvent HoppyF.nullPtr+  +  withCppPtr (QShowEvent ptr') f' = f' ptr'+  withCppPtr (QShowEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QShowEvent ptr') = ptr'+  toPtr (QShowEventGc _ ptr') = ptr'+  +  touchCppPtr (QShowEvent _) = HoppyP.return ()+  touchCppPtr (QShowEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QShowEvent where+  delete (QShowEvent ptr') = delete'QShowEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QShowEventConst)+  delete (QShowEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QShowEvent", " object."]+  +  toGc this'@(QShowEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QShowEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QShowEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QShowEventGc {}) = HoppyP.return this'++instance QShowEventConstPtr QShowEvent where+  toQShowEventConst (QShowEvent ptr') = QShowEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QShowEvent -> HoppyF.Ptr QShowEventConst) ptr'+  toQShowEventConst (QShowEventGc fptr' ptr') = QShowEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QShowEvent -> HoppyF.Ptr QShowEventConst) ptr'++instance QShowEventPtr QShowEvent where+  toQShowEvent = HoppyP.id++instance M34.QEventConstPtr QShowEvent where+  toQEventConst (QShowEvent ptr') = M34.QEventConst $ castQShowEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QShowEvent -> HoppyF.Ptr QShowEventConst) ptr'+  toQEventConst (QShowEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQShowEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QShowEvent -> HoppyF.Ptr QShowEventConst) ptr'++instance M34.QEventPtr QShowEvent where+  toQEvent (QShowEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQShowEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QShowEvent -> HoppyF.Ptr QShowEventConst) ptr'+  toQEvent (QShowEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQShowEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QShowEvent -> HoppyF.Ptr QShowEventConst) ptr'++new :: (HoppyP.IO QShowEvent)+new =+  HoppyP.fmap QShowEvent+  (new')++class QShowEventSuper a where+  downToQShowEvent :: a -> QShowEvent++instance QShowEventSuper M34.QEvent where+  downToQShowEvent = castQShowEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QShowEventConst $ castQEventToQShowEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QShowEventConstGc fptr' $ castQEventToQShowEvent ptr'++class QShowEventSuperConst a where+  downToQShowEventConst :: a -> QShowEventConst++instance QShowEventSuperConst M34.QEventConst where+  downToQShowEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QShowEventConst $ castQEventToQShowEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QShowEventConstGc fptr' $ castQEventToQShowEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QShowEvent)) QShowEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QShowEvent)) QShowEvent where+  decode = HoppyP.fmap QShowEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QStandardItem.hs view
@@ -0,0 +1,1001 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QStandardItem (+  QStandardItemValue (..),+  QStandardItemConstPtr (..),+  accessibleDescription,+  accessibleText,+  background,+  checkState,+  child,+  childWithColumn,+  clone,+  column,+  columnCount,+  getData,+  getDataWithRole,+  flags,+  font,+  foreground,+  hasChildren,+  icon,+  index,+  isAutoTristate,+  isCheckable,+  isDragEnabled,+  isDropEnabled,+  isEditable,+  isEnabled,+  isSelectable,+  isUserTristate,+  model,+  parent,+  row,+  rowCount,+  sizeHint,+  statusTip,+  text,+  textAlignment,+  toolTip,+  getType,+  whatsThis,+  QStandardItemPtr (..),+  appendColumn,+  appendRowItems,+  appendRowItem,+  appendRows,+  insertColumn,+  insertColumns,+  insertRowItems,+  insertRowItem,+  insertRowsItems,+  insertRowsCount,+  removeColumn,+  removeColumns,+  removeRow,+  removeRows,+  setAccessibleDescription,+  setAccessibleText,+  setAutoTristate,+  setBackground,+  setCheckState,+  setCheckable,+  setChildWithColumn,+  setChild,+  setColumnCount,+  setData,+  setDataWithRole,+  setDragEnabled,+  setDropEnabled,+  setEditable,+  setEnabled,+  setFlags,+  setFont,+  setForeground,+  setIcon,+  setRowCount,+  setSelectable,+  setSizeHint,+  setStatusTip,+  setText,+  setTextAlignment,+  setToolTip,+  setUserTristate,+  setWhatsThis,+  sortChildren,+  sortChildrenWithOrder,+  takeChild,+  takeChildWithColumn,+  takeColumn,+  takeRow,+  QStandardItemConst (..),+  castQStandardItemToConst,+  QStandardItem (..),+  castQStandardItemToNonconst,+  new,+  newWithText,+  newWithIconAndText,+  newWithRows,+  newWithRowsAndColumns,+  QStandardItemSuper (..),+  QStandardItemSuperConst (..),+  ) 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.HSize as HSize+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QList.QStandardItem as M332+import qualified Graphics.UI.Qtah.Generated.Core.QModelIndex as M92+import qualified Graphics.UI.Qtah.Generated.Core.QSize as M134+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Gui.QBrush as M246+import qualified Graphics.UI.Qtah.Generated.Gui.QFont as M276+import qualified Graphics.UI.Qtah.Generated.Gui.QIcon as M288+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QStandardItemModel as M328+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QStandardItem_new" new' ::  HoppyP.IO (HoppyF.Ptr QStandardItem)+foreign import ccall "genpop__QStandardItem_newWithText" newWithText' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QStandardItem)+foreign import ccall "genpop__QStandardItem_newWithIconAndText" newWithIconAndText' ::  HoppyF.Ptr M288.QIconConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QStandardItem)+foreign import ccall "genpop__QStandardItem_newWithRows" newWithRows' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStandardItem)+foreign import ccall "genpop__QStandardItem_newWithRowsAndColumns" newWithRowsAndColumns' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStandardItem)+foreign import ccall "genpop__QStandardItem_accessibleDescription" accessibleDescription' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QStandardItem_accessibleText" accessibleText' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QStandardItem_appendColumn" appendColumn' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M332.QListQStandardItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_appendRowItems" appendRowItems' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M332.QListQStandardItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_appendRowItem" appendRowItem' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr QStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_appendRows" appendRows' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M332.QListQStandardItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_background" background' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QStandardItem_checkState" checkState' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QStandardItem_child" child' ::  HoppyF.Ptr QStandardItemConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStandardItem)+foreign import ccall "genpop__QStandardItem_childWithColumn" childWithColumn' ::  HoppyF.Ptr QStandardItemConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStandardItem)+foreign import ccall "genpop__QStandardItem_clone" clone' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr QStandardItem)+foreign import ccall "genpop__QStandardItem_column" column' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QStandardItem_columnCount" columnCount' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QStandardItem_getData" getData' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QStandardItem_getDataWithRole" getDataWithRole' ::  HoppyF.Ptr QStandardItemConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M168.QVariantConst)+foreign import ccall "genpop__QStandardItem_flags" flags' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QStandardItem_font" font' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr M276.QFontConst)+foreign import ccall "genpop__QStandardItem_foreground" foreground' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QStandardItem_hasChildren" hasChildren' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStandardItem_icon" icon' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr M288.QIconConst)+foreign import ccall "genpop__QStandardItem_index" index' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QStandardItem_insertColumn" insertColumn' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyF.Ptr M332.QListQStandardItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_insertColumns" insertColumns' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_insertRowItems" insertRowItems' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyF.Ptr M332.QListQStandardItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_insertRowItem" insertRowItem' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyF.Ptr QStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_insertRowsItems" insertRowsItems' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyF.Ptr M332.QListQStandardItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_insertRowsCount" insertRowsCount' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_isAutoTristate" isAutoTristate' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStandardItem_isCheckable" isCheckable' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStandardItem_isDragEnabled" isDragEnabled' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStandardItem_isDropEnabled" isDropEnabled' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStandardItem_isEditable" isEditable' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStandardItem_isEnabled" isEnabled' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStandardItem_isSelectable" isSelectable' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStandardItem_isUserTristate" isUserTristate' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStandardItem_model" model' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr M328.QStandardItemModel)+foreign import ccall "genpop__QStandardItem_parent" parent' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr QStandardItem)+foreign import ccall "genpop__QStandardItem_removeColumn" removeColumn' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_removeColumns" removeColumns' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_removeRow" removeRow' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_removeRows" removeRows' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_row" row' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QStandardItem_rowCount" rowCount' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QStandardItem_setAccessibleDescription" setAccessibleDescription' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setAccessibleText" setAccessibleText' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setAutoTristate" setAutoTristate' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setBackground" setBackground' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setCheckState" setCheckState' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setCheckable" setCheckable' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setChildWithColumn" setChildWithColumn' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr QStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setChild" setChild' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyF.Ptr QStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setColumnCount" setColumnCount' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setData" setData' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setDataWithRole" setDataWithRole' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M168.QVariantConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setDragEnabled" setDragEnabled' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setDropEnabled" setDropEnabled' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setEditable" setEditable' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setEnabled" setEnabled' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setFlags" setFlags' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setFont" setFont' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M276.QFontConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setForeground" setForeground' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setIcon" setIcon' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M288.QIconConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setRowCount" setRowCount' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setSelectable" setSelectable' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setSizeHint" setSizeHint' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setStatusTip" setStatusTip' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setText" setText' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setTextAlignment" setTextAlignment' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setToolTip" setToolTip' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setUserTristate" setUserTristate' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_setWhatsThis" setWhatsThis' ::  HoppyF.Ptr QStandardItem -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_sizeHint" sizeHint' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QStandardItem_sortChildren" sortChildren' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_sortChildrenWithOrder" sortChildrenWithOrder' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItem_statusTip" statusTip' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QStandardItem_takeChild" takeChild' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStandardItem)+foreign import ccall "genpop__QStandardItem_takeChildWithColumn" takeChildWithColumn' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStandardItem)+foreign import ccall "genpop__QStandardItem_takeColumn" takeColumn' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M332.QListQStandardItemConst)+foreign import ccall "genpop__QStandardItem_takeRow" takeRow' ::  HoppyF.Ptr QStandardItem -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M332.QListQStandardItemConst)+foreign import ccall "genpop__QStandardItem_text" text' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QStandardItem_textAlignment" textAlignment' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QStandardItem_toolTip" toolTip' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QStandardItem_getType" getType' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QStandardItem_whatsThis" whatsThis' ::  HoppyF.Ptr QStandardItemConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "gendel__QStandardItem" delete'QStandardItem :: HoppyF.Ptr QStandardItemConst -> HoppyP.IO ()+foreign import ccall "&gendel__QStandardItem" deletePtr'QStandardItem :: HoppyF.FunPtr (HoppyF.Ptr QStandardItemConst -> HoppyP.IO ())++class QStandardItemValue a where+  withQStandardItemPtr :: a -> (QStandardItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QStandardItemConstPtr a => QStandardItemValue a where+  withQStandardItemPtr = HoppyP.flip ($) . toQStandardItemConst++class (HoppyFHR.CppPtr this) => QStandardItemConstPtr this where+  toQStandardItemConst :: this -> QStandardItemConst++accessibleDescription :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+accessibleDescription arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (accessibleDescription' arg'1')++accessibleText :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+accessibleText arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (accessibleText' arg'1')++background :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrush)+background arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M246.QBrushConst) =<<+  (background' arg'1')++checkState :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtCheckState)+checkState arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (checkState' arg'1')++child :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QStandardItem)+child arg'1 arg'2 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QStandardItem+  (child' arg'1' arg'2')++childWithColumn :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QStandardItem)+childWithColumn arg'1 arg'2 arg'3 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QStandardItem+  (childWithColumn' arg'1' arg'2' arg'3')++clone :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO QStandardItem)+clone arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QStandardItem+  (clone' arg'1')++column :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+column arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (column' arg'1')++columnCount :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+columnCount arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (columnCount' arg'1')++getData :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M168.QVariant)+getData arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (getData' arg'1')++getDataWithRole :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M168.QVariant)+getDataWithRole arg'1 arg'2 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M168.QVariantConst) =<<+  (getDataWithRole' arg'1' arg'2')++flags :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtItemFlags)+flags arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (flags' arg'1')++font :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M276.QFont)+font arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M276.QFontConst) =<<+  (font' arg'1')++foreground :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrush)+foreground arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M246.QBrushConst) =<<+  (foreground' arg'1')++hasChildren :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasChildren arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasChildren' arg'1')++icon :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M288.QIcon)+icon arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M288.QIconConst) =<<+  (icon' arg'1')++index :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M92.QModelIndex)+index arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (index' arg'1')++isAutoTristate :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isAutoTristate arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isAutoTristate' arg'1')++isCheckable :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isCheckable arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isCheckable' arg'1')++isDragEnabled :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isDragEnabled arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isDragEnabled' arg'1')++isDropEnabled :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isDropEnabled arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isDropEnabled' arg'1')++isEditable :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEditable arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEditable' arg'1')++isEnabled :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEnabled arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEnabled' arg'1')++isSelectable :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isSelectable arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSelectable' arg'1')++isUserTristate :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isUserTristate arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isUserTristate' arg'1')++model :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M328.QStandardItemModel)+model arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M328.QStandardItemModel+  (model' arg'1')++parent :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO QStandardItem)+parent arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QStandardItem+  (parent' arg'1')++row :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+row arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (row' arg'1')++rowCount :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+rowCount arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (rowCount' arg'1')++sizeHint :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+sizeHint arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (sizeHint' arg'1')++statusTip :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+statusTip arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (statusTip' arg'1')++text :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+text arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (text' arg'1')++textAlignment :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtAlignment)+textAlignment arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (textAlignment' arg'1')++toolTip :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+toolTip arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toolTip' arg'1')++getType :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+getType arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (getType' arg'1')++whatsThis :: (QStandardItemValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+whatsThis arg'1 =+  withQStandardItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (whatsThis' arg'1')++class (QStandardItemConstPtr this) => QStandardItemPtr this where+  toQStandardItem :: this -> QStandardItem++appendColumn :: (QStandardItemPtr this, M332.QListQStandardItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendColumn arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M332.withQListQStandardItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendColumn' arg'1' arg'2')++appendRowItems :: (QStandardItemPtr this, M332.QListQStandardItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendRowItems arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M332.withQListQStandardItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendRowItems' arg'1' arg'2')++appendRowItem :: (QStandardItemPtr this, QStandardItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendRowItem arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQStandardItem arg'2) $ \arg'2' ->+  (appendRowItem' arg'1' arg'2')++appendRows :: (QStandardItemPtr this, M332.QListQStandardItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendRows arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M332.withQListQStandardItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendRows' arg'1' arg'2')++insertColumn :: (QStandardItemPtr this, M332.QListQStandardItemValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insertColumn arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M332.withQListQStandardItemPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insertColumn' arg'1' arg'2' arg'3')++insertColumns :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+insertColumns arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (insertColumns' arg'1' arg'2' arg'3')++insertRowItems :: (QStandardItemPtr this, M332.QListQStandardItemValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insertRowItems arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M332.withQListQStandardItemPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insertRowItems' arg'1' arg'2' arg'3')++insertRowItem :: (QStandardItemPtr this, QStandardItemPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insertRowItem arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (toQStandardItem arg'3) $ \arg'3' ->+  (insertRowItem' arg'1' arg'2' arg'3')++insertRowsItems :: (QStandardItemPtr this, M332.QListQStandardItemValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insertRowsItems arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M332.withQListQStandardItemPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insertRowsItems' arg'1' arg'2' arg'3')++insertRowsCount :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+insertRowsCount arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (insertRowsCount' arg'1' arg'2' arg'3')++removeColumn :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+removeColumn arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (removeColumn' arg'1' arg'2')++removeColumns :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+removeColumns arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (removeColumns' arg'1' arg'2' arg'3')++removeRow :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+removeRow arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (removeRow' arg'1' arg'2')++removeRows :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+removeRows arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (removeRows' arg'1' arg'2' arg'3')++setAccessibleDescription :: (QStandardItemPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setAccessibleDescription arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setAccessibleDescription' arg'1' arg'2')++setAccessibleText :: (QStandardItemPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setAccessibleText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setAccessibleText' arg'1' arg'2')++setAutoTristate :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setAutoTristate arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAutoTristate' arg'1' arg'2')++setBackground :: (QStandardItemPtr this, M246.QBrushValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setBackground arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M246.withQBrushPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setBackground' arg'1' arg'2')++setCheckState :: (QStandardItemPtr this) => (this) {- ^ this -} -> (M190.QtCheckState) -> (HoppyP.IO ())+setCheckState arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setCheckState' arg'1' arg'2')++setCheckable :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setCheckable arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setCheckable' arg'1' arg'2')++setChildWithColumn :: (QStandardItemPtr this, QStandardItemPtr arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO ())+setChildWithColumn arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.withCppPtr (toQStandardItem arg'4) $ \arg'4' ->+  (setChildWithColumn' arg'1' arg'2' arg'3' arg'4')++setChild :: (QStandardItemPtr this, QStandardItemPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+setChild arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (toQStandardItem arg'3) $ \arg'3' ->+  (setChild' arg'1' arg'2' arg'3')++setColumnCount :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setColumnCount arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setColumnCount' arg'1' arg'2')++setData :: (QStandardItemPtr this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setData arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setData' arg'1' arg'2')++setDataWithRole :: (QStandardItemPtr this, M168.QVariantValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO ())+setDataWithRole arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M168.withQVariantPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (setDataWithRole' arg'1' arg'2' arg'3')++setDragEnabled :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setDragEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setDragEnabled' arg'1' arg'2')++setDropEnabled :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setDropEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setDropEnabled' arg'1' arg'2')++setEditable :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setEditable arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setEditable' arg'1' arg'2')++setEnabled :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setEnabled' arg'1' arg'2')++setFlags :: (QStandardItemPtr this, M190.IsQtItemFlags arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFlags arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtItemFlags+  ) arg'2 >>= \arg'2' ->+  (setFlags' arg'1' arg'2')++setFont :: (QStandardItemPtr this, M276.QFontValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFont arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M276.withQFontPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setFont' arg'1' arg'2')++setForeground :: (QStandardItemPtr this, M246.QBrushValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setForeground arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M246.withQBrushPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setForeground' arg'1' arg'2')++setIcon :: (QStandardItemPtr this, M288.QIconValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setIcon arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M288.withQIconPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setIcon' arg'1' arg'2')++setRowCount :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setRowCount arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setRowCount' arg'1' arg'2')++setSelectable :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setSelectable arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setSelectable' arg'1' arg'2')++setSizeHint :: (QStandardItemPtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setSizeHint arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setSizeHint' arg'1' arg'2')++setStatusTip :: (QStandardItemPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setStatusTip arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setStatusTip' arg'1' arg'2')++setText :: (QStandardItemPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setText' arg'1' arg'2')++setTextAlignment :: (QStandardItemPtr this, M190.IsQtAlignment arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTextAlignment arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'2 >>= \arg'2' ->+  (setTextAlignment' arg'1' arg'2')++setToolTip :: (QStandardItemPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setToolTip arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setToolTip' arg'1' arg'2')++setUserTristate :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setUserTristate arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setUserTristate' arg'1' arg'2')++setWhatsThis :: (QStandardItemPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setWhatsThis arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setWhatsThis' arg'1' arg'2')++sortChildren :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+sortChildren arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (sortChildren' arg'1' arg'2')++sortChildrenWithOrder :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (M190.QtSortOrder) -> (HoppyP.IO ())+sortChildrenWithOrder arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (sortChildrenWithOrder' arg'1' arg'2' arg'3')++takeChild :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QStandardItem)+takeChild arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QStandardItem+  (takeChild' arg'1' arg'2')++takeChildWithColumn :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QStandardItem)+takeChildWithColumn arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap QStandardItem+  (takeChildWithColumn' arg'1' arg'2' arg'3')++takeColumn :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO [QStandardItem])+takeColumn arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M332.QListQStandardItemConst) =<<+  (takeColumn' arg'1' arg'2')++takeRow :: (QStandardItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO [QStandardItem])+takeRow arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M332.QListQStandardItemConst) =<<+  (takeRow' arg'1' arg'2')++data QStandardItemConst =+    QStandardItemConst (HoppyF.Ptr QStandardItemConst)+  | QStandardItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStandardItemConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QStandardItemConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QStandardItemConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQStandardItemToConst :: QStandardItem -> QStandardItemConst+castQStandardItemToConst (QStandardItem ptr') = QStandardItemConst $ HoppyF.castPtr ptr'+castQStandardItemToConst (QStandardItemGc fptr' ptr') = QStandardItemConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QStandardItemConst where+  nullptr = QStandardItemConst HoppyF.nullPtr+  +  withCppPtr (QStandardItemConst ptr') f' = f' ptr'+  withCppPtr (QStandardItemConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QStandardItemConst ptr') = ptr'+  toPtr (QStandardItemConstGc _ ptr') = ptr'+  +  touchCppPtr (QStandardItemConst _) = HoppyP.return ()+  touchCppPtr (QStandardItemConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QStandardItemConst where+  delete (QStandardItemConst ptr') = delete'QStandardItem ptr'+  delete (QStandardItemConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QStandardItemConst", " object."]+  +  toGc this'@(QStandardItemConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QStandardItemConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QStandardItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QStandardItemConstGc {}) = HoppyP.return this'++instance QStandardItemConstPtr QStandardItemConst where+  toQStandardItemConst = HoppyP.id++data QStandardItem =+    QStandardItem (HoppyF.Ptr QStandardItem)+  | QStandardItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStandardItem)+  deriving (HoppyP.Show)++instance HoppyP.Eq QStandardItem where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QStandardItem where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQStandardItemToNonconst :: QStandardItemConst -> QStandardItem+castQStandardItemToNonconst (QStandardItemConst ptr') = QStandardItem $ HoppyF.castPtr ptr'+castQStandardItemToNonconst (QStandardItemConstGc fptr' ptr') = QStandardItemGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QStandardItem where+  nullptr = QStandardItem HoppyF.nullPtr+  +  withCppPtr (QStandardItem ptr') f' = f' ptr'+  withCppPtr (QStandardItemGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QStandardItem ptr') = ptr'+  toPtr (QStandardItemGc _ ptr') = ptr'+  +  touchCppPtr (QStandardItem _) = HoppyP.return ()+  touchCppPtr (QStandardItemGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QStandardItem where+  delete (QStandardItem ptr') = delete'QStandardItem $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QStandardItemConst)+  delete (QStandardItemGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QStandardItem", " object."]+  +  toGc this'@(QStandardItem ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QStandardItemGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QStandardItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QStandardItemGc {}) = HoppyP.return this'++instance QStandardItemConstPtr QStandardItem where+  toQStandardItemConst (QStandardItem ptr') = QStandardItemConst $ (HoppyF.castPtr :: HoppyF.Ptr QStandardItem -> HoppyF.Ptr QStandardItemConst) ptr'+  toQStandardItemConst (QStandardItemGc fptr' ptr') = QStandardItemConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QStandardItem -> HoppyF.Ptr QStandardItemConst) ptr'++instance QStandardItemPtr QStandardItem where+  toQStandardItem = HoppyP.id++new :: (HoppyP.IO QStandardItem)+new =+  HoppyP.fmap QStandardItem+  (new')++newWithText :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QStandardItem)+newWithText arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QStandardItem+  (newWithText' arg'1')++newWithIconAndText :: (M288.QIconValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QStandardItem)+newWithIconAndText arg'1 arg'2 =+  M288.withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QStandardItem+  (newWithIconAndText' arg'1' arg'2')++newWithRows :: (HoppyP.Int) -> (HoppyP.IO QStandardItem)+newWithRows arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QStandardItem+  (newWithRows' arg'1')++newWithRowsAndColumns :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QStandardItem)+newWithRowsAndColumns arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QStandardItem+  (newWithRowsAndColumns' arg'1' arg'2')++class QStandardItemSuper a where+  downToQStandardItem :: a -> QStandardItem+++class QStandardItemSuperConst a where+  downToQStandardItemConst :: a -> QStandardItemConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QStandardItem)) QStandardItem where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QStandardItem)) QStandardItem where+  decode = HoppyP.fmap QStandardItem . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Gui/QStandardItem.hs-boot view
@@ -0,0 +1,54 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QStandardItem (+  QStandardItemValue (..),+  QStandardItemConstPtr (..),+  QStandardItemPtr (..),+  QStandardItemConst (..),+  castQStandardItemToConst,+  QStandardItem (..),+  castQStandardItemToNonconst,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Prelude as HoppyP+++class QStandardItemValue a where+  withQStandardItemPtr :: a -> (QStandardItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QStandardItemConstPtr a => QStandardItemValue a++class (HoppyFHR.CppPtr this) => QStandardItemConstPtr this where+  toQStandardItemConst :: this -> QStandardItemConst++class (QStandardItemConstPtr this) => QStandardItemPtr this where+  toQStandardItem :: this -> QStandardItem++data QStandardItemConst =+    QStandardItemConst (HoppyF.Ptr QStandardItemConst)+  | QStandardItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStandardItemConst)++castQStandardItemToConst :: QStandardItem -> QStandardItemConst++instance HoppyFHR.CppPtr QStandardItemConst+instance HoppyFHR.Deletable QStandardItemConst++instance QStandardItemConstPtr QStandardItemConst++data QStandardItem =+    QStandardItem (HoppyF.Ptr QStandardItem)+  | QStandardItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStandardItem)++castQStandardItemToNonconst :: QStandardItemConst -> QStandardItem++instance HoppyFHR.CppPtr QStandardItem+instance HoppyFHR.Deletable QStandardItem++instance QStandardItemConstPtr QStandardItem++instance QStandardItemPtr QStandardItem++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QStandardItem)) QStandardItem
src/Graphics/UI/Qtah/Generated/Gui/QStandardItemModel.hs view
@@ -0,0 +1,646 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QStandardItemModel (+  castQStandardItemModelToQAbstractItemModel,+  castQAbstractItemModelToQStandardItemModel,+  castQStandardItemModelToQObject,+  castQObjectToQStandardItemModel,+  QStandardItemModelValue (..),+  QStandardItemModelConstPtr (..),+  sortRole,+  findItems,+  findItemsWithFlags,+  findItemsWithFlagsAndColumn,+  horizontalHeaderItem,+  indexFromItem,+  invisibleRootItem,+  item,+  itemWithColumn,+  itemFromIndex,+  itemPrototype,+  verticalHeaderItem,+  QStandardItemModelPtr (..),+  setSortRole,+  appendColumn,+  appendRowItems,+  appendRowItem,+  clear,+  insertColumnWithItems,+  insertColumn,+  insertColumnWithParent,+  insertRowWithItems,+  insertRowWithItem,+  insertRow,+  insertRowWithParent,+  setColumnCount,+  setHorizontalHeaderItem,+  setHorizontalHeaderLabels,+  setItemWithColumn,+  setItem,+  setItemPrototype,+  setRowCount,+  setVerticalHeaderItem,+  setVerticalHeaderLabels,+  takeColumn,+  takeHorizontalHeaderItem,+  takeItem,+  takeItemWithColumn,+  takeRow,+  takeVerticalHeaderItem,+  QStandardItemModelConst (..),+  castQStandardItemModelToConst,+  QStandardItemModel (..),+  castQStandardItemModelToNonconst,+  new,+  newWithParent,+  newWithRowsAndColumns,+  newWithRowsAndColumnsAndParent,+  QStandardItemModelSuper (..),+  QStandardItemModelSuperConst (..),+  ) 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.QAbstractItemModel as M4+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QList.QStandardItem as M332+import qualified Graphics.UI.Qtah.Generated.Core.QModelIndex as M92+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.QStringList as M144+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QStandardItem as M330+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QStandardItemModel_new" new' ::  HoppyP.IO (HoppyF.Ptr QStandardItemModel)+foreign import ccall "genpop__QStandardItemModel_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QStandardItemModel)+foreign import ccall "genpop__QStandardItemModel_newWithRowsAndColumns" newWithRowsAndColumns' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QStandardItemModel)+foreign import ccall "genpop__QStandardItemModel_newWithRowsAndColumnsAndParent" newWithRowsAndColumnsAndParent' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QStandardItemModel)+foreign import ccall "genpop__QStandardItemModel_sortRole" sortRole' ::  HoppyF.Ptr QStandardItemModelConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QStandardItemModel_setSortRole" setSortRole' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_appendColumn" appendColumn' ::  HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr M332.QListQStandardItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_appendRowItems" appendRowItems' ::  HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr M332.QListQStandardItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_appendRowItem" appendRowItem' ::  HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_clear" clear' ::  HoppyF.Ptr QStandardItemModel -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_findItems" findItems' ::  HoppyF.Ptr QStandardItemModelConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M332.QListQStandardItemConst)+foreign import ccall "genpop__QStandardItemModel_findItemsWithFlags" findItemsWithFlags' ::  HoppyF.Ptr QStandardItemModelConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M332.QListQStandardItemConst)+foreign import ccall "genpop__QStandardItemModel_findItemsWithFlagsAndColumn" findItemsWithFlagsAndColumn' ::  HoppyF.Ptr QStandardItemModelConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M332.QListQStandardItemConst)+foreign import ccall "genpop__QStandardItemModel_horizontalHeaderItem" horizontalHeaderItem' ::  HoppyF.Ptr QStandardItemModelConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "genpop__QStandardItemModel_indexFromItem" indexFromItem' ::  HoppyF.Ptr QStandardItemModelConst -> HoppyF.Ptr M330.QStandardItemConst -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QStandardItemModel_insertColumnWithItems" insertColumnWithItems' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyF.Ptr M332.QListQStandardItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_insertColumn" insertColumn' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStandardItemModel_insertColumnWithParent" insertColumnWithParent' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStandardItemModel_insertRowWithItems" insertRowWithItems' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyF.Ptr M332.QListQStandardItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_insertRowWithItem" insertRowWithItem' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_insertRow" insertRow' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStandardItemModel_insertRowWithParent" insertRowWithParent' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QStandardItemModel_invisibleRootItem" invisibleRootItem' ::  HoppyF.Ptr QStandardItemModelConst -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "genpop__QStandardItemModel_item" item' ::  HoppyF.Ptr QStandardItemModelConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "genpop__QStandardItemModel_itemWithColumn" itemWithColumn' ::  HoppyF.Ptr QStandardItemModelConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "genpop__QStandardItemModel_itemFromIndex" itemFromIndex' ::  HoppyF.Ptr QStandardItemModelConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "genpop__QStandardItemModel_itemPrototype" itemPrototype' ::  HoppyF.Ptr QStandardItemModelConst -> HoppyP.IO (HoppyF.Ptr M330.QStandardItemConst)+foreign import ccall "genpop__QStandardItemModel_setColumnCount" setColumnCount' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_setHorizontalHeaderItem" setHorizontalHeaderItem' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_setHorizontalHeaderLabels" setHorizontalHeaderLabels' ::  HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_setItemWithColumn" setItemWithColumn' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_setItem" setItem' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_setItemPrototype" setItemPrototype' ::  HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr M330.QStandardItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_setRowCount" setRowCount' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_setVerticalHeaderItem" setVerticalHeaderItem' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyF.Ptr M330.QStandardItem -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_setVerticalHeaderLabels" setVerticalHeaderLabels' ::  HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO ()+foreign import ccall "genpop__QStandardItemModel_takeColumn" takeColumn' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M332.QListQStandardItemConst)+foreign import ccall "genpop__QStandardItemModel_takeHorizontalHeaderItem" takeHorizontalHeaderItem' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "genpop__QStandardItemModel_takeItem" takeItem' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "genpop__QStandardItemModel_takeItemWithColumn" takeItemWithColumn' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "genpop__QStandardItemModel_takeRow" takeRow' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M332.QListQStandardItemConst)+foreign import ccall "genpop__QStandardItemModel_takeVerticalHeaderItem" takeVerticalHeaderItem' ::  HoppyF.Ptr QStandardItemModel -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "genpop__QStandardItemModel_verticalHeaderItem" verticalHeaderItem' ::  HoppyF.Ptr QStandardItemModelConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M330.QStandardItem)+foreign import ccall "gencast__QStandardItemModel__QAbstractItemModel" castQStandardItemModelToQAbstractItemModel :: HoppyF.Ptr QStandardItemModelConst -> HoppyF.Ptr M4.QAbstractItemModelConst+foreign import ccall "gencast__QAbstractItemModel__QStandardItemModel" castQAbstractItemModelToQStandardItemModel :: HoppyF.Ptr M4.QAbstractItemModelConst -> HoppyF.Ptr QStandardItemModelConst+foreign import ccall "gencast__QStandardItemModel__QObject" castQStandardItemModelToQObject :: HoppyF.Ptr QStandardItemModelConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QStandardItemModel" castQObjectToQStandardItemModel :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QStandardItemModelConst+foreign import ccall "gendel__QStandardItemModel" delete'QStandardItemModel :: HoppyF.Ptr QStandardItemModelConst -> HoppyP.IO ()+foreign import ccall "&gendel__QStandardItemModel" deletePtr'QStandardItemModel :: HoppyF.FunPtr (HoppyF.Ptr QStandardItemModelConst -> HoppyP.IO ())++class QStandardItemModelValue a where+  withQStandardItemModelPtr :: a -> (QStandardItemModelConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QStandardItemModelConstPtr a => QStandardItemModelValue a where+  withQStandardItemModelPtr = HoppyP.flip ($) . toQStandardItemModelConst++class (M4.QAbstractItemModelConstPtr this) => QStandardItemModelConstPtr this where+  toQStandardItemModelConst :: this -> QStandardItemModelConst++sortRole :: (QStandardItemModelValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+sortRole arg'1 =+  withQStandardItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (sortRole' arg'1')++findItems :: (QStandardItemModelValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO [M330.QStandardItem])+findItems arg'1 arg'2 =+  withQStandardItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M332.QListQStandardItemConst) =<<+  (findItems' arg'1' arg'2')++findItemsWithFlags :: (QStandardItemModelValue this, M142.QStringValue arg'2, M190.IsQtMatchFlags arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO [M330.QStandardItem])+findItemsWithFlags arg'1 arg'2 arg'3 =+  withQStandardItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtMatchFlags+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M332.QListQStandardItemConst) =<<+  (findItemsWithFlags' arg'1' arg'2' arg'3')++findItemsWithFlagsAndColumn :: (QStandardItemModelValue this, M142.QStringValue arg'2, M190.IsQtMatchFlags arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.Int) -> (HoppyP.IO [M330.QStandardItem])+findItemsWithFlagsAndColumn arg'1 arg'2 arg'3 arg'4 =+  withQStandardItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtMatchFlags+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (HoppyFHR.decodeAndDelete . M332.QListQStandardItemConst) =<<+  (findItemsWithFlagsAndColumn' arg'1' arg'2' arg'3' arg'4')++horizontalHeaderItem :: (QStandardItemModelValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M330.QStandardItem)+horizontalHeaderItem arg'1 arg'2 =+  withQStandardItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M330.QStandardItem+  (horizontalHeaderItem' arg'1' arg'2')++indexFromItem :: (QStandardItemModelValue this, M330.QStandardItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M92.QModelIndex)+indexFromItem arg'1 arg'2 =+  withQStandardItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M330.withQStandardItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (indexFromItem' arg'1' arg'2')++invisibleRootItem :: (QStandardItemModelValue this) => (this) {- ^ this -} -> (HoppyP.IO M330.QStandardItem)+invisibleRootItem arg'1 =+  withQStandardItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M330.QStandardItem+  (invisibleRootItem' arg'1')++item :: (QStandardItemModelValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M330.QStandardItem)+item arg'1 arg'2 =+  withQStandardItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M330.QStandardItem+  (item' arg'1' arg'2')++itemWithColumn :: (QStandardItemModelValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO M330.QStandardItem)+itemWithColumn arg'1 arg'2 arg'3 =+  withQStandardItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap M330.QStandardItem+  (itemWithColumn' arg'1' arg'2' arg'3')++itemFromIndex :: (QStandardItemModelValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M330.QStandardItem)+itemFromIndex arg'1 arg'2 =+  withQStandardItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap M330.QStandardItem+  (itemFromIndex' arg'1' arg'2')++itemPrototype :: (QStandardItemModelValue this) => (this) {- ^ this -} -> (HoppyP.IO M330.QStandardItemConst)+itemPrototype arg'1 =+  withQStandardItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M330.QStandardItemConst+  (itemPrototype' arg'1')++verticalHeaderItem :: (QStandardItemModelValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M330.QStandardItem)+verticalHeaderItem arg'1 arg'2 =+  withQStandardItemModelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M330.QStandardItem+  (verticalHeaderItem' arg'1' arg'2')++class (QStandardItemModelConstPtr this, M4.QAbstractItemModelPtr this) => QStandardItemModelPtr this where+  toQStandardItemModel :: this -> QStandardItemModel++setSortRole :: (QStandardItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setSortRole arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setSortRole' arg'1' arg'2')++appendColumn :: (QStandardItemModelPtr this, M332.QListQStandardItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendColumn arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  M332.withQListQStandardItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendColumn' arg'1' arg'2')++appendRowItems :: (QStandardItemModelPtr this, M332.QListQStandardItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendRowItems arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  M332.withQListQStandardItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (appendRowItems' arg'1' arg'2')++appendRowItem :: (QStandardItemModelPtr this, M330.QStandardItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+appendRowItem arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'2) $ \arg'2' ->+  (appendRowItem' arg'1' arg'2')++clear :: (QStandardItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (clear' arg'1')++insertColumnWithItems :: (QStandardItemModelPtr this, M332.QListQStandardItemValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insertColumnWithItems arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M332.withQListQStandardItemPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insertColumnWithItems' arg'1' arg'2' arg'3')++insertColumn :: (QStandardItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+insertColumn arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (insertColumn' arg'1' arg'2')++insertColumnWithParent :: (QStandardItemModelPtr this, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+insertColumnWithParent arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (insertColumnWithParent' arg'1' arg'2' arg'3')++insertRowWithItems :: (QStandardItemModelPtr this, M332.QListQStandardItemValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insertRowWithItems arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M332.withQListQStandardItemPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (insertRowWithItems' arg'1' arg'2' arg'3')++insertRowWithItem :: (QStandardItemModelPtr this, M330.QStandardItemPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insertRowWithItem arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'3) $ \arg'3' ->+  (insertRowWithItem' arg'1' arg'2' arg'3')++insertRow :: (QStandardItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+insertRow arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (insertRow' arg'1' arg'2')++insertRowWithParent :: (QStandardItemModelPtr this, M92.QModelIndexValue arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+insertRowWithParent arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M92.withQModelIndexPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (insertRowWithParent' arg'1' arg'2' arg'3')++setColumnCount :: (QStandardItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setColumnCount arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setColumnCount' arg'1' arg'2')++setHorizontalHeaderItem :: (QStandardItemModelPtr this, M330.QStandardItemPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+setHorizontalHeaderItem arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'3) $ \arg'3' ->+  (setHorizontalHeaderItem' arg'1' arg'2' arg'3')++setHorizontalHeaderLabels :: (QStandardItemModelPtr this, M144.QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setHorizontalHeaderLabels arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setHorizontalHeaderLabels' arg'1' arg'2')++setItemWithColumn :: (QStandardItemModelPtr this, M330.QStandardItemPtr arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO ())+setItemWithColumn arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'4) $ \arg'4' ->+  (setItemWithColumn' arg'1' arg'2' arg'3' arg'4')++setItem :: (QStandardItemModelPtr this, M330.QStandardItemPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+setItem arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'3) $ \arg'3' ->+  (setItem' arg'1' arg'2' arg'3')++setItemPrototype :: (QStandardItemModelPtr this, M330.QStandardItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setItemPrototype arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  M330.withQStandardItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setItemPrototype' arg'1' arg'2')++setRowCount :: (QStandardItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setRowCount arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setRowCount' arg'1' arg'2')++setVerticalHeaderItem :: (QStandardItemModelPtr this, M330.QStandardItemPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+setVerticalHeaderItem arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M330.toQStandardItem arg'3) $ \arg'3' ->+  (setVerticalHeaderItem' arg'1' arg'2' arg'3')++setVerticalHeaderLabels :: (QStandardItemModelPtr this, M144.QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setVerticalHeaderLabels arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setVerticalHeaderLabels' arg'1' arg'2')++takeColumn :: (QStandardItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO [M330.QStandardItem])+takeColumn arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M332.QListQStandardItemConst) =<<+  (takeColumn' arg'1' arg'2')++takeHorizontalHeaderItem :: (QStandardItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M330.QStandardItem)+takeHorizontalHeaderItem arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M330.QStandardItem+  (takeHorizontalHeaderItem' arg'1' arg'2')++takeItem :: (QStandardItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M330.QStandardItem)+takeItem arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M330.QStandardItem+  (takeItem' arg'1' arg'2')++takeItemWithColumn :: (QStandardItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO M330.QStandardItem)+takeItemWithColumn arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap M330.QStandardItem+  (takeItemWithColumn' arg'1' arg'2' arg'3')++takeRow :: (QStandardItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO [M330.QStandardItem])+takeRow arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M332.QListQStandardItemConst) =<<+  (takeRow' arg'1' arg'2')++takeVerticalHeaderItem :: (QStandardItemModelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M330.QStandardItem)+takeVerticalHeaderItem arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQStandardItemModel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M330.QStandardItem+  (takeVerticalHeaderItem' arg'1' arg'2')++data QStandardItemModelConst =+    QStandardItemModelConst (HoppyF.Ptr QStandardItemModelConst)+  | QStandardItemModelConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStandardItemModelConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QStandardItemModelConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QStandardItemModelConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQStandardItemModelToConst :: QStandardItemModel -> QStandardItemModelConst+castQStandardItemModelToConst (QStandardItemModel ptr') = QStandardItemModelConst $ HoppyF.castPtr ptr'+castQStandardItemModelToConst (QStandardItemModelGc fptr' ptr') = QStandardItemModelConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QStandardItemModelConst where+  nullptr = QStandardItemModelConst HoppyF.nullPtr+  +  withCppPtr (QStandardItemModelConst ptr') f' = f' ptr'+  withCppPtr (QStandardItemModelConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QStandardItemModelConst ptr') = ptr'+  toPtr (QStandardItemModelConstGc _ ptr') = ptr'+  +  touchCppPtr (QStandardItemModelConst _) = HoppyP.return ()+  touchCppPtr (QStandardItemModelConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QStandardItemModelConst where+  delete (QStandardItemModelConst ptr') = delete'QStandardItemModel ptr'+  delete (QStandardItemModelConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QStandardItemModelConst", " object."]+  +  toGc this'@(QStandardItemModelConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QStandardItemModelConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QStandardItemModel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QStandardItemModelConstGc {}) = HoppyP.return this'++instance QStandardItemModelConstPtr QStandardItemModelConst where+  toQStandardItemModelConst = HoppyP.id++instance M4.QAbstractItemModelConstPtr QStandardItemModelConst where+  toQAbstractItemModelConst (QStandardItemModelConst ptr') = M4.QAbstractItemModelConst $ castQStandardItemModelToQAbstractItemModel ptr'+  toQAbstractItemModelConst (QStandardItemModelConstGc fptr' ptr') = M4.QAbstractItemModelConstGc fptr' $ castQStandardItemModelToQAbstractItemModel ptr'++instance M94.QObjectConstPtr QStandardItemModelConst where+  toQObjectConst (QStandardItemModelConst ptr') = M94.QObjectConst $ castQStandardItemModelToQObject ptr'+  toQObjectConst (QStandardItemModelConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQStandardItemModelToQObject ptr'++data QStandardItemModel =+    QStandardItemModel (HoppyF.Ptr QStandardItemModel)+  | QStandardItemModelGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStandardItemModel)+  deriving (HoppyP.Show)++instance HoppyP.Eq QStandardItemModel where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QStandardItemModel where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQStandardItemModelToNonconst :: QStandardItemModelConst -> QStandardItemModel+castQStandardItemModelToNonconst (QStandardItemModelConst ptr') = QStandardItemModel $ HoppyF.castPtr ptr'+castQStandardItemModelToNonconst (QStandardItemModelConstGc fptr' ptr') = QStandardItemModelGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QStandardItemModel where+  nullptr = QStandardItemModel HoppyF.nullPtr+  +  withCppPtr (QStandardItemModel ptr') f' = f' ptr'+  withCppPtr (QStandardItemModelGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QStandardItemModel ptr') = ptr'+  toPtr (QStandardItemModelGc _ ptr') = ptr'+  +  touchCppPtr (QStandardItemModel _) = HoppyP.return ()+  touchCppPtr (QStandardItemModelGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QStandardItemModel where+  delete (QStandardItemModel ptr') = delete'QStandardItemModel $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QStandardItemModelConst)+  delete (QStandardItemModelGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QStandardItemModel", " object."]+  +  toGc this'@(QStandardItemModel ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QStandardItemModelGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QStandardItemModel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QStandardItemModelGc {}) = HoppyP.return this'++instance QStandardItemModelConstPtr QStandardItemModel where+  toQStandardItemModelConst (QStandardItemModel ptr') = QStandardItemModelConst $ (HoppyF.castPtr :: HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr QStandardItemModelConst) ptr'+  toQStandardItemModelConst (QStandardItemModelGc fptr' ptr') = QStandardItemModelConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr QStandardItemModelConst) ptr'++instance QStandardItemModelPtr QStandardItemModel where+  toQStandardItemModel = HoppyP.id++instance M4.QAbstractItemModelConstPtr QStandardItemModel where+  toQAbstractItemModelConst (QStandardItemModel ptr') = M4.QAbstractItemModelConst $ castQStandardItemModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr QStandardItemModelConst) ptr'+  toQAbstractItemModelConst (QStandardItemModelGc fptr' ptr') = M4.QAbstractItemModelConstGc fptr' $ castQStandardItemModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr QStandardItemModelConst) ptr'++instance M4.QAbstractItemModelPtr QStandardItemModel where+  toQAbstractItemModel (QStandardItemModel ptr') = M4.QAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr M4.QAbstractItemModelConst -> HoppyF.Ptr M4.QAbstractItemModel) $ castQStandardItemModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr QStandardItemModelConst) ptr'+  toQAbstractItemModel (QStandardItemModelGc fptr' ptr') = M4.QAbstractItemModelGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M4.QAbstractItemModelConst -> HoppyF.Ptr M4.QAbstractItemModel) $ castQStandardItemModelToQAbstractItemModel $ (HoppyF.castPtr :: HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr QStandardItemModelConst) ptr'++instance M94.QObjectConstPtr QStandardItemModel where+  toQObjectConst (QStandardItemModel ptr') = M94.QObjectConst $ castQStandardItemModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr QStandardItemModelConst) ptr'+  toQObjectConst (QStandardItemModelGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQStandardItemModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr QStandardItemModelConst) ptr'++instance M94.QObjectPtr QStandardItemModel where+  toQObject (QStandardItemModel ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQStandardItemModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr QStandardItemModelConst) ptr'+  toQObject (QStandardItemModelGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQStandardItemModelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QStandardItemModel -> HoppyF.Ptr QStandardItemModelConst) ptr'++new :: (HoppyP.IO QStandardItemModel)+new =+  HoppyP.fmap QStandardItemModel+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QStandardItemModel)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QStandardItemModel+  (newWithParent' arg'1')++newWithRowsAndColumns :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO QStandardItemModel)+newWithRowsAndColumns arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QStandardItemModel+  (newWithRowsAndColumns' arg'1' arg'2')++newWithRowsAndColumnsAndParent :: (M94.QObjectPtr arg'3) => (HoppyP.Int) -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO QStandardItemModel)+newWithRowsAndColumnsAndParent arg'1 arg'2 arg'3 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'3) $ \arg'3' ->+  HoppyP.fmap QStandardItemModel+  (newWithRowsAndColumnsAndParent' arg'1' arg'2' arg'3')++class QStandardItemModelSuper a where+  downToQStandardItemModel :: a -> QStandardItemModel++instance QStandardItemModelSuper M4.QAbstractItemModel where+  downToQStandardItemModel = castQStandardItemModelToNonconst . cast' . M4.castQAbstractItemModelToConst+    where+      cast' (M4.QAbstractItemModelConst ptr') = QStandardItemModelConst $ castQAbstractItemModelToQStandardItemModel ptr'+      cast' (M4.QAbstractItemModelConstGc fptr' ptr') = QStandardItemModelConstGc fptr' $ castQAbstractItemModelToQStandardItemModel ptr'+instance QStandardItemModelSuper M94.QObject where+  downToQStandardItemModel = castQStandardItemModelToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QStandardItemModelConst $ castQObjectToQStandardItemModel ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QStandardItemModelConstGc fptr' $ castQObjectToQStandardItemModel ptr'++class QStandardItemModelSuperConst a where+  downToQStandardItemModelConst :: a -> QStandardItemModelConst++instance QStandardItemModelSuperConst M4.QAbstractItemModelConst where+  downToQStandardItemModelConst = cast'+    where+      cast' (M4.QAbstractItemModelConst ptr') = QStandardItemModelConst $ castQAbstractItemModelToQStandardItemModel ptr'+      cast' (M4.QAbstractItemModelConstGc fptr' ptr') = QStandardItemModelConstGc fptr' $ castQAbstractItemModelToQStandardItemModel ptr'+instance QStandardItemModelSuperConst M94.QObjectConst where+  downToQStandardItemModelConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QStandardItemModelConst $ castQObjectToQStandardItemModel ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QStandardItemModelConstGc fptr' $ castQObjectToQStandardItemModel ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QStandardItemModel)) QStandardItemModel where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QStandardItemModel)) QStandardItemModel where+  decode = HoppyP.fmap QStandardItemModel . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Gui/QStandardItemModel.hs-boot view
@@ -0,0 +1,72 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QStandardItemModel (+  QStandardItemModelValue (..),+  QStandardItemModelConstPtr (..),+  QStandardItemModelPtr (..),+  QStandardItemModelConst (..),+  castQStandardItemModelToConst,+  QStandardItemModel (..),+  castQStandardItemModelToNonconst,+  castQStandardItemModelToQAbstractItemModel,+  castQStandardItemModelToQObject,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QAbstractItemModel as M4+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Prelude as HoppyP+++class QStandardItemModelValue a where+  withQStandardItemModelPtr :: a -> (QStandardItemModelConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QStandardItemModelConstPtr a => QStandardItemModelValue a++class (M4.QAbstractItemModelConstPtr this) => QStandardItemModelConstPtr this where+  toQStandardItemModelConst :: this -> QStandardItemModelConst++class (QStandardItemModelConstPtr this, M4.QAbstractItemModelPtr this) => QStandardItemModelPtr this where+  toQStandardItemModel :: this -> QStandardItemModel++data QStandardItemModelConst =+    QStandardItemModelConst (HoppyF.Ptr QStandardItemModelConst)+  | QStandardItemModelConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStandardItemModelConst)++castQStandardItemModelToConst :: QStandardItemModel -> QStandardItemModelConst++instance HoppyFHR.CppPtr QStandardItemModelConst+instance HoppyFHR.Deletable QStandardItemModelConst++instance QStandardItemModelConstPtr QStandardItemModelConst++instance M4.QAbstractItemModelConstPtr QStandardItemModelConst++instance M94.QObjectConstPtr QStandardItemModelConst++data QStandardItemModel =+    QStandardItemModel (HoppyF.Ptr QStandardItemModel)+  | QStandardItemModelGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QStandardItemModel)++castQStandardItemModelToNonconst :: QStandardItemModelConst -> QStandardItemModel++instance HoppyFHR.CppPtr QStandardItemModel+instance HoppyFHR.Deletable QStandardItemModel++instance QStandardItemModelConstPtr QStandardItemModel++instance QStandardItemModelPtr QStandardItemModel++instance M4.QAbstractItemModelConstPtr QStandardItemModel++instance M4.QAbstractItemModelPtr QStandardItemModel++instance M94.QObjectConstPtr QStandardItemModel++instance M94.QObjectPtr QStandardItemModel+castQStandardItemModelToQAbstractItemModel :: HoppyF.Ptr QStandardItemModelConst -> HoppyF.Ptr M4.QAbstractItemModelConst+castQStandardItemModelToQObject :: HoppyF.Ptr QStandardItemModelConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QStandardItemModel)) QStandardItemModel
src/Graphics/UI/Qtah/Generated/Gui/QSurface.hs view
@@ -0,0 +1,214 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QSurface (+  QSurfaceValue (..),+  QSurfaceConstPtr (..),+  size,+  supportsOpenGL,+  surfaceClass,+  surfaceType,+  QSurfacePtr (..),+  QSurfaceConst (..),+  castQSurfaceToConst,+  QSurface (..),+  castQSurfaceToNonconst,+  QSurfaceSuper (..),+  QSurfaceSuperConst (..),+  QSurfaceSurfaceClass (..),+  QSurfaceSurfaceType (..),+  ) 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.HSize as HSize+import qualified Graphics.UI.Qtah.Generated.Core.QSize as M134+import Prelude (($), (.), (/=), (=<<), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QSurface_size" size' ::  HoppyF.Ptr QSurfaceConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QSurface_supportsOpenGL" supportsOpenGL' ::  HoppyF.Ptr QSurfaceConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QSurface_surfaceClass" surfaceClass' ::  HoppyF.Ptr QSurfaceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QSurface_surfaceType" surfaceType' ::  HoppyF.Ptr QSurfaceConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "gendel__QSurface" delete'QSurface :: HoppyF.Ptr QSurfaceConst -> HoppyP.IO ()+foreign import ccall "&gendel__QSurface" deletePtr'QSurface :: HoppyF.FunPtr (HoppyF.Ptr QSurfaceConst -> HoppyP.IO ())++class QSurfaceValue a where+  withQSurfacePtr :: a -> (QSurfaceConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QSurfaceConstPtr a => QSurfaceValue a where+  withQSurfacePtr = HoppyP.flip ($) . toQSurfaceConst++class (HoppyFHR.CppPtr this) => QSurfaceConstPtr this where+  toQSurfaceConst :: this -> QSurfaceConst++size :: (QSurfaceValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+size arg'1 =+  withQSurfacePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (size' arg'1')++supportsOpenGL :: (QSurfaceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+supportsOpenGL arg'1 =+  withQSurfacePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (supportsOpenGL' arg'1')++surfaceClass :: (QSurfaceValue this) => (this) {- ^ this -} -> (HoppyP.IO QSurfaceSurfaceClass)+surfaceClass arg'1 =+  withQSurfacePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (surfaceClass' arg'1')++surfaceType :: (QSurfaceValue this) => (this) {- ^ this -} -> (HoppyP.IO QSurfaceSurfaceType)+surfaceType arg'1 =+  withQSurfacePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (surfaceType' arg'1')++class (QSurfaceConstPtr this) => QSurfacePtr this where+  toQSurface :: this -> QSurface++data QSurfaceConst =+    QSurfaceConst (HoppyF.Ptr QSurfaceConst)+  | QSurfaceConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSurfaceConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QSurfaceConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QSurfaceConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQSurfaceToConst :: QSurface -> QSurfaceConst+castQSurfaceToConst (QSurface ptr') = QSurfaceConst $ HoppyF.castPtr ptr'+castQSurfaceToConst (QSurfaceGc fptr' ptr') = QSurfaceConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QSurfaceConst where+  nullptr = QSurfaceConst HoppyF.nullPtr+  +  withCppPtr (QSurfaceConst ptr') f' = f' ptr'+  withCppPtr (QSurfaceConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QSurfaceConst ptr') = ptr'+  toPtr (QSurfaceConstGc _ ptr') = ptr'+  +  touchCppPtr (QSurfaceConst _) = HoppyP.return ()+  touchCppPtr (QSurfaceConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QSurfaceConst where+  delete (QSurfaceConst ptr') = delete'QSurface ptr'+  delete (QSurfaceConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QSurfaceConst", " object."]+  +  toGc this'@(QSurfaceConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QSurfaceConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QSurface :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QSurfaceConstGc {}) = HoppyP.return this'++instance QSurfaceConstPtr QSurfaceConst where+  toQSurfaceConst = HoppyP.id++data QSurface =+    QSurface (HoppyF.Ptr QSurface)+  | QSurfaceGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QSurface)+  deriving (HoppyP.Show)++instance HoppyP.Eq QSurface where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QSurface where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQSurfaceToNonconst :: QSurfaceConst -> QSurface+castQSurfaceToNonconst (QSurfaceConst ptr') = QSurface $ HoppyF.castPtr ptr'+castQSurfaceToNonconst (QSurfaceConstGc fptr' ptr') = QSurfaceGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QSurface where+  nullptr = QSurface HoppyF.nullPtr+  +  withCppPtr (QSurface ptr') f' = f' ptr'+  withCppPtr (QSurfaceGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QSurface ptr') = ptr'+  toPtr (QSurfaceGc _ ptr') = ptr'+  +  touchCppPtr (QSurface _) = HoppyP.return ()+  touchCppPtr (QSurfaceGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QSurface where+  delete (QSurface ptr') = delete'QSurface $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QSurfaceConst)+  delete (QSurfaceGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QSurface", " object."]+  +  toGc this'@(QSurface ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QSurfaceGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QSurface :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QSurfaceGc {}) = HoppyP.return this'++instance QSurfaceConstPtr QSurface where+  toQSurfaceConst (QSurface ptr') = QSurfaceConst $ (HoppyF.castPtr :: HoppyF.Ptr QSurface -> HoppyF.Ptr QSurfaceConst) ptr'+  toQSurfaceConst (QSurfaceGc fptr' ptr') = QSurfaceConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QSurface -> HoppyF.Ptr QSurfaceConst) ptr'++instance QSurfacePtr QSurface where+  toQSurface = HoppyP.id++class QSurfaceSuper a where+  downToQSurface :: a -> QSurface+++class QSurfaceSuperConst a where+  downToQSurfaceConst :: a -> QSurfaceConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QSurface)) QSurface where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QSurface)) QSurface where+  decode = HoppyP.fmap QSurface . HoppyF.peek++data QSurfaceSurfaceClass =+  Window+  | Offscreen+  | UnknownQSurfaceSurfaceClass (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QSurfaceSurfaceClass where+  fromCppEnum Window = 0+  fromCppEnum Offscreen = 1+  fromCppEnum (UnknownQSurfaceSurfaceClass n) = n+  +  toCppEnum (0) = Window+  toCppEnum (1) = Offscreen+  toCppEnum n = UnknownQSurfaceSurfaceClass n++instance HoppyP.Eq QSurfaceSurfaceClass where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QSurfaceSurfaceClass where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QSurfaceSurfaceType =+  RasterSurface+  | OpenGlSurface+  | RasterGlSurface+  | UnknownQSurfaceSurfaceType (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QSurfaceSurfaceType where+  fromCppEnum RasterSurface = 0+  fromCppEnum OpenGlSurface = 1+  fromCppEnum RasterGlSurface = 2+  fromCppEnum (UnknownQSurfaceSurfaceType n) = n+  +  toCppEnum (0) = RasterSurface+  toCppEnum (1) = OpenGlSurface+  toCppEnum (2) = RasterGlSurface+  toCppEnum n = UnknownQSurfaceSurfaceType n++instance HoppyP.Eq QSurfaceSurfaceType where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QSurfaceSurfaceType where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Gui/QTransform.hs view
@@ -0,0 +1,206 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QTransform (+  QTransformValue (..),+  QTransformConstPtr (..),+  eQ,+  nE,+  QTransformPtr (..),+  aSSIGN,+  QTransformConst (..),+  castQTransformToConst,+  QTransform (..),+  castQTransformToNonconst,+  new2x2,+  newCopy,+  QTransformSuper (..),+  QTransformSuperConst (..),+  ) where++import Control.Monad ((>=>))+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import Prelude (($), (.), (/=), (=<<), (==), (>>), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QTransform_new2x2" new2x2' ::  HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QTransform)+foreign import ccall "genpop__QTransform_newCopy" newCopy' ::  HoppyF.Ptr QTransformConst -> HoppyP.IO (HoppyF.Ptr QTransform)+foreign import ccall "genpop__QTransform_EQ" eQ' ::  HoppyF.Ptr QTransformConst -> HoppyF.Ptr QTransformConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTransform_NE" nE' ::  HoppyF.Ptr QTransformConst -> HoppyF.Ptr QTransformConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QTransform_ASSIGN" aSSIGN' ::  HoppyF.Ptr QTransform -> HoppyF.Ptr QTransformConst -> HoppyP.IO (HoppyF.Ptr QTransform)+foreign import ccall "gendel__QTransform" delete'QTransform :: HoppyF.Ptr QTransformConst -> HoppyP.IO ()+foreign import ccall "&gendel__QTransform" deletePtr'QTransform :: HoppyF.FunPtr (HoppyF.Ptr QTransformConst -> HoppyP.IO ())++class QTransformValue a where+  withQTransformPtr :: a -> (QTransformConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QTransformConstPtr a => QTransformValue a where+  withQTransformPtr = HoppyP.flip ($) . toQTransformConst++class (HoppyFHR.CppPtr this) => QTransformConstPtr this where+  toQTransformConst :: this -> QTransformConst++eQ :: (QTransformValue this, QTransformValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+eQ arg'1 arg'2 =+  withQTransformPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQTransformPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (eQ' arg'1' arg'2')++nE :: (QTransformValue this, QTransformValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+nE arg'1 arg'2 =+  withQTransformPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQTransformPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (nE' arg'1' arg'2')++class (QTransformConstPtr this) => QTransformPtr this where+  toQTransform :: this -> QTransform++aSSIGN :: (QTransformPtr this, QTransformValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QTransform)+aSSIGN arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQTransform arg'1) $ \arg'1' ->+  withQTransformPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QTransform+  (aSSIGN' arg'1' arg'2')++data QTransformConst =+    QTransformConst (HoppyF.Ptr QTransformConst)+  | QTransformConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTransformConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTransformConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTransformConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTransformToConst :: QTransform -> QTransformConst+castQTransformToConst (QTransform ptr') = QTransformConst $ HoppyF.castPtr ptr'+castQTransformToConst (QTransformGc fptr' ptr') = QTransformConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTransformConst where+  nullptr = QTransformConst HoppyF.nullPtr+  +  withCppPtr (QTransformConst ptr') f' = f' ptr'+  withCppPtr (QTransformConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTransformConst ptr') = ptr'+  toPtr (QTransformConstGc _ ptr') = ptr'+  +  touchCppPtr (QTransformConst _) = HoppyP.return ()+  touchCppPtr (QTransformConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTransformConst where+  delete (QTransformConst ptr') = delete'QTransform ptr'+  delete (QTransformConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTransformConst", " object."]+  +  toGc this'@(QTransformConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTransformConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTransform :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTransformConstGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QTransformConst QTransform where copy = newCopy++instance QTransformConstPtr QTransformConst where+  toQTransformConst = HoppyP.id++data QTransform =+    QTransform (HoppyF.Ptr QTransform)+  | QTransformGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTransform)+  deriving (HoppyP.Show)++instance HoppyP.Eq QTransform where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QTransform where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQTransformToNonconst :: QTransformConst -> QTransform+castQTransformToNonconst (QTransformConst ptr') = QTransform $ HoppyF.castPtr ptr'+castQTransformToNonconst (QTransformConstGc fptr' ptr') = QTransformGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QTransform where+  nullptr = QTransform HoppyF.nullPtr+  +  withCppPtr (QTransform ptr') f' = f' ptr'+  withCppPtr (QTransformGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QTransform ptr') = ptr'+  toPtr (QTransformGc _ ptr') = ptr'+  +  touchCppPtr (QTransform _) = HoppyP.return ()+  touchCppPtr (QTransformGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QTransform where+  delete (QTransform ptr') = delete'QTransform $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QTransformConst)+  delete (QTransformGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTransform", " object."]+  +  toGc this'@(QTransform ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTransformGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTransform :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QTransformGc {}) = HoppyP.return this'++instance HoppyFHR.Copyable QTransform QTransform where copy = newCopy++instance QTransformConstPtr QTransform where+  toQTransformConst (QTransform ptr') = QTransformConst $ (HoppyF.castPtr :: HoppyF.Ptr QTransform -> HoppyF.Ptr QTransformConst) ptr'+  toQTransformConst (QTransformGc fptr' ptr') = QTransformConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QTransform -> HoppyF.Ptr QTransformConst) ptr'++instance QTransformPtr QTransform where+  toQTransform = HoppyP.id++new2x2 :: (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO QTransform)+new2x2 arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'6 >>= \arg'6' ->+  HoppyP.fmap QTransform+  (new2x2' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++newCopy :: (QTransformValue arg'1) => (arg'1) -> (HoppyP.IO QTransform)+newCopy arg'1 =+  withQTransformPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QTransform+  (newCopy' arg'1')++class QTransformSuper a where+  downToQTransform :: a -> QTransform+++class QTransformSuperConst a where+  downToQTransformConst :: a -> QTransformConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QTransform)) QTransform where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance QTransformValue a => HoppyFHR.Assignable QTransform a where+  assign x' y' = aSSIGN x' y' >> HoppyP.return ()++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QTransform)) QTransform where+  decode = HoppyP.fmap QTransform . HoppyF.peek++instance HoppyFHR.Decodable QTransform (QTransform) where+  decode = HoppyFHR.decode . toQTransformConst++instance HoppyFHR.Decodable QTransformConst (QTransform) where+  decode =+    HoppyFHR.copy >=> HoppyFHR.toGc
src/Graphics/UI/Qtah/Generated/Gui/QValidator.hs view
@@ -0,0 +1,207 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QValidator (+  castQValidatorToQObject,+  castQObjectToQValidator,+  QValidatorValue (..),+  QValidatorConstPtr (..),+  fixup,+  validate,+  QValidatorPtr (..),+  emitChanged,+  QValidatorConst (..),+  castQValidatorToConst,+  QValidator (..),+  castQValidatorToNonconst,+  QValidatorSuper (..),+  QValidatorSuperConst (..),+  QValidatorState (..),+  ) 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.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import Prelude (($), (.), (=<<), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QValidator_fixup" fixup' ::  HoppyF.Ptr QValidatorConst -> HoppyF.Ptr M142.QString -> HoppyP.IO ()+foreign import ccall "genpop__QValidator_validate" validate' ::  HoppyF.Ptr QValidatorConst -> HoppyF.Ptr M142.QString -> HoppyF.Ptr HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QValidator_emitChanged" emitChanged' ::  HoppyF.Ptr QValidator -> HoppyP.IO ()+foreign import ccall "gencast__QValidator__QObject" castQValidatorToQObject :: HoppyF.Ptr QValidatorConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QValidator" castQObjectToQValidator :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QValidatorConst+foreign import ccall "gendel__QValidator" delete'QValidator :: HoppyF.Ptr QValidatorConst -> HoppyP.IO ()+foreign import ccall "&gendel__QValidator" deletePtr'QValidator :: HoppyF.FunPtr (HoppyF.Ptr QValidatorConst -> HoppyP.IO ())++class QValidatorValue a where+  withQValidatorPtr :: a -> (QValidatorConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QValidatorConstPtr a => QValidatorValue a where+  withQValidatorPtr = HoppyP.flip ($) . toQValidatorConst++class (M94.QObjectConstPtr this) => QValidatorConstPtr this where+  toQValidatorConst :: this -> QValidatorConst++fixup :: (QValidatorValue this, M142.QStringPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+fixup arg'1 arg'2 =+  withQValidatorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M142.toQString arg'2) $ \arg'2' ->+  (fixup' arg'1' arg'2')++validate :: (QValidatorValue this, M142.QStringPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyF.Ptr HoppyFC.CInt) -> (HoppyP.IO QValidatorState)+validate arg'1 arg'2 arg'3 =+  withQValidatorPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M142.toQString arg'2) $ \arg'2' ->+  let arg'3' = arg'3 in+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (validate' arg'1' arg'2' arg'3')++class (QValidatorConstPtr this, M94.QObjectPtr this) => QValidatorPtr this where+  toQValidator :: this -> QValidator++emitChanged :: (QValidatorPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitChanged arg'1 =+  HoppyFHR.withCppPtr (toQValidator arg'1) $ \arg'1' ->+  (emitChanged' arg'1')++data QValidatorConst =+    QValidatorConst (HoppyF.Ptr QValidatorConst)+  | QValidatorConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QValidatorConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QValidatorConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QValidatorConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQValidatorToConst :: QValidator -> QValidatorConst+castQValidatorToConst (QValidator ptr') = QValidatorConst $ HoppyF.castPtr ptr'+castQValidatorToConst (QValidatorGc fptr' ptr') = QValidatorConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QValidatorConst where+  nullptr = QValidatorConst HoppyF.nullPtr+  +  withCppPtr (QValidatorConst ptr') f' = f' ptr'+  withCppPtr (QValidatorConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QValidatorConst ptr') = ptr'+  toPtr (QValidatorConstGc _ ptr') = ptr'+  +  touchCppPtr (QValidatorConst _) = HoppyP.return ()+  touchCppPtr (QValidatorConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QValidatorConst where+  delete (QValidatorConst ptr') = delete'QValidator ptr'+  delete (QValidatorConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QValidatorConst", " object."]+  +  toGc this'@(QValidatorConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QValidatorConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QValidator :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QValidatorConstGc {}) = HoppyP.return this'++instance QValidatorConstPtr QValidatorConst where+  toQValidatorConst = HoppyP.id++instance M94.QObjectConstPtr QValidatorConst where+  toQObjectConst (QValidatorConst ptr') = M94.QObjectConst $ castQValidatorToQObject ptr'+  toQObjectConst (QValidatorConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQValidatorToQObject ptr'++data QValidator =+    QValidator (HoppyF.Ptr QValidator)+  | QValidatorGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QValidator)+  deriving (HoppyP.Show)++instance HoppyP.Eq QValidator where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QValidator where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQValidatorToNonconst :: QValidatorConst -> QValidator+castQValidatorToNonconst (QValidatorConst ptr') = QValidator $ HoppyF.castPtr ptr'+castQValidatorToNonconst (QValidatorConstGc fptr' ptr') = QValidatorGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QValidator where+  nullptr = QValidator HoppyF.nullPtr+  +  withCppPtr (QValidator ptr') f' = f' ptr'+  withCppPtr (QValidatorGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QValidator ptr') = ptr'+  toPtr (QValidatorGc _ ptr') = ptr'+  +  touchCppPtr (QValidator _) = HoppyP.return ()+  touchCppPtr (QValidatorGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QValidator where+  delete (QValidator ptr') = delete'QValidator $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QValidatorConst)+  delete (QValidatorGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QValidator", " object."]+  +  toGc this'@(QValidator ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QValidatorGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QValidator :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QValidatorGc {}) = HoppyP.return this'++instance QValidatorConstPtr QValidator where+  toQValidatorConst (QValidator ptr') = QValidatorConst $ (HoppyF.castPtr :: HoppyF.Ptr QValidator -> HoppyF.Ptr QValidatorConst) ptr'+  toQValidatorConst (QValidatorGc fptr' ptr') = QValidatorConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QValidator -> HoppyF.Ptr QValidatorConst) ptr'++instance QValidatorPtr QValidator where+  toQValidator = HoppyP.id++instance M94.QObjectConstPtr QValidator where+  toQObjectConst (QValidator ptr') = M94.QObjectConst $ castQValidatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QValidator -> HoppyF.Ptr QValidatorConst) ptr'+  toQObjectConst (QValidatorGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQValidatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QValidator -> HoppyF.Ptr QValidatorConst) ptr'++instance M94.QObjectPtr QValidator where+  toQObject (QValidator ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQValidatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QValidator -> HoppyF.Ptr QValidatorConst) ptr'+  toQObject (QValidatorGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQValidatorToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QValidator -> HoppyF.Ptr QValidatorConst) ptr'++class QValidatorSuper a where+  downToQValidator :: a -> QValidator++instance QValidatorSuper M94.QObject where+  downToQValidator = castQValidatorToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QValidatorConst $ castQObjectToQValidator ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QValidatorConstGc fptr' $ castQObjectToQValidator ptr'++class QValidatorSuperConst a where+  downToQValidatorConst :: a -> QValidatorConst++instance QValidatorSuperConst M94.QObjectConst where+  downToQValidatorConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QValidatorConst $ castQObjectToQValidator ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QValidatorConstGc fptr' $ castQObjectToQValidator ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QValidator)) QValidator where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QValidator)) QValidator where+  decode = HoppyP.fmap QValidator . HoppyF.peek++data QValidatorState =+  Invalid+  | Intermediate+  | Acceptable+  | UnknownQValidatorState (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QValidatorState where+  fromCppEnum Invalid = 0+  fromCppEnum Intermediate = 1+  fromCppEnum Acceptable = 2+  fromCppEnum (UnknownQValidatorState n) = n+  +  toCppEnum (0) = Invalid+  toCppEnum (1) = Intermediate+  toCppEnum (2) = Acceptable+  toCppEnum n = UnknownQValidatorState n++instance HoppyP.Eq QValidatorState where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QValidatorState where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Gui/QWheelEvent.hs view
@@ -0,0 +1,345 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QWheelEvent (+  castQWheelEventToQInputEvent,+  castQInputEventToQWheelEvent,+  castQWheelEventToQEvent,+  castQEventToQWheelEvent,+  QWheelEventValue (..),+  QWheelEventConstPtr (..),+  angleDelta,+  buttons,+  globalPos,+  globalPosF,+  globalX,+  globalY,+  phase,+  pixelDelta,+  pos,+  posF,+  x,+  y,+  QWheelEventPtr (..),+  QWheelEventConst (..),+  castQWheelEventToConst,+  QWheelEvent (..),+  castQWheelEventToNonconst,+  new,+  newWithPhase,+  QWheelEventSuper (..),+  QWheelEventSuperConst (..),+  ) 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.HPoint as HPoint+import qualified Graphics.UI.Qtah.Core.HPointF as HPointF+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114+import qualified Graphics.UI.Qtah.Generated.Core.QPointF as M116+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Gui.QInputEvent as M294+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QWheelEvent_new" new' ::  HoppyF.Ptr M116.QPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyF.Ptr M114.QPointConst -> HoppyF.Ptr M114.QPointConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QWheelEvent)+foreign import ccall "genpop__QWheelEvent_newWithPhase" newWithPhase' ::  HoppyF.Ptr M116.QPointFConst -> HoppyF.Ptr M116.QPointFConst -> HoppyF.Ptr M114.QPointConst -> HoppyF.Ptr M114.QPointConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QWheelEvent)+foreign import ccall "genpop__QWheelEvent_angleDelta" angleDelta' ::  HoppyF.Ptr QWheelEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QWheelEvent_buttons" buttons' ::  HoppyF.Ptr QWheelEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWheelEvent_globalPos" globalPos' ::  HoppyF.Ptr QWheelEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QWheelEvent_globalPosF" globalPosF' ::  HoppyF.Ptr QWheelEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QWheelEvent_globalX" globalX' ::  HoppyF.Ptr QWheelEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWheelEvent_globalY" globalY' ::  HoppyF.Ptr QWheelEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWheelEvent_phase" phase' ::  HoppyF.Ptr QWheelEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWheelEvent_pixelDelta" pixelDelta' ::  HoppyF.Ptr QWheelEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QWheelEvent_pos" pos' ::  HoppyF.Ptr QWheelEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QWheelEvent_posF" posF' ::  HoppyF.Ptr QWheelEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QWheelEvent_x" x' ::  HoppyF.Ptr QWheelEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWheelEvent_y" y' ::  HoppyF.Ptr QWheelEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "gencast__QWheelEvent__QInputEvent" castQWheelEventToQInputEvent :: HoppyF.Ptr QWheelEventConst -> HoppyF.Ptr M294.QInputEventConst+foreign import ccall "gencast__QInputEvent__QWheelEvent" castQInputEventToQWheelEvent :: HoppyF.Ptr M294.QInputEventConst -> HoppyF.Ptr QWheelEventConst+foreign import ccall "gencast__QWheelEvent__QEvent" castQWheelEventToQEvent :: HoppyF.Ptr QWheelEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QWheelEvent" castQEventToQWheelEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QWheelEventConst+foreign import ccall "gendel__QWheelEvent" delete'QWheelEvent :: HoppyF.Ptr QWheelEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QWheelEvent" deletePtr'QWheelEvent :: HoppyF.FunPtr (HoppyF.Ptr QWheelEventConst -> HoppyP.IO ())++class QWheelEventValue a where+  withQWheelEventPtr :: a -> (QWheelEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QWheelEventConstPtr a => QWheelEventValue a where+  withQWheelEventPtr = HoppyP.flip ($) . toQWheelEventConst++class (M294.QInputEventConstPtr this) => QWheelEventConstPtr this where+  toQWheelEventConst :: this -> QWheelEventConst++angleDelta :: (QWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+angleDelta arg'1 =+  withQWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (angleDelta' arg'1')++buttons :: (QWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtMouseButtons)+buttons arg'1 =+  withQWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (buttons' arg'1')++globalPos :: (QWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+globalPos arg'1 =+  withQWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (globalPos' arg'1')++globalPosF :: (QWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+globalPosF arg'1 =+  withQWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (globalPosF' arg'1')++globalX :: (QWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+globalX arg'1 =+  withQWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (globalX' arg'1')++globalY :: (QWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+globalY arg'1 =+  withQWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (globalY' arg'1')++phase :: (QWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtScrollPhase)+phase arg'1 =+  withQWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (phase' arg'1')++pixelDelta :: (QWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+pixelDelta arg'1 =+  withQWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (pixelDelta' arg'1')++pos :: (QWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+pos arg'1 =+  withQWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (pos' arg'1')++posF :: (QWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+posF arg'1 =+  withQWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (posF' arg'1')++x :: (QWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+x arg'1 =+  withQWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (x' arg'1')++y :: (QWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+y arg'1 =+  withQWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (y' arg'1')++class (QWheelEventConstPtr this, M294.QInputEventPtr this) => QWheelEventPtr this where+  toQWheelEvent :: this -> QWheelEvent++data QWheelEventConst =+    QWheelEventConst (HoppyF.Ptr QWheelEventConst)+  | QWheelEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QWheelEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QWheelEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QWheelEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQWheelEventToConst :: QWheelEvent -> QWheelEventConst+castQWheelEventToConst (QWheelEvent ptr') = QWheelEventConst $ HoppyF.castPtr ptr'+castQWheelEventToConst (QWheelEventGc fptr' ptr') = QWheelEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QWheelEventConst where+  nullptr = QWheelEventConst HoppyF.nullPtr+  +  withCppPtr (QWheelEventConst ptr') f' = f' ptr'+  withCppPtr (QWheelEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QWheelEventConst ptr') = ptr'+  toPtr (QWheelEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QWheelEventConst _) = HoppyP.return ()+  touchCppPtr (QWheelEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QWheelEventConst where+  delete (QWheelEventConst ptr') = delete'QWheelEvent ptr'+  delete (QWheelEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QWheelEventConst", " object."]+  +  toGc this'@(QWheelEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QWheelEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QWheelEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QWheelEventConstGc {}) = HoppyP.return this'++instance QWheelEventConstPtr QWheelEventConst where+  toQWheelEventConst = HoppyP.id++instance M294.QInputEventConstPtr QWheelEventConst where+  toQInputEventConst (QWheelEventConst ptr') = M294.QInputEventConst $ castQWheelEventToQInputEvent ptr'+  toQInputEventConst (QWheelEventConstGc fptr' ptr') = M294.QInputEventConstGc fptr' $ castQWheelEventToQInputEvent ptr'++instance M34.QEventConstPtr QWheelEventConst where+  toQEventConst (QWheelEventConst ptr') = M34.QEventConst $ castQWheelEventToQEvent ptr'+  toQEventConst (QWheelEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQWheelEventToQEvent ptr'++data QWheelEvent =+    QWheelEvent (HoppyF.Ptr QWheelEvent)+  | QWheelEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QWheelEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QWheelEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QWheelEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQWheelEventToNonconst :: QWheelEventConst -> QWheelEvent+castQWheelEventToNonconst (QWheelEventConst ptr') = QWheelEvent $ HoppyF.castPtr ptr'+castQWheelEventToNonconst (QWheelEventConstGc fptr' ptr') = QWheelEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QWheelEvent where+  nullptr = QWheelEvent HoppyF.nullPtr+  +  withCppPtr (QWheelEvent ptr') f' = f' ptr'+  withCppPtr (QWheelEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QWheelEvent ptr') = ptr'+  toPtr (QWheelEventGc _ ptr') = ptr'+  +  touchCppPtr (QWheelEvent _) = HoppyP.return ()+  touchCppPtr (QWheelEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QWheelEvent where+  delete (QWheelEvent ptr') = delete'QWheelEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QWheelEventConst)+  delete (QWheelEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QWheelEvent", " object."]+  +  toGc this'@(QWheelEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QWheelEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QWheelEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QWheelEventGc {}) = HoppyP.return this'++instance QWheelEventConstPtr QWheelEvent where+  toQWheelEventConst (QWheelEvent ptr') = QWheelEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QWheelEvent -> HoppyF.Ptr QWheelEventConst) ptr'+  toQWheelEventConst (QWheelEventGc fptr' ptr') = QWheelEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QWheelEvent -> HoppyF.Ptr QWheelEventConst) ptr'++instance QWheelEventPtr QWheelEvent where+  toQWheelEvent = HoppyP.id++instance M294.QInputEventConstPtr QWheelEvent where+  toQInputEventConst (QWheelEvent ptr') = M294.QInputEventConst $ castQWheelEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QWheelEvent -> HoppyF.Ptr QWheelEventConst) ptr'+  toQInputEventConst (QWheelEventGc fptr' ptr') = M294.QInputEventConstGc fptr' $ castQWheelEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QWheelEvent -> HoppyF.Ptr QWheelEventConst) ptr'++instance M294.QInputEventPtr QWheelEvent where+  toQInputEvent (QWheelEvent ptr') = M294.QInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr M294.QInputEventConst -> HoppyF.Ptr M294.QInputEvent) $ castQWheelEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QWheelEvent -> HoppyF.Ptr QWheelEventConst) ptr'+  toQInputEvent (QWheelEventGc fptr' ptr') = M294.QInputEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M294.QInputEventConst -> HoppyF.Ptr M294.QInputEvent) $ castQWheelEventToQInputEvent $ (HoppyF.castPtr :: HoppyF.Ptr QWheelEvent -> HoppyF.Ptr QWheelEventConst) ptr'++instance M34.QEventConstPtr QWheelEvent where+  toQEventConst (QWheelEvent ptr') = M34.QEventConst $ castQWheelEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QWheelEvent -> HoppyF.Ptr QWheelEventConst) ptr'+  toQEventConst (QWheelEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQWheelEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QWheelEvent -> HoppyF.Ptr QWheelEventConst) ptr'++instance M34.QEventPtr QWheelEvent where+  toQEvent (QWheelEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQWheelEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QWheelEvent -> HoppyF.Ptr QWheelEventConst) ptr'+  toQEvent (QWheelEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQWheelEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QWheelEvent -> HoppyF.Ptr QWheelEventConst) ptr'++new :: (M116.QPointFValue arg'1, M116.QPointFValue arg'2, M114.QPointValue arg'3, M114.QPointValue arg'4, M190.IsQtMouseButtons arg'7, M190.IsQtKeyboardModifiers arg'8) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.Int) -> (M190.QtOrientation) -> (arg'7) -> (arg'8) -> (HoppyP.IO QWheelEvent)+new arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 arg'8 =+  M116.withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M114.withQPointPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M114.withQPointPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'5 >>= \arg'5' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'6 >>= \arg'6' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtMouseButtons+  ) arg'7 >>= \arg'7' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'8 >>= \arg'8' ->+  HoppyP.fmap QWheelEvent+  (new' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7' arg'8')++newWithPhase :: (M116.QPointFValue arg'1, M116.QPointFValue arg'2, M114.QPointValue arg'3, M114.QPointValue arg'4, M190.IsQtMouseButtons arg'7, M190.IsQtKeyboardModifiers arg'8) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.Int) -> (M190.QtOrientation) -> (arg'7) -> (arg'8) -> (M190.QtScrollPhase) -> (HoppyP.IO QWheelEvent)+newWithPhase arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 arg'8 arg'9 =+  M116.withQPointFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M114.withQPointPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M114.withQPointPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'5 >>= \arg'5' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'6 >>= \arg'6' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtMouseButtons+  ) arg'7 >>= \arg'7' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtKeyboardModifiers+  ) arg'8 >>= \arg'8' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'9 >>= \arg'9' ->+  HoppyP.fmap QWheelEvent+  (newWithPhase' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7' arg'8' arg'9')++class QWheelEventSuper a where+  downToQWheelEvent :: a -> QWheelEvent++instance QWheelEventSuper M294.QInputEvent where+  downToQWheelEvent = castQWheelEventToNonconst . cast' . M294.castQInputEventToConst+    where+      cast' (M294.QInputEventConst ptr') = QWheelEventConst $ castQInputEventToQWheelEvent ptr'+      cast' (M294.QInputEventConstGc fptr' ptr') = QWheelEventConstGc fptr' $ castQInputEventToQWheelEvent ptr'+instance QWheelEventSuper M34.QEvent where+  downToQWheelEvent = castQWheelEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QWheelEventConst $ castQEventToQWheelEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QWheelEventConstGc fptr' $ castQEventToQWheelEvent ptr'++class QWheelEventSuperConst a where+  downToQWheelEventConst :: a -> QWheelEventConst++instance QWheelEventSuperConst M294.QInputEventConst where+  downToQWheelEventConst = cast'+    where+      cast' (M294.QInputEventConst ptr') = QWheelEventConst $ castQInputEventToQWheelEvent ptr'+      cast' (M294.QInputEventConstGc fptr' ptr') = QWheelEventConstGc fptr' $ castQInputEventToQWheelEvent ptr'+instance QWheelEventSuperConst M34.QEventConst where+  downToQWheelEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QWheelEventConst $ castQEventToQWheelEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QWheelEventConstGc fptr' $ castQEventToQWheelEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QWheelEvent)) QWheelEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QWheelEvent)) QWheelEvent where+  decode = HoppyP.fmap QWheelEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QWindow.hs view
@@ -0,0 +1,1261 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QWindow (+  castQWindowToQObject,+  castQObjectToQWindow,+  castQWindowToQSurface,+  castQSurfaceToQWindow,+  QWindowValue (..),+  QWindowConstPtr (..),+  baseSize,+  contentOrientation,+  cursor,+  devicePixelRatio,+  filePath,+  flags,+  focusObject,+  frameGeometry,+  frameMargins,+  framePosition,+  geometry,+  height,+  icon,+  isActive,+  isAncestorOf,+  isExposed,+  isModal,+  isTopLevel,+  mapFromGlobal,+  mapToGlobal,+  mask,+  maximumHeight,+  maximumSize,+  maximumWidth,+  minimumHeight,+  minimumSize,+  minimumWidth,+  modality,+  opacity,+  parent,+  position,+  sizeIncrement,+  title,+  transientParent,+  getType,+  visibility,+  isVisible,+  width,+  windowState,+  x,+  y,+  QWindowPtr (..),+  alert,+  setBaseSize,+  close,+  create,+  setCursor,+  destroy,+  setFilePath,+  setFlags,+  setFramePosition,+  setGeometry,+  setHeight,+  hide,+  setIcon,+  lower,+  setMask,+  setMaximumHeight,+  setMaximumSize,+  setMaximumWidth,+  setMinimumHeight,+  setMinimumSize,+  setMinimumWidth,+  setModality,+  setOpacity,+  setParent,+  setPosition,+  raise,+  reportContentOrientationChange,+  requestActivate,+  requestUpdate,+  resize,+  resizeRaw,+  setGeometryRaw,+  setKeyboardGrabEnabled,+  setMouseGrabEnabled,+  setPositionRaw,+  setSurfaceType,+  show,+  showFullScreen,+  showMaximized,+  showMinimized,+  showNormal,+  setSizeIncrement,+  setTitle,+  setTransientParent,+  unsetCursor,+  setVisibility,+  setVisible,+  setWidth,+  setWindowState,+  setX,+  setY,+  emitActiveChanged,+  emitContentOrientationChanged,+  emitFocusObjectChanged,+  emitHeightChanged,+  emitMaximumHeightChanged,+  emitMaximumWidthChanged,+  emitMinimumHeightChanged,+  emitMinimumWidthChanged,+  emitModalityChanged,+  emitOpacityChanged,+  emitVisibilityChanged,+  emitVisibleChanged,+  emitWidthChanged,+  emitWindowStateChanged,+  emitWindowTitleChanged,+  emitXChanged,+  emitYChanged,+  QWindowConst (..),+  castQWindowToConst,+  QWindow (..),+  castQWindowToNonconst,+  new,+  newWithParent,+  QWindowSuper (..),+  QWindowSuperConst (..),+  QWindowAncestorMode (..),+  QWindowVisibility (..),+  ) 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.HMargins as HMargins+import qualified Graphics.UI.Qtah.Core.HPoint as HPoint+import qualified Graphics.UI.Qtah.Core.HRect as HRect+import qualified Graphics.UI.Qtah.Core.HSize as HSize+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QMargins as M68+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.QSize as M134+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QCursor as M256+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QIcon as M288+import qualified Graphics.UI.Qtah.Generated.Gui.QRegion as M324+import qualified Graphics.UI.Qtah.Generated.Gui.QSurface as M334+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QWindow_new" new' ::  HoppyP.IO (HoppyF.Ptr QWindow)+foreign import ccall "genpop__QWindow_newWithParent" newWithParent' ::  HoppyF.Ptr QWindow -> HoppyP.IO (HoppyF.Ptr QWindow)+foreign import ccall "genpop__QWindow_alert" alert' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_baseSize" baseSize' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QWindow_setBaseSize" setBaseSize' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_close" close' ::  HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_contentOrientation" contentOrientation' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWindow_create" create' ::  HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_cursor" cursor' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr M256.QCursorConst)+foreign import ccall "genpop__QWindow_setCursor" setCursor' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr M256.QCursorConst -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_destroy" destroy' ::  HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_devicePixelRatio" devicePixelRatio' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QWindow_filePath" filePath' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QWindow_setFilePath" setFilePath' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_flags" flags' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWindow_setFlags" setFlags' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_focusObject" focusObject' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr M94.QObject)+foreign import ccall "genpop__QWindow_frameGeometry" frameGeometry' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QWindow_frameMargins" frameMargins' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr M68.QMarginsConst)+foreign import ccall "genpop__QWindow_framePosition" framePosition' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QWindow_setFramePosition" setFramePosition' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_geometry" geometry' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QWindow_setGeometry" setGeometry' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_height" height' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWindow_setHeight" setHeight' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_hide" hide' ::  HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_icon" icon' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr M288.QIconConst)+foreign import ccall "genpop__QWindow_setIcon" setIcon' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr M288.QIconConst -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_isActive" isActive' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QWindow_isAncestorOf" isAncestorOf' ::  HoppyF.Ptr QWindowConst -> HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QWindow_isExposed" isExposed' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QWindow_isModal" isModal' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QWindow_isTopLevel" isTopLevel' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QWindow_lower" lower' ::  HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_mapFromGlobal" mapFromGlobal' ::  HoppyF.Ptr QWindowConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QWindow_mapToGlobal" mapToGlobal' ::  HoppyF.Ptr QWindowConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QWindow_mask" mask' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr M324.QRegionConst)+foreign import ccall "genpop__QWindow_setMask" setMask' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr M324.QRegionConst -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_maximumHeight" maximumHeight' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWindow_setMaximumHeight" setMaximumHeight' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_maximumSize" maximumSize' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QWindow_setMaximumSize" setMaximumSize' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_maximumWidth" maximumWidth' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWindow_setMaximumWidth" setMaximumWidth' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_minimumHeight" minimumHeight' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWindow_setMinimumHeight" setMinimumHeight' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_minimumSize" minimumSize' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QWindow_setMinimumSize" setMinimumSize' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_minimumWidth" minimumWidth' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWindow_setMinimumWidth" setMinimumWidth' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_modality" modality' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWindow_setModality" setModality' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_opacity" opacity' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QWindow_setOpacity" setOpacity' ::  HoppyF.Ptr QWindow -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_parent" parent' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr QWindow)+foreign import ccall "genpop__QWindow_setParent" setParent' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_position" position' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QWindow_setPosition" setPosition' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_raise" raise' ::  HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_reportContentOrientationChange" reportContentOrientationChange' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_requestActivate" requestActivate' ::  HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_requestUpdate" requestUpdate' ::  HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_resize" resize' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_resizeRaw" resizeRaw' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_setGeometryRaw" setGeometryRaw' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_setKeyboardGrabEnabled" setKeyboardGrabEnabled' ::  HoppyF.Ptr QWindow -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_setMouseGrabEnabled" setMouseGrabEnabled' ::  HoppyF.Ptr QWindow -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_setPositionRaw" setPositionRaw' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_setSurfaceType" setSurfaceType' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_show" show' ::  HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_showFullScreen" showFullScreen' ::  HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_showMaximized" showMaximized' ::  HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_showMinimized" showMinimized' ::  HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_showNormal" showNormal' ::  HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_sizeIncrement" sizeIncrement' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QWindow_setSizeIncrement" setSizeIncrement' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_title" title' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QWindow_setTitle" setTitle' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_transientParent" transientParent' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO (HoppyF.Ptr QWindow)+foreign import ccall "genpop__QWindow_setTransientParent" setTransientParent' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_getType" getType' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWindow_unsetCursor" unsetCursor' ::  HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_visibility" visibility' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWindow_setVisibility" setVisibility' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_isVisible" isVisible' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QWindow_setVisible" setVisible' ::  HoppyF.Ptr QWindow -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_width" width' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWindow_setWidth" setWidth' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_windowState" windowState' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWindow_setWindowState" setWindowState' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_x" x' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWindow_setX" setX' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_y" y' ::  HoppyF.Ptr QWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QWindow_setY" setY' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitActiveChanged" emitActiveChanged' ::  HoppyF.Ptr QWindow -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitContentOrientationChanged" emitContentOrientationChanged' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitFocusObjectChanged" emitFocusObjectChanged' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr M94.QObject -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitHeightChanged" emitHeightChanged' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitMaximumHeightChanged" emitMaximumHeightChanged' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitMaximumWidthChanged" emitMaximumWidthChanged' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitMinimumHeightChanged" emitMinimumHeightChanged' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitMinimumWidthChanged" emitMinimumWidthChanged' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitModalityChanged" emitModalityChanged' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitOpacityChanged" emitOpacityChanged' ::  HoppyF.Ptr QWindow -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitVisibilityChanged" emitVisibilityChanged' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitVisibleChanged" emitVisibleChanged' ::  HoppyF.Ptr QWindow -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitWidthChanged" emitWidthChanged' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitWindowStateChanged" emitWindowStateChanged' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitWindowTitleChanged" emitWindowTitleChanged' ::  HoppyF.Ptr QWindow -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitXChanged" emitXChanged' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QWindow_emitYChanged" emitYChanged' ::  HoppyF.Ptr QWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QWindow__QObject" castQWindowToQObject :: HoppyF.Ptr QWindowConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QWindow" castQObjectToQWindow :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QWindowConst+foreign import ccall "gencast__QWindow__QSurface" castQWindowToQSurface :: HoppyF.Ptr QWindowConst -> HoppyF.Ptr M334.QSurfaceConst+foreign import ccall "gencast__QSurface__QWindow" castQSurfaceToQWindow :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr QWindowConst+foreign import ccall "gendel__QWindow" delete'QWindow :: HoppyF.Ptr QWindowConst -> HoppyP.IO ()+foreign import ccall "&gendel__QWindow" deletePtr'QWindow :: HoppyF.FunPtr (HoppyF.Ptr QWindowConst -> HoppyP.IO ())++class QWindowValue a where+  withQWindowPtr :: a -> (QWindowConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QWindowConstPtr a => QWindowValue a where+  withQWindowPtr = HoppyP.flip ($) . toQWindowConst++class (M94.QObjectConstPtr this, M334.QSurfaceConstPtr this) => QWindowConstPtr this where+  toQWindowConst :: this -> QWindowConst++baseSize :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+baseSize arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (baseSize' arg'1')++contentOrientation :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtScreenOrientation)+contentOrientation arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (contentOrientation' arg'1')++cursor :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M256.QCursor)+cursor arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M256.QCursorConst) =<<+  (cursor' arg'1')++devicePixelRatio :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+devicePixelRatio arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (devicePixelRatio' arg'1')++filePath :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+filePath arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (filePath' arg'1')++flags :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtWindowFlags)+flags arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (flags' arg'1')++focusObject :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M94.QObject)+focusObject arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M94.QObject+  (focusObject' arg'1')++frameGeometry :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HRect.HRect)+frameGeometry arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<+  (frameGeometry' arg'1')++frameMargins :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HMargins.HMargins)+frameMargins arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M68.QMarginsConst) =<<+  (frameMargins' arg'1')++framePosition :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+framePosition arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (framePosition' arg'1')++geometry :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HRect.HRect)+geometry arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<+  (geometry' arg'1')++height :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+height arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (height' arg'1')++icon :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M288.QIcon)+icon arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M288.QIconConst) =<<+  (icon' arg'1')++isActive :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isActive arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isActive' arg'1')++isAncestorOf :: (QWindowValue this, QWindowPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (QWindowAncestorMode) -> (HoppyP.IO HoppyP.Bool)+isAncestorOf arg'1 arg'2 arg'3 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (toQWindow arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isAncestorOf' arg'1' arg'2' arg'3')++isExposed :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isExposed arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isExposed' arg'1')++isModal :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isModal arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isModal' arg'1')++isTopLevel :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isTopLevel arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isTopLevel' arg'1')++mapFromGlobal :: (QWindowValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HPoint.HPoint)+mapFromGlobal arg'1 arg'2 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (mapFromGlobal' arg'1' arg'2')++mapToGlobal :: (QWindowValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HPoint.HPoint)+mapToGlobal arg'1 arg'2 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (mapToGlobal' arg'1' arg'2')++mask :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M324.QRegion)+mask arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M324.QRegionConst) =<<+  (mask' arg'1')++maximumHeight :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+maximumHeight arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (maximumHeight' arg'1')++maximumSize :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+maximumSize arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (maximumSize' arg'1')++maximumWidth :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+maximumWidth arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (maximumWidth' arg'1')++minimumHeight :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+minimumHeight arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (minimumHeight' arg'1')++minimumSize :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+minimumSize arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (minimumSize' arg'1')++minimumWidth :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+minimumWidth arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (minimumWidth' arg'1')++modality :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtWindowModality)+modality arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (modality' arg'1')++opacity :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+opacity arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (opacity' arg'1')++parent :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO QWindow)+parent arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QWindow+  (parent' arg'1')++position :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+position arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (position' arg'1')++sizeIncrement :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+sizeIncrement arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (sizeIncrement' arg'1')++title :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+title arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (title' arg'1')++transientParent :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO QWindow)+transientParent arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QWindow+  (transientParent' arg'1')++getType :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtWindowType)+getType arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (getType' arg'1')++visibility :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO QWindowVisibility)+visibility arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (visibility' arg'1')++isVisible :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isVisible arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isVisible' arg'1')++width :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+width arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (width' arg'1')++windowState :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtWindowState)+windowState arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (windowState' arg'1')++x :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+x arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (x' arg'1')++y :: (QWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+y arg'1 =+  withQWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (y' arg'1')++class (QWindowConstPtr this, M94.QObjectPtr this, M334.QSurfacePtr this) => QWindowPtr this where+  toQWindow :: this -> QWindow++alert :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+alert arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (alert' arg'1' arg'2')++setBaseSize :: (QWindowPtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setBaseSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setBaseSize' arg'1' arg'2')++close :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+close arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (close' arg'1')++create :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+create arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (create' arg'1')++setCursor :: (QWindowPtr this, M256.QCursorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setCursor arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  M256.withQCursorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setCursor' arg'1' arg'2')++destroy :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+destroy arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (destroy' arg'1')++setFilePath :: (QWindowPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFilePath arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setFilePath' arg'1' arg'2')++setFlags :: (QWindowPtr this, M190.IsQtWindowFlags arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFlags arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtWindowFlags+  ) arg'2 >>= \arg'2' ->+  (setFlags' arg'1' arg'2')++setFramePosition :: (QWindowPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFramePosition arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setFramePosition' arg'1' arg'2')++setGeometry :: (QWindowPtr this, M122.QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setGeometry arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  M122.withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setGeometry' arg'1' arg'2')++setHeight :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setHeight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setHeight' arg'1' arg'2')++hide :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+hide arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (hide' arg'1')++setIcon :: (QWindowPtr this, M288.QIconValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setIcon arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  M288.withQIconPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setIcon' arg'1' arg'2')++lower :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+lower arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (lower' arg'1')++setMask :: (QWindowPtr this, M324.QRegionValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setMask arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  M324.withQRegionPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setMask' arg'1' arg'2')++setMaximumHeight :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setMaximumHeight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setMaximumHeight' arg'1' arg'2')++setMaximumSize :: (QWindowPtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setMaximumSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setMaximumSize' arg'1' arg'2')++setMaximumWidth :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setMaximumWidth arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setMaximumWidth' arg'1' arg'2')++setMinimumHeight :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setMinimumHeight arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setMinimumHeight' arg'1' arg'2')++setMinimumSize :: (QWindowPtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setMinimumSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setMinimumSize' arg'1' arg'2')++setMinimumWidth :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setMinimumWidth arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setMinimumWidth' arg'1' arg'2')++setModality :: (QWindowPtr this) => (this) {- ^ this -} -> (M190.QtWindowModality) -> (HoppyP.IO ())+setModality arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setModality' arg'1' arg'2')++setOpacity :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setOpacity arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setOpacity' arg'1' arg'2')++setParent :: (QWindowPtr this, QWindowPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setParent arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQWindow arg'2) $ \arg'2' ->+  (setParent' arg'1' arg'2')++setPosition :: (QWindowPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setPosition arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setPosition' arg'1' arg'2')++raise :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+raise arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (raise' arg'1')++reportContentOrientationChange :: (QWindowPtr this) => (this) {- ^ this -} -> (M190.QtScreenOrientation) -> (HoppyP.IO ())+reportContentOrientationChange arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (reportContentOrientationChange' arg'1' arg'2')++requestActivate :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+requestActivate arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (requestActivate' arg'1')++requestUpdate :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+requestUpdate arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (requestUpdate' arg'1')++resize :: (QWindowPtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+resize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (resize' arg'1' arg'2')++resizeRaw :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+resizeRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (resizeRaw' arg'1' arg'2' arg'3')++setGeometryRaw :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setGeometryRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQWindow 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' ->+  (setGeometryRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++setKeyboardGrabEnabled :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setKeyboardGrabEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setKeyboardGrabEnabled' arg'1' arg'2')++setMouseGrabEnabled :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setMouseGrabEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setMouseGrabEnabled' arg'1' arg'2')++setPositionRaw :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setPositionRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (setPositionRaw' arg'1' arg'2' arg'3')++setSurfaceType :: (QWindowPtr this) => (this) {- ^ this -} -> (M334.QSurfaceSurfaceType) -> (HoppyP.IO ())+setSurfaceType arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setSurfaceType' arg'1' arg'2')++show :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+show arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (show' arg'1')++showFullScreen :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+showFullScreen arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (showFullScreen' arg'1')++showMaximized :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+showMaximized arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (showMaximized' arg'1')++showMinimized :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+showMinimized arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (showMinimized' arg'1')++showNormal :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+showNormal arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (showNormal' arg'1')++setSizeIncrement :: (QWindowPtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setSizeIncrement arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setSizeIncrement' arg'1' arg'2')++setTitle :: (QWindowPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTitle arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setTitle' arg'1' arg'2')++setTransientParent :: (QWindowPtr this, QWindowPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTransientParent arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQWindow arg'2) $ \arg'2' ->+  (setTransientParent' arg'1' arg'2')++unsetCursor :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+unsetCursor arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (unsetCursor' arg'1')++setVisibility :: (QWindowPtr this) => (this) {- ^ this -} -> (QWindowVisibility) -> (HoppyP.IO ())+setVisibility arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setVisibility' arg'1' arg'2')++setVisible :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setVisible arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setVisible' arg'1' arg'2')++setWidth :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setWidth arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setWidth' arg'1' arg'2')++setWindowState :: (QWindowPtr this) => (this) {- ^ this -} -> (M190.QtWindowState) -> (HoppyP.IO ())+setWindowState arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setWindowState' arg'1' arg'2')++setX :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setX arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setX' arg'1' arg'2')++setY :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setY arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setY' arg'1' arg'2')++emitActiveChanged :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitActiveChanged arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (emitActiveChanged' arg'1')++emitContentOrientationChanged :: (QWindowPtr this) => (this) {- ^ this -} -> (M190.QtScreenOrientation) -> (HoppyP.IO ())+emitContentOrientationChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (emitContentOrientationChanged' arg'1' arg'2')++emitFocusObjectChanged :: (QWindowPtr this, M94.QObjectPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitFocusObjectChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  (emitFocusObjectChanged' arg'1' arg'2')++emitHeightChanged :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitHeightChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitHeightChanged' arg'1' arg'2')++emitMaximumHeightChanged :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitMaximumHeightChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitMaximumHeightChanged' arg'1' arg'2')++emitMaximumWidthChanged :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitMaximumWidthChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitMaximumWidthChanged' arg'1' arg'2')++emitMinimumHeightChanged :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitMinimumHeightChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitMinimumHeightChanged' arg'1' arg'2')++emitMinimumWidthChanged :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitMinimumWidthChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitMinimumWidthChanged' arg'1' arg'2')++emitModalityChanged :: (QWindowPtr this) => (this) {- ^ this -} -> (M190.QtWindowModality) -> (HoppyP.IO ())+emitModalityChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (emitModalityChanged' arg'1' arg'2')++emitOpacityChanged :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+emitOpacityChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (emitOpacityChanged' arg'1' arg'2')++emitVisibilityChanged :: (QWindowPtr this) => (this) {- ^ this -} -> (QWindowVisibility) -> (HoppyP.IO ())+emitVisibilityChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (emitVisibilityChanged' arg'1' arg'2')++emitVisibleChanged :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+emitVisibleChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (emitVisibleChanged' arg'1' arg'2')++emitWidthChanged :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitWidthChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitWidthChanged' arg'1' arg'2')++emitWindowStateChanged :: (QWindowPtr this) => (this) {- ^ this -} -> (M190.QtWindowState) -> (HoppyP.IO ())+emitWindowStateChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (emitWindowStateChanged' arg'1' arg'2')++emitWindowTitleChanged :: (QWindowPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitWindowTitleChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitWindowTitleChanged' arg'1' arg'2')++emitXChanged :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitXChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitXChanged' arg'1' arg'2')++emitYChanged :: (QWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitYChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitYChanged' arg'1' arg'2')++data QWindowConst =+    QWindowConst (HoppyF.Ptr QWindowConst)+  | QWindowConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QWindowConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QWindowConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QWindowConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQWindowToConst :: QWindow -> QWindowConst+castQWindowToConst (QWindow ptr') = QWindowConst $ HoppyF.castPtr ptr'+castQWindowToConst (QWindowGc fptr' ptr') = QWindowConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QWindowConst where+  nullptr = QWindowConst HoppyF.nullPtr+  +  withCppPtr (QWindowConst ptr') f' = f' ptr'+  withCppPtr (QWindowConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QWindowConst ptr') = ptr'+  toPtr (QWindowConstGc _ ptr') = ptr'+  +  touchCppPtr (QWindowConst _) = HoppyP.return ()+  touchCppPtr (QWindowConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QWindowConst where+  delete (QWindowConst ptr') = delete'QWindow ptr'+  delete (QWindowConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QWindowConst", " object."]+  +  toGc this'@(QWindowConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QWindowConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QWindowConstGc {}) = HoppyP.return this'++instance QWindowConstPtr QWindowConst where+  toQWindowConst = HoppyP.id++instance M94.QObjectConstPtr QWindowConst where+  toQObjectConst (QWindowConst ptr') = M94.QObjectConst $ castQWindowToQObject ptr'+  toQObjectConst (QWindowConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQWindowToQObject ptr'++instance M334.QSurfaceConstPtr QWindowConst where+  toQSurfaceConst (QWindowConst ptr') = M334.QSurfaceConst $ castQWindowToQSurface ptr'+  toQSurfaceConst (QWindowConstGc fptr' ptr') = M334.QSurfaceConstGc fptr' $ castQWindowToQSurface ptr'++data QWindow =+    QWindow (HoppyF.Ptr QWindow)+  | QWindowGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QWindow)+  deriving (HoppyP.Show)++instance HoppyP.Eq QWindow where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QWindow where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQWindowToNonconst :: QWindowConst -> QWindow+castQWindowToNonconst (QWindowConst ptr') = QWindow $ HoppyF.castPtr ptr'+castQWindowToNonconst (QWindowConstGc fptr' ptr') = QWindowGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QWindow where+  nullptr = QWindow HoppyF.nullPtr+  +  withCppPtr (QWindow ptr') f' = f' ptr'+  withCppPtr (QWindowGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QWindow ptr') = ptr'+  toPtr (QWindowGc _ ptr') = ptr'+  +  touchCppPtr (QWindow _) = HoppyP.return ()+  touchCppPtr (QWindowGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QWindow where+  delete (QWindow ptr') = delete'QWindow $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QWindowConst)+  delete (QWindowGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QWindow", " object."]+  +  toGc this'@(QWindow ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QWindowGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QWindowGc {}) = HoppyP.return this'++instance QWindowConstPtr QWindow where+  toQWindowConst (QWindow ptr') = QWindowConst $ (HoppyF.castPtr :: HoppyF.Ptr QWindow -> HoppyF.Ptr QWindowConst) ptr'+  toQWindowConst (QWindowGc fptr' ptr') = QWindowConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QWindow -> HoppyF.Ptr QWindowConst) ptr'++instance QWindowPtr QWindow where+  toQWindow = HoppyP.id++instance M94.QObjectConstPtr QWindow where+  toQObjectConst (QWindow ptr') = M94.QObjectConst $ castQWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QWindow -> HoppyF.Ptr QWindowConst) ptr'+  toQObjectConst (QWindowGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QWindow -> HoppyF.Ptr QWindowConst) ptr'++instance M94.QObjectPtr QWindow where+  toQObject (QWindow ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QWindow -> HoppyF.Ptr QWindowConst) ptr'+  toQObject (QWindowGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QWindow -> HoppyF.Ptr QWindowConst) ptr'++instance M334.QSurfaceConstPtr QWindow where+  toQSurfaceConst (QWindow ptr') = M334.QSurfaceConst $ castQWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QWindow -> HoppyF.Ptr QWindowConst) ptr'+  toQSurfaceConst (QWindowGc fptr' ptr') = M334.QSurfaceConstGc fptr' $ castQWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QWindow -> HoppyF.Ptr QWindowConst) ptr'++instance M334.QSurfacePtr QWindow where+  toQSurface (QWindow ptr') = M334.QSurface $ (HoppyF.castPtr :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr M334.QSurface) $ castQWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QWindow -> HoppyF.Ptr QWindowConst) ptr'+  toQSurface (QWindowGc fptr' ptr') = M334.QSurfaceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr M334.QSurface) $ castQWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QWindow -> HoppyF.Ptr QWindowConst) ptr'++new :: (HoppyP.IO QWindow)+new =+  HoppyP.fmap QWindow+  (new')++newWithParent :: (QWindowPtr arg'1) => (arg'1) -> (HoppyP.IO QWindow)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (toQWindow arg'1) $ \arg'1' ->+  HoppyP.fmap QWindow+  (newWithParent' arg'1')++class QWindowSuper a where+  downToQWindow :: a -> QWindow++instance QWindowSuper M94.QObject where+  downToQWindow = castQWindowToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QWindowConst $ castQObjectToQWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QWindowConstGc fptr' $ castQObjectToQWindow ptr'+instance QWindowSuper M334.QSurface where+  downToQWindow = castQWindowToNonconst . cast' . M334.castQSurfaceToConst+    where+      cast' (M334.QSurfaceConst ptr') = QWindowConst $ castQSurfaceToQWindow ptr'+      cast' (M334.QSurfaceConstGc fptr' ptr') = QWindowConstGc fptr' $ castQSurfaceToQWindow ptr'++class QWindowSuperConst a where+  downToQWindowConst :: a -> QWindowConst++instance QWindowSuperConst M94.QObjectConst where+  downToQWindowConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QWindowConst $ castQObjectToQWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QWindowConstGc fptr' $ castQObjectToQWindow ptr'+instance QWindowSuperConst M334.QSurfaceConst where+  downToQWindowConst = cast'+    where+      cast' (M334.QSurfaceConst ptr') = QWindowConst $ castQSurfaceToQWindow ptr'+      cast' (M334.QSurfaceConstGc fptr' ptr') = QWindowConstGc fptr' $ castQSurfaceToQWindow ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QWindow)) QWindow where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QWindow)) QWindow where+  decode = HoppyP.fmap QWindow . HoppyF.peek++data QWindowAncestorMode =+  ExcludeTransients+  | IncludeTransients+  | UnknownQWindowAncestorMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QWindowAncestorMode where+  fromCppEnum ExcludeTransients = 0+  fromCppEnum IncludeTransients = 1+  fromCppEnum (UnknownQWindowAncestorMode n) = n+  +  toCppEnum (0) = ExcludeTransients+  toCppEnum (1) = IncludeTransients+  toCppEnum n = UnknownQWindowAncestorMode n++instance HoppyP.Eq QWindowAncestorMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QWindowAncestorMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QWindowVisibility =+  Hidden+  | AutomaticVisibility+  | Windowed+  | Minimized+  | Maximized+  | FullScreen+  | UnknownQWindowVisibility (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QWindowVisibility where+  fromCppEnum Hidden = 0+  fromCppEnum AutomaticVisibility = 1+  fromCppEnum Windowed = 2+  fromCppEnum Minimized = 3+  fromCppEnum Maximized = 4+  fromCppEnum FullScreen = 5+  fromCppEnum (UnknownQWindowVisibility n) = n+  +  toCppEnum (0) = Hidden+  toCppEnum (1) = AutomaticVisibility+  toCppEnum (2) = Windowed+  toCppEnum (3) = Minimized+  toCppEnum (4) = Maximized+  toCppEnum (5) = FullScreen+  toCppEnum n = UnknownQWindowVisibility n++instance HoppyP.Eq QWindowVisibility where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QWindowVisibility where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Gui/QWindow.hs-boot view
@@ -0,0 +1,87 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QWindow (+  QWindowValue (..),+  QWindowConstPtr (..),+  QWindowPtr (..),+  QWindowConst (..),+  castQWindowToConst,+  QWindow (..),+  castQWindowToNonconst,+  castQWindowToQObject,+  castQWindowToQSurface,+  QWindowAncestorMode,+  QWindowVisibility,+  ) 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.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Gui.QSurface as M334+import qualified Prelude as HoppyP+++class QWindowValue a where+  withQWindowPtr :: a -> (QWindowConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QWindowConstPtr a => QWindowValue a++class (M94.QObjectConstPtr this, M334.QSurfaceConstPtr this) => QWindowConstPtr this where+  toQWindowConst :: this -> QWindowConst++class (QWindowConstPtr this, M94.QObjectPtr this, M334.QSurfacePtr this) => QWindowPtr this where+  toQWindow :: this -> QWindow++data QWindowConst =+    QWindowConst (HoppyF.Ptr QWindowConst)+  | QWindowConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QWindowConst)++castQWindowToConst :: QWindow -> QWindowConst++instance HoppyFHR.CppPtr QWindowConst+instance HoppyFHR.Deletable QWindowConst++instance QWindowConstPtr QWindowConst++instance M94.QObjectConstPtr QWindowConst++instance M334.QSurfaceConstPtr QWindowConst++data QWindow =+    QWindow (HoppyF.Ptr QWindow)+  | QWindowGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QWindow)++castQWindowToNonconst :: QWindowConst -> QWindow++instance HoppyFHR.CppPtr QWindow+instance HoppyFHR.Deletable QWindow++instance QWindowConstPtr QWindow++instance QWindowPtr QWindow++instance M94.QObjectConstPtr QWindow++instance M94.QObjectPtr QWindow++instance M334.QSurfaceConstPtr QWindow++instance M334.QSurfacePtr QWindow+castQWindowToQObject :: HoppyF.Ptr QWindowConst -> HoppyF.Ptr M94.QObjectConst+castQWindowToQSurface :: HoppyF.Ptr QWindowConst -> HoppyF.Ptr M334.QSurfaceConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QWindow)) QWindow++data QWindowAncestorMode+instance HoppyFHR.CppEnum (HoppyFC.CInt) QWindowAncestorMode+instance HoppyP.Eq QWindowAncestorMode+instance HoppyP.Ord QWindowAncestorMode+instance HoppyP.Show QWindowAncestorMode++data QWindowVisibility+instance HoppyFHR.CppEnum (HoppyFC.CInt) QWindowVisibility+instance HoppyP.Eq QWindowVisibility+instance HoppyP.Ord QWindowVisibility+instance HoppyP.Show QWindowVisibility
src/Graphics/UI/Qtah/Generated/Gui/QtahOpenGLWindow.hs view
@@ -0,0 +1,368 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QtahOpenGLWindow (+  castQtahOpenGLWindowToQOpenGLWindow,+  castQOpenGLWindowToQtahOpenGLWindow,+  castQtahOpenGLWindowToQPaintDeviceWindow,+  castQPaintDeviceWindowToQtahOpenGLWindow,+  castQtahOpenGLWindowToQWindow,+  castQWindowToQtahOpenGLWindow,+  castQtahOpenGLWindowToQObject,+  castQObjectToQtahOpenGLWindow,+  castQtahOpenGLWindowToQSurface,+  castQSurfaceToQtahOpenGLWindow,+  castQtahOpenGLWindowToQPaintDevice,+  castQPaintDeviceToQtahOpenGLWindow,+  QtahOpenGLWindowValue (..),+  QtahOpenGLWindowConstPtr (..),+  QtahOpenGLWindowPtr (..),+  onInitializeGL,+  onPaintGL,+  onPaintOverGL,+  onPaintUnderGL,+  onResizeGL,+  QtahOpenGLWindowConst (..),+  castQtahOpenGLWindowToConst,+  QtahOpenGLWindow (..),+  castQtahOpenGLWindowToNonconst,+  new,+  newWithUpdateBehavior,+  newWithUpdateBehaviorAndParent,+  QtahOpenGLWindowSuper (..),+  QtahOpenGLWindowSuperConst (..),+  ) 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.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Gui.QOpenGLWindow as M302+import qualified Graphics.UI.Qtah.Generated.Gui.QPaintDevice as M304+import qualified Graphics.UI.Qtah.Generated.Gui.QPaintDeviceWindow as M306+import qualified Graphics.UI.Qtah.Generated.Gui.QSurface as M334+import qualified Graphics.UI.Qtah.Generated.Gui.QWindow as M342+import qualified Graphics.UI.Qtah.Internal.Callback as M348+import Prelude (($), (.), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QtahOpenGLWindow_new" new' ::  HoppyP.IO (HoppyF.Ptr QtahOpenGLWindow)+foreign import ccall "genpop__QtahOpenGLWindow_newWithUpdateBehavior" newWithUpdateBehavior' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QtahOpenGLWindow)+foreign import ccall "genpop__QtahOpenGLWindow_newWithUpdateBehaviorAndParent" newWithUpdateBehaviorAndParent' ::  HoppyFC.CInt -> HoppyF.Ptr M342.QWindow -> HoppyP.IO (HoppyF.Ptr QtahOpenGLWindow)+foreign import ccall "genpop__QtahOpenGLWindow_onInitializeGL" onInitializeGL' ::  HoppyF.Ptr QtahOpenGLWindow -> HoppyFHR.CCallback (HoppyP.IO ()) -> HoppyP.IO ()+foreign import ccall "genpop__QtahOpenGLWindow_onPaintGL" onPaintGL' ::  HoppyF.Ptr QtahOpenGLWindow -> HoppyFHR.CCallback (HoppyP.IO ()) -> HoppyP.IO ()+foreign import ccall "genpop__QtahOpenGLWindow_onPaintOverGL" onPaintOverGL' ::  HoppyF.Ptr QtahOpenGLWindow -> HoppyFHR.CCallback (HoppyP.IO ()) -> HoppyP.IO ()+foreign import ccall "genpop__QtahOpenGLWindow_onPaintUnderGL" onPaintUnderGL' ::  HoppyF.Ptr QtahOpenGLWindow -> HoppyFHR.CCallback (HoppyP.IO ()) -> HoppyP.IO ()+foreign import ccall "genpop__QtahOpenGLWindow_onResizeGL" onResizeGL' ::  HoppyF.Ptr QtahOpenGLWindow -> HoppyFHR.CCallback (HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()) -> HoppyP.IO ()+foreign import ccall "gencast__QtahOpenGLWindow__QOpenGLWindow" castQtahOpenGLWindowToQOpenGLWindow :: HoppyF.Ptr QtahOpenGLWindowConst -> HoppyF.Ptr M302.QOpenGLWindowConst+foreign import ccall "gencast__QOpenGLWindow__QtahOpenGLWindow" castQOpenGLWindowToQtahOpenGLWindow :: HoppyF.Ptr M302.QOpenGLWindowConst -> HoppyF.Ptr QtahOpenGLWindowConst+foreign import ccall "gencast__QtahOpenGLWindow__QPaintDeviceWindow" castQtahOpenGLWindowToQPaintDeviceWindow :: HoppyF.Ptr QtahOpenGLWindowConst -> HoppyF.Ptr M306.QPaintDeviceWindowConst+foreign import ccall "gencast__QPaintDeviceWindow__QtahOpenGLWindow" castQPaintDeviceWindowToQtahOpenGLWindow :: HoppyF.Ptr M306.QPaintDeviceWindowConst -> HoppyF.Ptr QtahOpenGLWindowConst+foreign import ccall "gencast__QtahOpenGLWindow__QWindow" castQtahOpenGLWindowToQWindow :: HoppyF.Ptr QtahOpenGLWindowConst -> HoppyF.Ptr M342.QWindowConst+foreign import ccall "gencast__QWindow__QtahOpenGLWindow" castQWindowToQtahOpenGLWindow :: HoppyF.Ptr M342.QWindowConst -> HoppyF.Ptr QtahOpenGLWindowConst+foreign import ccall "gencast__QtahOpenGLWindow__QObject" castQtahOpenGLWindowToQObject :: HoppyF.Ptr QtahOpenGLWindowConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QtahOpenGLWindow" castQObjectToQtahOpenGLWindow :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QtahOpenGLWindowConst+foreign import ccall "gencast__QtahOpenGLWindow__QSurface" castQtahOpenGLWindowToQSurface :: HoppyF.Ptr QtahOpenGLWindowConst -> HoppyF.Ptr M334.QSurfaceConst+foreign import ccall "gencast__QSurface__QtahOpenGLWindow" castQSurfaceToQtahOpenGLWindow :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr QtahOpenGLWindowConst+foreign import ccall "gencast__QtahOpenGLWindow__QPaintDevice" castQtahOpenGLWindowToQPaintDevice :: HoppyF.Ptr QtahOpenGLWindowConst -> HoppyF.Ptr M304.QPaintDeviceConst+foreign import ccall "gencast__QPaintDevice__QtahOpenGLWindow" castQPaintDeviceToQtahOpenGLWindow :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr QtahOpenGLWindowConst+foreign import ccall "gendel__QtahOpenGLWindow" delete'QtahOpenGLWindow :: HoppyF.Ptr QtahOpenGLWindowConst -> HoppyP.IO ()+foreign import ccall "&gendel__QtahOpenGLWindow" deletePtr'QtahOpenGLWindow :: HoppyF.FunPtr (HoppyF.Ptr QtahOpenGLWindowConst -> HoppyP.IO ())++class QtahOpenGLWindowValue a where+  withQtahOpenGLWindowPtr :: a -> (QtahOpenGLWindowConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QtahOpenGLWindowConstPtr a => QtahOpenGLWindowValue a where+  withQtahOpenGLWindowPtr = HoppyP.flip ($) . toQtahOpenGLWindowConst++class (M302.QOpenGLWindowConstPtr this) => QtahOpenGLWindowConstPtr this where+  toQtahOpenGLWindowConst :: this -> QtahOpenGLWindowConst++class (QtahOpenGLWindowConstPtr this, M302.QOpenGLWindowPtr this) => QtahOpenGLWindowPtr this where+  toQtahOpenGLWindow :: this -> QtahOpenGLWindow++onInitializeGL :: (QtahOpenGLWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ()) -> (HoppyP.IO ())+onInitializeGL arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQtahOpenGLWindow arg'1) $ \arg'1' ->+  (+    M348.callbackVoid_new+  ) arg'2 >>= \arg'2' ->+  (onInitializeGL' arg'1' arg'2')++onPaintGL :: (QtahOpenGLWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ()) -> (HoppyP.IO ())+onPaintGL arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQtahOpenGLWindow arg'1) $ \arg'1' ->+  (+    M348.callbackVoid_new+  ) arg'2 >>= \arg'2' ->+  (onPaintGL' arg'1' arg'2')++onPaintOverGL :: (QtahOpenGLWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ()) -> (HoppyP.IO ())+onPaintOverGL arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQtahOpenGLWindow arg'1) $ \arg'1' ->+  (+    M348.callbackVoid_new+  ) arg'2 >>= \arg'2' ->+  (onPaintOverGL' arg'1' arg'2')++onPaintUnderGL :: (QtahOpenGLWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ()) -> (HoppyP.IO ())+onPaintUnderGL arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQtahOpenGLWindow arg'1) $ \arg'1' ->+  (+    M348.callbackVoid_new+  ) arg'2 >>= \arg'2' ->+  (onPaintUnderGL' arg'1' arg'2')++onResizeGL :: (QtahOpenGLWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int -> HoppyP.Int -> HoppyP.IO ()) -> (HoppyP.IO ())+onResizeGL arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQtahOpenGLWindow arg'1) $ \arg'1' ->+  (+    M348.callbackIntIntVoid_new+  ) arg'2 >>= \arg'2' ->+  (onResizeGL' arg'1' arg'2')++data QtahOpenGLWindowConst =+    QtahOpenGLWindowConst (HoppyF.Ptr QtahOpenGLWindowConst)+  | QtahOpenGLWindowConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QtahOpenGLWindowConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QtahOpenGLWindowConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QtahOpenGLWindowConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQtahOpenGLWindowToConst :: QtahOpenGLWindow -> QtahOpenGLWindowConst+castQtahOpenGLWindowToConst (QtahOpenGLWindow ptr') = QtahOpenGLWindowConst $ HoppyF.castPtr ptr'+castQtahOpenGLWindowToConst (QtahOpenGLWindowGc fptr' ptr') = QtahOpenGLWindowConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QtahOpenGLWindowConst where+  nullptr = QtahOpenGLWindowConst HoppyF.nullPtr+  +  withCppPtr (QtahOpenGLWindowConst ptr') f' = f' ptr'+  withCppPtr (QtahOpenGLWindowConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QtahOpenGLWindowConst ptr') = ptr'+  toPtr (QtahOpenGLWindowConstGc _ ptr') = ptr'+  +  touchCppPtr (QtahOpenGLWindowConst _) = HoppyP.return ()+  touchCppPtr (QtahOpenGLWindowConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QtahOpenGLWindowConst where+  delete (QtahOpenGLWindowConst ptr') = delete'QtahOpenGLWindow ptr'+  delete (QtahOpenGLWindowConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QtahOpenGLWindowConst", " object."]+  +  toGc this'@(QtahOpenGLWindowConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QtahOpenGLWindowConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QtahOpenGLWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QtahOpenGLWindowConstGc {}) = HoppyP.return this'++instance QtahOpenGLWindowConstPtr QtahOpenGLWindowConst where+  toQtahOpenGLWindowConst = HoppyP.id++instance M302.QOpenGLWindowConstPtr QtahOpenGLWindowConst where+  toQOpenGLWindowConst (QtahOpenGLWindowConst ptr') = M302.QOpenGLWindowConst $ castQtahOpenGLWindowToQOpenGLWindow ptr'+  toQOpenGLWindowConst (QtahOpenGLWindowConstGc fptr' ptr') = M302.QOpenGLWindowConstGc fptr' $ castQtahOpenGLWindowToQOpenGLWindow ptr'++instance M306.QPaintDeviceWindowConstPtr QtahOpenGLWindowConst where+  toQPaintDeviceWindowConst (QtahOpenGLWindowConst ptr') = M306.QPaintDeviceWindowConst $ castQtahOpenGLWindowToQPaintDeviceWindow ptr'+  toQPaintDeviceWindowConst (QtahOpenGLWindowConstGc fptr' ptr') = M306.QPaintDeviceWindowConstGc fptr' $ castQtahOpenGLWindowToQPaintDeviceWindow ptr'++instance M342.QWindowConstPtr QtahOpenGLWindowConst where+  toQWindowConst (QtahOpenGLWindowConst ptr') = M342.QWindowConst $ castQtahOpenGLWindowToQWindow ptr'+  toQWindowConst (QtahOpenGLWindowConstGc fptr' ptr') = M342.QWindowConstGc fptr' $ castQtahOpenGLWindowToQWindow ptr'++instance M94.QObjectConstPtr QtahOpenGLWindowConst where+  toQObjectConst (QtahOpenGLWindowConst ptr') = M94.QObjectConst $ castQtahOpenGLWindowToQObject ptr'+  toQObjectConst (QtahOpenGLWindowConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQtahOpenGLWindowToQObject ptr'++instance M334.QSurfaceConstPtr QtahOpenGLWindowConst where+  toQSurfaceConst (QtahOpenGLWindowConst ptr') = M334.QSurfaceConst $ castQtahOpenGLWindowToQSurface ptr'+  toQSurfaceConst (QtahOpenGLWindowConstGc fptr' ptr') = M334.QSurfaceConstGc fptr' $ castQtahOpenGLWindowToQSurface ptr'++instance M304.QPaintDeviceConstPtr QtahOpenGLWindowConst where+  toQPaintDeviceConst (QtahOpenGLWindowConst ptr') = M304.QPaintDeviceConst $ castQtahOpenGLWindowToQPaintDevice ptr'+  toQPaintDeviceConst (QtahOpenGLWindowConstGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQtahOpenGLWindowToQPaintDevice ptr'++data QtahOpenGLWindow =+    QtahOpenGLWindow (HoppyF.Ptr QtahOpenGLWindow)+  | QtahOpenGLWindowGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QtahOpenGLWindow)+  deriving (HoppyP.Show)++instance HoppyP.Eq QtahOpenGLWindow where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QtahOpenGLWindow where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQtahOpenGLWindowToNonconst :: QtahOpenGLWindowConst -> QtahOpenGLWindow+castQtahOpenGLWindowToNonconst (QtahOpenGLWindowConst ptr') = QtahOpenGLWindow $ HoppyF.castPtr ptr'+castQtahOpenGLWindowToNonconst (QtahOpenGLWindowConstGc fptr' ptr') = QtahOpenGLWindowGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QtahOpenGLWindow where+  nullptr = QtahOpenGLWindow HoppyF.nullPtr+  +  withCppPtr (QtahOpenGLWindow ptr') f' = f' ptr'+  withCppPtr (QtahOpenGLWindowGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QtahOpenGLWindow ptr') = ptr'+  toPtr (QtahOpenGLWindowGc _ ptr') = ptr'+  +  touchCppPtr (QtahOpenGLWindow _) = HoppyP.return ()+  touchCppPtr (QtahOpenGLWindowGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QtahOpenGLWindow where+  delete (QtahOpenGLWindow ptr') = delete'QtahOpenGLWindow $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QtahOpenGLWindowConst)+  delete (QtahOpenGLWindowGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QtahOpenGLWindow", " object."]+  +  toGc this'@(QtahOpenGLWindow ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QtahOpenGLWindowGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QtahOpenGLWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QtahOpenGLWindowGc {}) = HoppyP.return this'++instance QtahOpenGLWindowConstPtr QtahOpenGLWindow where+  toQtahOpenGLWindowConst (QtahOpenGLWindow ptr') = QtahOpenGLWindowConst $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'+  toQtahOpenGLWindowConst (QtahOpenGLWindowGc fptr' ptr') = QtahOpenGLWindowConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'++instance QtahOpenGLWindowPtr QtahOpenGLWindow where+  toQtahOpenGLWindow = HoppyP.id++instance M302.QOpenGLWindowConstPtr QtahOpenGLWindow where+  toQOpenGLWindowConst (QtahOpenGLWindow ptr') = M302.QOpenGLWindowConst $ castQtahOpenGLWindowToQOpenGLWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'+  toQOpenGLWindowConst (QtahOpenGLWindowGc fptr' ptr') = M302.QOpenGLWindowConstGc fptr' $ castQtahOpenGLWindowToQOpenGLWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'++instance M302.QOpenGLWindowPtr QtahOpenGLWindow where+  toQOpenGLWindow (QtahOpenGLWindow ptr') = M302.QOpenGLWindow $ (HoppyF.castPtr :: HoppyF.Ptr M302.QOpenGLWindowConst -> HoppyF.Ptr M302.QOpenGLWindow) $ castQtahOpenGLWindowToQOpenGLWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'+  toQOpenGLWindow (QtahOpenGLWindowGc fptr' ptr') = M302.QOpenGLWindowGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M302.QOpenGLWindowConst -> HoppyF.Ptr M302.QOpenGLWindow) $ castQtahOpenGLWindowToQOpenGLWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'++instance M306.QPaintDeviceWindowConstPtr QtahOpenGLWindow where+  toQPaintDeviceWindowConst (QtahOpenGLWindow ptr') = M306.QPaintDeviceWindowConst $ castQtahOpenGLWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'+  toQPaintDeviceWindowConst (QtahOpenGLWindowGc fptr' ptr') = M306.QPaintDeviceWindowConstGc fptr' $ castQtahOpenGLWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'++instance M306.QPaintDeviceWindowPtr QtahOpenGLWindow where+  toQPaintDeviceWindow (QtahOpenGLWindow ptr') = M306.QPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr M306.QPaintDeviceWindowConst -> HoppyF.Ptr M306.QPaintDeviceWindow) $ castQtahOpenGLWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'+  toQPaintDeviceWindow (QtahOpenGLWindowGc fptr' ptr') = M306.QPaintDeviceWindowGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M306.QPaintDeviceWindowConst -> HoppyF.Ptr M306.QPaintDeviceWindow) $ castQtahOpenGLWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'++instance M342.QWindowConstPtr QtahOpenGLWindow where+  toQWindowConst (QtahOpenGLWindow ptr') = M342.QWindowConst $ castQtahOpenGLWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'+  toQWindowConst (QtahOpenGLWindowGc fptr' ptr') = M342.QWindowConstGc fptr' $ castQtahOpenGLWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'++instance M342.QWindowPtr QtahOpenGLWindow where+  toQWindow (QtahOpenGLWindow ptr') = M342.QWindow $ (HoppyF.castPtr :: HoppyF.Ptr M342.QWindowConst -> HoppyF.Ptr M342.QWindow) $ castQtahOpenGLWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'+  toQWindow (QtahOpenGLWindowGc fptr' ptr') = M342.QWindowGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M342.QWindowConst -> HoppyF.Ptr M342.QWindow) $ castQtahOpenGLWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'++instance M94.QObjectConstPtr QtahOpenGLWindow where+  toQObjectConst (QtahOpenGLWindow ptr') = M94.QObjectConst $ castQtahOpenGLWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'+  toQObjectConst (QtahOpenGLWindowGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQtahOpenGLWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'++instance M94.QObjectPtr QtahOpenGLWindow where+  toQObject (QtahOpenGLWindow ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQtahOpenGLWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'+  toQObject (QtahOpenGLWindowGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQtahOpenGLWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'++instance M334.QSurfaceConstPtr QtahOpenGLWindow where+  toQSurfaceConst (QtahOpenGLWindow ptr') = M334.QSurfaceConst $ castQtahOpenGLWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'+  toQSurfaceConst (QtahOpenGLWindowGc fptr' ptr') = M334.QSurfaceConstGc fptr' $ castQtahOpenGLWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'++instance M334.QSurfacePtr QtahOpenGLWindow where+  toQSurface (QtahOpenGLWindow ptr') = M334.QSurface $ (HoppyF.castPtr :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr M334.QSurface) $ castQtahOpenGLWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'+  toQSurface (QtahOpenGLWindowGc fptr' ptr') = M334.QSurfaceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr M334.QSurface) $ castQtahOpenGLWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'++instance M304.QPaintDeviceConstPtr QtahOpenGLWindow where+  toQPaintDeviceConst (QtahOpenGLWindow ptr') = M304.QPaintDeviceConst $ castQtahOpenGLWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'+  toQPaintDeviceConst (QtahOpenGLWindowGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQtahOpenGLWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'++instance M304.QPaintDevicePtr QtahOpenGLWindow where+  toQPaintDevice (QtahOpenGLWindow ptr') = M304.QPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQtahOpenGLWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'+  toQPaintDevice (QtahOpenGLWindowGc fptr' ptr') = M304.QPaintDeviceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQtahOpenGLWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QtahOpenGLWindow -> HoppyF.Ptr QtahOpenGLWindowConst) ptr'++new :: (HoppyP.IO QtahOpenGLWindow)+new =+  HoppyP.fmap QtahOpenGLWindow+  (new')++newWithUpdateBehavior :: (M302.QOpenGLWindowUpdateBehavior) -> (HoppyP.IO QtahOpenGLWindow)+newWithUpdateBehavior arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QtahOpenGLWindow+  (newWithUpdateBehavior' arg'1')++newWithUpdateBehaviorAndParent :: (M342.QWindowPtr arg'2) => (M302.QOpenGLWindowUpdateBehavior) -> (arg'2) -> (HoppyP.IO QtahOpenGLWindow)+newWithUpdateBehaviorAndParent arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyFHR.withCppPtr (M342.toQWindow arg'2) $ \arg'2' ->+  HoppyP.fmap QtahOpenGLWindow+  (newWithUpdateBehaviorAndParent' arg'1' arg'2')++class QtahOpenGLWindowSuper a where+  downToQtahOpenGLWindow :: a -> QtahOpenGLWindow++instance QtahOpenGLWindowSuper M302.QOpenGLWindow where+  downToQtahOpenGLWindow = castQtahOpenGLWindowToNonconst . cast' . M302.castQOpenGLWindowToConst+    where+      cast' (M302.QOpenGLWindowConst ptr') = QtahOpenGLWindowConst $ castQOpenGLWindowToQtahOpenGLWindow ptr'+      cast' (M302.QOpenGLWindowConstGc fptr' ptr') = QtahOpenGLWindowConstGc fptr' $ castQOpenGLWindowToQtahOpenGLWindow ptr'+instance QtahOpenGLWindowSuper M306.QPaintDeviceWindow where+  downToQtahOpenGLWindow = castQtahOpenGLWindowToNonconst . cast' . M306.castQPaintDeviceWindowToConst+    where+      cast' (M306.QPaintDeviceWindowConst ptr') = QtahOpenGLWindowConst $ castQPaintDeviceWindowToQtahOpenGLWindow ptr'+      cast' (M306.QPaintDeviceWindowConstGc fptr' ptr') = QtahOpenGLWindowConstGc fptr' $ castQPaintDeviceWindowToQtahOpenGLWindow ptr'+instance QtahOpenGLWindowSuper M342.QWindow where+  downToQtahOpenGLWindow = castQtahOpenGLWindowToNonconst . cast' . M342.castQWindowToConst+    where+      cast' (M342.QWindowConst ptr') = QtahOpenGLWindowConst $ castQWindowToQtahOpenGLWindow ptr'+      cast' (M342.QWindowConstGc fptr' ptr') = QtahOpenGLWindowConstGc fptr' $ castQWindowToQtahOpenGLWindow ptr'+instance QtahOpenGLWindowSuper M94.QObject where+  downToQtahOpenGLWindow = castQtahOpenGLWindowToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QtahOpenGLWindowConst $ castQObjectToQtahOpenGLWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QtahOpenGLWindowConstGc fptr' $ castQObjectToQtahOpenGLWindow ptr'+instance QtahOpenGLWindowSuper M334.QSurface where+  downToQtahOpenGLWindow = castQtahOpenGLWindowToNonconst . cast' . M334.castQSurfaceToConst+    where+      cast' (M334.QSurfaceConst ptr') = QtahOpenGLWindowConst $ castQSurfaceToQtahOpenGLWindow ptr'+      cast' (M334.QSurfaceConstGc fptr' ptr') = QtahOpenGLWindowConstGc fptr' $ castQSurfaceToQtahOpenGLWindow ptr'+instance QtahOpenGLWindowSuper M304.QPaintDevice where+  downToQtahOpenGLWindow = castQtahOpenGLWindowToNonconst . cast' . M304.castQPaintDeviceToConst+    where+      cast' (M304.QPaintDeviceConst ptr') = QtahOpenGLWindowConst $ castQPaintDeviceToQtahOpenGLWindow ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QtahOpenGLWindowConstGc fptr' $ castQPaintDeviceToQtahOpenGLWindow ptr'++class QtahOpenGLWindowSuperConst a where+  downToQtahOpenGLWindowConst :: a -> QtahOpenGLWindowConst++instance QtahOpenGLWindowSuperConst M302.QOpenGLWindowConst where+  downToQtahOpenGLWindowConst = cast'+    where+      cast' (M302.QOpenGLWindowConst ptr') = QtahOpenGLWindowConst $ castQOpenGLWindowToQtahOpenGLWindow ptr'+      cast' (M302.QOpenGLWindowConstGc fptr' ptr') = QtahOpenGLWindowConstGc fptr' $ castQOpenGLWindowToQtahOpenGLWindow ptr'+instance QtahOpenGLWindowSuperConst M306.QPaintDeviceWindowConst where+  downToQtahOpenGLWindowConst = cast'+    where+      cast' (M306.QPaintDeviceWindowConst ptr') = QtahOpenGLWindowConst $ castQPaintDeviceWindowToQtahOpenGLWindow ptr'+      cast' (M306.QPaintDeviceWindowConstGc fptr' ptr') = QtahOpenGLWindowConstGc fptr' $ castQPaintDeviceWindowToQtahOpenGLWindow ptr'+instance QtahOpenGLWindowSuperConst M342.QWindowConst where+  downToQtahOpenGLWindowConst = cast'+    where+      cast' (M342.QWindowConst ptr') = QtahOpenGLWindowConst $ castQWindowToQtahOpenGLWindow ptr'+      cast' (M342.QWindowConstGc fptr' ptr') = QtahOpenGLWindowConstGc fptr' $ castQWindowToQtahOpenGLWindow ptr'+instance QtahOpenGLWindowSuperConst M94.QObjectConst where+  downToQtahOpenGLWindowConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QtahOpenGLWindowConst $ castQObjectToQtahOpenGLWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QtahOpenGLWindowConstGc fptr' $ castQObjectToQtahOpenGLWindow ptr'+instance QtahOpenGLWindowSuperConst M334.QSurfaceConst where+  downToQtahOpenGLWindowConst = cast'+    where+      cast' (M334.QSurfaceConst ptr') = QtahOpenGLWindowConst $ castQSurfaceToQtahOpenGLWindow ptr'+      cast' (M334.QSurfaceConstGc fptr' ptr') = QtahOpenGLWindowConstGc fptr' $ castQSurfaceToQtahOpenGLWindow ptr'+instance QtahOpenGLWindowSuperConst M304.QPaintDeviceConst where+  downToQtahOpenGLWindowConst = cast'+    where+      cast' (M304.QPaintDeviceConst ptr') = QtahOpenGLWindowConst $ castQPaintDeviceToQtahOpenGLWindow ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QtahOpenGLWindowConstGc fptr' $ castQPaintDeviceToQtahOpenGLWindow ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QtahOpenGLWindow)) QtahOpenGLWindow where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QtahOpenGLWindow)) QtahOpenGLWindow where+  decode = HoppyP.fmap QtahOpenGLWindow . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Gui/QtahRasterWindow.hs view
@@ -0,0 +1,315 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Gui.QtahRasterWindow (+  castQtahRasterWindowToQRasterWindow,+  castQRasterWindowToQtahRasterWindow,+  castQtahRasterWindowToQPaintDeviceWindow,+  castQPaintDeviceWindowToQtahRasterWindow,+  castQtahRasterWindowToQWindow,+  castQWindowToQtahRasterWindow,+  castQtahRasterWindowToQObject,+  castQObjectToQtahRasterWindow,+  castQtahRasterWindowToQSurface,+  castQSurfaceToQtahRasterWindow,+  castQtahRasterWindowToQPaintDevice,+  castQPaintDeviceToQtahRasterWindow,+  QtahRasterWindowValue (..),+  QtahRasterWindowConstPtr (..),+  QtahRasterWindowPtr (..),+  onPaintEvent,+  QtahRasterWindowConst (..),+  castQtahRasterWindowToConst,+  QtahRasterWindow (..),+  castQtahRasterWindowToNonconst,+  new,+  newWithParent,+  QtahRasterWindowSuper (..),+  QtahRasterWindowSuperConst (..),+  ) 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.Gui.QPaintDevice as M304+import qualified Graphics.UI.Qtah.Generated.Gui.QPaintDeviceWindow as M306+import qualified Graphics.UI.Qtah.Generated.Gui.QPaintEvent as M308+import qualified Graphics.UI.Qtah.Generated.Gui.QRasterWindow as M322+import qualified Graphics.UI.Qtah.Generated.Gui.QSurface as M334+import qualified Graphics.UI.Qtah.Generated.Gui.QWindow as M342+import qualified Graphics.UI.Qtah.Internal.Callback as M348+import Prelude (($), (.), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QtahRasterWindow_new" new' ::  HoppyP.IO (HoppyF.Ptr QtahRasterWindow)+foreign import ccall "genpop__QtahRasterWindow_newWithParent" newWithParent' ::  HoppyF.Ptr M342.QWindow -> HoppyP.IO (HoppyF.Ptr QtahRasterWindow)+foreign import ccall "genpop__QtahRasterWindow_onPaintEvent" onPaintEvent' ::  HoppyF.Ptr QtahRasterWindow -> HoppyFHR.CCallback (HoppyF.Ptr M308.QPaintEvent -> HoppyP.IO ()) -> HoppyP.IO ()+foreign import ccall "gencast__QtahRasterWindow__QRasterWindow" castQtahRasterWindowToQRasterWindow :: HoppyF.Ptr QtahRasterWindowConst -> HoppyF.Ptr M322.QRasterWindowConst+foreign import ccall "gencast__QRasterWindow__QtahRasterWindow" castQRasterWindowToQtahRasterWindow :: HoppyF.Ptr M322.QRasterWindowConst -> HoppyF.Ptr QtahRasterWindowConst+foreign import ccall "gencast__QtahRasterWindow__QPaintDeviceWindow" castQtahRasterWindowToQPaintDeviceWindow :: HoppyF.Ptr QtahRasterWindowConst -> HoppyF.Ptr M306.QPaintDeviceWindowConst+foreign import ccall "gencast__QPaintDeviceWindow__QtahRasterWindow" castQPaintDeviceWindowToQtahRasterWindow :: HoppyF.Ptr M306.QPaintDeviceWindowConst -> HoppyF.Ptr QtahRasterWindowConst+foreign import ccall "gencast__QtahRasterWindow__QWindow" castQtahRasterWindowToQWindow :: HoppyF.Ptr QtahRasterWindowConst -> HoppyF.Ptr M342.QWindowConst+foreign import ccall "gencast__QWindow__QtahRasterWindow" castQWindowToQtahRasterWindow :: HoppyF.Ptr M342.QWindowConst -> HoppyF.Ptr QtahRasterWindowConst+foreign import ccall "gencast__QtahRasterWindow__QObject" castQtahRasterWindowToQObject :: HoppyF.Ptr QtahRasterWindowConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QtahRasterWindow" castQObjectToQtahRasterWindow :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QtahRasterWindowConst+foreign import ccall "gencast__QtahRasterWindow__QSurface" castQtahRasterWindowToQSurface :: HoppyF.Ptr QtahRasterWindowConst -> HoppyF.Ptr M334.QSurfaceConst+foreign import ccall "gencast__QSurface__QtahRasterWindow" castQSurfaceToQtahRasterWindow :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr QtahRasterWindowConst+foreign import ccall "gencast__QtahRasterWindow__QPaintDevice" castQtahRasterWindowToQPaintDevice :: HoppyF.Ptr QtahRasterWindowConst -> HoppyF.Ptr M304.QPaintDeviceConst+foreign import ccall "gencast__QPaintDevice__QtahRasterWindow" castQPaintDeviceToQtahRasterWindow :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr QtahRasterWindowConst+foreign import ccall "gendel__QtahRasterWindow" delete'QtahRasterWindow :: HoppyF.Ptr QtahRasterWindowConst -> HoppyP.IO ()+foreign import ccall "&gendel__QtahRasterWindow" deletePtr'QtahRasterWindow :: HoppyF.FunPtr (HoppyF.Ptr QtahRasterWindowConst -> HoppyP.IO ())++class QtahRasterWindowValue a where+  withQtahRasterWindowPtr :: a -> (QtahRasterWindowConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QtahRasterWindowConstPtr a => QtahRasterWindowValue a where+  withQtahRasterWindowPtr = HoppyP.flip ($) . toQtahRasterWindowConst++class (M322.QRasterWindowConstPtr this) => QtahRasterWindowConstPtr this where+  toQtahRasterWindowConst :: this -> QtahRasterWindowConst++class (QtahRasterWindowConstPtr this, M322.QRasterWindowPtr this) => QtahRasterWindowPtr this where+  toQtahRasterWindow :: this -> QtahRasterWindow++onPaintEvent :: (QtahRasterWindowPtr this) => (this) {- ^ this -} -> (M308.QPaintEvent -> HoppyP.IO ()) -> (HoppyP.IO ())+onPaintEvent arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQtahRasterWindow arg'1) $ \arg'1' ->+  (+    M348.callbackPtrQPaintEventVoid_new+  ) arg'2 >>= \arg'2' ->+  (onPaintEvent' arg'1' arg'2')++data QtahRasterWindowConst =+    QtahRasterWindowConst (HoppyF.Ptr QtahRasterWindowConst)+  | QtahRasterWindowConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QtahRasterWindowConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QtahRasterWindowConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QtahRasterWindowConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQtahRasterWindowToConst :: QtahRasterWindow -> QtahRasterWindowConst+castQtahRasterWindowToConst (QtahRasterWindow ptr') = QtahRasterWindowConst $ HoppyF.castPtr ptr'+castQtahRasterWindowToConst (QtahRasterWindowGc fptr' ptr') = QtahRasterWindowConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QtahRasterWindowConst where+  nullptr = QtahRasterWindowConst HoppyF.nullPtr+  +  withCppPtr (QtahRasterWindowConst ptr') f' = f' ptr'+  withCppPtr (QtahRasterWindowConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QtahRasterWindowConst ptr') = ptr'+  toPtr (QtahRasterWindowConstGc _ ptr') = ptr'+  +  touchCppPtr (QtahRasterWindowConst _) = HoppyP.return ()+  touchCppPtr (QtahRasterWindowConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QtahRasterWindowConst where+  delete (QtahRasterWindowConst ptr') = delete'QtahRasterWindow ptr'+  delete (QtahRasterWindowConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QtahRasterWindowConst", " object."]+  +  toGc this'@(QtahRasterWindowConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QtahRasterWindowConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QtahRasterWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QtahRasterWindowConstGc {}) = HoppyP.return this'++instance QtahRasterWindowConstPtr QtahRasterWindowConst where+  toQtahRasterWindowConst = HoppyP.id++instance M322.QRasterWindowConstPtr QtahRasterWindowConst where+  toQRasterWindowConst (QtahRasterWindowConst ptr') = M322.QRasterWindowConst $ castQtahRasterWindowToQRasterWindow ptr'+  toQRasterWindowConst (QtahRasterWindowConstGc fptr' ptr') = M322.QRasterWindowConstGc fptr' $ castQtahRasterWindowToQRasterWindow ptr'++instance M306.QPaintDeviceWindowConstPtr QtahRasterWindowConst where+  toQPaintDeviceWindowConst (QtahRasterWindowConst ptr') = M306.QPaintDeviceWindowConst $ castQtahRasterWindowToQPaintDeviceWindow ptr'+  toQPaintDeviceWindowConst (QtahRasterWindowConstGc fptr' ptr') = M306.QPaintDeviceWindowConstGc fptr' $ castQtahRasterWindowToQPaintDeviceWindow ptr'++instance M342.QWindowConstPtr QtahRasterWindowConst where+  toQWindowConst (QtahRasterWindowConst ptr') = M342.QWindowConst $ castQtahRasterWindowToQWindow ptr'+  toQWindowConst (QtahRasterWindowConstGc fptr' ptr') = M342.QWindowConstGc fptr' $ castQtahRasterWindowToQWindow ptr'++instance M94.QObjectConstPtr QtahRasterWindowConst where+  toQObjectConst (QtahRasterWindowConst ptr') = M94.QObjectConst $ castQtahRasterWindowToQObject ptr'+  toQObjectConst (QtahRasterWindowConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQtahRasterWindowToQObject ptr'++instance M334.QSurfaceConstPtr QtahRasterWindowConst where+  toQSurfaceConst (QtahRasterWindowConst ptr') = M334.QSurfaceConst $ castQtahRasterWindowToQSurface ptr'+  toQSurfaceConst (QtahRasterWindowConstGc fptr' ptr') = M334.QSurfaceConstGc fptr' $ castQtahRasterWindowToQSurface ptr'++instance M304.QPaintDeviceConstPtr QtahRasterWindowConst where+  toQPaintDeviceConst (QtahRasterWindowConst ptr') = M304.QPaintDeviceConst $ castQtahRasterWindowToQPaintDevice ptr'+  toQPaintDeviceConst (QtahRasterWindowConstGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQtahRasterWindowToQPaintDevice ptr'++data QtahRasterWindow =+    QtahRasterWindow (HoppyF.Ptr QtahRasterWindow)+  | QtahRasterWindowGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QtahRasterWindow)+  deriving (HoppyP.Show)++instance HoppyP.Eq QtahRasterWindow where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QtahRasterWindow where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQtahRasterWindowToNonconst :: QtahRasterWindowConst -> QtahRasterWindow+castQtahRasterWindowToNonconst (QtahRasterWindowConst ptr') = QtahRasterWindow $ HoppyF.castPtr ptr'+castQtahRasterWindowToNonconst (QtahRasterWindowConstGc fptr' ptr') = QtahRasterWindowGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QtahRasterWindow where+  nullptr = QtahRasterWindow HoppyF.nullPtr+  +  withCppPtr (QtahRasterWindow ptr') f' = f' ptr'+  withCppPtr (QtahRasterWindowGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QtahRasterWindow ptr') = ptr'+  toPtr (QtahRasterWindowGc _ ptr') = ptr'+  +  touchCppPtr (QtahRasterWindow _) = HoppyP.return ()+  touchCppPtr (QtahRasterWindowGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QtahRasterWindow where+  delete (QtahRasterWindow ptr') = delete'QtahRasterWindow $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QtahRasterWindowConst)+  delete (QtahRasterWindowGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QtahRasterWindow", " object."]+  +  toGc this'@(QtahRasterWindow ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QtahRasterWindowGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QtahRasterWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QtahRasterWindowGc {}) = HoppyP.return this'++instance QtahRasterWindowConstPtr QtahRasterWindow where+  toQtahRasterWindowConst (QtahRasterWindow ptr') = QtahRasterWindowConst $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'+  toQtahRasterWindowConst (QtahRasterWindowGc fptr' ptr') = QtahRasterWindowConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'++instance QtahRasterWindowPtr QtahRasterWindow where+  toQtahRasterWindow = HoppyP.id++instance M322.QRasterWindowConstPtr QtahRasterWindow where+  toQRasterWindowConst (QtahRasterWindow ptr') = M322.QRasterWindowConst $ castQtahRasterWindowToQRasterWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'+  toQRasterWindowConst (QtahRasterWindowGc fptr' ptr') = M322.QRasterWindowConstGc fptr' $ castQtahRasterWindowToQRasterWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'++instance M322.QRasterWindowPtr QtahRasterWindow where+  toQRasterWindow (QtahRasterWindow ptr') = M322.QRasterWindow $ (HoppyF.castPtr :: HoppyF.Ptr M322.QRasterWindowConst -> HoppyF.Ptr M322.QRasterWindow) $ castQtahRasterWindowToQRasterWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'+  toQRasterWindow (QtahRasterWindowGc fptr' ptr') = M322.QRasterWindowGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M322.QRasterWindowConst -> HoppyF.Ptr M322.QRasterWindow) $ castQtahRasterWindowToQRasterWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'++instance M306.QPaintDeviceWindowConstPtr QtahRasterWindow where+  toQPaintDeviceWindowConst (QtahRasterWindow ptr') = M306.QPaintDeviceWindowConst $ castQtahRasterWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'+  toQPaintDeviceWindowConst (QtahRasterWindowGc fptr' ptr') = M306.QPaintDeviceWindowConstGc fptr' $ castQtahRasterWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'++instance M306.QPaintDeviceWindowPtr QtahRasterWindow where+  toQPaintDeviceWindow (QtahRasterWindow ptr') = M306.QPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr M306.QPaintDeviceWindowConst -> HoppyF.Ptr M306.QPaintDeviceWindow) $ castQtahRasterWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'+  toQPaintDeviceWindow (QtahRasterWindowGc fptr' ptr') = M306.QPaintDeviceWindowGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M306.QPaintDeviceWindowConst -> HoppyF.Ptr M306.QPaintDeviceWindow) $ castQtahRasterWindowToQPaintDeviceWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'++instance M342.QWindowConstPtr QtahRasterWindow where+  toQWindowConst (QtahRasterWindow ptr') = M342.QWindowConst $ castQtahRasterWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'+  toQWindowConst (QtahRasterWindowGc fptr' ptr') = M342.QWindowConstGc fptr' $ castQtahRasterWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'++instance M342.QWindowPtr QtahRasterWindow where+  toQWindow (QtahRasterWindow ptr') = M342.QWindow $ (HoppyF.castPtr :: HoppyF.Ptr M342.QWindowConst -> HoppyF.Ptr M342.QWindow) $ castQtahRasterWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'+  toQWindow (QtahRasterWindowGc fptr' ptr') = M342.QWindowGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M342.QWindowConst -> HoppyF.Ptr M342.QWindow) $ castQtahRasterWindowToQWindow $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'++instance M94.QObjectConstPtr QtahRasterWindow where+  toQObjectConst (QtahRasterWindow ptr') = M94.QObjectConst $ castQtahRasterWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'+  toQObjectConst (QtahRasterWindowGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQtahRasterWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'++instance M94.QObjectPtr QtahRasterWindow where+  toQObject (QtahRasterWindow ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQtahRasterWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'+  toQObject (QtahRasterWindowGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQtahRasterWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'++instance M334.QSurfaceConstPtr QtahRasterWindow where+  toQSurfaceConst (QtahRasterWindow ptr') = M334.QSurfaceConst $ castQtahRasterWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'+  toQSurfaceConst (QtahRasterWindowGc fptr' ptr') = M334.QSurfaceConstGc fptr' $ castQtahRasterWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'++instance M334.QSurfacePtr QtahRasterWindow where+  toQSurface (QtahRasterWindow ptr') = M334.QSurface $ (HoppyF.castPtr :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr M334.QSurface) $ castQtahRasterWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'+  toQSurface (QtahRasterWindowGc fptr' ptr') = M334.QSurfaceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M334.QSurfaceConst -> HoppyF.Ptr M334.QSurface) $ castQtahRasterWindowToQSurface $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'++instance M304.QPaintDeviceConstPtr QtahRasterWindow where+  toQPaintDeviceConst (QtahRasterWindow ptr') = M304.QPaintDeviceConst $ castQtahRasterWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'+  toQPaintDeviceConst (QtahRasterWindowGc fptr' ptr') = M304.QPaintDeviceConstGc fptr' $ castQtahRasterWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'++instance M304.QPaintDevicePtr QtahRasterWindow where+  toQPaintDevice (QtahRasterWindow ptr') = M304.QPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQtahRasterWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'+  toQPaintDevice (QtahRasterWindowGc fptr' ptr') = M304.QPaintDeviceGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M304.QPaintDeviceConst -> HoppyF.Ptr M304.QPaintDevice) $ castQtahRasterWindowToQPaintDevice $ (HoppyF.castPtr :: HoppyF.Ptr QtahRasterWindow -> HoppyF.Ptr QtahRasterWindowConst) ptr'++new :: (HoppyP.IO QtahRasterWindow)+new =+  HoppyP.fmap QtahRasterWindow+  (new')++newWithParent :: (M342.QWindowPtr arg'1) => (arg'1) -> (HoppyP.IO QtahRasterWindow)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M342.toQWindow arg'1) $ \arg'1' ->+  HoppyP.fmap QtahRasterWindow+  (newWithParent' arg'1')++class QtahRasterWindowSuper a where+  downToQtahRasterWindow :: a -> QtahRasterWindow++instance QtahRasterWindowSuper M322.QRasterWindow where+  downToQtahRasterWindow = castQtahRasterWindowToNonconst . cast' . M322.castQRasterWindowToConst+    where+      cast' (M322.QRasterWindowConst ptr') = QtahRasterWindowConst $ castQRasterWindowToQtahRasterWindow ptr'+      cast' (M322.QRasterWindowConstGc fptr' ptr') = QtahRasterWindowConstGc fptr' $ castQRasterWindowToQtahRasterWindow ptr'+instance QtahRasterWindowSuper M306.QPaintDeviceWindow where+  downToQtahRasterWindow = castQtahRasterWindowToNonconst . cast' . M306.castQPaintDeviceWindowToConst+    where+      cast' (M306.QPaintDeviceWindowConst ptr') = QtahRasterWindowConst $ castQPaintDeviceWindowToQtahRasterWindow ptr'+      cast' (M306.QPaintDeviceWindowConstGc fptr' ptr') = QtahRasterWindowConstGc fptr' $ castQPaintDeviceWindowToQtahRasterWindow ptr'+instance QtahRasterWindowSuper M342.QWindow where+  downToQtahRasterWindow = castQtahRasterWindowToNonconst . cast' . M342.castQWindowToConst+    where+      cast' (M342.QWindowConst ptr') = QtahRasterWindowConst $ castQWindowToQtahRasterWindow ptr'+      cast' (M342.QWindowConstGc fptr' ptr') = QtahRasterWindowConstGc fptr' $ castQWindowToQtahRasterWindow ptr'+instance QtahRasterWindowSuper M94.QObject where+  downToQtahRasterWindow = castQtahRasterWindowToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QtahRasterWindowConst $ castQObjectToQtahRasterWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QtahRasterWindowConstGc fptr' $ castQObjectToQtahRasterWindow ptr'+instance QtahRasterWindowSuper M334.QSurface where+  downToQtahRasterWindow = castQtahRasterWindowToNonconst . cast' . M334.castQSurfaceToConst+    where+      cast' (M334.QSurfaceConst ptr') = QtahRasterWindowConst $ castQSurfaceToQtahRasterWindow ptr'+      cast' (M334.QSurfaceConstGc fptr' ptr') = QtahRasterWindowConstGc fptr' $ castQSurfaceToQtahRasterWindow ptr'+instance QtahRasterWindowSuper M304.QPaintDevice where+  downToQtahRasterWindow = castQtahRasterWindowToNonconst . cast' . M304.castQPaintDeviceToConst+    where+      cast' (M304.QPaintDeviceConst ptr') = QtahRasterWindowConst $ castQPaintDeviceToQtahRasterWindow ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QtahRasterWindowConstGc fptr' $ castQPaintDeviceToQtahRasterWindow ptr'++class QtahRasterWindowSuperConst a where+  downToQtahRasterWindowConst :: a -> QtahRasterWindowConst++instance QtahRasterWindowSuperConst M322.QRasterWindowConst where+  downToQtahRasterWindowConst = cast'+    where+      cast' (M322.QRasterWindowConst ptr') = QtahRasterWindowConst $ castQRasterWindowToQtahRasterWindow ptr'+      cast' (M322.QRasterWindowConstGc fptr' ptr') = QtahRasterWindowConstGc fptr' $ castQRasterWindowToQtahRasterWindow ptr'+instance QtahRasterWindowSuperConst M306.QPaintDeviceWindowConst where+  downToQtahRasterWindowConst = cast'+    where+      cast' (M306.QPaintDeviceWindowConst ptr') = QtahRasterWindowConst $ castQPaintDeviceWindowToQtahRasterWindow ptr'+      cast' (M306.QPaintDeviceWindowConstGc fptr' ptr') = QtahRasterWindowConstGc fptr' $ castQPaintDeviceWindowToQtahRasterWindow ptr'+instance QtahRasterWindowSuperConst M342.QWindowConst where+  downToQtahRasterWindowConst = cast'+    where+      cast' (M342.QWindowConst ptr') = QtahRasterWindowConst $ castQWindowToQtahRasterWindow ptr'+      cast' (M342.QWindowConstGc fptr' ptr') = QtahRasterWindowConstGc fptr' $ castQWindowToQtahRasterWindow ptr'+instance QtahRasterWindowSuperConst M94.QObjectConst where+  downToQtahRasterWindowConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QtahRasterWindowConst $ castQObjectToQtahRasterWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QtahRasterWindowConstGc fptr' $ castQObjectToQtahRasterWindow ptr'+instance QtahRasterWindowSuperConst M334.QSurfaceConst where+  downToQtahRasterWindowConst = cast'+    where+      cast' (M334.QSurfaceConst ptr') = QtahRasterWindowConst $ castQSurfaceToQtahRasterWindow ptr'+      cast' (M334.QSurfaceConstGc fptr' ptr') = QtahRasterWindowConstGc fptr' $ castQSurfaceToQtahRasterWindow ptr'+instance QtahRasterWindowSuperConst M304.QPaintDeviceConst where+  downToQtahRasterWindowConst = cast'+    where+      cast' (M304.QPaintDeviceConst ptr') = QtahRasterWindowConst $ castQPaintDeviceToQtahRasterWindow ptr'+      cast' (M304.QPaintDeviceConstGc fptr' ptr') = QtahRasterWindowConstGc fptr' $ castQPaintDeviceToQtahRasterWindow ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QtahRasterWindow)) QtahRasterWindow where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QtahRasterWindow)) QtahRasterWindow where+  decode = HoppyP.fmap QtahRasterWindow . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Internal/EventListener.hs view
@@ -0,0 +1,177 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Internal.EventListener (+  castEventListenerToQObject,+  castQObjectToEventListener,+  EventListenerValue (..),+  EventListenerConstPtr (..),+  EventListenerPtr (..),+  doNotNotifyOnDelete,+  EventListenerConst (..),+  castEventListenerToConst,+  EventListener (..),+  castEventListenerToNonconst,+  new,+  EventListenerSuper (..),+  EventListenerSuperConst (..),+  ) 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.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Internal.Callback as M348+import Prelude (($), (.), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__EventListener_new" new' ::  HoppyF.Ptr M94.QObject -> HoppyFHR.CCallback (HoppyF.Ptr M94.QObject -> HoppyF.Ptr M34.QEvent -> HoppyP.IO HoppyFC.CBool) -> HoppyFHR.CCallback (HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr EventListener)+foreign import ccall "genpop__EventListener_doNotNotifyOnDelete" doNotNotifyOnDelete' ::  HoppyF.Ptr EventListener -> HoppyP.IO ()+foreign import ccall "gencast__EventListener__QObject" castEventListenerToQObject :: HoppyF.Ptr EventListenerConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__EventListener" castQObjectToEventListener :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr EventListenerConst+foreign import ccall "gendel__EventListener" delete'EventListener :: HoppyF.Ptr EventListenerConst -> HoppyP.IO ()+foreign import ccall "&gendel__EventListener" deletePtr'EventListener :: HoppyF.FunPtr (HoppyF.Ptr EventListenerConst -> HoppyP.IO ())++class EventListenerValue a where+  withEventListenerPtr :: a -> (EventListenerConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} EventListenerConstPtr a => EventListenerValue a where+  withEventListenerPtr = HoppyP.flip ($) . toEventListenerConst++class (M94.QObjectConstPtr this) => EventListenerConstPtr this where+  toEventListenerConst :: this -> EventListenerConst++class (EventListenerConstPtr this, M94.QObjectPtr this) => EventListenerPtr this where+  toEventListener :: this -> EventListener++doNotNotifyOnDelete :: (EventListenerPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+doNotNotifyOnDelete arg'1 =+  HoppyFHR.withCppPtr (toEventListener arg'1) $ \arg'1' ->+  (doNotNotifyOnDelete' arg'1')++data EventListenerConst =+    EventListenerConst (HoppyF.Ptr EventListenerConst)+  | EventListenerConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr EventListenerConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq EventListenerConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord EventListenerConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castEventListenerToConst :: EventListener -> EventListenerConst+castEventListenerToConst (EventListener ptr') = EventListenerConst $ HoppyF.castPtr ptr'+castEventListenerToConst (EventListenerGc fptr' ptr') = EventListenerConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr EventListenerConst where+  nullptr = EventListenerConst HoppyF.nullPtr+  +  withCppPtr (EventListenerConst ptr') f' = f' ptr'+  withCppPtr (EventListenerConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (EventListenerConst ptr') = ptr'+  toPtr (EventListenerConstGc _ ptr') = ptr'+  +  touchCppPtr (EventListenerConst _) = HoppyP.return ()+  touchCppPtr (EventListenerConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable EventListenerConst where+  delete (EventListenerConst ptr') = delete'EventListener ptr'+  delete (EventListenerConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "EventListenerConst", " object."]+  +  toGc this'@(EventListenerConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip EventListenerConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'EventListener :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(EventListenerConstGc {}) = HoppyP.return this'++instance EventListenerConstPtr EventListenerConst where+  toEventListenerConst = HoppyP.id++instance M94.QObjectConstPtr EventListenerConst where+  toQObjectConst (EventListenerConst ptr') = M94.QObjectConst $ castEventListenerToQObject ptr'+  toQObjectConst (EventListenerConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castEventListenerToQObject ptr'++data EventListener =+    EventListener (HoppyF.Ptr EventListener)+  | EventListenerGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr EventListener)+  deriving (HoppyP.Show)++instance HoppyP.Eq EventListener where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord EventListener where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castEventListenerToNonconst :: EventListenerConst -> EventListener+castEventListenerToNonconst (EventListenerConst ptr') = EventListener $ HoppyF.castPtr ptr'+castEventListenerToNonconst (EventListenerConstGc fptr' ptr') = EventListenerGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr EventListener where+  nullptr = EventListener HoppyF.nullPtr+  +  withCppPtr (EventListener ptr') f' = f' ptr'+  withCppPtr (EventListenerGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (EventListener ptr') = ptr'+  toPtr (EventListenerGc _ ptr') = ptr'+  +  touchCppPtr (EventListener _) = HoppyP.return ()+  touchCppPtr (EventListenerGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable EventListener where+  delete (EventListener ptr') = delete'EventListener $ (HoppyF.castPtr ptr' :: HoppyF.Ptr EventListenerConst)+  delete (EventListenerGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "EventListener", " object."]+  +  toGc this'@(EventListener ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip EventListenerGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'EventListener :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(EventListenerGc {}) = HoppyP.return this'++instance EventListenerConstPtr EventListener where+  toEventListenerConst (EventListener ptr') = EventListenerConst $ (HoppyF.castPtr :: HoppyF.Ptr EventListener -> HoppyF.Ptr EventListenerConst) ptr'+  toEventListenerConst (EventListenerGc fptr' ptr') = EventListenerConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr EventListener -> HoppyF.Ptr EventListenerConst) ptr'++instance EventListenerPtr EventListener where+  toEventListener = HoppyP.id++instance M94.QObjectConstPtr EventListener where+  toQObjectConst (EventListener ptr') = M94.QObjectConst $ castEventListenerToQObject $ (HoppyF.castPtr :: HoppyF.Ptr EventListener -> HoppyF.Ptr EventListenerConst) ptr'+  toQObjectConst (EventListenerGc fptr' ptr') = M94.QObjectConstGc fptr' $ castEventListenerToQObject $ (HoppyF.castPtr :: HoppyF.Ptr EventListener -> HoppyF.Ptr EventListenerConst) ptr'++instance M94.QObjectPtr EventListener where+  toQObject (EventListener ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castEventListenerToQObject $ (HoppyF.castPtr :: HoppyF.Ptr EventListener -> HoppyF.Ptr EventListenerConst) ptr'+  toQObject (EventListenerGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castEventListenerToQObject $ (HoppyF.castPtr :: HoppyF.Ptr EventListener -> HoppyF.Ptr EventListenerConst) ptr'++new :: (M94.QObjectPtr arg'1) => (arg'1) -> (M94.QObject -> M34.QEvent -> HoppyP.IO HoppyP.Bool) -> (HoppyP.IO ()) -> (HoppyP.IO EventListener)+new arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  (+    M348.callbackPtrQObjectPtrQEventBool_new+  ) arg'2 >>= \arg'2' ->+  (+    M348.callbackVoid_new+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap EventListener+  (new' arg'1' arg'2' arg'3')++class EventListenerSuper a where+  downToEventListener :: a -> EventListener++instance EventListenerSuper M94.QObject where+  downToEventListener = castEventListenerToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = EventListenerConst $ castQObjectToEventListener ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = EventListenerConstGc fptr' $ castQObjectToEventListener ptr'++class EventListenerSuperConst a where+  downToEventListenerConst :: a -> EventListenerConst++instance EventListenerSuperConst M94.QObjectConst where+  downToEventListenerConst = cast'+    where+      cast' (M94.QObjectConst ptr') = EventListenerConst $ castQObjectToEventListener ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = EventListenerConstGc fptr' $ castQObjectToEventListener ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr EventListener)) EventListener where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr EventListener)) EventListener where+  decode = HoppyP.fmap EventListener . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Internal/SceneEventListener.hs view
@@ -0,0 +1,177 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Internal.SceneEventListener (+  castSceneEventListenerToQGraphicsItem,+  castQGraphicsItemToSceneEventListener,+  SceneEventListenerValue (..),+  SceneEventListenerConstPtr (..),+  SceneEventListenerPtr (..),+  doNotNotifyOnDelete,+  SceneEventListenerConst (..),+  castSceneEventListenerToConst,+  SceneEventListener (..),+  castSceneEventListenerToNonconst,+  new,+  SceneEventListenerSuper (..),+  SceneEventListenerSuperConst (..),+  ) 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.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsItem as M404+import qualified Graphics.UI.Qtah.Internal.Callback as M348+import Prelude (($), (.), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__SceneEventListener_new" new' ::  HoppyF.Ptr M404.QGraphicsItem -> HoppyFHR.CCallback (HoppyF.Ptr M404.QGraphicsItem -> HoppyF.Ptr M34.QEvent -> HoppyP.IO HoppyFC.CBool) -> HoppyFHR.CCallback (HoppyP.IO ()) -> HoppyP.IO (HoppyF.Ptr SceneEventListener)+foreign import ccall "genpop__SceneEventListener_doNotNotifyOnDelete" doNotNotifyOnDelete' ::  HoppyF.Ptr SceneEventListener -> HoppyP.IO ()+foreign import ccall "gencast__SceneEventListener__QGraphicsItem" castSceneEventListenerToQGraphicsItem :: HoppyF.Ptr SceneEventListenerConst -> HoppyF.Ptr M404.QGraphicsItemConst+foreign import ccall "gencast__QGraphicsItem__SceneEventListener" castQGraphicsItemToSceneEventListener :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr SceneEventListenerConst+foreign import ccall "gendel__SceneEventListener" delete'SceneEventListener :: HoppyF.Ptr SceneEventListenerConst -> HoppyP.IO ()+foreign import ccall "&gendel__SceneEventListener" deletePtr'SceneEventListener :: HoppyF.FunPtr (HoppyF.Ptr SceneEventListenerConst -> HoppyP.IO ())++class SceneEventListenerValue a where+  withSceneEventListenerPtr :: a -> (SceneEventListenerConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} SceneEventListenerConstPtr a => SceneEventListenerValue a where+  withSceneEventListenerPtr = HoppyP.flip ($) . toSceneEventListenerConst++class (M404.QGraphicsItemConstPtr this) => SceneEventListenerConstPtr this where+  toSceneEventListenerConst :: this -> SceneEventListenerConst++class (SceneEventListenerConstPtr this, M404.QGraphicsItemPtr this) => SceneEventListenerPtr this where+  toSceneEventListener :: this -> SceneEventListener++doNotNotifyOnDelete :: (SceneEventListenerPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+doNotNotifyOnDelete arg'1 =+  HoppyFHR.withCppPtr (toSceneEventListener arg'1) $ \arg'1' ->+  (doNotNotifyOnDelete' arg'1')++data SceneEventListenerConst =+    SceneEventListenerConst (HoppyF.Ptr SceneEventListenerConst)+  | SceneEventListenerConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr SceneEventListenerConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq SceneEventListenerConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord SceneEventListenerConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castSceneEventListenerToConst :: SceneEventListener -> SceneEventListenerConst+castSceneEventListenerToConst (SceneEventListener ptr') = SceneEventListenerConst $ HoppyF.castPtr ptr'+castSceneEventListenerToConst (SceneEventListenerGc fptr' ptr') = SceneEventListenerConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr SceneEventListenerConst where+  nullptr = SceneEventListenerConst HoppyF.nullPtr+  +  withCppPtr (SceneEventListenerConst ptr') f' = f' ptr'+  withCppPtr (SceneEventListenerConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (SceneEventListenerConst ptr') = ptr'+  toPtr (SceneEventListenerConstGc _ ptr') = ptr'+  +  touchCppPtr (SceneEventListenerConst _) = HoppyP.return ()+  touchCppPtr (SceneEventListenerConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable SceneEventListenerConst where+  delete (SceneEventListenerConst ptr') = delete'SceneEventListener ptr'+  delete (SceneEventListenerConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "SceneEventListenerConst", " object."]+  +  toGc this'@(SceneEventListenerConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip SceneEventListenerConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'SceneEventListener :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(SceneEventListenerConstGc {}) = HoppyP.return this'++instance SceneEventListenerConstPtr SceneEventListenerConst where+  toSceneEventListenerConst = HoppyP.id++instance M404.QGraphicsItemConstPtr SceneEventListenerConst where+  toQGraphicsItemConst (SceneEventListenerConst ptr') = M404.QGraphicsItemConst $ castSceneEventListenerToQGraphicsItem ptr'+  toQGraphicsItemConst (SceneEventListenerConstGc fptr' ptr') = M404.QGraphicsItemConstGc fptr' $ castSceneEventListenerToQGraphicsItem ptr'++data SceneEventListener =+    SceneEventListener (HoppyF.Ptr SceneEventListener)+  | SceneEventListenerGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr SceneEventListener)+  deriving (HoppyP.Show)++instance HoppyP.Eq SceneEventListener where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord SceneEventListener where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castSceneEventListenerToNonconst :: SceneEventListenerConst -> SceneEventListener+castSceneEventListenerToNonconst (SceneEventListenerConst ptr') = SceneEventListener $ HoppyF.castPtr ptr'+castSceneEventListenerToNonconst (SceneEventListenerConstGc fptr' ptr') = SceneEventListenerGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr SceneEventListener where+  nullptr = SceneEventListener HoppyF.nullPtr+  +  withCppPtr (SceneEventListener ptr') f' = f' ptr'+  withCppPtr (SceneEventListenerGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (SceneEventListener ptr') = ptr'+  toPtr (SceneEventListenerGc _ ptr') = ptr'+  +  touchCppPtr (SceneEventListener _) = HoppyP.return ()+  touchCppPtr (SceneEventListenerGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable SceneEventListener where+  delete (SceneEventListener ptr') = delete'SceneEventListener $ (HoppyF.castPtr ptr' :: HoppyF.Ptr SceneEventListenerConst)+  delete (SceneEventListenerGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "SceneEventListener", " object."]+  +  toGc this'@(SceneEventListener ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip SceneEventListenerGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'SceneEventListener :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(SceneEventListenerGc {}) = HoppyP.return this'++instance SceneEventListenerConstPtr SceneEventListener where+  toSceneEventListenerConst (SceneEventListener ptr') = SceneEventListenerConst $ (HoppyF.castPtr :: HoppyF.Ptr SceneEventListener -> HoppyF.Ptr SceneEventListenerConst) ptr'+  toSceneEventListenerConst (SceneEventListenerGc fptr' ptr') = SceneEventListenerConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr SceneEventListener -> HoppyF.Ptr SceneEventListenerConst) ptr'++instance SceneEventListenerPtr SceneEventListener where+  toSceneEventListener = HoppyP.id++instance M404.QGraphicsItemConstPtr SceneEventListener where+  toQGraphicsItemConst (SceneEventListener ptr') = M404.QGraphicsItemConst $ castSceneEventListenerToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr SceneEventListener -> HoppyF.Ptr SceneEventListenerConst) ptr'+  toQGraphicsItemConst (SceneEventListenerGc fptr' ptr') = M404.QGraphicsItemConstGc fptr' $ castSceneEventListenerToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr SceneEventListener -> HoppyF.Ptr SceneEventListenerConst) ptr'++instance M404.QGraphicsItemPtr SceneEventListener where+  toQGraphicsItem (SceneEventListener ptr') = M404.QGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr M404.QGraphicsItem) $ castSceneEventListenerToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr SceneEventListener -> HoppyF.Ptr SceneEventListenerConst) ptr'+  toQGraphicsItem (SceneEventListenerGc fptr' ptr') = M404.QGraphicsItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr M404.QGraphicsItem) $ castSceneEventListenerToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr SceneEventListener -> HoppyF.Ptr SceneEventListenerConst) ptr'++new :: (M404.QGraphicsItemPtr arg'1) => (arg'1) -> (M404.QGraphicsItem -> M34.QEvent -> HoppyP.IO HoppyP.Bool) -> (HoppyP.IO ()) -> (HoppyP.IO SceneEventListener)+new arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (M404.toQGraphicsItem arg'1) $ \arg'1' ->+  (+    M348.callbackPtrQGraphicsItemPtrQEventBool_new+  ) arg'2 >>= \arg'2' ->+  (+    M348.callbackVoid_new+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap SceneEventListener+  (new' arg'1' arg'2' arg'3')++class SceneEventListenerSuper a where+  downToSceneEventListener :: a -> SceneEventListener++instance SceneEventListenerSuper M404.QGraphicsItem where+  downToSceneEventListener = castSceneEventListenerToNonconst . cast' . M404.castQGraphicsItemToConst+    where+      cast' (M404.QGraphicsItemConst ptr') = SceneEventListenerConst $ castQGraphicsItemToSceneEventListener ptr'+      cast' (M404.QGraphicsItemConstGc fptr' ptr') = SceneEventListenerConstGc fptr' $ castQGraphicsItemToSceneEventListener ptr'++class SceneEventListenerSuperConst a where+  downToSceneEventListenerConst :: a -> SceneEventListenerConst++instance SceneEventListenerSuperConst M404.QGraphicsItemConst where+  downToSceneEventListenerConst = cast'+    where+      cast' (M404.QGraphicsItemConst ptr') = SceneEventListenerConst $ castQGraphicsItemToSceneEventListener ptr'+      cast' (M404.QGraphicsItemConstGc fptr' ptr') = SceneEventListenerConstGc fptr' $ castQGraphicsItemToSceneEventListener ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr SceneEventListener)) SceneEventListener where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr SceneEventListener)) SceneEventListener where+  decode = HoppyP.fmap SceneEventListener . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Widgets/QAbstractButton.hs view
@@ -0,0 +1,441 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QAbstractButton (+  castQAbstractButtonToQWidget,+  castQWidgetToQAbstractButton,+  castQAbstractButtonToQObject,+  castQObjectToQAbstractButton,+  QAbstractButtonValue (..),+  QAbstractButtonConstPtr (..),+  autoExclusive,+  autoRepeat,+  autoRepeatDelay,+  autoRepeatInterval,+  isCheckable,+  isChecked,+  isDown,+  group,+  icon,+  iconSize,+  text,+  QAbstractButtonPtr (..),+  animateClick,+  setAutoExclusive,+  setAutoRepeat,+  setAutoRepeatDelay,+  setAutoRepeatInterval,+  setCheckable,+  setChecked,+  click,+  setDown,+  setIcon,+  setIconSize,+  setText,+  toggle,+  emitClicked,+  emitPressed,+  emitReleased,+  emitToggled,+  QAbstractButtonConst (..),+  castQAbstractButtonToConst,+  QAbstractButton (..),+  castQAbstractButtonToNonconst,+  QAbstractButtonSuper (..),+  QAbstractButtonSuperConst (..),+  ) 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.HSize as HSize+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QSize as M134+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QIcon as M288+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QButtonGroup as M376+import {-# SOURCE #-} 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__QAbstractButton_animateClick" animateClick' ::  HoppyF.Ptr QAbstractButton -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_autoExclusive" autoExclusive' ::  HoppyF.Ptr QAbstractButtonConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractButton_setAutoExclusive" setAutoExclusive' ::  HoppyF.Ptr QAbstractButton -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_autoRepeat" autoRepeat' ::  HoppyF.Ptr QAbstractButtonConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractButton_setAutoRepeat" setAutoRepeat' ::  HoppyF.Ptr QAbstractButton -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_autoRepeatDelay" autoRepeatDelay' ::  HoppyF.Ptr QAbstractButtonConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractButton_setAutoRepeatDelay" setAutoRepeatDelay' ::  HoppyF.Ptr QAbstractButton -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_autoRepeatInterval" autoRepeatInterval' ::  HoppyF.Ptr QAbstractButtonConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractButton_setAutoRepeatInterval" setAutoRepeatInterval' ::  HoppyF.Ptr QAbstractButton -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_isCheckable" isCheckable' ::  HoppyF.Ptr QAbstractButtonConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractButton_setCheckable" setCheckable' ::  HoppyF.Ptr QAbstractButton -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_isChecked" isChecked' ::  HoppyF.Ptr QAbstractButtonConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractButton_setChecked" setChecked' ::  HoppyF.Ptr QAbstractButton -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_click" click' ::  HoppyF.Ptr QAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_isDown" isDown' ::  HoppyF.Ptr QAbstractButtonConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractButton_setDown" setDown' ::  HoppyF.Ptr QAbstractButton -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_group" group' ::  HoppyF.Ptr QAbstractButtonConst -> HoppyP.IO (HoppyF.Ptr M376.QButtonGroup)+foreign import ccall "genpop__QAbstractButton_icon" icon' ::  HoppyF.Ptr QAbstractButtonConst -> HoppyP.IO (HoppyF.Ptr M288.QIconConst)+foreign import ccall "genpop__QAbstractButton_setIcon" setIcon' ::  HoppyF.Ptr QAbstractButton -> HoppyF.Ptr M288.QIconConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_iconSize" iconSize' ::  HoppyF.Ptr QAbstractButtonConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QAbstractButton_setIconSize" setIconSize' ::  HoppyF.Ptr QAbstractButton -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_text" text' ::  HoppyF.Ptr QAbstractButtonConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QAbstractButton_setText" setText' ::  HoppyF.Ptr QAbstractButton -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_toggle" toggle' ::  HoppyF.Ptr QAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_emitClicked" emitClicked' ::  HoppyF.Ptr QAbstractButton -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_emitPressed" emitPressed' ::  HoppyF.Ptr QAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_emitReleased" emitReleased' ::  HoppyF.Ptr QAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractButton_emitToggled" emitToggled' ::  HoppyF.Ptr QAbstractButton -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "gencast__QAbstractButton__QWidget" castQAbstractButtonToQWidget :: HoppyF.Ptr QAbstractButtonConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QAbstractButton" castQWidgetToQAbstractButton :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QAbstractButtonConst+foreign import ccall "gencast__QAbstractButton__QObject" castQAbstractButtonToQObject :: HoppyF.Ptr QAbstractButtonConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QAbstractButton" castQObjectToQAbstractButton :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QAbstractButtonConst+foreign import ccall "gendel__QAbstractButton" delete'QAbstractButton :: HoppyF.Ptr QAbstractButtonConst -> HoppyP.IO ()+foreign import ccall "&gendel__QAbstractButton" deletePtr'QAbstractButton :: HoppyF.FunPtr (HoppyF.Ptr QAbstractButtonConst -> HoppyP.IO ())++class QAbstractButtonValue a where+  withQAbstractButtonPtr :: a -> (QAbstractButtonConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractButtonConstPtr a => QAbstractButtonValue a where+  withQAbstractButtonPtr = HoppyP.flip ($) . toQAbstractButtonConst++class (M506.QWidgetConstPtr this) => QAbstractButtonConstPtr this where+  toQAbstractButtonConst :: this -> QAbstractButtonConst++autoExclusive :: (QAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+autoExclusive arg'1 =+  withQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (autoExclusive' arg'1')++autoRepeat :: (QAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+autoRepeat arg'1 =+  withQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (autoRepeat' arg'1')++autoRepeatDelay :: (QAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+autoRepeatDelay arg'1 =+  withQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (autoRepeatDelay' arg'1')++autoRepeatInterval :: (QAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+autoRepeatInterval arg'1 =+  withQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (autoRepeatInterval' arg'1')++isCheckable :: (QAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isCheckable arg'1 =+  withQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isCheckable' arg'1')++isChecked :: (QAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isChecked arg'1 =+  withQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isChecked' arg'1')++isDown :: (QAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isDown arg'1 =+  withQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isDown' arg'1')++group :: (QAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO M376.QButtonGroup)+group arg'1 =+  withQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M376.QButtonGroup+  (group' arg'1')++icon :: (QAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO M288.QIcon)+icon arg'1 =+  withQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M288.QIconConst) =<<+  (icon' arg'1')++iconSize :: (QAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+iconSize arg'1 =+  withQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (iconSize' arg'1')++text :: (QAbstractButtonValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+text arg'1 =+  withQAbstractButtonPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (text' arg'1')++class (QAbstractButtonConstPtr this, M506.QWidgetPtr this) => QAbstractButtonPtr this where+  toQAbstractButton :: this -> QAbstractButton++animateClick :: (QAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+animateClick arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (animateClick' arg'1' arg'2')++setAutoExclusive :: (QAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setAutoExclusive arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAutoExclusive' arg'1' arg'2')++setAutoRepeat :: (QAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setAutoRepeat arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAutoRepeat' arg'1' arg'2')++setAutoRepeatDelay :: (QAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setAutoRepeatDelay arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setAutoRepeatDelay' arg'1' arg'2')++setAutoRepeatInterval :: (QAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setAutoRepeatInterval arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setAutoRepeatInterval' arg'1' arg'2')++setCheckable :: (QAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setCheckable arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setCheckable' arg'1' arg'2')++setChecked :: (QAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setChecked arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setChecked' arg'1' arg'2')++click :: (QAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+click arg'1 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  (click' arg'1')++setDown :: (QAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setDown arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setDown' arg'1' arg'2')++setIcon :: (QAbstractButtonPtr this, M288.QIconValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setIcon arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  M288.withQIconPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setIcon' arg'1' arg'2')++setIconSize :: (QAbstractButtonPtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setIconSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setIconSize' arg'1' arg'2')++setText :: (QAbstractButtonPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setText' arg'1' arg'2')++toggle :: (QAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+toggle arg'1 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  (toggle' arg'1')++emitClicked :: (QAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+emitClicked arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (emitClicked' arg'1' arg'2')++emitPressed :: (QAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitPressed arg'1 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  (emitPressed' arg'1')++emitReleased :: (QAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitReleased arg'1 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  (emitReleased' arg'1')++emitToggled :: (QAbstractButtonPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+emitToggled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractButton arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (emitToggled' arg'1' arg'2')++data QAbstractButtonConst =+    QAbstractButtonConst (HoppyF.Ptr QAbstractButtonConst)+  | QAbstractButtonConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractButtonConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractButtonConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractButtonConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractButtonToConst :: QAbstractButton -> QAbstractButtonConst+castQAbstractButtonToConst (QAbstractButton ptr') = QAbstractButtonConst $ HoppyF.castPtr ptr'+castQAbstractButtonToConst (QAbstractButtonGc fptr' ptr') = QAbstractButtonConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractButtonConst where+  nullptr = QAbstractButtonConst HoppyF.nullPtr+  +  withCppPtr (QAbstractButtonConst ptr') f' = f' ptr'+  withCppPtr (QAbstractButtonConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractButtonConst ptr') = ptr'+  toPtr (QAbstractButtonConstGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractButtonConst _) = HoppyP.return ()+  touchCppPtr (QAbstractButtonConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractButtonConst where+  delete (QAbstractButtonConst ptr') = delete'QAbstractButton ptr'+  delete (QAbstractButtonConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractButtonConst", " object."]+  +  toGc this'@(QAbstractButtonConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractButtonConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractButton :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractButtonConstGc {}) = HoppyP.return this'++instance QAbstractButtonConstPtr QAbstractButtonConst where+  toQAbstractButtonConst = HoppyP.id++instance M506.QWidgetConstPtr QAbstractButtonConst where+  toQWidgetConst (QAbstractButtonConst ptr') = M506.QWidgetConst $ castQAbstractButtonToQWidget ptr'+  toQWidgetConst (QAbstractButtonConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQAbstractButtonToQWidget ptr'++instance M94.QObjectConstPtr QAbstractButtonConst where+  toQObjectConst (QAbstractButtonConst ptr') = M94.QObjectConst $ castQAbstractButtonToQObject ptr'+  toQObjectConst (QAbstractButtonConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractButtonToQObject ptr'++data QAbstractButton =+    QAbstractButton (HoppyF.Ptr QAbstractButton)+  | QAbstractButtonGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractButton)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractButton where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractButton where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractButtonToNonconst :: QAbstractButtonConst -> QAbstractButton+castQAbstractButtonToNonconst (QAbstractButtonConst ptr') = QAbstractButton $ HoppyF.castPtr ptr'+castQAbstractButtonToNonconst (QAbstractButtonConstGc fptr' ptr') = QAbstractButtonGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractButton where+  nullptr = QAbstractButton HoppyF.nullPtr+  +  withCppPtr (QAbstractButton ptr') f' = f' ptr'+  withCppPtr (QAbstractButtonGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractButton ptr') = ptr'+  toPtr (QAbstractButtonGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractButton _) = HoppyP.return ()+  touchCppPtr (QAbstractButtonGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractButton where+  delete (QAbstractButton ptr') = delete'QAbstractButton $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QAbstractButtonConst)+  delete (QAbstractButtonGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractButton", " object."]+  +  toGc this'@(QAbstractButton ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractButtonGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractButton :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractButtonGc {}) = HoppyP.return this'++instance QAbstractButtonConstPtr QAbstractButton where+  toQAbstractButtonConst (QAbstractButton ptr') = QAbstractButtonConst $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractButton -> HoppyF.Ptr QAbstractButtonConst) ptr'+  toQAbstractButtonConst (QAbstractButtonGc fptr' ptr') = QAbstractButtonConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractButton -> HoppyF.Ptr QAbstractButtonConst) ptr'++instance QAbstractButtonPtr QAbstractButton where+  toQAbstractButton = HoppyP.id++instance M506.QWidgetConstPtr QAbstractButton where+  toQWidgetConst (QAbstractButton ptr') = M506.QWidgetConst $ castQAbstractButtonToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractButton -> HoppyF.Ptr QAbstractButtonConst) ptr'+  toQWidgetConst (QAbstractButtonGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQAbstractButtonToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractButton -> HoppyF.Ptr QAbstractButtonConst) ptr'++instance M506.QWidgetPtr QAbstractButton where+  toQWidget (QAbstractButton ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQAbstractButtonToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractButton -> HoppyF.Ptr QAbstractButtonConst) ptr'+  toQWidget (QAbstractButtonGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQAbstractButtonToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractButton -> HoppyF.Ptr QAbstractButtonConst) ptr'++instance M94.QObjectConstPtr QAbstractButton where+  toQObjectConst (QAbstractButton ptr') = M94.QObjectConst $ castQAbstractButtonToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractButton -> HoppyF.Ptr QAbstractButtonConst) ptr'+  toQObjectConst (QAbstractButtonGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractButtonToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractButton -> HoppyF.Ptr QAbstractButtonConst) ptr'++instance M94.QObjectPtr QAbstractButton where+  toQObject (QAbstractButton ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractButtonToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractButton -> HoppyF.Ptr QAbstractButtonConst) ptr'+  toQObject (QAbstractButtonGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractButtonToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractButton -> HoppyF.Ptr QAbstractButtonConst) ptr'++class QAbstractButtonSuper a where+  downToQAbstractButton :: a -> QAbstractButton++instance QAbstractButtonSuper M506.QWidget where+  downToQAbstractButton = castQAbstractButtonToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QAbstractButtonConst $ castQWidgetToQAbstractButton ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QAbstractButtonConstGc fptr' $ castQWidgetToQAbstractButton ptr'+instance QAbstractButtonSuper M94.QObject where+  downToQAbstractButton = castQAbstractButtonToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QAbstractButtonConst $ castQObjectToQAbstractButton ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractButtonConstGc fptr' $ castQObjectToQAbstractButton ptr'++class QAbstractButtonSuperConst a where+  downToQAbstractButtonConst :: a -> QAbstractButtonConst++instance QAbstractButtonSuperConst M506.QWidgetConst where+  downToQAbstractButtonConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QAbstractButtonConst $ castQWidgetToQAbstractButton ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QAbstractButtonConstGc fptr' $ castQWidgetToQAbstractButton ptr'+instance QAbstractButtonSuperConst M94.QObjectConst where+  downToQAbstractButtonConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QAbstractButtonConst $ castQObjectToQAbstractButton ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractButtonConstGc fptr' $ castQObjectToQAbstractButton ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QAbstractButton)) QAbstractButton where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractButton)) QAbstractButton where+  decode = HoppyP.fmap QAbstractButton . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Widgets/QAbstractButton.hs-boot view
@@ -0,0 +1,72 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QAbstractButton (+  QAbstractButtonValue (..),+  QAbstractButtonConstPtr (..),+  QAbstractButtonPtr (..),+  QAbstractButtonConst (..),+  castQAbstractButtonToConst,+  QAbstractButton (..),+  castQAbstractButtonToNonconst,+  castQAbstractButtonToQWidget,+  castQAbstractButtonToQObject,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import qualified Prelude as HoppyP+++class QAbstractButtonValue a where+  withQAbstractButtonPtr :: a -> (QAbstractButtonConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractButtonConstPtr a => QAbstractButtonValue a++class (M506.QWidgetConstPtr this) => QAbstractButtonConstPtr this where+  toQAbstractButtonConst :: this -> QAbstractButtonConst++class (QAbstractButtonConstPtr this, M506.QWidgetPtr this) => QAbstractButtonPtr this where+  toQAbstractButton :: this -> QAbstractButton++data QAbstractButtonConst =+    QAbstractButtonConst (HoppyF.Ptr QAbstractButtonConst)+  | QAbstractButtonConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractButtonConst)++castQAbstractButtonToConst :: QAbstractButton -> QAbstractButtonConst++instance HoppyFHR.CppPtr QAbstractButtonConst+instance HoppyFHR.Deletable QAbstractButtonConst++instance QAbstractButtonConstPtr QAbstractButtonConst++instance M506.QWidgetConstPtr QAbstractButtonConst++instance M94.QObjectConstPtr QAbstractButtonConst++data QAbstractButton =+    QAbstractButton (HoppyF.Ptr QAbstractButton)+  | QAbstractButtonGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractButton)++castQAbstractButtonToNonconst :: QAbstractButtonConst -> QAbstractButton++instance HoppyFHR.CppPtr QAbstractButton+instance HoppyFHR.Deletable QAbstractButton++instance QAbstractButtonConstPtr QAbstractButton++instance QAbstractButtonPtr QAbstractButton++instance M506.QWidgetConstPtr QAbstractButton++instance M506.QWidgetPtr QAbstractButton++instance M94.QObjectConstPtr QAbstractButton++instance M94.QObjectPtr QAbstractButton+castQAbstractButtonToQWidget :: HoppyF.Ptr QAbstractButtonConst -> HoppyF.Ptr M506.QWidgetConst+castQAbstractButtonToQObject :: HoppyF.Ptr QAbstractButtonConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractButton)) QAbstractButton
src/Graphics/UI/Qtah/Generated/Widgets/QAbstractGraphicsShapeItem.hs view
@@ -0,0 +1,187 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QAbstractGraphicsShapeItem (+  castQAbstractGraphicsShapeItemToQGraphicsItem,+  castQGraphicsItemToQAbstractGraphicsShapeItem,+  QAbstractGraphicsShapeItemValue (..),+  QAbstractGraphicsShapeItemConstPtr (..),+  brush,+  pen,+  QAbstractGraphicsShapeItemPtr (..),+  setBrush,+  setPen,+  QAbstractGraphicsShapeItemConst (..),+  castQAbstractGraphicsShapeItemToConst,+  QAbstractGraphicsShapeItem (..),+  castQAbstractGraphicsShapeItemToNonconst,+  QAbstractGraphicsShapeItemSuper (..),+  QAbstractGraphicsShapeItemSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QBrush as M246+import qualified Graphics.UI.Qtah.Generated.Gui.QPen as M314+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsItem as M404+import Prelude (($), (.), (=<<), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QAbstractGraphicsShapeItem_brush" brush' ::  HoppyF.Ptr QAbstractGraphicsShapeItemConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QAbstractGraphicsShapeItem_pen" pen' ::  HoppyF.Ptr QAbstractGraphicsShapeItemConst -> HoppyP.IO (HoppyF.Ptr M314.QPenConst)+foreign import ccall "genpop__QAbstractGraphicsShapeItem_setBrush" setBrush' ::  HoppyF.Ptr QAbstractGraphicsShapeItem -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractGraphicsShapeItem_setPen" setPen' ::  HoppyF.Ptr QAbstractGraphicsShapeItem -> HoppyF.Ptr M314.QPenConst -> HoppyP.IO ()+foreign import ccall "gencast__QAbstractGraphicsShapeItem__QGraphicsItem" castQAbstractGraphicsShapeItemToQGraphicsItem :: HoppyF.Ptr QAbstractGraphicsShapeItemConst -> HoppyF.Ptr M404.QGraphicsItemConst+foreign import ccall "gencast__QGraphicsItem__QAbstractGraphicsShapeItem" castQGraphicsItemToQAbstractGraphicsShapeItem :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr QAbstractGraphicsShapeItemConst+foreign import ccall "gendel__QAbstractGraphicsShapeItem" delete'QAbstractGraphicsShapeItem :: HoppyF.Ptr QAbstractGraphicsShapeItemConst -> HoppyP.IO ()+foreign import ccall "&gendel__QAbstractGraphicsShapeItem" deletePtr'QAbstractGraphicsShapeItem :: HoppyF.FunPtr (HoppyF.Ptr QAbstractGraphicsShapeItemConst -> HoppyP.IO ())++class QAbstractGraphicsShapeItemValue a where+  withQAbstractGraphicsShapeItemPtr :: a -> (QAbstractGraphicsShapeItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractGraphicsShapeItemConstPtr a => QAbstractGraphicsShapeItemValue a where+  withQAbstractGraphicsShapeItemPtr = HoppyP.flip ($) . toQAbstractGraphicsShapeItemConst++class (M404.QGraphicsItemConstPtr this) => QAbstractGraphicsShapeItemConstPtr this where+  toQAbstractGraphicsShapeItemConst :: this -> QAbstractGraphicsShapeItemConst++brush :: (QAbstractGraphicsShapeItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrush)+brush arg'1 =+  withQAbstractGraphicsShapeItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M246.QBrushConst) =<<+  (brush' arg'1')++pen :: (QAbstractGraphicsShapeItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M314.QPen)+pen arg'1 =+  withQAbstractGraphicsShapeItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M314.QPenConst) =<<+  (pen' arg'1')++class (QAbstractGraphicsShapeItemConstPtr this, M404.QGraphicsItemPtr this) => QAbstractGraphicsShapeItemPtr this where+  toQAbstractGraphicsShapeItem :: this -> QAbstractGraphicsShapeItem++setBrush :: (QAbstractGraphicsShapeItemPtr this, M246.QBrushValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setBrush arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractGraphicsShapeItem arg'1) $ \arg'1' ->+  M246.withQBrushPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setBrush' arg'1' arg'2')++setPen :: (QAbstractGraphicsShapeItemPtr this, M314.QPenValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setPen arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractGraphicsShapeItem arg'1) $ \arg'1' ->+  M314.withQPenPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setPen' arg'1' arg'2')++data QAbstractGraphicsShapeItemConst =+    QAbstractGraphicsShapeItemConst (HoppyF.Ptr QAbstractGraphicsShapeItemConst)+  | QAbstractGraphicsShapeItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractGraphicsShapeItemConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractGraphicsShapeItemConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractGraphicsShapeItemConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractGraphicsShapeItemToConst :: QAbstractGraphicsShapeItem -> QAbstractGraphicsShapeItemConst+castQAbstractGraphicsShapeItemToConst (QAbstractGraphicsShapeItem ptr') = QAbstractGraphicsShapeItemConst $ HoppyF.castPtr ptr'+castQAbstractGraphicsShapeItemToConst (QAbstractGraphicsShapeItemGc fptr' ptr') = QAbstractGraphicsShapeItemConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractGraphicsShapeItemConst where+  nullptr = QAbstractGraphicsShapeItemConst HoppyF.nullPtr+  +  withCppPtr (QAbstractGraphicsShapeItemConst ptr') f' = f' ptr'+  withCppPtr (QAbstractGraphicsShapeItemConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractGraphicsShapeItemConst ptr') = ptr'+  toPtr (QAbstractGraphicsShapeItemConstGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractGraphicsShapeItemConst _) = HoppyP.return ()+  touchCppPtr (QAbstractGraphicsShapeItemConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractGraphicsShapeItemConst where+  delete (QAbstractGraphicsShapeItemConst ptr') = delete'QAbstractGraphicsShapeItem ptr'+  delete (QAbstractGraphicsShapeItemConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractGraphicsShapeItemConst", " object."]+  +  toGc this'@(QAbstractGraphicsShapeItemConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractGraphicsShapeItemConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractGraphicsShapeItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractGraphicsShapeItemConstGc {}) = HoppyP.return this'++instance QAbstractGraphicsShapeItemConstPtr QAbstractGraphicsShapeItemConst where+  toQAbstractGraphicsShapeItemConst = HoppyP.id++instance M404.QGraphicsItemConstPtr QAbstractGraphicsShapeItemConst where+  toQGraphicsItemConst (QAbstractGraphicsShapeItemConst ptr') = M404.QGraphicsItemConst $ castQAbstractGraphicsShapeItemToQGraphicsItem ptr'+  toQGraphicsItemConst (QAbstractGraphicsShapeItemConstGc fptr' ptr') = M404.QGraphicsItemConstGc fptr' $ castQAbstractGraphicsShapeItemToQGraphicsItem ptr'++data QAbstractGraphicsShapeItem =+    QAbstractGraphicsShapeItem (HoppyF.Ptr QAbstractGraphicsShapeItem)+  | QAbstractGraphicsShapeItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractGraphicsShapeItem)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractGraphicsShapeItem where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractGraphicsShapeItem where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractGraphicsShapeItemToNonconst :: QAbstractGraphicsShapeItemConst -> QAbstractGraphicsShapeItem+castQAbstractGraphicsShapeItemToNonconst (QAbstractGraphicsShapeItemConst ptr') = QAbstractGraphicsShapeItem $ HoppyF.castPtr ptr'+castQAbstractGraphicsShapeItemToNonconst (QAbstractGraphicsShapeItemConstGc fptr' ptr') = QAbstractGraphicsShapeItemGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractGraphicsShapeItem where+  nullptr = QAbstractGraphicsShapeItem HoppyF.nullPtr+  +  withCppPtr (QAbstractGraphicsShapeItem ptr') f' = f' ptr'+  withCppPtr (QAbstractGraphicsShapeItemGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractGraphicsShapeItem ptr') = ptr'+  toPtr (QAbstractGraphicsShapeItemGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractGraphicsShapeItem _) = HoppyP.return ()+  touchCppPtr (QAbstractGraphicsShapeItemGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractGraphicsShapeItem where+  delete (QAbstractGraphicsShapeItem ptr') = delete'QAbstractGraphicsShapeItem $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QAbstractGraphicsShapeItemConst)+  delete (QAbstractGraphicsShapeItemGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractGraphicsShapeItem", " object."]+  +  toGc this'@(QAbstractGraphicsShapeItem ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractGraphicsShapeItemGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractGraphicsShapeItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractGraphicsShapeItemGc {}) = HoppyP.return this'++instance QAbstractGraphicsShapeItemConstPtr QAbstractGraphicsShapeItem where+  toQAbstractGraphicsShapeItemConst (QAbstractGraphicsShapeItem ptr') = QAbstractGraphicsShapeItemConst $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractGraphicsShapeItem -> HoppyF.Ptr QAbstractGraphicsShapeItemConst) ptr'+  toQAbstractGraphicsShapeItemConst (QAbstractGraphicsShapeItemGc fptr' ptr') = QAbstractGraphicsShapeItemConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractGraphicsShapeItem -> HoppyF.Ptr QAbstractGraphicsShapeItemConst) ptr'++instance QAbstractGraphicsShapeItemPtr QAbstractGraphicsShapeItem where+  toQAbstractGraphicsShapeItem = HoppyP.id++instance M404.QGraphicsItemConstPtr QAbstractGraphicsShapeItem where+  toQGraphicsItemConst (QAbstractGraphicsShapeItem ptr') = M404.QGraphicsItemConst $ castQAbstractGraphicsShapeItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractGraphicsShapeItem -> HoppyF.Ptr QAbstractGraphicsShapeItemConst) ptr'+  toQGraphicsItemConst (QAbstractGraphicsShapeItemGc fptr' ptr') = M404.QGraphicsItemConstGc fptr' $ castQAbstractGraphicsShapeItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractGraphicsShapeItem -> HoppyF.Ptr QAbstractGraphicsShapeItemConst) ptr'++instance M404.QGraphicsItemPtr QAbstractGraphicsShapeItem where+  toQGraphicsItem (QAbstractGraphicsShapeItem ptr') = M404.QGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr M404.QGraphicsItem) $ castQAbstractGraphicsShapeItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractGraphicsShapeItem -> HoppyF.Ptr QAbstractGraphicsShapeItemConst) ptr'+  toQGraphicsItem (QAbstractGraphicsShapeItemGc fptr' ptr') = M404.QGraphicsItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr M404.QGraphicsItem) $ castQAbstractGraphicsShapeItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractGraphicsShapeItem -> HoppyF.Ptr QAbstractGraphicsShapeItemConst) ptr'++class QAbstractGraphicsShapeItemSuper a where+  downToQAbstractGraphicsShapeItem :: a -> QAbstractGraphicsShapeItem++instance QAbstractGraphicsShapeItemSuper M404.QGraphicsItem where+  downToQAbstractGraphicsShapeItem = castQAbstractGraphicsShapeItemToNonconst . cast' . M404.castQGraphicsItemToConst+    where+      cast' (M404.QGraphicsItemConst ptr') = QAbstractGraphicsShapeItemConst $ castQGraphicsItemToQAbstractGraphicsShapeItem ptr'+      cast' (M404.QGraphicsItemConstGc fptr' ptr') = QAbstractGraphicsShapeItemConstGc fptr' $ castQGraphicsItemToQAbstractGraphicsShapeItem ptr'++class QAbstractGraphicsShapeItemSuperConst a where+  downToQAbstractGraphicsShapeItemConst :: a -> QAbstractGraphicsShapeItemConst++instance QAbstractGraphicsShapeItemSuperConst M404.QGraphicsItemConst where+  downToQAbstractGraphicsShapeItemConst = cast'+    where+      cast' (M404.QGraphicsItemConst ptr') = QAbstractGraphicsShapeItemConst $ castQGraphicsItemToQAbstractGraphicsShapeItem ptr'+      cast' (M404.QGraphicsItemConstGc fptr' ptr') = QAbstractGraphicsShapeItemConstGc fptr' $ castQGraphicsItemToQAbstractGraphicsShapeItem ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QAbstractGraphicsShapeItem)) QAbstractGraphicsShapeItem where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractGraphicsShapeItem)) QAbstractGraphicsShapeItem where+  decode = HoppyP.fmap QAbstractGraphicsShapeItem . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Widgets/QAbstractGraphicsShapeItem.hs-boot view
@@ -0,0 +1,63 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QAbstractGraphicsShapeItem (+  QAbstractGraphicsShapeItemValue (..),+  QAbstractGraphicsShapeItemConstPtr (..),+  QAbstractGraphicsShapeItemPtr (..),+  QAbstractGraphicsShapeItemConst (..),+  castQAbstractGraphicsShapeItemToConst,+  QAbstractGraphicsShapeItem (..),+  castQAbstractGraphicsShapeItemToNonconst,+  castQAbstractGraphicsShapeItemToQGraphicsItem,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsItem as M404+import qualified Prelude as HoppyP+++class QAbstractGraphicsShapeItemValue a where+  withQAbstractGraphicsShapeItemPtr :: a -> (QAbstractGraphicsShapeItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractGraphicsShapeItemConstPtr a => QAbstractGraphicsShapeItemValue a++class (M404.QGraphicsItemConstPtr this) => QAbstractGraphicsShapeItemConstPtr this where+  toQAbstractGraphicsShapeItemConst :: this -> QAbstractGraphicsShapeItemConst++class (QAbstractGraphicsShapeItemConstPtr this, M404.QGraphicsItemPtr this) => QAbstractGraphicsShapeItemPtr this where+  toQAbstractGraphicsShapeItem :: this -> QAbstractGraphicsShapeItem++data QAbstractGraphicsShapeItemConst =+    QAbstractGraphicsShapeItemConst (HoppyF.Ptr QAbstractGraphicsShapeItemConst)+  | QAbstractGraphicsShapeItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractGraphicsShapeItemConst)++castQAbstractGraphicsShapeItemToConst :: QAbstractGraphicsShapeItem -> QAbstractGraphicsShapeItemConst++instance HoppyFHR.CppPtr QAbstractGraphicsShapeItemConst+instance HoppyFHR.Deletable QAbstractGraphicsShapeItemConst++instance QAbstractGraphicsShapeItemConstPtr QAbstractGraphicsShapeItemConst++instance M404.QGraphicsItemConstPtr QAbstractGraphicsShapeItemConst++data QAbstractGraphicsShapeItem =+    QAbstractGraphicsShapeItem (HoppyF.Ptr QAbstractGraphicsShapeItem)+  | QAbstractGraphicsShapeItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractGraphicsShapeItem)++castQAbstractGraphicsShapeItemToNonconst :: QAbstractGraphicsShapeItemConst -> QAbstractGraphicsShapeItem++instance HoppyFHR.CppPtr QAbstractGraphicsShapeItem+instance HoppyFHR.Deletable QAbstractGraphicsShapeItem++instance QAbstractGraphicsShapeItemConstPtr QAbstractGraphicsShapeItem++instance QAbstractGraphicsShapeItemPtr QAbstractGraphicsShapeItem++instance M404.QGraphicsItemConstPtr QAbstractGraphicsShapeItem++instance M404.QGraphicsItemPtr QAbstractGraphicsShapeItem+castQAbstractGraphicsShapeItemToQGraphicsItem :: HoppyF.Ptr QAbstractGraphicsShapeItemConst -> HoppyF.Ptr M404.QGraphicsItemConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractGraphicsShapeItem)) QAbstractGraphicsShapeItem
src/Graphics/UI/Qtah/Generated/Widgets/QAbstractItemDelegate.hs view
@@ -0,0 +1,153 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QAbstractItemDelegate (+  castQAbstractItemDelegateToQObject,+  castQObjectToQAbstractItemDelegate,+  QAbstractItemDelegateValue (..),+  QAbstractItemDelegateConstPtr (..),+  QAbstractItemDelegatePtr (..),+  QAbstractItemDelegateConst (..),+  castQAbstractItemDelegateToConst,+  QAbstractItemDelegate (..),+  castQAbstractItemDelegateToNonconst,+  QAbstractItemDelegateSuper (..),+  QAbstractItemDelegateSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "gencast__QAbstractItemDelegate__QObject" castQAbstractItemDelegateToQObject :: HoppyF.Ptr QAbstractItemDelegateConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QAbstractItemDelegate" castQObjectToQAbstractItemDelegate :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QAbstractItemDelegateConst+foreign import ccall "gendel__QAbstractItemDelegate" delete'QAbstractItemDelegate :: HoppyF.Ptr QAbstractItemDelegateConst -> HoppyP.IO ()+foreign import ccall "&gendel__QAbstractItemDelegate" deletePtr'QAbstractItemDelegate :: HoppyF.FunPtr (HoppyF.Ptr QAbstractItemDelegateConst -> HoppyP.IO ())++class QAbstractItemDelegateValue a where+  withQAbstractItemDelegatePtr :: a -> (QAbstractItemDelegateConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractItemDelegateConstPtr a => QAbstractItemDelegateValue a where+  withQAbstractItemDelegatePtr = HoppyP.flip ($) . toQAbstractItemDelegateConst++class (M94.QObjectConstPtr this) => QAbstractItemDelegateConstPtr this where+  toQAbstractItemDelegateConst :: this -> QAbstractItemDelegateConst++class (QAbstractItemDelegateConstPtr this, M94.QObjectPtr this) => QAbstractItemDelegatePtr this where+  toQAbstractItemDelegate :: this -> QAbstractItemDelegate++data QAbstractItemDelegateConst =+    QAbstractItemDelegateConst (HoppyF.Ptr QAbstractItemDelegateConst)+  | QAbstractItemDelegateConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractItemDelegateConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractItemDelegateConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractItemDelegateConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractItemDelegateToConst :: QAbstractItemDelegate -> QAbstractItemDelegateConst+castQAbstractItemDelegateToConst (QAbstractItemDelegate ptr') = QAbstractItemDelegateConst $ HoppyF.castPtr ptr'+castQAbstractItemDelegateToConst (QAbstractItemDelegateGc fptr' ptr') = QAbstractItemDelegateConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractItemDelegateConst where+  nullptr = QAbstractItemDelegateConst HoppyF.nullPtr+  +  withCppPtr (QAbstractItemDelegateConst ptr') f' = f' ptr'+  withCppPtr (QAbstractItemDelegateConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractItemDelegateConst ptr') = ptr'+  toPtr (QAbstractItemDelegateConstGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractItemDelegateConst _) = HoppyP.return ()+  touchCppPtr (QAbstractItemDelegateConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractItemDelegateConst where+  delete (QAbstractItemDelegateConst ptr') = delete'QAbstractItemDelegate ptr'+  delete (QAbstractItemDelegateConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractItemDelegateConst", " object."]+  +  toGc this'@(QAbstractItemDelegateConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractItemDelegateConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractItemDelegate :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractItemDelegateConstGc {}) = HoppyP.return this'++instance QAbstractItemDelegateConstPtr QAbstractItemDelegateConst where+  toQAbstractItemDelegateConst = HoppyP.id++instance M94.QObjectConstPtr QAbstractItemDelegateConst where+  toQObjectConst (QAbstractItemDelegateConst ptr') = M94.QObjectConst $ castQAbstractItemDelegateToQObject ptr'+  toQObjectConst (QAbstractItemDelegateConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractItemDelegateToQObject ptr'++data QAbstractItemDelegate =+    QAbstractItemDelegate (HoppyF.Ptr QAbstractItemDelegate)+  | QAbstractItemDelegateGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractItemDelegate)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractItemDelegate where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractItemDelegate where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractItemDelegateToNonconst :: QAbstractItemDelegateConst -> QAbstractItemDelegate+castQAbstractItemDelegateToNonconst (QAbstractItemDelegateConst ptr') = QAbstractItemDelegate $ HoppyF.castPtr ptr'+castQAbstractItemDelegateToNonconst (QAbstractItemDelegateConstGc fptr' ptr') = QAbstractItemDelegateGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractItemDelegate where+  nullptr = QAbstractItemDelegate HoppyF.nullPtr+  +  withCppPtr (QAbstractItemDelegate ptr') f' = f' ptr'+  withCppPtr (QAbstractItemDelegateGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractItemDelegate ptr') = ptr'+  toPtr (QAbstractItemDelegateGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractItemDelegate _) = HoppyP.return ()+  touchCppPtr (QAbstractItemDelegateGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractItemDelegate where+  delete (QAbstractItemDelegate ptr') = delete'QAbstractItemDelegate $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QAbstractItemDelegateConst)+  delete (QAbstractItemDelegateGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractItemDelegate", " object."]+  +  toGc this'@(QAbstractItemDelegate ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractItemDelegateGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractItemDelegate :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractItemDelegateGc {}) = HoppyP.return this'++instance QAbstractItemDelegateConstPtr QAbstractItemDelegate where+  toQAbstractItemDelegateConst (QAbstractItemDelegate ptr') = QAbstractItemDelegateConst $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemDelegate -> HoppyF.Ptr QAbstractItemDelegateConst) ptr'+  toQAbstractItemDelegateConst (QAbstractItemDelegateGc fptr' ptr') = QAbstractItemDelegateConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemDelegate -> HoppyF.Ptr QAbstractItemDelegateConst) ptr'++instance QAbstractItemDelegatePtr QAbstractItemDelegate where+  toQAbstractItemDelegate = HoppyP.id++instance M94.QObjectConstPtr QAbstractItemDelegate where+  toQObjectConst (QAbstractItemDelegate ptr') = M94.QObjectConst $ castQAbstractItemDelegateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemDelegate -> HoppyF.Ptr QAbstractItemDelegateConst) ptr'+  toQObjectConst (QAbstractItemDelegateGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractItemDelegateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemDelegate -> HoppyF.Ptr QAbstractItemDelegateConst) ptr'++instance M94.QObjectPtr QAbstractItemDelegate where+  toQObject (QAbstractItemDelegate ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractItemDelegateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemDelegate -> HoppyF.Ptr QAbstractItemDelegateConst) ptr'+  toQObject (QAbstractItemDelegateGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractItemDelegateToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemDelegate -> HoppyF.Ptr QAbstractItemDelegateConst) ptr'++class QAbstractItemDelegateSuper a where+  downToQAbstractItemDelegate :: a -> QAbstractItemDelegate++instance QAbstractItemDelegateSuper M94.QObject where+  downToQAbstractItemDelegate = castQAbstractItemDelegateToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QAbstractItemDelegateConst $ castQObjectToQAbstractItemDelegate ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractItemDelegateConstGc fptr' $ castQObjectToQAbstractItemDelegate ptr'++class QAbstractItemDelegateSuperConst a where+  downToQAbstractItemDelegateConst :: a -> QAbstractItemDelegateConst++instance QAbstractItemDelegateSuperConst M94.QObjectConst where+  downToQAbstractItemDelegateConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QAbstractItemDelegateConst $ castQObjectToQAbstractItemDelegate ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractItemDelegateConstGc fptr' $ castQObjectToQAbstractItemDelegate ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QAbstractItemDelegate)) QAbstractItemDelegate where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractItemDelegate)) QAbstractItemDelegate where+  decode = HoppyP.fmap QAbstractItemDelegate . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Widgets/QAbstractItemView.hs view
@@ -0,0 +1,1153 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QAbstractItemView (+  castQAbstractItemViewToQAbstractScrollArea,+  castQAbstractScrollAreaToQAbstractItemView,+  castQAbstractItemViewToQFrame,+  castQFrameToQAbstractItemView,+  castQAbstractItemViewToQWidget,+  castQWidgetToQAbstractItemView,+  castQAbstractItemViewToQObject,+  castQObjectToQAbstractItemView,+  QAbstractItemViewValue (..),+  QAbstractItemViewConstPtr (..),+  alternatingRowColors,+  hasAutoScroll,+  autoScrollMargin,+  currentIndex,+  defaultDropAction,+  dragDropMode,+  dragDropOverwriteMode,+  dragEnabled,+  editTriggers,+  horizontalScrollMode,+  iconSize,+  indexAt,+  indexWidget,+  itemDelegate,+  itemDelegateAt,+  itemDelegateForColumn,+  itemDelegateForRow,+  model,+  rootIndex,+  selectionBehavior,+  selectionMode,+  selectionModel,+  showDropIndicator,+  sizeHintForColumn,+  sizeHintForIndex,+  sizeHintForRow,+  tabKeyNavigation,+  textElideMode,+  verticalScrollMode,+  visualRect,+  QAbstractItemViewPtr (..),+  setAlternatingRowColors,+  setAutoScroll,+  setAutoScrollMargin,+  clearSelection,+  closePersistentEditor,+  setCurrentIndex,+  setDefaultDropAction,+  setDragDropMode,+  setDragDropOverwriteMode,+  setDragEnabled,+  edit,+  setEditTriggers,+  setHorizontalScrollMode,+  setIconSize,+  keyboardSearch,+  setModel,+  openPersistentEditor,+  reset,+  setRootIndex,+  scrollTo,+  scrollToWithHint,+  scrollToBottom,+  scrollToTop,+  selectAll,+  setSelectionBehavior,+  setSelectionMode,+  setSelectionModel,+  setDropIndicatorShown,+  setIndexWidget,+  setItemDelegate,+  setItemDelegateForColumn,+  setItemDelegateForRow,+  setTabKeyNavigation,+  setTextElideMode,+  update,+  setVerticalScrollMode,+  emitActivated,+  emitClicked,+  emitDoubleClicked,+  emitEntered,+  emitIconSizeChanged,+  emitPressed,+  emitViewportEntered,+  QAbstractItemViewConst (..),+  castQAbstractItemViewToConst,+  QAbstractItemView (..),+  castQAbstractItemViewToNonconst,+  QAbstractItemViewSuper (..),+  QAbstractItemViewSuperConst (..),+  QAbstractItemViewDragDropMode (..),+  QAbstractItemViewEditTrigger (..),+  QAbstractItemViewEditTriggers,+  IsQAbstractItemViewEditTriggers (..),+  allEditTriggers,+  anyKeyPressed,+  currentChanged,+  doubleClicked,+  editKeyPressed,+  noEditTriggers,+  selectedClicked,+  QAbstractItemViewScrollHint (..),+  QAbstractItemViewScrollMode (..),+  QAbstractItemViewSelectionBehavior (..),+  QAbstractItemViewSelectionMode (..),+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Core.HRect as HRect+import qualified Graphics.UI.Qtah.Core.HSize as HSize+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QAbstractItemModel as M4+import qualified Graphics.UI.Qtah.Generated.Core.QItemSelectionModel as M52+import qualified Graphics.UI.Qtah.Generated.Core.QModelIndex as M92+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.QSize as M134+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.QAbstractItemDelegate as M358+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractScrollArea as M362+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QFrame as M400+import {-# SOURCE #-} 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__QAbstractItemView_alternatingRowColors" alternatingRowColors' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemView_setAlternatingRowColors" setAlternatingRowColors' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_hasAutoScroll" hasAutoScroll' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemView_setAutoScroll" setAutoScroll' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_autoScrollMargin" autoScrollMargin' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemView_setAutoScrollMargin" setAutoScrollMargin' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_clearSelection" clearSelection' ::  HoppyF.Ptr QAbstractItemView -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_closePersistentEditor" closePersistentEditor' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_currentIndex" currentIndex' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QAbstractItemView_setCurrentIndex" setCurrentIndex' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_defaultDropAction" defaultDropAction' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemView_setDefaultDropAction" setDefaultDropAction' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_dragDropMode" dragDropMode' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemView_setDragDropMode" setDragDropMode' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_dragDropOverwriteMode" dragDropOverwriteMode' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemView_setDragDropOverwriteMode" setDragDropOverwriteMode' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_dragEnabled" dragEnabled' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemView_setDragEnabled" setDragEnabled' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_edit" edit' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_editTriggers" editTriggers' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemView_setEditTriggers" setEditTriggers' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_horizontalScrollMode" horizontalScrollMode' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemView_setHorizontalScrollMode" setHorizontalScrollMode' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_iconSize" iconSize' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QAbstractItemView_setIconSize" setIconSize' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_indexAt" indexAt' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QAbstractItemView_indexWidget" indexWidget' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QAbstractItemView_itemDelegate" itemDelegate' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO (HoppyF.Ptr M358.QAbstractItemDelegate)+foreign import ccall "genpop__QAbstractItemView_itemDelegateAt" itemDelegateAt' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr M358.QAbstractItemDelegate)+foreign import ccall "genpop__QAbstractItemView_itemDelegateForColumn" itemDelegateForColumn' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M358.QAbstractItemDelegate)+foreign import ccall "genpop__QAbstractItemView_itemDelegateForRow" itemDelegateForRow' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M358.QAbstractItemDelegate)+foreign import ccall "genpop__QAbstractItemView_keyboardSearch" keyboardSearch' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_model" model' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO (HoppyF.Ptr M4.QAbstractItemModel)+foreign import ccall "genpop__QAbstractItemView_setModel" setModel' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M4.QAbstractItemModel -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_openPersistentEditor" openPersistentEditor' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_reset" reset' ::  HoppyF.Ptr QAbstractItemView -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_rootIndex" rootIndex' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QAbstractItemView_setRootIndex" setRootIndex' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_scrollTo" scrollTo' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_scrollToWithHint" scrollToWithHint' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_scrollToBottom" scrollToBottom' ::  HoppyF.Ptr QAbstractItemView -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_scrollToTop" scrollToTop' ::  HoppyF.Ptr QAbstractItemView -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_selectAll" selectAll' ::  HoppyF.Ptr QAbstractItemView -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_selectionBehavior" selectionBehavior' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemView_setSelectionBehavior" setSelectionBehavior' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_selectionMode" selectionMode' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemView_setSelectionMode" setSelectionMode' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_selectionModel" selectionModel' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO (HoppyF.Ptr M52.QItemSelectionModel)+foreign import ccall "genpop__QAbstractItemView_setSelectionModel" setSelectionModel' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M52.QItemSelectionModel -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_setDropIndicatorShown" setDropIndicatorShown' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_setIndexWidget" setIndexWidget' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_setItemDelegate" setItemDelegate' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M358.QAbstractItemDelegate -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_setItemDelegateForColumn" setItemDelegateForColumn' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CInt -> HoppyF.Ptr M358.QAbstractItemDelegate -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_setItemDelegateForRow" setItemDelegateForRow' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CInt -> HoppyF.Ptr M358.QAbstractItemDelegate -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_showDropIndicator" showDropIndicator' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemView_sizeHintForColumn" sizeHintForColumn' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemView_sizeHintForIndex" sizeHintForIndex' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QAbstractItemView_sizeHintForRow" sizeHintForRow' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemView_tabKeyNavigation" tabKeyNavigation' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractItemView_setTabKeyNavigation" setTabKeyNavigation' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_textElideMode" textElideMode' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemView_setTextElideMode" setTextElideMode' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_update" update' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_verticalScrollMode" verticalScrollMode' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractItemView_setVerticalScrollMode" setVerticalScrollMode' ::  HoppyF.Ptr QAbstractItemView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_visualRect" visualRect' ::  HoppyF.Ptr QAbstractItemViewConst -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QAbstractItemView_emitActivated" emitActivated' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_emitClicked" emitClicked' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_emitDoubleClicked" emitDoubleClicked' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_emitEntered" emitEntered' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_emitIconSizeChanged" emitIconSizeChanged' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_emitPressed" emitPressed' ::  HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractItemView_emitViewportEntered" emitViewportEntered' ::  HoppyF.Ptr QAbstractItemView -> HoppyP.IO ()+foreign import ccall "gencast__QAbstractItemView__QAbstractScrollArea" castQAbstractItemViewToQAbstractScrollArea :: HoppyF.Ptr QAbstractItemViewConst -> HoppyF.Ptr M362.QAbstractScrollAreaConst+foreign import ccall "gencast__QAbstractScrollArea__QAbstractItemView" castQAbstractScrollAreaToQAbstractItemView :: HoppyF.Ptr M362.QAbstractScrollAreaConst -> HoppyF.Ptr QAbstractItemViewConst+foreign import ccall "gencast__QAbstractItemView__QFrame" castQAbstractItemViewToQFrame :: HoppyF.Ptr QAbstractItemViewConst -> HoppyF.Ptr M400.QFrameConst+foreign import ccall "gencast__QFrame__QAbstractItemView" castQFrameToQAbstractItemView :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr QAbstractItemViewConst+foreign import ccall "gencast__QAbstractItemView__QWidget" castQAbstractItemViewToQWidget :: HoppyF.Ptr QAbstractItemViewConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QAbstractItemView" castQWidgetToQAbstractItemView :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QAbstractItemViewConst+foreign import ccall "gencast__QAbstractItemView__QObject" castQAbstractItemViewToQObject :: HoppyF.Ptr QAbstractItemViewConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QAbstractItemView" castQObjectToQAbstractItemView :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QAbstractItemViewConst+foreign import ccall "gendel__QAbstractItemView" delete'QAbstractItemView :: HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO ()+foreign import ccall "&gendel__QAbstractItemView" deletePtr'QAbstractItemView :: HoppyF.FunPtr (HoppyF.Ptr QAbstractItemViewConst -> HoppyP.IO ())++class QAbstractItemViewValue a where+  withQAbstractItemViewPtr :: a -> (QAbstractItemViewConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractItemViewConstPtr a => QAbstractItemViewValue a where+  withQAbstractItemViewPtr = HoppyP.flip ($) . toQAbstractItemViewConst++class (M362.QAbstractScrollAreaConstPtr this) => QAbstractItemViewConstPtr this where+  toQAbstractItemViewConst :: this -> QAbstractItemViewConst++alternatingRowColors :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+alternatingRowColors arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (alternatingRowColors' arg'1')++hasAutoScroll :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasAutoScroll arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasAutoScroll' arg'1')++autoScrollMargin :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+autoScrollMargin arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (autoScrollMargin' arg'1')++currentIndex :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M92.QModelIndex)+currentIndex arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (currentIndex' arg'1')++defaultDropAction :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtDropAction)+defaultDropAction arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (defaultDropAction' arg'1')++dragDropMode :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QAbstractItemViewDragDropMode)+dragDropMode arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (dragDropMode' arg'1')++dragDropOverwriteMode :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+dragDropOverwriteMode arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (dragDropOverwriteMode' arg'1')++dragEnabled :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+dragEnabled arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (dragEnabled' arg'1')++editTriggers :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QAbstractItemViewEditTriggers)+editTriggers arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (editTriggers' arg'1')++horizontalScrollMode :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QAbstractItemViewScrollMode)+horizontalScrollMode arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (horizontalScrollMode' arg'1')++iconSize :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+iconSize arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (iconSize' arg'1')++indexAt :: (QAbstractItemViewValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M92.QModelIndex)+indexAt arg'1 arg'2 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (indexAt' arg'1' arg'2')++indexWidget :: (QAbstractItemViewValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M506.QWidget)+indexWidget arg'1 arg'2 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap M506.QWidget+  (indexWidget' arg'1' arg'2')++itemDelegate :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M358.QAbstractItemDelegate)+itemDelegate arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M358.QAbstractItemDelegate+  (itemDelegate' arg'1')++itemDelegateAt :: (QAbstractItemViewValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M358.QAbstractItemDelegate)+itemDelegateAt arg'1 arg'2 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap M358.QAbstractItemDelegate+  (itemDelegateAt' arg'1' arg'2')++itemDelegateForColumn :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M358.QAbstractItemDelegate)+itemDelegateForColumn arg'1 arg'2 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M358.QAbstractItemDelegate+  (itemDelegateForColumn' arg'1' arg'2')++itemDelegateForRow :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M358.QAbstractItemDelegate)+itemDelegateForRow arg'1 arg'2 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M358.QAbstractItemDelegate+  (itemDelegateForRow' arg'1' arg'2')++model :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M4.QAbstractItemModel)+model arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M4.QAbstractItemModel+  (model' arg'1')++rootIndex :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M92.QModelIndex)+rootIndex arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (rootIndex' arg'1')++selectionBehavior :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QAbstractItemViewSelectionBehavior)+selectionBehavior arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (selectionBehavior' arg'1')++selectionMode :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QAbstractItemViewSelectionMode)+selectionMode arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (selectionMode' arg'1')++selectionModel :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M52.QItemSelectionModel)+selectionModel arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M52.QItemSelectionModel+  (selectionModel' arg'1')++showDropIndicator :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+showDropIndicator arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (showDropIndicator' arg'1')++sizeHintForColumn :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+sizeHintForColumn arg'1 arg'2 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (sizeHintForColumn' arg'1' arg'2')++sizeHintForIndex :: (QAbstractItemViewValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HSize.HSize)+sizeHintForIndex arg'1 arg'2 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (sizeHintForIndex' arg'1' arg'2')++sizeHintForRow :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+sizeHintForRow arg'1 arg'2 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (sizeHintForRow' arg'1' arg'2')++tabKeyNavigation :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+tabKeyNavigation arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (tabKeyNavigation' arg'1')++textElideMode :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtTextElideMode)+textElideMode arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (textElideMode' arg'1')++verticalScrollMode :: (QAbstractItemViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QAbstractItemViewScrollMode)+verticalScrollMode arg'1 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (verticalScrollMode' arg'1')++visualRect :: (QAbstractItemViewValue this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HRect.HRect)+visualRect arg'1 arg'2 =+  withQAbstractItemViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<+  (visualRect' arg'1' arg'2')++class (QAbstractItemViewConstPtr this, M362.QAbstractScrollAreaPtr this) => QAbstractItemViewPtr this where+  toQAbstractItemView :: this -> QAbstractItemView++setAlternatingRowColors :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setAlternatingRowColors arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAlternatingRowColors' arg'1' arg'2')++setAutoScroll :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setAutoScroll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAutoScroll' arg'1' arg'2')++setAutoScrollMargin :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setAutoScrollMargin arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setAutoScrollMargin' arg'1' arg'2')++clearSelection :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clearSelection arg'1 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (clearSelection' arg'1')++closePersistentEditor :: (QAbstractItemViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+closePersistentEditor arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (closePersistentEditor' arg'1' arg'2')++setCurrentIndex :: (QAbstractItemViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setCurrentIndex arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setCurrentIndex' arg'1' arg'2')++setDefaultDropAction :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (M190.QtDropAction) -> (HoppyP.IO ())+setDefaultDropAction arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setDefaultDropAction' arg'1' arg'2')++setDragDropMode :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (QAbstractItemViewDragDropMode) -> (HoppyP.IO ())+setDragDropMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setDragDropMode' arg'1' arg'2')++setDragDropOverwriteMode :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setDragDropOverwriteMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setDragDropOverwriteMode' arg'1' arg'2')++setDragEnabled :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setDragEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setDragEnabled' arg'1' arg'2')++edit :: (QAbstractItemViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+edit arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (edit' arg'1' arg'2')++setEditTriggers :: (QAbstractItemViewPtr this, IsQAbstractItemViewEditTriggers arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setEditTriggers arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQAbstractItemViewEditTriggers+  ) arg'2 >>= \arg'2' ->+  (setEditTriggers' arg'1' arg'2')++setHorizontalScrollMode :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (QAbstractItemViewScrollMode) -> (HoppyP.IO ())+setHorizontalScrollMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setHorizontalScrollMode' arg'1' arg'2')++setIconSize :: (QAbstractItemViewPtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setIconSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setIconSize' arg'1' arg'2')++keyboardSearch :: (QAbstractItemViewPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+keyboardSearch arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (keyboardSearch' arg'1' arg'2')++setModel :: (QAbstractItemViewPtr this, M4.QAbstractItemModelPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setModel arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M4.toQAbstractItemModel arg'2) $ \arg'2' ->+  (setModel' arg'1' arg'2')++openPersistentEditor :: (QAbstractItemViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+openPersistentEditor arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (openPersistentEditor' arg'1' arg'2')++reset :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+reset arg'1 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (reset' arg'1')++setRootIndex :: (QAbstractItemViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setRootIndex arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setRootIndex' arg'1' arg'2')++scrollTo :: (QAbstractItemViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+scrollTo arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (scrollTo' arg'1' arg'2')++scrollToWithHint :: (QAbstractItemViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (QAbstractItemViewScrollHint) -> (HoppyP.IO ())+scrollToWithHint arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (scrollToWithHint' arg'1' arg'2' arg'3')++scrollToBottom :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+scrollToBottom arg'1 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (scrollToBottom' arg'1')++scrollToTop :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+scrollToTop arg'1 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (scrollToTop' arg'1')++selectAll :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+selectAll arg'1 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (selectAll' arg'1')++setSelectionBehavior :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (QAbstractItemViewSelectionBehavior) -> (HoppyP.IO ())+setSelectionBehavior arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setSelectionBehavior' arg'1' arg'2')++setSelectionMode :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (QAbstractItemViewSelectionMode) -> (HoppyP.IO ())+setSelectionMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setSelectionMode' arg'1' arg'2')++setSelectionModel :: (QAbstractItemViewPtr this, M52.QItemSelectionModelPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setSelectionModel arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M52.toQItemSelectionModel arg'2) $ \arg'2' ->+  (setSelectionModel' arg'1' arg'2')++setDropIndicatorShown :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setDropIndicatorShown arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setDropIndicatorShown' arg'1' arg'2')++setIndexWidget :: (QAbstractItemViewPtr this, M92.QModelIndexValue arg'2, M506.QWidgetPtr arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+setIndexWidget arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'3) $ \arg'3' ->+  (setIndexWidget' arg'1' arg'2' arg'3')++setItemDelegate :: (QAbstractItemViewPtr this, M358.QAbstractItemDelegatePtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setItemDelegate arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M358.toQAbstractItemDelegate arg'2) $ \arg'2' ->+  (setItemDelegate' arg'1' arg'2')++setItemDelegateForColumn :: (QAbstractItemViewPtr this, M358.QAbstractItemDelegatePtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+setItemDelegateForColumn arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M358.toQAbstractItemDelegate arg'3) $ \arg'3' ->+  (setItemDelegateForColumn' arg'1' arg'2' arg'3')++setItemDelegateForRow :: (QAbstractItemViewPtr this, M358.QAbstractItemDelegatePtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+setItemDelegateForRow arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M358.toQAbstractItemDelegate arg'3) $ \arg'3' ->+  (setItemDelegateForRow' arg'1' arg'2' arg'3')++setTabKeyNavigation :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setTabKeyNavigation arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setTabKeyNavigation' arg'1' arg'2')++setTextElideMode :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (M190.QtTextElideMode) -> (HoppyP.IO ())+setTextElideMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setTextElideMode' arg'1' arg'2')++update :: (QAbstractItemViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+update arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (update' arg'1' arg'2')++setVerticalScrollMode :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (QAbstractItemViewScrollMode) -> (HoppyP.IO ())+setVerticalScrollMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setVerticalScrollMode' arg'1' arg'2')++emitActivated :: (QAbstractItemViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitActivated arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitActivated' arg'1' arg'2')++emitClicked :: (QAbstractItemViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitClicked arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitClicked' arg'1' arg'2')++emitDoubleClicked :: (QAbstractItemViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitDoubleClicked arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitDoubleClicked' arg'1' arg'2')++emitEntered :: (QAbstractItemViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitEntered arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitEntered' arg'1' arg'2')++emitIconSizeChanged :: (QAbstractItemViewPtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitIconSizeChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitIconSizeChanged' arg'1' arg'2')++emitPressed :: (QAbstractItemViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitPressed arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitPressed' arg'1' arg'2')++emitViewportEntered :: (QAbstractItemViewPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitViewportEntered arg'1 =+  HoppyFHR.withCppPtr (toQAbstractItemView arg'1) $ \arg'1' ->+  (emitViewportEntered' arg'1')++data QAbstractItemViewConst =+    QAbstractItemViewConst (HoppyF.Ptr QAbstractItemViewConst)+  | QAbstractItemViewConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractItemViewConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractItemViewConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractItemViewConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractItemViewToConst :: QAbstractItemView -> QAbstractItemViewConst+castQAbstractItemViewToConst (QAbstractItemView ptr') = QAbstractItemViewConst $ HoppyF.castPtr ptr'+castQAbstractItemViewToConst (QAbstractItemViewGc fptr' ptr') = QAbstractItemViewConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractItemViewConst where+  nullptr = QAbstractItemViewConst HoppyF.nullPtr+  +  withCppPtr (QAbstractItemViewConst ptr') f' = f' ptr'+  withCppPtr (QAbstractItemViewConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractItemViewConst ptr') = ptr'+  toPtr (QAbstractItemViewConstGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractItemViewConst _) = HoppyP.return ()+  touchCppPtr (QAbstractItemViewConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractItemViewConst where+  delete (QAbstractItemViewConst ptr') = delete'QAbstractItemView ptr'+  delete (QAbstractItemViewConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractItemViewConst", " object."]+  +  toGc this'@(QAbstractItemViewConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractItemViewConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractItemView :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractItemViewConstGc {}) = HoppyP.return this'++instance QAbstractItemViewConstPtr QAbstractItemViewConst where+  toQAbstractItemViewConst = HoppyP.id++instance M362.QAbstractScrollAreaConstPtr QAbstractItemViewConst where+  toQAbstractScrollAreaConst (QAbstractItemViewConst ptr') = M362.QAbstractScrollAreaConst $ castQAbstractItemViewToQAbstractScrollArea ptr'+  toQAbstractScrollAreaConst (QAbstractItemViewConstGc fptr' ptr') = M362.QAbstractScrollAreaConstGc fptr' $ castQAbstractItemViewToQAbstractScrollArea ptr'++instance M400.QFrameConstPtr QAbstractItemViewConst where+  toQFrameConst (QAbstractItemViewConst ptr') = M400.QFrameConst $ castQAbstractItemViewToQFrame ptr'+  toQFrameConst (QAbstractItemViewConstGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQAbstractItemViewToQFrame ptr'++instance M506.QWidgetConstPtr QAbstractItemViewConst where+  toQWidgetConst (QAbstractItemViewConst ptr') = M506.QWidgetConst $ castQAbstractItemViewToQWidget ptr'+  toQWidgetConst (QAbstractItemViewConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQAbstractItemViewToQWidget ptr'++instance M94.QObjectConstPtr QAbstractItemViewConst where+  toQObjectConst (QAbstractItemViewConst ptr') = M94.QObjectConst $ castQAbstractItemViewToQObject ptr'+  toQObjectConst (QAbstractItemViewConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractItemViewToQObject ptr'++data QAbstractItemView =+    QAbstractItemView (HoppyF.Ptr QAbstractItemView)+  | QAbstractItemViewGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractItemView)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractItemView where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractItemView where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractItemViewToNonconst :: QAbstractItemViewConst -> QAbstractItemView+castQAbstractItemViewToNonconst (QAbstractItemViewConst ptr') = QAbstractItemView $ HoppyF.castPtr ptr'+castQAbstractItemViewToNonconst (QAbstractItemViewConstGc fptr' ptr') = QAbstractItemViewGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractItemView where+  nullptr = QAbstractItemView HoppyF.nullPtr+  +  withCppPtr (QAbstractItemView ptr') f' = f' ptr'+  withCppPtr (QAbstractItemViewGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractItemView ptr') = ptr'+  toPtr (QAbstractItemViewGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractItemView _) = HoppyP.return ()+  touchCppPtr (QAbstractItemViewGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractItemView where+  delete (QAbstractItemView ptr') = delete'QAbstractItemView $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QAbstractItemViewConst)+  delete (QAbstractItemViewGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractItemView", " object."]+  +  toGc this'@(QAbstractItemView ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractItemViewGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractItemView :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractItemViewGc {}) = HoppyP.return this'++instance QAbstractItemViewConstPtr QAbstractItemView where+  toQAbstractItemViewConst (QAbstractItemView ptr') = QAbstractItemViewConst $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'+  toQAbstractItemViewConst (QAbstractItemViewGc fptr' ptr') = QAbstractItemViewConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'++instance QAbstractItemViewPtr QAbstractItemView where+  toQAbstractItemView = HoppyP.id++instance M362.QAbstractScrollAreaConstPtr QAbstractItemView where+  toQAbstractScrollAreaConst (QAbstractItemView ptr') = M362.QAbstractScrollAreaConst $ castQAbstractItemViewToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'+  toQAbstractScrollAreaConst (QAbstractItemViewGc fptr' ptr') = M362.QAbstractScrollAreaConstGc fptr' $ castQAbstractItemViewToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'++instance M362.QAbstractScrollAreaPtr QAbstractItemView where+  toQAbstractScrollArea (QAbstractItemView ptr') = M362.QAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr M362.QAbstractScrollAreaConst -> HoppyF.Ptr M362.QAbstractScrollArea) $ castQAbstractItemViewToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'+  toQAbstractScrollArea (QAbstractItemViewGc fptr' ptr') = M362.QAbstractScrollAreaGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M362.QAbstractScrollAreaConst -> HoppyF.Ptr M362.QAbstractScrollArea) $ castQAbstractItemViewToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'++instance M400.QFrameConstPtr QAbstractItemView where+  toQFrameConst (QAbstractItemView ptr') = M400.QFrameConst $ castQAbstractItemViewToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'+  toQFrameConst (QAbstractItemViewGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQAbstractItemViewToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'++instance M400.QFramePtr QAbstractItemView where+  toQFrame (QAbstractItemView ptr') = M400.QFrame $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQAbstractItemViewToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'+  toQFrame (QAbstractItemViewGc fptr' ptr') = M400.QFrameGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQAbstractItemViewToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'++instance M506.QWidgetConstPtr QAbstractItemView where+  toQWidgetConst (QAbstractItemView ptr') = M506.QWidgetConst $ castQAbstractItemViewToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'+  toQWidgetConst (QAbstractItemViewGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQAbstractItemViewToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'++instance M506.QWidgetPtr QAbstractItemView where+  toQWidget (QAbstractItemView ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQAbstractItemViewToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'+  toQWidget (QAbstractItemViewGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQAbstractItemViewToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'++instance M94.QObjectConstPtr QAbstractItemView where+  toQObjectConst (QAbstractItemView ptr') = M94.QObjectConst $ castQAbstractItemViewToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'+  toQObjectConst (QAbstractItemViewGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractItemViewToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'++instance M94.QObjectPtr QAbstractItemView where+  toQObject (QAbstractItemView ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractItemViewToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'+  toQObject (QAbstractItemViewGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractItemViewToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractItemView -> HoppyF.Ptr QAbstractItemViewConst) ptr'++class QAbstractItemViewSuper a where+  downToQAbstractItemView :: a -> QAbstractItemView++instance QAbstractItemViewSuper M362.QAbstractScrollArea where+  downToQAbstractItemView = castQAbstractItemViewToNonconst . cast' . M362.castQAbstractScrollAreaToConst+    where+      cast' (M362.QAbstractScrollAreaConst ptr') = QAbstractItemViewConst $ castQAbstractScrollAreaToQAbstractItemView ptr'+      cast' (M362.QAbstractScrollAreaConstGc fptr' ptr') = QAbstractItemViewConstGc fptr' $ castQAbstractScrollAreaToQAbstractItemView ptr'+instance QAbstractItemViewSuper M400.QFrame where+  downToQAbstractItemView = castQAbstractItemViewToNonconst . cast' . M400.castQFrameToConst+    where+      cast' (M400.QFrameConst ptr') = QAbstractItemViewConst $ castQFrameToQAbstractItemView ptr'+      cast' (M400.QFrameConstGc fptr' ptr') = QAbstractItemViewConstGc fptr' $ castQFrameToQAbstractItemView ptr'+instance QAbstractItemViewSuper M506.QWidget where+  downToQAbstractItemView = castQAbstractItemViewToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QAbstractItemViewConst $ castQWidgetToQAbstractItemView ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QAbstractItemViewConstGc fptr' $ castQWidgetToQAbstractItemView ptr'+instance QAbstractItemViewSuper M94.QObject where+  downToQAbstractItemView = castQAbstractItemViewToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QAbstractItemViewConst $ castQObjectToQAbstractItemView ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractItemViewConstGc fptr' $ castQObjectToQAbstractItemView ptr'++class QAbstractItemViewSuperConst a where+  downToQAbstractItemViewConst :: a -> QAbstractItemViewConst++instance QAbstractItemViewSuperConst M362.QAbstractScrollAreaConst where+  downToQAbstractItemViewConst = cast'+    where+      cast' (M362.QAbstractScrollAreaConst ptr') = QAbstractItemViewConst $ castQAbstractScrollAreaToQAbstractItemView ptr'+      cast' (M362.QAbstractScrollAreaConstGc fptr' ptr') = QAbstractItemViewConstGc fptr' $ castQAbstractScrollAreaToQAbstractItemView ptr'+instance QAbstractItemViewSuperConst M400.QFrameConst where+  downToQAbstractItemViewConst = cast'+    where+      cast' (M400.QFrameConst ptr') = QAbstractItemViewConst $ castQFrameToQAbstractItemView ptr'+      cast' (M400.QFrameConstGc fptr' ptr') = QAbstractItemViewConstGc fptr' $ castQFrameToQAbstractItemView ptr'+instance QAbstractItemViewSuperConst M506.QWidgetConst where+  downToQAbstractItemViewConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QAbstractItemViewConst $ castQWidgetToQAbstractItemView ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QAbstractItemViewConstGc fptr' $ castQWidgetToQAbstractItemView ptr'+instance QAbstractItemViewSuperConst M94.QObjectConst where+  downToQAbstractItemViewConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QAbstractItemViewConst $ castQObjectToQAbstractItemView ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractItemViewConstGc fptr' $ castQObjectToQAbstractItemView ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QAbstractItemView)) QAbstractItemView where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractItemView)) QAbstractItemView where+  decode = HoppyP.fmap QAbstractItemView . HoppyF.peek++data QAbstractItemViewDragDropMode =+  NoDragDrop+  | DragOnly+  | DropOnly+  | DragDrop+  | InternalMove+  | UnknownQAbstractItemViewDragDropMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemViewDragDropMode where+  fromCppEnum NoDragDrop = 0+  fromCppEnum DragOnly = 1+  fromCppEnum DropOnly = 2+  fromCppEnum DragDrop = 3+  fromCppEnum InternalMove = 4+  fromCppEnum (UnknownQAbstractItemViewDragDropMode n) = n+  +  toCppEnum (0) = NoDragDrop+  toCppEnum (1) = DragOnly+  toCppEnum (2) = DropOnly+  toCppEnum (3) = DragDrop+  toCppEnum (4) = InternalMove+  toCppEnum n = UnknownQAbstractItemViewDragDropMode n++instance HoppyP.Eq QAbstractItemViewDragDropMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QAbstractItemViewDragDropMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QAbstractItemViewEditTrigger =+  NoEditTriggers+  | CurrentChanged+  | DoubleClicked+  | SelectedClicked+  | EditKeyPressed+  | AnyKeyPressed+  | AllEditTriggers+  | UnknownQAbstractItemViewEditTrigger (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemViewEditTrigger where+  fromCppEnum NoEditTriggers = 0+  fromCppEnum CurrentChanged = 1+  fromCppEnum DoubleClicked = 2+  fromCppEnum SelectedClicked = 4+  fromCppEnum EditKeyPressed = 8+  fromCppEnum AnyKeyPressed = 16+  fromCppEnum AllEditTriggers = 31+  fromCppEnum (UnknownQAbstractItemViewEditTrigger n) = n+  +  toCppEnum (0) = NoEditTriggers+  toCppEnum (1) = CurrentChanged+  toCppEnum (2) = DoubleClicked+  toCppEnum (4) = SelectedClicked+  toCppEnum (8) = EditKeyPressed+  toCppEnum (16) = AnyKeyPressed+  toCppEnum (31) = AllEditTriggers+  toCppEnum n = UnknownQAbstractItemViewEditTrigger n++instance HoppyP.Eq QAbstractItemViewEditTrigger where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QAbstractItemViewEditTrigger where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QAbstractItemViewEditTriggers = QAbstractItemViewEditTriggers (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QAbstractItemViewEditTrigger QAbstractItemViewEditTriggers where+  enumToFlags = QAbstractItemViewEditTriggers . QtahFHR.fromCppEnum+  flagsToEnum (QAbstractItemViewEditTriggers x') = QtahFHR.toCppEnum x'++class IsQAbstractItemViewEditTriggers a where+  toQAbstractItemViewEditTriggers :: a -> QAbstractItemViewEditTriggers++instance IsQAbstractItemViewEditTriggers QAbstractItemViewEditTriggers where toQAbstractItemViewEditTriggers = QtahP.id+instance IsQAbstractItemViewEditTriggers QAbstractItemViewEditTrigger where toQAbstractItemViewEditTriggers = QtahFlags.enumToFlags+instance IsQAbstractItemViewEditTriggers (HoppyFC.CInt) where toQAbstractItemViewEditTriggers = QtahFlags.numToFlags++allEditTriggers :: QAbstractItemViewEditTriggers+allEditTriggers = QAbstractItemViewEditTriggers (31)++anyKeyPressed :: QAbstractItemViewEditTriggers+anyKeyPressed = QAbstractItemViewEditTriggers (16)++currentChanged :: QAbstractItemViewEditTriggers+currentChanged = QAbstractItemViewEditTriggers (1)++doubleClicked :: QAbstractItemViewEditTriggers+doubleClicked = QAbstractItemViewEditTriggers (2)++editKeyPressed :: QAbstractItemViewEditTriggers+editKeyPressed = QAbstractItemViewEditTriggers (8)++noEditTriggers :: QAbstractItemViewEditTriggers+noEditTriggers = QAbstractItemViewEditTriggers (0)++selectedClicked :: QAbstractItemViewEditTriggers+selectedClicked = QAbstractItemViewEditTriggers (4)++instance QtahDB.Bits QAbstractItemViewEditTriggers where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QAbstractItemViewScrollHint =+  EnsureVisible+  | PositionAtTop+  | PositionAtBottom+  | PositionAtCenter+  | UnknownQAbstractItemViewScrollHint (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemViewScrollHint where+  fromCppEnum EnsureVisible = 0+  fromCppEnum PositionAtTop = 1+  fromCppEnum PositionAtBottom = 2+  fromCppEnum PositionAtCenter = 3+  fromCppEnum (UnknownQAbstractItemViewScrollHint n) = n+  +  toCppEnum (0) = EnsureVisible+  toCppEnum (1) = PositionAtTop+  toCppEnum (2) = PositionAtBottom+  toCppEnum (3) = PositionAtCenter+  toCppEnum n = UnknownQAbstractItemViewScrollHint n++instance HoppyP.Eq QAbstractItemViewScrollHint where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QAbstractItemViewScrollHint where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QAbstractItemViewScrollMode =+  ScrollPerItem+  | ScrollPerPixel+  | UnknownQAbstractItemViewScrollMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemViewScrollMode where+  fromCppEnum ScrollPerItem = 0+  fromCppEnum ScrollPerPixel = 1+  fromCppEnum (UnknownQAbstractItemViewScrollMode n) = n+  +  toCppEnum (0) = ScrollPerItem+  toCppEnum (1) = ScrollPerPixel+  toCppEnum n = UnknownQAbstractItemViewScrollMode n++instance HoppyP.Eq QAbstractItemViewScrollMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QAbstractItemViewScrollMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QAbstractItemViewSelectionBehavior =+  SelectItems+  | SelectRows+  | SelectColumns+  | UnknownQAbstractItemViewSelectionBehavior (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemViewSelectionBehavior where+  fromCppEnum SelectItems = 0+  fromCppEnum SelectRows = 1+  fromCppEnum SelectColumns = 2+  fromCppEnum (UnknownQAbstractItemViewSelectionBehavior n) = n+  +  toCppEnum (0) = SelectItems+  toCppEnum (1) = SelectRows+  toCppEnum (2) = SelectColumns+  toCppEnum n = UnknownQAbstractItemViewSelectionBehavior n++instance HoppyP.Eq QAbstractItemViewSelectionBehavior where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QAbstractItemViewSelectionBehavior where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QAbstractItemViewSelectionMode =+  NoSelection+  | SingleSelection+  | MultiSelection+  | ExtendedSelection+  | ContiguousSelection+  | UnknownQAbstractItemViewSelectionMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemViewSelectionMode where+  fromCppEnum NoSelection = 0+  fromCppEnum SingleSelection = 1+  fromCppEnum MultiSelection = 2+  fromCppEnum ExtendedSelection = 3+  fromCppEnum ContiguousSelection = 4+  fromCppEnum (UnknownQAbstractItemViewSelectionMode n) = n+  +  toCppEnum (0) = NoSelection+  toCppEnum (1) = SingleSelection+  toCppEnum (2) = MultiSelection+  toCppEnum (3) = ExtendedSelection+  toCppEnum (4) = ContiguousSelection+  toCppEnum n = UnknownQAbstractItemViewSelectionMode n++instance HoppyP.Eq QAbstractItemViewSelectionMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QAbstractItemViewSelectionMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Widgets/QAbstractItemView.hs-boot view
@@ -0,0 +1,168 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QAbstractItemView (+  QAbstractItemViewValue (..),+  QAbstractItemViewConstPtr (..),+  QAbstractItemViewPtr (..),+  QAbstractItemViewConst (..),+  castQAbstractItemViewToConst,+  QAbstractItemView (..),+  castQAbstractItemViewToNonconst,+  castQAbstractItemViewToQAbstractScrollArea,+  castQAbstractItemViewToQFrame,+  castQAbstractItemViewToQWidget,+  castQAbstractItemViewToQObject,+  QAbstractItemViewDragDropMode,+  QAbstractItemViewEditTrigger,+  QAbstractItemViewEditTriggers,+  IsQAbstractItemViewEditTriggers (..),+  allEditTriggers,+  anyKeyPressed,+  currentChanged,+  doubleClicked,+  editKeyPressed,+  noEditTriggers,+  selectedClicked,+  QAbstractItemViewScrollHint,+  QAbstractItemViewScrollMode,+  QAbstractItemViewSelectionBehavior,+  QAbstractItemViewSelectionMode,+  ) where++import qualified Data.Bits as QtahDB+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 {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractScrollArea as M362+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QFrame as M400+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++class QAbstractItemViewValue a where+  withQAbstractItemViewPtr :: a -> (QAbstractItemViewConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractItemViewConstPtr a => QAbstractItemViewValue a++class (M362.QAbstractScrollAreaConstPtr this) => QAbstractItemViewConstPtr this where+  toQAbstractItemViewConst :: this -> QAbstractItemViewConst++class (QAbstractItemViewConstPtr this, M362.QAbstractScrollAreaPtr this) => QAbstractItemViewPtr this where+  toQAbstractItemView :: this -> QAbstractItemView++data QAbstractItemViewConst =+    QAbstractItemViewConst (HoppyF.Ptr QAbstractItemViewConst)+  | QAbstractItemViewConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractItemViewConst)++castQAbstractItemViewToConst :: QAbstractItemView -> QAbstractItemViewConst++instance HoppyFHR.CppPtr QAbstractItemViewConst+instance HoppyFHR.Deletable QAbstractItemViewConst++instance QAbstractItemViewConstPtr QAbstractItemViewConst++instance M362.QAbstractScrollAreaConstPtr QAbstractItemViewConst++instance M400.QFrameConstPtr QAbstractItemViewConst++instance M506.QWidgetConstPtr QAbstractItemViewConst++instance M94.QObjectConstPtr QAbstractItemViewConst++data QAbstractItemView =+    QAbstractItemView (HoppyF.Ptr QAbstractItemView)+  | QAbstractItemViewGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractItemView)++castQAbstractItemViewToNonconst :: QAbstractItemViewConst -> QAbstractItemView++instance HoppyFHR.CppPtr QAbstractItemView+instance HoppyFHR.Deletable QAbstractItemView++instance QAbstractItemViewConstPtr QAbstractItemView++instance QAbstractItemViewPtr QAbstractItemView++instance M362.QAbstractScrollAreaConstPtr QAbstractItemView++instance M362.QAbstractScrollAreaPtr QAbstractItemView++instance M400.QFrameConstPtr QAbstractItemView++instance M400.QFramePtr QAbstractItemView++instance M506.QWidgetConstPtr QAbstractItemView++instance M506.QWidgetPtr QAbstractItemView++instance M94.QObjectConstPtr QAbstractItemView++instance M94.QObjectPtr QAbstractItemView+castQAbstractItemViewToQAbstractScrollArea :: HoppyF.Ptr QAbstractItemViewConst -> HoppyF.Ptr M362.QAbstractScrollAreaConst+castQAbstractItemViewToQFrame :: HoppyF.Ptr QAbstractItemViewConst -> HoppyF.Ptr M400.QFrameConst+castQAbstractItemViewToQWidget :: HoppyF.Ptr QAbstractItemViewConst -> HoppyF.Ptr M506.QWidgetConst+castQAbstractItemViewToQObject :: HoppyF.Ptr QAbstractItemViewConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractItemView)) QAbstractItemView++data QAbstractItemViewDragDropMode+instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemViewDragDropMode+instance HoppyP.Eq QAbstractItemViewDragDropMode+instance HoppyP.Ord QAbstractItemViewDragDropMode+instance HoppyP.Show QAbstractItemViewDragDropMode++data QAbstractItemViewEditTrigger+instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemViewEditTrigger+instance HoppyP.Eq QAbstractItemViewEditTrigger+instance HoppyP.Ord QAbstractItemViewEditTrigger+instance HoppyP.Show QAbstractItemViewEditTrigger++newtype QAbstractItemViewEditTriggers = QAbstractItemViewEditTriggers (HoppyFC.CInt)+instance QtahDB.Bits QAbstractItemViewEditTriggers+instance QtahP.Eq QAbstractItemViewEditTriggers+instance QtahP.Ord QAbstractItemViewEditTriggers+instance QtahP.Show QAbstractItemViewEditTriggers++instance QtahFlags.Flags (HoppyFC.CInt) QAbstractItemViewEditTrigger QAbstractItemViewEditTriggers++class IsQAbstractItemViewEditTriggers a where+  toQAbstractItemViewEditTriggers :: a -> QAbstractItemViewEditTriggers++instance IsQAbstractItemViewEditTriggers QAbstractItemViewEditTriggers+instance IsQAbstractItemViewEditTriggers QAbstractItemViewEditTrigger+instance IsQAbstractItemViewEditTriggers HoppyFC.CInt++allEditTriggers :: QAbstractItemViewEditTriggers+anyKeyPressed :: QAbstractItemViewEditTriggers+currentChanged :: QAbstractItemViewEditTriggers+doubleClicked :: QAbstractItemViewEditTriggers+editKeyPressed :: QAbstractItemViewEditTriggers+noEditTriggers :: QAbstractItemViewEditTriggers+selectedClicked :: QAbstractItemViewEditTriggers++data QAbstractItemViewScrollHint+instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemViewScrollHint+instance HoppyP.Eq QAbstractItemViewScrollHint+instance HoppyP.Ord QAbstractItemViewScrollHint+instance HoppyP.Show QAbstractItemViewScrollHint++data QAbstractItemViewScrollMode+instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemViewScrollMode+instance HoppyP.Eq QAbstractItemViewScrollMode+instance HoppyP.Ord QAbstractItemViewScrollMode+instance HoppyP.Show QAbstractItemViewScrollMode++data QAbstractItemViewSelectionBehavior+instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemViewSelectionBehavior+instance HoppyP.Eq QAbstractItemViewSelectionBehavior+instance HoppyP.Ord QAbstractItemViewSelectionBehavior+instance HoppyP.Show QAbstractItemViewSelectionBehavior++data QAbstractItemViewSelectionMode+instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractItemViewSelectionMode+instance HoppyP.Eq QAbstractItemViewSelectionMode+instance HoppyP.Ord QAbstractItemViewSelectionMode+instance HoppyP.Show QAbstractItemViewSelectionMode
src/Graphics/UI/Qtah/Generated/Widgets/QAbstractScrollArea.hs view
@@ -0,0 +1,352 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QAbstractScrollArea (+  castQAbstractScrollAreaToQFrame,+  castQFrameToQAbstractScrollArea,+  castQAbstractScrollAreaToQWidget,+  castQWidgetToQAbstractScrollArea,+  castQAbstractScrollAreaToQObject,+  castQObjectToQAbstractScrollArea,+  QAbstractScrollAreaValue (..),+  QAbstractScrollAreaConstPtr (..),+  cornerWidget,+  horizontalScrollBar,+  horizontalScrollBarPolicy,+  maximumViewportSize,+  verticalScrollBar,+  verticalScrollBarPolicy,+  viewport,+  QAbstractScrollAreaPtr (..),+  addScrollBarWidget,+  setCornerWidget,+  setHorizontalScrollBar,+  setHorizontalScrollBarPolicy,+  setVerticalScrollBar,+  setVerticalScrollBarPolicy,+  setViewport,+  QAbstractScrollAreaConst (..),+  castQAbstractScrollAreaToConst,+  QAbstractScrollArea (..),+  castQAbstractScrollAreaToNonconst,+  new,+  newWithParent,+  QAbstractScrollAreaSuper (..),+  QAbstractScrollAreaSuperConst (..),+  ) 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.HSize as HSize+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.QSize as M134+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QFrame as M400+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QScrollBar as M466+import {-# SOURCE #-} 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__QAbstractScrollArea_new" new' ::  HoppyP.IO (HoppyF.Ptr QAbstractScrollArea)+foreign import ccall "genpop__QAbstractScrollArea_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QAbstractScrollArea)+foreign import ccall "genpop__QAbstractScrollArea_addScrollBarWidget" addScrollBarWidget' ::  HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractScrollArea_cornerWidget" cornerWidget' ::  HoppyF.Ptr QAbstractScrollAreaConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QAbstractScrollArea_horizontalScrollBar" horizontalScrollBar' ::  HoppyF.Ptr QAbstractScrollAreaConst -> HoppyP.IO (HoppyF.Ptr M466.QScrollBar)+foreign import ccall "genpop__QAbstractScrollArea_horizontalScrollBarPolicy" horizontalScrollBarPolicy' ::  HoppyF.Ptr QAbstractScrollAreaConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractScrollArea_maximumViewportSize" maximumViewportSize' ::  HoppyF.Ptr QAbstractScrollAreaConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QAbstractScrollArea_setCornerWidget" setCornerWidget' ::  HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractScrollArea_setHorizontalScrollBar" setHorizontalScrollBar' ::  HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr M466.QScrollBar -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractScrollArea_setHorizontalScrollBarPolicy" setHorizontalScrollBarPolicy' ::  HoppyF.Ptr QAbstractScrollArea -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractScrollArea_setVerticalScrollBar" setVerticalScrollBar' ::  HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr M466.QScrollBar -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractScrollArea_setVerticalScrollBarPolicy" setVerticalScrollBarPolicy' ::  HoppyF.Ptr QAbstractScrollArea -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractScrollArea_setViewport" setViewport' ::  HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractScrollArea_verticalScrollBar" verticalScrollBar' ::  HoppyF.Ptr QAbstractScrollAreaConst -> HoppyP.IO (HoppyF.Ptr M466.QScrollBar)+foreign import ccall "genpop__QAbstractScrollArea_verticalScrollBarPolicy" verticalScrollBarPolicy' ::  HoppyF.Ptr QAbstractScrollAreaConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractScrollArea_viewport" viewport' ::  HoppyF.Ptr QAbstractScrollAreaConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "gencast__QAbstractScrollArea__QFrame" castQAbstractScrollAreaToQFrame :: HoppyF.Ptr QAbstractScrollAreaConst -> HoppyF.Ptr M400.QFrameConst+foreign import ccall "gencast__QFrame__QAbstractScrollArea" castQFrameToQAbstractScrollArea :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr QAbstractScrollAreaConst+foreign import ccall "gencast__QAbstractScrollArea__QWidget" castQAbstractScrollAreaToQWidget :: HoppyF.Ptr QAbstractScrollAreaConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QAbstractScrollArea" castQWidgetToQAbstractScrollArea :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QAbstractScrollAreaConst+foreign import ccall "gencast__QAbstractScrollArea__QObject" castQAbstractScrollAreaToQObject :: HoppyF.Ptr QAbstractScrollAreaConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QAbstractScrollArea" castQObjectToQAbstractScrollArea :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QAbstractScrollAreaConst+foreign import ccall "gendel__QAbstractScrollArea" delete'QAbstractScrollArea :: HoppyF.Ptr QAbstractScrollAreaConst -> HoppyP.IO ()+foreign import ccall "&gendel__QAbstractScrollArea" deletePtr'QAbstractScrollArea :: HoppyF.FunPtr (HoppyF.Ptr QAbstractScrollAreaConst -> HoppyP.IO ())++class QAbstractScrollAreaValue a where+  withQAbstractScrollAreaPtr :: a -> (QAbstractScrollAreaConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractScrollAreaConstPtr a => QAbstractScrollAreaValue a where+  withQAbstractScrollAreaPtr = HoppyP.flip ($) . toQAbstractScrollAreaConst++class (M400.QFrameConstPtr this) => QAbstractScrollAreaConstPtr this where+  toQAbstractScrollAreaConst :: this -> QAbstractScrollAreaConst++cornerWidget :: (QAbstractScrollAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)+cornerWidget arg'1 =+  withQAbstractScrollAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (cornerWidget' arg'1')++horizontalScrollBar :: (QAbstractScrollAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO M466.QScrollBar)+horizontalScrollBar arg'1 =+  withQAbstractScrollAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M466.QScrollBar+  (horizontalScrollBar' arg'1')++horizontalScrollBarPolicy :: (QAbstractScrollAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtScrollBarPolicy)+horizontalScrollBarPolicy arg'1 =+  withQAbstractScrollAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (horizontalScrollBarPolicy' arg'1')++maximumViewportSize :: (QAbstractScrollAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+maximumViewportSize arg'1 =+  withQAbstractScrollAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (maximumViewportSize' arg'1')++verticalScrollBar :: (QAbstractScrollAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO M466.QScrollBar)+verticalScrollBar arg'1 =+  withQAbstractScrollAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M466.QScrollBar+  (verticalScrollBar' arg'1')++verticalScrollBarPolicy :: (QAbstractScrollAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtScrollBarPolicy)+verticalScrollBarPolicy arg'1 =+  withQAbstractScrollAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (verticalScrollBarPolicy' arg'1')++viewport :: (QAbstractScrollAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)+viewport arg'1 =+  withQAbstractScrollAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (viewport' arg'1')++class (QAbstractScrollAreaConstPtr this, M400.QFramePtr this) => QAbstractScrollAreaPtr this where+  toQAbstractScrollArea :: this -> QAbstractScrollArea++addScrollBarWidget :: (QAbstractScrollAreaPtr this, M506.QWidgetPtr arg'2, M190.IsQtAlignment arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+addScrollBarWidget arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractScrollArea arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'3 >>= \arg'3' ->+  (addScrollBarWidget' arg'1' arg'2' arg'3')++setCornerWidget :: (QAbstractScrollAreaPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setCornerWidget arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractScrollArea arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (setCornerWidget' arg'1' arg'2')++setHorizontalScrollBar :: (QAbstractScrollAreaPtr this, M466.QScrollBarPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setHorizontalScrollBar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractScrollArea arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M466.toQScrollBar arg'2) $ \arg'2' ->+  (setHorizontalScrollBar' arg'1' arg'2')++setHorizontalScrollBarPolicy :: (QAbstractScrollAreaPtr this) => (this) {- ^ this -} -> (M190.QtScrollBarPolicy) -> (HoppyP.IO ())+setHorizontalScrollBarPolicy arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractScrollArea arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setHorizontalScrollBarPolicy' arg'1' arg'2')++setVerticalScrollBar :: (QAbstractScrollAreaPtr this, M466.QScrollBarPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setVerticalScrollBar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractScrollArea arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M466.toQScrollBar arg'2) $ \arg'2' ->+  (setVerticalScrollBar' arg'1' arg'2')++setVerticalScrollBarPolicy :: (QAbstractScrollAreaPtr this) => (this) {- ^ this -} -> (M190.QtScrollBarPolicy) -> (HoppyP.IO ())+setVerticalScrollBarPolicy arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractScrollArea arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setVerticalScrollBarPolicy' arg'1' arg'2')++setViewport :: (QAbstractScrollAreaPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setViewport arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractScrollArea arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (setViewport' arg'1' arg'2')++data QAbstractScrollAreaConst =+    QAbstractScrollAreaConst (HoppyF.Ptr QAbstractScrollAreaConst)+  | QAbstractScrollAreaConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractScrollAreaConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractScrollAreaConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractScrollAreaConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractScrollAreaToConst :: QAbstractScrollArea -> QAbstractScrollAreaConst+castQAbstractScrollAreaToConst (QAbstractScrollArea ptr') = QAbstractScrollAreaConst $ HoppyF.castPtr ptr'+castQAbstractScrollAreaToConst (QAbstractScrollAreaGc fptr' ptr') = QAbstractScrollAreaConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractScrollAreaConst where+  nullptr = QAbstractScrollAreaConst HoppyF.nullPtr+  +  withCppPtr (QAbstractScrollAreaConst ptr') f' = f' ptr'+  withCppPtr (QAbstractScrollAreaConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractScrollAreaConst ptr') = ptr'+  toPtr (QAbstractScrollAreaConstGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractScrollAreaConst _) = HoppyP.return ()+  touchCppPtr (QAbstractScrollAreaConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractScrollAreaConst where+  delete (QAbstractScrollAreaConst ptr') = delete'QAbstractScrollArea ptr'+  delete (QAbstractScrollAreaConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractScrollAreaConst", " object."]+  +  toGc this'@(QAbstractScrollAreaConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractScrollAreaConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractScrollArea :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractScrollAreaConstGc {}) = HoppyP.return this'++instance QAbstractScrollAreaConstPtr QAbstractScrollAreaConst where+  toQAbstractScrollAreaConst = HoppyP.id++instance M400.QFrameConstPtr QAbstractScrollAreaConst where+  toQFrameConst (QAbstractScrollAreaConst ptr') = M400.QFrameConst $ castQAbstractScrollAreaToQFrame ptr'+  toQFrameConst (QAbstractScrollAreaConstGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQAbstractScrollAreaToQFrame ptr'++instance M506.QWidgetConstPtr QAbstractScrollAreaConst where+  toQWidgetConst (QAbstractScrollAreaConst ptr') = M506.QWidgetConst $ castQAbstractScrollAreaToQWidget ptr'+  toQWidgetConst (QAbstractScrollAreaConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQAbstractScrollAreaToQWidget ptr'++instance M94.QObjectConstPtr QAbstractScrollAreaConst where+  toQObjectConst (QAbstractScrollAreaConst ptr') = M94.QObjectConst $ castQAbstractScrollAreaToQObject ptr'+  toQObjectConst (QAbstractScrollAreaConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractScrollAreaToQObject ptr'++data QAbstractScrollArea =+    QAbstractScrollArea (HoppyF.Ptr QAbstractScrollArea)+  | QAbstractScrollAreaGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractScrollArea)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractScrollArea where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractScrollArea where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractScrollAreaToNonconst :: QAbstractScrollAreaConst -> QAbstractScrollArea+castQAbstractScrollAreaToNonconst (QAbstractScrollAreaConst ptr') = QAbstractScrollArea $ HoppyF.castPtr ptr'+castQAbstractScrollAreaToNonconst (QAbstractScrollAreaConstGc fptr' ptr') = QAbstractScrollAreaGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractScrollArea where+  nullptr = QAbstractScrollArea HoppyF.nullPtr+  +  withCppPtr (QAbstractScrollArea ptr') f' = f' ptr'+  withCppPtr (QAbstractScrollAreaGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractScrollArea ptr') = ptr'+  toPtr (QAbstractScrollAreaGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractScrollArea _) = HoppyP.return ()+  touchCppPtr (QAbstractScrollAreaGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractScrollArea where+  delete (QAbstractScrollArea ptr') = delete'QAbstractScrollArea $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QAbstractScrollAreaConst)+  delete (QAbstractScrollAreaGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractScrollArea", " object."]+  +  toGc this'@(QAbstractScrollArea ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractScrollAreaGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractScrollArea :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractScrollAreaGc {}) = HoppyP.return this'++instance QAbstractScrollAreaConstPtr QAbstractScrollArea where+  toQAbstractScrollAreaConst (QAbstractScrollArea ptr') = QAbstractScrollAreaConst $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr QAbstractScrollAreaConst) ptr'+  toQAbstractScrollAreaConst (QAbstractScrollAreaGc fptr' ptr') = QAbstractScrollAreaConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr QAbstractScrollAreaConst) ptr'++instance QAbstractScrollAreaPtr QAbstractScrollArea where+  toQAbstractScrollArea = HoppyP.id++instance M400.QFrameConstPtr QAbstractScrollArea where+  toQFrameConst (QAbstractScrollArea ptr') = M400.QFrameConst $ castQAbstractScrollAreaToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr QAbstractScrollAreaConst) ptr'+  toQFrameConst (QAbstractScrollAreaGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQAbstractScrollAreaToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr QAbstractScrollAreaConst) ptr'++instance M400.QFramePtr QAbstractScrollArea where+  toQFrame (QAbstractScrollArea ptr') = M400.QFrame $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQAbstractScrollAreaToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr QAbstractScrollAreaConst) ptr'+  toQFrame (QAbstractScrollAreaGc fptr' ptr') = M400.QFrameGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQAbstractScrollAreaToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr QAbstractScrollAreaConst) ptr'++instance M506.QWidgetConstPtr QAbstractScrollArea where+  toQWidgetConst (QAbstractScrollArea ptr') = M506.QWidgetConst $ castQAbstractScrollAreaToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr QAbstractScrollAreaConst) ptr'+  toQWidgetConst (QAbstractScrollAreaGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQAbstractScrollAreaToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr QAbstractScrollAreaConst) ptr'++instance M506.QWidgetPtr QAbstractScrollArea where+  toQWidget (QAbstractScrollArea ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQAbstractScrollAreaToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr QAbstractScrollAreaConst) ptr'+  toQWidget (QAbstractScrollAreaGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQAbstractScrollAreaToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr QAbstractScrollAreaConst) ptr'++instance M94.QObjectConstPtr QAbstractScrollArea where+  toQObjectConst (QAbstractScrollArea ptr') = M94.QObjectConst $ castQAbstractScrollAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr QAbstractScrollAreaConst) ptr'+  toQObjectConst (QAbstractScrollAreaGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractScrollAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr QAbstractScrollAreaConst) ptr'++instance M94.QObjectPtr QAbstractScrollArea where+  toQObject (QAbstractScrollArea ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractScrollAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr QAbstractScrollAreaConst) ptr'+  toQObject (QAbstractScrollAreaGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractScrollAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractScrollArea -> HoppyF.Ptr QAbstractScrollAreaConst) ptr'++new :: (HoppyP.IO QAbstractScrollArea)+new =+  HoppyP.fmap QAbstractScrollArea+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QAbstractScrollArea)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QAbstractScrollArea+  (newWithParent' arg'1')++class QAbstractScrollAreaSuper a where+  downToQAbstractScrollArea :: a -> QAbstractScrollArea++instance QAbstractScrollAreaSuper M400.QFrame where+  downToQAbstractScrollArea = castQAbstractScrollAreaToNonconst . cast' . M400.castQFrameToConst+    where+      cast' (M400.QFrameConst ptr') = QAbstractScrollAreaConst $ castQFrameToQAbstractScrollArea ptr'+      cast' (M400.QFrameConstGc fptr' ptr') = QAbstractScrollAreaConstGc fptr' $ castQFrameToQAbstractScrollArea ptr'+instance QAbstractScrollAreaSuper M506.QWidget where+  downToQAbstractScrollArea = castQAbstractScrollAreaToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QAbstractScrollAreaConst $ castQWidgetToQAbstractScrollArea ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QAbstractScrollAreaConstGc fptr' $ castQWidgetToQAbstractScrollArea ptr'+instance QAbstractScrollAreaSuper M94.QObject where+  downToQAbstractScrollArea = castQAbstractScrollAreaToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QAbstractScrollAreaConst $ castQObjectToQAbstractScrollArea ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractScrollAreaConstGc fptr' $ castQObjectToQAbstractScrollArea ptr'++class QAbstractScrollAreaSuperConst a where+  downToQAbstractScrollAreaConst :: a -> QAbstractScrollAreaConst++instance QAbstractScrollAreaSuperConst M400.QFrameConst where+  downToQAbstractScrollAreaConst = cast'+    where+      cast' (M400.QFrameConst ptr') = QAbstractScrollAreaConst $ castQFrameToQAbstractScrollArea ptr'+      cast' (M400.QFrameConstGc fptr' ptr') = QAbstractScrollAreaConstGc fptr' $ castQFrameToQAbstractScrollArea ptr'+instance QAbstractScrollAreaSuperConst M506.QWidgetConst where+  downToQAbstractScrollAreaConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QAbstractScrollAreaConst $ castQWidgetToQAbstractScrollArea ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QAbstractScrollAreaConstGc fptr' $ castQWidgetToQAbstractScrollArea ptr'+instance QAbstractScrollAreaSuperConst M94.QObjectConst where+  downToQAbstractScrollAreaConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QAbstractScrollAreaConst $ castQObjectToQAbstractScrollArea ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractScrollAreaConstGc fptr' $ castQObjectToQAbstractScrollArea ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QAbstractScrollArea)) QAbstractScrollArea where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractScrollArea)) QAbstractScrollArea where+  decode = HoppyP.fmap QAbstractScrollArea . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Widgets/QAbstractScrollArea.hs-boot view
@@ -0,0 +1,81 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QAbstractScrollArea (+  QAbstractScrollAreaValue (..),+  QAbstractScrollAreaConstPtr (..),+  QAbstractScrollAreaPtr (..),+  QAbstractScrollAreaConst (..),+  castQAbstractScrollAreaToConst,+  QAbstractScrollArea (..),+  castQAbstractScrollAreaToNonconst,+  castQAbstractScrollAreaToQFrame,+  castQAbstractScrollAreaToQWidget,+  castQAbstractScrollAreaToQObject,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QFrame as M400+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import qualified Prelude as HoppyP+++class QAbstractScrollAreaValue a where+  withQAbstractScrollAreaPtr :: a -> (QAbstractScrollAreaConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractScrollAreaConstPtr a => QAbstractScrollAreaValue a++class (M400.QFrameConstPtr this) => QAbstractScrollAreaConstPtr this where+  toQAbstractScrollAreaConst :: this -> QAbstractScrollAreaConst++class (QAbstractScrollAreaConstPtr this, M400.QFramePtr this) => QAbstractScrollAreaPtr this where+  toQAbstractScrollArea :: this -> QAbstractScrollArea++data QAbstractScrollAreaConst =+    QAbstractScrollAreaConst (HoppyF.Ptr QAbstractScrollAreaConst)+  | QAbstractScrollAreaConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractScrollAreaConst)++castQAbstractScrollAreaToConst :: QAbstractScrollArea -> QAbstractScrollAreaConst++instance HoppyFHR.CppPtr QAbstractScrollAreaConst+instance HoppyFHR.Deletable QAbstractScrollAreaConst++instance QAbstractScrollAreaConstPtr QAbstractScrollAreaConst++instance M400.QFrameConstPtr QAbstractScrollAreaConst++instance M506.QWidgetConstPtr QAbstractScrollAreaConst++instance M94.QObjectConstPtr QAbstractScrollAreaConst++data QAbstractScrollArea =+    QAbstractScrollArea (HoppyF.Ptr QAbstractScrollArea)+  | QAbstractScrollAreaGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractScrollArea)++castQAbstractScrollAreaToNonconst :: QAbstractScrollAreaConst -> QAbstractScrollArea++instance HoppyFHR.CppPtr QAbstractScrollArea+instance HoppyFHR.Deletable QAbstractScrollArea++instance QAbstractScrollAreaConstPtr QAbstractScrollArea++instance QAbstractScrollAreaPtr QAbstractScrollArea++instance M400.QFrameConstPtr QAbstractScrollArea++instance M400.QFramePtr QAbstractScrollArea++instance M506.QWidgetConstPtr QAbstractScrollArea++instance M506.QWidgetPtr QAbstractScrollArea++instance M94.QObjectConstPtr QAbstractScrollArea++instance M94.QObjectPtr QAbstractScrollArea+castQAbstractScrollAreaToQFrame :: HoppyF.Ptr QAbstractScrollAreaConst -> HoppyF.Ptr M400.QFrameConst+castQAbstractScrollAreaToQWidget :: HoppyF.Ptr QAbstractScrollAreaConst -> HoppyF.Ptr M506.QWidgetConst+castQAbstractScrollAreaToQObject :: HoppyF.Ptr QAbstractScrollAreaConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractScrollArea)) QAbstractScrollArea
src/Graphics/UI/Qtah/Generated/Widgets/QAbstractSlider.hs view
@@ -0,0 +1,541 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QAbstractSlider (+  castQAbstractSliderToQWidget,+  castQWidgetToQAbstractSlider,+  castQAbstractSliderToQObject,+  castQObjectToQAbstractSlider,+  QAbstractSliderValue (..),+  QAbstractSliderConstPtr (..),+  invertedAppearance,+  invertedControls,+  maximum,+  minimum,+  orientation,+  pageStep,+  singleStep,+  isSliderDown,+  sliderPosition,+  hasTracking,+  value,+  QAbstractSliderPtr (..),+  setInvertedAppearance,+  setInvertedControls,+  setMaximum,+  setMinimum,+  setOrientation,+  setPageStep,+  setSingleStep,+  setSliderDown,+  setSliderPosition,+  setTracking,+  triggerAction,+  setValue,+  emitActionTriggered,+  emitRangeChanged,+  emitSliderMoved,+  emitSliderPressed,+  emitSliderReleased,+  emitValueChanged,+  QAbstractSliderConst (..),+  castQAbstractSliderToConst,+  QAbstractSlider (..),+  castQAbstractSliderToNonconst,+  new,+  newWithParent,+  QAbstractSliderSuper (..),+  QAbstractSliderSuperConst (..),+  QAbstractSliderAction (..),+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as HoppyDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QAbstractSlider_new" new' ::  HoppyP.IO (HoppyF.Ptr QAbstractSlider)+foreign import ccall "genpop__QAbstractSlider_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QAbstractSlider)+foreign import ccall "genpop__QAbstractSlider_invertedAppearance" invertedAppearance' ::  HoppyF.Ptr QAbstractSliderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractSlider_setInvertedAppearance" setInvertedAppearance' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_invertedControls" invertedControls' ::  HoppyF.Ptr QAbstractSliderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractSlider_setInvertedControls" setInvertedControls' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_maximum" maximum' ::  HoppyF.Ptr QAbstractSliderConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractSlider_setMaximum" setMaximum' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_minimum" minimum' ::  HoppyF.Ptr QAbstractSliderConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractSlider_setMinimum" setMinimum' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_orientation" orientation' ::  HoppyF.Ptr QAbstractSliderConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractSlider_setOrientation" setOrientation' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_pageStep" pageStep' ::  HoppyF.Ptr QAbstractSliderConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractSlider_setPageStep" setPageStep' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_singleStep" singleStep' ::  HoppyF.Ptr QAbstractSliderConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractSlider_setSingleStep" setSingleStep' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_isSliderDown" isSliderDown' ::  HoppyF.Ptr QAbstractSliderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractSlider_setSliderDown" setSliderDown' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_sliderPosition" sliderPosition' ::  HoppyF.Ptr QAbstractSliderConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractSlider_setSliderPosition" setSliderPosition' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_hasTracking" hasTracking' ::  HoppyF.Ptr QAbstractSliderConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractSlider_setTracking" setTracking' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_triggerAction" triggerAction' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_value" value' ::  HoppyF.Ptr QAbstractSliderConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractSlider_setValue" setValue' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_emitActionTriggered" emitActionTriggered' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_emitRangeChanged" emitRangeChanged' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_emitSliderMoved" emitSliderMoved' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_emitSliderPressed" emitSliderPressed' ::  HoppyF.Ptr QAbstractSlider -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_emitSliderReleased" emitSliderReleased' ::  HoppyF.Ptr QAbstractSlider -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSlider_emitValueChanged" emitValueChanged' ::  HoppyF.Ptr QAbstractSlider -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QAbstractSlider__QWidget" castQAbstractSliderToQWidget :: HoppyF.Ptr QAbstractSliderConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QAbstractSlider" castQWidgetToQAbstractSlider :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QAbstractSliderConst+foreign import ccall "gencast__QAbstractSlider__QObject" castQAbstractSliderToQObject :: HoppyF.Ptr QAbstractSliderConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QAbstractSlider" castQObjectToQAbstractSlider :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QAbstractSliderConst+foreign import ccall "gendel__QAbstractSlider" delete'QAbstractSlider :: HoppyF.Ptr QAbstractSliderConst -> HoppyP.IO ()+foreign import ccall "&gendel__QAbstractSlider" deletePtr'QAbstractSlider :: HoppyF.FunPtr (HoppyF.Ptr QAbstractSliderConst -> HoppyP.IO ())++class QAbstractSliderValue a where+  withQAbstractSliderPtr :: a -> (QAbstractSliderConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractSliderConstPtr a => QAbstractSliderValue a where+  withQAbstractSliderPtr = HoppyP.flip ($) . toQAbstractSliderConst++class (M506.QWidgetConstPtr this) => QAbstractSliderConstPtr this where+  toQAbstractSliderConst :: this -> QAbstractSliderConst++invertedAppearance :: (QAbstractSliderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+invertedAppearance arg'1 =+  withQAbstractSliderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (invertedAppearance' arg'1')++invertedControls :: (QAbstractSliderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+invertedControls arg'1 =+  withQAbstractSliderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (invertedControls' arg'1')++maximum :: (QAbstractSliderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+maximum arg'1 =+  withQAbstractSliderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (maximum' arg'1')++minimum :: (QAbstractSliderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+minimum arg'1 =+  withQAbstractSliderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (minimum' arg'1')++orientation :: (QAbstractSliderValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtOrientation)+orientation arg'1 =+  withQAbstractSliderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (orientation' arg'1')++pageStep :: (QAbstractSliderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+pageStep arg'1 =+  withQAbstractSliderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (pageStep' arg'1')++singleStep :: (QAbstractSliderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+singleStep arg'1 =+  withQAbstractSliderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (singleStep' arg'1')++isSliderDown :: (QAbstractSliderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isSliderDown arg'1 =+  withQAbstractSliderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSliderDown' arg'1')++sliderPosition :: (QAbstractSliderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+sliderPosition arg'1 =+  withQAbstractSliderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (sliderPosition' arg'1')++hasTracking :: (QAbstractSliderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasTracking arg'1 =+  withQAbstractSliderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasTracking' arg'1')++value :: (QAbstractSliderValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+value arg'1 =+  withQAbstractSliderPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (value' arg'1')++class (QAbstractSliderConstPtr this, M506.QWidgetPtr this) => QAbstractSliderPtr this where+  toQAbstractSlider :: this -> QAbstractSlider++setInvertedAppearance :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setInvertedAppearance arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setInvertedAppearance' arg'1' arg'2')++setInvertedControls :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setInvertedControls arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setInvertedControls' arg'1' arg'2')++setMaximum :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setMaximum arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setMaximum' arg'1' arg'2')++setMinimum :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setMinimum arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setMinimum' arg'1' arg'2')++setOrientation :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (M190.QtOrientation) -> (HoppyP.IO ())+setOrientation arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setOrientation' arg'1' arg'2')++setPageStep :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setPageStep arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setPageStep' arg'1' arg'2')++setSingleStep :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setSingleStep arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setSingleStep' arg'1' arg'2')++setSliderDown :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setSliderDown arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setSliderDown' arg'1' arg'2')++setSliderPosition :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setSliderPosition arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setSliderPosition' arg'1' arg'2')++setTracking :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setTracking arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setTracking' arg'1' arg'2')++triggerAction :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (QAbstractSliderAction) -> (HoppyP.IO ())+triggerAction arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (triggerAction' arg'1' arg'2')++setValue :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setValue arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setValue' arg'1' arg'2')++emitActionTriggered :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (QAbstractSliderAction) -> (HoppyP.IO ())+emitActionTriggered arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (emitActionTriggered' arg'1' arg'2')++emitRangeChanged :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+emitRangeChanged arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (emitRangeChanged' arg'1' arg'2' arg'3')++emitSliderMoved :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitSliderMoved arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitSliderMoved' arg'1' arg'2')++emitSliderPressed :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitSliderPressed arg'1 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (emitSliderPressed' arg'1')++emitSliderReleased :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitSliderReleased arg'1 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (emitSliderReleased' arg'1')++emitValueChanged :: (QAbstractSliderPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitValueChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSlider arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitValueChanged' arg'1' arg'2')++data QAbstractSliderConst =+    QAbstractSliderConst (HoppyF.Ptr QAbstractSliderConst)+  | QAbstractSliderConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractSliderConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractSliderConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractSliderConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractSliderToConst :: QAbstractSlider -> QAbstractSliderConst+castQAbstractSliderToConst (QAbstractSlider ptr') = QAbstractSliderConst $ HoppyF.castPtr ptr'+castQAbstractSliderToConst (QAbstractSliderGc fptr' ptr') = QAbstractSliderConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractSliderConst where+  nullptr = QAbstractSliderConst HoppyF.nullPtr+  +  withCppPtr (QAbstractSliderConst ptr') f' = f' ptr'+  withCppPtr (QAbstractSliderConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractSliderConst ptr') = ptr'+  toPtr (QAbstractSliderConstGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractSliderConst _) = HoppyP.return ()+  touchCppPtr (QAbstractSliderConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractSliderConst where+  delete (QAbstractSliderConst ptr') = delete'QAbstractSlider ptr'+  delete (QAbstractSliderConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractSliderConst", " object."]+  +  toGc this'@(QAbstractSliderConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractSliderConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractSlider :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractSliderConstGc {}) = HoppyP.return this'++instance QAbstractSliderConstPtr QAbstractSliderConst where+  toQAbstractSliderConst = HoppyP.id++instance M506.QWidgetConstPtr QAbstractSliderConst where+  toQWidgetConst (QAbstractSliderConst ptr') = M506.QWidgetConst $ castQAbstractSliderToQWidget ptr'+  toQWidgetConst (QAbstractSliderConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQAbstractSliderToQWidget ptr'++instance M94.QObjectConstPtr QAbstractSliderConst where+  toQObjectConst (QAbstractSliderConst ptr') = M94.QObjectConst $ castQAbstractSliderToQObject ptr'+  toQObjectConst (QAbstractSliderConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractSliderToQObject ptr'++data QAbstractSlider =+    QAbstractSlider (HoppyF.Ptr QAbstractSlider)+  | QAbstractSliderGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractSlider)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractSlider where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractSlider where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractSliderToNonconst :: QAbstractSliderConst -> QAbstractSlider+castQAbstractSliderToNonconst (QAbstractSliderConst ptr') = QAbstractSlider $ HoppyF.castPtr ptr'+castQAbstractSliderToNonconst (QAbstractSliderConstGc fptr' ptr') = QAbstractSliderGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractSlider where+  nullptr = QAbstractSlider HoppyF.nullPtr+  +  withCppPtr (QAbstractSlider ptr') f' = f' ptr'+  withCppPtr (QAbstractSliderGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractSlider ptr') = ptr'+  toPtr (QAbstractSliderGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractSlider _) = HoppyP.return ()+  touchCppPtr (QAbstractSliderGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractSlider where+  delete (QAbstractSlider ptr') = delete'QAbstractSlider $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QAbstractSliderConst)+  delete (QAbstractSliderGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractSlider", " object."]+  +  toGc this'@(QAbstractSlider ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractSliderGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractSlider :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractSliderGc {}) = HoppyP.return this'++instance QAbstractSliderConstPtr QAbstractSlider where+  toQAbstractSliderConst (QAbstractSlider ptr') = QAbstractSliderConst $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSlider -> HoppyF.Ptr QAbstractSliderConst) ptr'+  toQAbstractSliderConst (QAbstractSliderGc fptr' ptr') = QAbstractSliderConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSlider -> HoppyF.Ptr QAbstractSliderConst) ptr'++instance QAbstractSliderPtr QAbstractSlider where+  toQAbstractSlider = HoppyP.id++instance M506.QWidgetConstPtr QAbstractSlider where+  toQWidgetConst (QAbstractSlider ptr') = M506.QWidgetConst $ castQAbstractSliderToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSlider -> HoppyF.Ptr QAbstractSliderConst) ptr'+  toQWidgetConst (QAbstractSliderGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQAbstractSliderToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSlider -> HoppyF.Ptr QAbstractSliderConst) ptr'++instance M506.QWidgetPtr QAbstractSlider where+  toQWidget (QAbstractSlider ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQAbstractSliderToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSlider -> HoppyF.Ptr QAbstractSliderConst) ptr'+  toQWidget (QAbstractSliderGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQAbstractSliderToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSlider -> HoppyF.Ptr QAbstractSliderConst) ptr'++instance M94.QObjectConstPtr QAbstractSlider where+  toQObjectConst (QAbstractSlider ptr') = M94.QObjectConst $ castQAbstractSliderToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSlider -> HoppyF.Ptr QAbstractSliderConst) ptr'+  toQObjectConst (QAbstractSliderGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractSliderToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSlider -> HoppyF.Ptr QAbstractSliderConst) ptr'++instance M94.QObjectPtr QAbstractSlider where+  toQObject (QAbstractSlider ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractSliderToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSlider -> HoppyF.Ptr QAbstractSliderConst) ptr'+  toQObject (QAbstractSliderGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractSliderToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSlider -> HoppyF.Ptr QAbstractSliderConst) ptr'++new :: (HoppyP.IO QAbstractSlider)+new =+  HoppyP.fmap QAbstractSlider+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QAbstractSlider)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QAbstractSlider+  (newWithParent' arg'1')++class QAbstractSliderSuper a where+  downToQAbstractSlider :: a -> QAbstractSlider++instance QAbstractSliderSuper M506.QWidget where+  downToQAbstractSlider = castQAbstractSliderToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QAbstractSliderConst $ castQWidgetToQAbstractSlider ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QAbstractSliderConstGc fptr' $ castQWidgetToQAbstractSlider ptr'+instance QAbstractSliderSuper M94.QObject where+  downToQAbstractSlider = castQAbstractSliderToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QAbstractSliderConst $ castQObjectToQAbstractSlider ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractSliderConstGc fptr' $ castQObjectToQAbstractSlider ptr'++class QAbstractSliderSuperConst a where+  downToQAbstractSliderConst :: a -> QAbstractSliderConst++instance QAbstractSliderSuperConst M506.QWidgetConst where+  downToQAbstractSliderConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QAbstractSliderConst $ castQWidgetToQAbstractSlider ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QAbstractSliderConstGc fptr' $ castQWidgetToQAbstractSlider ptr'+instance QAbstractSliderSuperConst M94.QObjectConst where+  downToQAbstractSliderConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QAbstractSliderConst $ castQObjectToQAbstractSlider ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractSliderConstGc fptr' $ castQObjectToQAbstractSlider ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QAbstractSlider)) QAbstractSlider where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractSlider)) QAbstractSlider where+  decode = HoppyP.fmap QAbstractSlider . HoppyF.peek++data QAbstractSliderAction =+  SliderNoAction+  | SliderSingleStepAdd+  | SliderSingleStepSub+  | SliderPageStepAdd+  | SliderPageStepSub+  | SliderToMinimum+  | SliderToMaximum+  | SliderMove+  | Unknown (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractSliderAction where+  fromCppEnum SliderNoAction = 0+  fromCppEnum SliderSingleStepAdd = 1+  fromCppEnum SliderSingleStepSub = 2+  fromCppEnum SliderPageStepAdd = 3+  fromCppEnum SliderPageStepSub = 4+  fromCppEnum SliderToMinimum = 5+  fromCppEnum SliderToMaximum = 6+  fromCppEnum SliderMove = 7+  fromCppEnum (Unknown n) = n+  +  toCppEnum (0) = SliderNoAction+  toCppEnum (1) = SliderSingleStepAdd+  toCppEnum (2) = SliderSingleStepSub+  toCppEnum (3) = SliderPageStepAdd+  toCppEnum (4) = SliderPageStepSub+  toCppEnum (5) = SliderToMinimum+  toCppEnum (6) = SliderToMaximum+  toCppEnum (7) = SliderMove+  toCppEnum n = Unknown n++instance HoppyP.Eq QAbstractSliderAction where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QAbstractSliderAction where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)+instance HoppyDB.Bits QAbstractSliderAction where+  x .&. y = HoppyFHR.toCppEnum (HoppyFHR.fromCppEnum x .&. HoppyFHR.fromCppEnum y)+  x .|. y = HoppyFHR.toCppEnum (HoppyFHR.fromCppEnum x .|. HoppyFHR.fromCppEnum y)+  xor x y = HoppyFHR.toCppEnum $ HoppyDB.xor (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)+  complement x = HoppyFHR.toCppEnum $ HoppyDB.complement $ HoppyFHR.fromCppEnum x+  shift x i = HoppyFHR.toCppEnum $ HoppyDB.shift (HoppyFHR.fromCppEnum x) i+  rotate x i = HoppyFHR.toCppEnum $ HoppyDB.rotate (HoppyFHR.fromCppEnum x) i+  bitSize x = case HoppyDB.bitSizeMaybe x of+      HoppyP.Just n -> n+      HoppyP.Nothing -> HoppyP.error "bitSize is undefined"+  bitSizeMaybe = HoppyDB.bitSizeMaybe . HoppyFHR.fromCppEnum+  isSigned = HoppyDB.isSigned . HoppyFHR.fromCppEnum+  testBit x i = HoppyDB.testBit (HoppyFHR.fromCppEnum x) i+  bit = HoppyFHR.toCppEnum . HoppyDB.bit+  popCount = HoppyDB.popCount . HoppyFHR.fromCppEnum
+ src/Graphics/UI/Qtah/Generated/Widgets/QAbstractSlider.hs-boot view
@@ -0,0 +1,82 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QAbstractSlider (+  QAbstractSliderValue (..),+  QAbstractSliderConstPtr (..),+  QAbstractSliderPtr (..),+  QAbstractSliderConst (..),+  castQAbstractSliderToConst,+  QAbstractSlider (..),+  castQAbstractSliderToNonconst,+  castQAbstractSliderToQWidget,+  castQAbstractSliderToQObject,+  QAbstractSliderAction,+  ) where++import qualified Data.Bits as HoppyDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import qualified Prelude as HoppyP+++class QAbstractSliderValue a where+  withQAbstractSliderPtr :: a -> (QAbstractSliderConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractSliderConstPtr a => QAbstractSliderValue a++class (M506.QWidgetConstPtr this) => QAbstractSliderConstPtr this where+  toQAbstractSliderConst :: this -> QAbstractSliderConst++class (QAbstractSliderConstPtr this, M506.QWidgetPtr this) => QAbstractSliderPtr this where+  toQAbstractSlider :: this -> QAbstractSlider++data QAbstractSliderConst =+    QAbstractSliderConst (HoppyF.Ptr QAbstractSliderConst)+  | QAbstractSliderConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractSliderConst)++castQAbstractSliderToConst :: QAbstractSlider -> QAbstractSliderConst++instance HoppyFHR.CppPtr QAbstractSliderConst+instance HoppyFHR.Deletable QAbstractSliderConst++instance QAbstractSliderConstPtr QAbstractSliderConst++instance M506.QWidgetConstPtr QAbstractSliderConst++instance M94.QObjectConstPtr QAbstractSliderConst++data QAbstractSlider =+    QAbstractSlider (HoppyF.Ptr QAbstractSlider)+  | QAbstractSliderGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractSlider)++castQAbstractSliderToNonconst :: QAbstractSliderConst -> QAbstractSlider++instance HoppyFHR.CppPtr QAbstractSlider+instance HoppyFHR.Deletable QAbstractSlider++instance QAbstractSliderConstPtr QAbstractSlider++instance QAbstractSliderPtr QAbstractSlider++instance M506.QWidgetConstPtr QAbstractSlider++instance M506.QWidgetPtr QAbstractSlider++instance M94.QObjectConstPtr QAbstractSlider++instance M94.QObjectPtr QAbstractSlider+castQAbstractSliderToQWidget :: HoppyF.Ptr QAbstractSliderConst -> HoppyF.Ptr M506.QWidgetConst+castQAbstractSliderToQObject :: HoppyF.Ptr QAbstractSliderConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractSlider)) QAbstractSlider++data QAbstractSliderAction+instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractSliderAction+instance HoppyP.Eq QAbstractSliderAction+instance HoppyP.Ord QAbstractSliderAction+instance HoppyP.Show QAbstractSliderAction+instance HoppyDB.Bits QAbstractSliderAction
src/Graphics/UI/Qtah/Generated/Widgets/QAbstractSpinBox.hs view
@@ -0,0 +1,592 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QAbstractSpinBox (+  castQAbstractSpinBoxToQWidget,+  castQWidgetToQAbstractSpinBox,+  castQAbstractSpinBoxToQObject,+  castQObjectToQAbstractSpinBox,+  QAbstractSpinBoxValue (..),+  QAbstractSpinBoxConstPtr (..),+  isAccelerated,+  alignment,+  buttonSymbols,+  correctionMode,+  hasAcceptableInput,+  fixup,+  hasFrame,+  isGroupSeparatorShown,+  keyboardTracking,+  isReadOnly,+  specialValueText,+  text,+  wrapping,+  QAbstractSpinBoxPtr (..),+  setAccelerated,+  setAlignment,+  setButtonSymbols,+  clear,+  setCorrectionMode,+  setFrame,+  setGroupSeparatorShown,+  interpretText,+  setKeyboardTracking,+  setReadOnly,+  selectAll,+  setSpecialValueText,+  stepBy,+  stepDown,+  stepUp,+  setWrapping,+  emitEditingFinished,+  QAbstractSpinBoxConst (..),+  castQAbstractSpinBoxToConst,+  QAbstractSpinBox (..),+  castQAbstractSpinBoxToNonconst,+  new,+  newWithParent,+  QAbstractSpinBoxSuper (..),+  QAbstractSpinBoxSuperConst (..),+  QAbstractSpinBoxButtonSymbols (..),+  QAbstractSpinBoxCorrectionMode (..),+  QAbstractSpinBoxStepEnabled,+  IsQAbstractSpinBoxStepEnabled (..),+  stepDownEnabled,+  stepNone,+  stepUpEnabled,+  QAbstractSpinBoxStepEnabledFlag (..),+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+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__QAbstractSpinBox_new" new' ::  HoppyP.IO (HoppyF.Ptr QAbstractSpinBox)+foreign import ccall "genpop__QAbstractSpinBox_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QAbstractSpinBox)+foreign import ccall "genpop__QAbstractSpinBox_isAccelerated" isAccelerated' ::  HoppyF.Ptr QAbstractSpinBoxConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractSpinBox_setAccelerated" setAccelerated' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_alignment" alignment' ::  HoppyF.Ptr QAbstractSpinBoxConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractSpinBox_setAlignment" setAlignment' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_buttonSymbols" buttonSymbols' ::  HoppyF.Ptr QAbstractSpinBoxConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractSpinBox_setButtonSymbols" setButtonSymbols' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_clear" clear' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_correctionMode" correctionMode' ::  HoppyF.Ptr QAbstractSpinBoxConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAbstractSpinBox_setCorrectionMode" setCorrectionMode' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_hasAcceptableInput" hasAcceptableInput' ::  HoppyF.Ptr QAbstractSpinBoxConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractSpinBox_fixup" fixup' ::  HoppyF.Ptr QAbstractSpinBoxConst -> HoppyF.Ptr M142.QString -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_hasFrame" hasFrame' ::  HoppyF.Ptr QAbstractSpinBoxConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractSpinBox_setFrame" setFrame' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_isGroupSeparatorShown" isGroupSeparatorShown' ::  HoppyF.Ptr QAbstractSpinBoxConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractSpinBox_setGroupSeparatorShown" setGroupSeparatorShown' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_interpretText" interpretText' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_keyboardTracking" keyboardTracking' ::  HoppyF.Ptr QAbstractSpinBoxConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractSpinBox_setKeyboardTracking" setKeyboardTracking' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_isReadOnly" isReadOnly' ::  HoppyF.Ptr QAbstractSpinBoxConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractSpinBox_setReadOnly" setReadOnly' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_selectAll" selectAll' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_specialValueText" specialValueText' ::  HoppyF.Ptr QAbstractSpinBoxConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QAbstractSpinBox_setSpecialValueText" setSpecialValueText' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_stepBy" stepBy' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_stepDown" stepDown' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_stepUp" stepUp' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_text" text' ::  HoppyF.Ptr QAbstractSpinBoxConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QAbstractSpinBox_wrapping" wrapping' ::  HoppyF.Ptr QAbstractSpinBoxConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAbstractSpinBox_setWrapping" setWrapping' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAbstractSpinBox_emitEditingFinished" emitEditingFinished' ::  HoppyF.Ptr QAbstractSpinBox -> HoppyP.IO ()+foreign import ccall "gencast__QAbstractSpinBox__QWidget" castQAbstractSpinBoxToQWidget :: HoppyF.Ptr QAbstractSpinBoxConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QAbstractSpinBox" castQWidgetToQAbstractSpinBox :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QAbstractSpinBoxConst+foreign import ccall "gencast__QAbstractSpinBox__QObject" castQAbstractSpinBoxToQObject :: HoppyF.Ptr QAbstractSpinBoxConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QAbstractSpinBox" castQObjectToQAbstractSpinBox :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QAbstractSpinBoxConst+foreign import ccall "gendel__QAbstractSpinBox" delete'QAbstractSpinBox :: HoppyF.Ptr QAbstractSpinBoxConst -> HoppyP.IO ()+foreign import ccall "&gendel__QAbstractSpinBox" deletePtr'QAbstractSpinBox :: HoppyF.FunPtr (HoppyF.Ptr QAbstractSpinBoxConst -> HoppyP.IO ())++class QAbstractSpinBoxValue a where+  withQAbstractSpinBoxPtr :: a -> (QAbstractSpinBoxConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QAbstractSpinBoxConstPtr a => QAbstractSpinBoxValue a where+  withQAbstractSpinBoxPtr = HoppyP.flip ($) . toQAbstractSpinBoxConst++class (M506.QWidgetConstPtr this) => QAbstractSpinBoxConstPtr this where+  toQAbstractSpinBoxConst :: this -> QAbstractSpinBoxConst++isAccelerated :: (QAbstractSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isAccelerated arg'1 =+  withQAbstractSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isAccelerated' arg'1')++alignment :: (QAbstractSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtAlignment)+alignment arg'1 =+  withQAbstractSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (alignment' arg'1')++buttonSymbols :: (QAbstractSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO QAbstractSpinBoxButtonSymbols)+buttonSymbols arg'1 =+  withQAbstractSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (buttonSymbols' arg'1')++correctionMode :: (QAbstractSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO QAbstractSpinBoxCorrectionMode)+correctionMode arg'1 =+  withQAbstractSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (correctionMode' arg'1')++hasAcceptableInput :: (QAbstractSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasAcceptableInput arg'1 =+  withQAbstractSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasAcceptableInput' arg'1')++fixup :: (QAbstractSpinBoxValue this, M142.QStringPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+fixup arg'1 arg'2 =+  withQAbstractSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M142.toQString arg'2) $ \arg'2' ->+  (fixup' arg'1' arg'2')++hasFrame :: (QAbstractSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasFrame arg'1 =+  withQAbstractSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasFrame' arg'1')++isGroupSeparatorShown :: (QAbstractSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isGroupSeparatorShown arg'1 =+  withQAbstractSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isGroupSeparatorShown' arg'1')++keyboardTracking :: (QAbstractSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+keyboardTracking arg'1 =+  withQAbstractSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (keyboardTracking' arg'1')++isReadOnly :: (QAbstractSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isReadOnly arg'1 =+  withQAbstractSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isReadOnly' arg'1')++specialValueText :: (QAbstractSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+specialValueText arg'1 =+  withQAbstractSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (specialValueText' arg'1')++text :: (QAbstractSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+text arg'1 =+  withQAbstractSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (text' arg'1')++wrapping :: (QAbstractSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+wrapping arg'1 =+  withQAbstractSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (wrapping' arg'1')++class (QAbstractSpinBoxConstPtr this, M506.QWidgetPtr this) => QAbstractSpinBoxPtr this where+  toQAbstractSpinBox :: this -> QAbstractSpinBox++setAccelerated :: (QAbstractSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setAccelerated arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAccelerated' arg'1' arg'2')++setAlignment :: (QAbstractSpinBoxPtr this, M190.IsQtAlignment arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setAlignment arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'2 >>= \arg'2' ->+  (setAlignment' arg'1' arg'2')++setButtonSymbols :: (QAbstractSpinBoxPtr this) => (this) {- ^ this -} -> (QAbstractSpinBoxButtonSymbols) -> (HoppyP.IO ())+setButtonSymbols arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setButtonSymbols' arg'1' arg'2')++clear :: (QAbstractSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (clear' arg'1')++setCorrectionMode :: (QAbstractSpinBoxPtr this) => (this) {- ^ this -} -> (QAbstractSpinBoxCorrectionMode) -> (HoppyP.IO ())+setCorrectionMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setCorrectionMode' arg'1' arg'2')++setFrame :: (QAbstractSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setFrame arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setFrame' arg'1' arg'2')++setGroupSeparatorShown :: (QAbstractSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setGroupSeparatorShown arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setGroupSeparatorShown' arg'1' arg'2')++interpretText :: (QAbstractSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+interpretText arg'1 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (interpretText' arg'1')++setKeyboardTracking :: (QAbstractSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setKeyboardTracking arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setKeyboardTracking' arg'1' arg'2')++setReadOnly :: (QAbstractSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setReadOnly arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setReadOnly' arg'1' arg'2')++selectAll :: (QAbstractSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+selectAll arg'1 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (selectAll' arg'1')++setSpecialValueText :: (QAbstractSpinBoxPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setSpecialValueText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setSpecialValueText' arg'1' arg'2')++stepBy :: (QAbstractSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+stepBy arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (stepBy' arg'1' arg'2')++stepDown :: (QAbstractSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+stepDown arg'1 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (stepDown' arg'1')++stepUp :: (QAbstractSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+stepUp arg'1 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (stepUp' arg'1')++setWrapping :: (QAbstractSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setWrapping arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setWrapping' arg'1' arg'2')++emitEditingFinished :: (QAbstractSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitEditingFinished arg'1 =+  HoppyFHR.withCppPtr (toQAbstractSpinBox arg'1) $ \arg'1' ->+  (emitEditingFinished' arg'1')++data QAbstractSpinBoxConst =+    QAbstractSpinBoxConst (HoppyF.Ptr QAbstractSpinBoxConst)+  | QAbstractSpinBoxConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractSpinBoxConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractSpinBoxConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractSpinBoxConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractSpinBoxToConst :: QAbstractSpinBox -> QAbstractSpinBoxConst+castQAbstractSpinBoxToConst (QAbstractSpinBox ptr') = QAbstractSpinBoxConst $ HoppyF.castPtr ptr'+castQAbstractSpinBoxToConst (QAbstractSpinBoxGc fptr' ptr') = QAbstractSpinBoxConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractSpinBoxConst where+  nullptr = QAbstractSpinBoxConst HoppyF.nullPtr+  +  withCppPtr (QAbstractSpinBoxConst ptr') f' = f' ptr'+  withCppPtr (QAbstractSpinBoxConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractSpinBoxConst ptr') = ptr'+  toPtr (QAbstractSpinBoxConstGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractSpinBoxConst _) = HoppyP.return ()+  touchCppPtr (QAbstractSpinBoxConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractSpinBoxConst where+  delete (QAbstractSpinBoxConst ptr') = delete'QAbstractSpinBox ptr'+  delete (QAbstractSpinBoxConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractSpinBoxConst", " object."]+  +  toGc this'@(QAbstractSpinBoxConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractSpinBoxConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractSpinBox :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractSpinBoxConstGc {}) = HoppyP.return this'++instance QAbstractSpinBoxConstPtr QAbstractSpinBoxConst where+  toQAbstractSpinBoxConst = HoppyP.id++instance M506.QWidgetConstPtr QAbstractSpinBoxConst where+  toQWidgetConst (QAbstractSpinBoxConst ptr') = M506.QWidgetConst $ castQAbstractSpinBoxToQWidget ptr'+  toQWidgetConst (QAbstractSpinBoxConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQAbstractSpinBoxToQWidget ptr'++instance M94.QObjectConstPtr QAbstractSpinBoxConst where+  toQObjectConst (QAbstractSpinBoxConst ptr') = M94.QObjectConst $ castQAbstractSpinBoxToQObject ptr'+  toQObjectConst (QAbstractSpinBoxConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractSpinBoxToQObject ptr'++data QAbstractSpinBox =+    QAbstractSpinBox (HoppyF.Ptr QAbstractSpinBox)+  | QAbstractSpinBoxGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAbstractSpinBox)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAbstractSpinBox where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAbstractSpinBox where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQAbstractSpinBoxToNonconst :: QAbstractSpinBoxConst -> QAbstractSpinBox+castQAbstractSpinBoxToNonconst (QAbstractSpinBoxConst ptr') = QAbstractSpinBox $ HoppyF.castPtr ptr'+castQAbstractSpinBoxToNonconst (QAbstractSpinBoxConstGc fptr' ptr') = QAbstractSpinBoxGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAbstractSpinBox where+  nullptr = QAbstractSpinBox HoppyF.nullPtr+  +  withCppPtr (QAbstractSpinBox ptr') f' = f' ptr'+  withCppPtr (QAbstractSpinBoxGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAbstractSpinBox ptr') = ptr'+  toPtr (QAbstractSpinBoxGc _ ptr') = ptr'+  +  touchCppPtr (QAbstractSpinBox _) = HoppyP.return ()+  touchCppPtr (QAbstractSpinBoxGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAbstractSpinBox where+  delete (QAbstractSpinBox ptr') = delete'QAbstractSpinBox $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QAbstractSpinBoxConst)+  delete (QAbstractSpinBoxGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAbstractSpinBox", " object."]+  +  toGc this'@(QAbstractSpinBox ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QAbstractSpinBoxGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAbstractSpinBox :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QAbstractSpinBoxGc {}) = HoppyP.return this'++instance QAbstractSpinBoxConstPtr QAbstractSpinBox where+  toQAbstractSpinBoxConst (QAbstractSpinBox ptr') = QAbstractSpinBoxConst $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSpinBox -> HoppyF.Ptr QAbstractSpinBoxConst) ptr'+  toQAbstractSpinBoxConst (QAbstractSpinBoxGc fptr' ptr') = QAbstractSpinBoxConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSpinBox -> HoppyF.Ptr QAbstractSpinBoxConst) ptr'++instance QAbstractSpinBoxPtr QAbstractSpinBox where+  toQAbstractSpinBox = HoppyP.id++instance M506.QWidgetConstPtr QAbstractSpinBox where+  toQWidgetConst (QAbstractSpinBox ptr') = M506.QWidgetConst $ castQAbstractSpinBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSpinBox -> HoppyF.Ptr QAbstractSpinBoxConst) ptr'+  toQWidgetConst (QAbstractSpinBoxGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQAbstractSpinBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSpinBox -> HoppyF.Ptr QAbstractSpinBoxConst) ptr'++instance M506.QWidgetPtr QAbstractSpinBox where+  toQWidget (QAbstractSpinBox ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQAbstractSpinBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSpinBox -> HoppyF.Ptr QAbstractSpinBoxConst) ptr'+  toQWidget (QAbstractSpinBoxGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQAbstractSpinBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSpinBox -> HoppyF.Ptr QAbstractSpinBoxConst) ptr'++instance M94.QObjectConstPtr QAbstractSpinBox where+  toQObjectConst (QAbstractSpinBox ptr') = M94.QObjectConst $ castQAbstractSpinBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSpinBox -> HoppyF.Ptr QAbstractSpinBoxConst) ptr'+  toQObjectConst (QAbstractSpinBoxGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQAbstractSpinBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSpinBox -> HoppyF.Ptr QAbstractSpinBoxConst) ptr'++instance M94.QObjectPtr QAbstractSpinBox where+  toQObject (QAbstractSpinBox ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractSpinBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSpinBox -> HoppyF.Ptr QAbstractSpinBoxConst) ptr'+  toQObject (QAbstractSpinBoxGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQAbstractSpinBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAbstractSpinBox -> HoppyF.Ptr QAbstractSpinBoxConst) ptr'++new :: (HoppyP.IO QAbstractSpinBox)+new =+  HoppyP.fmap QAbstractSpinBox+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QAbstractSpinBox)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QAbstractSpinBox+  (newWithParent' arg'1')++class QAbstractSpinBoxSuper a where+  downToQAbstractSpinBox :: a -> QAbstractSpinBox++instance QAbstractSpinBoxSuper M506.QWidget where+  downToQAbstractSpinBox = castQAbstractSpinBoxToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QAbstractSpinBoxConst $ castQWidgetToQAbstractSpinBox ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QAbstractSpinBoxConstGc fptr' $ castQWidgetToQAbstractSpinBox ptr'+instance QAbstractSpinBoxSuper M94.QObject where+  downToQAbstractSpinBox = castQAbstractSpinBoxToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QAbstractSpinBoxConst $ castQObjectToQAbstractSpinBox ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractSpinBoxConstGc fptr' $ castQObjectToQAbstractSpinBox ptr'++class QAbstractSpinBoxSuperConst a where+  downToQAbstractSpinBoxConst :: a -> QAbstractSpinBoxConst++instance QAbstractSpinBoxSuperConst M506.QWidgetConst where+  downToQAbstractSpinBoxConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QAbstractSpinBoxConst $ castQWidgetToQAbstractSpinBox ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QAbstractSpinBoxConstGc fptr' $ castQWidgetToQAbstractSpinBox ptr'+instance QAbstractSpinBoxSuperConst M94.QObjectConst where+  downToQAbstractSpinBoxConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QAbstractSpinBoxConst $ castQObjectToQAbstractSpinBox ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QAbstractSpinBoxConstGc fptr' $ castQObjectToQAbstractSpinBox ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QAbstractSpinBox)) QAbstractSpinBox where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAbstractSpinBox)) QAbstractSpinBox where+  decode = HoppyP.fmap QAbstractSpinBox . HoppyF.peek++data QAbstractSpinBoxButtonSymbols =+  UpDownArrows+  | PlusMinus+  | NoButtons+  | UnknownQAbstractSpinBoxButtonSymbols (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractSpinBoxButtonSymbols where+  fromCppEnum UpDownArrows = 0+  fromCppEnum PlusMinus = 1+  fromCppEnum NoButtons = 2+  fromCppEnum (UnknownQAbstractSpinBoxButtonSymbols n) = n+  +  toCppEnum (0) = UpDownArrows+  toCppEnum (1) = PlusMinus+  toCppEnum (2) = NoButtons+  toCppEnum n = UnknownQAbstractSpinBoxButtonSymbols n++instance HoppyP.Eq QAbstractSpinBoxButtonSymbols where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QAbstractSpinBoxButtonSymbols where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QAbstractSpinBoxCorrectionMode =+  CorrectToPreviousValue+  | CorrectToNearestValue+  | UnknownQAbstractSpinBoxCorrectionMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractSpinBoxCorrectionMode where+  fromCppEnum CorrectToPreviousValue = 0+  fromCppEnum CorrectToNearestValue = 1+  fromCppEnum (UnknownQAbstractSpinBoxCorrectionMode n) = n+  +  toCppEnum (0) = CorrectToPreviousValue+  toCppEnum (1) = CorrectToNearestValue+  toCppEnum n = UnknownQAbstractSpinBoxCorrectionMode n++instance HoppyP.Eq QAbstractSpinBoxCorrectionMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QAbstractSpinBoxCorrectionMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QAbstractSpinBoxStepEnabled = QAbstractSpinBoxStepEnabled (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QAbstractSpinBoxStepEnabledFlag QAbstractSpinBoxStepEnabled where+  enumToFlags = QAbstractSpinBoxStepEnabled . QtahFHR.fromCppEnum+  flagsToEnum (QAbstractSpinBoxStepEnabled x') = QtahFHR.toCppEnum x'++class IsQAbstractSpinBoxStepEnabled a where+  toQAbstractSpinBoxStepEnabled :: a -> QAbstractSpinBoxStepEnabled++instance IsQAbstractSpinBoxStepEnabled QAbstractSpinBoxStepEnabled where toQAbstractSpinBoxStepEnabled = QtahP.id+instance IsQAbstractSpinBoxStepEnabled QAbstractSpinBoxStepEnabledFlag where toQAbstractSpinBoxStepEnabled = QtahFlags.enumToFlags+instance IsQAbstractSpinBoxStepEnabled (HoppyFC.CInt) where toQAbstractSpinBoxStepEnabled = QtahFlags.numToFlags++stepDownEnabled :: QAbstractSpinBoxStepEnabled+stepDownEnabled = QAbstractSpinBoxStepEnabled (2)++stepNone :: QAbstractSpinBoxStepEnabled+stepNone = QAbstractSpinBoxStepEnabled (0)++stepUpEnabled :: QAbstractSpinBoxStepEnabled+stepUpEnabled = QAbstractSpinBoxStepEnabled (1)++instance QtahDB.Bits QAbstractSpinBoxStepEnabled where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QAbstractSpinBoxStepEnabledFlag =+  StepNone+  | StepUpEnabled+  | StepDownEnabled+  | UnknownQAbstractSpinBoxStepEnabledFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QAbstractSpinBoxStepEnabledFlag where+  fromCppEnum StepNone = 0+  fromCppEnum StepUpEnabled = 1+  fromCppEnum StepDownEnabled = 2+  fromCppEnum (UnknownQAbstractSpinBoxStepEnabledFlag n) = n+  +  toCppEnum (0) = StepNone+  toCppEnum (1) = StepUpEnabled+  toCppEnum (2) = StepDownEnabled+  toCppEnum n = UnknownQAbstractSpinBoxStepEnabledFlag n++instance HoppyP.Eq QAbstractSpinBoxStepEnabledFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QAbstractSpinBoxStepEnabledFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Widgets/QAction.hs view
@@ -0,0 +1,714 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QAction (+  castQActionToQObject,+  castQObjectToQAction,+  QActionValue (..),+  QActionConstPtr (..),+  actionGroup,+  autoRepeat,+  isCheckable,+  isChecked,+  isEnabled,+  font,+  icon,+  iconText,+  isIconVisibleInMenu,+  menu,+  menuRole,+  parentWidget,+  priority,+  isSeparator,+  statusTip,+  text,+  toolTip,+  isVisible,+  whatsThis,+  QActionPtr (..),+  setActionGroup,+  activate,+  setAutoRepeat,+  setCheckable,+  setChecked,+  setEnabled,+  setFont,+  hover,+  setIcon,+  setIconText,+  setIconVisibleInMenu,+  setMenu,+  setMenuRole,+  setSeparator,+  setDisabled,+  setPriority,+  showStatusText,+  setStatusTip,+  setText,+  toggle,+  setToolTip,+  trigger,+  setVisible,+  setWhatsThis,+  emitChanged,+  emitHovered,+  emitToggled,+  emitTriggered,+  QActionConst (..),+  castQActionToConst,+  QAction (..),+  castQActionToNonconst,+  new,+  newWithParent,+  newWithText,+  newWithTextAndParent,+  newWithIconAndText,+  newWithIconAndTextAndParent,+  QActionSuper (..),+  QActionSuperConst (..),+  QActionActionEvent (..),+  QActionMenuRole (..),+  QActionPriority (..),+  ) 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.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Gui.QFont as M276+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QIcon as M288+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QActionGroup as M370+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QMenu as M448+import {-# SOURCE #-} 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__QAction_new" new' ::  HoppyP.IO (HoppyF.Ptr QAction)+foreign import ccall "genpop__QAction_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QAction)+foreign import ccall "genpop__QAction_newWithText" newWithText' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QAction)+foreign import ccall "genpop__QAction_newWithTextAndParent" newWithTextAndParent' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QAction)+foreign import ccall "genpop__QAction_newWithIconAndText" newWithIconAndText' ::  HoppyF.Ptr M288.QIconConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QAction)+foreign import ccall "genpop__QAction_newWithIconAndTextAndParent" newWithIconAndTextAndParent' ::  HoppyF.Ptr M288.QIconConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QAction)+foreign import ccall "genpop__QAction_actionGroup" actionGroup' ::  HoppyF.Ptr QActionConst -> HoppyP.IO (HoppyF.Ptr M370.QActionGroup)+foreign import ccall "genpop__QAction_setActionGroup" setActionGroup' ::  HoppyF.Ptr QAction -> HoppyF.Ptr M370.QActionGroup -> HoppyP.IO ()+foreign import ccall "genpop__QAction_activate" activate' ::  HoppyF.Ptr QAction -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAction_autoRepeat" autoRepeat' ::  HoppyF.Ptr QActionConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAction_setAutoRepeat" setAutoRepeat' ::  HoppyF.Ptr QAction -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAction_isCheckable" isCheckable' ::  HoppyF.Ptr QActionConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAction_setCheckable" setCheckable' ::  HoppyF.Ptr QAction -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAction_isChecked" isChecked' ::  HoppyF.Ptr QActionConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAction_setChecked" setChecked' ::  HoppyF.Ptr QAction -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAction_isEnabled" isEnabled' ::  HoppyF.Ptr QActionConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAction_setEnabled" setEnabled' ::  HoppyF.Ptr QAction -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAction_font" font' ::  HoppyF.Ptr QActionConst -> HoppyP.IO (HoppyF.Ptr M276.QFontConst)+foreign import ccall "genpop__QAction_setFont" setFont' ::  HoppyF.Ptr QAction -> HoppyF.Ptr M276.QFontConst -> HoppyP.IO ()+foreign import ccall "genpop__QAction_hover" hover' ::  HoppyF.Ptr QAction -> HoppyP.IO ()+foreign import ccall "genpop__QAction_icon" icon' ::  HoppyF.Ptr QActionConst -> HoppyP.IO (HoppyF.Ptr M288.QIconConst)+foreign import ccall "genpop__QAction_setIcon" setIcon' ::  HoppyF.Ptr QAction -> HoppyF.Ptr M288.QIconConst -> HoppyP.IO ()+foreign import ccall "genpop__QAction_iconText" iconText' ::  HoppyF.Ptr QActionConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QAction_setIconText" setIconText' ::  HoppyF.Ptr QAction -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QAction_isIconVisibleInMenu" isIconVisibleInMenu' ::  HoppyF.Ptr QActionConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAction_setIconVisibleInMenu" setIconVisibleInMenu' ::  HoppyF.Ptr QAction -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAction_menu" menu' ::  HoppyF.Ptr QActionConst -> HoppyP.IO (HoppyF.Ptr M448.QMenu)+foreign import ccall "genpop__QAction_setMenu" setMenu' ::  HoppyF.Ptr QAction -> HoppyF.Ptr M448.QMenu -> HoppyP.IO ()+foreign import ccall "genpop__QAction_menuRole" menuRole' ::  HoppyF.Ptr QActionConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAction_setMenuRole" setMenuRole' ::  HoppyF.Ptr QAction -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAction_parentWidget" parentWidget' ::  HoppyF.Ptr QActionConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QAction_priority" priority' ::  HoppyF.Ptr QActionConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QAction_isSeparator" isSeparator' ::  HoppyF.Ptr QActionConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAction_setSeparator" setSeparator' ::  HoppyF.Ptr QAction -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAction_setDisabled" setDisabled' ::  HoppyF.Ptr QAction -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAction_setPriority" setPriority' ::  HoppyF.Ptr QAction -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QAction_showStatusText" showStatusText' ::  HoppyF.Ptr QAction -> HoppyF.Ptr M506.QWidget -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAction_statusTip" statusTip' ::  HoppyF.Ptr QActionConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QAction_setStatusTip" setStatusTip' ::  HoppyF.Ptr QAction -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QAction_text" text' ::  HoppyF.Ptr QActionConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QAction_setText" setText' ::  HoppyF.Ptr QAction -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QAction_toggle" toggle' ::  HoppyF.Ptr QAction -> HoppyP.IO ()+foreign import ccall "genpop__QAction_toolTip" toolTip' ::  HoppyF.Ptr QActionConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QAction_setToolTip" setToolTip' ::  HoppyF.Ptr QAction -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QAction_trigger" trigger' ::  HoppyF.Ptr QAction -> HoppyP.IO ()+foreign import ccall "genpop__QAction_isVisible" isVisible' ::  HoppyF.Ptr QActionConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QAction_setVisible" setVisible' ::  HoppyF.Ptr QAction -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAction_whatsThis" whatsThis' ::  HoppyF.Ptr QActionConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QAction_setWhatsThis" setWhatsThis' ::  HoppyF.Ptr QAction -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QAction_emitChanged" emitChanged' ::  HoppyF.Ptr QAction -> HoppyP.IO ()+foreign import ccall "genpop__QAction_emitHovered" emitHovered' ::  HoppyF.Ptr QAction -> HoppyP.IO ()+foreign import ccall "genpop__QAction_emitToggled" emitToggled' ::  HoppyF.Ptr QAction -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QAction_emitTriggered" emitTriggered' ::  HoppyF.Ptr QAction -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "gencast__QAction__QObject" castQActionToQObject :: HoppyF.Ptr QActionConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QAction" castQObjectToQAction :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QActionConst+foreign import ccall "gendel__QAction" delete'QAction :: HoppyF.Ptr QActionConst -> HoppyP.IO ()+foreign import ccall "&gendel__QAction" deletePtr'QAction :: HoppyF.FunPtr (HoppyF.Ptr QActionConst -> HoppyP.IO ())++class QActionValue a where+  withQActionPtr :: a -> (QActionConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QActionConstPtr a => QActionValue a where+  withQActionPtr = HoppyP.flip ($) . toQActionConst++class (M94.QObjectConstPtr this) => QActionConstPtr this where+  toQActionConst :: this -> QActionConst++actionGroup :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO M370.QActionGroup)+actionGroup arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M370.QActionGroup+  (actionGroup' arg'1')++autoRepeat :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+autoRepeat arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (autoRepeat' arg'1')++isCheckable :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isCheckable arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isCheckable' arg'1')++isChecked :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isChecked arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isChecked' arg'1')++isEnabled :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEnabled arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEnabled' arg'1')++font :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO M276.QFont)+font arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M276.QFontConst) =<<+  (font' arg'1')++icon :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO M288.QIcon)+icon arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M288.QIconConst) =<<+  (icon' arg'1')++iconText :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+iconText arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (iconText' arg'1')++isIconVisibleInMenu :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isIconVisibleInMenu arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isIconVisibleInMenu' arg'1')++menu :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO M448.QMenu)+menu arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M448.QMenu+  (menu' arg'1')++menuRole :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO QActionMenuRole)+menuRole arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (menuRole' arg'1')++parentWidget :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)+parentWidget arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (parentWidget' arg'1')++priority :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO QActionPriority)+priority arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (priority' arg'1')++isSeparator :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isSeparator arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSeparator' arg'1')++statusTip :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+statusTip arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (statusTip' arg'1')++text :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+text arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (text' arg'1')++toolTip :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+toolTip arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toolTip' arg'1')++isVisible :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isVisible arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isVisible' arg'1')++whatsThis :: (QActionValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+whatsThis arg'1 =+  withQActionPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (whatsThis' arg'1')++class (QActionConstPtr this, M94.QObjectPtr this) => QActionPtr this where+  toQAction :: this -> QAction++setActionGroup :: (QActionPtr this, M370.QActionGroupPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setActionGroup arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M370.toQActionGroup arg'2) $ \arg'2' ->+  (setActionGroup' arg'1' arg'2')++activate :: (QActionPtr this) => (this) {- ^ this -} -> (QActionActionEvent) -> (HoppyP.IO ())+activate arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (activate' arg'1' arg'2')++setAutoRepeat :: (QActionPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setAutoRepeat arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAutoRepeat' arg'1' arg'2')++setCheckable :: (QActionPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setCheckable arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setCheckable' arg'1' arg'2')++setChecked :: (QActionPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setChecked arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setChecked' arg'1' arg'2')++setEnabled :: (QActionPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setEnabled' arg'1' arg'2')++setFont :: (QActionPtr this, M276.QFontValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFont arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  M276.withQFontPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setFont' arg'1' arg'2')++hover :: (QActionPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+hover arg'1 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (hover' arg'1')++setIcon :: (QActionPtr this, M288.QIconValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setIcon arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  M288.withQIconPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setIcon' arg'1' arg'2')++setIconText :: (QActionPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setIconText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setIconText' arg'1' arg'2')++setIconVisibleInMenu :: (QActionPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setIconVisibleInMenu arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setIconVisibleInMenu' arg'1' arg'2')++setMenu :: (QActionPtr this, M448.QMenuPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setMenu arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M448.toQMenu arg'2) $ \arg'2' ->+  (setMenu' arg'1' arg'2')++setMenuRole :: (QActionPtr this) => (this) {- ^ this -} -> (QActionMenuRole) -> (HoppyP.IO ())+setMenuRole arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setMenuRole' arg'1' arg'2')++setSeparator :: (QActionPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setSeparator arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setSeparator' arg'1' arg'2')++setDisabled :: (QActionPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setDisabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setDisabled' arg'1' arg'2')++setPriority :: (QActionPtr this) => (this) {- ^ this -} -> (QActionPriority) -> (HoppyP.IO ())+setPriority arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setPriority' arg'1' arg'2')++showStatusText :: (QActionPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+showStatusText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (showStatusText' arg'1' arg'2')++setStatusTip :: (QActionPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setStatusTip arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setStatusTip' arg'1' arg'2')++setText :: (QActionPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setText' arg'1' arg'2')++toggle :: (QActionPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+toggle arg'1 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (toggle' arg'1')++setToolTip :: (QActionPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setToolTip arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setToolTip' arg'1' arg'2')++trigger :: (QActionPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+trigger arg'1 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (trigger' arg'1')++setVisible :: (QActionPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setVisible arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setVisible' arg'1' arg'2')++setWhatsThis :: (QActionPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setWhatsThis arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setWhatsThis' arg'1' arg'2')++emitChanged :: (QActionPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitChanged arg'1 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (emitChanged' arg'1')++emitHovered :: (QActionPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitHovered arg'1 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (emitHovered' arg'1')++emitToggled :: (QActionPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+emitToggled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (emitToggled' arg'1' arg'2')++emitTriggered :: (QActionPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+emitTriggered arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQAction arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (emitTriggered' arg'1' arg'2')++data QActionConst =+    QActionConst (HoppyF.Ptr QActionConst)+  | QActionConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QActionConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QActionConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QActionConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQActionToConst :: QAction -> QActionConst+castQActionToConst (QAction ptr') = QActionConst $ HoppyF.castPtr ptr'+castQActionToConst (QActionGc fptr' ptr') = QActionConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QActionConst where+  nullptr = QActionConst HoppyF.nullPtr+  +  withCppPtr (QActionConst ptr') f' = f' ptr'+  withCppPtr (QActionConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QActionConst ptr') = ptr'+  toPtr (QActionConstGc _ ptr') = ptr'+  +  touchCppPtr (QActionConst _) = HoppyP.return ()+  touchCppPtr (QActionConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QActionConst where+  delete (QActionConst ptr') = delete'QAction ptr'+  delete (QActionConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QActionConst", " object."]+  +  toGc this'@(QActionConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QActionConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAction :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QActionConstGc {}) = HoppyP.return this'++instance QActionConstPtr QActionConst where+  toQActionConst = HoppyP.id++instance M94.QObjectConstPtr QActionConst where+  toQObjectConst (QActionConst ptr') = M94.QObjectConst $ castQActionToQObject ptr'+  toQObjectConst (QActionConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQActionToQObject ptr'++data QAction =+    QAction (HoppyF.Ptr QAction)+  | QActionGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAction)+  deriving (HoppyP.Show)++instance HoppyP.Eq QAction where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QAction where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQActionToNonconst :: QActionConst -> QAction+castQActionToNonconst (QActionConst ptr') = QAction $ HoppyF.castPtr ptr'+castQActionToNonconst (QActionConstGc fptr' ptr') = QActionGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QAction where+  nullptr = QAction HoppyF.nullPtr+  +  withCppPtr (QAction ptr') f' = f' ptr'+  withCppPtr (QActionGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QAction ptr') = ptr'+  toPtr (QActionGc _ ptr') = ptr'+  +  touchCppPtr (QAction _) = HoppyP.return ()+  touchCppPtr (QActionGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QAction where+  delete (QAction ptr') = delete'QAction $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QActionConst)+  delete (QActionGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QAction", " object."]+  +  toGc this'@(QAction ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QActionGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QAction :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QActionGc {}) = HoppyP.return this'++instance QActionConstPtr QAction where+  toQActionConst (QAction ptr') = QActionConst $ (HoppyF.castPtr :: HoppyF.Ptr QAction -> HoppyF.Ptr QActionConst) ptr'+  toQActionConst (QActionGc fptr' ptr') = QActionConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QAction -> HoppyF.Ptr QActionConst) ptr'++instance QActionPtr QAction where+  toQAction = HoppyP.id++instance M94.QObjectConstPtr QAction where+  toQObjectConst (QAction ptr') = M94.QObjectConst $ castQActionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAction -> HoppyF.Ptr QActionConst) ptr'+  toQObjectConst (QActionGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQActionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAction -> HoppyF.Ptr QActionConst) ptr'++instance M94.QObjectPtr QAction where+  toQObject (QAction ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQActionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAction -> HoppyF.Ptr QActionConst) ptr'+  toQObject (QActionGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQActionToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QAction -> HoppyF.Ptr QActionConst) ptr'++new :: (HoppyP.IO QAction)+new =+  HoppyP.fmap QAction+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QAction)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QAction+  (newWithParent' arg'1')++newWithText :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QAction)+newWithText arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QAction+  (newWithText' arg'1')++newWithTextAndParent :: (M142.QStringValue arg'1, M94.QObjectPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QAction)+newWithTextAndParent arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'2) $ \arg'2' ->+  HoppyP.fmap QAction+  (newWithTextAndParent' arg'1' arg'2')++newWithIconAndText :: (M288.QIconValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QAction)+newWithIconAndText arg'1 arg'2 =+  M288.withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QAction+  (newWithIconAndText' arg'1' arg'2')++newWithIconAndTextAndParent :: (M288.QIconValue arg'1, M142.QStringValue arg'2, M94.QObjectPtr arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO QAction)+newWithIconAndTextAndParent arg'1 arg'2 arg'3 =+  M288.withQIconPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.withCppPtr (M94.toQObject arg'3) $ \arg'3' ->+  HoppyP.fmap QAction+  (newWithIconAndTextAndParent' arg'1' arg'2' arg'3')++class QActionSuper a where+  downToQAction :: a -> QAction++instance QActionSuper M94.QObject where+  downToQAction = castQActionToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QActionConst $ castQObjectToQAction ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QActionConstGc fptr' $ castQObjectToQAction ptr'++class QActionSuperConst a where+  downToQActionConst :: a -> QActionConst++instance QActionSuperConst M94.QObjectConst where+  downToQActionConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QActionConst $ castQObjectToQAction ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QActionConstGc fptr' $ castQObjectToQAction ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QAction)) QAction where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAction)) QAction where+  decode = HoppyP.fmap QAction . HoppyF.peek++data QActionActionEvent =+  Trigger+  | Hover+  | UnknownQActionActionEvent (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QActionActionEvent where+  fromCppEnum Trigger = 0+  fromCppEnum Hover = 1+  fromCppEnum (UnknownQActionActionEvent n) = n+  +  toCppEnum (0) = Trigger+  toCppEnum (1) = Hover+  toCppEnum n = UnknownQActionActionEvent n++instance HoppyP.Eq QActionActionEvent where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QActionActionEvent where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QActionMenuRole =+  NoRole+  | TextHeuristicRole+  | ApplicationSpecificRole+  | AboutQtRole+  | AboutRole+  | PreferencesRole+  | QuitRole+  | UnknownQActionMenuRole (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QActionMenuRole where+  fromCppEnum NoRole = 0+  fromCppEnum TextHeuristicRole = 1+  fromCppEnum ApplicationSpecificRole = 2+  fromCppEnum AboutQtRole = 3+  fromCppEnum AboutRole = 4+  fromCppEnum PreferencesRole = 5+  fromCppEnum QuitRole = 6+  fromCppEnum (UnknownQActionMenuRole n) = n+  +  toCppEnum (0) = NoRole+  toCppEnum (1) = TextHeuristicRole+  toCppEnum (2) = ApplicationSpecificRole+  toCppEnum (3) = AboutQtRole+  toCppEnum (4) = AboutRole+  toCppEnum (5) = PreferencesRole+  toCppEnum (6) = QuitRole+  toCppEnum n = UnknownQActionMenuRole n++instance HoppyP.Eq QActionMenuRole where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QActionMenuRole where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QActionPriority =+  LowPriority+  | NormalPriority+  | HighPriority+  | UnknownQActionPriority (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QActionPriority where+  fromCppEnum LowPriority = 0+  fromCppEnum NormalPriority = 128+  fromCppEnum HighPriority = 256+  fromCppEnum (UnknownQActionPriority n) = n+  +  toCppEnum (0) = LowPriority+  toCppEnum (128) = NormalPriority+  toCppEnum (256) = HighPriority+  toCppEnum n = UnknownQActionPriority n++instance HoppyP.Eq QActionPriority where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QActionPriority where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Widgets/QAction.hs-boot view
@@ -0,0 +1,85 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QAction (+  QActionValue (..),+  QActionConstPtr (..),+  QActionPtr (..),+  QActionConst (..),+  castQActionToConst,+  QAction (..),+  castQActionToNonconst,+  castQActionToQObject,+  QActionActionEvent,+  QActionMenuRole,+  QActionPriority,+  ) 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.Core.QObject as M94+import qualified Prelude as HoppyP+++class QActionValue a where+  withQActionPtr :: a -> (QActionConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QActionConstPtr a => QActionValue a++class (M94.QObjectConstPtr this) => QActionConstPtr this where+  toQActionConst :: this -> QActionConst++class (QActionConstPtr this, M94.QObjectPtr this) => QActionPtr this where+  toQAction :: this -> QAction++data QActionConst =+    QActionConst (HoppyF.Ptr QActionConst)+  | QActionConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QActionConst)++castQActionToConst :: QAction -> QActionConst++instance HoppyFHR.CppPtr QActionConst+instance HoppyFHR.Deletable QActionConst++instance QActionConstPtr QActionConst++instance M94.QObjectConstPtr QActionConst++data QAction =+    QAction (HoppyF.Ptr QAction)+  | QActionGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QAction)++castQActionToNonconst :: QActionConst -> QAction++instance HoppyFHR.CppPtr QAction+instance HoppyFHR.Deletable QAction++instance QActionConstPtr QAction++instance QActionPtr QAction++instance M94.QObjectConstPtr QAction++instance M94.QObjectPtr QAction+castQActionToQObject :: HoppyF.Ptr QActionConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QAction)) QAction++data QActionActionEvent+instance HoppyFHR.CppEnum (HoppyFC.CInt) QActionActionEvent+instance HoppyP.Eq QActionActionEvent+instance HoppyP.Ord QActionActionEvent+instance HoppyP.Show QActionActionEvent++data QActionMenuRole+instance HoppyFHR.CppEnum (HoppyFC.CInt) QActionMenuRole+instance HoppyP.Eq QActionMenuRole+instance HoppyP.Ord QActionMenuRole+instance HoppyP.Show QActionMenuRole++data QActionPriority+instance HoppyFHR.CppEnum (HoppyFC.CInt) QActionPriority+instance HoppyP.Eq QActionPriority+instance HoppyP.Ord QActionPriority+instance HoppyP.Show QActionPriority
src/Graphics/UI/Qtah/Generated/Widgets/QActionGroup.hs view
@@ -0,0 +1,295 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QActionGroup (+  castQActionGroupToQObject,+  castQObjectToQActionGroup,+  QActionGroupValue (..),+  QActionGroupConstPtr (..),+  checkedAction,+  isEnabled,+  isExclusive,+  isVisible,+  QActionGroupPtr (..),+  addAction,+  addNewAction,+  addNewActionWithIcon,+  setEnabled,+  setExclusive,+  removeAction,+  setDisabled,+  setVisible,+  emitHovered,+  emitTriggered,+  QActionGroupConst (..),+  castQActionGroupToConst,+  QActionGroup (..),+  castQActionGroupToNonconst,+  new,+  QActionGroupSuper (..),+  QActionGroupSuperConst (..),+  ) 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.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QIcon as M288+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QAction as M368+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QActionGroup_new" new' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QActionGroup)+foreign import ccall "genpop__QActionGroup_addAction" addAction' ::  HoppyF.Ptr QActionGroup -> HoppyF.Ptr M368.QAction -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QActionGroup_addNewAction" addNewAction' ::  HoppyF.Ptr QActionGroup -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QActionGroup_addNewActionWithIcon" addNewActionWithIcon' ::  HoppyF.Ptr QActionGroup -> HoppyF.Ptr M288.QIconConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QActionGroup_checkedAction" checkedAction' ::  HoppyF.Ptr QActionGroupConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QActionGroup_isEnabled" isEnabled' ::  HoppyF.Ptr QActionGroupConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QActionGroup_setEnabled" setEnabled' ::  HoppyF.Ptr QActionGroup -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QActionGroup_isExclusive" isExclusive' ::  HoppyF.Ptr QActionGroupConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QActionGroup_setExclusive" setExclusive' ::  HoppyF.Ptr QActionGroup -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QActionGroup_removeAction" removeAction' ::  HoppyF.Ptr QActionGroup -> HoppyF.Ptr M368.QAction -> HoppyP.IO ()+foreign import ccall "genpop__QActionGroup_setDisabled" setDisabled' ::  HoppyF.Ptr QActionGroup -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QActionGroup_isVisible" isVisible' ::  HoppyF.Ptr QActionGroupConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QActionGroup_setVisible" setVisible' ::  HoppyF.Ptr QActionGroup -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QActionGroup_emitHovered" emitHovered' ::  HoppyF.Ptr QActionGroup -> HoppyF.Ptr M368.QAction -> HoppyP.IO ()+foreign import ccall "genpop__QActionGroup_emitTriggered" emitTriggered' ::  HoppyF.Ptr QActionGroup -> HoppyF.Ptr M368.QAction -> HoppyP.IO ()+foreign import ccall "gencast__QActionGroup__QObject" castQActionGroupToQObject :: HoppyF.Ptr QActionGroupConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QActionGroup" castQObjectToQActionGroup :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QActionGroupConst+foreign import ccall "gendel__QActionGroup" delete'QActionGroup :: HoppyF.Ptr QActionGroupConst -> HoppyP.IO ()+foreign import ccall "&gendel__QActionGroup" deletePtr'QActionGroup :: HoppyF.FunPtr (HoppyF.Ptr QActionGroupConst -> HoppyP.IO ())++class QActionGroupValue a where+  withQActionGroupPtr :: a -> (QActionGroupConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QActionGroupConstPtr a => QActionGroupValue a where+  withQActionGroupPtr = HoppyP.flip ($) . toQActionGroupConst++class (M94.QObjectConstPtr this) => QActionGroupConstPtr this where+  toQActionGroupConst :: this -> QActionGroupConst++checkedAction :: (QActionGroupValue this) => (this) {- ^ this -} -> (HoppyP.IO M368.QAction)+checkedAction arg'1 =+  withQActionGroupPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M368.QAction+  (checkedAction' arg'1')++isEnabled :: (QActionGroupValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEnabled arg'1 =+  withQActionGroupPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEnabled' arg'1')++isExclusive :: (QActionGroupValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isExclusive arg'1 =+  withQActionGroupPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isExclusive' arg'1')++isVisible :: (QActionGroupValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isVisible arg'1 =+  withQActionGroupPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isVisible' arg'1')++class (QActionGroupConstPtr this, M94.QObjectPtr this) => QActionGroupPtr this where+  toQActionGroup :: this -> QActionGroup++addAction :: (QActionGroupPtr this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M368.QAction)+addAction arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQActionGroup arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->+  HoppyP.fmap M368.QAction+  (addAction' arg'1' arg'2')++addNewAction :: (QActionGroupPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M368.QAction)+addNewAction arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQActionGroup arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap M368.QAction+  (addNewAction' arg'1' arg'2')++addNewActionWithIcon :: (QActionGroupPtr this, M288.QIconValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO M368.QAction)+addNewActionWithIcon arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQActionGroup 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 M368.QAction+  (addNewActionWithIcon' arg'1' arg'2' arg'3')++setEnabled :: (QActionGroupPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQActionGroup arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setEnabled' arg'1' arg'2')++setExclusive :: (QActionGroupPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setExclusive arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQActionGroup arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setExclusive' arg'1' arg'2')++removeAction :: (QActionGroupPtr this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+removeAction arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQActionGroup arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->+  (removeAction' arg'1' arg'2')++setDisabled :: (QActionGroupPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setDisabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQActionGroup arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setDisabled' arg'1' arg'2')++setVisible :: (QActionGroupPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setVisible arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQActionGroup arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setVisible' arg'1' arg'2')++emitHovered :: (QActionGroupPtr this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitHovered arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQActionGroup arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->+  (emitHovered' arg'1' arg'2')++emitTriggered :: (QActionGroupPtr this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitTriggered arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQActionGroup arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->+  (emitTriggered' arg'1' arg'2')++data QActionGroupConst =+    QActionGroupConst (HoppyF.Ptr QActionGroupConst)+  | QActionGroupConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QActionGroupConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QActionGroupConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QActionGroupConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQActionGroupToConst :: QActionGroup -> QActionGroupConst+castQActionGroupToConst (QActionGroup ptr') = QActionGroupConst $ HoppyF.castPtr ptr'+castQActionGroupToConst (QActionGroupGc fptr' ptr') = QActionGroupConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QActionGroupConst where+  nullptr = QActionGroupConst HoppyF.nullPtr+  +  withCppPtr (QActionGroupConst ptr') f' = f' ptr'+  withCppPtr (QActionGroupConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QActionGroupConst ptr') = ptr'+  toPtr (QActionGroupConstGc _ ptr') = ptr'+  +  touchCppPtr (QActionGroupConst _) = HoppyP.return ()+  touchCppPtr (QActionGroupConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QActionGroupConst where+  delete (QActionGroupConst ptr') = delete'QActionGroup ptr'+  delete (QActionGroupConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QActionGroupConst", " object."]+  +  toGc this'@(QActionGroupConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QActionGroupConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QActionGroup :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QActionGroupConstGc {}) = HoppyP.return this'++instance QActionGroupConstPtr QActionGroupConst where+  toQActionGroupConst = HoppyP.id++instance M94.QObjectConstPtr QActionGroupConst where+  toQObjectConst (QActionGroupConst ptr') = M94.QObjectConst $ castQActionGroupToQObject ptr'+  toQObjectConst (QActionGroupConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQActionGroupToQObject ptr'++data QActionGroup =+    QActionGroup (HoppyF.Ptr QActionGroup)+  | QActionGroupGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QActionGroup)+  deriving (HoppyP.Show)++instance HoppyP.Eq QActionGroup where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QActionGroup where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQActionGroupToNonconst :: QActionGroupConst -> QActionGroup+castQActionGroupToNonconst (QActionGroupConst ptr') = QActionGroup $ HoppyF.castPtr ptr'+castQActionGroupToNonconst (QActionGroupConstGc fptr' ptr') = QActionGroupGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QActionGroup where+  nullptr = QActionGroup HoppyF.nullPtr+  +  withCppPtr (QActionGroup ptr') f' = f' ptr'+  withCppPtr (QActionGroupGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QActionGroup ptr') = ptr'+  toPtr (QActionGroupGc _ ptr') = ptr'+  +  touchCppPtr (QActionGroup _) = HoppyP.return ()+  touchCppPtr (QActionGroupGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QActionGroup where+  delete (QActionGroup ptr') = delete'QActionGroup $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QActionGroupConst)+  delete (QActionGroupGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QActionGroup", " object."]+  +  toGc this'@(QActionGroup ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QActionGroupGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QActionGroup :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QActionGroupGc {}) = HoppyP.return this'++instance QActionGroupConstPtr QActionGroup where+  toQActionGroupConst (QActionGroup ptr') = QActionGroupConst $ (HoppyF.castPtr :: HoppyF.Ptr QActionGroup -> HoppyF.Ptr QActionGroupConst) ptr'+  toQActionGroupConst (QActionGroupGc fptr' ptr') = QActionGroupConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QActionGroup -> HoppyF.Ptr QActionGroupConst) ptr'++instance QActionGroupPtr QActionGroup where+  toQActionGroup = HoppyP.id++instance M94.QObjectConstPtr QActionGroup where+  toQObjectConst (QActionGroup ptr') = M94.QObjectConst $ castQActionGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QActionGroup -> HoppyF.Ptr QActionGroupConst) ptr'+  toQObjectConst (QActionGroupGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQActionGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QActionGroup -> HoppyF.Ptr QActionGroupConst) ptr'++instance M94.QObjectPtr QActionGroup where+  toQObject (QActionGroup ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQActionGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QActionGroup -> HoppyF.Ptr QActionGroupConst) ptr'+  toQObject (QActionGroupGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQActionGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QActionGroup -> HoppyF.Ptr QActionGroupConst) ptr'++new :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QActionGroup)+new arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QActionGroup+  (new' arg'1')++class QActionGroupSuper a where+  downToQActionGroup :: a -> QActionGroup++instance QActionGroupSuper M94.QObject where+  downToQActionGroup = castQActionGroupToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QActionGroupConst $ castQObjectToQActionGroup ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QActionGroupConstGc fptr' $ castQObjectToQActionGroup ptr'++class QActionGroupSuperConst a where+  downToQActionGroupConst :: a -> QActionGroupConst++instance QActionGroupSuperConst M94.QObjectConst where+  downToQActionGroupConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QActionGroupConst $ castQObjectToQActionGroup ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QActionGroupConstGc fptr' $ castQObjectToQActionGroup ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QActionGroup)) QActionGroup where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QActionGroup)) QActionGroup where+  decode = HoppyP.fmap QActionGroup . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Widgets/QActionGroup.hs-boot view
@@ -0,0 +1,63 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QActionGroup (+  QActionGroupValue (..),+  QActionGroupConstPtr (..),+  QActionGroupPtr (..),+  QActionGroupConst (..),+  castQActionGroupToConst,+  QActionGroup (..),+  castQActionGroupToNonconst,+  castQActionGroupToQObject,+  ) 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 Prelude as HoppyP+++class QActionGroupValue a where+  withQActionGroupPtr :: a -> (QActionGroupConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QActionGroupConstPtr a => QActionGroupValue a++class (M94.QObjectConstPtr this) => QActionGroupConstPtr this where+  toQActionGroupConst :: this -> QActionGroupConst++class (QActionGroupConstPtr this, M94.QObjectPtr this) => QActionGroupPtr this where+  toQActionGroup :: this -> QActionGroup++data QActionGroupConst =+    QActionGroupConst (HoppyF.Ptr QActionGroupConst)+  | QActionGroupConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QActionGroupConst)++castQActionGroupToConst :: QActionGroup -> QActionGroupConst++instance HoppyFHR.CppPtr QActionGroupConst+instance HoppyFHR.Deletable QActionGroupConst++instance QActionGroupConstPtr QActionGroupConst++instance M94.QObjectConstPtr QActionGroupConst++data QActionGroup =+    QActionGroup (HoppyF.Ptr QActionGroup)+  | QActionGroupGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QActionGroup)++castQActionGroupToNonconst :: QActionGroupConst -> QActionGroup++instance HoppyFHR.CppPtr QActionGroup+instance HoppyFHR.Deletable QActionGroup++instance QActionGroupConstPtr QActionGroup++instance QActionGroupPtr QActionGroup++instance M94.QObjectConstPtr QActionGroup++instance M94.QObjectPtr QActionGroup+castQActionGroupToQObject :: HoppyF.Ptr QActionGroupConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QActionGroup)) QActionGroup
src/Graphics/UI/Qtah/Generated/Widgets/QApplication.hs view
@@ -0,0 +1,681 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QApplication (+  castQApplicationToQCoreApplication,+  castQCoreApplicationToQApplication,+  castQApplicationToQObject,+  castQObjectToQApplication,+  QApplicationValue (..),+  QApplicationConstPtr (..),+  autoSipEnabled,+  isSessionRestored,+  sessionId,+  sessionKey,+  startDragDistance,+  startDragTime,+  styleSheet,+  windowIcon,+  QApplicationPtr (..),+  setAutoSipEnabled,+  setStartDragDistance,+  setStartDragTime,+  setStyleSheet,+  setWindowIcon,+  emitFocusChanged,+  emitFontDatabaseChanged,+  emitLastWindowClosed,+  new,+  aboutQt,+  activeModalWidget,+  activePopupWidget,+  activeWindow,+  setActiveWindow,+  alert,+  allWidgets,+  beep,+  clipboard,+  closeAllWindows,+  colorSpec,+  setColorSpec,+  cursorFlashTime,+  setCursorFlashTime,+  desktopSettingsAware,+  setDesktopSettingsAware,+  doubleClickInterval,+  setDoubleClickInterval,+  focusWidget,+  font,+  fontWithWidget,+  fontWithClass,+  globalStrut,+  setGlobalStrut,+  isLeftToRight,+  isRightToLeft,+  keyboardInputInterval,+  layoutDirection,+  quitOnLastWindowClosed,+  restoreOverrideCursor,+  setFont,+  setFontWithClass,+  setKeyboardInputInterval,+  setLayoutDirection,+  setQuitOnLastWindowClosed,+  topLevelAtPoint,+  topLevelAtRaw,+  wheelScrollLines,+  setWheelScrollLines,+  widgetAtPoint,+  widgetAtRaw,+  QApplicationConst (..),+  castQApplicationToConst,+  QApplication (..),+  castQApplicationToNonconst,+  QApplicationSuper (..),+  QApplicationSuperConst (..),+  ) 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.HSize as HSize+import qualified Graphics.UI.Qtah.Generated.Core.QCoreApplication as M20+import qualified Graphics.UI.Qtah.Generated.Core.QList.QWidget as M210+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.QSize as M134+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QStringList as M144+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Gui.QClipboard as M248+import qualified Graphics.UI.Qtah.Generated.Gui.QFont as M276+import qualified Graphics.UI.Qtah.Generated.Gui.QIcon as M288+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__QApplication_new" new' ::  HoppyF.Ptr M144.QStringListConst -> HoppyP.IO (HoppyF.Ptr QApplication)+foreign import ccall "genpop__QApplication_aboutQt" aboutQt' ::  HoppyP.IO ()+foreign import ccall "genpop__QApplication_activeModalWidget" activeModalWidget' ::  HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QApplication_activePopupWidget" activePopupWidget' ::  HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QApplication_activeWindow" activeWindow' ::  HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QApplication_setActiveWindow" setActiveWindow' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_alert" alert' ::  HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_allWidgets" allWidgets' ::  HoppyP.IO (HoppyF.Ptr M210.QListQWidgetConst)+foreign import ccall "genpop__QApplication_autoSipEnabled" autoSipEnabled' ::  HoppyF.Ptr QApplicationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QApplication_setAutoSipEnabled" setAutoSipEnabled' ::  HoppyF.Ptr QApplication -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_beep" beep' ::  HoppyP.IO ()+foreign import ccall "genpop__QApplication_clipboard" clipboard' ::  HoppyP.IO (HoppyF.Ptr M248.QClipboard)+foreign import ccall "genpop__QApplication_closeAllWindows" closeAllWindows' ::  HoppyP.IO ()+foreign import ccall "genpop__QApplication_colorSpec" colorSpec' ::  HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QApplication_setColorSpec" setColorSpec' ::  HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_cursorFlashTime" cursorFlashTime' ::  HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QApplication_setCursorFlashTime" setCursorFlashTime' ::  HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_desktopSettingsAware" desktopSettingsAware' ::  HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QApplication_setDesktopSettingsAware" setDesktopSettingsAware' ::  HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_doubleClickInterval" doubleClickInterval' ::  HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QApplication_setDoubleClickInterval" setDoubleClickInterval' ::  HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_focusWidget" focusWidget' ::  HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QApplication_font" font' ::  HoppyP.IO (HoppyF.Ptr M276.QFontConst)+foreign import ccall "genpop__QApplication_fontWithWidget" fontWithWidget' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr M276.QFontConst)+foreign import ccall "genpop__QApplication_fontWithClass" fontWithClass' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M276.QFontConst)+foreign import ccall "genpop__QApplication_globalStrut" globalStrut' ::  HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QApplication_setGlobalStrut" setGlobalStrut' ::  HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_isLeftToRight" isLeftToRight' ::  HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QApplication_isRightToLeft" isRightToLeft' ::  HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QApplication_isSessionRestored" isSessionRestored' ::  HoppyF.Ptr QApplicationConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QApplication_keyboardInputInterval" keyboardInputInterval' ::  HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QApplication_layoutDirection" layoutDirection' ::  HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QApplication_quitOnLastWindowClosed" quitOnLastWindowClosed' ::  HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QApplication_restoreOverrideCursor" restoreOverrideCursor' ::  HoppyP.IO ()+foreign import ccall "genpop__QApplication_sessionId" sessionId' ::  HoppyF.Ptr QApplicationConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QApplication_sessionKey" sessionKey' ::  HoppyF.Ptr QApplicationConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QApplication_setFont" setFont' ::  HoppyF.Ptr M276.QFontConst -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_setFontWithClass" setFontWithClass' ::  HoppyF.Ptr M276.QFontConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_setKeyboardInputInterval" setKeyboardInputInterval' ::  HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_setLayoutDirection" setLayoutDirection' ::  HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_setQuitOnLastWindowClosed" setQuitOnLastWindowClosed' ::  HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_startDragDistance" startDragDistance' ::  HoppyF.Ptr QApplicationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QApplication_setStartDragDistance" setStartDragDistance' ::  HoppyF.Ptr QApplication -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_startDragTime" startDragTime' ::  HoppyF.Ptr QApplicationConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QApplication_setStartDragTime" setStartDragTime' ::  HoppyF.Ptr QApplication -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_styleSheet" styleSheet' ::  HoppyF.Ptr QApplicationConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QApplication_setStyleSheet" setStyleSheet' ::  HoppyF.Ptr QApplication -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_topLevelAtPoint" topLevelAtPoint' ::  HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QApplication_topLevelAtRaw" topLevelAtRaw' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QApplication_wheelScrollLines" wheelScrollLines' ::  HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QApplication_setWheelScrollLines" setWheelScrollLines' ::  HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_widgetAtPoint" widgetAtPoint' ::  HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QApplication_widgetAtRaw" widgetAtRaw' ::  HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QApplication_windowIcon" windowIcon' ::  HoppyF.Ptr QApplicationConst -> HoppyP.IO (HoppyF.Ptr M288.QIconConst)+foreign import ccall "genpop__QApplication_setWindowIcon" setWindowIcon' ::  HoppyF.Ptr QApplication -> HoppyF.Ptr M288.QIconConst -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_emitFocusChanged" emitFocusChanged' ::  HoppyF.Ptr QApplication -> HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_emitFontDatabaseChanged" emitFontDatabaseChanged' ::  HoppyF.Ptr QApplication -> HoppyP.IO ()+foreign import ccall "genpop__QApplication_emitLastWindowClosed" emitLastWindowClosed' ::  HoppyF.Ptr QApplication -> HoppyP.IO ()+foreign import ccall "gencast__QApplication__QCoreApplication" castQApplicationToQCoreApplication :: HoppyF.Ptr QApplicationConst -> HoppyF.Ptr M20.QCoreApplicationConst+foreign import ccall "gencast__QCoreApplication__QApplication" castQCoreApplicationToQApplication :: HoppyF.Ptr M20.QCoreApplicationConst -> HoppyF.Ptr QApplicationConst+foreign import ccall "gencast__QApplication__QObject" castQApplicationToQObject :: HoppyF.Ptr QApplicationConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QApplication" castQObjectToQApplication :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QApplicationConst+foreign import ccall "gendel__QApplication" delete'QApplication :: HoppyF.Ptr QApplicationConst -> HoppyP.IO ()+foreign import ccall "&gendel__QApplication" deletePtr'QApplication :: HoppyF.FunPtr (HoppyF.Ptr QApplicationConst -> HoppyP.IO ())++class QApplicationValue a where+  withQApplicationPtr :: a -> (QApplicationConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QApplicationConstPtr a => QApplicationValue a where+  withQApplicationPtr = HoppyP.flip ($) . toQApplicationConst++class (M20.QCoreApplicationConstPtr this) => QApplicationConstPtr this where+  toQApplicationConst :: this -> QApplicationConst++autoSipEnabled :: (QApplicationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+autoSipEnabled arg'1 =+  withQApplicationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (autoSipEnabled' arg'1')++isSessionRestored :: (QApplicationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isSessionRestored arg'1 =+  withQApplicationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSessionRestored' arg'1')++sessionId :: (QApplicationValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+sessionId arg'1 =+  withQApplicationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (sessionId' arg'1')++sessionKey :: (QApplicationValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+sessionKey arg'1 =+  withQApplicationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (sessionKey' arg'1')++startDragDistance :: (QApplicationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+startDragDistance arg'1 =+  withQApplicationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (startDragDistance' arg'1')++startDragTime :: (QApplicationValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+startDragTime arg'1 =+  withQApplicationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (startDragTime' arg'1')++styleSheet :: (QApplicationValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+styleSheet arg'1 =+  withQApplicationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (styleSheet' arg'1')++windowIcon :: (QApplicationValue this) => (this) {- ^ this -} -> (HoppyP.IO M288.QIcon)+windowIcon arg'1 =+  withQApplicationPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M288.QIconConst) =<<+  (windowIcon' arg'1')++class (QApplicationConstPtr this, M20.QCoreApplicationPtr this) => QApplicationPtr this where+  toQApplication :: this -> QApplication++setAutoSipEnabled :: (QApplicationPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setAutoSipEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQApplication arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAutoSipEnabled' arg'1' arg'2')++setStartDragDistance :: (QApplicationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setStartDragDistance arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQApplication arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setStartDragDistance' arg'1' arg'2')++setStartDragTime :: (QApplicationPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setStartDragTime arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQApplication arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setStartDragTime' arg'1' arg'2')++setStyleSheet :: (QApplicationPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setStyleSheet arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQApplication arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setStyleSheet' arg'1' arg'2')++setWindowIcon :: (QApplicationPtr this, M288.QIconValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setWindowIcon arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQApplication arg'1) $ \arg'1' ->+  M288.withQIconPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setWindowIcon' arg'1' arg'2')++emitFocusChanged :: (QApplicationPtr this, M506.QWidgetPtr arg'2, M506.QWidgetPtr arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+emitFocusChanged arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQApplication arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'3) $ \arg'3' ->+  (emitFocusChanged' arg'1' arg'2' arg'3')++emitFontDatabaseChanged :: (QApplicationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitFontDatabaseChanged arg'1 =+  HoppyFHR.withCppPtr (toQApplication arg'1) $ \arg'1' ->+  (emitFontDatabaseChanged' arg'1')++emitLastWindowClosed :: (QApplicationPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitLastWindowClosed arg'1 =+  HoppyFHR.withCppPtr (toQApplication arg'1) $ \arg'1' ->+  (emitLastWindowClosed' arg'1')++new :: (M144.QStringListValue arg'1) => (arg'1) -> (HoppyP.IO QApplication)+new arg'1 =+  M144.withQStringListPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QApplication+  (new' arg'1')++aboutQt :: (HoppyP.IO ())+aboutQt =+  (aboutQt')++activeModalWidget :: (HoppyP.IO M506.QWidget)+activeModalWidget =+  HoppyP.fmap M506.QWidget+  (activeModalWidget')++activePopupWidget :: (HoppyP.IO M506.QWidget)+activePopupWidget =+  HoppyP.fmap M506.QWidget+  (activePopupWidget')++activeWindow :: (HoppyP.IO M506.QWidget)+activeWindow =+  HoppyP.fmap M506.QWidget+  (activeWindow')++setActiveWindow :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO ())+setActiveWindow arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  (setActiveWindow' arg'1')++alert :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.Int) -> (HoppyP.IO ())+alert arg'1 arg'2 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (alert' arg'1' arg'2')++allWidgets :: (HoppyP.IO [M506.QWidget])+allWidgets =+  (HoppyFHR.decodeAndDelete . M210.QListQWidgetConst) =<<+  (allWidgets')++beep :: (HoppyP.IO ())+beep =+  (beep')++clipboard :: (HoppyP.IO M248.QClipboard)+clipboard =+  HoppyP.fmap M248.QClipboard+  (clipboard')++closeAllWindows :: (HoppyP.IO ())+closeAllWindows =+  (closeAllWindows')++colorSpec :: (HoppyP.IO HoppyP.Int)+colorSpec =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (colorSpec')++setColorSpec :: (HoppyP.Int) -> (HoppyP.IO ())+setColorSpec arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (setColorSpec' arg'1')++cursorFlashTime :: (HoppyP.IO HoppyP.Int)+cursorFlashTime =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (cursorFlashTime')++setCursorFlashTime :: (HoppyP.Int) -> (HoppyP.IO ())+setCursorFlashTime arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (setCursorFlashTime' arg'1')++desktopSettingsAware :: (HoppyP.IO HoppyP.Bool)+desktopSettingsAware =+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (desktopSettingsAware')++setDesktopSettingsAware :: (HoppyP.Bool) -> (HoppyP.IO ())+setDesktopSettingsAware arg'1 =+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'1 >>= \arg'1' ->+  (setDesktopSettingsAware' arg'1')++doubleClickInterval :: (HoppyP.IO HoppyP.Int)+doubleClickInterval =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (doubleClickInterval')++setDoubleClickInterval :: (HoppyP.Int) -> (HoppyP.IO ())+setDoubleClickInterval arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (setDoubleClickInterval' arg'1')++focusWidget :: (HoppyP.IO M506.QWidget)+focusWidget =+  HoppyP.fmap M506.QWidget+  (focusWidget')++font :: (HoppyP.IO M276.QFont)+font =+  (HoppyFHR.decodeAndDelete . M276.QFontConst) =<<+  (font')++fontWithWidget :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO M276.QFont)+fontWithWidget arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M276.QFontConst) =<<+  (fontWithWidget' arg'1')++fontWithClass :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO M276.QFont)+fontWithClass arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M276.QFontConst) =<<+  (fontWithClass' arg'1')++globalStrut :: (HoppyP.IO HSize.HSize)+globalStrut =+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (globalStrut')++setGlobalStrut :: (M134.QSizeValue arg'1) => (arg'1) -> (HoppyP.IO ())+setGlobalStrut arg'1 =+  M134.withQSizePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (setGlobalStrut' arg'1')++isLeftToRight :: (HoppyP.IO HoppyP.Bool)+isLeftToRight =+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isLeftToRight')++isRightToLeft :: (HoppyP.IO HoppyP.Bool)+isRightToLeft =+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isRightToLeft')++keyboardInputInterval :: (HoppyP.IO HoppyP.Int)+keyboardInputInterval =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (keyboardInputInterval')++layoutDirection :: (HoppyP.IO M190.QtLayoutDirection)+layoutDirection =+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (layoutDirection')++quitOnLastWindowClosed :: (HoppyP.IO HoppyP.Bool)+quitOnLastWindowClosed =+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (quitOnLastWindowClosed')++restoreOverrideCursor :: (HoppyP.IO ())+restoreOverrideCursor =+  (restoreOverrideCursor')++setFont :: (M276.QFontValue arg'1) => (arg'1) -> (HoppyP.IO ())+setFont arg'1 =+  M276.withQFontPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (setFont' arg'1')++setFontWithClass :: (M276.QFontValue arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO ())+setFontWithClass arg'1 arg'2 =+  M276.withQFontPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setFontWithClass' arg'1' arg'2')++setKeyboardInputInterval :: (HoppyP.Int) -> (HoppyP.IO ())+setKeyboardInputInterval arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (setKeyboardInputInterval' arg'1')++setLayoutDirection :: (M190.QtLayoutDirection) -> (HoppyP.IO ())+setLayoutDirection arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  (setLayoutDirection' arg'1')++setQuitOnLastWindowClosed :: (HoppyP.Bool) -> (HoppyP.IO ())+setQuitOnLastWindowClosed arg'1 =+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'1 >>= \arg'1' ->+  (setQuitOnLastWindowClosed' arg'1')++topLevelAtPoint :: (M114.QPointValue arg'1) => (arg'1) -> (HoppyP.IO M506.QWidget)+topLevelAtPoint arg'1 =+  M114.withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (topLevelAtPoint' arg'1')++topLevelAtRaw :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO M506.QWidget)+topLevelAtRaw arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M506.QWidget+  (topLevelAtRaw' arg'1' arg'2')++wheelScrollLines :: (HoppyP.IO HoppyP.Int)+wheelScrollLines =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (wheelScrollLines')++setWheelScrollLines :: (HoppyP.Int) -> (HoppyP.IO ())+setWheelScrollLines arg'1 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (setWheelScrollLines' arg'1')++widgetAtPoint :: (M114.QPointValue arg'1) => (arg'1) -> (HoppyP.IO M506.QWidget)+widgetAtPoint arg'1 =+  M114.withQPointPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (widgetAtPoint' arg'1')++widgetAtRaw :: (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO M506.QWidget)+widgetAtRaw arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M506.QWidget+  (widgetAtRaw' arg'1' arg'2')++data QApplicationConst =+    QApplicationConst (HoppyF.Ptr QApplicationConst)+  | QApplicationConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QApplicationConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QApplicationConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QApplicationConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQApplicationToConst :: QApplication -> QApplicationConst+castQApplicationToConst (QApplication ptr') = QApplicationConst $ HoppyF.castPtr ptr'+castQApplicationToConst (QApplicationGc fptr' ptr') = QApplicationConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QApplicationConst where+  nullptr = QApplicationConst HoppyF.nullPtr+  +  withCppPtr (QApplicationConst ptr') f' = f' ptr'+  withCppPtr (QApplicationConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QApplicationConst ptr') = ptr'+  toPtr (QApplicationConstGc _ ptr') = ptr'+  +  touchCppPtr (QApplicationConst _) = HoppyP.return ()+  touchCppPtr (QApplicationConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QApplicationConst where+  delete (QApplicationConst ptr') = delete'QApplication ptr'+  delete (QApplicationConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QApplicationConst", " object."]+  +  toGc this'@(QApplicationConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QApplicationConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QApplication :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QApplicationConstGc {}) = HoppyP.return this'++instance QApplicationConstPtr QApplicationConst where+  toQApplicationConst = HoppyP.id++instance M20.QCoreApplicationConstPtr QApplicationConst where+  toQCoreApplicationConst (QApplicationConst ptr') = M20.QCoreApplicationConst $ castQApplicationToQCoreApplication ptr'+  toQCoreApplicationConst (QApplicationConstGc fptr' ptr') = M20.QCoreApplicationConstGc fptr' $ castQApplicationToQCoreApplication ptr'++instance M94.QObjectConstPtr QApplicationConst where+  toQObjectConst (QApplicationConst ptr') = M94.QObjectConst $ castQApplicationToQObject ptr'+  toQObjectConst (QApplicationConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQApplicationToQObject ptr'++data QApplication =+    QApplication (HoppyF.Ptr QApplication)+  | QApplicationGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QApplication)+  deriving (HoppyP.Show)++instance HoppyP.Eq QApplication where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QApplication where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQApplicationToNonconst :: QApplicationConst -> QApplication+castQApplicationToNonconst (QApplicationConst ptr') = QApplication $ HoppyF.castPtr ptr'+castQApplicationToNonconst (QApplicationConstGc fptr' ptr') = QApplicationGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QApplication where+  nullptr = QApplication HoppyF.nullPtr+  +  withCppPtr (QApplication ptr') f' = f' ptr'+  withCppPtr (QApplicationGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QApplication ptr') = ptr'+  toPtr (QApplicationGc _ ptr') = ptr'+  +  touchCppPtr (QApplication _) = HoppyP.return ()+  touchCppPtr (QApplicationGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QApplication where+  delete (QApplication ptr') = delete'QApplication $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QApplicationConst)+  delete (QApplicationGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QApplication", " object."]+  +  toGc this'@(QApplication ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QApplicationGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QApplication :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QApplicationGc {}) = HoppyP.return this'++instance QApplicationConstPtr QApplication where+  toQApplicationConst (QApplication ptr') = QApplicationConst $ (HoppyF.castPtr :: HoppyF.Ptr QApplication -> HoppyF.Ptr QApplicationConst) ptr'+  toQApplicationConst (QApplicationGc fptr' ptr') = QApplicationConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QApplication -> HoppyF.Ptr QApplicationConst) ptr'++instance QApplicationPtr QApplication where+  toQApplication = HoppyP.id++instance M20.QCoreApplicationConstPtr QApplication where+  toQCoreApplicationConst (QApplication ptr') = M20.QCoreApplicationConst $ castQApplicationToQCoreApplication $ (HoppyF.castPtr :: HoppyF.Ptr QApplication -> HoppyF.Ptr QApplicationConst) ptr'+  toQCoreApplicationConst (QApplicationGc fptr' ptr') = M20.QCoreApplicationConstGc fptr' $ castQApplicationToQCoreApplication $ (HoppyF.castPtr :: HoppyF.Ptr QApplication -> HoppyF.Ptr QApplicationConst) ptr'++instance M20.QCoreApplicationPtr QApplication where+  toQCoreApplication (QApplication ptr') = M20.QCoreApplication $ (HoppyF.castPtr :: HoppyF.Ptr M20.QCoreApplicationConst -> HoppyF.Ptr M20.QCoreApplication) $ castQApplicationToQCoreApplication $ (HoppyF.castPtr :: HoppyF.Ptr QApplication -> HoppyF.Ptr QApplicationConst) ptr'+  toQCoreApplication (QApplicationGc fptr' ptr') = M20.QCoreApplicationGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M20.QCoreApplicationConst -> HoppyF.Ptr M20.QCoreApplication) $ castQApplicationToQCoreApplication $ (HoppyF.castPtr :: HoppyF.Ptr QApplication -> HoppyF.Ptr QApplicationConst) ptr'++instance M94.QObjectConstPtr QApplication where+  toQObjectConst (QApplication ptr') = M94.QObjectConst $ castQApplicationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QApplication -> HoppyF.Ptr QApplicationConst) ptr'+  toQObjectConst (QApplicationGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQApplicationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QApplication -> HoppyF.Ptr QApplicationConst) ptr'++instance M94.QObjectPtr QApplication where+  toQObject (QApplication ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQApplicationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QApplication -> HoppyF.Ptr QApplicationConst) ptr'+  toQObject (QApplicationGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQApplicationToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QApplication -> HoppyF.Ptr QApplicationConst) ptr'++class QApplicationSuper a where+  downToQApplication :: a -> QApplication++instance QApplicationSuper M20.QCoreApplication where+  downToQApplication = castQApplicationToNonconst . cast' . M20.castQCoreApplicationToConst+    where+      cast' (M20.QCoreApplicationConst ptr') = QApplicationConst $ castQCoreApplicationToQApplication ptr'+      cast' (M20.QCoreApplicationConstGc fptr' ptr') = QApplicationConstGc fptr' $ castQCoreApplicationToQApplication ptr'+instance QApplicationSuper M94.QObject where+  downToQApplication = castQApplicationToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QApplicationConst $ castQObjectToQApplication ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QApplicationConstGc fptr' $ castQObjectToQApplication ptr'++class QApplicationSuperConst a where+  downToQApplicationConst :: a -> QApplicationConst++instance QApplicationSuperConst M20.QCoreApplicationConst where+  downToQApplicationConst = cast'+    where+      cast' (M20.QCoreApplicationConst ptr') = QApplicationConst $ castQCoreApplicationToQApplication ptr'+      cast' (M20.QCoreApplicationConstGc fptr' ptr') = QApplicationConstGc fptr' $ castQCoreApplicationToQApplication ptr'+instance QApplicationSuperConst M94.QObjectConst where+  downToQApplicationConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QApplicationConst $ castQObjectToQApplication ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QApplicationConstGc fptr' $ castQObjectToQApplication ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QApplication)) QApplication where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QApplication)) QApplication where+  decode = HoppyP.fmap QApplication . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Widgets/QBoxLayout.hs view
@@ -0,0 +1,534 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QBoxLayout (+  castQBoxLayoutToQLayout,+  castQLayoutToQBoxLayout,+  castQBoxLayoutToQObject,+  castQObjectToQBoxLayout,+  castQBoxLayoutToQLayoutItem,+  castQLayoutItemToQBoxLayout,+  QBoxLayoutValue (..),+  QBoxLayoutConstPtr (..),+  direction,+  spacing,+  QBoxLayoutPtr (..),+  addLayout,+  addLayoutWithStretch,+  addSpacing,+  addStretch,+  addStretchOf,+  addStrut,+  addWidget,+  addWidgetWithStretch,+  addWidgetWithStretchAndAlignment,+  setDirection,+  insertLayout,+  insertLayoutWithStretch,+  insertSpacing,+  insertStretch,+  insertStretchOf,+  insertWidget,+  insertWidgetWithStretch,+  insertWidgetWithStretchAndAlignment,+  setStretch,+  setWidgetStretchFactor,+  setLayoutStretchFactor,+  setSpacing,+  QBoxLayoutConst (..),+  castQBoxLayoutToConst,+  QBoxLayout (..),+  castQBoxLayoutToNonconst,+  new,+  newWithParent,+  QBoxLayoutSuper (..),+  QBoxLayoutSuperConst (..),+  QBoxLayoutDirection (..),+  ) 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.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+import qualified Prelude as QtahP++foreign import ccall "genpop__QBoxLayout_new" new' ::  HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QBoxLayout)+foreign import ccall "genpop__QBoxLayout_newWithParent" newWithParent' ::  HoppyFC.CInt -> HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QBoxLayout)+foreign import ccall "genpop__QBoxLayout_addLayout" addLayout' ::  HoppyF.Ptr QBoxLayout -> HoppyF.Ptr M432.QLayout -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_addLayoutWithStretch" addLayoutWithStretch' ::  HoppyF.Ptr QBoxLayout -> HoppyF.Ptr M432.QLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_addSpacing" addSpacing' ::  HoppyF.Ptr QBoxLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_addStretch" addStretch' ::  HoppyF.Ptr QBoxLayout -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_addStretchOf" addStretchOf' ::  HoppyF.Ptr QBoxLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_addStrut" addStrut' ::  HoppyF.Ptr QBoxLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_addWidget" addWidget' ::  HoppyF.Ptr QBoxLayout -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_addWidgetWithStretch" addWidgetWithStretch' ::  HoppyF.Ptr QBoxLayout -> HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_addWidgetWithStretchAndAlignment" addWidgetWithStretchAndAlignment' ::  HoppyF.Ptr QBoxLayout -> HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_direction" direction' ::  HoppyF.Ptr QBoxLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QBoxLayout_setDirection" setDirection' ::  HoppyF.Ptr QBoxLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_insertLayout" insertLayout' ::  HoppyF.Ptr QBoxLayout -> HoppyFC.CInt -> HoppyF.Ptr M432.QLayout -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_insertLayoutWithStretch" insertLayoutWithStretch' ::  HoppyF.Ptr QBoxLayout -> HoppyFC.CInt -> HoppyF.Ptr M432.QLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_insertSpacing" insertSpacing' ::  HoppyF.Ptr QBoxLayout -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_insertStretch" insertStretch' ::  HoppyF.Ptr QBoxLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_insertStretchOf" insertStretchOf' ::  HoppyF.Ptr QBoxLayout -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_insertWidget" insertWidget' ::  HoppyF.Ptr QBoxLayout -> HoppyFC.CInt -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_insertWidgetWithStretch" insertWidgetWithStretch' ::  HoppyF.Ptr QBoxLayout -> HoppyFC.CInt -> HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_insertWidgetWithStretchAndAlignment" insertWidgetWithStretchAndAlignment' ::  HoppyF.Ptr QBoxLayout -> HoppyFC.CInt -> HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_setStretch" setStretch' ::  HoppyF.Ptr QBoxLayout -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QBoxLayout_setWidgetStretchFactor" setWidgetStretchFactor' ::  HoppyF.Ptr QBoxLayout -> HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QBoxLayout_setLayoutStretchFactor" setLayoutStretchFactor' ::  HoppyF.Ptr QBoxLayout -> HoppyF.Ptr M432.QLayout -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QBoxLayout_spacing" spacing' ::  HoppyF.Ptr QBoxLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QBoxLayout_setSpacing" setSpacing' ::  HoppyF.Ptr QBoxLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QBoxLayout__QLayout" castQBoxLayoutToQLayout :: HoppyF.Ptr QBoxLayoutConst -> HoppyF.Ptr M432.QLayoutConst+foreign import ccall "gencast__QLayout__QBoxLayout" castQLayoutToQBoxLayout :: HoppyF.Ptr M432.QLayoutConst -> HoppyF.Ptr QBoxLayoutConst+foreign import ccall "gencast__QBoxLayout__QObject" castQBoxLayoutToQObject :: HoppyF.Ptr QBoxLayoutConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QBoxLayout" castQObjectToQBoxLayout :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QBoxLayoutConst+foreign import ccall "gencast__QBoxLayout__QLayoutItem" castQBoxLayoutToQLayoutItem :: HoppyF.Ptr QBoxLayoutConst -> HoppyF.Ptr M434.QLayoutItemConst+foreign import ccall "gencast__QLayoutItem__QBoxLayout" castQLayoutItemToQBoxLayout :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr QBoxLayoutConst+foreign import ccall "gendel__QBoxLayout" delete'QBoxLayout :: HoppyF.Ptr QBoxLayoutConst -> HoppyP.IO ()+foreign import ccall "&gendel__QBoxLayout" deletePtr'QBoxLayout :: HoppyF.FunPtr (HoppyF.Ptr QBoxLayoutConst -> HoppyP.IO ())++class QBoxLayoutValue a where+  withQBoxLayoutPtr :: a -> (QBoxLayoutConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QBoxLayoutConstPtr a => QBoxLayoutValue a where+  withQBoxLayoutPtr = HoppyP.flip ($) . toQBoxLayoutConst++class (M432.QLayoutConstPtr this) => QBoxLayoutConstPtr this where+  toQBoxLayoutConst :: this -> QBoxLayoutConst++direction :: (QBoxLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO QBoxLayoutDirection)+direction arg'1 =+  withQBoxLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (direction' arg'1')++spacing :: (QBoxLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+spacing arg'1 =+  withQBoxLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (spacing' arg'1')++class (QBoxLayoutConstPtr this, M432.QLayoutPtr this) => QBoxLayoutPtr this where+  toQBoxLayout :: this -> QBoxLayout++addLayout :: (QBoxLayoutPtr this, M432.QLayoutPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addLayout arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'2) $ \arg'2' ->+  (addLayout' arg'1' arg'2')++addLayoutWithStretch :: (QBoxLayoutPtr this, M432.QLayoutPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO ())+addLayoutWithStretch arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (addLayoutWithStretch' arg'1' arg'2' arg'3')++addSpacing :: (QBoxLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+addSpacing arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (addSpacing' arg'1' arg'2')++addStretch :: (QBoxLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+addStretch arg'1 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  (addStretch' arg'1')++addStretchOf :: (QBoxLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+addStretchOf arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (addStretchOf' arg'1' arg'2')++addStrut :: (QBoxLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+addStrut arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (addStrut' arg'1' arg'2')++addWidget :: (QBoxLayoutPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addWidget arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (addWidget' arg'1' arg'2')++addWidgetWithStretch :: (QBoxLayoutPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO ())+addWidgetWithStretch arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (addWidgetWithStretch' arg'1' arg'2' arg'3')++addWidgetWithStretchAndAlignment :: (QBoxLayoutPtr this, M506.QWidgetPtr arg'2, M190.IsQtAlignment arg'4) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (arg'4) -> (HoppyP.IO ())+addWidgetWithStretchAndAlignment arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'4 >>= \arg'4' ->+  (addWidgetWithStretchAndAlignment' arg'1' arg'2' arg'3' arg'4')++setDirection :: (QBoxLayoutPtr this) => (this) {- ^ this -} -> (QBoxLayoutDirection) -> (HoppyP.IO ())+setDirection arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setDirection' arg'1' arg'2')++insertLayout :: (QBoxLayoutPtr this, M432.QLayoutPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insertLayout arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'3) $ \arg'3' ->+  (insertLayout' arg'1' arg'2' arg'3')++insertLayoutWithStretch :: (QBoxLayoutPtr this, M432.QLayoutPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.Int) -> (HoppyP.IO ())+insertLayoutWithStretch arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'3) $ \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (insertLayoutWithStretch' arg'1' arg'2' arg'3' arg'4')++insertSpacing :: (QBoxLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+insertSpacing arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (insertSpacing' arg'1' arg'2' arg'3')++insertStretch :: (QBoxLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+insertStretch arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (insertStretch' arg'1' arg'2')++insertStretchOf :: (QBoxLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+insertStretchOf arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (insertStretchOf' arg'1' arg'2' arg'3')++insertWidget :: (QBoxLayoutPtr this, M506.QWidgetPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insertWidget arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'3) $ \arg'3' ->+  (insertWidget' arg'1' arg'2' arg'3')++insertWidgetWithStretch :: (QBoxLayoutPtr this, M506.QWidgetPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.Int) -> (HoppyP.IO ())+insertWidgetWithStretch arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'3) $ \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (insertWidgetWithStretch' arg'1' arg'2' arg'3' arg'4')++insertWidgetWithStretchAndAlignment :: (QBoxLayoutPtr this, M506.QWidgetPtr arg'3, M190.IsQtAlignment arg'5) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.Int) -> (arg'5) -> (HoppyP.IO ())+insertWidgetWithStretchAndAlignment arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'3) $ \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'5 >>= \arg'5' ->+  (insertWidgetWithStretchAndAlignment' arg'1' arg'2' arg'3' arg'4' arg'5')++setStretch :: (QBoxLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setStretch arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (setStretch' arg'1' arg'2' arg'3')++setWidgetStretchFactor :: (QBoxLayoutPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+setWidgetStretchFactor arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (setWidgetStretchFactor' arg'1' arg'2' arg'3')++setLayoutStretchFactor :: (QBoxLayoutPtr this, M432.QLayoutPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+setLayoutStretchFactor arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (setLayoutStretchFactor' arg'1' arg'2' arg'3')++setSpacing :: (QBoxLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setSpacing arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQBoxLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setSpacing' arg'1' arg'2')++data QBoxLayoutConst =+    QBoxLayoutConst (HoppyF.Ptr QBoxLayoutConst)+  | QBoxLayoutConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QBoxLayoutConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QBoxLayoutConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QBoxLayoutConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQBoxLayoutToConst :: QBoxLayout -> QBoxLayoutConst+castQBoxLayoutToConst (QBoxLayout ptr') = QBoxLayoutConst $ HoppyF.castPtr ptr'+castQBoxLayoutToConst (QBoxLayoutGc fptr' ptr') = QBoxLayoutConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QBoxLayoutConst where+  nullptr = QBoxLayoutConst HoppyF.nullPtr+  +  withCppPtr (QBoxLayoutConst ptr') f' = f' ptr'+  withCppPtr (QBoxLayoutConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QBoxLayoutConst ptr') = ptr'+  toPtr (QBoxLayoutConstGc _ ptr') = ptr'+  +  touchCppPtr (QBoxLayoutConst _) = HoppyP.return ()+  touchCppPtr (QBoxLayoutConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QBoxLayoutConst where+  delete (QBoxLayoutConst ptr') = delete'QBoxLayout ptr'+  delete (QBoxLayoutConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QBoxLayoutConst", " object."]+  +  toGc this'@(QBoxLayoutConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QBoxLayoutConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QBoxLayout :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QBoxLayoutConstGc {}) = HoppyP.return this'++instance QBoxLayoutConstPtr QBoxLayoutConst where+  toQBoxLayoutConst = HoppyP.id++instance M432.QLayoutConstPtr QBoxLayoutConst where+  toQLayoutConst (QBoxLayoutConst ptr') = M432.QLayoutConst $ castQBoxLayoutToQLayout ptr'+  toQLayoutConst (QBoxLayoutConstGc fptr' ptr') = M432.QLayoutConstGc fptr' $ castQBoxLayoutToQLayout ptr'++instance M94.QObjectConstPtr QBoxLayoutConst where+  toQObjectConst (QBoxLayoutConst ptr') = M94.QObjectConst $ castQBoxLayoutToQObject ptr'+  toQObjectConst (QBoxLayoutConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQBoxLayoutToQObject ptr'++instance M434.QLayoutItemConstPtr QBoxLayoutConst where+  toQLayoutItemConst (QBoxLayoutConst ptr') = M434.QLayoutItemConst $ castQBoxLayoutToQLayoutItem ptr'+  toQLayoutItemConst (QBoxLayoutConstGc fptr' ptr') = M434.QLayoutItemConstGc fptr' $ castQBoxLayoutToQLayoutItem ptr'++data QBoxLayout =+    QBoxLayout (HoppyF.Ptr QBoxLayout)+  | QBoxLayoutGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QBoxLayout)+  deriving (HoppyP.Show)++instance HoppyP.Eq QBoxLayout where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QBoxLayout where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQBoxLayoutToNonconst :: QBoxLayoutConst -> QBoxLayout+castQBoxLayoutToNonconst (QBoxLayoutConst ptr') = QBoxLayout $ HoppyF.castPtr ptr'+castQBoxLayoutToNonconst (QBoxLayoutConstGc fptr' ptr') = QBoxLayoutGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QBoxLayout where+  nullptr = QBoxLayout HoppyF.nullPtr+  +  withCppPtr (QBoxLayout ptr') f' = f' ptr'+  withCppPtr (QBoxLayoutGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QBoxLayout ptr') = ptr'+  toPtr (QBoxLayoutGc _ ptr') = ptr'+  +  touchCppPtr (QBoxLayout _) = HoppyP.return ()+  touchCppPtr (QBoxLayoutGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QBoxLayout where+  delete (QBoxLayout ptr') = delete'QBoxLayout $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QBoxLayoutConst)+  delete (QBoxLayoutGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QBoxLayout", " object."]+  +  toGc this'@(QBoxLayout ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QBoxLayoutGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QBoxLayout :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QBoxLayoutGc {}) = HoppyP.return this'++instance QBoxLayoutConstPtr QBoxLayout where+  toQBoxLayoutConst (QBoxLayout ptr') = QBoxLayoutConst $ (HoppyF.castPtr :: HoppyF.Ptr QBoxLayout -> HoppyF.Ptr QBoxLayoutConst) ptr'+  toQBoxLayoutConst (QBoxLayoutGc fptr' ptr') = QBoxLayoutConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QBoxLayout -> HoppyF.Ptr QBoxLayoutConst) ptr'++instance QBoxLayoutPtr QBoxLayout where+  toQBoxLayout = HoppyP.id++instance M432.QLayoutConstPtr QBoxLayout where+  toQLayoutConst (QBoxLayout ptr') = M432.QLayoutConst $ castQBoxLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QBoxLayout -> HoppyF.Ptr QBoxLayoutConst) ptr'+  toQLayoutConst (QBoxLayoutGc fptr' ptr') = M432.QLayoutConstGc fptr' $ castQBoxLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QBoxLayout -> HoppyF.Ptr QBoxLayoutConst) ptr'++instance M432.QLayoutPtr QBoxLayout where+  toQLayout (QBoxLayout ptr') = M432.QLayout $ (HoppyF.castPtr :: HoppyF.Ptr M432.QLayoutConst -> HoppyF.Ptr M432.QLayout) $ castQBoxLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QBoxLayout -> HoppyF.Ptr QBoxLayoutConst) ptr'+  toQLayout (QBoxLayoutGc fptr' ptr') = M432.QLayoutGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M432.QLayoutConst -> HoppyF.Ptr M432.QLayout) $ castQBoxLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QBoxLayout -> HoppyF.Ptr QBoxLayoutConst) ptr'++instance M94.QObjectConstPtr QBoxLayout where+  toQObjectConst (QBoxLayout ptr') = M94.QObjectConst $ castQBoxLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QBoxLayout -> HoppyF.Ptr QBoxLayoutConst) ptr'+  toQObjectConst (QBoxLayoutGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQBoxLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QBoxLayout -> HoppyF.Ptr QBoxLayoutConst) ptr'++instance M94.QObjectPtr QBoxLayout where+  toQObject (QBoxLayout ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQBoxLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QBoxLayout -> HoppyF.Ptr QBoxLayoutConst) ptr'+  toQObject (QBoxLayoutGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQBoxLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QBoxLayout -> HoppyF.Ptr QBoxLayoutConst) ptr'++instance M434.QLayoutItemConstPtr QBoxLayout where+  toQLayoutItemConst (QBoxLayout ptr') = M434.QLayoutItemConst $ castQBoxLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QBoxLayout -> HoppyF.Ptr QBoxLayoutConst) ptr'+  toQLayoutItemConst (QBoxLayoutGc fptr' ptr') = M434.QLayoutItemConstGc fptr' $ castQBoxLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QBoxLayout -> HoppyF.Ptr QBoxLayoutConst) ptr'++instance M434.QLayoutItemPtr QBoxLayout where+  toQLayoutItem (QBoxLayout ptr') = M434.QLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr M434.QLayoutItem) $ castQBoxLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QBoxLayout -> HoppyF.Ptr QBoxLayoutConst) ptr'+  toQLayoutItem (QBoxLayoutGc fptr' ptr') = M434.QLayoutItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr M434.QLayoutItem) $ castQBoxLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QBoxLayout -> HoppyF.Ptr QBoxLayoutConst) ptr'++new :: (QBoxLayoutDirection) -> (HoppyP.IO QBoxLayout)+new arg'1 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyP.fmap QBoxLayout+  (new' arg'1')++newWithParent :: (M506.QWidgetPtr arg'2) => (QBoxLayoutDirection) -> (arg'2) -> (HoppyP.IO QBoxLayout)+newWithParent arg'1 arg'2 =+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'1 >>= \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  HoppyP.fmap QBoxLayout+  (newWithParent' arg'1' arg'2')++class QBoxLayoutSuper a where+  downToQBoxLayout :: a -> QBoxLayout++instance QBoxLayoutSuper M432.QLayout where+  downToQBoxLayout = castQBoxLayoutToNonconst . cast' . M432.castQLayoutToConst+    where+      cast' (M432.QLayoutConst ptr') = QBoxLayoutConst $ castQLayoutToQBoxLayout ptr'+      cast' (M432.QLayoutConstGc fptr' ptr') = QBoxLayoutConstGc fptr' $ castQLayoutToQBoxLayout ptr'+instance QBoxLayoutSuper M94.QObject where+  downToQBoxLayout = castQBoxLayoutToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QBoxLayoutConst $ castQObjectToQBoxLayout ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QBoxLayoutConstGc fptr' $ castQObjectToQBoxLayout ptr'+instance QBoxLayoutSuper M434.QLayoutItem where+  downToQBoxLayout = castQBoxLayoutToNonconst . cast' . M434.castQLayoutItemToConst+    where+      cast' (M434.QLayoutItemConst ptr') = QBoxLayoutConst $ castQLayoutItemToQBoxLayout ptr'+      cast' (M434.QLayoutItemConstGc fptr' ptr') = QBoxLayoutConstGc fptr' $ castQLayoutItemToQBoxLayout ptr'++class QBoxLayoutSuperConst a where+  downToQBoxLayoutConst :: a -> QBoxLayoutConst++instance QBoxLayoutSuperConst M432.QLayoutConst where+  downToQBoxLayoutConst = cast'+    where+      cast' (M432.QLayoutConst ptr') = QBoxLayoutConst $ castQLayoutToQBoxLayout ptr'+      cast' (M432.QLayoutConstGc fptr' ptr') = QBoxLayoutConstGc fptr' $ castQLayoutToQBoxLayout ptr'+instance QBoxLayoutSuperConst M94.QObjectConst where+  downToQBoxLayoutConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QBoxLayoutConst $ castQObjectToQBoxLayout ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QBoxLayoutConstGc fptr' $ castQObjectToQBoxLayout ptr'+instance QBoxLayoutSuperConst M434.QLayoutItemConst where+  downToQBoxLayoutConst = cast'+    where+      cast' (M434.QLayoutItemConst ptr') = QBoxLayoutConst $ castQLayoutItemToQBoxLayout ptr'+      cast' (M434.QLayoutItemConstGc fptr' ptr') = QBoxLayoutConstGc fptr' $ castQLayoutItemToQBoxLayout ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QBoxLayout)) QBoxLayout where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QBoxLayout)) QBoxLayout where+  decode = HoppyP.fmap QBoxLayout . HoppyF.peek++data QBoxLayoutDirection =+  LeftToRight+  | RightToLeft+  | TopToBottom+  | BottomToTop+  | UnknownQBoxLayoutDirection (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QBoxLayoutDirection where+  fromCppEnum LeftToRight = 0+  fromCppEnum RightToLeft = 1+  fromCppEnum TopToBottom = 2+  fromCppEnum BottomToTop = 3+  fromCppEnum (UnknownQBoxLayoutDirection n) = n+  +  toCppEnum (0) = LeftToRight+  toCppEnum (1) = RightToLeft+  toCppEnum (2) = TopToBottom+  toCppEnum (3) = BottomToTop+  toCppEnum n = UnknownQBoxLayoutDirection n++instance HoppyP.Eq QBoxLayoutDirection where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QBoxLayoutDirection where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Widgets/QButtonGroup.hs view
@@ -0,0 +1,355 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QButtonGroup (+  castQButtonGroupToQObject,+  castQObjectToQButtonGroup,+  QButtonGroupValue (..),+  QButtonGroupConstPtr (..),+  button,+  buttons,+  checkedButton,+  checkedId,+  exclusive,+  id,+  QButtonGroupPtr (..),+  addButton,+  addButtonWithId,+  setExclusive,+  removeButton,+  setId,+  emitButtonClicked,+  emitButtonClickedId,+  emitButtonPressed,+  emitButtonPressedId,+  emitButtonReleased,+  emitButtonReleasedId,+  emitButtonToggled,+  emitButtonToggledId,+  QButtonGroupConst (..),+  castQButtonGroupToConst,+  QButtonGroup (..),+  castQButtonGroupToNonconst,+  new,+  newWithParent,+  QButtonGroupSuper (..),+  QButtonGroupSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Core.QList.QAbstractButton as M194+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractButton as M354+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QButtonGroup_new" new' ::  HoppyP.IO (HoppyF.Ptr QButtonGroup)+foreign import ccall "genpop__QButtonGroup_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QButtonGroup)+foreign import ccall "genpop__QButtonGroup_addButton" addButton' ::  HoppyF.Ptr QButtonGroup -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QButtonGroup_addButtonWithId" addButtonWithId' ::  HoppyF.Ptr QButtonGroup -> HoppyF.Ptr M354.QAbstractButton -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QButtonGroup_button" button' ::  HoppyF.Ptr QButtonGroupConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M354.QAbstractButton)+foreign import ccall "genpop__QButtonGroup_buttons" buttons' ::  HoppyF.Ptr QButtonGroupConst -> HoppyP.IO (HoppyF.Ptr M194.QListQAbstractButtonConst)+foreign import ccall "genpop__QButtonGroup_checkedButton" checkedButton' ::  HoppyF.Ptr QButtonGroupConst -> HoppyP.IO (HoppyF.Ptr M354.QAbstractButton)+foreign import ccall "genpop__QButtonGroup_checkedId" checkedId' ::  HoppyF.Ptr QButtonGroupConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QButtonGroup_exclusive" exclusive' ::  HoppyF.Ptr QButtonGroupConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QButtonGroup_setExclusive" setExclusive' ::  HoppyF.Ptr QButtonGroup -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QButtonGroup_id" id' ::  HoppyF.Ptr QButtonGroupConst -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QButtonGroup_removeButton" removeButton' ::  HoppyF.Ptr QButtonGroup -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QButtonGroup_setId" setId' ::  HoppyF.Ptr QButtonGroup -> HoppyF.Ptr M354.QAbstractButton -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QButtonGroup_emitButtonClicked" emitButtonClicked' ::  HoppyF.Ptr QButtonGroup -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QButtonGroup_emitButtonClickedId" emitButtonClickedId' ::  HoppyF.Ptr QButtonGroup -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QButtonGroup_emitButtonPressed" emitButtonPressed' ::  HoppyF.Ptr QButtonGroup -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QButtonGroup_emitButtonPressedId" emitButtonPressedId' ::  HoppyF.Ptr QButtonGroup -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QButtonGroup_emitButtonReleased" emitButtonReleased' ::  HoppyF.Ptr QButtonGroup -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QButtonGroup_emitButtonReleasedId" emitButtonReleasedId' ::  HoppyF.Ptr QButtonGroup -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QButtonGroup_emitButtonToggled" emitButtonToggled' ::  HoppyF.Ptr QButtonGroup -> HoppyF.Ptr M354.QAbstractButton -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QButtonGroup_emitButtonToggledId" emitButtonToggledId' ::  HoppyF.Ptr QButtonGroup -> HoppyFC.CInt -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "gencast__QButtonGroup__QObject" castQButtonGroupToQObject :: HoppyF.Ptr QButtonGroupConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QButtonGroup" castQObjectToQButtonGroup :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QButtonGroupConst+foreign import ccall "gendel__QButtonGroup" delete'QButtonGroup :: HoppyF.Ptr QButtonGroupConst -> HoppyP.IO ()+foreign import ccall "&gendel__QButtonGroup" deletePtr'QButtonGroup :: HoppyF.FunPtr (HoppyF.Ptr QButtonGroupConst -> HoppyP.IO ())++class QButtonGroupValue a where+  withQButtonGroupPtr :: a -> (QButtonGroupConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QButtonGroupConstPtr a => QButtonGroupValue a where+  withQButtonGroupPtr = HoppyP.flip ($) . toQButtonGroupConst++class (M94.QObjectConstPtr this) => QButtonGroupConstPtr this where+  toQButtonGroupConst :: this -> QButtonGroupConst++button :: (QButtonGroupValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M354.QAbstractButton)+button arg'1 arg'2 =+  withQButtonGroupPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M354.QAbstractButton+  (button' arg'1' arg'2')++buttons :: (QButtonGroupValue this) => (this) {- ^ this -} -> (HoppyP.IO [M354.QAbstractButton])+buttons arg'1 =+  withQButtonGroupPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M194.QListQAbstractButtonConst) =<<+  (buttons' arg'1')++checkedButton :: (QButtonGroupValue this) => (this) {- ^ this -} -> (HoppyP.IO M354.QAbstractButton)+checkedButton arg'1 =+  withQButtonGroupPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M354.QAbstractButton+  (checkedButton' arg'1')++checkedId :: (QButtonGroupValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+checkedId arg'1 =+  withQButtonGroupPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (checkedId' arg'1')++exclusive :: (QButtonGroupValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+exclusive arg'1 =+  withQButtonGroupPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (exclusive' arg'1')++id :: (QButtonGroupValue this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+id arg'1 arg'2 =+  withQButtonGroupPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (id' arg'1' arg'2')++class (QButtonGroupConstPtr this, M94.QObjectPtr this) => QButtonGroupPtr this where+  toQButtonGroup :: this -> QButtonGroup++addButton :: (QButtonGroupPtr this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addButton arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQButtonGroup arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (addButton' arg'1' arg'2')++addButtonWithId :: (QButtonGroupPtr this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO ())+addButtonWithId arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQButtonGroup arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (addButtonWithId' arg'1' arg'2' arg'3')++setExclusive :: (QButtonGroupPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setExclusive arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQButtonGroup arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setExclusive' arg'1' arg'2')++removeButton :: (QButtonGroupPtr this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+removeButton arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQButtonGroup arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (removeButton' arg'1' arg'2')++setId :: (QButtonGroupPtr this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO ())+setId arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQButtonGroup arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (setId' arg'1' arg'2' arg'3')++emitButtonClicked :: (QButtonGroupPtr this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitButtonClicked arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQButtonGroup arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (emitButtonClicked' arg'1' arg'2')++emitButtonClickedId :: (QButtonGroupPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitButtonClickedId arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQButtonGroup arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitButtonClickedId' arg'1' arg'2')++emitButtonPressed :: (QButtonGroupPtr this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitButtonPressed arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQButtonGroup arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (emitButtonPressed' arg'1' arg'2')++emitButtonPressedId :: (QButtonGroupPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitButtonPressedId arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQButtonGroup arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitButtonPressedId' arg'1' arg'2')++emitButtonReleased :: (QButtonGroupPtr this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitButtonReleased arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQButtonGroup arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (emitButtonReleased' arg'1' arg'2')++emitButtonReleasedId :: (QButtonGroupPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitButtonReleasedId arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQButtonGroup arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitButtonReleasedId' arg'1' arg'2')++emitButtonToggled :: (QButtonGroupPtr this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Bool) -> (HoppyP.IO ())+emitButtonToggled arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQButtonGroup arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'3 >>= \arg'3' ->+  (emitButtonToggled' arg'1' arg'2' arg'3')++emitButtonToggledId :: (QButtonGroupPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Bool) -> (HoppyP.IO ())+emitButtonToggledId arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQButtonGroup arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'3 >>= \arg'3' ->+  (emitButtonToggledId' arg'1' arg'2' arg'3')++data QButtonGroupConst =+    QButtonGroupConst (HoppyF.Ptr QButtonGroupConst)+  | QButtonGroupConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QButtonGroupConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QButtonGroupConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QButtonGroupConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQButtonGroupToConst :: QButtonGroup -> QButtonGroupConst+castQButtonGroupToConst (QButtonGroup ptr') = QButtonGroupConst $ HoppyF.castPtr ptr'+castQButtonGroupToConst (QButtonGroupGc fptr' ptr') = QButtonGroupConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QButtonGroupConst where+  nullptr = QButtonGroupConst HoppyF.nullPtr+  +  withCppPtr (QButtonGroupConst ptr') f' = f' ptr'+  withCppPtr (QButtonGroupConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QButtonGroupConst ptr') = ptr'+  toPtr (QButtonGroupConstGc _ ptr') = ptr'+  +  touchCppPtr (QButtonGroupConst _) = HoppyP.return ()+  touchCppPtr (QButtonGroupConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QButtonGroupConst where+  delete (QButtonGroupConst ptr') = delete'QButtonGroup ptr'+  delete (QButtonGroupConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QButtonGroupConst", " object."]+  +  toGc this'@(QButtonGroupConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QButtonGroupConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QButtonGroup :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QButtonGroupConstGc {}) = HoppyP.return this'++instance QButtonGroupConstPtr QButtonGroupConst where+  toQButtonGroupConst = HoppyP.id++instance M94.QObjectConstPtr QButtonGroupConst where+  toQObjectConst (QButtonGroupConst ptr') = M94.QObjectConst $ castQButtonGroupToQObject ptr'+  toQObjectConst (QButtonGroupConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQButtonGroupToQObject ptr'++data QButtonGroup =+    QButtonGroup (HoppyF.Ptr QButtonGroup)+  | QButtonGroupGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QButtonGroup)+  deriving (HoppyP.Show)++instance HoppyP.Eq QButtonGroup where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QButtonGroup where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQButtonGroupToNonconst :: QButtonGroupConst -> QButtonGroup+castQButtonGroupToNonconst (QButtonGroupConst ptr') = QButtonGroup $ HoppyF.castPtr ptr'+castQButtonGroupToNonconst (QButtonGroupConstGc fptr' ptr') = QButtonGroupGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QButtonGroup where+  nullptr = QButtonGroup HoppyF.nullPtr+  +  withCppPtr (QButtonGroup ptr') f' = f' ptr'+  withCppPtr (QButtonGroupGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QButtonGroup ptr') = ptr'+  toPtr (QButtonGroupGc _ ptr') = ptr'+  +  touchCppPtr (QButtonGroup _) = HoppyP.return ()+  touchCppPtr (QButtonGroupGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QButtonGroup where+  delete (QButtonGroup ptr') = delete'QButtonGroup $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QButtonGroupConst)+  delete (QButtonGroupGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QButtonGroup", " object."]+  +  toGc this'@(QButtonGroup ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QButtonGroupGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QButtonGroup :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QButtonGroupGc {}) = HoppyP.return this'++instance QButtonGroupConstPtr QButtonGroup where+  toQButtonGroupConst (QButtonGroup ptr') = QButtonGroupConst $ (HoppyF.castPtr :: HoppyF.Ptr QButtonGroup -> HoppyF.Ptr QButtonGroupConst) ptr'+  toQButtonGroupConst (QButtonGroupGc fptr' ptr') = QButtonGroupConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QButtonGroup -> HoppyF.Ptr QButtonGroupConst) ptr'++instance QButtonGroupPtr QButtonGroup where+  toQButtonGroup = HoppyP.id++instance M94.QObjectConstPtr QButtonGroup where+  toQObjectConst (QButtonGroup ptr') = M94.QObjectConst $ castQButtonGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QButtonGroup -> HoppyF.Ptr QButtonGroupConst) ptr'+  toQObjectConst (QButtonGroupGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQButtonGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QButtonGroup -> HoppyF.Ptr QButtonGroupConst) ptr'++instance M94.QObjectPtr QButtonGroup where+  toQObject (QButtonGroup ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQButtonGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QButtonGroup -> HoppyF.Ptr QButtonGroupConst) ptr'+  toQObject (QButtonGroupGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQButtonGroupToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QButtonGroup -> HoppyF.Ptr QButtonGroupConst) ptr'++new :: (HoppyP.IO QButtonGroup)+new =+  HoppyP.fmap QButtonGroup+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QButtonGroup)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QButtonGroup+  (newWithParent' arg'1')++class QButtonGroupSuper a where+  downToQButtonGroup :: a -> QButtonGroup++instance QButtonGroupSuper M94.QObject where+  downToQButtonGroup = castQButtonGroupToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QButtonGroupConst $ castQObjectToQButtonGroup ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QButtonGroupConstGc fptr' $ castQObjectToQButtonGroup ptr'++class QButtonGroupSuperConst a where+  downToQButtonGroupConst :: a -> QButtonGroupConst++instance QButtonGroupSuperConst M94.QObjectConst where+  downToQButtonGroupConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QButtonGroupConst $ castQObjectToQButtonGroup ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QButtonGroupConstGc fptr' $ castQObjectToQButtonGroup ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QButtonGroup)) QButtonGroup where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QButtonGroup)) QButtonGroup where+  decode = HoppyP.fmap QButtonGroup . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Widgets/QButtonGroup.hs-boot view
@@ -0,0 +1,63 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QButtonGroup (+  QButtonGroupValue (..),+  QButtonGroupConstPtr (..),+  QButtonGroupPtr (..),+  QButtonGroupConst (..),+  castQButtonGroupToConst,+  QButtonGroup (..),+  castQButtonGroupToNonconst,+  castQButtonGroupToQObject,+  ) 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 Prelude as HoppyP+++class QButtonGroupValue a where+  withQButtonGroupPtr :: a -> (QButtonGroupConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QButtonGroupConstPtr a => QButtonGroupValue a++class (M94.QObjectConstPtr this) => QButtonGroupConstPtr this where+  toQButtonGroupConst :: this -> QButtonGroupConst++class (QButtonGroupConstPtr this, M94.QObjectPtr this) => QButtonGroupPtr this where+  toQButtonGroup :: this -> QButtonGroup++data QButtonGroupConst =+    QButtonGroupConst (HoppyF.Ptr QButtonGroupConst)+  | QButtonGroupConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QButtonGroupConst)++castQButtonGroupToConst :: QButtonGroup -> QButtonGroupConst++instance HoppyFHR.CppPtr QButtonGroupConst+instance HoppyFHR.Deletable QButtonGroupConst++instance QButtonGroupConstPtr QButtonGroupConst++instance M94.QObjectConstPtr QButtonGroupConst++data QButtonGroup =+    QButtonGroup (HoppyF.Ptr QButtonGroup)+  | QButtonGroupGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QButtonGroup)++castQButtonGroupToNonconst :: QButtonGroupConst -> QButtonGroup++instance HoppyFHR.CppPtr QButtonGroup+instance HoppyFHR.Deletable QButtonGroup++instance QButtonGroupConstPtr QButtonGroup++instance QButtonGroupPtr QButtonGroup++instance M94.QObjectConstPtr QButtonGroup++instance M94.QObjectPtr QButtonGroup+castQButtonGroupToQObject :: HoppyF.Ptr QButtonGroupConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QButtonGroup)) QButtonGroup
src/Graphics/UI/Qtah/Generated/Widgets/QCheckBox.hs view
@@ -0,0 +1,282 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QCheckBox (+  castQCheckBoxToQAbstractButton,+  castQAbstractButtonToQCheckBox,+  castQCheckBoxToQWidget,+  castQWidgetToQCheckBox,+  castQCheckBoxToQObject,+  castQObjectToQCheckBox,+  QCheckBoxValue (..),+  QCheckBoxConstPtr (..),+  checkState,+  isTristate,+  QCheckBoxPtr (..),+  setCheckState,+  setTristate,+  QCheckBoxConst (..),+  castQCheckBoxToConst,+  QCheckBox (..),+  castQCheckBoxToNonconst,+  new,+  newWithParent,+  newWithText,+  newWithTextAndParent,+  QCheckBoxSuper (..),+  QCheckBoxSuperConst (..),+  ) 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.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.QAbstractButton as M354+import qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QCheckBox_new" new' ::  HoppyP.IO (HoppyF.Ptr QCheckBox)+foreign import ccall "genpop__QCheckBox_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QCheckBox)+foreign import ccall "genpop__QCheckBox_newWithText" newWithText' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QCheckBox)+foreign import ccall "genpop__QCheckBox_newWithTextAndParent" newWithTextAndParent' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QCheckBox)+foreign import ccall "genpop__QCheckBox_checkState" checkState' ::  HoppyF.Ptr QCheckBoxConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QCheckBox_setCheckState" setCheckState' ::  HoppyF.Ptr QCheckBox -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QCheckBox_isTristate" isTristate' ::  HoppyF.Ptr QCheckBoxConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QCheckBox_setTristate" setTristate' ::  HoppyF.Ptr QCheckBox -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "gencast__QCheckBox__QAbstractButton" castQCheckBoxToQAbstractButton :: HoppyF.Ptr QCheckBoxConst -> HoppyF.Ptr M354.QAbstractButtonConst+foreign import ccall "gencast__QAbstractButton__QCheckBox" castQAbstractButtonToQCheckBox :: HoppyF.Ptr M354.QAbstractButtonConst -> HoppyF.Ptr QCheckBoxConst+foreign import ccall "gencast__QCheckBox__QWidget" castQCheckBoxToQWidget :: HoppyF.Ptr QCheckBoxConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QCheckBox" castQWidgetToQCheckBox :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QCheckBoxConst+foreign import ccall "gencast__QCheckBox__QObject" castQCheckBoxToQObject :: HoppyF.Ptr QCheckBoxConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QCheckBox" castQObjectToQCheckBox :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QCheckBoxConst+foreign import ccall "gendel__QCheckBox" delete'QCheckBox :: HoppyF.Ptr QCheckBoxConst -> HoppyP.IO ()+foreign import ccall "&gendel__QCheckBox" deletePtr'QCheckBox :: HoppyF.FunPtr (HoppyF.Ptr QCheckBoxConst -> HoppyP.IO ())++class QCheckBoxValue a where+  withQCheckBoxPtr :: a -> (QCheckBoxConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QCheckBoxConstPtr a => QCheckBoxValue a where+  withQCheckBoxPtr = HoppyP.flip ($) . toQCheckBoxConst++class (M354.QAbstractButtonConstPtr this) => QCheckBoxConstPtr this where+  toQCheckBoxConst :: this -> QCheckBoxConst++checkState :: (QCheckBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtCheckState)+checkState arg'1 =+  withQCheckBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (checkState' arg'1')++isTristate :: (QCheckBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isTristate arg'1 =+  withQCheckBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isTristate' arg'1')++class (QCheckBoxConstPtr this, M354.QAbstractButtonPtr this) => QCheckBoxPtr this where+  toQCheckBox :: this -> QCheckBox++setCheckState :: (QCheckBoxPtr this) => (this) {- ^ this -} -> (M190.QtCheckState) -> (HoppyP.IO ())+setCheckState arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQCheckBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setCheckState' arg'1' arg'2')++setTristate :: (QCheckBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setTristate arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQCheckBox arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setTristate' arg'1' arg'2')++data QCheckBoxConst =+    QCheckBoxConst (HoppyF.Ptr QCheckBoxConst)+  | QCheckBoxConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QCheckBoxConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QCheckBoxConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QCheckBoxConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQCheckBoxToConst :: QCheckBox -> QCheckBoxConst+castQCheckBoxToConst (QCheckBox ptr') = QCheckBoxConst $ HoppyF.castPtr ptr'+castQCheckBoxToConst (QCheckBoxGc fptr' ptr') = QCheckBoxConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QCheckBoxConst where+  nullptr = QCheckBoxConst HoppyF.nullPtr+  +  withCppPtr (QCheckBoxConst ptr') f' = f' ptr'+  withCppPtr (QCheckBoxConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QCheckBoxConst ptr') = ptr'+  toPtr (QCheckBoxConstGc _ ptr') = ptr'+  +  touchCppPtr (QCheckBoxConst _) = HoppyP.return ()+  touchCppPtr (QCheckBoxConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QCheckBoxConst where+  delete (QCheckBoxConst ptr') = delete'QCheckBox ptr'+  delete (QCheckBoxConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QCheckBoxConst", " object."]+  +  toGc this'@(QCheckBoxConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QCheckBoxConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QCheckBox :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QCheckBoxConstGc {}) = HoppyP.return this'++instance QCheckBoxConstPtr QCheckBoxConst where+  toQCheckBoxConst = HoppyP.id++instance M354.QAbstractButtonConstPtr QCheckBoxConst where+  toQAbstractButtonConst (QCheckBoxConst ptr') = M354.QAbstractButtonConst $ castQCheckBoxToQAbstractButton ptr'+  toQAbstractButtonConst (QCheckBoxConstGc fptr' ptr') = M354.QAbstractButtonConstGc fptr' $ castQCheckBoxToQAbstractButton ptr'++instance M506.QWidgetConstPtr QCheckBoxConst where+  toQWidgetConst (QCheckBoxConst ptr') = M506.QWidgetConst $ castQCheckBoxToQWidget ptr'+  toQWidgetConst (QCheckBoxConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQCheckBoxToQWidget ptr'++instance M94.QObjectConstPtr QCheckBoxConst where+  toQObjectConst (QCheckBoxConst ptr') = M94.QObjectConst $ castQCheckBoxToQObject ptr'+  toQObjectConst (QCheckBoxConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQCheckBoxToQObject ptr'++data QCheckBox =+    QCheckBox (HoppyF.Ptr QCheckBox)+  | QCheckBoxGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QCheckBox)+  deriving (HoppyP.Show)++instance HoppyP.Eq QCheckBox where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QCheckBox where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQCheckBoxToNonconst :: QCheckBoxConst -> QCheckBox+castQCheckBoxToNonconst (QCheckBoxConst ptr') = QCheckBox $ HoppyF.castPtr ptr'+castQCheckBoxToNonconst (QCheckBoxConstGc fptr' ptr') = QCheckBoxGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QCheckBox where+  nullptr = QCheckBox HoppyF.nullPtr+  +  withCppPtr (QCheckBox ptr') f' = f' ptr'+  withCppPtr (QCheckBoxGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QCheckBox ptr') = ptr'+  toPtr (QCheckBoxGc _ ptr') = ptr'+  +  touchCppPtr (QCheckBox _) = HoppyP.return ()+  touchCppPtr (QCheckBoxGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QCheckBox where+  delete (QCheckBox ptr') = delete'QCheckBox $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QCheckBoxConst)+  delete (QCheckBoxGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QCheckBox", " object."]+  +  toGc this'@(QCheckBox ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QCheckBoxGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QCheckBox :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QCheckBoxGc {}) = HoppyP.return this'++instance QCheckBoxConstPtr QCheckBox where+  toQCheckBoxConst (QCheckBox ptr') = QCheckBoxConst $ (HoppyF.castPtr :: HoppyF.Ptr QCheckBox -> HoppyF.Ptr QCheckBoxConst) ptr'+  toQCheckBoxConst (QCheckBoxGc fptr' ptr') = QCheckBoxConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QCheckBox -> HoppyF.Ptr QCheckBoxConst) ptr'++instance QCheckBoxPtr QCheckBox where+  toQCheckBox = HoppyP.id++instance M354.QAbstractButtonConstPtr QCheckBox where+  toQAbstractButtonConst (QCheckBox ptr') = M354.QAbstractButtonConst $ castQCheckBoxToQAbstractButton $ (HoppyF.castPtr :: HoppyF.Ptr QCheckBox -> HoppyF.Ptr QCheckBoxConst) ptr'+  toQAbstractButtonConst (QCheckBoxGc fptr' ptr') = M354.QAbstractButtonConstGc fptr' $ castQCheckBoxToQAbstractButton $ (HoppyF.castPtr :: HoppyF.Ptr QCheckBox -> HoppyF.Ptr QCheckBoxConst) ptr'++instance M354.QAbstractButtonPtr QCheckBox where+  toQAbstractButton (QCheckBox ptr') = M354.QAbstractButton $ (HoppyF.castPtr :: HoppyF.Ptr M354.QAbstractButtonConst -> HoppyF.Ptr M354.QAbstractButton) $ castQCheckBoxToQAbstractButton $ (HoppyF.castPtr :: HoppyF.Ptr QCheckBox -> HoppyF.Ptr QCheckBoxConst) ptr'+  toQAbstractButton (QCheckBoxGc fptr' ptr') = M354.QAbstractButtonGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M354.QAbstractButtonConst -> HoppyF.Ptr M354.QAbstractButton) $ castQCheckBoxToQAbstractButton $ (HoppyF.castPtr :: HoppyF.Ptr QCheckBox -> HoppyF.Ptr QCheckBoxConst) ptr'++instance M506.QWidgetConstPtr QCheckBox where+  toQWidgetConst (QCheckBox ptr') = M506.QWidgetConst $ castQCheckBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QCheckBox -> HoppyF.Ptr QCheckBoxConst) ptr'+  toQWidgetConst (QCheckBoxGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQCheckBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QCheckBox -> HoppyF.Ptr QCheckBoxConst) ptr'++instance M506.QWidgetPtr QCheckBox where+  toQWidget (QCheckBox ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQCheckBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QCheckBox -> HoppyF.Ptr QCheckBoxConst) ptr'+  toQWidget (QCheckBoxGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQCheckBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QCheckBox -> HoppyF.Ptr QCheckBoxConst) ptr'++instance M94.QObjectConstPtr QCheckBox where+  toQObjectConst (QCheckBox ptr') = M94.QObjectConst $ castQCheckBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QCheckBox -> HoppyF.Ptr QCheckBoxConst) ptr'+  toQObjectConst (QCheckBoxGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQCheckBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QCheckBox -> HoppyF.Ptr QCheckBoxConst) ptr'++instance M94.QObjectPtr QCheckBox where+  toQObject (QCheckBox ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQCheckBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QCheckBox -> HoppyF.Ptr QCheckBoxConst) ptr'+  toQObject (QCheckBoxGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQCheckBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QCheckBox -> HoppyF.Ptr QCheckBoxConst) ptr'++new :: (HoppyP.IO QCheckBox)+new =+  HoppyP.fmap QCheckBox+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QCheckBox)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QCheckBox+  (newWithParent' arg'1')++newWithText :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QCheckBox)+newWithText arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QCheckBox+  (newWithText' arg'1')++newWithTextAndParent :: (M142.QStringValue arg'1, M506.QWidgetPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QCheckBox)+newWithTextAndParent arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  HoppyP.fmap QCheckBox+  (newWithTextAndParent' arg'1' arg'2')++class QCheckBoxSuper a where+  downToQCheckBox :: a -> QCheckBox++instance QCheckBoxSuper M354.QAbstractButton where+  downToQCheckBox = castQCheckBoxToNonconst . cast' . M354.castQAbstractButtonToConst+    where+      cast' (M354.QAbstractButtonConst ptr') = QCheckBoxConst $ castQAbstractButtonToQCheckBox ptr'+      cast' (M354.QAbstractButtonConstGc fptr' ptr') = QCheckBoxConstGc fptr' $ castQAbstractButtonToQCheckBox ptr'+instance QCheckBoxSuper M506.QWidget where+  downToQCheckBox = castQCheckBoxToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QCheckBoxConst $ castQWidgetToQCheckBox ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QCheckBoxConstGc fptr' $ castQWidgetToQCheckBox ptr'+instance QCheckBoxSuper M94.QObject where+  downToQCheckBox = castQCheckBoxToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QCheckBoxConst $ castQObjectToQCheckBox ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QCheckBoxConstGc fptr' $ castQObjectToQCheckBox ptr'++class QCheckBoxSuperConst a where+  downToQCheckBoxConst :: a -> QCheckBoxConst++instance QCheckBoxSuperConst M354.QAbstractButtonConst where+  downToQCheckBoxConst = cast'+    where+      cast' (M354.QAbstractButtonConst ptr') = QCheckBoxConst $ castQAbstractButtonToQCheckBox ptr'+      cast' (M354.QAbstractButtonConstGc fptr' ptr') = QCheckBoxConstGc fptr' $ castQAbstractButtonToQCheckBox ptr'+instance QCheckBoxSuperConst M506.QWidgetConst where+  downToQCheckBoxConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QCheckBoxConst $ castQWidgetToQCheckBox ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QCheckBoxConstGc fptr' $ castQWidgetToQCheckBox ptr'+instance QCheckBoxSuperConst M94.QObjectConst where+  downToQCheckBoxConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QCheckBoxConst $ castQObjectToQCheckBox ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QCheckBoxConstGc fptr' $ castQObjectToQCheckBox ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QCheckBox)) QCheckBox where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QCheckBox)) QCheckBox where+  decode = HoppyP.fmap QCheckBox . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Widgets/QComboBox.hs view
@@ -0,0 +1,308 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QComboBox (+  castQComboBoxToQWidget,+  castQWidgetToQComboBox,+  castQComboBoxToQObject,+  castQObjectToQComboBox,+  QComboBoxValue (..),+  QComboBoxConstPtr (..),+  currentIndex,+  currentText,+  QComboBoxPtr (..),+  addItem,+  addItemWithData,+  addItemWithIcon,+  addItemWithIconAndData,+  setCurrentIndex,+  setCurrentText,+  emitActivated,+  emitActivatedString,+  emitCurrentIndexChanged,+  emitCurrentIndexChangedString,+  QComboBoxConst (..),+  castQComboBoxToConst,+  QComboBox (..),+  castQComboBoxToNonconst,+  new,+  newWithParent,+  QComboBoxSuper (..),+  QComboBoxSuperConst (..),+  ) 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.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.QVariant as M168+import qualified Graphics.UI.Qtah.Generated.Gui.QIcon as M288+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__QComboBox_new" new' ::  HoppyP.IO (HoppyF.Ptr QComboBox)+foreign import ccall "genpop__QComboBox_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QComboBox)+foreign import ccall "genpop__QComboBox_addItem" addItem' ::  HoppyF.Ptr QComboBox -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QComboBox_addItemWithData" addItemWithData' ::  HoppyF.Ptr QComboBox -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QComboBox_addItemWithIcon" addItemWithIcon' ::  HoppyF.Ptr QComboBox -> HoppyF.Ptr M288.QIconConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QComboBox_addItemWithIconAndData" addItemWithIconAndData' ::  HoppyF.Ptr QComboBox -> HoppyF.Ptr M288.QIconConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M168.QVariantConst -> HoppyP.IO ()+foreign import ccall "genpop__QComboBox_currentIndex" currentIndex' ::  HoppyF.Ptr QComboBoxConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QComboBox_setCurrentIndex" setCurrentIndex' ::  HoppyF.Ptr QComboBox -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QComboBox_currentText" currentText' ::  HoppyF.Ptr QComboBoxConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QComboBox_setCurrentText" setCurrentText' ::  HoppyF.Ptr QComboBox -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QComboBox_emitActivated" emitActivated' ::  HoppyF.Ptr QComboBox -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QComboBox_emitActivatedString" emitActivatedString' ::  HoppyF.Ptr QComboBox -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QComboBox_emitCurrentIndexChanged" emitCurrentIndexChanged' ::  HoppyF.Ptr QComboBox -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QComboBox_emitCurrentIndexChangedString" emitCurrentIndexChangedString' ::  HoppyF.Ptr QComboBox -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "gencast__QComboBox__QWidget" castQComboBoxToQWidget :: HoppyF.Ptr QComboBoxConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QComboBox" castQWidgetToQComboBox :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QComboBoxConst+foreign import ccall "gencast__QComboBox__QObject" castQComboBoxToQObject :: HoppyF.Ptr QComboBoxConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QComboBox" castQObjectToQComboBox :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QComboBoxConst+foreign import ccall "gendel__QComboBox" delete'QComboBox :: HoppyF.Ptr QComboBoxConst -> HoppyP.IO ()+foreign import ccall "&gendel__QComboBox" deletePtr'QComboBox :: HoppyF.FunPtr (HoppyF.Ptr QComboBoxConst -> HoppyP.IO ())++class QComboBoxValue a where+  withQComboBoxPtr :: a -> (QComboBoxConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QComboBoxConstPtr a => QComboBoxValue a where+  withQComboBoxPtr = HoppyP.flip ($) . toQComboBoxConst++class (M506.QWidgetConstPtr this) => QComboBoxConstPtr this where+  toQComboBoxConst :: this -> QComboBoxConst++currentIndex :: (QComboBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+currentIndex arg'1 =+  withQComboBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (currentIndex' arg'1')++currentText :: (QComboBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+currentText arg'1 =+  withQComboBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (currentText' arg'1')++class (QComboBoxConstPtr this, M506.QWidgetPtr this) => QComboBoxPtr this where+  toQComboBox :: this -> QComboBox++addItem :: (QComboBoxPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addItem arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQComboBox arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (addItem' arg'1' arg'2')++addItemWithData :: (QComboBoxPtr this, M142.QStringValue arg'2, M168.QVariantValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+addItemWithData arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQComboBox arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M168.withQVariantPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (addItemWithData' arg'1' arg'2' arg'3')++addItemWithIcon :: (QComboBoxPtr this, M288.QIconValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+addItemWithIcon arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQComboBox arg'1) $ \arg'1' ->+  M288.withQIconPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (addItemWithIcon' arg'1' arg'2' arg'3')++addItemWithIconAndData :: (QComboBoxPtr this, M288.QIconValue arg'2, M142.QStringValue arg'3, M168.QVariantValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO ())+addItemWithIconAndData arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQComboBox arg'1) $ \arg'1' ->+  M288.withQIconPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M168.withQVariantPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (addItemWithIconAndData' arg'1' arg'2' arg'3' arg'4')++setCurrentIndex :: (QComboBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setCurrentIndex arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQComboBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setCurrentIndex' arg'1' arg'2')++setCurrentText :: (QComboBoxPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setCurrentText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQComboBox arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setCurrentText' arg'1' arg'2')++emitActivated :: (QComboBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitActivated arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQComboBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitActivated' arg'1' arg'2')++emitActivatedString :: (QComboBoxPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitActivatedString arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQComboBox arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitActivatedString' arg'1' arg'2')++emitCurrentIndexChanged :: (QComboBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitCurrentIndexChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQComboBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitCurrentIndexChanged' arg'1' arg'2')++emitCurrentIndexChangedString :: (QComboBoxPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitCurrentIndexChangedString arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQComboBox arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitCurrentIndexChangedString' arg'1' arg'2')++data QComboBoxConst =+    QComboBoxConst (HoppyF.Ptr QComboBoxConst)+  | QComboBoxConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QComboBoxConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QComboBoxConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QComboBoxConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQComboBoxToConst :: QComboBox -> QComboBoxConst+castQComboBoxToConst (QComboBox ptr') = QComboBoxConst $ HoppyF.castPtr ptr'+castQComboBoxToConst (QComboBoxGc fptr' ptr') = QComboBoxConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QComboBoxConst where+  nullptr = QComboBoxConst HoppyF.nullPtr+  +  withCppPtr (QComboBoxConst ptr') f' = f' ptr'+  withCppPtr (QComboBoxConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QComboBoxConst ptr') = ptr'+  toPtr (QComboBoxConstGc _ ptr') = ptr'+  +  touchCppPtr (QComboBoxConst _) = HoppyP.return ()+  touchCppPtr (QComboBoxConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QComboBoxConst where+  delete (QComboBoxConst ptr') = delete'QComboBox ptr'+  delete (QComboBoxConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QComboBoxConst", " object."]+  +  toGc this'@(QComboBoxConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QComboBoxConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QComboBox :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QComboBoxConstGc {}) = HoppyP.return this'++instance QComboBoxConstPtr QComboBoxConst where+  toQComboBoxConst = HoppyP.id++instance M506.QWidgetConstPtr QComboBoxConst where+  toQWidgetConst (QComboBoxConst ptr') = M506.QWidgetConst $ castQComboBoxToQWidget ptr'+  toQWidgetConst (QComboBoxConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQComboBoxToQWidget ptr'++instance M94.QObjectConstPtr QComboBoxConst where+  toQObjectConst (QComboBoxConst ptr') = M94.QObjectConst $ castQComboBoxToQObject ptr'+  toQObjectConst (QComboBoxConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQComboBoxToQObject ptr'++data QComboBox =+    QComboBox (HoppyF.Ptr QComboBox)+  | QComboBoxGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QComboBox)+  deriving (HoppyP.Show)++instance HoppyP.Eq QComboBox where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QComboBox where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQComboBoxToNonconst :: QComboBoxConst -> QComboBox+castQComboBoxToNonconst (QComboBoxConst ptr') = QComboBox $ HoppyF.castPtr ptr'+castQComboBoxToNonconst (QComboBoxConstGc fptr' ptr') = QComboBoxGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QComboBox where+  nullptr = QComboBox HoppyF.nullPtr+  +  withCppPtr (QComboBox ptr') f' = f' ptr'+  withCppPtr (QComboBoxGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QComboBox ptr') = ptr'+  toPtr (QComboBoxGc _ ptr') = ptr'+  +  touchCppPtr (QComboBox _) = HoppyP.return ()+  touchCppPtr (QComboBoxGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QComboBox where+  delete (QComboBox ptr') = delete'QComboBox $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QComboBoxConst)+  delete (QComboBoxGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QComboBox", " object."]+  +  toGc this'@(QComboBox ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QComboBoxGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QComboBox :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QComboBoxGc {}) = HoppyP.return this'++instance QComboBoxConstPtr QComboBox where+  toQComboBoxConst (QComboBox ptr') = QComboBoxConst $ (HoppyF.castPtr :: HoppyF.Ptr QComboBox -> HoppyF.Ptr QComboBoxConst) ptr'+  toQComboBoxConst (QComboBoxGc fptr' ptr') = QComboBoxConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QComboBox -> HoppyF.Ptr QComboBoxConst) ptr'++instance QComboBoxPtr QComboBox where+  toQComboBox = HoppyP.id++instance M506.QWidgetConstPtr QComboBox where+  toQWidgetConst (QComboBox ptr') = M506.QWidgetConst $ castQComboBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QComboBox -> HoppyF.Ptr QComboBoxConst) ptr'+  toQWidgetConst (QComboBoxGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQComboBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QComboBox -> HoppyF.Ptr QComboBoxConst) ptr'++instance M506.QWidgetPtr QComboBox where+  toQWidget (QComboBox ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQComboBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QComboBox -> HoppyF.Ptr QComboBoxConst) ptr'+  toQWidget (QComboBoxGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQComboBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QComboBox -> HoppyF.Ptr QComboBoxConst) ptr'++instance M94.QObjectConstPtr QComboBox where+  toQObjectConst (QComboBox ptr') = M94.QObjectConst $ castQComboBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QComboBox -> HoppyF.Ptr QComboBoxConst) ptr'+  toQObjectConst (QComboBoxGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQComboBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QComboBox -> HoppyF.Ptr QComboBoxConst) ptr'++instance M94.QObjectPtr QComboBox where+  toQObject (QComboBox ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQComboBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QComboBox -> HoppyF.Ptr QComboBoxConst) ptr'+  toQObject (QComboBoxGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQComboBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QComboBox -> HoppyF.Ptr QComboBoxConst) ptr'++new :: (HoppyP.IO QComboBox)+new =+  HoppyP.fmap QComboBox+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QComboBox)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QComboBox+  (newWithParent' arg'1')++class QComboBoxSuper a where+  downToQComboBox :: a -> QComboBox++instance QComboBoxSuper M506.QWidget where+  downToQComboBox = castQComboBoxToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QComboBoxConst $ castQWidgetToQComboBox ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QComboBoxConstGc fptr' $ castQWidgetToQComboBox ptr'+instance QComboBoxSuper M94.QObject where+  downToQComboBox = castQComboBoxToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QComboBoxConst $ castQObjectToQComboBox ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QComboBoxConstGc fptr' $ castQObjectToQComboBox ptr'++class QComboBoxSuperConst a where+  downToQComboBoxConst :: a -> QComboBoxConst++instance QComboBoxSuperConst M506.QWidgetConst where+  downToQComboBoxConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QComboBoxConst $ castQWidgetToQComboBox ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QComboBoxConstGc fptr' $ castQWidgetToQComboBox ptr'+instance QComboBoxSuperConst M94.QObjectConst where+  downToQComboBoxConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QComboBoxConst $ castQObjectToQComboBox ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QComboBoxConstGc fptr' $ castQObjectToQComboBox ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QComboBox)) QComboBox where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QComboBox)) QComboBox where+  decode = HoppyP.fmap QComboBox . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Widgets/QDateEdit.hs view
@@ -0,0 +1,267 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QDateEdit (+  castQDateEditToQDateTimeEdit,+  castQDateTimeEditToQDateEdit,+  castQDateEditToQAbstractSpinBox,+  castQAbstractSpinBoxToQDateEdit,+  castQDateEditToQWidget,+  castQWidgetToQDateEdit,+  castQDateEditToQObject,+  castQObjectToQDateEdit,+  QDateEditValue (..),+  QDateEditConstPtr (..),+  QDateEditPtr (..),+  QDateEditConst (..),+  castQDateEditToConst,+  QDateEdit (..),+  castQDateEditToNonconst,+  new,+  newWithParent,+  newWithDate,+  newWithDateAndParent,+  QDateEditSuper (..),+  QDateEditSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QDate as M22+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractSpinBox as M366+import qualified Graphics.UI.Qtah.Generated.Widgets.QDateTimeEdit as M384+import qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QDateEdit_new" new' ::  HoppyP.IO (HoppyF.Ptr QDateEdit)+foreign import ccall "genpop__QDateEdit_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QDateEdit)+foreign import ccall "genpop__QDateEdit_newWithDate" newWithDate' ::  HoppyF.Ptr M22.QDateConst -> HoppyP.IO (HoppyF.Ptr QDateEdit)+foreign import ccall "genpop__QDateEdit_newWithDateAndParent" newWithDateAndParent' ::  HoppyF.Ptr M22.QDateConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QDateEdit)+foreign import ccall "gencast__QDateEdit__QDateTimeEdit" castQDateEditToQDateTimeEdit :: HoppyF.Ptr QDateEditConst -> HoppyF.Ptr M384.QDateTimeEditConst+foreign import ccall "gencast__QDateTimeEdit__QDateEdit" castQDateTimeEditToQDateEdit :: HoppyF.Ptr M384.QDateTimeEditConst -> HoppyF.Ptr QDateEditConst+foreign import ccall "gencast__QDateEdit__QAbstractSpinBox" castQDateEditToQAbstractSpinBox :: HoppyF.Ptr QDateEditConst -> HoppyF.Ptr M366.QAbstractSpinBoxConst+foreign import ccall "gencast__QAbstractSpinBox__QDateEdit" castQAbstractSpinBoxToQDateEdit :: HoppyF.Ptr M366.QAbstractSpinBoxConst -> HoppyF.Ptr QDateEditConst+foreign import ccall "gencast__QDateEdit__QWidget" castQDateEditToQWidget :: HoppyF.Ptr QDateEditConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QDateEdit" castQWidgetToQDateEdit :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QDateEditConst+foreign import ccall "gencast__QDateEdit__QObject" castQDateEditToQObject :: HoppyF.Ptr QDateEditConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QDateEdit" castQObjectToQDateEdit :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QDateEditConst+foreign import ccall "gendel__QDateEdit" delete'QDateEdit :: HoppyF.Ptr QDateEditConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDateEdit" deletePtr'QDateEdit :: HoppyF.FunPtr (HoppyF.Ptr QDateEditConst -> HoppyP.IO ())++class QDateEditValue a where+  withQDateEditPtr :: a -> (QDateEditConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDateEditConstPtr a => QDateEditValue a where+  withQDateEditPtr = HoppyP.flip ($) . toQDateEditConst++class (M384.QDateTimeEditConstPtr this) => QDateEditConstPtr this where+  toQDateEditConst :: this -> QDateEditConst++class (QDateEditConstPtr this, M384.QDateTimeEditPtr this) => QDateEditPtr this where+  toQDateEdit :: this -> QDateEdit++data QDateEditConst =+    QDateEditConst (HoppyF.Ptr QDateEditConst)+  | QDateEditConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDateEditConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDateEditConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDateEditConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDateEditToConst :: QDateEdit -> QDateEditConst+castQDateEditToConst (QDateEdit ptr') = QDateEditConst $ HoppyF.castPtr ptr'+castQDateEditToConst (QDateEditGc fptr' ptr') = QDateEditConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDateEditConst where+  nullptr = QDateEditConst HoppyF.nullPtr+  +  withCppPtr (QDateEditConst ptr') f' = f' ptr'+  withCppPtr (QDateEditConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDateEditConst ptr') = ptr'+  toPtr (QDateEditConstGc _ ptr') = ptr'+  +  touchCppPtr (QDateEditConst _) = HoppyP.return ()+  touchCppPtr (QDateEditConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDateEditConst where+  delete (QDateEditConst ptr') = delete'QDateEdit ptr'+  delete (QDateEditConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDateEditConst", " object."]+  +  toGc this'@(QDateEditConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDateEditConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDateEdit :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDateEditConstGc {}) = HoppyP.return this'++instance QDateEditConstPtr QDateEditConst where+  toQDateEditConst = HoppyP.id++instance M384.QDateTimeEditConstPtr QDateEditConst where+  toQDateTimeEditConst (QDateEditConst ptr') = M384.QDateTimeEditConst $ castQDateEditToQDateTimeEdit ptr'+  toQDateTimeEditConst (QDateEditConstGc fptr' ptr') = M384.QDateTimeEditConstGc fptr' $ castQDateEditToQDateTimeEdit ptr'++instance M366.QAbstractSpinBoxConstPtr QDateEditConst where+  toQAbstractSpinBoxConst (QDateEditConst ptr') = M366.QAbstractSpinBoxConst $ castQDateEditToQAbstractSpinBox ptr'+  toQAbstractSpinBoxConst (QDateEditConstGc fptr' ptr') = M366.QAbstractSpinBoxConstGc fptr' $ castQDateEditToQAbstractSpinBox ptr'++instance M506.QWidgetConstPtr QDateEditConst where+  toQWidgetConst (QDateEditConst ptr') = M506.QWidgetConst $ castQDateEditToQWidget ptr'+  toQWidgetConst (QDateEditConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDateEditToQWidget ptr'++instance M94.QObjectConstPtr QDateEditConst where+  toQObjectConst (QDateEditConst ptr') = M94.QObjectConst $ castQDateEditToQObject ptr'+  toQObjectConst (QDateEditConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDateEditToQObject ptr'++data QDateEdit =+    QDateEdit (HoppyF.Ptr QDateEdit)+  | QDateEditGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDateEdit)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDateEdit where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDateEdit where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDateEditToNonconst :: QDateEditConst -> QDateEdit+castQDateEditToNonconst (QDateEditConst ptr') = QDateEdit $ HoppyF.castPtr ptr'+castQDateEditToNonconst (QDateEditConstGc fptr' ptr') = QDateEditGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDateEdit where+  nullptr = QDateEdit HoppyF.nullPtr+  +  withCppPtr (QDateEdit ptr') f' = f' ptr'+  withCppPtr (QDateEditGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDateEdit ptr') = ptr'+  toPtr (QDateEditGc _ ptr') = ptr'+  +  touchCppPtr (QDateEdit _) = HoppyP.return ()+  touchCppPtr (QDateEditGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDateEdit where+  delete (QDateEdit ptr') = delete'QDateEdit $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDateEditConst)+  delete (QDateEditGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDateEdit", " object."]+  +  toGc this'@(QDateEdit ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDateEditGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDateEdit :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDateEditGc {}) = HoppyP.return this'++instance QDateEditConstPtr QDateEdit where+  toQDateEditConst (QDateEdit ptr') = QDateEditConst $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'+  toQDateEditConst (QDateEditGc fptr' ptr') = QDateEditConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'++instance QDateEditPtr QDateEdit where+  toQDateEdit = HoppyP.id++instance M384.QDateTimeEditConstPtr QDateEdit where+  toQDateTimeEditConst (QDateEdit ptr') = M384.QDateTimeEditConst $ castQDateEditToQDateTimeEdit $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'+  toQDateTimeEditConst (QDateEditGc fptr' ptr') = M384.QDateTimeEditConstGc fptr' $ castQDateEditToQDateTimeEdit $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'++instance M384.QDateTimeEditPtr QDateEdit where+  toQDateTimeEdit (QDateEdit ptr') = M384.QDateTimeEdit $ (HoppyF.castPtr :: HoppyF.Ptr M384.QDateTimeEditConst -> HoppyF.Ptr M384.QDateTimeEdit) $ castQDateEditToQDateTimeEdit $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'+  toQDateTimeEdit (QDateEditGc fptr' ptr') = M384.QDateTimeEditGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M384.QDateTimeEditConst -> HoppyF.Ptr M384.QDateTimeEdit) $ castQDateEditToQDateTimeEdit $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'++instance M366.QAbstractSpinBoxConstPtr QDateEdit where+  toQAbstractSpinBoxConst (QDateEdit ptr') = M366.QAbstractSpinBoxConst $ castQDateEditToQAbstractSpinBox $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'+  toQAbstractSpinBoxConst (QDateEditGc fptr' ptr') = M366.QAbstractSpinBoxConstGc fptr' $ castQDateEditToQAbstractSpinBox $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'++instance M366.QAbstractSpinBoxPtr QDateEdit where+  toQAbstractSpinBox (QDateEdit ptr') = M366.QAbstractSpinBox $ (HoppyF.castPtr :: HoppyF.Ptr M366.QAbstractSpinBoxConst -> HoppyF.Ptr M366.QAbstractSpinBox) $ castQDateEditToQAbstractSpinBox $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'+  toQAbstractSpinBox (QDateEditGc fptr' ptr') = M366.QAbstractSpinBoxGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M366.QAbstractSpinBoxConst -> HoppyF.Ptr M366.QAbstractSpinBox) $ castQDateEditToQAbstractSpinBox $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'++instance M506.QWidgetConstPtr QDateEdit where+  toQWidgetConst (QDateEdit ptr') = M506.QWidgetConst $ castQDateEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'+  toQWidgetConst (QDateEditGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDateEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'++instance M506.QWidgetPtr QDateEdit where+  toQWidget (QDateEdit ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDateEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'+  toQWidget (QDateEditGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDateEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'++instance M94.QObjectConstPtr QDateEdit where+  toQObjectConst (QDateEdit ptr') = M94.QObjectConst $ castQDateEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'+  toQObjectConst (QDateEditGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDateEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'++instance M94.QObjectPtr QDateEdit where+  toQObject (QDateEdit ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDateEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'+  toQObject (QDateEditGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDateEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDateEdit -> HoppyF.Ptr QDateEditConst) ptr'++new :: (HoppyP.IO QDateEdit)+new =+  HoppyP.fmap QDateEdit+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QDateEdit)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QDateEdit+  (newWithParent' arg'1')++newWithDate :: (M22.QDateValue arg'1) => (arg'1) -> (HoppyP.IO QDateEdit)+newWithDate arg'1 =+  M22.withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QDateEdit+  (newWithDate' arg'1')++newWithDateAndParent :: (M22.QDateValue arg'1, M506.QWidgetPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QDateEdit)+newWithDateAndParent arg'1 arg'2 =+  M22.withQDatePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  HoppyP.fmap QDateEdit+  (newWithDateAndParent' arg'1' arg'2')++class QDateEditSuper a where+  downToQDateEdit :: a -> QDateEdit++instance QDateEditSuper M384.QDateTimeEdit where+  downToQDateEdit = castQDateEditToNonconst . cast' . M384.castQDateTimeEditToConst+    where+      cast' (M384.QDateTimeEditConst ptr') = QDateEditConst $ castQDateTimeEditToQDateEdit ptr'+      cast' (M384.QDateTimeEditConstGc fptr' ptr') = QDateEditConstGc fptr' $ castQDateTimeEditToQDateEdit ptr'+instance QDateEditSuper M366.QAbstractSpinBox where+  downToQDateEdit = castQDateEditToNonconst . cast' . M366.castQAbstractSpinBoxToConst+    where+      cast' (M366.QAbstractSpinBoxConst ptr') = QDateEditConst $ castQAbstractSpinBoxToQDateEdit ptr'+      cast' (M366.QAbstractSpinBoxConstGc fptr' ptr') = QDateEditConstGc fptr' $ castQAbstractSpinBoxToQDateEdit ptr'+instance QDateEditSuper M506.QWidget where+  downToQDateEdit = castQDateEditToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QDateEditConst $ castQWidgetToQDateEdit ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QDateEditConstGc fptr' $ castQWidgetToQDateEdit ptr'+instance QDateEditSuper M94.QObject where+  downToQDateEdit = castQDateEditToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QDateEditConst $ castQObjectToQDateEdit ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDateEditConstGc fptr' $ castQObjectToQDateEdit ptr'++class QDateEditSuperConst a where+  downToQDateEditConst :: a -> QDateEditConst++instance QDateEditSuperConst M384.QDateTimeEditConst where+  downToQDateEditConst = cast'+    where+      cast' (M384.QDateTimeEditConst ptr') = QDateEditConst $ castQDateTimeEditToQDateEdit ptr'+      cast' (M384.QDateTimeEditConstGc fptr' ptr') = QDateEditConstGc fptr' $ castQDateTimeEditToQDateEdit ptr'+instance QDateEditSuperConst M366.QAbstractSpinBoxConst where+  downToQDateEditConst = cast'+    where+      cast' (M366.QAbstractSpinBoxConst ptr') = QDateEditConst $ castQAbstractSpinBoxToQDateEdit ptr'+      cast' (M366.QAbstractSpinBoxConstGc fptr' ptr') = QDateEditConstGc fptr' $ castQAbstractSpinBoxToQDateEdit ptr'+instance QDateEditSuperConst M506.QWidgetConst where+  downToQDateEditConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QDateEditConst $ castQWidgetToQDateEdit ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QDateEditConstGc fptr' $ castQWidgetToQDateEdit ptr'+instance QDateEditSuperConst M94.QObjectConst where+  downToQDateEditConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QDateEditConst $ castQObjectToQDateEdit ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDateEditConstGc fptr' $ castQObjectToQDateEdit ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDateEdit)) QDateEdit where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDateEdit)) QDateEdit where+  decode = HoppyP.fmap QDateEdit . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Widgets/QDateTimeEdit.hs view
@@ -0,0 +1,484 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QDateTimeEdit (+  castQDateTimeEditToQAbstractSpinBox,+  castQAbstractSpinBoxToQDateTimeEdit,+  castQDateTimeEditToQWidget,+  castQWidgetToQDateTimeEdit,+  castQDateTimeEditToQObject,+  castQObjectToQDateTimeEdit,+  QDateTimeEditValue (..),+  QDateTimeEditConstPtr (..),+  calendarPopup,+  currentSection,+  currentSectionIndex,+  date,+  displayFormat,+  displayedSections,+  maximumDate,+  minimumDate,+  sectionCount,+  QDateTimeEditPtr (..),+  setCalendarPopup,+  setCurrentSection,+  setCurrentSectionIndex,+  setDate,+  setDisplayFormat,+  setMaximumDate,+  setMinimumDate,+  emitDateChanged,+  QDateTimeEditConst (..),+  castQDateTimeEditToConst,+  QDateTimeEdit (..),+  castQDateTimeEditToNonconst,+  new,+  QDateTimeEditSuper (..),+  QDateTimeEditSuperConst (..),+  QDateTimeEditSection (..),+  QDateTimeEditSections,+  IsQDateTimeEditSections (..),+  amPmSection,+  daySection,+  hourSection,+  mSecSection,+  minuteSection,+  monthSection,+  noSection,+  secondSection,+  yearSection,+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QDate as M22+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.Widgets.QAbstractSpinBox as M366+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__QDateTimeEdit_new" new' ::  HoppyP.IO (HoppyF.Ptr QDateTimeEdit)+foreign import ccall "genpop__QDateTimeEdit_calendarPopup" calendarPopup' ::  HoppyF.Ptr QDateTimeEditConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDateTimeEdit_setCalendarPopup" setCalendarPopup' ::  HoppyF.Ptr QDateTimeEdit -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QDateTimeEdit_currentSection" currentSection' ::  HoppyF.Ptr QDateTimeEditConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDateTimeEdit_setCurrentSection" setCurrentSection' ::  HoppyF.Ptr QDateTimeEdit -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDateTimeEdit_currentSectionIndex" currentSectionIndex' ::  HoppyF.Ptr QDateTimeEditConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDateTimeEdit_setCurrentSectionIndex" setCurrentSectionIndex' ::  HoppyF.Ptr QDateTimeEdit -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDateTimeEdit_date" date' ::  HoppyF.Ptr QDateTimeEditConst -> HoppyP.IO (HoppyF.Ptr M22.QDateConst)+foreign import ccall "genpop__QDateTimeEdit_setDate" setDate' ::  HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr M22.QDateConst -> HoppyP.IO ()+foreign import ccall "genpop__QDateTimeEdit_displayFormat" displayFormat' ::  HoppyF.Ptr QDateTimeEditConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDateTimeEdit_setDisplayFormat" setDisplayFormat' ::  HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QDateTimeEdit_displayedSections" displayedSections' ::  HoppyF.Ptr QDateTimeEditConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDateTimeEdit_maximumDate" maximumDate' ::  HoppyF.Ptr QDateTimeEditConst -> HoppyP.IO (HoppyF.Ptr M22.QDateConst)+foreign import ccall "genpop__QDateTimeEdit_setMaximumDate" setMaximumDate' ::  HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr M22.QDateConst -> HoppyP.IO ()+foreign import ccall "genpop__QDateTimeEdit_minimumDate" minimumDate' ::  HoppyF.Ptr QDateTimeEditConst -> HoppyP.IO (HoppyF.Ptr M22.QDateConst)+foreign import ccall "genpop__QDateTimeEdit_setMinimumDate" setMinimumDate' ::  HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr M22.QDateConst -> HoppyP.IO ()+foreign import ccall "genpop__QDateTimeEdit_sectionCount" sectionCount' ::  HoppyF.Ptr QDateTimeEditConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDateTimeEdit_emitDateChanged" emitDateChanged' ::  HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr M22.QDateConst -> HoppyP.IO ()+foreign import ccall "gencast__QDateTimeEdit__QAbstractSpinBox" castQDateTimeEditToQAbstractSpinBox :: HoppyF.Ptr QDateTimeEditConst -> HoppyF.Ptr M366.QAbstractSpinBoxConst+foreign import ccall "gencast__QAbstractSpinBox__QDateTimeEdit" castQAbstractSpinBoxToQDateTimeEdit :: HoppyF.Ptr M366.QAbstractSpinBoxConst -> HoppyF.Ptr QDateTimeEditConst+foreign import ccall "gencast__QDateTimeEdit__QWidget" castQDateTimeEditToQWidget :: HoppyF.Ptr QDateTimeEditConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QDateTimeEdit" castQWidgetToQDateTimeEdit :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QDateTimeEditConst+foreign import ccall "gencast__QDateTimeEdit__QObject" castQDateTimeEditToQObject :: HoppyF.Ptr QDateTimeEditConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QDateTimeEdit" castQObjectToQDateTimeEdit :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QDateTimeEditConst+foreign import ccall "gendel__QDateTimeEdit" delete'QDateTimeEdit :: HoppyF.Ptr QDateTimeEditConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDateTimeEdit" deletePtr'QDateTimeEdit :: HoppyF.FunPtr (HoppyF.Ptr QDateTimeEditConst -> HoppyP.IO ())++class QDateTimeEditValue a where+  withQDateTimeEditPtr :: a -> (QDateTimeEditConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDateTimeEditConstPtr a => QDateTimeEditValue a where+  withQDateTimeEditPtr = HoppyP.flip ($) . toQDateTimeEditConst++class (M366.QAbstractSpinBoxConstPtr this) => QDateTimeEditConstPtr this where+  toQDateTimeEditConst :: this -> QDateTimeEditConst++calendarPopup :: (QDateTimeEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+calendarPopup arg'1 =+  withQDateTimeEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (calendarPopup' arg'1')++currentSection :: (QDateTimeEditValue this) => (this) {- ^ this -} -> (HoppyP.IO QDateTimeEditSection)+currentSection arg'1 =+  withQDateTimeEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (currentSection' arg'1')++currentSectionIndex :: (QDateTimeEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+currentSectionIndex arg'1 =+  withQDateTimeEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (currentSectionIndex' arg'1')++date :: (QDateTimeEditValue this) => (this) {- ^ this -} -> (HoppyP.IO M22.QDate)+date arg'1 =+  withQDateTimeEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M22.QDateConst) =<<+  (date' arg'1')++displayFormat :: (QDateTimeEditValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+displayFormat arg'1 =+  withQDateTimeEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (displayFormat' arg'1')++displayedSections :: (QDateTimeEditValue this) => (this) {- ^ this -} -> (HoppyP.IO QDateTimeEditSections)+displayedSections arg'1 =+  withQDateTimeEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (displayedSections' arg'1')++maximumDate :: (QDateTimeEditValue this) => (this) {- ^ this -} -> (HoppyP.IO M22.QDate)+maximumDate arg'1 =+  withQDateTimeEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M22.QDateConst) =<<+  (maximumDate' arg'1')++minimumDate :: (QDateTimeEditValue this) => (this) {- ^ this -} -> (HoppyP.IO M22.QDate)+minimumDate arg'1 =+  withQDateTimeEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M22.QDateConst) =<<+  (minimumDate' arg'1')++sectionCount :: (QDateTimeEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+sectionCount arg'1 =+  withQDateTimeEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (sectionCount' arg'1')++class (QDateTimeEditConstPtr this, M366.QAbstractSpinBoxPtr this) => QDateTimeEditPtr this where+  toQDateTimeEdit :: this -> QDateTimeEdit++setCalendarPopup :: (QDateTimeEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setCalendarPopup arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTimeEdit arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setCalendarPopup' arg'1' arg'2')++setCurrentSection :: (QDateTimeEditPtr this) => (this) {- ^ this -} -> (QDateTimeEditSection) -> (HoppyP.IO ())+setCurrentSection arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTimeEdit arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setCurrentSection' arg'1' arg'2')++setCurrentSectionIndex :: (QDateTimeEditPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setCurrentSectionIndex arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTimeEdit arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setCurrentSectionIndex' arg'1' arg'2')++setDate :: (QDateTimeEditPtr this, M22.QDateValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setDate arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTimeEdit arg'1) $ \arg'1' ->+  M22.withQDatePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setDate' arg'1' arg'2')++setDisplayFormat :: (QDateTimeEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setDisplayFormat arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTimeEdit arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setDisplayFormat' arg'1' arg'2')++setMaximumDate :: (QDateTimeEditPtr this, M22.QDateValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setMaximumDate arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTimeEdit arg'1) $ \arg'1' ->+  M22.withQDatePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setMaximumDate' arg'1' arg'2')++setMinimumDate :: (QDateTimeEditPtr this, M22.QDateValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setMinimumDate arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTimeEdit arg'1) $ \arg'1' ->+  M22.withQDatePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setMinimumDate' arg'1' arg'2')++emitDateChanged :: (QDateTimeEditPtr this, M22.QDateValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitDateChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDateTimeEdit arg'1) $ \arg'1' ->+  M22.withQDatePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitDateChanged' arg'1' arg'2')++data QDateTimeEditConst =+    QDateTimeEditConst (HoppyF.Ptr QDateTimeEditConst)+  | QDateTimeEditConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDateTimeEditConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDateTimeEditConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDateTimeEditConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDateTimeEditToConst :: QDateTimeEdit -> QDateTimeEditConst+castQDateTimeEditToConst (QDateTimeEdit ptr') = QDateTimeEditConst $ HoppyF.castPtr ptr'+castQDateTimeEditToConst (QDateTimeEditGc fptr' ptr') = QDateTimeEditConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDateTimeEditConst where+  nullptr = QDateTimeEditConst HoppyF.nullPtr+  +  withCppPtr (QDateTimeEditConst ptr') f' = f' ptr'+  withCppPtr (QDateTimeEditConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDateTimeEditConst ptr') = ptr'+  toPtr (QDateTimeEditConstGc _ ptr') = ptr'+  +  touchCppPtr (QDateTimeEditConst _) = HoppyP.return ()+  touchCppPtr (QDateTimeEditConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDateTimeEditConst where+  delete (QDateTimeEditConst ptr') = delete'QDateTimeEdit ptr'+  delete (QDateTimeEditConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDateTimeEditConst", " object."]+  +  toGc this'@(QDateTimeEditConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDateTimeEditConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDateTimeEdit :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDateTimeEditConstGc {}) = HoppyP.return this'++instance QDateTimeEditConstPtr QDateTimeEditConst where+  toQDateTimeEditConst = HoppyP.id++instance M366.QAbstractSpinBoxConstPtr QDateTimeEditConst where+  toQAbstractSpinBoxConst (QDateTimeEditConst ptr') = M366.QAbstractSpinBoxConst $ castQDateTimeEditToQAbstractSpinBox ptr'+  toQAbstractSpinBoxConst (QDateTimeEditConstGc fptr' ptr') = M366.QAbstractSpinBoxConstGc fptr' $ castQDateTimeEditToQAbstractSpinBox ptr'++instance M506.QWidgetConstPtr QDateTimeEditConst where+  toQWidgetConst (QDateTimeEditConst ptr') = M506.QWidgetConst $ castQDateTimeEditToQWidget ptr'+  toQWidgetConst (QDateTimeEditConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDateTimeEditToQWidget ptr'++instance M94.QObjectConstPtr QDateTimeEditConst where+  toQObjectConst (QDateTimeEditConst ptr') = M94.QObjectConst $ castQDateTimeEditToQObject ptr'+  toQObjectConst (QDateTimeEditConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDateTimeEditToQObject ptr'++data QDateTimeEdit =+    QDateTimeEdit (HoppyF.Ptr QDateTimeEdit)+  | QDateTimeEditGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDateTimeEdit)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDateTimeEdit where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDateTimeEdit where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDateTimeEditToNonconst :: QDateTimeEditConst -> QDateTimeEdit+castQDateTimeEditToNonconst (QDateTimeEditConst ptr') = QDateTimeEdit $ HoppyF.castPtr ptr'+castQDateTimeEditToNonconst (QDateTimeEditConstGc fptr' ptr') = QDateTimeEditGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDateTimeEdit where+  nullptr = QDateTimeEdit HoppyF.nullPtr+  +  withCppPtr (QDateTimeEdit ptr') f' = f' ptr'+  withCppPtr (QDateTimeEditGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDateTimeEdit ptr') = ptr'+  toPtr (QDateTimeEditGc _ ptr') = ptr'+  +  touchCppPtr (QDateTimeEdit _) = HoppyP.return ()+  touchCppPtr (QDateTimeEditGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDateTimeEdit where+  delete (QDateTimeEdit ptr') = delete'QDateTimeEdit $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDateTimeEditConst)+  delete (QDateTimeEditGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDateTimeEdit", " object."]+  +  toGc this'@(QDateTimeEdit ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDateTimeEditGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDateTimeEdit :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDateTimeEditGc {}) = HoppyP.return this'++instance QDateTimeEditConstPtr QDateTimeEdit where+  toQDateTimeEditConst (QDateTimeEdit ptr') = QDateTimeEditConst $ (HoppyF.castPtr :: HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr QDateTimeEditConst) ptr'+  toQDateTimeEditConst (QDateTimeEditGc fptr' ptr') = QDateTimeEditConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr QDateTimeEditConst) ptr'++instance QDateTimeEditPtr QDateTimeEdit where+  toQDateTimeEdit = HoppyP.id++instance M366.QAbstractSpinBoxConstPtr QDateTimeEdit where+  toQAbstractSpinBoxConst (QDateTimeEdit ptr') = M366.QAbstractSpinBoxConst $ castQDateTimeEditToQAbstractSpinBox $ (HoppyF.castPtr :: HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr QDateTimeEditConst) ptr'+  toQAbstractSpinBoxConst (QDateTimeEditGc fptr' ptr') = M366.QAbstractSpinBoxConstGc fptr' $ castQDateTimeEditToQAbstractSpinBox $ (HoppyF.castPtr :: HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr QDateTimeEditConst) ptr'++instance M366.QAbstractSpinBoxPtr QDateTimeEdit where+  toQAbstractSpinBox (QDateTimeEdit ptr') = M366.QAbstractSpinBox $ (HoppyF.castPtr :: HoppyF.Ptr M366.QAbstractSpinBoxConst -> HoppyF.Ptr M366.QAbstractSpinBox) $ castQDateTimeEditToQAbstractSpinBox $ (HoppyF.castPtr :: HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr QDateTimeEditConst) ptr'+  toQAbstractSpinBox (QDateTimeEditGc fptr' ptr') = M366.QAbstractSpinBoxGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M366.QAbstractSpinBoxConst -> HoppyF.Ptr M366.QAbstractSpinBox) $ castQDateTimeEditToQAbstractSpinBox $ (HoppyF.castPtr :: HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr QDateTimeEditConst) ptr'++instance M506.QWidgetConstPtr QDateTimeEdit where+  toQWidgetConst (QDateTimeEdit ptr') = M506.QWidgetConst $ castQDateTimeEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr QDateTimeEditConst) ptr'+  toQWidgetConst (QDateTimeEditGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDateTimeEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr QDateTimeEditConst) ptr'++instance M506.QWidgetPtr QDateTimeEdit where+  toQWidget (QDateTimeEdit ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDateTimeEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr QDateTimeEditConst) ptr'+  toQWidget (QDateTimeEditGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDateTimeEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr QDateTimeEditConst) ptr'++instance M94.QObjectConstPtr QDateTimeEdit where+  toQObjectConst (QDateTimeEdit ptr') = M94.QObjectConst $ castQDateTimeEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr QDateTimeEditConst) ptr'+  toQObjectConst (QDateTimeEditGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDateTimeEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr QDateTimeEditConst) ptr'++instance M94.QObjectPtr QDateTimeEdit where+  toQObject (QDateTimeEdit ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDateTimeEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr QDateTimeEditConst) ptr'+  toQObject (QDateTimeEditGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDateTimeEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDateTimeEdit -> HoppyF.Ptr QDateTimeEditConst) ptr'++new :: (HoppyP.IO QDateTimeEdit)+new =+  HoppyP.fmap QDateTimeEdit+  (new')++class QDateTimeEditSuper a where+  downToQDateTimeEdit :: a -> QDateTimeEdit++instance QDateTimeEditSuper M366.QAbstractSpinBox where+  downToQDateTimeEdit = castQDateTimeEditToNonconst . cast' . M366.castQAbstractSpinBoxToConst+    where+      cast' (M366.QAbstractSpinBoxConst ptr') = QDateTimeEditConst $ castQAbstractSpinBoxToQDateTimeEdit ptr'+      cast' (M366.QAbstractSpinBoxConstGc fptr' ptr') = QDateTimeEditConstGc fptr' $ castQAbstractSpinBoxToQDateTimeEdit ptr'+instance QDateTimeEditSuper M506.QWidget where+  downToQDateTimeEdit = castQDateTimeEditToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QDateTimeEditConst $ castQWidgetToQDateTimeEdit ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QDateTimeEditConstGc fptr' $ castQWidgetToQDateTimeEdit ptr'+instance QDateTimeEditSuper M94.QObject where+  downToQDateTimeEdit = castQDateTimeEditToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QDateTimeEditConst $ castQObjectToQDateTimeEdit ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDateTimeEditConstGc fptr' $ castQObjectToQDateTimeEdit ptr'++class QDateTimeEditSuperConst a where+  downToQDateTimeEditConst :: a -> QDateTimeEditConst++instance QDateTimeEditSuperConst M366.QAbstractSpinBoxConst where+  downToQDateTimeEditConst = cast'+    where+      cast' (M366.QAbstractSpinBoxConst ptr') = QDateTimeEditConst $ castQAbstractSpinBoxToQDateTimeEdit ptr'+      cast' (M366.QAbstractSpinBoxConstGc fptr' ptr') = QDateTimeEditConstGc fptr' $ castQAbstractSpinBoxToQDateTimeEdit ptr'+instance QDateTimeEditSuperConst M506.QWidgetConst where+  downToQDateTimeEditConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QDateTimeEditConst $ castQWidgetToQDateTimeEdit ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QDateTimeEditConstGc fptr' $ castQWidgetToQDateTimeEdit ptr'+instance QDateTimeEditSuperConst M94.QObjectConst where+  downToQDateTimeEditConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QDateTimeEditConst $ castQObjectToQDateTimeEdit ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDateTimeEditConstGc fptr' $ castQObjectToQDateTimeEdit ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDateTimeEdit)) QDateTimeEdit where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDateTimeEdit)) QDateTimeEdit where+  decode = HoppyP.fmap QDateTimeEdit . HoppyF.peek++data QDateTimeEditSection =+  NoSection+  | AmPmSection+  | MSecSection+  | SecondSection+  | MinuteSection+  | HourSection+  | DaySection+  | MonthSection+  | YearSection+  | UnknownQDateTimeEditSection (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QDateTimeEditSection where+  fromCppEnum NoSection = 0+  fromCppEnum AmPmSection = 1+  fromCppEnum MSecSection = 2+  fromCppEnum SecondSection = 4+  fromCppEnum MinuteSection = 8+  fromCppEnum HourSection = 16+  fromCppEnum DaySection = 256+  fromCppEnum MonthSection = 512+  fromCppEnum YearSection = 1024+  fromCppEnum (UnknownQDateTimeEditSection n) = n+  +  toCppEnum (0) = NoSection+  toCppEnum (1) = AmPmSection+  toCppEnum (2) = MSecSection+  toCppEnum (4) = SecondSection+  toCppEnum (8) = MinuteSection+  toCppEnum (16) = HourSection+  toCppEnum (256) = DaySection+  toCppEnum (512) = MonthSection+  toCppEnum (1024) = YearSection+  toCppEnum n = UnknownQDateTimeEditSection n++instance HoppyP.Eq QDateTimeEditSection where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QDateTimeEditSection where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QDateTimeEditSections = QDateTimeEditSections (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QDateTimeEditSection QDateTimeEditSections where+  enumToFlags = QDateTimeEditSections . QtahFHR.fromCppEnum+  flagsToEnum (QDateTimeEditSections x') = QtahFHR.toCppEnum x'++class IsQDateTimeEditSections a where+  toQDateTimeEditSections :: a -> QDateTimeEditSections++instance IsQDateTimeEditSections QDateTimeEditSections where toQDateTimeEditSections = QtahP.id+instance IsQDateTimeEditSections QDateTimeEditSection where toQDateTimeEditSections = QtahFlags.enumToFlags+instance IsQDateTimeEditSections (HoppyFC.CInt) where toQDateTimeEditSections = QtahFlags.numToFlags++amPmSection :: QDateTimeEditSections+amPmSection = QDateTimeEditSections (1)++daySection :: QDateTimeEditSections+daySection = QDateTimeEditSections (256)++hourSection :: QDateTimeEditSections+hourSection = QDateTimeEditSections (16)++mSecSection :: QDateTimeEditSections+mSecSection = QDateTimeEditSections (2)++minuteSection :: QDateTimeEditSections+minuteSection = QDateTimeEditSections (8)++monthSection :: QDateTimeEditSections+monthSection = QDateTimeEditSections (512)++noSection :: QDateTimeEditSections+noSection = QDateTimeEditSections (0)++secondSection :: QDateTimeEditSections+secondSection = QDateTimeEditSections (4)++yearSection :: QDateTimeEditSections+yearSection = QDateTimeEditSections (1024)++instance QtahDB.Bits QDateTimeEditSections where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum
src/Graphics/UI/Qtah/Generated/Widgets/QDial.hs view
@@ -0,0 +1,293 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QDial (+  castQDialToQAbstractSlider,+  castQAbstractSliderToQDial,+  castQDialToQWidget,+  castQWidgetToQDial,+  castQDialToQObject,+  castQObjectToQDial,+  QDialValue (..),+  QDialConstPtr (..),+  notchSize,+  notchTarget,+  notchesVisible,+  wrapping,+  QDialPtr (..),+  setNotchTarget,+  setNotchesVisible,+  setWrapping,+  QDialConst (..),+  castQDialToConst,+  QDial (..),+  castQDialToNonconst,+  new,+  newWithParent,+  QDialSuper (..),+  QDialSuperConst (..),+  ) 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.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractSlider as M364+import qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QDial_new" new' ::  HoppyP.IO (HoppyF.Ptr QDial)+foreign import ccall "genpop__QDial_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QDial)+foreign import ccall "genpop__QDial_notchSize" notchSize' ::  HoppyF.Ptr QDialConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDial_notchTarget" notchTarget' ::  HoppyF.Ptr QDialConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QDial_setNotchTarget" setNotchTarget' ::  HoppyF.Ptr QDial -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QDial_notchesVisible" notchesVisible' ::  HoppyF.Ptr QDialConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDial_setNotchesVisible" setNotchesVisible' ::  HoppyF.Ptr QDial -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QDial_wrapping" wrapping' ::  HoppyF.Ptr QDialConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDial_setWrapping" setWrapping' ::  HoppyF.Ptr QDial -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "gencast__QDial__QAbstractSlider" castQDialToQAbstractSlider :: HoppyF.Ptr QDialConst -> HoppyF.Ptr M364.QAbstractSliderConst+foreign import ccall "gencast__QAbstractSlider__QDial" castQAbstractSliderToQDial :: HoppyF.Ptr M364.QAbstractSliderConst -> HoppyF.Ptr QDialConst+foreign import ccall "gencast__QDial__QWidget" castQDialToQWidget :: HoppyF.Ptr QDialConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QDial" castQWidgetToQDial :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QDialConst+foreign import ccall "gencast__QDial__QObject" castQDialToQObject :: HoppyF.Ptr QDialConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QDial" castQObjectToQDial :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QDialConst+foreign import ccall "gendel__QDial" delete'QDial :: HoppyF.Ptr QDialConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDial" deletePtr'QDial :: HoppyF.FunPtr (HoppyF.Ptr QDialConst -> HoppyP.IO ())++class QDialValue a where+  withQDialPtr :: a -> (QDialConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDialConstPtr a => QDialValue a where+  withQDialPtr = HoppyP.flip ($) . toQDialConst++class (M364.QAbstractSliderConstPtr this) => QDialConstPtr this where+  toQDialConst :: this -> QDialConst++notchSize :: (QDialValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+notchSize arg'1 =+  withQDialPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (notchSize' arg'1')++notchTarget :: (QDialValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+notchTarget arg'1 =+  withQDialPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (notchTarget' arg'1')++notchesVisible :: (QDialValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+notchesVisible arg'1 =+  withQDialPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (notchesVisible' arg'1')++wrapping :: (QDialValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+wrapping arg'1 =+  withQDialPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (wrapping' arg'1')++class (QDialConstPtr this, M364.QAbstractSliderPtr this) => QDialPtr this where+  toQDial :: this -> QDial++setNotchTarget :: (QDialPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setNotchTarget arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDial arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setNotchTarget' arg'1' arg'2')++setNotchesVisible :: (QDialPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setNotchesVisible arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDial arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setNotchesVisible' arg'1' arg'2')++setWrapping :: (QDialPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setWrapping arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDial arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setWrapping' arg'1' arg'2')++data QDialConst =+    QDialConst (HoppyF.Ptr QDialConst)+  | QDialConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDialConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDialConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDialConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDialToConst :: QDial -> QDialConst+castQDialToConst (QDial ptr') = QDialConst $ HoppyF.castPtr ptr'+castQDialToConst (QDialGc fptr' ptr') = QDialConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDialConst where+  nullptr = QDialConst HoppyF.nullPtr+  +  withCppPtr (QDialConst ptr') f' = f' ptr'+  withCppPtr (QDialConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDialConst ptr') = ptr'+  toPtr (QDialConstGc _ ptr') = ptr'+  +  touchCppPtr (QDialConst _) = HoppyP.return ()+  touchCppPtr (QDialConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDialConst where+  delete (QDialConst ptr') = delete'QDial ptr'+  delete (QDialConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDialConst", " object."]+  +  toGc this'@(QDialConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDialConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDial :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDialConstGc {}) = HoppyP.return this'++instance QDialConstPtr QDialConst where+  toQDialConst = HoppyP.id++instance M364.QAbstractSliderConstPtr QDialConst where+  toQAbstractSliderConst (QDialConst ptr') = M364.QAbstractSliderConst $ castQDialToQAbstractSlider ptr'+  toQAbstractSliderConst (QDialConstGc fptr' ptr') = M364.QAbstractSliderConstGc fptr' $ castQDialToQAbstractSlider ptr'++instance M506.QWidgetConstPtr QDialConst where+  toQWidgetConst (QDialConst ptr') = M506.QWidgetConst $ castQDialToQWidget ptr'+  toQWidgetConst (QDialConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDialToQWidget ptr'++instance M94.QObjectConstPtr QDialConst where+  toQObjectConst (QDialConst ptr') = M94.QObjectConst $ castQDialToQObject ptr'+  toQObjectConst (QDialConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDialToQObject ptr'++data QDial =+    QDial (HoppyF.Ptr QDial)+  | QDialGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDial)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDial where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDial where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDialToNonconst :: QDialConst -> QDial+castQDialToNonconst (QDialConst ptr') = QDial $ HoppyF.castPtr ptr'+castQDialToNonconst (QDialConstGc fptr' ptr') = QDialGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDial where+  nullptr = QDial HoppyF.nullPtr+  +  withCppPtr (QDial ptr') f' = f' ptr'+  withCppPtr (QDialGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDial ptr') = ptr'+  toPtr (QDialGc _ ptr') = ptr'+  +  touchCppPtr (QDial _) = HoppyP.return ()+  touchCppPtr (QDialGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDial where+  delete (QDial ptr') = delete'QDial $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDialConst)+  delete (QDialGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDial", " object."]+  +  toGc this'@(QDial ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDialGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDial :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDialGc {}) = HoppyP.return this'++instance QDialConstPtr QDial where+  toQDialConst (QDial ptr') = QDialConst $ (HoppyF.castPtr :: HoppyF.Ptr QDial -> HoppyF.Ptr QDialConst) ptr'+  toQDialConst (QDialGc fptr' ptr') = QDialConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDial -> HoppyF.Ptr QDialConst) ptr'++instance QDialPtr QDial where+  toQDial = HoppyP.id++instance M364.QAbstractSliderConstPtr QDial where+  toQAbstractSliderConst (QDial ptr') = M364.QAbstractSliderConst $ castQDialToQAbstractSlider $ (HoppyF.castPtr :: HoppyF.Ptr QDial -> HoppyF.Ptr QDialConst) ptr'+  toQAbstractSliderConst (QDialGc fptr' ptr') = M364.QAbstractSliderConstGc fptr' $ castQDialToQAbstractSlider $ (HoppyF.castPtr :: HoppyF.Ptr QDial -> HoppyF.Ptr QDialConst) ptr'++instance M364.QAbstractSliderPtr QDial where+  toQAbstractSlider (QDial ptr') = M364.QAbstractSlider $ (HoppyF.castPtr :: HoppyF.Ptr M364.QAbstractSliderConst -> HoppyF.Ptr M364.QAbstractSlider) $ castQDialToQAbstractSlider $ (HoppyF.castPtr :: HoppyF.Ptr QDial -> HoppyF.Ptr QDialConst) ptr'+  toQAbstractSlider (QDialGc fptr' ptr') = M364.QAbstractSliderGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M364.QAbstractSliderConst -> HoppyF.Ptr M364.QAbstractSlider) $ castQDialToQAbstractSlider $ (HoppyF.castPtr :: HoppyF.Ptr QDial -> HoppyF.Ptr QDialConst) ptr'++instance M506.QWidgetConstPtr QDial where+  toQWidgetConst (QDial ptr') = M506.QWidgetConst $ castQDialToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDial -> HoppyF.Ptr QDialConst) ptr'+  toQWidgetConst (QDialGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDialToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDial -> HoppyF.Ptr QDialConst) ptr'++instance M506.QWidgetPtr QDial where+  toQWidget (QDial ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDialToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDial -> HoppyF.Ptr QDialConst) ptr'+  toQWidget (QDialGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDialToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDial -> HoppyF.Ptr QDialConst) ptr'++instance M94.QObjectConstPtr QDial where+  toQObjectConst (QDial ptr') = M94.QObjectConst $ castQDialToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDial -> HoppyF.Ptr QDialConst) ptr'+  toQObjectConst (QDialGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDialToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDial -> HoppyF.Ptr QDialConst) ptr'++instance M94.QObjectPtr QDial where+  toQObject (QDial ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDialToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDial -> HoppyF.Ptr QDialConst) ptr'+  toQObject (QDialGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDialToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDial -> HoppyF.Ptr QDialConst) ptr'++new :: (HoppyP.IO QDial)+new =+  HoppyP.fmap QDial+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QDial)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QDial+  (newWithParent' arg'1')++class QDialSuper a where+  downToQDial :: a -> QDial++instance QDialSuper M364.QAbstractSlider where+  downToQDial = castQDialToNonconst . cast' . M364.castQAbstractSliderToConst+    where+      cast' (M364.QAbstractSliderConst ptr') = QDialConst $ castQAbstractSliderToQDial ptr'+      cast' (M364.QAbstractSliderConstGc fptr' ptr') = QDialConstGc fptr' $ castQAbstractSliderToQDial ptr'+instance QDialSuper M506.QWidget where+  downToQDial = castQDialToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QDialConst $ castQWidgetToQDial ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QDialConstGc fptr' $ castQWidgetToQDial ptr'+instance QDialSuper M94.QObject where+  downToQDial = castQDialToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QDialConst $ castQObjectToQDial ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDialConstGc fptr' $ castQObjectToQDial ptr'++class QDialSuperConst a where+  downToQDialConst :: a -> QDialConst++instance QDialSuperConst M364.QAbstractSliderConst where+  downToQDialConst = cast'+    where+      cast' (M364.QAbstractSliderConst ptr') = QDialConst $ castQAbstractSliderToQDial ptr'+      cast' (M364.QAbstractSliderConstGc fptr' ptr') = QDialConstGc fptr' $ castQAbstractSliderToQDial ptr'+instance QDialSuperConst M506.QWidgetConst where+  downToQDialConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QDialConst $ castQWidgetToQDial ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QDialConstGc fptr' $ castQWidgetToQDial ptr'+instance QDialSuperConst M94.QObjectConst where+  downToQDialConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QDialConst $ castQObjectToQDial ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDialConstGc fptr' $ castQObjectToQDial ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDial)) QDial where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDial)) QDial where+  decode = HoppyP.fmap QDial . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Widgets/QDialog.hs view
@@ -0,0 +1,357 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QDialog (+  castQDialogToQWidget,+  castQWidgetToQDialog,+  castQDialogToQObject,+  castQObjectToQDialog,+  QDialogValue (..),+  QDialogConstPtr (..),+  isModal,+  result,+  isSizeGripEnabled,+  QDialogPtr (..),+  accept,+  done,+  exec,+  setModal,+  open,+  reject,+  setResult,+  setSizeGripEnabled,+  emitAccepted,+  emitFinished,+  emitRejected,+  QDialogConst (..),+  castQDialogToConst,+  QDialog (..),+  castQDialogToNonconst,+  new,+  newWithParent,+  newWithParentAndFlags,+  QDialogSuper (..),+  QDialogSuperConst (..),+  QDialogDialogCode (..),+  ) 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.QWidget as M506+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QDialog_new" new' ::  HoppyP.IO (HoppyF.Ptr QDialog)+foreign import ccall "genpop__QDialog_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QDialog)+foreign import ccall "genpop__QDialog_newWithParentAndFlags" newWithParentAndFlags' ::  HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QDialog)+foreign import ccall "genpop__QDialog_accept" accept' ::  HoppyF.Ptr QDialog -> HoppyP.IO ()+foreign import ccall "genpop__QDialog_done" done' ::  HoppyF.Ptr QDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDialog_exec" exec' ::  HoppyF.Ptr QDialog -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDialog_isModal" isModal' ::  HoppyF.Ptr QDialogConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDialog_setModal" setModal' ::  HoppyF.Ptr QDialog -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QDialog_open" open' ::  HoppyF.Ptr QDialog -> HoppyP.IO ()+foreign import ccall "genpop__QDialog_reject" reject' ::  HoppyF.Ptr QDialog -> HoppyP.IO ()+foreign import ccall "genpop__QDialog_result" result' ::  HoppyF.Ptr QDialogConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDialog_setResult" setResult' ::  HoppyF.Ptr QDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDialog_isSizeGripEnabled" isSizeGripEnabled' ::  HoppyF.Ptr QDialogConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDialog_setSizeGripEnabled" setSizeGripEnabled' ::  HoppyF.Ptr QDialog -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QDialog_emitAccepted" emitAccepted' ::  HoppyF.Ptr QDialog -> HoppyP.IO ()+foreign import ccall "genpop__QDialog_emitFinished" emitFinished' ::  HoppyF.Ptr QDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDialog_emitRejected" emitRejected' ::  HoppyF.Ptr QDialog -> HoppyP.IO ()+foreign import ccall "gencast__QDialog__QWidget" castQDialogToQWidget :: HoppyF.Ptr QDialogConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QDialog" castQWidgetToQDialog :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QDialogConst+foreign import ccall "gencast__QDialog__QObject" castQDialogToQObject :: HoppyF.Ptr QDialogConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QDialog" castQObjectToQDialog :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QDialogConst+foreign import ccall "gendel__QDialog" delete'QDialog :: HoppyF.Ptr QDialogConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDialog" deletePtr'QDialog :: HoppyF.FunPtr (HoppyF.Ptr QDialogConst -> HoppyP.IO ())++class QDialogValue a where+  withQDialogPtr :: a -> (QDialogConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDialogConstPtr a => QDialogValue a where+  withQDialogPtr = HoppyP.flip ($) . toQDialogConst++class (M506.QWidgetConstPtr this) => QDialogConstPtr this where+  toQDialogConst :: this -> QDialogConst++isModal :: (QDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isModal arg'1 =+  withQDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isModal' arg'1')++result :: (QDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+result arg'1 =+  withQDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (result' arg'1')++isSizeGripEnabled :: (QDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isSizeGripEnabled arg'1 =+  withQDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSizeGripEnabled' arg'1')++class (QDialogConstPtr this, M506.QWidgetPtr this) => QDialogPtr this where+  toQDialog :: this -> QDialog++accept :: (QDialogPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+accept arg'1 =+  HoppyFHR.withCppPtr (toQDialog arg'1) $ \arg'1' ->+  (accept' arg'1')++done :: (QDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+done arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (done' arg'1' arg'2')++exec :: (QDialogPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+exec arg'1 =+  HoppyFHR.withCppPtr (toQDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (exec' arg'1')++setModal :: (QDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setModal arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDialog arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setModal' arg'1' arg'2')++open :: (QDialogPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+open arg'1 =+  HoppyFHR.withCppPtr (toQDialog arg'1) $ \arg'1' ->+  (open' arg'1')++reject :: (QDialogPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+reject arg'1 =+  HoppyFHR.withCppPtr (toQDialog arg'1) $ \arg'1' ->+  (reject' arg'1')++setResult :: (QDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setResult arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setResult' arg'1' arg'2')++setSizeGripEnabled :: (QDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setSizeGripEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDialog arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setSizeGripEnabled' arg'1' arg'2')++emitAccepted :: (QDialogPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitAccepted arg'1 =+  HoppyFHR.withCppPtr (toQDialog arg'1) $ \arg'1' ->+  (emitAccepted' arg'1')++emitFinished :: (QDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitFinished arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitFinished' arg'1' arg'2')++emitRejected :: (QDialogPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitRejected arg'1 =+  HoppyFHR.withCppPtr (toQDialog arg'1) $ \arg'1' ->+  (emitRejected' arg'1')++data QDialogConst =+    QDialogConst (HoppyF.Ptr QDialogConst)+  | QDialogConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDialogConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDialogConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDialogConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDialogToConst :: QDialog -> QDialogConst+castQDialogToConst (QDialog ptr') = QDialogConst $ HoppyF.castPtr ptr'+castQDialogToConst (QDialogGc fptr' ptr') = QDialogConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDialogConst where+  nullptr = QDialogConst HoppyF.nullPtr+  +  withCppPtr (QDialogConst ptr') f' = f' ptr'+  withCppPtr (QDialogConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDialogConst ptr') = ptr'+  toPtr (QDialogConstGc _ ptr') = ptr'+  +  touchCppPtr (QDialogConst _) = HoppyP.return ()+  touchCppPtr (QDialogConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDialogConst where+  delete (QDialogConst ptr') = delete'QDialog ptr'+  delete (QDialogConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDialogConst", " object."]+  +  toGc this'@(QDialogConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDialogConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDialog :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDialogConstGc {}) = HoppyP.return this'++instance QDialogConstPtr QDialogConst where+  toQDialogConst = HoppyP.id++instance M506.QWidgetConstPtr QDialogConst where+  toQWidgetConst (QDialogConst ptr') = M506.QWidgetConst $ castQDialogToQWidget ptr'+  toQWidgetConst (QDialogConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDialogToQWidget ptr'++instance M94.QObjectConstPtr QDialogConst where+  toQObjectConst (QDialogConst ptr') = M94.QObjectConst $ castQDialogToQObject ptr'+  toQObjectConst (QDialogConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDialogToQObject ptr'++data QDialog =+    QDialog (HoppyF.Ptr QDialog)+  | QDialogGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDialog)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDialog where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDialog where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDialogToNonconst :: QDialogConst -> QDialog+castQDialogToNonconst (QDialogConst ptr') = QDialog $ HoppyF.castPtr ptr'+castQDialogToNonconst (QDialogConstGc fptr' ptr') = QDialogGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDialog where+  nullptr = QDialog HoppyF.nullPtr+  +  withCppPtr (QDialog ptr') f' = f' ptr'+  withCppPtr (QDialogGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDialog ptr') = ptr'+  toPtr (QDialogGc _ ptr') = ptr'+  +  touchCppPtr (QDialog _) = HoppyP.return ()+  touchCppPtr (QDialogGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDialog where+  delete (QDialog ptr') = delete'QDialog $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDialogConst)+  delete (QDialogGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDialog", " object."]+  +  toGc this'@(QDialog ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDialogGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDialog :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDialogGc {}) = HoppyP.return this'++instance QDialogConstPtr QDialog where+  toQDialogConst (QDialog ptr') = QDialogConst $ (HoppyF.castPtr :: HoppyF.Ptr QDialog -> HoppyF.Ptr QDialogConst) ptr'+  toQDialogConst (QDialogGc fptr' ptr') = QDialogConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDialog -> HoppyF.Ptr QDialogConst) ptr'++instance QDialogPtr QDialog where+  toQDialog = HoppyP.id++instance M506.QWidgetConstPtr QDialog where+  toQWidgetConst (QDialog ptr') = M506.QWidgetConst $ castQDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDialog -> HoppyF.Ptr QDialogConst) ptr'+  toQWidgetConst (QDialogGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDialog -> HoppyF.Ptr QDialogConst) ptr'++instance M506.QWidgetPtr QDialog where+  toQWidget (QDialog ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDialog -> HoppyF.Ptr QDialogConst) ptr'+  toQWidget (QDialogGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDialog -> HoppyF.Ptr QDialogConst) ptr'++instance M94.QObjectConstPtr QDialog where+  toQObjectConst (QDialog ptr') = M94.QObjectConst $ castQDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDialog -> HoppyF.Ptr QDialogConst) ptr'+  toQObjectConst (QDialogGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDialog -> HoppyF.Ptr QDialogConst) ptr'++instance M94.QObjectPtr QDialog where+  toQObject (QDialog ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDialog -> HoppyF.Ptr QDialogConst) ptr'+  toQObject (QDialogGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDialog -> HoppyF.Ptr QDialogConst) ptr'++new :: (HoppyP.IO QDialog)+new =+  HoppyP.fmap QDialog+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QDialog)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QDialog+  (newWithParent' arg'1')++newWithParentAndFlags :: (M506.QWidgetPtr arg'1, M190.IsQtWindowFlags arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QDialog)+newWithParentAndFlags arg'1 arg'2 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtWindowFlags+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QDialog+  (newWithParentAndFlags' arg'1' arg'2')++class QDialogSuper a where+  downToQDialog :: a -> QDialog++instance QDialogSuper M506.QWidget where+  downToQDialog = castQDialogToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QDialogConst $ castQWidgetToQDialog ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QDialogConstGc fptr' $ castQWidgetToQDialog ptr'+instance QDialogSuper M94.QObject where+  downToQDialog = castQDialogToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QDialogConst $ castQObjectToQDialog ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDialogConstGc fptr' $ castQObjectToQDialog ptr'++class QDialogSuperConst a where+  downToQDialogConst :: a -> QDialogConst++instance QDialogSuperConst M506.QWidgetConst where+  downToQDialogConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QDialogConst $ castQWidgetToQDialog ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QDialogConstGc fptr' $ castQWidgetToQDialog ptr'+instance QDialogSuperConst M94.QObjectConst where+  downToQDialogConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QDialogConst $ castQObjectToQDialog ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDialogConstGc fptr' $ castQObjectToQDialog ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDialog)) QDialog where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDialog)) QDialog where+  decode = HoppyP.fmap QDialog . HoppyF.peek++data QDialogDialogCode =+  Rejected+  | Accepted+  | UnknownQDialogDialogCode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QDialogDialogCode where+  fromCppEnum Rejected = 0+  fromCppEnum Accepted = 1+  fromCppEnum (UnknownQDialogDialogCode n) = n+  +  toCppEnum (0) = Rejected+  toCppEnum (1) = Accepted+  toCppEnum n = UnknownQDialogDialogCode n++instance HoppyP.Eq QDialogDialogCode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QDialogDialogCode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Widgets/QDialogButtonBox.hs view
@@ -0,0 +1,639 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QDialogButtonBox (+  castQDialogButtonBoxToQWidget,+  castQWidgetToQDialogButtonBox,+  castQDialogButtonBoxToQObject,+  castQObjectToQDialogButtonBox,+  QDialogButtonBoxValue (..),+  QDialogButtonBoxConstPtr (..),+  button,+  buttonRole,+  buttons,+  centerButtons,+  orientation,+  standardButton,+  standardButtons,+  QDialogButtonBoxPtr (..),+  addButton,+  addButtonWithText,+  addStandardButton,+  setCenterButtons,+  clear,+  setOrientation,+  removeButton,+  setStandardButtons,+  emitAccepted,+  emitClicked,+  emitHelpRequested,+  emitRejected,+  QDialogButtonBoxConst (..),+  castQDialogButtonBoxToConst,+  QDialogButtonBox (..),+  castQDialogButtonBoxToNonconst,+  new,+  newWithParent,+  QDialogButtonBoxSuper (..),+  QDialogButtonBoxSuperConst (..),+  QDialogButtonBoxButtonLayout (..),+  QDialogButtonBoxButtonRole (..),+  QDialogButtonBoxStandardButton (..),+  QDialogButtonBoxStandardButtons,+  IsQDialogButtonBoxStandardButtons (..),+  abort,+  apply,+  cancel,+  close,+  discard,+  help,+  ignore,+  no,+  noButton,+  noToAll,+  ok,+  open,+  reset,+  restoreDefaults,+  retry,+  save,+  saveAll,+  yes,+  yesToAll,+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QList.QAbstractButton as M194+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.QAbstractButton as M354+import qualified Graphics.UI.Qtah.Generated.Widgets.QPushButton as M458+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__QDialogButtonBox_new" new' ::  HoppyP.IO (HoppyF.Ptr QDialogButtonBox)+foreign import ccall "genpop__QDialogButtonBox_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QDialogButtonBox)+foreign import ccall "genpop__QDialogButtonBox_addButton" addButton' ::  HoppyF.Ptr QDialogButtonBox -> HoppyF.Ptr M354.QAbstractButton -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDialogButtonBox_addButtonWithText" addButtonWithText' ::  HoppyF.Ptr QDialogButtonBox -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M458.QPushButton)+foreign import ccall "genpop__QDialogButtonBox_addStandardButton" addStandardButton' ::  HoppyF.Ptr QDialogButtonBox -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M458.QPushButton)+foreign import ccall "genpop__QDialogButtonBox_button" button' ::  HoppyF.Ptr QDialogButtonBoxConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M458.QPushButton)+foreign import ccall "genpop__QDialogButtonBox_buttonRole" buttonRole' ::  HoppyF.Ptr QDialogButtonBoxConst -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDialogButtonBox_buttons" buttons' ::  HoppyF.Ptr QDialogButtonBoxConst -> HoppyP.IO (HoppyF.Ptr M194.QListQAbstractButtonConst)+foreign import ccall "genpop__QDialogButtonBox_centerButtons" centerButtons' ::  HoppyF.Ptr QDialogButtonBoxConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDialogButtonBox_setCenterButtons" setCenterButtons' ::  HoppyF.Ptr QDialogButtonBox -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QDialogButtonBox_clear" clear' ::  HoppyF.Ptr QDialogButtonBox -> HoppyP.IO ()+foreign import ccall "genpop__QDialogButtonBox_orientation" orientation' ::  HoppyF.Ptr QDialogButtonBoxConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDialogButtonBox_setOrientation" setOrientation' ::  HoppyF.Ptr QDialogButtonBox -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDialogButtonBox_removeButton" removeButton' ::  HoppyF.Ptr QDialogButtonBox -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QDialogButtonBox_standardButton" standardButton' ::  HoppyF.Ptr QDialogButtonBoxConst -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDialogButtonBox_standardButtons" standardButtons' ::  HoppyF.Ptr QDialogButtonBoxConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDialogButtonBox_setStandardButtons" setStandardButtons' ::  HoppyF.Ptr QDialogButtonBox -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDialogButtonBox_emitAccepted" emitAccepted' ::  HoppyF.Ptr QDialogButtonBox -> HoppyP.IO ()+foreign import ccall "genpop__QDialogButtonBox_emitClicked" emitClicked' ::  HoppyF.Ptr QDialogButtonBox -> HoppyF.Ptr M354.QAbstractButton -> HoppyP.IO ()+foreign import ccall "genpop__QDialogButtonBox_emitHelpRequested" emitHelpRequested' ::  HoppyF.Ptr QDialogButtonBox -> HoppyP.IO ()+foreign import ccall "genpop__QDialogButtonBox_emitRejected" emitRejected' ::  HoppyF.Ptr QDialogButtonBox -> HoppyP.IO ()+foreign import ccall "gencast__QDialogButtonBox__QWidget" castQDialogButtonBoxToQWidget :: HoppyF.Ptr QDialogButtonBoxConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QDialogButtonBox" castQWidgetToQDialogButtonBox :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QDialogButtonBoxConst+foreign import ccall "gencast__QDialogButtonBox__QObject" castQDialogButtonBoxToQObject :: HoppyF.Ptr QDialogButtonBoxConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QDialogButtonBox" castQObjectToQDialogButtonBox :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QDialogButtonBoxConst+foreign import ccall "gendel__QDialogButtonBox" delete'QDialogButtonBox :: HoppyF.Ptr QDialogButtonBoxConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDialogButtonBox" deletePtr'QDialogButtonBox :: HoppyF.FunPtr (HoppyF.Ptr QDialogButtonBoxConst -> HoppyP.IO ())++class QDialogButtonBoxValue a where+  withQDialogButtonBoxPtr :: a -> (QDialogButtonBoxConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDialogButtonBoxConstPtr a => QDialogButtonBoxValue a where+  withQDialogButtonBoxPtr = HoppyP.flip ($) . toQDialogButtonBoxConst++class (M506.QWidgetConstPtr this) => QDialogButtonBoxConstPtr this where+  toQDialogButtonBoxConst :: this -> QDialogButtonBoxConst++button :: (QDialogButtonBoxValue this) => (this) {- ^ this -} -> (QDialogButtonBoxStandardButton) -> (HoppyP.IO M458.QPushButton)+button arg'1 arg'2 =+  withQDialogButtonBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M458.QPushButton+  (button' arg'1' arg'2')++buttonRole :: (QDialogButtonBoxValue this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QDialogButtonBoxButtonRole)+buttonRole arg'1 arg'2 =+  withQDialogButtonBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (buttonRole' arg'1' arg'2')++buttons :: (QDialogButtonBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO [M354.QAbstractButton])+buttons arg'1 =+  withQDialogButtonBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M194.QListQAbstractButtonConst) =<<+  (buttons' arg'1')++centerButtons :: (QDialogButtonBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+centerButtons arg'1 =+  withQDialogButtonBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (centerButtons' arg'1')++orientation :: (QDialogButtonBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtOrientation)+orientation arg'1 =+  withQDialogButtonBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (orientation' arg'1')++standardButton :: (QDialogButtonBoxValue this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QDialogButtonBoxStandardButton)+standardButton arg'1 arg'2 =+  withQDialogButtonBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (standardButton' arg'1' arg'2')++standardButtons :: (QDialogButtonBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO QDialogButtonBoxStandardButtons)+standardButtons arg'1 =+  withQDialogButtonBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (standardButtons' arg'1')++class (QDialogButtonBoxConstPtr this, M506.QWidgetPtr this) => QDialogButtonBoxPtr this where+  toQDialogButtonBox :: this -> QDialogButtonBox++addButton :: (QDialogButtonBoxPtr this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (QDialogButtonBoxButtonRole) -> (HoppyP.IO ())+addButton arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQDialogButtonBox arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (addButton' arg'1' arg'2' arg'3')++addButtonWithText :: (QDialogButtonBoxPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (QDialogButtonBoxButtonRole) -> (HoppyP.IO M458.QPushButton)+addButtonWithText arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQDialogButtonBox arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap M458.QPushButton+  (addButtonWithText' arg'1' arg'2' arg'3')++addStandardButton :: (QDialogButtonBoxPtr this) => (this) {- ^ this -} -> (QDialogButtonBoxStandardButton) -> (HoppyP.IO M458.QPushButton)+addStandardButton arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDialogButtonBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M458.QPushButton+  (addStandardButton' arg'1' arg'2')++setCenterButtons :: (QDialogButtonBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setCenterButtons arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDialogButtonBox arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setCenterButtons' arg'1' arg'2')++clear :: (QDialogButtonBoxPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQDialogButtonBox arg'1) $ \arg'1' ->+  (clear' arg'1')++setOrientation :: (QDialogButtonBoxPtr this) => (this) {- ^ this -} -> (M190.QtOrientation) -> (HoppyP.IO ())+setOrientation arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDialogButtonBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setOrientation' arg'1' arg'2')++removeButton :: (QDialogButtonBoxPtr this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+removeButton arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDialogButtonBox arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (removeButton' arg'1' arg'2')++setStandardButtons :: (QDialogButtonBoxPtr this, IsQDialogButtonBoxStandardButtons arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setStandardButtons arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDialogButtonBox arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQDialogButtonBoxStandardButtons+  ) arg'2 >>= \arg'2' ->+  (setStandardButtons' arg'1' arg'2')++emitAccepted :: (QDialogButtonBoxPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitAccepted arg'1 =+  HoppyFHR.withCppPtr (toQDialogButtonBox arg'1) $ \arg'1' ->+  (emitAccepted' arg'1')++emitClicked :: (QDialogButtonBoxPtr this, M354.QAbstractButtonPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitClicked arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDialogButtonBox arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M354.toQAbstractButton arg'2) $ \arg'2' ->+  (emitClicked' arg'1' arg'2')++emitHelpRequested :: (QDialogButtonBoxPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitHelpRequested arg'1 =+  HoppyFHR.withCppPtr (toQDialogButtonBox arg'1) $ \arg'1' ->+  (emitHelpRequested' arg'1')++emitRejected :: (QDialogButtonBoxPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitRejected arg'1 =+  HoppyFHR.withCppPtr (toQDialogButtonBox arg'1) $ \arg'1' ->+  (emitRejected' arg'1')++data QDialogButtonBoxConst =+    QDialogButtonBoxConst (HoppyF.Ptr QDialogButtonBoxConst)+  | QDialogButtonBoxConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDialogButtonBoxConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDialogButtonBoxConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDialogButtonBoxConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDialogButtonBoxToConst :: QDialogButtonBox -> QDialogButtonBoxConst+castQDialogButtonBoxToConst (QDialogButtonBox ptr') = QDialogButtonBoxConst $ HoppyF.castPtr ptr'+castQDialogButtonBoxToConst (QDialogButtonBoxGc fptr' ptr') = QDialogButtonBoxConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDialogButtonBoxConst where+  nullptr = QDialogButtonBoxConst HoppyF.nullPtr+  +  withCppPtr (QDialogButtonBoxConst ptr') f' = f' ptr'+  withCppPtr (QDialogButtonBoxConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDialogButtonBoxConst ptr') = ptr'+  toPtr (QDialogButtonBoxConstGc _ ptr') = ptr'+  +  touchCppPtr (QDialogButtonBoxConst _) = HoppyP.return ()+  touchCppPtr (QDialogButtonBoxConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDialogButtonBoxConst where+  delete (QDialogButtonBoxConst ptr') = delete'QDialogButtonBox ptr'+  delete (QDialogButtonBoxConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDialogButtonBoxConst", " object."]+  +  toGc this'@(QDialogButtonBoxConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDialogButtonBoxConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDialogButtonBox :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDialogButtonBoxConstGc {}) = HoppyP.return this'++instance QDialogButtonBoxConstPtr QDialogButtonBoxConst where+  toQDialogButtonBoxConst = HoppyP.id++instance M506.QWidgetConstPtr QDialogButtonBoxConst where+  toQWidgetConst (QDialogButtonBoxConst ptr') = M506.QWidgetConst $ castQDialogButtonBoxToQWidget ptr'+  toQWidgetConst (QDialogButtonBoxConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDialogButtonBoxToQWidget ptr'++instance M94.QObjectConstPtr QDialogButtonBoxConst where+  toQObjectConst (QDialogButtonBoxConst ptr') = M94.QObjectConst $ castQDialogButtonBoxToQObject ptr'+  toQObjectConst (QDialogButtonBoxConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDialogButtonBoxToQObject ptr'++data QDialogButtonBox =+    QDialogButtonBox (HoppyF.Ptr QDialogButtonBox)+  | QDialogButtonBoxGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDialogButtonBox)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDialogButtonBox where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDialogButtonBox where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDialogButtonBoxToNonconst :: QDialogButtonBoxConst -> QDialogButtonBox+castQDialogButtonBoxToNonconst (QDialogButtonBoxConst ptr') = QDialogButtonBox $ HoppyF.castPtr ptr'+castQDialogButtonBoxToNonconst (QDialogButtonBoxConstGc fptr' ptr') = QDialogButtonBoxGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDialogButtonBox where+  nullptr = QDialogButtonBox HoppyF.nullPtr+  +  withCppPtr (QDialogButtonBox ptr') f' = f' ptr'+  withCppPtr (QDialogButtonBoxGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDialogButtonBox ptr') = ptr'+  toPtr (QDialogButtonBoxGc _ ptr') = ptr'+  +  touchCppPtr (QDialogButtonBox _) = HoppyP.return ()+  touchCppPtr (QDialogButtonBoxGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDialogButtonBox where+  delete (QDialogButtonBox ptr') = delete'QDialogButtonBox $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDialogButtonBoxConst)+  delete (QDialogButtonBoxGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDialogButtonBox", " object."]+  +  toGc this'@(QDialogButtonBox ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDialogButtonBoxGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDialogButtonBox :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDialogButtonBoxGc {}) = HoppyP.return this'++instance QDialogButtonBoxConstPtr QDialogButtonBox where+  toQDialogButtonBoxConst (QDialogButtonBox ptr') = QDialogButtonBoxConst $ (HoppyF.castPtr :: HoppyF.Ptr QDialogButtonBox -> HoppyF.Ptr QDialogButtonBoxConst) ptr'+  toQDialogButtonBoxConst (QDialogButtonBoxGc fptr' ptr') = QDialogButtonBoxConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDialogButtonBox -> HoppyF.Ptr QDialogButtonBoxConst) ptr'++instance QDialogButtonBoxPtr QDialogButtonBox where+  toQDialogButtonBox = HoppyP.id++instance M506.QWidgetConstPtr QDialogButtonBox where+  toQWidgetConst (QDialogButtonBox ptr') = M506.QWidgetConst $ castQDialogButtonBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDialogButtonBox -> HoppyF.Ptr QDialogButtonBoxConst) ptr'+  toQWidgetConst (QDialogButtonBoxGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDialogButtonBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDialogButtonBox -> HoppyF.Ptr QDialogButtonBoxConst) ptr'++instance M506.QWidgetPtr QDialogButtonBox where+  toQWidget (QDialogButtonBox ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDialogButtonBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDialogButtonBox -> HoppyF.Ptr QDialogButtonBoxConst) ptr'+  toQWidget (QDialogButtonBoxGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDialogButtonBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDialogButtonBox -> HoppyF.Ptr QDialogButtonBoxConst) ptr'++instance M94.QObjectConstPtr QDialogButtonBox where+  toQObjectConst (QDialogButtonBox ptr') = M94.QObjectConst $ castQDialogButtonBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDialogButtonBox -> HoppyF.Ptr QDialogButtonBoxConst) ptr'+  toQObjectConst (QDialogButtonBoxGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDialogButtonBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDialogButtonBox -> HoppyF.Ptr QDialogButtonBoxConst) ptr'++instance M94.QObjectPtr QDialogButtonBox where+  toQObject (QDialogButtonBox ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDialogButtonBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDialogButtonBox -> HoppyF.Ptr QDialogButtonBoxConst) ptr'+  toQObject (QDialogButtonBoxGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDialogButtonBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDialogButtonBox -> HoppyF.Ptr QDialogButtonBoxConst) ptr'++new :: (HoppyP.IO QDialogButtonBox)+new =+  HoppyP.fmap QDialogButtonBox+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QDialogButtonBox)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QDialogButtonBox+  (newWithParent' arg'1')++class QDialogButtonBoxSuper a where+  downToQDialogButtonBox :: a -> QDialogButtonBox++instance QDialogButtonBoxSuper M506.QWidget where+  downToQDialogButtonBox = castQDialogButtonBoxToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QDialogButtonBoxConst $ castQWidgetToQDialogButtonBox ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QDialogButtonBoxConstGc fptr' $ castQWidgetToQDialogButtonBox ptr'+instance QDialogButtonBoxSuper M94.QObject where+  downToQDialogButtonBox = castQDialogButtonBoxToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QDialogButtonBoxConst $ castQObjectToQDialogButtonBox ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDialogButtonBoxConstGc fptr' $ castQObjectToQDialogButtonBox ptr'++class QDialogButtonBoxSuperConst a where+  downToQDialogButtonBoxConst :: a -> QDialogButtonBoxConst++instance QDialogButtonBoxSuperConst M506.QWidgetConst where+  downToQDialogButtonBoxConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QDialogButtonBoxConst $ castQWidgetToQDialogButtonBox ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QDialogButtonBoxConstGc fptr' $ castQWidgetToQDialogButtonBox ptr'+instance QDialogButtonBoxSuperConst M94.QObjectConst where+  downToQDialogButtonBoxConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QDialogButtonBoxConst $ castQObjectToQDialogButtonBox ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDialogButtonBoxConstGc fptr' $ castQObjectToQDialogButtonBox ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDialogButtonBox)) QDialogButtonBox where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDialogButtonBox)) QDialogButtonBox where+  decode = HoppyP.fmap QDialogButtonBox . HoppyF.peek++data QDialogButtonBoxButtonLayout =+  WinLayout+  | MacLayout+  | KdeLayout+  | GnomeLayout+  | UnknownQDialogButtonBoxButtonLayout (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QDialogButtonBoxButtonLayout where+  fromCppEnum WinLayout = 0+  fromCppEnum MacLayout = 1+  fromCppEnum KdeLayout = 2+  fromCppEnum GnomeLayout = 3+  fromCppEnum (UnknownQDialogButtonBoxButtonLayout n) = n+  +  toCppEnum (0) = WinLayout+  toCppEnum (1) = MacLayout+  toCppEnum (2) = KdeLayout+  toCppEnum (3) = GnomeLayout+  toCppEnum n = UnknownQDialogButtonBoxButtonLayout n++instance HoppyP.Eq QDialogButtonBoxButtonLayout where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QDialogButtonBoxButtonLayout where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QDialogButtonBoxButtonRole =+  InvalidRole+  | AcceptRole+  | RejectRole+  | DestructiveRole+  | ActionRole+  | HelpRole+  | YesRole+  | NoRole+  | ResetRole+  | ApplyRole+  | UnknownQDialogButtonBoxButtonRole (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QDialogButtonBoxButtonRole where+  fromCppEnum InvalidRole = -1+  fromCppEnum AcceptRole = 0+  fromCppEnum RejectRole = 1+  fromCppEnum DestructiveRole = 2+  fromCppEnum ActionRole = 3+  fromCppEnum HelpRole = 4+  fromCppEnum YesRole = 5+  fromCppEnum NoRole = 6+  fromCppEnum ResetRole = 7+  fromCppEnum ApplyRole = 8+  fromCppEnum (UnknownQDialogButtonBoxButtonRole n) = n+  +  toCppEnum (-1) = InvalidRole+  toCppEnum (0) = AcceptRole+  toCppEnum (1) = RejectRole+  toCppEnum (2) = DestructiveRole+  toCppEnum (3) = ActionRole+  toCppEnum (4) = HelpRole+  toCppEnum (5) = YesRole+  toCppEnum (6) = NoRole+  toCppEnum (7) = ResetRole+  toCppEnum (8) = ApplyRole+  toCppEnum n = UnknownQDialogButtonBoxButtonRole n++instance HoppyP.Eq QDialogButtonBoxButtonRole where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QDialogButtonBoxButtonRole where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QDialogButtonBoxStandardButton =+  Ok+  | Open+  | Save+  | Cancel+  | Close+  | Discard+  | Apply+  | Reset+  | RestoreDefaults+  | Help+  | SaveAll+  | Yes+  | YesToAll+  | No+  | NoToAll+  | Abort+  | Retry+  | Ignore+  | NoButton+  | UnknownQDialogButtonBoxStandardButton (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QDialogButtonBoxStandardButton where+  fromCppEnum Ok = 1024+  fromCppEnum Open = 8192+  fromCppEnum Save = 2048+  fromCppEnum Cancel = 4194304+  fromCppEnum Close = 2097152+  fromCppEnum Discard = 8388608+  fromCppEnum Apply = 33554432+  fromCppEnum Reset = 67108864+  fromCppEnum RestoreDefaults = 134217728+  fromCppEnum Help = 16777216+  fromCppEnum SaveAll = 4096+  fromCppEnum Yes = 16384+  fromCppEnum YesToAll = 32768+  fromCppEnum No = 65536+  fromCppEnum NoToAll = 131072+  fromCppEnum Abort = 262144+  fromCppEnum Retry = 524288+  fromCppEnum Ignore = 1048576+  fromCppEnum NoButton = 0+  fromCppEnum (UnknownQDialogButtonBoxStandardButton n) = n+  +  toCppEnum (0) = NoButton+  toCppEnum (1024) = Ok+  toCppEnum (2048) = Save+  toCppEnum (4096) = SaveAll+  toCppEnum (8192) = Open+  toCppEnum (16384) = Yes+  toCppEnum (32768) = YesToAll+  toCppEnum (65536) = No+  toCppEnum (131072) = NoToAll+  toCppEnum (262144) = Abort+  toCppEnum (524288) = Retry+  toCppEnum (1048576) = Ignore+  toCppEnum (2097152) = Close+  toCppEnum (4194304) = Cancel+  toCppEnum (8388608) = Discard+  toCppEnum (16777216) = Help+  toCppEnum (33554432) = Apply+  toCppEnum (67108864) = Reset+  toCppEnum (134217728) = RestoreDefaults+  toCppEnum n = UnknownQDialogButtonBoxStandardButton n++instance HoppyP.Eq QDialogButtonBoxStandardButton where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QDialogButtonBoxStandardButton where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QDialogButtonBoxStandardButtons = QDialogButtonBoxStandardButtons (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QDialogButtonBoxStandardButton QDialogButtonBoxStandardButtons where+  enumToFlags = QDialogButtonBoxStandardButtons . QtahFHR.fromCppEnum+  flagsToEnum (QDialogButtonBoxStandardButtons x') = QtahFHR.toCppEnum x'++class IsQDialogButtonBoxStandardButtons a where+  toQDialogButtonBoxStandardButtons :: a -> QDialogButtonBoxStandardButtons++instance IsQDialogButtonBoxStandardButtons QDialogButtonBoxStandardButtons where toQDialogButtonBoxStandardButtons = QtahP.id+instance IsQDialogButtonBoxStandardButtons QDialogButtonBoxStandardButton where toQDialogButtonBoxStandardButtons = QtahFlags.enumToFlags+instance IsQDialogButtonBoxStandardButtons (HoppyFC.CInt) where toQDialogButtonBoxStandardButtons = QtahFlags.numToFlags++abort :: QDialogButtonBoxStandardButtons+abort = QDialogButtonBoxStandardButtons (262144)++apply :: QDialogButtonBoxStandardButtons+apply = QDialogButtonBoxStandardButtons (33554432)++cancel :: QDialogButtonBoxStandardButtons+cancel = QDialogButtonBoxStandardButtons (4194304)++close :: QDialogButtonBoxStandardButtons+close = QDialogButtonBoxStandardButtons (2097152)++discard :: QDialogButtonBoxStandardButtons+discard = QDialogButtonBoxStandardButtons (8388608)++help :: QDialogButtonBoxStandardButtons+help = QDialogButtonBoxStandardButtons (16777216)++ignore :: QDialogButtonBoxStandardButtons+ignore = QDialogButtonBoxStandardButtons (1048576)++no :: QDialogButtonBoxStandardButtons+no = QDialogButtonBoxStandardButtons (65536)++noButton :: QDialogButtonBoxStandardButtons+noButton = QDialogButtonBoxStandardButtons (0)++noToAll :: QDialogButtonBoxStandardButtons+noToAll = QDialogButtonBoxStandardButtons (131072)++ok :: QDialogButtonBoxStandardButtons+ok = QDialogButtonBoxStandardButtons (1024)++open :: QDialogButtonBoxStandardButtons+open = QDialogButtonBoxStandardButtons (8192)++reset :: QDialogButtonBoxStandardButtons+reset = QDialogButtonBoxStandardButtons (67108864)++restoreDefaults :: QDialogButtonBoxStandardButtons+restoreDefaults = QDialogButtonBoxStandardButtons (134217728)++retry :: QDialogButtonBoxStandardButtons+retry = QDialogButtonBoxStandardButtons (524288)++save :: QDialogButtonBoxStandardButtons+save = QDialogButtonBoxStandardButtons (2048)++saveAll :: QDialogButtonBoxStandardButtons+saveAll = QDialogButtonBoxStandardButtons (4096)++yes :: QDialogButtonBoxStandardButtons+yes = QDialogButtonBoxStandardButtons (16384)++yesToAll :: QDialogButtonBoxStandardButtons+yesToAll = QDialogButtonBoxStandardButtons (32768)++instance QtahDB.Bits QDialogButtonBoxStandardButtons where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum
src/Graphics/UI/Qtah/Generated/Widgets/QDockWidget.hs view
@@ -0,0 +1,473 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QDockWidget (+  castQDockWidgetToQWidget,+  castQWidgetToQDockWidget,+  castQDockWidgetToQObject,+  castQObjectToQDockWidget,+  QDockWidgetValue (..),+  QDockWidgetConstPtr (..),+  allowedAreas,+  isAreaAllowed,+  features,+  isFloating,+  titleBarWidget,+  toggleViewAction,+  widget,+  QDockWidgetPtr (..),+  setAllowedAreas,+  setFeatures,+  setFloating,+  setTitleBarWidget,+  setWidget,+  emitAllowedAreasChanged,+  emitDockLocationChanged,+  emitFeaturesChanged,+  emitTopLevelChanged,+  emitVisibilityChanged,+  QDockWidgetConst (..),+  castQDockWidgetToConst,+  QDockWidget (..),+  castQDockWidgetToNonconst,+  new,+  newWithParent,+  newWithText,+  newWithTextAndParent,+  QDockWidgetSuper (..),+  QDockWidgetSuperConst (..),+  QDockWidgetDockWidgetFeature (..),+  QDockWidgetDockWidgetFeatures,+  IsQDockWidgetDockWidgetFeatures (..),+  allDockWidgetFeatures,+  dockWidgetClosable,+  dockWidgetFloatable,+  dockWidgetMovable,+  dockWidgetVerticalTitleBar,+  noDockWidgetFeatures,+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+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 {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QAction as M368+import {-# SOURCE #-} 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__QDockWidget_new" new' ::  HoppyP.IO (HoppyF.Ptr QDockWidget)+foreign import ccall "genpop__QDockWidget_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QDockWidget)+foreign import ccall "genpop__QDockWidget_newWithText" newWithText' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QDockWidget)+foreign import ccall "genpop__QDockWidget_newWithTextAndParent" newWithTextAndParent' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QDockWidget)+foreign import ccall "genpop__QDockWidget_allowedAreas" allowedAreas' ::  HoppyF.Ptr QDockWidgetConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDockWidget_setAllowedAreas" setAllowedAreas' ::  HoppyF.Ptr QDockWidget -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDockWidget_isAreaAllowed" isAreaAllowed' ::  HoppyF.Ptr QDockWidgetConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDockWidget_features" features' ::  HoppyF.Ptr QDockWidgetConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDockWidget_setFeatures" setFeatures' ::  HoppyF.Ptr QDockWidget -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDockWidget_isFloating" isFloating' ::  HoppyF.Ptr QDockWidgetConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QDockWidget_setFloating" setFloating' ::  HoppyF.Ptr QDockWidget -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QDockWidget_titleBarWidget" titleBarWidget' ::  HoppyF.Ptr QDockWidgetConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QDockWidget_setTitleBarWidget" setTitleBarWidget' ::  HoppyF.Ptr QDockWidget -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QDockWidget_toggleViewAction" toggleViewAction' ::  HoppyF.Ptr QDockWidgetConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QDockWidget_widget" widget' ::  HoppyF.Ptr QDockWidgetConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QDockWidget_setWidget" setWidget' ::  HoppyF.Ptr QDockWidget -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QDockWidget_emitAllowedAreasChanged" emitAllowedAreasChanged' ::  HoppyF.Ptr QDockWidget -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDockWidget_emitDockLocationChanged" emitDockLocationChanged' ::  HoppyF.Ptr QDockWidget -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDockWidget_emitFeaturesChanged" emitFeaturesChanged' ::  HoppyF.Ptr QDockWidget -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDockWidget_emitTopLevelChanged" emitTopLevelChanged' ::  HoppyF.Ptr QDockWidget -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QDockWidget_emitVisibilityChanged" emitVisibilityChanged' ::  HoppyF.Ptr QDockWidget -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "gencast__QDockWidget__QWidget" castQDockWidgetToQWidget :: HoppyF.Ptr QDockWidgetConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QDockWidget" castQWidgetToQDockWidget :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QDockWidgetConst+foreign import ccall "gencast__QDockWidget__QObject" castQDockWidgetToQObject :: HoppyF.Ptr QDockWidgetConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QDockWidget" castQObjectToQDockWidget :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QDockWidgetConst+foreign import ccall "gendel__QDockWidget" delete'QDockWidget :: HoppyF.Ptr QDockWidgetConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDockWidget" deletePtr'QDockWidget :: HoppyF.FunPtr (HoppyF.Ptr QDockWidgetConst -> HoppyP.IO ())++class QDockWidgetValue a where+  withQDockWidgetPtr :: a -> (QDockWidgetConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDockWidgetConstPtr a => QDockWidgetValue a where+  withQDockWidgetPtr = HoppyP.flip ($) . toQDockWidgetConst++class (M506.QWidgetConstPtr this) => QDockWidgetConstPtr this where+  toQDockWidgetConst :: this -> QDockWidgetConst++allowedAreas :: (QDockWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtDockWidgetAreas)+allowedAreas arg'1 =+  withQDockWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (allowedAreas' arg'1')++isAreaAllowed :: (QDockWidgetValue this) => (this) {- ^ this -} -> (M190.QtDockWidgetArea) -> (HoppyP.IO HoppyP.Bool)+isAreaAllowed arg'1 arg'2 =+  withQDockWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isAreaAllowed' arg'1' arg'2')++features :: (QDockWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO QDockWidgetDockWidgetFeatures)+features arg'1 =+  withQDockWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (features' arg'1')++isFloating :: (QDockWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isFloating arg'1 =+  withQDockWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isFloating' arg'1')++titleBarWidget :: (QDockWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)+titleBarWidget arg'1 =+  withQDockWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (titleBarWidget' arg'1')++toggleViewAction :: (QDockWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO M368.QAction)+toggleViewAction arg'1 =+  withQDockWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M368.QAction+  (toggleViewAction' arg'1')++widget :: (QDockWidgetValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)+widget arg'1 =+  withQDockWidgetPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (widget' arg'1')++class (QDockWidgetConstPtr this, M506.QWidgetPtr this) => QDockWidgetPtr this where+  toQDockWidget :: this -> QDockWidget++setAllowedAreas :: (QDockWidgetPtr this, M190.IsQtDockWidgetAreas arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setAllowedAreas arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtDockWidgetAreas+  ) arg'2 >>= \arg'2' ->+  (setAllowedAreas' arg'1' arg'2')++setFeatures :: (QDockWidgetPtr this, IsQDockWidgetDockWidgetFeatures arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFeatures arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQDockWidgetDockWidgetFeatures+  ) arg'2 >>= \arg'2' ->+  (setFeatures' arg'1' arg'2')++setFloating :: (QDockWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setFloating arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setFloating' arg'1' arg'2')++setTitleBarWidget :: (QDockWidgetPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTitleBarWidget arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (setTitleBarWidget' arg'1' arg'2')++setWidget :: (QDockWidgetPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setWidget arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (setWidget' arg'1' arg'2')++emitAllowedAreasChanged :: (QDockWidgetPtr this, M190.IsQtDockWidgetAreas arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitAllowedAreasChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtDockWidgetAreas+  ) arg'2 >>= \arg'2' ->+  (emitAllowedAreasChanged' arg'1' arg'2')++emitDockLocationChanged :: (QDockWidgetPtr this) => (this) {- ^ this -} -> (M190.QtDockWidgetArea) -> (HoppyP.IO ())+emitDockLocationChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (emitDockLocationChanged' arg'1' arg'2')++emitFeaturesChanged :: (QDockWidgetPtr this, IsQDockWidgetDockWidgetFeatures arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitFeaturesChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQDockWidgetDockWidgetFeatures+  ) arg'2 >>= \arg'2' ->+  (emitFeaturesChanged' arg'1' arg'2')++emitTopLevelChanged :: (QDockWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+emitTopLevelChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (emitTopLevelChanged' arg'1' arg'2')++emitVisibilityChanged :: (QDockWidgetPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+emitVisibilityChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDockWidget arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (emitVisibilityChanged' arg'1' arg'2')++data QDockWidgetConst =+    QDockWidgetConst (HoppyF.Ptr QDockWidgetConst)+  | QDockWidgetConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDockWidgetConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDockWidgetConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDockWidgetConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDockWidgetToConst :: QDockWidget -> QDockWidgetConst+castQDockWidgetToConst (QDockWidget ptr') = QDockWidgetConst $ HoppyF.castPtr ptr'+castQDockWidgetToConst (QDockWidgetGc fptr' ptr') = QDockWidgetConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDockWidgetConst where+  nullptr = QDockWidgetConst HoppyF.nullPtr+  +  withCppPtr (QDockWidgetConst ptr') f' = f' ptr'+  withCppPtr (QDockWidgetConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDockWidgetConst ptr') = ptr'+  toPtr (QDockWidgetConstGc _ ptr') = ptr'+  +  touchCppPtr (QDockWidgetConst _) = HoppyP.return ()+  touchCppPtr (QDockWidgetConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDockWidgetConst where+  delete (QDockWidgetConst ptr') = delete'QDockWidget ptr'+  delete (QDockWidgetConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDockWidgetConst", " object."]+  +  toGc this'@(QDockWidgetConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDockWidgetConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDockWidget :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDockWidgetConstGc {}) = HoppyP.return this'++instance QDockWidgetConstPtr QDockWidgetConst where+  toQDockWidgetConst = HoppyP.id++instance M506.QWidgetConstPtr QDockWidgetConst where+  toQWidgetConst (QDockWidgetConst ptr') = M506.QWidgetConst $ castQDockWidgetToQWidget ptr'+  toQWidgetConst (QDockWidgetConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDockWidgetToQWidget ptr'++instance M94.QObjectConstPtr QDockWidgetConst where+  toQObjectConst (QDockWidgetConst ptr') = M94.QObjectConst $ castQDockWidgetToQObject ptr'+  toQObjectConst (QDockWidgetConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDockWidgetToQObject ptr'++data QDockWidget =+    QDockWidget (HoppyF.Ptr QDockWidget)+  | QDockWidgetGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDockWidget)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDockWidget where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDockWidget where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDockWidgetToNonconst :: QDockWidgetConst -> QDockWidget+castQDockWidgetToNonconst (QDockWidgetConst ptr') = QDockWidget $ HoppyF.castPtr ptr'+castQDockWidgetToNonconst (QDockWidgetConstGc fptr' ptr') = QDockWidgetGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDockWidget where+  nullptr = QDockWidget HoppyF.nullPtr+  +  withCppPtr (QDockWidget ptr') f' = f' ptr'+  withCppPtr (QDockWidgetGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDockWidget ptr') = ptr'+  toPtr (QDockWidgetGc _ ptr') = ptr'+  +  touchCppPtr (QDockWidget _) = HoppyP.return ()+  touchCppPtr (QDockWidgetGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDockWidget where+  delete (QDockWidget ptr') = delete'QDockWidget $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDockWidgetConst)+  delete (QDockWidgetGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDockWidget", " object."]+  +  toGc this'@(QDockWidget ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDockWidgetGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDockWidget :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDockWidgetGc {}) = HoppyP.return this'++instance QDockWidgetConstPtr QDockWidget where+  toQDockWidgetConst (QDockWidget ptr') = QDockWidgetConst $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr'+  toQDockWidgetConst (QDockWidgetGc fptr' ptr') = QDockWidgetConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr'++instance QDockWidgetPtr QDockWidget where+  toQDockWidget = HoppyP.id++instance M506.QWidgetConstPtr QDockWidget where+  toQWidgetConst (QDockWidget ptr') = M506.QWidgetConst $ castQDockWidgetToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr'+  toQWidgetConst (QDockWidgetGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDockWidgetToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr'++instance M506.QWidgetPtr QDockWidget where+  toQWidget (QDockWidget ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDockWidgetToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr'+  toQWidget (QDockWidgetGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDockWidgetToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr'++instance M94.QObjectConstPtr QDockWidget where+  toQObjectConst (QDockWidget ptr') = M94.QObjectConst $ castQDockWidgetToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr'+  toQObjectConst (QDockWidgetGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDockWidgetToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr'++instance M94.QObjectPtr QDockWidget where+  toQObject (QDockWidget ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDockWidgetToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr'+  toQObject (QDockWidgetGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDockWidgetToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDockWidget -> HoppyF.Ptr QDockWidgetConst) ptr'++new :: (HoppyP.IO QDockWidget)+new =+  HoppyP.fmap QDockWidget+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QDockWidget)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QDockWidget+  (newWithParent' arg'1')++newWithText :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QDockWidget)+newWithText arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QDockWidget+  (newWithText' arg'1')++newWithTextAndParent :: (M142.QStringValue arg'1, M506.QWidgetPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QDockWidget)+newWithTextAndParent arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  HoppyP.fmap QDockWidget+  (newWithTextAndParent' arg'1' arg'2')++class QDockWidgetSuper a where+  downToQDockWidget :: a -> QDockWidget++instance QDockWidgetSuper M506.QWidget where+  downToQDockWidget = castQDockWidgetToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QDockWidgetConst $ castQWidgetToQDockWidget ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QDockWidgetConstGc fptr' $ castQWidgetToQDockWidget ptr'+instance QDockWidgetSuper M94.QObject where+  downToQDockWidget = castQDockWidgetToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QDockWidgetConst $ castQObjectToQDockWidget ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDockWidgetConstGc fptr' $ castQObjectToQDockWidget ptr'++class QDockWidgetSuperConst a where+  downToQDockWidgetConst :: a -> QDockWidgetConst++instance QDockWidgetSuperConst M506.QWidgetConst where+  downToQDockWidgetConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QDockWidgetConst $ castQWidgetToQDockWidget ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QDockWidgetConstGc fptr' $ castQWidgetToQDockWidget ptr'+instance QDockWidgetSuperConst M94.QObjectConst where+  downToQDockWidgetConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QDockWidgetConst $ castQObjectToQDockWidget ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDockWidgetConstGc fptr' $ castQObjectToQDockWidget ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDockWidget)) QDockWidget where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDockWidget)) QDockWidget where+  decode = HoppyP.fmap QDockWidget . HoppyF.peek++data QDockWidgetDockWidgetFeature =+  NoDockWidgetFeatures+  | DockWidgetClosable+  | DockWidgetMovable+  | DockWidgetFloatable+  | AllDockWidgetFeatures+  | DockWidgetVerticalTitleBar+  | UnknownQDockWidgetDockWidgetFeature (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QDockWidgetDockWidgetFeature where+  fromCppEnum NoDockWidgetFeatures = 0+  fromCppEnum DockWidgetClosable = 1+  fromCppEnum DockWidgetMovable = 2+  fromCppEnum DockWidgetFloatable = 4+  fromCppEnum AllDockWidgetFeatures = 7+  fromCppEnum DockWidgetVerticalTitleBar = 8+  fromCppEnum (UnknownQDockWidgetDockWidgetFeature n) = n+  +  toCppEnum (0) = NoDockWidgetFeatures+  toCppEnum (1) = DockWidgetClosable+  toCppEnum (2) = DockWidgetMovable+  toCppEnum (4) = DockWidgetFloatable+  toCppEnum (7) = AllDockWidgetFeatures+  toCppEnum (8) = DockWidgetVerticalTitleBar+  toCppEnum n = UnknownQDockWidgetDockWidgetFeature n++instance HoppyP.Eq QDockWidgetDockWidgetFeature where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QDockWidgetDockWidgetFeature where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QDockWidgetDockWidgetFeatures = QDockWidgetDockWidgetFeatures (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QDockWidgetDockWidgetFeature QDockWidgetDockWidgetFeatures where+  enumToFlags = QDockWidgetDockWidgetFeatures . QtahFHR.fromCppEnum+  flagsToEnum (QDockWidgetDockWidgetFeatures x') = QtahFHR.toCppEnum x'++class IsQDockWidgetDockWidgetFeatures a where+  toQDockWidgetDockWidgetFeatures :: a -> QDockWidgetDockWidgetFeatures++instance IsQDockWidgetDockWidgetFeatures QDockWidgetDockWidgetFeatures where toQDockWidgetDockWidgetFeatures = QtahP.id+instance IsQDockWidgetDockWidgetFeatures QDockWidgetDockWidgetFeature where toQDockWidgetDockWidgetFeatures = QtahFlags.enumToFlags+instance IsQDockWidgetDockWidgetFeatures (HoppyFC.CInt) where toQDockWidgetDockWidgetFeatures = QtahFlags.numToFlags++allDockWidgetFeatures :: QDockWidgetDockWidgetFeatures+allDockWidgetFeatures = QDockWidgetDockWidgetFeatures (7)++dockWidgetClosable :: QDockWidgetDockWidgetFeatures+dockWidgetClosable = QDockWidgetDockWidgetFeatures (1)++dockWidgetFloatable :: QDockWidgetDockWidgetFeatures+dockWidgetFloatable = QDockWidgetDockWidgetFeatures (4)++dockWidgetMovable :: QDockWidgetDockWidgetFeatures+dockWidgetMovable = QDockWidgetDockWidgetFeatures (2)++dockWidgetVerticalTitleBar :: QDockWidgetDockWidgetFeatures+dockWidgetVerticalTitleBar = QDockWidgetDockWidgetFeatures (8)++noDockWidgetFeatures :: QDockWidgetDockWidgetFeatures+noDockWidgetFeatures = QDockWidgetDockWidgetFeatures (0)++instance QtahDB.Bits QDockWidgetDockWidgetFeatures where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum
+ src/Graphics/UI/Qtah/Generated/Widgets/QDockWidget.hs-boot view
@@ -0,0 +1,113 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QDockWidget (+  QDockWidgetValue (..),+  QDockWidgetConstPtr (..),+  QDockWidgetPtr (..),+  QDockWidgetConst (..),+  castQDockWidgetToConst,+  QDockWidget (..),+  castQDockWidgetToNonconst,+  castQDockWidgetToQWidget,+  castQDockWidgetToQObject,+  QDockWidgetDockWidgetFeature,+  QDockWidgetDockWidgetFeatures,+  IsQDockWidgetDockWidgetFeatures (..),+  allDockWidgetFeatures,+  dockWidgetClosable,+  dockWidgetFloatable,+  dockWidgetMovable,+  dockWidgetVerticalTitleBar,+  noDockWidgetFeatures,+  ) where++import qualified Data.Bits as QtahDB+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 {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++class QDockWidgetValue a where+  withQDockWidgetPtr :: a -> (QDockWidgetConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDockWidgetConstPtr a => QDockWidgetValue a++class (M506.QWidgetConstPtr this) => QDockWidgetConstPtr this where+  toQDockWidgetConst :: this -> QDockWidgetConst++class (QDockWidgetConstPtr this, M506.QWidgetPtr this) => QDockWidgetPtr this where+  toQDockWidget :: this -> QDockWidget++data QDockWidgetConst =+    QDockWidgetConst (HoppyF.Ptr QDockWidgetConst)+  | QDockWidgetConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDockWidgetConst)++castQDockWidgetToConst :: QDockWidget -> QDockWidgetConst++instance HoppyFHR.CppPtr QDockWidgetConst+instance HoppyFHR.Deletable QDockWidgetConst++instance QDockWidgetConstPtr QDockWidgetConst++instance M506.QWidgetConstPtr QDockWidgetConst++instance M94.QObjectConstPtr QDockWidgetConst++data QDockWidget =+    QDockWidget (HoppyF.Ptr QDockWidget)+  | QDockWidgetGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDockWidget)++castQDockWidgetToNonconst :: QDockWidgetConst -> QDockWidget++instance HoppyFHR.CppPtr QDockWidget+instance HoppyFHR.Deletable QDockWidget++instance QDockWidgetConstPtr QDockWidget++instance QDockWidgetPtr QDockWidget++instance M506.QWidgetConstPtr QDockWidget++instance M506.QWidgetPtr QDockWidget++instance M94.QObjectConstPtr QDockWidget++instance M94.QObjectPtr QDockWidget+castQDockWidgetToQWidget :: HoppyF.Ptr QDockWidgetConst -> HoppyF.Ptr M506.QWidgetConst+castQDockWidgetToQObject :: HoppyF.Ptr QDockWidgetConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDockWidget)) QDockWidget++data QDockWidgetDockWidgetFeature+instance HoppyFHR.CppEnum (HoppyFC.CInt) QDockWidgetDockWidgetFeature+instance HoppyP.Eq QDockWidgetDockWidgetFeature+instance HoppyP.Ord QDockWidgetDockWidgetFeature+instance HoppyP.Show QDockWidgetDockWidgetFeature++newtype QDockWidgetDockWidgetFeatures = QDockWidgetDockWidgetFeatures (HoppyFC.CInt)+instance QtahDB.Bits QDockWidgetDockWidgetFeatures+instance QtahP.Eq QDockWidgetDockWidgetFeatures+instance QtahP.Ord QDockWidgetDockWidgetFeatures+instance QtahP.Show QDockWidgetDockWidgetFeatures++instance QtahFlags.Flags (HoppyFC.CInt) QDockWidgetDockWidgetFeature QDockWidgetDockWidgetFeatures++class IsQDockWidgetDockWidgetFeatures a where+  toQDockWidgetDockWidgetFeatures :: a -> QDockWidgetDockWidgetFeatures++instance IsQDockWidgetDockWidgetFeatures QDockWidgetDockWidgetFeatures+instance IsQDockWidgetDockWidgetFeatures QDockWidgetDockWidgetFeature+instance IsQDockWidgetDockWidgetFeatures HoppyFC.CInt++allDockWidgetFeatures :: QDockWidgetDockWidgetFeatures+dockWidgetClosable :: QDockWidgetDockWidgetFeatures+dockWidgetFloatable :: QDockWidgetDockWidgetFeatures+dockWidgetMovable :: QDockWidgetDockWidgetFeatures+dockWidgetVerticalTitleBar :: QDockWidgetDockWidgetFeatures+noDockWidgetFeatures :: QDockWidgetDockWidgetFeatures
src/Graphics/UI/Qtah/Generated/Widgets/QDoubleSpinBox.hs view
@@ -0,0 +1,418 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QDoubleSpinBox (+  castQDoubleSpinBoxToQAbstractSpinBox,+  castQAbstractSpinBoxToQDoubleSpinBox,+  castQDoubleSpinBoxToQWidget,+  castQWidgetToQDoubleSpinBox,+  castQDoubleSpinBoxToQObject,+  castQObjectToQDoubleSpinBox,+  QDoubleSpinBoxValue (..),+  QDoubleSpinBoxConstPtr (..),+  cleanText,+  decimals,+  maximum,+  minimum,+  prefix,+  singleStep,+  suffix,+  textFromValue,+  value,+  valueFromText,+  QDoubleSpinBoxPtr (..),+  setDecimals,+  setMaximum,+  setMinimum,+  setPrefix,+  setRange,+  setSingleStep,+  setSuffix,+  setValue,+  emitValueChangedDouble,+  emitValueChangedString,+  QDoubleSpinBoxConst (..),+  castQDoubleSpinBoxToConst,+  QDoubleSpinBox (..),+  castQDoubleSpinBoxToNonconst,+  new,+  newWithParent,+  QDoubleSpinBoxSuper (..),+  QDoubleSpinBoxSuperConst (..),+  ) 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.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractSpinBox as M366+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__QDoubleSpinBox_new" new' ::  HoppyP.IO (HoppyF.Ptr QDoubleSpinBox)+foreign import ccall "genpop__QDoubleSpinBox_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QDoubleSpinBox)+foreign import ccall "genpop__QDoubleSpinBox_cleanText" cleanText' ::  HoppyF.Ptr QDoubleSpinBoxConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDoubleSpinBox_decimals" decimals' ::  HoppyF.Ptr QDoubleSpinBoxConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QDoubleSpinBox_setDecimals" setDecimals' ::  HoppyF.Ptr QDoubleSpinBox -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QDoubleSpinBox_maximum" maximum' ::  HoppyF.Ptr QDoubleSpinBoxConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QDoubleSpinBox_setMaximum" setMaximum' ::  HoppyF.Ptr QDoubleSpinBox -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QDoubleSpinBox_minimum" minimum' ::  HoppyF.Ptr QDoubleSpinBoxConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QDoubleSpinBox_setMinimum" setMinimum' ::  HoppyF.Ptr QDoubleSpinBox -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QDoubleSpinBox_prefix" prefix' ::  HoppyF.Ptr QDoubleSpinBoxConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDoubleSpinBox_setPrefix" setPrefix' ::  HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QDoubleSpinBox_setRange" setRange' ::  HoppyF.Ptr QDoubleSpinBox -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QDoubleSpinBox_singleStep" singleStep' ::  HoppyF.Ptr QDoubleSpinBoxConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QDoubleSpinBox_setSingleStep" setSingleStep' ::  HoppyF.Ptr QDoubleSpinBox -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QDoubleSpinBox_suffix" suffix' ::  HoppyF.Ptr QDoubleSpinBoxConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDoubleSpinBox_setSuffix" setSuffix' ::  HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QDoubleSpinBox_textFromValue" textFromValue' ::  HoppyF.Ptr QDoubleSpinBoxConst -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QDoubleSpinBox_value" value' ::  HoppyF.Ptr QDoubleSpinBoxConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QDoubleSpinBox_setValue" setValue' ::  HoppyF.Ptr QDoubleSpinBox -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QDoubleSpinBox_valueFromText" valueFromText' ::  HoppyF.Ptr QDoubleSpinBoxConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QDoubleSpinBox_emitValueChangedDouble" emitValueChangedDouble' ::  HoppyF.Ptr QDoubleSpinBox -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QDoubleSpinBox_emitValueChangedString" emitValueChangedString' ::  HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "gencast__QDoubleSpinBox__QAbstractSpinBox" castQDoubleSpinBoxToQAbstractSpinBox :: HoppyF.Ptr QDoubleSpinBoxConst -> HoppyF.Ptr M366.QAbstractSpinBoxConst+foreign import ccall "gencast__QAbstractSpinBox__QDoubleSpinBox" castQAbstractSpinBoxToQDoubleSpinBox :: HoppyF.Ptr M366.QAbstractSpinBoxConst -> HoppyF.Ptr QDoubleSpinBoxConst+foreign import ccall "gencast__QDoubleSpinBox__QWidget" castQDoubleSpinBoxToQWidget :: HoppyF.Ptr QDoubleSpinBoxConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QDoubleSpinBox" castQWidgetToQDoubleSpinBox :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QDoubleSpinBoxConst+foreign import ccall "gencast__QDoubleSpinBox__QObject" castQDoubleSpinBoxToQObject :: HoppyF.Ptr QDoubleSpinBoxConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QDoubleSpinBox" castQObjectToQDoubleSpinBox :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QDoubleSpinBoxConst+foreign import ccall "gendel__QDoubleSpinBox" delete'QDoubleSpinBox :: HoppyF.Ptr QDoubleSpinBoxConst -> HoppyP.IO ()+foreign import ccall "&gendel__QDoubleSpinBox" deletePtr'QDoubleSpinBox :: HoppyF.FunPtr (HoppyF.Ptr QDoubleSpinBoxConst -> HoppyP.IO ())++class QDoubleSpinBoxValue a where+  withQDoubleSpinBoxPtr :: a -> (QDoubleSpinBoxConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QDoubleSpinBoxConstPtr a => QDoubleSpinBoxValue a where+  withQDoubleSpinBoxPtr = HoppyP.flip ($) . toQDoubleSpinBoxConst++class (M366.QAbstractSpinBoxConstPtr this) => QDoubleSpinBoxConstPtr this where+  toQDoubleSpinBoxConst :: this -> QDoubleSpinBoxConst++cleanText :: (QDoubleSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+cleanText arg'1 =+  withQDoubleSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (cleanText' arg'1')++decimals :: (QDoubleSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+decimals arg'1 =+  withQDoubleSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (decimals' arg'1')++maximum :: (QDoubleSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+maximum arg'1 =+  withQDoubleSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (maximum' arg'1')++minimum :: (QDoubleSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+minimum arg'1 =+  withQDoubleSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (minimum' arg'1')++prefix :: (QDoubleSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+prefix arg'1 =+  withQDoubleSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (prefix' arg'1')++singleStep :: (QDoubleSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+singleStep arg'1 =+  withQDoubleSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (singleStep' arg'1')++suffix :: (QDoubleSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+suffix arg'1 =+  withQDoubleSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (suffix' arg'1')++textFromValue :: (QDoubleSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO QtahP.String)+textFromValue arg'1 arg'2 =+  withQDoubleSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (textFromValue' arg'1' arg'2')++value :: (QDoubleSpinBoxValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+value arg'1 =+  withQDoubleSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (value' arg'1')++valueFromText :: (QDoubleSpinBoxValue this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Double)+valueFromText arg'1 arg'2 =+  withQDoubleSpinBoxPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (valueFromText' arg'1' arg'2')++class (QDoubleSpinBoxConstPtr this, M366.QAbstractSpinBoxPtr this) => QDoubleSpinBoxPtr this where+  toQDoubleSpinBox :: this -> QDoubleSpinBox++setDecimals :: (QDoubleSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setDecimals arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDoubleSpinBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setDecimals' arg'1' arg'2')++setMaximum :: (QDoubleSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setMaximum arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDoubleSpinBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setMaximum' arg'1' arg'2')++setMinimum :: (QDoubleSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setMinimum arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDoubleSpinBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setMinimum' arg'1' arg'2')++setPrefix :: (QDoubleSpinBoxPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setPrefix arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDoubleSpinBox arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setPrefix' arg'1' arg'2')++setRange :: (QDoubleSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setRange arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQDoubleSpinBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (setRange' arg'1' arg'2' arg'3')++setSingleStep :: (QDoubleSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setSingleStep arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDoubleSpinBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setSingleStep' arg'1' arg'2')++setSuffix :: (QDoubleSpinBoxPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setSuffix arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDoubleSpinBox arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setSuffix' arg'1' arg'2')++setValue :: (QDoubleSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setValue arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDoubleSpinBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setValue' arg'1' arg'2')++emitValueChangedDouble :: (QDoubleSpinBoxPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+emitValueChangedDouble arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDoubleSpinBox arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (emitValueChangedDouble' arg'1' arg'2')++emitValueChangedString :: (QDoubleSpinBoxPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitValueChangedString arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQDoubleSpinBox arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitValueChangedString' arg'1' arg'2')++data QDoubleSpinBoxConst =+    QDoubleSpinBoxConst (HoppyF.Ptr QDoubleSpinBoxConst)+  | QDoubleSpinBoxConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDoubleSpinBoxConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDoubleSpinBoxConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDoubleSpinBoxConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDoubleSpinBoxToConst :: QDoubleSpinBox -> QDoubleSpinBoxConst+castQDoubleSpinBoxToConst (QDoubleSpinBox ptr') = QDoubleSpinBoxConst $ HoppyF.castPtr ptr'+castQDoubleSpinBoxToConst (QDoubleSpinBoxGc fptr' ptr') = QDoubleSpinBoxConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDoubleSpinBoxConst where+  nullptr = QDoubleSpinBoxConst HoppyF.nullPtr+  +  withCppPtr (QDoubleSpinBoxConst ptr') f' = f' ptr'+  withCppPtr (QDoubleSpinBoxConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDoubleSpinBoxConst ptr') = ptr'+  toPtr (QDoubleSpinBoxConstGc _ ptr') = ptr'+  +  touchCppPtr (QDoubleSpinBoxConst _) = HoppyP.return ()+  touchCppPtr (QDoubleSpinBoxConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDoubleSpinBoxConst where+  delete (QDoubleSpinBoxConst ptr') = delete'QDoubleSpinBox ptr'+  delete (QDoubleSpinBoxConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDoubleSpinBoxConst", " object."]+  +  toGc this'@(QDoubleSpinBoxConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDoubleSpinBoxConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDoubleSpinBox :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDoubleSpinBoxConstGc {}) = HoppyP.return this'++instance QDoubleSpinBoxConstPtr QDoubleSpinBoxConst where+  toQDoubleSpinBoxConst = HoppyP.id++instance M366.QAbstractSpinBoxConstPtr QDoubleSpinBoxConst where+  toQAbstractSpinBoxConst (QDoubleSpinBoxConst ptr') = M366.QAbstractSpinBoxConst $ castQDoubleSpinBoxToQAbstractSpinBox ptr'+  toQAbstractSpinBoxConst (QDoubleSpinBoxConstGc fptr' ptr') = M366.QAbstractSpinBoxConstGc fptr' $ castQDoubleSpinBoxToQAbstractSpinBox ptr'++instance M506.QWidgetConstPtr QDoubleSpinBoxConst where+  toQWidgetConst (QDoubleSpinBoxConst ptr') = M506.QWidgetConst $ castQDoubleSpinBoxToQWidget ptr'+  toQWidgetConst (QDoubleSpinBoxConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDoubleSpinBoxToQWidget ptr'++instance M94.QObjectConstPtr QDoubleSpinBoxConst where+  toQObjectConst (QDoubleSpinBoxConst ptr') = M94.QObjectConst $ castQDoubleSpinBoxToQObject ptr'+  toQObjectConst (QDoubleSpinBoxConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDoubleSpinBoxToQObject ptr'++data QDoubleSpinBox =+    QDoubleSpinBox (HoppyF.Ptr QDoubleSpinBox)+  | QDoubleSpinBoxGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QDoubleSpinBox)+  deriving (HoppyP.Show)++instance HoppyP.Eq QDoubleSpinBox where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QDoubleSpinBox where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQDoubleSpinBoxToNonconst :: QDoubleSpinBoxConst -> QDoubleSpinBox+castQDoubleSpinBoxToNonconst (QDoubleSpinBoxConst ptr') = QDoubleSpinBox $ HoppyF.castPtr ptr'+castQDoubleSpinBoxToNonconst (QDoubleSpinBoxConstGc fptr' ptr') = QDoubleSpinBoxGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QDoubleSpinBox where+  nullptr = QDoubleSpinBox HoppyF.nullPtr+  +  withCppPtr (QDoubleSpinBox ptr') f' = f' ptr'+  withCppPtr (QDoubleSpinBoxGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QDoubleSpinBox ptr') = ptr'+  toPtr (QDoubleSpinBoxGc _ ptr') = ptr'+  +  touchCppPtr (QDoubleSpinBox _) = HoppyP.return ()+  touchCppPtr (QDoubleSpinBoxGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QDoubleSpinBox where+  delete (QDoubleSpinBox ptr') = delete'QDoubleSpinBox $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QDoubleSpinBoxConst)+  delete (QDoubleSpinBoxGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QDoubleSpinBox", " object."]+  +  toGc this'@(QDoubleSpinBox ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QDoubleSpinBoxGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QDoubleSpinBox :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QDoubleSpinBoxGc {}) = HoppyP.return this'++instance QDoubleSpinBoxConstPtr QDoubleSpinBox where+  toQDoubleSpinBoxConst (QDoubleSpinBox ptr') = QDoubleSpinBoxConst $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr QDoubleSpinBoxConst) ptr'+  toQDoubleSpinBoxConst (QDoubleSpinBoxGc fptr' ptr') = QDoubleSpinBoxConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr QDoubleSpinBoxConst) ptr'++instance QDoubleSpinBoxPtr QDoubleSpinBox where+  toQDoubleSpinBox = HoppyP.id++instance M366.QAbstractSpinBoxConstPtr QDoubleSpinBox where+  toQAbstractSpinBoxConst (QDoubleSpinBox ptr') = M366.QAbstractSpinBoxConst $ castQDoubleSpinBoxToQAbstractSpinBox $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr QDoubleSpinBoxConst) ptr'+  toQAbstractSpinBoxConst (QDoubleSpinBoxGc fptr' ptr') = M366.QAbstractSpinBoxConstGc fptr' $ castQDoubleSpinBoxToQAbstractSpinBox $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr QDoubleSpinBoxConst) ptr'++instance M366.QAbstractSpinBoxPtr QDoubleSpinBox where+  toQAbstractSpinBox (QDoubleSpinBox ptr') = M366.QAbstractSpinBox $ (HoppyF.castPtr :: HoppyF.Ptr M366.QAbstractSpinBoxConst -> HoppyF.Ptr M366.QAbstractSpinBox) $ castQDoubleSpinBoxToQAbstractSpinBox $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr QDoubleSpinBoxConst) ptr'+  toQAbstractSpinBox (QDoubleSpinBoxGc fptr' ptr') = M366.QAbstractSpinBoxGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M366.QAbstractSpinBoxConst -> HoppyF.Ptr M366.QAbstractSpinBox) $ castQDoubleSpinBoxToQAbstractSpinBox $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr QDoubleSpinBoxConst) ptr'++instance M506.QWidgetConstPtr QDoubleSpinBox where+  toQWidgetConst (QDoubleSpinBox ptr') = M506.QWidgetConst $ castQDoubleSpinBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr QDoubleSpinBoxConst) ptr'+  toQWidgetConst (QDoubleSpinBoxGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQDoubleSpinBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr QDoubleSpinBoxConst) ptr'++instance M506.QWidgetPtr QDoubleSpinBox where+  toQWidget (QDoubleSpinBox ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDoubleSpinBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr QDoubleSpinBoxConst) ptr'+  toQWidget (QDoubleSpinBoxGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQDoubleSpinBoxToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr QDoubleSpinBoxConst) ptr'++instance M94.QObjectConstPtr QDoubleSpinBox where+  toQObjectConst (QDoubleSpinBox ptr') = M94.QObjectConst $ castQDoubleSpinBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr QDoubleSpinBoxConst) ptr'+  toQObjectConst (QDoubleSpinBoxGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQDoubleSpinBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr QDoubleSpinBoxConst) ptr'++instance M94.QObjectPtr QDoubleSpinBox where+  toQObject (QDoubleSpinBox ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDoubleSpinBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr QDoubleSpinBoxConst) ptr'+  toQObject (QDoubleSpinBoxGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQDoubleSpinBoxToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QDoubleSpinBox -> HoppyF.Ptr QDoubleSpinBoxConst) ptr'++new :: (HoppyP.IO QDoubleSpinBox)+new =+  HoppyP.fmap QDoubleSpinBox+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QDoubleSpinBox)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QDoubleSpinBox+  (newWithParent' arg'1')++class QDoubleSpinBoxSuper a where+  downToQDoubleSpinBox :: a -> QDoubleSpinBox++instance QDoubleSpinBoxSuper M366.QAbstractSpinBox where+  downToQDoubleSpinBox = castQDoubleSpinBoxToNonconst . cast' . M366.castQAbstractSpinBoxToConst+    where+      cast' (M366.QAbstractSpinBoxConst ptr') = QDoubleSpinBoxConst $ castQAbstractSpinBoxToQDoubleSpinBox ptr'+      cast' (M366.QAbstractSpinBoxConstGc fptr' ptr') = QDoubleSpinBoxConstGc fptr' $ castQAbstractSpinBoxToQDoubleSpinBox ptr'+instance QDoubleSpinBoxSuper M506.QWidget where+  downToQDoubleSpinBox = castQDoubleSpinBoxToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QDoubleSpinBoxConst $ castQWidgetToQDoubleSpinBox ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QDoubleSpinBoxConstGc fptr' $ castQWidgetToQDoubleSpinBox ptr'+instance QDoubleSpinBoxSuper M94.QObject where+  downToQDoubleSpinBox = castQDoubleSpinBoxToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QDoubleSpinBoxConst $ castQObjectToQDoubleSpinBox ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDoubleSpinBoxConstGc fptr' $ castQObjectToQDoubleSpinBox ptr'++class QDoubleSpinBoxSuperConst a where+  downToQDoubleSpinBoxConst :: a -> QDoubleSpinBoxConst++instance QDoubleSpinBoxSuperConst M366.QAbstractSpinBoxConst where+  downToQDoubleSpinBoxConst = cast'+    where+      cast' (M366.QAbstractSpinBoxConst ptr') = QDoubleSpinBoxConst $ castQAbstractSpinBoxToQDoubleSpinBox ptr'+      cast' (M366.QAbstractSpinBoxConstGc fptr' ptr') = QDoubleSpinBoxConstGc fptr' $ castQAbstractSpinBoxToQDoubleSpinBox ptr'+instance QDoubleSpinBoxSuperConst M506.QWidgetConst where+  downToQDoubleSpinBoxConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QDoubleSpinBoxConst $ castQWidgetToQDoubleSpinBox ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QDoubleSpinBoxConstGc fptr' $ castQWidgetToQDoubleSpinBox ptr'+instance QDoubleSpinBoxSuperConst M94.QObjectConst where+  downToQDoubleSpinBoxConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QDoubleSpinBoxConst $ castQObjectToQDoubleSpinBox ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QDoubleSpinBoxConstGc fptr' $ castQObjectToQDoubleSpinBox ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QDoubleSpinBox)) QDoubleSpinBox where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QDoubleSpinBox)) QDoubleSpinBox where+  decode = HoppyP.fmap QDoubleSpinBox . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Widgets/QFileDialog.hs view
@@ -0,0 +1,875 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QFileDialog (+  castQFileDialogToQDialog,+  castQDialogToQFileDialog,+  castQFileDialogToQWidget,+  castQWidgetToQFileDialog,+  castQFileDialogToQObject,+  castQObjectToQFileDialog,+  QFileDialogValue (..),+  QFileDialogConstPtr (..),+  acceptMode,+  defaultSuffix,+  directory,+  fileMode,+  filter,+  history,+  labelText,+  mimeTypeFilters,+  nameFilters,+  options,+  selectedFiles,+  selectedNameFilter,+  viewMode,+  QFileDialogPtr (..),+  setAcceptMode,+  setDefaultSuffix,+  setFileMode,+  setFilter,+  setHistory,+  setMimeTypeFilters,+  setNameFilters,+  setOptions,+  selectFile,+  selectNameFilter,+  setDirectory,+  setDirectoryPath,+  setLabelText,+  setNameFilter,+  setOption,+  setViewMode,+  emitCurrentChanged,+  emitDirectoryEntered,+  emitFileSelected,+  emitFilterSelected,+  getExistingDirectory,+  getExistingDirectoryWithOptions,+  getOpenFileName,+  getOpenFileNameWithOptions,+  getOpenFileNames,+  getOpenFileNamesWithOptions,+  getSaveFileName,+  getSaveFileNameWithOptions,+  QFileDialogConst (..),+  castQFileDialogToConst,+  QFileDialog (..),+  castQFileDialogToNonconst,+  new,+  newWithParent,+  newWithParentAndFlags,+  newWithParentAndCaption,+  newWithParentAndCaptionAndDirectory,+  newWithParentAndCaptionAndDirectoryAndFilter,+  QFileDialogSuper (..),+  QFileDialogSuperConst (..),+  QFileDialogAcceptMode (..),+  QFileDialogDialogLabel (..),+  QFileDialogFileMode (..),+  QFileDialogOption (..),+  QFileDialogOptions,+  IsQFileDialogOptions (..),+  dontConfirmOverwrite,+  dontResolveSymlinks,+  dontUseCustomDirectoryIcons,+  dontUseNativeDialog,+  dontUseSheet,+  hideNameFilterDetails,+  readOnly,+  showDirsOnly,+  QFileDialogViewMode (..),+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QDir as M30+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.QStringList as M144+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Widgets.QDialog as M388+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__QFileDialog_new" new' ::  HoppyP.IO (HoppyF.Ptr QFileDialog)+foreign import ccall "genpop__QFileDialog_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QFileDialog)+foreign import ccall "genpop__QFileDialog_newWithParentAndFlags" newWithParentAndFlags' ::  HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QFileDialog)+foreign import ccall "genpop__QFileDialog_newWithParentAndCaption" newWithParentAndCaption' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QFileDialog)+foreign import ccall "genpop__QFileDialog_newWithParentAndCaptionAndDirectory" newWithParentAndCaptionAndDirectory' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QFileDialog)+foreign import ccall "genpop__QFileDialog_newWithParentAndCaptionAndDirectoryAndFilter" newWithParentAndCaptionAndDirectoryAndFilter' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QFileDialog)+foreign import ccall "genpop__QFileDialog_acceptMode" acceptMode' ::  HoppyF.Ptr QFileDialogConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFileDialog_setAcceptMode" setAcceptMode' ::  HoppyF.Ptr QFileDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_defaultSuffix" defaultSuffix' ::  HoppyF.Ptr QFileDialogConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileDialog_setDefaultSuffix" setDefaultSuffix' ::  HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_directory" directory' ::  HoppyF.Ptr QFileDialogConst -> HoppyP.IO (HoppyF.Ptr M30.QDirConst)+foreign import ccall "genpop__QFileDialog_fileMode" fileMode' ::  HoppyF.Ptr QFileDialogConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFileDialog_setFileMode" setFileMode' ::  HoppyF.Ptr QFileDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_filter" filter' ::  HoppyF.Ptr QFileDialogConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFileDialog_setFilter" setFilter' ::  HoppyF.Ptr QFileDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_getExistingDirectory" getExistingDirectory' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileDialog_getExistingDirectoryWithOptions" getExistingDirectoryWithOptions' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileDialog_getOpenFileName" getOpenFileName' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileDialog_getOpenFileNameWithOptions" getOpenFileNameWithOptions' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QString -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileDialog_getOpenFileNames" getOpenFileNames' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QFileDialog_getOpenFileNamesWithOptions" getOpenFileNamesWithOptions' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QString -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QFileDialog_getSaveFileName" getSaveFileName' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileDialog_getSaveFileNameWithOptions" getSaveFileNameWithOptions' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QString -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileDialog_history" history' ::  HoppyF.Ptr QFileDialogConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QFileDialog_setHistory" setHistory' ::  HoppyF.Ptr QFileDialog -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_labelText" labelText' ::  HoppyF.Ptr QFileDialogConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileDialog_mimeTypeFilters" mimeTypeFilters' ::  HoppyF.Ptr QFileDialogConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QFileDialog_setMimeTypeFilters" setMimeTypeFilters' ::  HoppyF.Ptr QFileDialog -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_nameFilters" nameFilters' ::  HoppyF.Ptr QFileDialogConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QFileDialog_setNameFilters" setNameFilters' ::  HoppyF.Ptr QFileDialog -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_options" options' ::  HoppyF.Ptr QFileDialogConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFileDialog_setOptions" setOptions' ::  HoppyF.Ptr QFileDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_selectFile" selectFile' ::  HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_selectNameFilter" selectNameFilter' ::  HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_selectedFiles" selectedFiles' ::  HoppyF.Ptr QFileDialogConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QFileDialog_selectedNameFilter" selectedNameFilter' ::  HoppyF.Ptr QFileDialogConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QFileDialog_setDirectory" setDirectory' ::  HoppyF.Ptr QFileDialog -> HoppyF.Ptr M30.QDirConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_setDirectoryPath" setDirectoryPath' ::  HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_setLabelText" setLabelText' ::  HoppyF.Ptr QFileDialog -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_setNameFilter" setNameFilter' ::  HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_setOption" setOption' ::  HoppyF.Ptr QFileDialog -> HoppyFC.CInt -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_viewMode" viewMode' ::  HoppyF.Ptr QFileDialogConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFileDialog_setViewMode" setViewMode' ::  HoppyF.Ptr QFileDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_emitCurrentChanged" emitCurrentChanged' ::  HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_emitDirectoryEntered" emitDirectoryEntered' ::  HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_emitFileSelected" emitFileSelected' ::  HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QFileDialog_emitFilterSelected" emitFilterSelected' ::  HoppyF.Ptr QFileDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "gencast__QFileDialog__QDialog" castQFileDialogToQDialog :: HoppyF.Ptr QFileDialogConst -> HoppyF.Ptr M388.QDialogConst+foreign import ccall "gencast__QDialog__QFileDialog" castQDialogToQFileDialog :: HoppyF.Ptr M388.QDialogConst -> HoppyF.Ptr QFileDialogConst+foreign import ccall "gencast__QFileDialog__QWidget" castQFileDialogToQWidget :: HoppyF.Ptr QFileDialogConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QFileDialog" castQWidgetToQFileDialog :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QFileDialogConst+foreign import ccall "gencast__QFileDialog__QObject" castQFileDialogToQObject :: HoppyF.Ptr QFileDialogConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QFileDialog" castQObjectToQFileDialog :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QFileDialogConst+foreign import ccall "gendel__QFileDialog" delete'QFileDialog :: HoppyF.Ptr QFileDialogConst -> HoppyP.IO ()+foreign import ccall "&gendel__QFileDialog" deletePtr'QFileDialog :: HoppyF.FunPtr (HoppyF.Ptr QFileDialogConst -> HoppyP.IO ())++class QFileDialogValue a where+  withQFileDialogPtr :: a -> (QFileDialogConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QFileDialogConstPtr a => QFileDialogValue a where+  withQFileDialogPtr = HoppyP.flip ($) . toQFileDialogConst++class (M388.QDialogConstPtr this) => QFileDialogConstPtr this where+  toQFileDialogConst :: this -> QFileDialogConst++acceptMode :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QFileDialogAcceptMode)+acceptMode arg'1 =+  withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (acceptMode' arg'1')++defaultSuffix :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+defaultSuffix arg'1 =+  withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (defaultSuffix' arg'1')++directory :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO M30.QDir)+directory arg'1 =+  withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M30.QDirConst) =<<+  (directory' arg'1')++fileMode :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QFileDialogFileMode)+fileMode arg'1 =+  withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (fileMode' arg'1')++filter :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO M30.QDirFilters)+filter arg'1 =+  withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (filter' arg'1')++history :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+history arg'1 =+  withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (history' arg'1')++labelText :: (QFileDialogValue this) => (this) {- ^ this -} -> (QFileDialogDialogLabel) -> (HoppyP.IO QtahP.String)+labelText arg'1 arg'2 =+  withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (labelText' arg'1' arg'2')++mimeTypeFilters :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+mimeTypeFilters arg'1 =+  withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (mimeTypeFilters' arg'1')++nameFilters :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+nameFilters arg'1 =+  withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (nameFilters' arg'1')++options :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QFileDialogOptions)+options arg'1 =+  withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (options' arg'1')++selectedFiles :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+selectedFiles arg'1 =+  withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (selectedFiles' arg'1')++selectedNameFilter :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+selectedNameFilter arg'1 =+  withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (selectedNameFilter' arg'1')++viewMode :: (QFileDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QFileDialogViewMode)+viewMode arg'1 =+  withQFileDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (viewMode' arg'1')++class (QFileDialogConstPtr this, M388.QDialogPtr this) => QFileDialogPtr this where+  toQFileDialog :: this -> QFileDialog++setAcceptMode :: (QFileDialogPtr this) => (this) {- ^ this -} -> (QFileDialogAcceptMode) -> (HoppyP.IO ())+setAcceptMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setAcceptMode' arg'1' arg'2')++setDefaultSuffix :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setDefaultSuffix arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setDefaultSuffix' arg'1' arg'2')++setFileMode :: (QFileDialogPtr this) => (this) {- ^ this -} -> (QFileDialogFileMode) -> (HoppyP.IO ())+setFileMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setFileMode' arg'1' arg'2')++setFilter :: (QFileDialogPtr this, M30.IsQDirFilters arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFilter arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M30.toQDirFilters+  ) arg'2 >>= \arg'2' ->+  (setFilter' arg'1' arg'2')++setHistory :: (QFileDialogPtr this, M144.QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setHistory arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setHistory' arg'1' arg'2')++setMimeTypeFilters :: (QFileDialogPtr this, M144.QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setMimeTypeFilters arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setMimeTypeFilters' arg'1' arg'2')++setNameFilters :: (QFileDialogPtr this, M144.QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setNameFilters arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setNameFilters' arg'1' arg'2')++setOptions :: (QFileDialogPtr this, IsQFileDialogOptions arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setOptions arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQFileDialogOptions+  ) arg'2 >>= \arg'2' ->+  (setOptions' arg'1' arg'2')++selectFile :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+selectFile arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (selectFile' arg'1' arg'2')++selectNameFilter :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+selectNameFilter arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (selectNameFilter' arg'1' arg'2')++setDirectory :: (QFileDialogPtr this, M30.QDirValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setDirectory arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  M30.withQDirPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setDirectory' arg'1' arg'2')++setDirectoryPath :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setDirectoryPath arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setDirectoryPath' arg'1' arg'2')++setLabelText :: (QFileDialogPtr this, M142.QStringValue arg'3) => (this) {- ^ this -} -> (QFileDialogDialogLabel) -> (arg'3) -> (HoppyP.IO ())+setLabelText arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (setLabelText' arg'1' arg'2' arg'3')++setNameFilter :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setNameFilter arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setNameFilter' arg'1' arg'2')++setOption :: (QFileDialogPtr this) => (this) {- ^ this -} -> (QFileDialogOption) -> (HoppyP.Bool) -> (HoppyP.IO ())+setOption arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'3 >>= \arg'3' ->+  (setOption' arg'1' arg'2' arg'3')++setViewMode :: (QFileDialogPtr this) => (this) {- ^ this -} -> (QFileDialogViewMode) -> (HoppyP.IO ())+setViewMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setViewMode' arg'1' arg'2')++emitCurrentChanged :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitCurrentChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitCurrentChanged' arg'1' arg'2')++emitDirectoryEntered :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitDirectoryEntered arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitDirectoryEntered' arg'1' arg'2')++emitFileSelected :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitFileSelected arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitFileSelected' arg'1' arg'2')++emitFilterSelected :: (QFileDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitFilterSelected arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFileDialog arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitFilterSelected' arg'1' arg'2')++getExistingDirectory :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO QtahP.String)+getExistingDirectory arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (getExistingDirectory' arg'1' arg'2' arg'3')++getExistingDirectoryWithOptions :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, IsQFileDialogOptions arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO QtahP.String)+getExistingDirectoryWithOptions arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQFileDialogOptions+  ) arg'4 >>= \arg'4' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (getExistingDirectoryWithOptions' arg'1' arg'2' arg'3' arg'4')++getOpenFileName :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO QtahP.String)+getOpenFileName arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (getOpenFileName' arg'1' arg'2' arg'3' arg'4')++getOpenFileNameWithOptions :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4, M142.QStringPtr arg'5, IsQFileDialogOptions arg'6) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (arg'6) -> (HoppyP.IO QtahP.String)+getOpenFileNameWithOptions arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  HoppyFHR.withCppPtr (M142.toQString arg'5) $ \arg'5' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQFileDialogOptions+  ) arg'6 >>= \arg'6' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (getOpenFileNameWithOptions' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++getOpenFileNames :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO [QtahP.String])+getOpenFileNames arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (getOpenFileNames' arg'1' arg'2' arg'3' arg'4')++getOpenFileNamesWithOptions :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4, M142.QStringPtr arg'5, IsQFileDialogOptions arg'6) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (arg'6) -> (HoppyP.IO [QtahP.String])+getOpenFileNamesWithOptions arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  HoppyFHR.withCppPtr (M142.toQString arg'5) $ \arg'5' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQFileDialogOptions+  ) arg'6 >>= \arg'6' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (getOpenFileNamesWithOptions' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++getSaveFileName :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO QtahP.String)+getSaveFileName arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (getSaveFileName' arg'1' arg'2' arg'3' arg'4')++getSaveFileNameWithOptions :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4, M142.QStringPtr arg'5, IsQFileDialogOptions arg'6) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (arg'5) -> (arg'6) -> (HoppyP.IO QtahP.String)+getSaveFileNameWithOptions arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  HoppyFHR.withCppPtr (M142.toQString arg'5) $ \arg'5' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQFileDialogOptions+  ) arg'6 >>= \arg'6' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (getSaveFileNameWithOptions' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++data QFileDialogConst =+    QFileDialogConst (HoppyF.Ptr QFileDialogConst)+  | QFileDialogConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFileDialogConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFileDialogConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFileDialogConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFileDialogToConst :: QFileDialog -> QFileDialogConst+castQFileDialogToConst (QFileDialog ptr') = QFileDialogConst $ HoppyF.castPtr ptr'+castQFileDialogToConst (QFileDialogGc fptr' ptr') = QFileDialogConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFileDialogConst where+  nullptr = QFileDialogConst HoppyF.nullPtr+  +  withCppPtr (QFileDialogConst ptr') f' = f' ptr'+  withCppPtr (QFileDialogConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFileDialogConst ptr') = ptr'+  toPtr (QFileDialogConstGc _ ptr') = ptr'+  +  touchCppPtr (QFileDialogConst _) = HoppyP.return ()+  touchCppPtr (QFileDialogConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFileDialogConst where+  delete (QFileDialogConst ptr') = delete'QFileDialog ptr'+  delete (QFileDialogConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFileDialogConst", " object."]+  +  toGc this'@(QFileDialogConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileDialogConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFileDialog :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFileDialogConstGc {}) = HoppyP.return this'++instance QFileDialogConstPtr QFileDialogConst where+  toQFileDialogConst = HoppyP.id++instance M388.QDialogConstPtr QFileDialogConst where+  toQDialogConst (QFileDialogConst ptr') = M388.QDialogConst $ castQFileDialogToQDialog ptr'+  toQDialogConst (QFileDialogConstGc fptr' ptr') = M388.QDialogConstGc fptr' $ castQFileDialogToQDialog ptr'++instance M506.QWidgetConstPtr QFileDialogConst where+  toQWidgetConst (QFileDialogConst ptr') = M506.QWidgetConst $ castQFileDialogToQWidget ptr'+  toQWidgetConst (QFileDialogConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQFileDialogToQWidget ptr'++instance M94.QObjectConstPtr QFileDialogConst where+  toQObjectConst (QFileDialogConst ptr') = M94.QObjectConst $ castQFileDialogToQObject ptr'+  toQObjectConst (QFileDialogConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFileDialogToQObject ptr'++data QFileDialog =+    QFileDialog (HoppyF.Ptr QFileDialog)+  | QFileDialogGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFileDialog)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFileDialog where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFileDialog where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFileDialogToNonconst :: QFileDialogConst -> QFileDialog+castQFileDialogToNonconst (QFileDialogConst ptr') = QFileDialog $ HoppyF.castPtr ptr'+castQFileDialogToNonconst (QFileDialogConstGc fptr' ptr') = QFileDialogGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFileDialog where+  nullptr = QFileDialog HoppyF.nullPtr+  +  withCppPtr (QFileDialog ptr') f' = f' ptr'+  withCppPtr (QFileDialogGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFileDialog ptr') = ptr'+  toPtr (QFileDialogGc _ ptr') = ptr'+  +  touchCppPtr (QFileDialog _) = HoppyP.return ()+  touchCppPtr (QFileDialogGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFileDialog where+  delete (QFileDialog ptr') = delete'QFileDialog $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QFileDialogConst)+  delete (QFileDialogGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFileDialog", " object."]+  +  toGc this'@(QFileDialog ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFileDialogGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFileDialog :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFileDialogGc {}) = HoppyP.return this'++instance QFileDialogConstPtr QFileDialog where+  toQFileDialogConst (QFileDialog ptr') = QFileDialogConst $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr'+  toQFileDialogConst (QFileDialogGc fptr' ptr') = QFileDialogConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr'++instance QFileDialogPtr QFileDialog where+  toQFileDialog = HoppyP.id++instance M388.QDialogConstPtr QFileDialog where+  toQDialogConst (QFileDialog ptr') = M388.QDialogConst $ castQFileDialogToQDialog $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr'+  toQDialogConst (QFileDialogGc fptr' ptr') = M388.QDialogConstGc fptr' $ castQFileDialogToQDialog $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr'++instance M388.QDialogPtr QFileDialog where+  toQDialog (QFileDialog ptr') = M388.QDialog $ (HoppyF.castPtr :: HoppyF.Ptr M388.QDialogConst -> HoppyF.Ptr M388.QDialog) $ castQFileDialogToQDialog $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr'+  toQDialog (QFileDialogGc fptr' ptr') = M388.QDialogGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M388.QDialogConst -> HoppyF.Ptr M388.QDialog) $ castQFileDialogToQDialog $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr'++instance M506.QWidgetConstPtr QFileDialog where+  toQWidgetConst (QFileDialog ptr') = M506.QWidgetConst $ castQFileDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr'+  toQWidgetConst (QFileDialogGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQFileDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr'++instance M506.QWidgetPtr QFileDialog where+  toQWidget (QFileDialog ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQFileDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr'+  toQWidget (QFileDialogGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQFileDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr'++instance M94.QObjectConstPtr QFileDialog where+  toQObjectConst (QFileDialog ptr') = M94.QObjectConst $ castQFileDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr'+  toQObjectConst (QFileDialogGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFileDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr'++instance M94.QObjectPtr QFileDialog where+  toQObject (QFileDialog ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFileDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr'+  toQObject (QFileDialogGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFileDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFileDialog -> HoppyF.Ptr QFileDialogConst) ptr'++new :: (HoppyP.IO QFileDialog)+new =+  HoppyP.fmap QFileDialog+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QFileDialog)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QFileDialog+  (newWithParent' arg'1')++newWithParentAndFlags :: (M506.QWidgetPtr arg'1, M190.IsQtWindowFlags arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QFileDialog)+newWithParentAndFlags arg'1 arg'2 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtWindowFlags+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QFileDialog+  (newWithParentAndFlags' arg'1' arg'2')++newWithParentAndCaption :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QFileDialog)+newWithParentAndCaption arg'1 arg'2 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QFileDialog+  (newWithParentAndCaption' arg'1' arg'2')++newWithParentAndCaptionAndDirectory :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO QFileDialog)+newWithParentAndCaptionAndDirectory arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap QFileDialog+  (newWithParentAndCaptionAndDirectory' arg'1' arg'2' arg'3')++newWithParentAndCaptionAndDirectoryAndFilter :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO QFileDialog)+newWithParentAndCaptionAndDirectoryAndFilter arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  HoppyP.fmap QFileDialog+  (newWithParentAndCaptionAndDirectoryAndFilter' arg'1' arg'2' arg'3' arg'4')++class QFileDialogSuper a where+  downToQFileDialog :: a -> QFileDialog++instance QFileDialogSuper M388.QDialog where+  downToQFileDialog = castQFileDialogToNonconst . cast' . M388.castQDialogToConst+    where+      cast' (M388.QDialogConst ptr') = QFileDialogConst $ castQDialogToQFileDialog ptr'+      cast' (M388.QDialogConstGc fptr' ptr') = QFileDialogConstGc fptr' $ castQDialogToQFileDialog ptr'+instance QFileDialogSuper M506.QWidget where+  downToQFileDialog = castQFileDialogToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QFileDialogConst $ castQWidgetToQFileDialog ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QFileDialogConstGc fptr' $ castQWidgetToQFileDialog ptr'+instance QFileDialogSuper M94.QObject where+  downToQFileDialog = castQFileDialogToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QFileDialogConst $ castQObjectToQFileDialog ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QFileDialogConstGc fptr' $ castQObjectToQFileDialog ptr'++class QFileDialogSuperConst a where+  downToQFileDialogConst :: a -> QFileDialogConst++instance QFileDialogSuperConst M388.QDialogConst where+  downToQFileDialogConst = cast'+    where+      cast' (M388.QDialogConst ptr') = QFileDialogConst $ castQDialogToQFileDialog ptr'+      cast' (M388.QDialogConstGc fptr' ptr') = QFileDialogConstGc fptr' $ castQDialogToQFileDialog ptr'+instance QFileDialogSuperConst M506.QWidgetConst where+  downToQFileDialogConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QFileDialogConst $ castQWidgetToQFileDialog ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QFileDialogConstGc fptr' $ castQWidgetToQFileDialog ptr'+instance QFileDialogSuperConst M94.QObjectConst where+  downToQFileDialogConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QFileDialogConst $ castQObjectToQFileDialog ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QFileDialogConstGc fptr' $ castQObjectToQFileDialog ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QFileDialog)) QFileDialog where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QFileDialog)) QFileDialog where+  decode = HoppyP.fmap QFileDialog . HoppyF.peek++data QFileDialogAcceptMode =+  AcceptOpen+  | AcceptSave+  | UnknownQFileDialogAcceptMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFileDialogAcceptMode where+  fromCppEnum AcceptOpen = 0+  fromCppEnum AcceptSave = 1+  fromCppEnum (UnknownQFileDialogAcceptMode n) = n+  +  toCppEnum (0) = AcceptOpen+  toCppEnum (1) = AcceptSave+  toCppEnum n = UnknownQFileDialogAcceptMode n++instance HoppyP.Eq QFileDialogAcceptMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFileDialogAcceptMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QFileDialogDialogLabel =+  LookIn+  | FileName+  | FileType+  | Accept+  | Reject+  | UnknownQFileDialogDialogLabel (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFileDialogDialogLabel where+  fromCppEnum LookIn = 0+  fromCppEnum FileName = 1+  fromCppEnum FileType = 2+  fromCppEnum Accept = 3+  fromCppEnum Reject = 4+  fromCppEnum (UnknownQFileDialogDialogLabel n) = n+  +  toCppEnum (0) = LookIn+  toCppEnum (1) = FileName+  toCppEnum (2) = FileType+  toCppEnum (3) = Accept+  toCppEnum (4) = Reject+  toCppEnum n = UnknownQFileDialogDialogLabel n++instance HoppyP.Eq QFileDialogDialogLabel where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFileDialogDialogLabel where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QFileDialogFileMode =+  AnyFile+  | ExistingFile+  | Directory+  | ExistingFiles+  | UnknownQFileDialogFileMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFileDialogFileMode where+  fromCppEnum AnyFile = 0+  fromCppEnum ExistingFile = 1+  fromCppEnum Directory = 2+  fromCppEnum ExistingFiles = 3+  fromCppEnum (UnknownQFileDialogFileMode n) = n+  +  toCppEnum (0) = AnyFile+  toCppEnum (1) = ExistingFile+  toCppEnum (2) = Directory+  toCppEnum (3) = ExistingFiles+  toCppEnum n = UnknownQFileDialogFileMode n++instance HoppyP.Eq QFileDialogFileMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFileDialogFileMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QFileDialogOption =+  ShowDirsOnly+  | DontResolveSymlinks+  | DontConfirmOverwrite+  | DontUseSheet+  | DontUseNativeDialog+  | ReadOnly+  | HideNameFilterDetails+  | DontUseCustomDirectoryIcons+  | UnknownQFileDialogOption (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFileDialogOption where+  fromCppEnum ShowDirsOnly = 1+  fromCppEnum DontResolveSymlinks = 2+  fromCppEnum DontConfirmOverwrite = 4+  fromCppEnum DontUseSheet = 8+  fromCppEnum DontUseNativeDialog = 16+  fromCppEnum ReadOnly = 32+  fromCppEnum HideNameFilterDetails = 64+  fromCppEnum DontUseCustomDirectoryIcons = 128+  fromCppEnum (UnknownQFileDialogOption n) = n+  +  toCppEnum (1) = ShowDirsOnly+  toCppEnum (2) = DontResolveSymlinks+  toCppEnum (4) = DontConfirmOverwrite+  toCppEnum (8) = DontUseSheet+  toCppEnum (16) = DontUseNativeDialog+  toCppEnum (32) = ReadOnly+  toCppEnum (64) = HideNameFilterDetails+  toCppEnum (128) = DontUseCustomDirectoryIcons+  toCppEnum n = UnknownQFileDialogOption n++instance HoppyP.Eq QFileDialogOption where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFileDialogOption where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QFileDialogOptions = QFileDialogOptions (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QFileDialogOption QFileDialogOptions where+  enumToFlags = QFileDialogOptions . QtahFHR.fromCppEnum+  flagsToEnum (QFileDialogOptions x') = QtahFHR.toCppEnum x'++class IsQFileDialogOptions a where+  toQFileDialogOptions :: a -> QFileDialogOptions++instance IsQFileDialogOptions QFileDialogOptions where toQFileDialogOptions = QtahP.id+instance IsQFileDialogOptions QFileDialogOption where toQFileDialogOptions = QtahFlags.enumToFlags+instance IsQFileDialogOptions (HoppyFC.CInt) where toQFileDialogOptions = QtahFlags.numToFlags++dontConfirmOverwrite :: QFileDialogOptions+dontConfirmOverwrite = QFileDialogOptions (4)++dontResolveSymlinks :: QFileDialogOptions+dontResolveSymlinks = QFileDialogOptions (2)++dontUseCustomDirectoryIcons :: QFileDialogOptions+dontUseCustomDirectoryIcons = QFileDialogOptions (128)++dontUseNativeDialog :: QFileDialogOptions+dontUseNativeDialog = QFileDialogOptions (16)++dontUseSheet :: QFileDialogOptions+dontUseSheet = QFileDialogOptions (8)++hideNameFilterDetails :: QFileDialogOptions+hideNameFilterDetails = QFileDialogOptions (64)++readOnly :: QFileDialogOptions+readOnly = QFileDialogOptions (32)++showDirsOnly :: QFileDialogOptions+showDirsOnly = QFileDialogOptions (1)++instance QtahDB.Bits QFileDialogOptions where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QFileDialogViewMode =+  Detail+  | List+  | UnknownQFileDialogViewMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFileDialogViewMode where+  fromCppEnum Detail = 0+  fromCppEnum List = 1+  fromCppEnum (UnknownQFileDialogViewMode n) = n+  +  toCppEnum (0) = Detail+  toCppEnum (1) = List+  toCppEnum n = UnknownQFileDialogViewMode n++instance HoppyP.Eq QFileDialogViewMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFileDialogViewMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Widgets/QFormLayout.hs view
@@ -0,0 +1,719 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QFormLayout (+  castQFormLayoutToQLayout,+  castQLayoutToQFormLayout,+  castQFormLayoutToQObject,+  castQObjectToQFormLayout,+  castQFormLayoutToQLayoutItem,+  castQLayoutItemToQFormLayout,+  QFormLayoutValue (..),+  QFormLayoutConstPtr (..),+  fieldGrowthPolicy,+  formAlignment,+  getItemRow,+  getItemRole,+  getLayoutRow,+  getLayoutRole,+  getWidgetRow,+  getWidgetRole,+  horizontalSpacing,+  itemAt,+  labelAlignment,+  labelForFieldWidget,+  labelForFieldLayout,+  rowCount,+  rowWrapPolicy,+  spacing,+  verticalSpacing,+  QFormLayoutPtr (..),+  addRowWidgetWidget,+  addRowWidgetLayout,+  addRowStringWidget,+  addRowStringLayout,+  addRowWidget,+  addRowLayout,+  setFieldGrowthPolicy,+  setFormAlignment,+  setHorizontalSpacing,+  insertRowWidgetWidget,+  insertRowWidgetLayout,+  insertRowStringWidget,+  insertRowStringLayout,+  insertRowWidget,+  insertRowLayout,+  setLabelAlignment,+  setRowWrapPolicy,+  setItem,+  setLayout,+  setWidget,+  setSpacing,+  setVerticalSpacing,+  QFormLayoutConst (..),+  castQFormLayoutToConst,+  QFormLayout (..),+  castQFormLayoutToNonconst,+  new,+  newWithParent,+  QFormLayoutSuper (..),+  QFormLayoutSuperConst (..),+  QFormLayoutFieldGrowthPolicy (..),+  QFormLayoutItemRole (..),+  QFormLayoutRowWrapPolicy (..),+  ) 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.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+import qualified Prelude as QtahP++foreign import ccall "genpop__QFormLayout_new" new' ::  HoppyP.IO (HoppyF.Ptr QFormLayout)+foreign import ccall "genpop__QFormLayout_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QFormLayout)+foreign import ccall "genpop__QFormLayout_addRowWidgetWidget" addRowWidgetWidget' ::  HoppyF.Ptr QFormLayout -> HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_addRowWidgetLayout" addRowWidgetLayout' ::  HoppyF.Ptr QFormLayout -> HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M432.QLayout -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_addRowStringWidget" addRowStringWidget' ::  HoppyF.Ptr QFormLayout -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_addRowStringLayout" addRowStringLayout' ::  HoppyF.Ptr QFormLayout -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M432.QLayout -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_addRowWidget" addRowWidget' ::  HoppyF.Ptr QFormLayout -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_addRowLayout" addRowLayout' ::  HoppyF.Ptr QFormLayout -> HoppyF.Ptr M432.QLayout -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_fieldGrowthPolicy" fieldGrowthPolicy' ::  HoppyF.Ptr QFormLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFormLayout_setFieldGrowthPolicy" setFieldGrowthPolicy' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_formAlignment" formAlignment' ::  HoppyF.Ptr QFormLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFormLayout_setFormAlignment" setFormAlignment' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_getItemRow" getItemRow' ::  HoppyF.Ptr QFormLayoutConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFormLayout_getItemRole" getItemRole' ::  HoppyF.Ptr QFormLayoutConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFormLayout_getLayoutRow" getLayoutRow' ::  HoppyF.Ptr QFormLayoutConst -> HoppyF.Ptr M432.QLayout -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFormLayout_getLayoutRole" getLayoutRole' ::  HoppyF.Ptr QFormLayoutConst -> HoppyF.Ptr M432.QLayout -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFormLayout_getWidgetRow" getWidgetRow' ::  HoppyF.Ptr QFormLayoutConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFormLayout_getWidgetRole" getWidgetRole' ::  HoppyF.Ptr QFormLayoutConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFormLayout_horizontalSpacing" horizontalSpacing' ::  HoppyF.Ptr QFormLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFormLayout_setHorizontalSpacing" setHorizontalSpacing' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_insertRowWidgetWidget" insertRowWidgetWidget' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_insertRowWidgetLayout" insertRowWidgetLayout' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M432.QLayout -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_insertRowStringWidget" insertRowStringWidget' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_insertRowStringLayout" insertRowStringLayout' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M432.QLayout -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_insertRowWidget" insertRowWidget' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_insertRowLayout" insertRowLayout' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyF.Ptr M432.QLayout -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_itemAt" itemAt' ::  HoppyF.Ptr QFormLayoutConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M434.QLayoutItem)+foreign import ccall "genpop__QFormLayout_labelAlignment" labelAlignment' ::  HoppyF.Ptr QFormLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFormLayout_setLabelAlignment" setLabelAlignment' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_labelForFieldWidget" labelForFieldWidget' ::  HoppyF.Ptr QFormLayoutConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QFormLayout_labelForFieldLayout" labelForFieldLayout' ::  HoppyF.Ptr QFormLayoutConst -> HoppyF.Ptr M432.QLayout -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QFormLayout_rowCount" rowCount' ::  HoppyF.Ptr QFormLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFormLayout_rowWrapPolicy" rowWrapPolicy' ::  HoppyF.Ptr QFormLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFormLayout_setRowWrapPolicy" setRowWrapPolicy' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_setItem" setItem' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M434.QLayoutItem -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_setLayout" setLayout' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M432.QLayout -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_setWidget" setWidget' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_spacing" spacing' ::  HoppyF.Ptr QFormLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFormLayout_setSpacing" setSpacing' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFormLayout_verticalSpacing" verticalSpacing' ::  HoppyF.Ptr QFormLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFormLayout_setVerticalSpacing" setVerticalSpacing' ::  HoppyF.Ptr QFormLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QFormLayout__QLayout" castQFormLayoutToQLayout :: HoppyF.Ptr QFormLayoutConst -> HoppyF.Ptr M432.QLayoutConst+foreign import ccall "gencast__QLayout__QFormLayout" castQLayoutToQFormLayout :: HoppyF.Ptr M432.QLayoutConst -> HoppyF.Ptr QFormLayoutConst+foreign import ccall "gencast__QFormLayout__QObject" castQFormLayoutToQObject :: HoppyF.Ptr QFormLayoutConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QFormLayout" castQObjectToQFormLayout :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QFormLayoutConst+foreign import ccall "gencast__QFormLayout__QLayoutItem" castQFormLayoutToQLayoutItem :: HoppyF.Ptr QFormLayoutConst -> HoppyF.Ptr M434.QLayoutItemConst+foreign import ccall "gencast__QLayoutItem__QFormLayout" castQLayoutItemToQFormLayout :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr QFormLayoutConst+foreign import ccall "gendel__QFormLayout" delete'QFormLayout :: HoppyF.Ptr QFormLayoutConst -> HoppyP.IO ()+foreign import ccall "&gendel__QFormLayout" deletePtr'QFormLayout :: HoppyF.FunPtr (HoppyF.Ptr QFormLayoutConst -> HoppyP.IO ())++class QFormLayoutValue a where+  withQFormLayoutPtr :: a -> (QFormLayoutConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QFormLayoutConstPtr a => QFormLayoutValue a where+  withQFormLayoutPtr = HoppyP.flip ($) . toQFormLayoutConst++class (M432.QLayoutConstPtr this) => QFormLayoutConstPtr this where+  toQFormLayoutConst :: this -> QFormLayoutConst++fieldGrowthPolicy :: (QFormLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO QFormLayoutFieldGrowthPolicy)+fieldGrowthPolicy arg'1 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (fieldGrowthPolicy' arg'1')++formAlignment :: (QFormLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtAlignment)+formAlignment arg'1 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (formAlignment' arg'1')++getItemRow :: (QFormLayoutValue arg'1) => (arg'1) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+getItemRow arg'1 arg'2 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (getItemRow' arg'1' arg'2')++getItemRole :: (QFormLayoutValue arg'1) => (arg'1) -> (HoppyP.Int) -> (HoppyP.IO QFormLayoutItemRole)+getItemRole arg'1 arg'2 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (getItemRole' arg'1' arg'2')++getLayoutRow :: (QFormLayoutValue arg'1, M432.QLayoutPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Int)+getLayoutRow arg'1 arg'2 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (getLayoutRow' arg'1' arg'2')++getLayoutRole :: (QFormLayoutValue arg'1, M432.QLayoutPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QFormLayoutItemRole)+getLayoutRole arg'1 arg'2 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (getLayoutRole' arg'1' arg'2')++getWidgetRow :: (QFormLayoutValue arg'1, M506.QWidgetPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HoppyP.Int)+getWidgetRow arg'1 arg'2 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (getWidgetRow' arg'1' arg'2')++getWidgetRole :: (QFormLayoutValue arg'1, M506.QWidgetPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QFormLayoutItemRole)+getWidgetRole arg'1 arg'2 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (getWidgetRole' arg'1' arg'2')++horizontalSpacing :: (QFormLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+horizontalSpacing arg'1 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (horizontalSpacing' arg'1')++itemAt :: (QFormLayoutValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (QFormLayoutItemRole) -> (HoppyP.IO M434.QLayoutItem)+itemAt arg'1 arg'2 arg'3 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap M434.QLayoutItem+  (itemAt' arg'1' arg'2' arg'3')++labelAlignment :: (QFormLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtAlignment)+labelAlignment arg'1 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (labelAlignment' arg'1')++labelForFieldWidget :: (QFormLayoutValue this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M506.QWidget)+labelForFieldWidget arg'1 arg'2 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  HoppyP.fmap M506.QWidget+  (labelForFieldWidget' arg'1' arg'2')++labelForFieldLayout :: (QFormLayoutValue this, M432.QLayoutPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M506.QWidget)+labelForFieldLayout arg'1 arg'2 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'2) $ \arg'2' ->+  HoppyP.fmap M506.QWidget+  (labelForFieldLayout' arg'1' arg'2')++rowCount :: (QFormLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+rowCount arg'1 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (rowCount' arg'1')++rowWrapPolicy :: (QFormLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO QFormLayoutRowWrapPolicy)+rowWrapPolicy arg'1 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (rowWrapPolicy' arg'1')++spacing :: (QFormLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+spacing arg'1 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (spacing' arg'1')++verticalSpacing :: (QFormLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+verticalSpacing arg'1 =+  withQFormLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (verticalSpacing' arg'1')++class (QFormLayoutConstPtr this, M432.QLayoutPtr this) => QFormLayoutPtr this where+  toQFormLayout :: this -> QFormLayout++addRowWidgetWidget :: (QFormLayoutPtr this, M506.QWidgetPtr arg'2, M506.QWidgetPtr arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+addRowWidgetWidget arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'3) $ \arg'3' ->+  (addRowWidgetWidget' arg'1' arg'2' arg'3')++addRowWidgetLayout :: (QFormLayoutPtr this, M506.QWidgetPtr arg'2, M432.QLayoutPtr arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+addRowWidgetLayout arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'3) $ \arg'3' ->+  (addRowWidgetLayout' arg'1' arg'2' arg'3')++addRowStringWidget :: (QFormLayoutPtr this, M142.QStringValue arg'2, M506.QWidgetPtr arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+addRowStringWidget arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'3) $ \arg'3' ->+  (addRowStringWidget' arg'1' arg'2' arg'3')++addRowStringLayout :: (QFormLayoutPtr this, M142.QStringValue arg'2, M432.QLayoutPtr arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+addRowStringLayout arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'3) $ \arg'3' ->+  (addRowStringLayout' arg'1' arg'2' arg'3')++addRowWidget :: (QFormLayoutPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addRowWidget arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (addRowWidget' arg'1' arg'2')++addRowLayout :: (QFormLayoutPtr this, M432.QLayoutPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addRowLayout arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'2) $ \arg'2' ->+  (addRowLayout' arg'1' arg'2')++setFieldGrowthPolicy :: (QFormLayoutPtr this) => (this) {- ^ this -} -> (QFormLayoutFieldGrowthPolicy) -> (HoppyP.IO ())+setFieldGrowthPolicy arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setFieldGrowthPolicy' arg'1' arg'2')++setFormAlignment :: (QFormLayoutPtr this, M190.IsQtAlignment arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFormAlignment arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'2 >>= \arg'2' ->+  (setFormAlignment' arg'1' arg'2')++setHorizontalSpacing :: (QFormLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setHorizontalSpacing arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setHorizontalSpacing' arg'1' arg'2')++insertRowWidgetWidget :: (QFormLayoutPtr this, M506.QWidgetPtr arg'3, M506.QWidgetPtr arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (arg'4) -> (HoppyP.IO ())+insertRowWidgetWidget arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'3) $ \arg'3' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'4) $ \arg'4' ->+  (insertRowWidgetWidget' arg'1' arg'2' arg'3' arg'4')++insertRowWidgetLayout :: (QFormLayoutPtr this, M506.QWidgetPtr arg'3, M432.QLayoutPtr arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (arg'4) -> (HoppyP.IO ())+insertRowWidgetLayout arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'3) $ \arg'3' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'4) $ \arg'4' ->+  (insertRowWidgetLayout' arg'1' arg'2' arg'3' arg'4')++insertRowStringWidget :: (QFormLayoutPtr this, M142.QStringValue arg'3, M506.QWidgetPtr arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (arg'4) -> (HoppyP.IO ())+insertRowStringWidget arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'4) $ \arg'4' ->+  (insertRowStringWidget' arg'1' arg'2' arg'3' arg'4')++insertRowStringLayout :: (QFormLayoutPtr this, M142.QStringValue arg'3, M432.QLayoutPtr arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (arg'4) -> (HoppyP.IO ())+insertRowStringLayout arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'4) $ \arg'4' ->+  (insertRowStringLayout' arg'1' arg'2' arg'3' arg'4')++insertRowWidget :: (QFormLayoutPtr this, M506.QWidgetPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insertRowWidget arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'3) $ \arg'3' ->+  (insertRowWidget' arg'1' arg'2' arg'3')++insertRowLayout :: (QFormLayoutPtr this, M432.QLayoutPtr arg'3) => (this) {- ^ this -} -> (HoppyP.Int) -> (arg'3) -> (HoppyP.IO ())+insertRowLayout arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'3) $ \arg'3' ->+  (insertRowLayout' arg'1' arg'2' arg'3')++setLabelAlignment :: (QFormLayoutPtr this, M190.IsQtAlignment arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setLabelAlignment arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'2 >>= \arg'2' ->+  (setLabelAlignment' arg'1' arg'2')++setRowWrapPolicy :: (QFormLayoutPtr this) => (this) {- ^ this -} -> (QFormLayoutRowWrapPolicy) -> (HoppyP.IO ())+setRowWrapPolicy arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setRowWrapPolicy' arg'1' arg'2')++setItem :: (QFormLayoutPtr this, M434.QLayoutItemPtr arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (QFormLayoutItemRole) -> (arg'4) -> (HoppyP.IO ())+setItem arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.withCppPtr (M434.toQLayoutItem arg'4) $ \arg'4' ->+  (setItem' arg'1' arg'2' arg'3' arg'4')++setLayout :: (QFormLayoutPtr this, M432.QLayoutPtr arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (QFormLayoutItemRole) -> (arg'4) -> (HoppyP.IO ())+setLayout arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'4) $ \arg'4' ->+  (setLayout' arg'1' arg'2' arg'3' arg'4')++setWidget :: (QFormLayoutPtr this, M506.QWidgetPtr arg'4) => (this) {- ^ this -} -> (HoppyP.Int) -> (QFormLayoutItemRole) -> (arg'4) -> (HoppyP.IO ())+setWidget arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'4) $ \arg'4' ->+  (setWidget' arg'1' arg'2' arg'3' arg'4')++setSpacing :: (QFormLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setSpacing arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setSpacing' arg'1' arg'2')++setVerticalSpacing :: (QFormLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setVerticalSpacing arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFormLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setVerticalSpacing' arg'1' arg'2')++data QFormLayoutConst =+    QFormLayoutConst (HoppyF.Ptr QFormLayoutConst)+  | QFormLayoutConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFormLayoutConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFormLayoutConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFormLayoutConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFormLayoutToConst :: QFormLayout -> QFormLayoutConst+castQFormLayoutToConst (QFormLayout ptr') = QFormLayoutConst $ HoppyF.castPtr ptr'+castQFormLayoutToConst (QFormLayoutGc fptr' ptr') = QFormLayoutConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFormLayoutConst where+  nullptr = QFormLayoutConst HoppyF.nullPtr+  +  withCppPtr (QFormLayoutConst ptr') f' = f' ptr'+  withCppPtr (QFormLayoutConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFormLayoutConst ptr') = ptr'+  toPtr (QFormLayoutConstGc _ ptr') = ptr'+  +  touchCppPtr (QFormLayoutConst _) = HoppyP.return ()+  touchCppPtr (QFormLayoutConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFormLayoutConst where+  delete (QFormLayoutConst ptr') = delete'QFormLayout ptr'+  delete (QFormLayoutConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFormLayoutConst", " object."]+  +  toGc this'@(QFormLayoutConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFormLayoutConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFormLayout :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFormLayoutConstGc {}) = HoppyP.return this'++instance QFormLayoutConstPtr QFormLayoutConst where+  toQFormLayoutConst = HoppyP.id++instance M432.QLayoutConstPtr QFormLayoutConst where+  toQLayoutConst (QFormLayoutConst ptr') = M432.QLayoutConst $ castQFormLayoutToQLayout ptr'+  toQLayoutConst (QFormLayoutConstGc fptr' ptr') = M432.QLayoutConstGc fptr' $ castQFormLayoutToQLayout ptr'++instance M94.QObjectConstPtr QFormLayoutConst where+  toQObjectConst (QFormLayoutConst ptr') = M94.QObjectConst $ castQFormLayoutToQObject ptr'+  toQObjectConst (QFormLayoutConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFormLayoutToQObject ptr'++instance M434.QLayoutItemConstPtr QFormLayoutConst where+  toQLayoutItemConst (QFormLayoutConst ptr') = M434.QLayoutItemConst $ castQFormLayoutToQLayoutItem ptr'+  toQLayoutItemConst (QFormLayoutConstGc fptr' ptr') = M434.QLayoutItemConstGc fptr' $ castQFormLayoutToQLayoutItem ptr'++data QFormLayout =+    QFormLayout (HoppyF.Ptr QFormLayout)+  | QFormLayoutGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFormLayout)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFormLayout where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFormLayout where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFormLayoutToNonconst :: QFormLayoutConst -> QFormLayout+castQFormLayoutToNonconst (QFormLayoutConst ptr') = QFormLayout $ HoppyF.castPtr ptr'+castQFormLayoutToNonconst (QFormLayoutConstGc fptr' ptr') = QFormLayoutGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFormLayout where+  nullptr = QFormLayout HoppyF.nullPtr+  +  withCppPtr (QFormLayout ptr') f' = f' ptr'+  withCppPtr (QFormLayoutGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFormLayout ptr') = ptr'+  toPtr (QFormLayoutGc _ ptr') = ptr'+  +  touchCppPtr (QFormLayout _) = HoppyP.return ()+  touchCppPtr (QFormLayoutGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFormLayout where+  delete (QFormLayout ptr') = delete'QFormLayout $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QFormLayoutConst)+  delete (QFormLayoutGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFormLayout", " object."]+  +  toGc this'@(QFormLayout ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFormLayoutGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFormLayout :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFormLayoutGc {}) = HoppyP.return this'++instance QFormLayoutConstPtr QFormLayout where+  toQFormLayoutConst (QFormLayout ptr') = QFormLayoutConst $ (HoppyF.castPtr :: HoppyF.Ptr QFormLayout -> HoppyF.Ptr QFormLayoutConst) ptr'+  toQFormLayoutConst (QFormLayoutGc fptr' ptr') = QFormLayoutConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QFormLayout -> HoppyF.Ptr QFormLayoutConst) ptr'++instance QFormLayoutPtr QFormLayout where+  toQFormLayout = HoppyP.id++instance M432.QLayoutConstPtr QFormLayout where+  toQLayoutConst (QFormLayout ptr') = M432.QLayoutConst $ castQFormLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QFormLayout -> HoppyF.Ptr QFormLayoutConst) ptr'+  toQLayoutConst (QFormLayoutGc fptr' ptr') = M432.QLayoutConstGc fptr' $ castQFormLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QFormLayout -> HoppyF.Ptr QFormLayoutConst) ptr'++instance M432.QLayoutPtr QFormLayout where+  toQLayout (QFormLayout ptr') = M432.QLayout $ (HoppyF.castPtr :: HoppyF.Ptr M432.QLayoutConst -> HoppyF.Ptr M432.QLayout) $ castQFormLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QFormLayout -> HoppyF.Ptr QFormLayoutConst) ptr'+  toQLayout (QFormLayoutGc fptr' ptr') = M432.QLayoutGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M432.QLayoutConst -> HoppyF.Ptr M432.QLayout) $ castQFormLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QFormLayout -> HoppyF.Ptr QFormLayoutConst) ptr'++instance M94.QObjectConstPtr QFormLayout where+  toQObjectConst (QFormLayout ptr') = M94.QObjectConst $ castQFormLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFormLayout -> HoppyF.Ptr QFormLayoutConst) ptr'+  toQObjectConst (QFormLayoutGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFormLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFormLayout -> HoppyF.Ptr QFormLayoutConst) ptr'++instance M94.QObjectPtr QFormLayout where+  toQObject (QFormLayout ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFormLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFormLayout -> HoppyF.Ptr QFormLayoutConst) ptr'+  toQObject (QFormLayoutGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFormLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFormLayout -> HoppyF.Ptr QFormLayoutConst) ptr'++instance M434.QLayoutItemConstPtr QFormLayout where+  toQLayoutItemConst (QFormLayout ptr') = M434.QLayoutItemConst $ castQFormLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QFormLayout -> HoppyF.Ptr QFormLayoutConst) ptr'+  toQLayoutItemConst (QFormLayoutGc fptr' ptr') = M434.QLayoutItemConstGc fptr' $ castQFormLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QFormLayout -> HoppyF.Ptr QFormLayoutConst) ptr'++instance M434.QLayoutItemPtr QFormLayout where+  toQLayoutItem (QFormLayout ptr') = M434.QLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr M434.QLayoutItem) $ castQFormLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QFormLayout -> HoppyF.Ptr QFormLayoutConst) ptr'+  toQLayoutItem (QFormLayoutGc fptr' ptr') = M434.QLayoutItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr M434.QLayoutItem) $ castQFormLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QFormLayout -> HoppyF.Ptr QFormLayoutConst) ptr'++new :: (HoppyP.IO QFormLayout)+new =+  HoppyP.fmap QFormLayout+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QFormLayout)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QFormLayout+  (newWithParent' arg'1')++class QFormLayoutSuper a where+  downToQFormLayout :: a -> QFormLayout++instance QFormLayoutSuper M432.QLayout where+  downToQFormLayout = castQFormLayoutToNonconst . cast' . M432.castQLayoutToConst+    where+      cast' (M432.QLayoutConst ptr') = QFormLayoutConst $ castQLayoutToQFormLayout ptr'+      cast' (M432.QLayoutConstGc fptr' ptr') = QFormLayoutConstGc fptr' $ castQLayoutToQFormLayout ptr'+instance QFormLayoutSuper M94.QObject where+  downToQFormLayout = castQFormLayoutToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QFormLayoutConst $ castQObjectToQFormLayout ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QFormLayoutConstGc fptr' $ castQObjectToQFormLayout ptr'+instance QFormLayoutSuper M434.QLayoutItem where+  downToQFormLayout = castQFormLayoutToNonconst . cast' . M434.castQLayoutItemToConst+    where+      cast' (M434.QLayoutItemConst ptr') = QFormLayoutConst $ castQLayoutItemToQFormLayout ptr'+      cast' (M434.QLayoutItemConstGc fptr' ptr') = QFormLayoutConstGc fptr' $ castQLayoutItemToQFormLayout ptr'++class QFormLayoutSuperConst a where+  downToQFormLayoutConst :: a -> QFormLayoutConst++instance QFormLayoutSuperConst M432.QLayoutConst where+  downToQFormLayoutConst = cast'+    where+      cast' (M432.QLayoutConst ptr') = QFormLayoutConst $ castQLayoutToQFormLayout ptr'+      cast' (M432.QLayoutConstGc fptr' ptr') = QFormLayoutConstGc fptr' $ castQLayoutToQFormLayout ptr'+instance QFormLayoutSuperConst M94.QObjectConst where+  downToQFormLayoutConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QFormLayoutConst $ castQObjectToQFormLayout ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QFormLayoutConstGc fptr' $ castQObjectToQFormLayout ptr'+instance QFormLayoutSuperConst M434.QLayoutItemConst where+  downToQFormLayoutConst = cast'+    where+      cast' (M434.QLayoutItemConst ptr') = QFormLayoutConst $ castQLayoutItemToQFormLayout ptr'+      cast' (M434.QLayoutItemConstGc fptr' ptr') = QFormLayoutConstGc fptr' $ castQLayoutItemToQFormLayout ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QFormLayout)) QFormLayout where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QFormLayout)) QFormLayout where+  decode = HoppyP.fmap QFormLayout . HoppyF.peek++data QFormLayoutFieldGrowthPolicy =+  FieldsStayAtSizeHint+  | ExpandingFieldsGrow+  | AllNonFixedFieldsGrow+  | UnknownQFormLayoutFieldGrowthPolicy (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFormLayoutFieldGrowthPolicy where+  fromCppEnum FieldsStayAtSizeHint = 0+  fromCppEnum ExpandingFieldsGrow = 1+  fromCppEnum AllNonFixedFieldsGrow = 2+  fromCppEnum (UnknownQFormLayoutFieldGrowthPolicy n) = n+  +  toCppEnum (0) = FieldsStayAtSizeHint+  toCppEnum (1) = ExpandingFieldsGrow+  toCppEnum (2) = AllNonFixedFieldsGrow+  toCppEnum n = UnknownQFormLayoutFieldGrowthPolicy n++instance HoppyP.Eq QFormLayoutFieldGrowthPolicy where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFormLayoutFieldGrowthPolicy where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QFormLayoutItemRole =+  LabelRole+  | FieldRole+  | SpanningRole+  | UnknownQFormLayoutItemRole (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFormLayoutItemRole where+  fromCppEnum LabelRole = 0+  fromCppEnum FieldRole = 1+  fromCppEnum SpanningRole = 2+  fromCppEnum (UnknownQFormLayoutItemRole n) = n+  +  toCppEnum (0) = LabelRole+  toCppEnum (1) = FieldRole+  toCppEnum (2) = SpanningRole+  toCppEnum n = UnknownQFormLayoutItemRole n++instance HoppyP.Eq QFormLayoutItemRole where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFormLayoutItemRole where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QFormLayoutRowWrapPolicy =+  DontWrapRows+  | WrapLongRows+  | WrapAllRows+  | UnknownQFormLayoutRowWrapPolicy (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFormLayoutRowWrapPolicy where+  fromCppEnum DontWrapRows = 0+  fromCppEnum WrapLongRows = 1+  fromCppEnum WrapAllRows = 2+  fromCppEnum (UnknownQFormLayoutRowWrapPolicy n) = n+  +  toCppEnum (0) = DontWrapRows+  toCppEnum (1) = WrapLongRows+  toCppEnum (2) = WrapAllRows+  toCppEnum n = UnknownQFormLayoutRowWrapPolicy n++instance HoppyP.Eq QFormLayoutRowWrapPolicy where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFormLayoutRowWrapPolicy where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Widgets/QFrame.hs view
@@ -0,0 +1,408 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QFrame (+  castQFrameToQWidget,+  castQWidgetToQFrame,+  castQFrameToQObject,+  castQObjectToQFrame,+  QFrameValue (..),+  QFrameConstPtr (..),+  frameRect,+  frameShadow,+  frameShape,+  frameStyle,+  frameWidth,+  lineWidth,+  midLineWidth,+  QFramePtr (..),+  setFrameRect,+  setFrameShadow,+  setFrameShape,+  setFrameStyle,+  setLineWidth,+  setMidLineWidth,+  QFrameConst (..),+  castQFrameToConst,+  QFrame (..),+  castQFrameToNonconst,+  new,+  newWithParent,+  QFrameSuper (..),+  QFrameSuperConst (..),+  QFrameShadow (..),+  QFrameShape (..),+  QFrameStyleMask (..),+  ) 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.QRect as M122+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QFrame_new" new' ::  HoppyP.IO (HoppyF.Ptr QFrame)+foreign import ccall "genpop__QFrame_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QFrame)+foreign import ccall "genpop__QFrame_frameRect" frameRect' ::  HoppyF.Ptr QFrameConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QFrame_setFrameRect" setFrameRect' ::  HoppyF.Ptr QFrame -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO ()+foreign import ccall "genpop__QFrame_frameShadow" frameShadow' ::  HoppyF.Ptr QFrameConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFrame_setFrameShadow" setFrameShadow' ::  HoppyF.Ptr QFrame -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFrame_frameShape" frameShape' ::  HoppyF.Ptr QFrameConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFrame_setFrameShape" setFrameShape' ::  HoppyF.Ptr QFrame -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFrame_frameStyle" frameStyle' ::  HoppyF.Ptr QFrameConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFrame_setFrameStyle" setFrameStyle' ::  HoppyF.Ptr QFrame -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFrame_frameWidth" frameWidth' ::  HoppyF.Ptr QFrameConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFrame_lineWidth" lineWidth' ::  HoppyF.Ptr QFrameConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFrame_setLineWidth" setLineWidth' ::  HoppyF.Ptr QFrame -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QFrame_midLineWidth" midLineWidth' ::  HoppyF.Ptr QFrameConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QFrame_setMidLineWidth" setMidLineWidth' ::  HoppyF.Ptr QFrame -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QFrame__QWidget" castQFrameToQWidget :: HoppyF.Ptr QFrameConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QFrame" castQWidgetToQFrame :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QFrameConst+foreign import ccall "gencast__QFrame__QObject" castQFrameToQObject :: HoppyF.Ptr QFrameConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QFrame" castQObjectToQFrame :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QFrameConst+foreign import ccall "gendel__QFrame" delete'QFrame :: HoppyF.Ptr QFrameConst -> HoppyP.IO ()+foreign import ccall "&gendel__QFrame" deletePtr'QFrame :: HoppyF.FunPtr (HoppyF.Ptr QFrameConst -> HoppyP.IO ())++class QFrameValue a where+  withQFramePtr :: a -> (QFrameConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QFrameConstPtr a => QFrameValue a where+  withQFramePtr = HoppyP.flip ($) . toQFrameConst++class (M506.QWidgetConstPtr this) => QFrameConstPtr this where+  toQFrameConst :: this -> QFrameConst++frameRect :: (QFrameValue this) => (this) {- ^ this -} -> (HoppyP.IO HRect.HRect)+frameRect arg'1 =+  withQFramePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<+  (frameRect' arg'1')++frameShadow :: (QFrameValue this) => (this) {- ^ this -} -> (HoppyP.IO QFrameShadow)+frameShadow arg'1 =+  withQFramePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (frameShadow' arg'1')++frameShape :: (QFrameValue this) => (this) {- ^ this -} -> (HoppyP.IO QFrameShape)+frameShape arg'1 =+  withQFramePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (frameShape' arg'1')++frameStyle :: (QFrameValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+frameStyle arg'1 =+  withQFramePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (frameStyle' arg'1')++frameWidth :: (QFrameValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+frameWidth arg'1 =+  withQFramePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (frameWidth' arg'1')++lineWidth :: (QFrameValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+lineWidth arg'1 =+  withQFramePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (lineWidth' arg'1')++midLineWidth :: (QFrameValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+midLineWidth arg'1 =+  withQFramePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (midLineWidth' arg'1')++class (QFrameConstPtr this, M506.QWidgetPtr this) => QFramePtr this where+  toQFrame :: this -> QFrame++setFrameRect :: (QFramePtr this, M122.QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFrameRect arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFrame arg'1) $ \arg'1' ->+  M122.withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setFrameRect' arg'1' arg'2')++setFrameShadow :: (QFramePtr this) => (this) {- ^ this -} -> (QFrameShadow) -> (HoppyP.IO ())+setFrameShadow arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFrame arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setFrameShadow' arg'1' arg'2')++setFrameShape :: (QFramePtr this) => (this) {- ^ this -} -> (QFrameShape) -> (HoppyP.IO ())+setFrameShape arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFrame arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setFrameShape' arg'1' arg'2')++setFrameStyle :: (QFramePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setFrameStyle arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFrame arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setFrameStyle' arg'1' arg'2')++setLineWidth :: (QFramePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setLineWidth arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFrame arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setLineWidth' arg'1' arg'2')++setMidLineWidth :: (QFramePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setMidLineWidth arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQFrame arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setMidLineWidth' arg'1' arg'2')++data QFrameConst =+    QFrameConst (HoppyF.Ptr QFrameConst)+  | QFrameConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFrameConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFrameConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFrameConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFrameToConst :: QFrame -> QFrameConst+castQFrameToConst (QFrame ptr') = QFrameConst $ HoppyF.castPtr ptr'+castQFrameToConst (QFrameGc fptr' ptr') = QFrameConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFrameConst where+  nullptr = QFrameConst HoppyF.nullPtr+  +  withCppPtr (QFrameConst ptr') f' = f' ptr'+  withCppPtr (QFrameConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFrameConst ptr') = ptr'+  toPtr (QFrameConstGc _ ptr') = ptr'+  +  touchCppPtr (QFrameConst _) = HoppyP.return ()+  touchCppPtr (QFrameConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFrameConst where+  delete (QFrameConst ptr') = delete'QFrame ptr'+  delete (QFrameConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFrameConst", " object."]+  +  toGc this'@(QFrameConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFrameConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFrame :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFrameConstGc {}) = HoppyP.return this'++instance QFrameConstPtr QFrameConst where+  toQFrameConst = HoppyP.id++instance M506.QWidgetConstPtr QFrameConst where+  toQWidgetConst (QFrameConst ptr') = M506.QWidgetConst $ castQFrameToQWidget ptr'+  toQWidgetConst (QFrameConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQFrameToQWidget ptr'++instance M94.QObjectConstPtr QFrameConst where+  toQObjectConst (QFrameConst ptr') = M94.QObjectConst $ castQFrameToQObject ptr'+  toQObjectConst (QFrameConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFrameToQObject ptr'++data QFrame =+    QFrame (HoppyF.Ptr QFrame)+  | QFrameGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFrame)+  deriving (HoppyP.Show)++instance HoppyP.Eq QFrame where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QFrame where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQFrameToNonconst :: QFrameConst -> QFrame+castQFrameToNonconst (QFrameConst ptr') = QFrame $ HoppyF.castPtr ptr'+castQFrameToNonconst (QFrameConstGc fptr' ptr') = QFrameGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QFrame where+  nullptr = QFrame HoppyF.nullPtr+  +  withCppPtr (QFrame ptr') f' = f' ptr'+  withCppPtr (QFrameGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QFrame ptr') = ptr'+  toPtr (QFrameGc _ ptr') = ptr'+  +  touchCppPtr (QFrame _) = HoppyP.return ()+  touchCppPtr (QFrameGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QFrame where+  delete (QFrame ptr') = delete'QFrame $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QFrameConst)+  delete (QFrameGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QFrame", " object."]+  +  toGc this'@(QFrame ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QFrameGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QFrame :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QFrameGc {}) = HoppyP.return this'++instance QFrameConstPtr QFrame where+  toQFrameConst (QFrame ptr') = QFrameConst $ (HoppyF.castPtr :: HoppyF.Ptr QFrame -> HoppyF.Ptr QFrameConst) ptr'+  toQFrameConst (QFrameGc fptr' ptr') = QFrameConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QFrame -> HoppyF.Ptr QFrameConst) ptr'++instance QFramePtr QFrame where+  toQFrame = HoppyP.id++instance M506.QWidgetConstPtr QFrame where+  toQWidgetConst (QFrame ptr') = M506.QWidgetConst $ castQFrameToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QFrame -> HoppyF.Ptr QFrameConst) ptr'+  toQWidgetConst (QFrameGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQFrameToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QFrame -> HoppyF.Ptr QFrameConst) ptr'++instance M506.QWidgetPtr QFrame where+  toQWidget (QFrame ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQFrameToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QFrame -> HoppyF.Ptr QFrameConst) ptr'+  toQWidget (QFrameGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQFrameToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QFrame -> HoppyF.Ptr QFrameConst) ptr'++instance M94.QObjectConstPtr QFrame where+  toQObjectConst (QFrame ptr') = M94.QObjectConst $ castQFrameToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFrame -> HoppyF.Ptr QFrameConst) ptr'+  toQObjectConst (QFrameGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQFrameToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFrame -> HoppyF.Ptr QFrameConst) ptr'++instance M94.QObjectPtr QFrame where+  toQObject (QFrame ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFrameToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFrame -> HoppyF.Ptr QFrameConst) ptr'+  toQObject (QFrameGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQFrameToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QFrame -> HoppyF.Ptr QFrameConst) ptr'++new :: (HoppyP.IO QFrame)+new =+  HoppyP.fmap QFrame+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QFrame)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QFrame+  (newWithParent' arg'1')++class QFrameSuper a where+  downToQFrame :: a -> QFrame++instance QFrameSuper M506.QWidget where+  downToQFrame = castQFrameToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QFrameConst $ castQWidgetToQFrame ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QFrameConstGc fptr' $ castQWidgetToQFrame ptr'+instance QFrameSuper M94.QObject where+  downToQFrame = castQFrameToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QFrameConst $ castQObjectToQFrame ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QFrameConstGc fptr' $ castQObjectToQFrame ptr'++class QFrameSuperConst a where+  downToQFrameConst :: a -> QFrameConst++instance QFrameSuperConst M506.QWidgetConst where+  downToQFrameConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QFrameConst $ castQWidgetToQFrame ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QFrameConstGc fptr' $ castQWidgetToQFrame ptr'+instance QFrameSuperConst M94.QObjectConst where+  downToQFrameConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QFrameConst $ castQObjectToQFrame ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QFrameConstGc fptr' $ castQObjectToQFrame ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QFrame)) QFrame where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QFrame)) QFrame where+  decode = HoppyP.fmap QFrame . HoppyF.peek++data QFrameShadow =+  Plain+  | Raised+  | Sunken+  | UnknownQFrameShadow (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFrameShadow where+  fromCppEnum Plain = 16+  fromCppEnum Raised = 32+  fromCppEnum Sunken = 48+  fromCppEnum (UnknownQFrameShadow n) = n+  +  toCppEnum (16) = Plain+  toCppEnum (32) = Raised+  toCppEnum (48) = Sunken+  toCppEnum n = UnknownQFrameShadow n++instance HoppyP.Eq QFrameShadow where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFrameShadow where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QFrameShape =+  NoFrame+  | Box+  | Panel+  | WinPanel+  | HLine+  | VLine+  | StyledPanel+  | UnknownQFrameShape (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFrameShape where+  fromCppEnum NoFrame = 0+  fromCppEnum Box = 1+  fromCppEnum Panel = 2+  fromCppEnum WinPanel = 3+  fromCppEnum HLine = 4+  fromCppEnum VLine = 5+  fromCppEnum StyledPanel = 6+  fromCppEnum (UnknownQFrameShape n) = n+  +  toCppEnum (0) = NoFrame+  toCppEnum (1) = Box+  toCppEnum (2) = Panel+  toCppEnum (3) = WinPanel+  toCppEnum (4) = HLine+  toCppEnum (5) = VLine+  toCppEnum (6) = StyledPanel+  toCppEnum n = UnknownQFrameShape n++instance HoppyP.Eq QFrameShape where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFrameShape where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QFrameStyleMask =+  ShapeMask+  | ShadowMask+  | UnknownQFrameStyleMask (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QFrameStyleMask where+  fromCppEnum ShapeMask = 15+  fromCppEnum ShadowMask = 240+  fromCppEnum (UnknownQFrameStyleMask n) = n+  +  toCppEnum (15) = ShapeMask+  toCppEnum (240) = ShadowMask+  toCppEnum n = UnknownQFrameStyleMask n++instance HoppyP.Eq QFrameStyleMask where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QFrameStyleMask where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Widgets/QFrame.hs-boot view
@@ -0,0 +1,94 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QFrame (+  QFrameValue (..),+  QFrameConstPtr (..),+  QFramePtr (..),+  QFrameConst (..),+  castQFrameToConst,+  QFrame (..),+  castQFrameToNonconst,+  castQFrameToQWidget,+  castQFrameToQObject,+  QFrameShadow,+  QFrameShape,+  QFrameStyleMask,+  ) 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.Core.QObject as M94+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import qualified Prelude as HoppyP+++class QFrameValue a where+  withQFramePtr :: a -> (QFrameConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QFrameConstPtr a => QFrameValue a++class (M506.QWidgetConstPtr this) => QFrameConstPtr this where+  toQFrameConst :: this -> QFrameConst++class (QFrameConstPtr this, M506.QWidgetPtr this) => QFramePtr this where+  toQFrame :: this -> QFrame++data QFrameConst =+    QFrameConst (HoppyF.Ptr QFrameConst)+  | QFrameConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFrameConst)++castQFrameToConst :: QFrame -> QFrameConst++instance HoppyFHR.CppPtr QFrameConst+instance HoppyFHR.Deletable QFrameConst++instance QFrameConstPtr QFrameConst++instance M506.QWidgetConstPtr QFrameConst++instance M94.QObjectConstPtr QFrameConst++data QFrame =+    QFrame (HoppyF.Ptr QFrame)+  | QFrameGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QFrame)++castQFrameToNonconst :: QFrameConst -> QFrame++instance HoppyFHR.CppPtr QFrame+instance HoppyFHR.Deletable QFrame++instance QFrameConstPtr QFrame++instance QFramePtr QFrame++instance M506.QWidgetConstPtr QFrame++instance M506.QWidgetPtr QFrame++instance M94.QObjectConstPtr QFrame++instance M94.QObjectPtr QFrame+castQFrameToQWidget :: HoppyF.Ptr QFrameConst -> HoppyF.Ptr M506.QWidgetConst+castQFrameToQObject :: HoppyF.Ptr QFrameConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QFrame)) QFrame++data QFrameShadow+instance HoppyFHR.CppEnum (HoppyFC.CInt) QFrameShadow+instance HoppyP.Eq QFrameShadow+instance HoppyP.Ord QFrameShadow+instance HoppyP.Show QFrameShadow++data QFrameShape+instance HoppyFHR.CppEnum (HoppyFC.CInt) QFrameShape+instance HoppyP.Eq QFrameShape+instance HoppyP.Ord QFrameShape+instance HoppyP.Show QFrameShape++data QFrameStyleMask+instance HoppyFHR.CppEnum (HoppyFC.CInt) QFrameStyleMask+instance HoppyP.Eq QFrameStyleMask+instance HoppyP.Ord QFrameStyleMask+instance HoppyP.Show QFrameStyleMask
src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsEllipseItem.hs view
@@ -0,0 +1,207 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGraphicsEllipseItem (+  castQGraphicsEllipseItemToQAbstractGraphicsShapeItem,+  castQAbstractGraphicsShapeItemToQGraphicsEllipseItem,+  castQGraphicsEllipseItemToQGraphicsItem,+  castQGraphicsItemToQGraphicsEllipseItem,+  QGraphicsEllipseItemValue (..),+  QGraphicsEllipseItemConstPtr (..),+  QGraphicsEllipseItemPtr (..),+  QGraphicsEllipseItemConst (..),+  castQGraphicsEllipseItemToConst,+  QGraphicsEllipseItem (..),+  castQGraphicsEllipseItemToNonconst,+  new,+  newWithRaw,+  QGraphicsEllipseItemSuper (..),+  QGraphicsEllipseItemSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractGraphicsShapeItem as M356+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsItem as M404+import Prelude (($), (.), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QGraphicsEllipseItem_new" new' ::  HoppyP.IO (HoppyF.Ptr QGraphicsEllipseItem)+foreign import ccall "genpop__QGraphicsEllipseItem_newWithRaw" newWithRaw' ::  HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QGraphicsEllipseItem)+foreign import ccall "gencast__QGraphicsEllipseItem__QAbstractGraphicsShapeItem" castQGraphicsEllipseItemToQAbstractGraphicsShapeItem :: HoppyF.Ptr QGraphicsEllipseItemConst -> HoppyF.Ptr M356.QAbstractGraphicsShapeItemConst+foreign import ccall "gencast__QAbstractGraphicsShapeItem__QGraphicsEllipseItem" castQAbstractGraphicsShapeItemToQGraphicsEllipseItem :: HoppyF.Ptr M356.QAbstractGraphicsShapeItemConst -> HoppyF.Ptr QGraphicsEllipseItemConst+foreign import ccall "gencast__QGraphicsEllipseItem__QGraphicsItem" castQGraphicsEllipseItemToQGraphicsItem :: HoppyF.Ptr QGraphicsEllipseItemConst -> HoppyF.Ptr M404.QGraphicsItemConst+foreign import ccall "gencast__QGraphicsItem__QGraphicsEllipseItem" castQGraphicsItemToQGraphicsEllipseItem :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr QGraphicsEllipseItemConst+foreign import ccall "gendel__QGraphicsEllipseItem" delete'QGraphicsEllipseItem :: HoppyF.Ptr QGraphicsEllipseItemConst -> HoppyP.IO ()+foreign import ccall "&gendel__QGraphicsEllipseItem" deletePtr'QGraphicsEllipseItem :: HoppyF.FunPtr (HoppyF.Ptr QGraphicsEllipseItemConst -> HoppyP.IO ())++class QGraphicsEllipseItemValue a where+  withQGraphicsEllipseItemPtr :: a -> (QGraphicsEllipseItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGraphicsEllipseItemConstPtr a => QGraphicsEllipseItemValue a where+  withQGraphicsEllipseItemPtr = HoppyP.flip ($) . toQGraphicsEllipseItemConst++class (M356.QAbstractGraphicsShapeItemConstPtr this) => QGraphicsEllipseItemConstPtr this where+  toQGraphicsEllipseItemConst :: this -> QGraphicsEllipseItemConst++class (QGraphicsEllipseItemConstPtr this, M356.QAbstractGraphicsShapeItemPtr this) => QGraphicsEllipseItemPtr this where+  toQGraphicsEllipseItem :: this -> QGraphicsEllipseItem++data QGraphicsEllipseItemConst =+    QGraphicsEllipseItemConst (HoppyF.Ptr QGraphicsEllipseItemConst)+  | QGraphicsEllipseItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsEllipseItemConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsEllipseItemConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsEllipseItemConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsEllipseItemToConst :: QGraphicsEllipseItem -> QGraphicsEllipseItemConst+castQGraphicsEllipseItemToConst (QGraphicsEllipseItem ptr') = QGraphicsEllipseItemConst $ HoppyF.castPtr ptr'+castQGraphicsEllipseItemToConst (QGraphicsEllipseItemGc fptr' ptr') = QGraphicsEllipseItemConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsEllipseItemConst where+  nullptr = QGraphicsEllipseItemConst HoppyF.nullPtr+  +  withCppPtr (QGraphicsEllipseItemConst ptr') f' = f' ptr'+  withCppPtr (QGraphicsEllipseItemConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsEllipseItemConst ptr') = ptr'+  toPtr (QGraphicsEllipseItemConstGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsEllipseItemConst _) = HoppyP.return ()+  touchCppPtr (QGraphicsEllipseItemConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsEllipseItemConst where+  delete (QGraphicsEllipseItemConst ptr') = delete'QGraphicsEllipseItem ptr'+  delete (QGraphicsEllipseItemConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsEllipseItemConst", " object."]+  +  toGc this'@(QGraphicsEllipseItemConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsEllipseItemConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsEllipseItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsEllipseItemConstGc {}) = HoppyP.return this'++instance QGraphicsEllipseItemConstPtr QGraphicsEllipseItemConst where+  toQGraphicsEllipseItemConst = HoppyP.id++instance M356.QAbstractGraphicsShapeItemConstPtr QGraphicsEllipseItemConst where+  toQAbstractGraphicsShapeItemConst (QGraphicsEllipseItemConst ptr') = M356.QAbstractGraphicsShapeItemConst $ castQGraphicsEllipseItemToQAbstractGraphicsShapeItem ptr'+  toQAbstractGraphicsShapeItemConst (QGraphicsEllipseItemConstGc fptr' ptr') = M356.QAbstractGraphicsShapeItemConstGc fptr' $ castQGraphicsEllipseItemToQAbstractGraphicsShapeItem ptr'++instance M404.QGraphicsItemConstPtr QGraphicsEllipseItemConst where+  toQGraphicsItemConst (QGraphicsEllipseItemConst ptr') = M404.QGraphicsItemConst $ castQGraphicsEllipseItemToQGraphicsItem ptr'+  toQGraphicsItemConst (QGraphicsEllipseItemConstGc fptr' ptr') = M404.QGraphicsItemConstGc fptr' $ castQGraphicsEllipseItemToQGraphicsItem ptr'++data QGraphicsEllipseItem =+    QGraphicsEllipseItem (HoppyF.Ptr QGraphicsEllipseItem)+  | QGraphicsEllipseItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsEllipseItem)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsEllipseItem where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsEllipseItem where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsEllipseItemToNonconst :: QGraphicsEllipseItemConst -> QGraphicsEllipseItem+castQGraphicsEllipseItemToNonconst (QGraphicsEllipseItemConst ptr') = QGraphicsEllipseItem $ HoppyF.castPtr ptr'+castQGraphicsEllipseItemToNonconst (QGraphicsEllipseItemConstGc fptr' ptr') = QGraphicsEllipseItemGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsEllipseItem where+  nullptr = QGraphicsEllipseItem HoppyF.nullPtr+  +  withCppPtr (QGraphicsEllipseItem ptr') f' = f' ptr'+  withCppPtr (QGraphicsEllipseItemGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsEllipseItem ptr') = ptr'+  toPtr (QGraphicsEllipseItemGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsEllipseItem _) = HoppyP.return ()+  touchCppPtr (QGraphicsEllipseItemGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsEllipseItem where+  delete (QGraphicsEllipseItem ptr') = delete'QGraphicsEllipseItem $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QGraphicsEllipseItemConst)+  delete (QGraphicsEllipseItemGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsEllipseItem", " object."]+  +  toGc this'@(QGraphicsEllipseItem ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsEllipseItemGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsEllipseItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsEllipseItemGc {}) = HoppyP.return this'++instance QGraphicsEllipseItemConstPtr QGraphicsEllipseItem where+  toQGraphicsEllipseItemConst (QGraphicsEllipseItem ptr') = QGraphicsEllipseItemConst $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsEllipseItem -> HoppyF.Ptr QGraphicsEllipseItemConst) ptr'+  toQGraphicsEllipseItemConst (QGraphicsEllipseItemGc fptr' ptr') = QGraphicsEllipseItemConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsEllipseItem -> HoppyF.Ptr QGraphicsEllipseItemConst) ptr'++instance QGraphicsEllipseItemPtr QGraphicsEllipseItem where+  toQGraphicsEllipseItem = HoppyP.id++instance M356.QAbstractGraphicsShapeItemConstPtr QGraphicsEllipseItem where+  toQAbstractGraphicsShapeItemConst (QGraphicsEllipseItem ptr') = M356.QAbstractGraphicsShapeItemConst $ castQGraphicsEllipseItemToQAbstractGraphicsShapeItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsEllipseItem -> HoppyF.Ptr QGraphicsEllipseItemConst) ptr'+  toQAbstractGraphicsShapeItemConst (QGraphicsEllipseItemGc fptr' ptr') = M356.QAbstractGraphicsShapeItemConstGc fptr' $ castQGraphicsEllipseItemToQAbstractGraphicsShapeItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsEllipseItem -> HoppyF.Ptr QGraphicsEllipseItemConst) ptr'++instance M356.QAbstractGraphicsShapeItemPtr QGraphicsEllipseItem where+  toQAbstractGraphicsShapeItem (QGraphicsEllipseItem ptr') = M356.QAbstractGraphicsShapeItem $ (HoppyF.castPtr :: HoppyF.Ptr M356.QAbstractGraphicsShapeItemConst -> HoppyF.Ptr M356.QAbstractGraphicsShapeItem) $ castQGraphicsEllipseItemToQAbstractGraphicsShapeItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsEllipseItem -> HoppyF.Ptr QGraphicsEllipseItemConst) ptr'+  toQAbstractGraphicsShapeItem (QGraphicsEllipseItemGc fptr' ptr') = M356.QAbstractGraphicsShapeItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M356.QAbstractGraphicsShapeItemConst -> HoppyF.Ptr M356.QAbstractGraphicsShapeItem) $ castQGraphicsEllipseItemToQAbstractGraphicsShapeItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsEllipseItem -> HoppyF.Ptr QGraphicsEllipseItemConst) ptr'++instance M404.QGraphicsItemConstPtr QGraphicsEllipseItem where+  toQGraphicsItemConst (QGraphicsEllipseItem ptr') = M404.QGraphicsItemConst $ castQGraphicsEllipseItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsEllipseItem -> HoppyF.Ptr QGraphicsEllipseItemConst) ptr'+  toQGraphicsItemConst (QGraphicsEllipseItemGc fptr' ptr') = M404.QGraphicsItemConstGc fptr' $ castQGraphicsEllipseItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsEllipseItem -> HoppyF.Ptr QGraphicsEllipseItemConst) ptr'++instance M404.QGraphicsItemPtr QGraphicsEllipseItem where+  toQGraphicsItem (QGraphicsEllipseItem ptr') = M404.QGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr M404.QGraphicsItem) $ castQGraphicsEllipseItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsEllipseItem -> HoppyF.Ptr QGraphicsEllipseItemConst) ptr'+  toQGraphicsItem (QGraphicsEllipseItemGc fptr' ptr') = M404.QGraphicsItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr M404.QGraphicsItem) $ castQGraphicsEllipseItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsEllipseItem -> HoppyF.Ptr QGraphicsEllipseItemConst) ptr'++new :: (HoppyP.IO QGraphicsEllipseItem)+new =+  HoppyP.fmap QGraphicsEllipseItem+  (new')++newWithRaw :: (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO QGraphicsEllipseItem)+newWithRaw arg'1 arg'2 arg'3 arg'4 =+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QGraphicsEllipseItem+  (newWithRaw' arg'1' arg'2' arg'3' arg'4')++class QGraphicsEllipseItemSuper a where+  downToQGraphicsEllipseItem :: a -> QGraphicsEllipseItem++instance QGraphicsEllipseItemSuper M356.QAbstractGraphicsShapeItem where+  downToQGraphicsEllipseItem = castQGraphicsEllipseItemToNonconst . cast' . M356.castQAbstractGraphicsShapeItemToConst+    where+      cast' (M356.QAbstractGraphicsShapeItemConst ptr') = QGraphicsEllipseItemConst $ castQAbstractGraphicsShapeItemToQGraphicsEllipseItem ptr'+      cast' (M356.QAbstractGraphicsShapeItemConstGc fptr' ptr') = QGraphicsEllipseItemConstGc fptr' $ castQAbstractGraphicsShapeItemToQGraphicsEllipseItem ptr'+instance QGraphicsEllipseItemSuper M404.QGraphicsItem where+  downToQGraphicsEllipseItem = castQGraphicsEllipseItemToNonconst . cast' . M404.castQGraphicsItemToConst+    where+      cast' (M404.QGraphicsItemConst ptr') = QGraphicsEllipseItemConst $ castQGraphicsItemToQGraphicsEllipseItem ptr'+      cast' (M404.QGraphicsItemConstGc fptr' ptr') = QGraphicsEllipseItemConstGc fptr' $ castQGraphicsItemToQGraphicsEllipseItem ptr'++class QGraphicsEllipseItemSuperConst a where+  downToQGraphicsEllipseItemConst :: a -> QGraphicsEllipseItemConst++instance QGraphicsEllipseItemSuperConst M356.QAbstractGraphicsShapeItemConst where+  downToQGraphicsEllipseItemConst = cast'+    where+      cast' (M356.QAbstractGraphicsShapeItemConst ptr') = QGraphicsEllipseItemConst $ castQAbstractGraphicsShapeItemToQGraphicsEllipseItem ptr'+      cast' (M356.QAbstractGraphicsShapeItemConstGc fptr' ptr') = QGraphicsEllipseItemConstGc fptr' $ castQAbstractGraphicsShapeItemToQGraphicsEllipseItem ptr'+instance QGraphicsEllipseItemSuperConst M404.QGraphicsItemConst where+  downToQGraphicsEllipseItemConst = cast'+    where+      cast' (M404.QGraphicsItemConst ptr') = QGraphicsEllipseItemConst $ castQGraphicsItemToQGraphicsEllipseItem ptr'+      cast' (M404.QGraphicsItemConstGc fptr' ptr') = QGraphicsEllipseItemConstGc fptr' $ castQGraphicsItemToQGraphicsEllipseItem ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QGraphicsEllipseItem)) QGraphicsEllipseItem where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsEllipseItem)) QGraphicsEllipseItem where+  decode = HoppyP.fmap QGraphicsEllipseItem . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsEllipseItem.hs-boot view
@@ -0,0 +1,72 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGraphicsEllipseItem (+  QGraphicsEllipseItemValue (..),+  QGraphicsEllipseItemConstPtr (..),+  QGraphicsEllipseItemPtr (..),+  QGraphicsEllipseItemConst (..),+  castQGraphicsEllipseItemToConst,+  QGraphicsEllipseItem (..),+  castQGraphicsEllipseItemToNonconst,+  castQGraphicsEllipseItemToQAbstractGraphicsShapeItem,+  castQGraphicsEllipseItemToQGraphicsItem,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractGraphicsShapeItem as M356+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsItem as M404+import qualified Prelude as HoppyP+++class QGraphicsEllipseItemValue a where+  withQGraphicsEllipseItemPtr :: a -> (QGraphicsEllipseItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGraphicsEllipseItemConstPtr a => QGraphicsEllipseItemValue a++class (M356.QAbstractGraphicsShapeItemConstPtr this) => QGraphicsEllipseItemConstPtr this where+  toQGraphicsEllipseItemConst :: this -> QGraphicsEllipseItemConst++class (QGraphicsEllipseItemConstPtr this, M356.QAbstractGraphicsShapeItemPtr this) => QGraphicsEllipseItemPtr this where+  toQGraphicsEllipseItem :: this -> QGraphicsEllipseItem++data QGraphicsEllipseItemConst =+    QGraphicsEllipseItemConst (HoppyF.Ptr QGraphicsEllipseItemConst)+  | QGraphicsEllipseItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsEllipseItemConst)++castQGraphicsEllipseItemToConst :: QGraphicsEllipseItem -> QGraphicsEllipseItemConst++instance HoppyFHR.CppPtr QGraphicsEllipseItemConst+instance HoppyFHR.Deletable QGraphicsEllipseItemConst++instance QGraphicsEllipseItemConstPtr QGraphicsEllipseItemConst++instance M356.QAbstractGraphicsShapeItemConstPtr QGraphicsEllipseItemConst++instance M404.QGraphicsItemConstPtr QGraphicsEllipseItemConst++data QGraphicsEllipseItem =+    QGraphicsEllipseItem (HoppyF.Ptr QGraphicsEllipseItem)+  | QGraphicsEllipseItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsEllipseItem)++castQGraphicsEllipseItemToNonconst :: QGraphicsEllipseItemConst -> QGraphicsEllipseItem++instance HoppyFHR.CppPtr QGraphicsEllipseItem+instance HoppyFHR.Deletable QGraphicsEllipseItem++instance QGraphicsEllipseItemConstPtr QGraphicsEllipseItem++instance QGraphicsEllipseItemPtr QGraphicsEllipseItem++instance M356.QAbstractGraphicsShapeItemConstPtr QGraphicsEllipseItem++instance M356.QAbstractGraphicsShapeItemPtr QGraphicsEllipseItem++instance M404.QGraphicsItemConstPtr QGraphicsEllipseItem++instance M404.QGraphicsItemPtr QGraphicsEllipseItem+castQGraphicsEllipseItemToQAbstractGraphicsShapeItem :: HoppyF.Ptr QGraphicsEllipseItemConst -> HoppyF.Ptr M356.QAbstractGraphicsShapeItemConst+castQGraphicsEllipseItemToQGraphicsItem :: HoppyF.Ptr QGraphicsEllipseItemConst -> HoppyF.Ptr M404.QGraphicsItemConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsEllipseItem)) QGraphicsEllipseItem
src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsItem.hs view
@@ -0,0 +1,1455 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGraphicsItem (+  QGraphicsItemValue (..),+  QGraphicsItemConstPtr (..),+  acceptDrops,+  acceptHoverEvents,+  acceptTouchEvents,+  boundingRect,+  boundingRegionGranularity,+  childrenBoundingRect,+  clipPath,+  collidesWithItem,+  collidesWithPath,+  commonAncestorItem,+  contains,+  cursor,+  effectiveOpacity,+  filtersChildEvents,+  focusItem,+  focusProxy,+  hasCursor,+  hasFocus,+  isActive,+  isAncestorOf,+  isBlockedByModalPanel,+  isBlockedByModalPanelAll,+  isClipped,+  isEnabled,+  isObscured,+  isObscuredRaw,+  isObscuredRectF,+  isObscuredBy,+  isPanel,+  isSelected,+  isUnderMouse,+  isVisible,+  isVisibleTo,+  isWidget,+  isWindow,+  opacity,+  opaqueArea,+  panel,+  parentItem,+  pos,+  rotation,+  scale,+  scene,+  sceneBoundingRect,+  scenePos,+  shape,+  toolTip,+  topLevelItem,+  transformOriginPoint,+  itemType,+  x,+  y,+  zValue,+  QGraphicsItemPtr (..),+  advance,+  clearFocus,+  setCursor,+  ensureVisible,+  ensureVisibleRectFAll,+  ensureVisibleRaw,+  ensureVisibleRawAll,+  grabKeyboard,+  grabMouse,+  hide,+  installSceneEventFilter,+  moveBy,+  removeSceneEventFilter,+  resetTransform,+  scroll,+  scrollAll,+  setAcceptDrops,+  setAcceptHoverEvents,+  setAcceptTouchEvents,+  setActive,+  setBoundingRegionGranularity,+  setEnabled,+  setFiltersChildEvents,+  setFocus,+  setFocusProxy,+  setOpacity,+  setParentItem,+  setPosPointF,+  setPosRaw,+  setRotation,+  setScale,+  setSelected,+  setToolTip,+  setTransformOriginPointF,+  setTransformOriginPointRaw,+  setVisible,+  setX,+  setY,+  setZValue,+  show,+  stackBefore,+  ungrabKeyboard,+  ungrabMouse,+  unsetCursor,+  update,+  updateRectF,+  updateRaw,+  QGraphicsItemConst (..),+  castQGraphicsItemToConst,+  QGraphicsItem (..),+  castQGraphicsItemToNonconst,+  QGraphicsItemSuper (..),+  QGraphicsItemSuperConst (..),+  QGraphicsItemCacheMode (..),+  QGraphicsItemGraphicsItemChange (..),+  QGraphicsItemGraphicsItemFlag (..),+  QGraphicsItemGraphicsItemFlags,+  IsQGraphicsItemGraphicsItemFlags (..),+  itemAcceptsInputMethod,+  itemClipsChildrenToShape,+  itemClipsToShape,+  itemContainsChildrenInShape,+  itemDoesntPropagateOpacityToChildren,+  itemHasNoContents,+  itemIgnoresParentOpacity,+  itemIgnoresTransformations,+  itemIsFocusable,+  itemIsMovable,+  itemIsPanel,+  itemIsSelectable,+  itemNegativeZStacksBehindParent,+  itemSendsGeometryChanges,+  itemSendsScenePositionChanges,+  itemStacksBehindParent,+  itemUsesExtendedStyleOption,+  QGraphicsItemPanelModality (..),+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Core.HPointF as HPointF+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QPointF as M116+import qualified Graphics.UI.Qtah.Generated.Core.QRectF as M124+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QCursor as M256+import qualified Graphics.UI.Qtah.Generated.Gui.QPainterPath as M312+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsScene as M412+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QGraphicsItem_acceptDrops" acceptDrops' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_acceptHoverEvents" acceptHoverEvents' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_acceptTouchEvents" acceptTouchEvents' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_advance" advance' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_boundingRect" boundingRect' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr M124.QRectFConst)+foreign import ccall "genpop__QGraphicsItem_boundingRegionGranularity" boundingRegionGranularity' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QGraphicsItem_childrenBoundingRect" childrenBoundingRect' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr M124.QRectFConst)+foreign import ccall "genpop__QGraphicsItem_clearFocus" clearFocus' ::  HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_clipPath" clipPath' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr M312.QPainterPathConst)+foreign import ccall "genpop__QGraphicsItem_collidesWithItem" collidesWithItem' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_collidesWithPath" collidesWithPath' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyF.Ptr M312.QPainterPathConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_commonAncestorItem" commonAncestorItem' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr QGraphicsItem)+foreign import ccall "genpop__QGraphicsItem_contains" contains' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_cursor" cursor' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr M256.QCursorConst)+foreign import ccall "genpop__QGraphicsItem_setCursor" setCursor' ::  HoppyF.Ptr QGraphicsItem -> HoppyF.Ptr M256.QCursorConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_effectiveOpacity" effectiveOpacity' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QGraphicsItem_ensureVisible" ensureVisible' ::  HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_ensureVisibleRectFAll" ensureVisibleRectFAll' ::  HoppyF.Ptr QGraphicsItem -> HoppyF.Ptr M124.QRectFConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_ensureVisibleRaw" ensureVisibleRaw' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_ensureVisibleRawAll" ensureVisibleRawAll' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_filtersChildEvents" filtersChildEvents' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_focusItem" focusItem' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr QGraphicsItem)+foreign import ccall "genpop__QGraphicsItem_focusProxy" focusProxy' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr QGraphicsItem)+foreign import ccall "genpop__QGraphicsItem_grabKeyboard" grabKeyboard' ::  HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_grabMouse" grabMouse' ::  HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_hasCursor" hasCursor' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_hasFocus" hasFocus' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_hide" hide' ::  HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_installSceneEventFilter" installSceneEventFilter' ::  HoppyF.Ptr QGraphicsItem -> HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_isActive" isActive' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isAncestorOf" isAncestorOf' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isBlockedByModalPanel" isBlockedByModalPanel' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isBlockedByModalPanelAll" isBlockedByModalPanelAll' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyF.Ptr (HoppyF.Ptr QGraphicsItem) -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isClipped" isClipped' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isEnabled" isEnabled' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isObscured" isObscured' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isObscuredRaw" isObscuredRaw' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isObscuredRectF" isObscuredRectF' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyF.Ptr M124.QRectFConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isObscuredBy" isObscuredBy' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isPanel" isPanel' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isSelected" isSelected' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isUnderMouse" isUnderMouse' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isVisible" isVisible' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isVisibleTo" isVisibleTo' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isWidget" isWidget' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_isWindow" isWindow' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsItem_moveBy" moveBy' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_opacity" opacity' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QGraphicsItem_opaqueArea" opaqueArea' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr M312.QPainterPathConst)+foreign import ccall "genpop__QGraphicsItem_panel" panel' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr QGraphicsItem)+foreign import ccall "genpop__QGraphicsItem_parentItem" parentItem' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr QGraphicsItem)+foreign import ccall "genpop__QGraphicsItem_pos" pos' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QGraphicsItem_removeSceneEventFilter" removeSceneEventFilter' ::  HoppyF.Ptr QGraphicsItem -> HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_resetTransform" resetTransform' ::  HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_rotation" rotation' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QGraphicsItem_scale" scale' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QGraphicsItem_scene" scene' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr M412.QGraphicsScene)+foreign import ccall "genpop__QGraphicsItem_sceneBoundingRect" sceneBoundingRect' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr M124.QRectFConst)+foreign import ccall "genpop__QGraphicsItem_scenePos" scenePos' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QGraphicsItem_scroll" scroll' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_scrollAll" scrollAll' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyF.Ptr M124.QRectFConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setAcceptDrops" setAcceptDrops' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setAcceptHoverEvents" setAcceptHoverEvents' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setAcceptTouchEvents" setAcceptTouchEvents' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setActive" setActive' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setBoundingRegionGranularity" setBoundingRegionGranularity' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setEnabled" setEnabled' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setFiltersChildEvents" setFiltersChildEvents' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setFocus" setFocus' ::  HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setFocusProxy" setFocusProxy' ::  HoppyF.Ptr QGraphicsItem -> HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setOpacity" setOpacity' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setParentItem" setParentItem' ::  HoppyF.Ptr QGraphicsItem -> HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setPosPointF" setPosPointF' ::  HoppyF.Ptr QGraphicsItem -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setPosRaw" setPosRaw' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setRotation" setRotation' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setScale" setScale' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setSelected" setSelected' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setToolTip" setToolTip' ::  HoppyF.Ptr QGraphicsItem -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setTransformOriginPointF" setTransformOriginPointF' ::  HoppyF.Ptr QGraphicsItem -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setTransformOriginPointRaw" setTransformOriginPointRaw' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setVisible" setVisible' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setX" setX' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setY" setY' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_setZValue" setZValue' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_shape" shape' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr M312.QPainterPathConst)+foreign import ccall "genpop__QGraphicsItem_show" show' ::  HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_stackBefore" stackBefore' ::  HoppyF.Ptr QGraphicsItem -> HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_toolTip" toolTip' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QGraphicsItem_topLevelItem" topLevelItem' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr QGraphicsItem)+foreign import ccall "genpop__QGraphicsItem_transformOriginPoint" transformOriginPoint' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QGraphicsItem_itemType" itemType' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsItem_ungrabKeyboard" ungrabKeyboard' ::  HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_ungrabMouse" ungrabMouse' ::  HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_unsetCursor" unsetCursor' ::  HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_update" update' ::  HoppyF.Ptr QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_updateRectF" updateRectF' ::  HoppyF.Ptr QGraphicsItem -> HoppyF.Ptr M124.QRectFConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_updateRaw" updateRaw' ::  HoppyF.Ptr QGraphicsItem -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsItem_x" x' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QGraphicsItem_y" y' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QGraphicsItem_zValue" zValue' ::  HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "gendel__QGraphicsItem" delete'QGraphicsItem :: HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO ()+foreign import ccall "&gendel__QGraphicsItem" deletePtr'QGraphicsItem :: HoppyF.FunPtr (HoppyF.Ptr QGraphicsItemConst -> HoppyP.IO ())++class QGraphicsItemValue a where+  withQGraphicsItemPtr :: a -> (QGraphicsItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGraphicsItemConstPtr a => QGraphicsItemValue a where+  withQGraphicsItemPtr = HoppyP.flip ($) . toQGraphicsItemConst++class (HoppyFHR.CppPtr this) => QGraphicsItemConstPtr this where+  toQGraphicsItemConst :: this -> QGraphicsItemConst++acceptDrops :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+acceptDrops arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (acceptDrops' arg'1')++acceptHoverEvents :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+acceptHoverEvents arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (acceptHoverEvents' arg'1')++acceptTouchEvents :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+acceptTouchEvents arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (acceptTouchEvents' arg'1')++boundingRect :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M124.QRectF)+boundingRect arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M124.QRectFConst) =<<+  (boundingRect' arg'1')++boundingRegionGranularity :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+boundingRegionGranularity arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (boundingRegionGranularity' arg'1')++childrenBoundingRect :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M124.QRectF)+childrenBoundingRect arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M124.QRectFConst) =<<+  (childrenBoundingRect' arg'1')++clipPath :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M312.QPainterPath)+clipPath arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M312.QPainterPathConst) =<<+  (clipPath' arg'1')++collidesWithItem :: (QGraphicsItemValue this, QGraphicsItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+collidesWithItem arg'1 arg'2 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQGraphicsItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (collidesWithItem' arg'1' arg'2')++collidesWithPath :: (QGraphicsItemValue this, M312.QPainterPathValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+collidesWithPath arg'1 arg'2 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M312.withQPainterPathPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (collidesWithPath' arg'1' arg'2')++commonAncestorItem :: (QGraphicsItemValue this, QGraphicsItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QGraphicsItem)+commonAncestorItem arg'1 arg'2 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQGraphicsItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QGraphicsItem+  (commonAncestorItem' arg'1' arg'2')++contains :: (QGraphicsItemValue this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+contains arg'1 arg'2 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (contains' arg'1' arg'2')++cursor :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M256.QCursor)+cursor arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M256.QCursorConst) =<<+  (cursor' arg'1')++effectiveOpacity :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+effectiveOpacity arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (effectiveOpacity' arg'1')++filtersChildEvents :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+filtersChildEvents arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (filtersChildEvents' arg'1')++focusItem :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO QGraphicsItem)+focusItem arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QGraphicsItem+  (focusItem' arg'1')++focusProxy :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO QGraphicsItem)+focusProxy arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QGraphicsItem+  (focusProxy' arg'1')++hasCursor :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasCursor arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasCursor' arg'1')++hasFocus :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasFocus arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasFocus' arg'1')++isActive :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isActive arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isActive' arg'1')++isAncestorOf :: (QGraphicsItemValue this, QGraphicsItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+isAncestorOf arg'1 arg'2 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQGraphicsItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isAncestorOf' arg'1' arg'2')++isBlockedByModalPanel :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isBlockedByModalPanel arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isBlockedByModalPanel' arg'1')++isBlockedByModalPanelAll :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyF.Ptr (HoppyF.Ptr QGraphicsItem)) -> (HoppyP.IO HoppyP.Bool)+isBlockedByModalPanelAll arg'1 arg'2 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  let arg'2' = arg'2 in+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isBlockedByModalPanelAll' arg'1' arg'2')++isClipped :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isClipped arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isClipped' arg'1')++isEnabled :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEnabled arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEnabled' arg'1')++isObscured :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isObscured arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isObscured' arg'1')++isObscuredRaw :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO HoppyP.Bool)+isObscuredRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isObscuredRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++isObscuredRectF :: (QGraphicsItemValue this, M124.QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+isObscuredRectF arg'1 arg'2 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M124.withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isObscuredRectF' arg'1' arg'2')++isObscuredBy :: (QGraphicsItemValue this, QGraphicsItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+isObscuredBy arg'1 arg'2 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQGraphicsItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isObscuredBy' arg'1' arg'2')++isPanel :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isPanel arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isPanel' arg'1')++isSelected :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isSelected arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSelected' arg'1')++isUnderMouse :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isUnderMouse arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isUnderMouse' arg'1')++isVisible :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isVisible arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isVisible' arg'1')++isVisibleTo :: (QGraphicsItemValue this, QGraphicsItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+isVisibleTo arg'1 arg'2 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  withQGraphicsItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isVisibleTo' arg'1' arg'2')++isWidget :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isWidget arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isWidget' arg'1')++isWindow :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isWindow arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isWindow' arg'1')++opacity :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+opacity arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (opacity' arg'1')++opaqueArea :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M312.QPainterPath)+opaqueArea arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M312.QPainterPathConst) =<<+  (opaqueArea' arg'1')++panel :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO QGraphicsItem)+panel arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QGraphicsItem+  (panel' arg'1')++parentItem :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO QGraphicsItem)+parentItem arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QGraphicsItem+  (parentItem' arg'1')++pos :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+pos arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (pos' arg'1')++rotation :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+rotation arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (rotation' arg'1')++scale :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+scale arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (scale' arg'1')++scene :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M412.QGraphicsScene)+scene arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M412.QGraphicsScene+  (scene' arg'1')++sceneBoundingRect :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M124.QRectF)+sceneBoundingRect arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M124.QRectFConst) =<<+  (sceneBoundingRect' arg'1')++scenePos :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+scenePos arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (scenePos' arg'1')++shape :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M312.QPainterPath)+shape arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M312.QPainterPathConst) =<<+  (shape' arg'1')++toolTip :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+toolTip arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (toolTip' arg'1')++topLevelItem :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO QGraphicsItem)+topLevelItem arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QGraphicsItem+  (topLevelItem' arg'1')++transformOriginPoint :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+transformOriginPoint arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (transformOriginPoint' arg'1')++itemType :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+itemType arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (itemType' arg'1')++x :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+x arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (x' arg'1')++y :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+y arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (y' arg'1')++zValue :: (QGraphicsItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+zValue arg'1 =+  withQGraphicsItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (zValue' arg'1')++class (QGraphicsItemConstPtr this) => QGraphicsItemPtr this where+  toQGraphicsItem :: this -> QGraphicsItem++advance :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+advance arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (advance' arg'1' arg'2')++clearFocus :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clearFocus arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (clearFocus' arg'1')++setCursor :: (QGraphicsItemPtr this, M256.QCursorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setCursor arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  M256.withQCursorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setCursor' arg'1' arg'2')++ensureVisible :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+ensureVisible arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (ensureVisible' arg'1')++ensureVisibleRectFAll :: (QGraphicsItemPtr this, M124.QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+ensureVisibleRectFAll arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  M124.withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (ensureVisibleRectFAll' arg'1' arg'2' arg'3' arg'4')++ensureVisibleRaw :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+ensureVisibleRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (ensureVisibleRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++ensureVisibleRawAll :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+ensureVisibleRawAll arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'7 >>= \arg'7' ->+  (ensureVisibleRawAll' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7')++grabKeyboard :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+grabKeyboard arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (grabKeyboard' arg'1')++grabMouse :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+grabMouse arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (grabMouse' arg'1')++hide :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+hide arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (hide' arg'1')++installSceneEventFilter :: (QGraphicsItemPtr this, QGraphicsItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+installSceneEventFilter arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQGraphicsItem arg'2) $ \arg'2' ->+  (installSceneEventFilter' arg'1' arg'2')++moveBy :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+moveBy arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (moveBy' arg'1' arg'2' arg'3')++removeSceneEventFilter :: (QGraphicsItemPtr this, QGraphicsItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+removeSceneEventFilter arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQGraphicsItem arg'2) $ \arg'2' ->+  (removeSceneEventFilter' arg'1' arg'2')++resetTransform :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+resetTransform arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (resetTransform' arg'1')++scroll :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+scroll arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (scroll' arg'1' arg'2' arg'3')++scrollAll :: (QGraphicsItemPtr this, M124.QRectFValue arg'4) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (arg'4) -> (HoppyP.IO ())+scrollAll arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  M124.withQRectFPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (scrollAll' arg'1' arg'2' arg'3' arg'4')++setAcceptDrops :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setAcceptDrops arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAcceptDrops' arg'1' arg'2')++setAcceptHoverEvents :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setAcceptHoverEvents arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAcceptHoverEvents' arg'1' arg'2')++setAcceptTouchEvents :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setAcceptTouchEvents arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAcceptTouchEvents' arg'1' arg'2')++setActive :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setActive arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setActive' arg'1' arg'2')++setBoundingRegionGranularity :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setBoundingRegionGranularity arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setBoundingRegionGranularity' arg'1' arg'2')++setEnabled :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setEnabled' arg'1' arg'2')++setFiltersChildEvents :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setFiltersChildEvents arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setFiltersChildEvents' arg'1' arg'2')++setFocus :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+setFocus arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (setFocus' arg'1')++setFocusProxy :: (QGraphicsItemPtr this, QGraphicsItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFocusProxy arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQGraphicsItem arg'2) $ \arg'2' ->+  (setFocusProxy' arg'1' arg'2')++setOpacity :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setOpacity arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setOpacity' arg'1' arg'2')++setParentItem :: (QGraphicsItemPtr this, QGraphicsItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setParentItem arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQGraphicsItem arg'2) $ \arg'2' ->+  (setParentItem' arg'1' arg'2')++setPosPointF :: (QGraphicsItemPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setPosPointF arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setPosPointF' arg'1' arg'2')++setPosRaw :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setPosRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (setPosRaw' arg'1' arg'2' arg'3')++setRotation :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setRotation arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setRotation' arg'1' arg'2')++setScale :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setScale arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setScale' arg'1' arg'2')++setSelected :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setSelected arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setSelected' arg'1' arg'2')++setToolTip :: (QGraphicsItemPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setToolTip arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setToolTip' arg'1' arg'2')++setTransformOriginPointF :: (QGraphicsItemPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTransformOriginPointF arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setTransformOriginPointF' arg'1' arg'2')++setTransformOriginPointRaw :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setTransformOriginPointRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (setTransformOriginPointRaw' arg'1' arg'2' arg'3')++setVisible :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setVisible arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setVisible' arg'1' arg'2')++setX :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setX arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setX' arg'1' arg'2')++setY :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setY arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setY' arg'1' arg'2')++setZValue :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setZValue arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setZValue' arg'1' arg'2')++show :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+show arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (show' arg'1')++stackBefore :: (QGraphicsItemPtr this, QGraphicsItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+stackBefore arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  withQGraphicsItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (stackBefore' arg'1' arg'2')++ungrabKeyboard :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+ungrabKeyboard arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (ungrabKeyboard' arg'1')++ungrabMouse :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+ungrabMouse arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (ungrabMouse' arg'1')++unsetCursor :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+unsetCursor arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (unsetCursor' arg'1')++update :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+update arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (update' arg'1')++updateRectF :: (QGraphicsItemPtr this, M124.QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+updateRectF arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  M124.withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (updateRectF' arg'1' arg'2')++updateRaw :: (QGraphicsItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+updateRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQGraphicsItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (updateRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++data QGraphicsItemConst =+    QGraphicsItemConst (HoppyF.Ptr QGraphicsItemConst)+  | QGraphicsItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsItemConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsItemConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsItemConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsItemToConst :: QGraphicsItem -> QGraphicsItemConst+castQGraphicsItemToConst (QGraphicsItem ptr') = QGraphicsItemConst $ HoppyF.castPtr ptr'+castQGraphicsItemToConst (QGraphicsItemGc fptr' ptr') = QGraphicsItemConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsItemConst where+  nullptr = QGraphicsItemConst HoppyF.nullPtr+  +  withCppPtr (QGraphicsItemConst ptr') f' = f' ptr'+  withCppPtr (QGraphicsItemConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsItemConst ptr') = ptr'+  toPtr (QGraphicsItemConstGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsItemConst _) = HoppyP.return ()+  touchCppPtr (QGraphicsItemConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsItemConst where+  delete (QGraphicsItemConst ptr') = delete'QGraphicsItem ptr'+  delete (QGraphicsItemConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsItemConst", " object."]+  +  toGc this'@(QGraphicsItemConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsItemConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsItemConstGc {}) = HoppyP.return this'++instance QGraphicsItemConstPtr QGraphicsItemConst where+  toQGraphicsItemConst = HoppyP.id++data QGraphicsItem =+    QGraphicsItem (HoppyF.Ptr QGraphicsItem)+  | QGraphicsItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsItem)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsItem where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsItem where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsItemToNonconst :: QGraphicsItemConst -> QGraphicsItem+castQGraphicsItemToNonconst (QGraphicsItemConst ptr') = QGraphicsItem $ HoppyF.castPtr ptr'+castQGraphicsItemToNonconst (QGraphicsItemConstGc fptr' ptr') = QGraphicsItemGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsItem where+  nullptr = QGraphicsItem HoppyF.nullPtr+  +  withCppPtr (QGraphicsItem ptr') f' = f' ptr'+  withCppPtr (QGraphicsItemGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsItem ptr') = ptr'+  toPtr (QGraphicsItemGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsItem _) = HoppyP.return ()+  touchCppPtr (QGraphicsItemGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsItem where+  delete (QGraphicsItem ptr') = delete'QGraphicsItem $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QGraphicsItemConst)+  delete (QGraphicsItemGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsItem", " object."]+  +  toGc this'@(QGraphicsItem ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsItemGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsItemGc {}) = HoppyP.return this'++instance QGraphicsItemConstPtr QGraphicsItem where+  toQGraphicsItemConst (QGraphicsItem ptr') = QGraphicsItemConst $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsItem -> HoppyF.Ptr QGraphicsItemConst) ptr'+  toQGraphicsItemConst (QGraphicsItemGc fptr' ptr') = QGraphicsItemConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsItem -> HoppyF.Ptr QGraphicsItemConst) ptr'++instance QGraphicsItemPtr QGraphicsItem where+  toQGraphicsItem = HoppyP.id++class QGraphicsItemSuper a where+  downToQGraphicsItem :: a -> QGraphicsItem+++class QGraphicsItemSuperConst a where+  downToQGraphicsItemConst :: a -> QGraphicsItemConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QGraphicsItem)) QGraphicsItem where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsItem)) QGraphicsItem where+  decode = HoppyP.fmap QGraphicsItem . HoppyF.peek++data QGraphicsItemCacheMode =+  NoCache+  | ItemCoordinateCache+  | DeviceCoordinateCache+  | UnknownQGraphicsItemCacheMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsItemCacheMode where+  fromCppEnum NoCache = 0+  fromCppEnum ItemCoordinateCache = 1+  fromCppEnum DeviceCoordinateCache = 2+  fromCppEnum (UnknownQGraphicsItemCacheMode n) = n+  +  toCppEnum (0) = NoCache+  toCppEnum (1) = ItemCoordinateCache+  toCppEnum (2) = DeviceCoordinateCache+  toCppEnum n = UnknownQGraphicsItemCacheMode n++instance HoppyP.Eq QGraphicsItemCacheMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGraphicsItemCacheMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QGraphicsItemGraphicsItemChange =+  ItemEnabledChange+  | ItemEnabledHasChanged+  | ItemMatrixChange+  | ItemPositionChange+  | ItemPositionHasChanged+  | ItemTransformChange+  | ItemTransformHasChanged+  | ItemRotationChange+  | ItemRotationHasChanged+  | ItemScaleChange+  | ItemScaleHasChanged+  | ItemTransformOriginPointChange+  | ItemTransformOriginPointHasChanged+  | ItemSelectedChange+  | ItemSelectedHasChanged+  | ItemVisibleChange+  | ItemVisibleHasChanged+  | ItemParentChange+  | ItemParentHasChanged+  | ItemChildAddedChange+  | ItemChildRemovedChange+  | ItemSceneChange+  | ItemSceneHasChanged+  | ItemCursorChange+  | ItemCursorHasChanged+  | ItemToolTipChange+  | ItemToolTipHasChanged+  | ItemFlagsChange+  | ItemFlagsHaveChanged+  | ItemZValueChange+  | ItemZValueHasChanged+  | ItemOpacityChange+  | ItemOpacityHasChanged+  | ItemScenePositionHasChanged+  | UnknownQGraphicsItemGraphicsItemChange (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsItemGraphicsItemChange where+  fromCppEnum ItemEnabledChange = 3+  fromCppEnum ItemEnabledHasChanged = 13+  fromCppEnum ItemMatrixChange = 1+  fromCppEnum ItemPositionChange = 0+  fromCppEnum ItemPositionHasChanged = 9+  fromCppEnum ItemTransformChange = 8+  fromCppEnum ItemTransformHasChanged = 10+  fromCppEnum ItemRotationChange = 28+  fromCppEnum ItemRotationHasChanged = 29+  fromCppEnum ItemScaleChange = 30+  fromCppEnum ItemScaleHasChanged = 31+  fromCppEnum ItemTransformOriginPointChange = 32+  fromCppEnum ItemTransformOriginPointHasChanged = 33+  fromCppEnum ItemSelectedChange = 4+  fromCppEnum ItemSelectedHasChanged = 14+  fromCppEnum ItemVisibleChange = 2+  fromCppEnum ItemVisibleHasChanged = 12+  fromCppEnum ItemParentChange = 5+  fromCppEnum ItemParentHasChanged = 15+  fromCppEnum ItemChildAddedChange = 6+  fromCppEnum ItemChildRemovedChange = 7+  fromCppEnum ItemSceneChange = 11+  fromCppEnum ItemSceneHasChanged = 16+  fromCppEnum ItemCursorChange = 17+  fromCppEnum ItemCursorHasChanged = 18+  fromCppEnum ItemToolTipChange = 19+  fromCppEnum ItemToolTipHasChanged = 20+  fromCppEnum ItemFlagsChange = 21+  fromCppEnum ItemFlagsHaveChanged = 22+  fromCppEnum ItemZValueChange = 23+  fromCppEnum ItemZValueHasChanged = 24+  fromCppEnum ItemOpacityChange = 25+  fromCppEnum ItemOpacityHasChanged = 26+  fromCppEnum ItemScenePositionHasChanged = 27+  fromCppEnum (UnknownQGraphicsItemGraphicsItemChange n) = n+  +  toCppEnum (0) = ItemPositionChange+  toCppEnum (1) = ItemMatrixChange+  toCppEnum (2) = ItemVisibleChange+  toCppEnum (3) = ItemEnabledChange+  toCppEnum (4) = ItemSelectedChange+  toCppEnum (5) = ItemParentChange+  toCppEnum (6) = ItemChildAddedChange+  toCppEnum (7) = ItemChildRemovedChange+  toCppEnum (8) = ItemTransformChange+  toCppEnum (9) = ItemPositionHasChanged+  toCppEnum (10) = ItemTransformHasChanged+  toCppEnum (11) = ItemSceneChange+  toCppEnum (12) = ItemVisibleHasChanged+  toCppEnum (13) = ItemEnabledHasChanged+  toCppEnum (14) = ItemSelectedHasChanged+  toCppEnum (15) = ItemParentHasChanged+  toCppEnum (16) = ItemSceneHasChanged+  toCppEnum (17) = ItemCursorChange+  toCppEnum (18) = ItemCursorHasChanged+  toCppEnum (19) = ItemToolTipChange+  toCppEnum (20) = ItemToolTipHasChanged+  toCppEnum (21) = ItemFlagsChange+  toCppEnum (22) = ItemFlagsHaveChanged+  toCppEnum (23) = ItemZValueChange+  toCppEnum (24) = ItemZValueHasChanged+  toCppEnum (25) = ItemOpacityChange+  toCppEnum (26) = ItemOpacityHasChanged+  toCppEnum (27) = ItemScenePositionHasChanged+  toCppEnum (28) = ItemRotationChange+  toCppEnum (29) = ItemRotationHasChanged+  toCppEnum (30) = ItemScaleChange+  toCppEnum (31) = ItemScaleHasChanged+  toCppEnum (32) = ItemTransformOriginPointChange+  toCppEnum (33) = ItemTransformOriginPointHasChanged+  toCppEnum n = UnknownQGraphicsItemGraphicsItemChange n++instance HoppyP.Eq QGraphicsItemGraphicsItemChange where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGraphicsItemGraphicsItemChange where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QGraphicsItemGraphicsItemFlag =+  ItemIsMovable+  | ItemIsSelectable+  | ItemIsFocusable+  | ItemClipsToShape+  | ItemClipsChildrenToShape+  | ItemIgnoresTransformations+  | ItemIgnoresParentOpacity+  | ItemDoesntPropagateOpacityToChildren+  | ItemStacksBehindParent+  | ItemUsesExtendedStyleOption+  | ItemHasNoContents+  | ItemSendsGeometryChanges+  | ItemAcceptsInputMethod+  | ItemNegativeZStacksBehindParent+  | ItemIsPanel+  | ItemSendsScenePositionChanges+  | ItemContainsChildrenInShape+  | UnknownQGraphicsItemGraphicsItemFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsItemGraphicsItemFlag where+  fromCppEnum ItemIsMovable = 1+  fromCppEnum ItemIsSelectable = 2+  fromCppEnum ItemIsFocusable = 4+  fromCppEnum ItemClipsToShape = 8+  fromCppEnum ItemClipsChildrenToShape = 16+  fromCppEnum ItemIgnoresTransformations = 32+  fromCppEnum ItemIgnoresParentOpacity = 64+  fromCppEnum ItemDoesntPropagateOpacityToChildren = 128+  fromCppEnum ItemStacksBehindParent = 256+  fromCppEnum ItemUsesExtendedStyleOption = 512+  fromCppEnum ItemHasNoContents = 1024+  fromCppEnum ItemSendsGeometryChanges = 2048+  fromCppEnum ItemAcceptsInputMethod = 4096+  fromCppEnum ItemNegativeZStacksBehindParent = 8192+  fromCppEnum ItemIsPanel = 16384+  fromCppEnum ItemSendsScenePositionChanges = 65536+  fromCppEnum ItemContainsChildrenInShape = 524288+  fromCppEnum (UnknownQGraphicsItemGraphicsItemFlag n) = n+  +  toCppEnum (1) = ItemIsMovable+  toCppEnum (2) = ItemIsSelectable+  toCppEnum (4) = ItemIsFocusable+  toCppEnum (8) = ItemClipsToShape+  toCppEnum (16) = ItemClipsChildrenToShape+  toCppEnum (32) = ItemIgnoresTransformations+  toCppEnum (64) = ItemIgnoresParentOpacity+  toCppEnum (128) = ItemDoesntPropagateOpacityToChildren+  toCppEnum (256) = ItemStacksBehindParent+  toCppEnum (512) = ItemUsesExtendedStyleOption+  toCppEnum (1024) = ItemHasNoContents+  toCppEnum (2048) = ItemSendsGeometryChanges+  toCppEnum (4096) = ItemAcceptsInputMethod+  toCppEnum (8192) = ItemNegativeZStacksBehindParent+  toCppEnum (16384) = ItemIsPanel+  toCppEnum (65536) = ItemSendsScenePositionChanges+  toCppEnum (524288) = ItemContainsChildrenInShape+  toCppEnum n = UnknownQGraphicsItemGraphicsItemFlag n++instance HoppyP.Eq QGraphicsItemGraphicsItemFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGraphicsItemGraphicsItemFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QGraphicsItemGraphicsItemFlags = QGraphicsItemGraphicsItemFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QGraphicsItemGraphicsItemFlag QGraphicsItemGraphicsItemFlags where+  enumToFlags = QGraphicsItemGraphicsItemFlags . QtahFHR.fromCppEnum+  flagsToEnum (QGraphicsItemGraphicsItemFlags x') = QtahFHR.toCppEnum x'++class IsQGraphicsItemGraphicsItemFlags a where+  toQGraphicsItemGraphicsItemFlags :: a -> QGraphicsItemGraphicsItemFlags++instance IsQGraphicsItemGraphicsItemFlags QGraphicsItemGraphicsItemFlags where toQGraphicsItemGraphicsItemFlags = QtahP.id+instance IsQGraphicsItemGraphicsItemFlags QGraphicsItemGraphicsItemFlag where toQGraphicsItemGraphicsItemFlags = QtahFlags.enumToFlags+instance IsQGraphicsItemGraphicsItemFlags (HoppyFC.CInt) where toQGraphicsItemGraphicsItemFlags = QtahFlags.numToFlags++itemAcceptsInputMethod :: QGraphicsItemGraphicsItemFlags+itemAcceptsInputMethod = QGraphicsItemGraphicsItemFlags (4096)++itemClipsChildrenToShape :: QGraphicsItemGraphicsItemFlags+itemClipsChildrenToShape = QGraphicsItemGraphicsItemFlags (16)++itemClipsToShape :: QGraphicsItemGraphicsItemFlags+itemClipsToShape = QGraphicsItemGraphicsItemFlags (8)++itemContainsChildrenInShape :: QGraphicsItemGraphicsItemFlags+itemContainsChildrenInShape = QGraphicsItemGraphicsItemFlags (524288)++itemDoesntPropagateOpacityToChildren :: QGraphicsItemGraphicsItemFlags+itemDoesntPropagateOpacityToChildren = QGraphicsItemGraphicsItemFlags (128)++itemHasNoContents :: QGraphicsItemGraphicsItemFlags+itemHasNoContents = QGraphicsItemGraphicsItemFlags (1024)++itemIgnoresParentOpacity :: QGraphicsItemGraphicsItemFlags+itemIgnoresParentOpacity = QGraphicsItemGraphicsItemFlags (64)++itemIgnoresTransformations :: QGraphicsItemGraphicsItemFlags+itemIgnoresTransformations = QGraphicsItemGraphicsItemFlags (32)++itemIsFocusable :: QGraphicsItemGraphicsItemFlags+itemIsFocusable = QGraphicsItemGraphicsItemFlags (4)++itemIsMovable :: QGraphicsItemGraphicsItemFlags+itemIsMovable = QGraphicsItemGraphicsItemFlags (1)++itemIsPanel :: QGraphicsItemGraphicsItemFlags+itemIsPanel = QGraphicsItemGraphicsItemFlags (16384)++itemIsSelectable :: QGraphicsItemGraphicsItemFlags+itemIsSelectable = QGraphicsItemGraphicsItemFlags (2)++itemNegativeZStacksBehindParent :: QGraphicsItemGraphicsItemFlags+itemNegativeZStacksBehindParent = QGraphicsItemGraphicsItemFlags (8192)++itemSendsGeometryChanges :: QGraphicsItemGraphicsItemFlags+itemSendsGeometryChanges = QGraphicsItemGraphicsItemFlags (2048)++itemSendsScenePositionChanges :: QGraphicsItemGraphicsItemFlags+itemSendsScenePositionChanges = QGraphicsItemGraphicsItemFlags (65536)++itemStacksBehindParent :: QGraphicsItemGraphicsItemFlags+itemStacksBehindParent = QGraphicsItemGraphicsItemFlags (256)++itemUsesExtendedStyleOption :: QGraphicsItemGraphicsItemFlags+itemUsesExtendedStyleOption = QGraphicsItemGraphicsItemFlags (512)++instance QtahDB.Bits QGraphicsItemGraphicsItemFlags where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QGraphicsItemPanelModality =+  NonModal+  | PanelModal+  | SceneModal+  | UnknownQGraphicsItemPanelModality (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsItemPanelModality where+  fromCppEnum NonModal = 0+  fromCppEnum PanelModal = 1+  fromCppEnum SceneModal = 2+  fromCppEnum (UnknownQGraphicsItemPanelModality n) = n+  +  toCppEnum (0) = NonModal+  toCppEnum (1) = PanelModal+  toCppEnum (2) = SceneModal+  toCppEnum n = UnknownQGraphicsItemPanelModality n++instance HoppyP.Eq QGraphicsItemPanelModality where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGraphicsItemPanelModality where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsItem.hs-boot view
@@ -0,0 +1,138 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGraphicsItem (+  QGraphicsItemValue (..),+  QGraphicsItemConstPtr (..),+  QGraphicsItemPtr (..),+  QGraphicsItemConst (..),+  castQGraphicsItemToConst,+  QGraphicsItem (..),+  castQGraphicsItemToNonconst,+  QGraphicsItemCacheMode,+  QGraphicsItemGraphicsItemChange,+  QGraphicsItemGraphicsItemFlag,+  QGraphicsItemGraphicsItemFlags,+  IsQGraphicsItemGraphicsItemFlags (..),+  itemAcceptsInputMethod,+  itemClipsChildrenToShape,+  itemClipsToShape,+  itemContainsChildrenInShape,+  itemDoesntPropagateOpacityToChildren,+  itemHasNoContents,+  itemIgnoresParentOpacity,+  itemIgnoresTransformations,+  itemIsFocusable,+  itemIsMovable,+  itemIsPanel,+  itemIsSelectable,+  itemNegativeZStacksBehindParent,+  itemSendsGeometryChanges,+  itemSendsScenePositionChanges,+  itemStacksBehindParent,+  itemUsesExtendedStyleOption,+  QGraphicsItemPanelModality,+  ) where++import qualified Data.Bits as QtahDB+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 Prelude as HoppyP+import qualified Prelude as QtahP+++class QGraphicsItemValue a where+  withQGraphicsItemPtr :: a -> (QGraphicsItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGraphicsItemConstPtr a => QGraphicsItemValue a++class (HoppyFHR.CppPtr this) => QGraphicsItemConstPtr this where+  toQGraphicsItemConst :: this -> QGraphicsItemConst++class (QGraphicsItemConstPtr this) => QGraphicsItemPtr this where+  toQGraphicsItem :: this -> QGraphicsItem++data QGraphicsItemConst =+    QGraphicsItemConst (HoppyF.Ptr QGraphicsItemConst)+  | QGraphicsItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsItemConst)++castQGraphicsItemToConst :: QGraphicsItem -> QGraphicsItemConst++instance HoppyFHR.CppPtr QGraphicsItemConst+instance HoppyFHR.Deletable QGraphicsItemConst++instance QGraphicsItemConstPtr QGraphicsItemConst++data QGraphicsItem =+    QGraphicsItem (HoppyF.Ptr QGraphicsItem)+  | QGraphicsItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsItem)++castQGraphicsItemToNonconst :: QGraphicsItemConst -> QGraphicsItem++instance HoppyFHR.CppPtr QGraphicsItem+instance HoppyFHR.Deletable QGraphicsItem++instance QGraphicsItemConstPtr QGraphicsItem++instance QGraphicsItemPtr QGraphicsItem++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsItem)) QGraphicsItem++data QGraphicsItemCacheMode+instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsItemCacheMode+instance HoppyP.Eq QGraphicsItemCacheMode+instance HoppyP.Ord QGraphicsItemCacheMode+instance HoppyP.Show QGraphicsItemCacheMode++data QGraphicsItemGraphicsItemChange+instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsItemGraphicsItemChange+instance HoppyP.Eq QGraphicsItemGraphicsItemChange+instance HoppyP.Ord QGraphicsItemGraphicsItemChange+instance HoppyP.Show QGraphicsItemGraphicsItemChange++data QGraphicsItemGraphicsItemFlag+instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsItemGraphicsItemFlag+instance HoppyP.Eq QGraphicsItemGraphicsItemFlag+instance HoppyP.Ord QGraphicsItemGraphicsItemFlag+instance HoppyP.Show QGraphicsItemGraphicsItemFlag++newtype QGraphicsItemGraphicsItemFlags = QGraphicsItemGraphicsItemFlags (HoppyFC.CInt)+instance QtahDB.Bits QGraphicsItemGraphicsItemFlags+instance QtahP.Eq QGraphicsItemGraphicsItemFlags+instance QtahP.Ord QGraphicsItemGraphicsItemFlags+instance QtahP.Show QGraphicsItemGraphicsItemFlags++instance QtahFlags.Flags (HoppyFC.CInt) QGraphicsItemGraphicsItemFlag QGraphicsItemGraphicsItemFlags++class IsQGraphicsItemGraphicsItemFlags a where+  toQGraphicsItemGraphicsItemFlags :: a -> QGraphicsItemGraphicsItemFlags++instance IsQGraphicsItemGraphicsItemFlags QGraphicsItemGraphicsItemFlags+instance IsQGraphicsItemGraphicsItemFlags QGraphicsItemGraphicsItemFlag+instance IsQGraphicsItemGraphicsItemFlags HoppyFC.CInt++itemAcceptsInputMethod :: QGraphicsItemGraphicsItemFlags+itemClipsChildrenToShape :: QGraphicsItemGraphicsItemFlags+itemClipsToShape :: QGraphicsItemGraphicsItemFlags+itemContainsChildrenInShape :: QGraphicsItemGraphicsItemFlags+itemDoesntPropagateOpacityToChildren :: QGraphicsItemGraphicsItemFlags+itemHasNoContents :: QGraphicsItemGraphicsItemFlags+itemIgnoresParentOpacity :: QGraphicsItemGraphicsItemFlags+itemIgnoresTransformations :: QGraphicsItemGraphicsItemFlags+itemIsFocusable :: QGraphicsItemGraphicsItemFlags+itemIsMovable :: QGraphicsItemGraphicsItemFlags+itemIsPanel :: QGraphicsItemGraphicsItemFlags+itemIsSelectable :: QGraphicsItemGraphicsItemFlags+itemNegativeZStacksBehindParent :: QGraphicsItemGraphicsItemFlags+itemSendsGeometryChanges :: QGraphicsItemGraphicsItemFlags+itemSendsScenePositionChanges :: QGraphicsItemGraphicsItemFlags+itemStacksBehindParent :: QGraphicsItemGraphicsItemFlags+itemUsesExtendedStyleOption :: QGraphicsItemGraphicsItemFlags++data QGraphicsItemPanelModality+instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsItemPanelModality+instance HoppyP.Eq QGraphicsItemPanelModality+instance HoppyP.Ord QGraphicsItemPanelModality+instance HoppyP.Show QGraphicsItemPanelModality
src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsPixmapItem.hs view
@@ -0,0 +1,300 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGraphicsPixmapItem (+  castQGraphicsPixmapItemToQGraphicsItem,+  castQGraphicsItemToQGraphicsPixmapItem,+  QGraphicsPixmapItemValue (..),+  QGraphicsPixmapItemConstPtr (..),+  offset,+  pixmap,+  shapeMode,+  transformationMode,+  QGraphicsPixmapItemPtr (..),+  setOffset,+  setPixmap,+  setOffsetRaw,+  setShapeMode,+  setTransformationMode,+  QGraphicsPixmapItemConst (..),+  castQGraphicsPixmapItemToConst,+  QGraphicsPixmapItem (..),+  castQGraphicsPixmapItemToNonconst,+  new,+  newWithParent,+  newWithPixmap,+  newWithPixmapAndParent,+  QGraphicsPixmapItemSuper (..),+  QGraphicsPixmapItemSuperConst (..),+  QGraphicsPixmapItemShapeMode (..),+  ) 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.HPointF as HPointF+import qualified Graphics.UI.Qtah.Generated.Core.QPointF as M116+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Gui.QPixmap as M316+import qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsItem as M404+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QGraphicsPixmapItem_new" new' ::  HoppyP.IO (HoppyF.Ptr QGraphicsPixmapItem)+foreign import ccall "genpop__QGraphicsPixmapItem_newWithParent" newWithParent' ::  HoppyF.Ptr M404.QGraphicsItem -> HoppyP.IO (HoppyF.Ptr QGraphicsPixmapItem)+foreign import ccall "genpop__QGraphicsPixmapItem_newWithPixmap" newWithPixmap' ::  HoppyF.Ptr M316.QPixmapConst -> HoppyP.IO (HoppyF.Ptr QGraphicsPixmapItem)+foreign import ccall "genpop__QGraphicsPixmapItem_newWithPixmapAndParent" newWithPixmapAndParent' ::  HoppyF.Ptr M316.QPixmapConst -> HoppyF.Ptr M404.QGraphicsItem -> HoppyP.IO (HoppyF.Ptr QGraphicsPixmapItem)+foreign import ccall "genpop__QGraphicsPixmapItem_offset" offset' ::  HoppyF.Ptr QGraphicsPixmapItemConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QGraphicsPixmapItem_setOffset" setOffset' ::  HoppyF.Ptr QGraphicsPixmapItem -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsPixmapItem_pixmap" pixmap' ::  HoppyF.Ptr QGraphicsPixmapItemConst -> HoppyP.IO (HoppyF.Ptr M316.QPixmapConst)+foreign import ccall "genpop__QGraphicsPixmapItem_setPixmap" setPixmap' ::  HoppyF.Ptr QGraphicsPixmapItem -> HoppyF.Ptr M316.QPixmapConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsPixmapItem_setOffsetRaw" setOffsetRaw' ::  HoppyF.Ptr QGraphicsPixmapItem -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsPixmapItem_shapeMode" shapeMode' ::  HoppyF.Ptr QGraphicsPixmapItemConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsPixmapItem_setShapeMode" setShapeMode' ::  HoppyF.Ptr QGraphicsPixmapItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsPixmapItem_transformationMode" transformationMode' ::  HoppyF.Ptr QGraphicsPixmapItemConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsPixmapItem_setTransformationMode" setTransformationMode' ::  HoppyF.Ptr QGraphicsPixmapItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QGraphicsPixmapItem__QGraphicsItem" castQGraphicsPixmapItemToQGraphicsItem :: HoppyF.Ptr QGraphicsPixmapItemConst -> HoppyF.Ptr M404.QGraphicsItemConst+foreign import ccall "gencast__QGraphicsItem__QGraphicsPixmapItem" castQGraphicsItemToQGraphicsPixmapItem :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr QGraphicsPixmapItemConst+foreign import ccall "gendel__QGraphicsPixmapItem" delete'QGraphicsPixmapItem :: HoppyF.Ptr QGraphicsPixmapItemConst -> HoppyP.IO ()+foreign import ccall "&gendel__QGraphicsPixmapItem" deletePtr'QGraphicsPixmapItem :: HoppyF.FunPtr (HoppyF.Ptr QGraphicsPixmapItemConst -> HoppyP.IO ())++class QGraphicsPixmapItemValue a where+  withQGraphicsPixmapItemPtr :: a -> (QGraphicsPixmapItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGraphicsPixmapItemConstPtr a => QGraphicsPixmapItemValue a where+  withQGraphicsPixmapItemPtr = HoppyP.flip ($) . toQGraphicsPixmapItemConst++class (M404.QGraphicsItemConstPtr this) => QGraphicsPixmapItemConstPtr this where+  toQGraphicsPixmapItemConst :: this -> QGraphicsPixmapItemConst++offset :: (QGraphicsPixmapItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+offset arg'1 =+  withQGraphicsPixmapItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (offset' arg'1')++pixmap :: (QGraphicsPixmapItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M316.QPixmap)+pixmap arg'1 =+  withQGraphicsPixmapItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M316.QPixmapConst) =<<+  (pixmap' arg'1')++shapeMode :: (QGraphicsPixmapItemValue this) => (this) {- ^ this -} -> (HoppyP.IO QGraphicsPixmapItemShapeMode)+shapeMode arg'1 =+  withQGraphicsPixmapItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (shapeMode' arg'1')++transformationMode :: (QGraphicsPixmapItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtTransformationMode)+transformationMode arg'1 =+  withQGraphicsPixmapItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (transformationMode' arg'1')++class (QGraphicsPixmapItemConstPtr this, M404.QGraphicsItemPtr this) => QGraphicsPixmapItemPtr this where+  toQGraphicsPixmapItem :: this -> QGraphicsPixmapItem++setOffset :: (QGraphicsPixmapItemPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setOffset arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsPixmapItem arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setOffset' arg'1' arg'2')++setPixmap :: (QGraphicsPixmapItemPtr this, M316.QPixmapValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setPixmap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsPixmapItem arg'1) $ \arg'1' ->+  M316.withQPixmapPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setPixmap' arg'1' arg'2')++setOffsetRaw :: (QGraphicsPixmapItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setOffsetRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsPixmapItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (setOffsetRaw' arg'1' arg'2' arg'3')++setShapeMode :: (QGraphicsPixmapItemPtr this) => (this) {- ^ this -} -> (QGraphicsPixmapItemShapeMode) -> (HoppyP.IO ())+setShapeMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsPixmapItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setShapeMode' arg'1' arg'2')++setTransformationMode :: (QGraphicsPixmapItemPtr this) => (this) {- ^ this -} -> (M190.QtTransformationMode) -> (HoppyP.IO ())+setTransformationMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsPixmapItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setTransformationMode' arg'1' arg'2')++data QGraphicsPixmapItemConst =+    QGraphicsPixmapItemConst (HoppyF.Ptr QGraphicsPixmapItemConst)+  | QGraphicsPixmapItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsPixmapItemConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsPixmapItemConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsPixmapItemConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsPixmapItemToConst :: QGraphicsPixmapItem -> QGraphicsPixmapItemConst+castQGraphicsPixmapItemToConst (QGraphicsPixmapItem ptr') = QGraphicsPixmapItemConst $ HoppyF.castPtr ptr'+castQGraphicsPixmapItemToConst (QGraphicsPixmapItemGc fptr' ptr') = QGraphicsPixmapItemConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsPixmapItemConst where+  nullptr = QGraphicsPixmapItemConst HoppyF.nullPtr+  +  withCppPtr (QGraphicsPixmapItemConst ptr') f' = f' ptr'+  withCppPtr (QGraphicsPixmapItemConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsPixmapItemConst ptr') = ptr'+  toPtr (QGraphicsPixmapItemConstGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsPixmapItemConst _) = HoppyP.return ()+  touchCppPtr (QGraphicsPixmapItemConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsPixmapItemConst where+  delete (QGraphicsPixmapItemConst ptr') = delete'QGraphicsPixmapItem ptr'+  delete (QGraphicsPixmapItemConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsPixmapItemConst", " object."]+  +  toGc this'@(QGraphicsPixmapItemConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsPixmapItemConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsPixmapItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsPixmapItemConstGc {}) = HoppyP.return this'++instance QGraphicsPixmapItemConstPtr QGraphicsPixmapItemConst where+  toQGraphicsPixmapItemConst = HoppyP.id++instance M404.QGraphicsItemConstPtr QGraphicsPixmapItemConst where+  toQGraphicsItemConst (QGraphicsPixmapItemConst ptr') = M404.QGraphicsItemConst $ castQGraphicsPixmapItemToQGraphicsItem ptr'+  toQGraphicsItemConst (QGraphicsPixmapItemConstGc fptr' ptr') = M404.QGraphicsItemConstGc fptr' $ castQGraphicsPixmapItemToQGraphicsItem ptr'++data QGraphicsPixmapItem =+    QGraphicsPixmapItem (HoppyF.Ptr QGraphicsPixmapItem)+  | QGraphicsPixmapItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsPixmapItem)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsPixmapItem where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsPixmapItem where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsPixmapItemToNonconst :: QGraphicsPixmapItemConst -> QGraphicsPixmapItem+castQGraphicsPixmapItemToNonconst (QGraphicsPixmapItemConst ptr') = QGraphicsPixmapItem $ HoppyF.castPtr ptr'+castQGraphicsPixmapItemToNonconst (QGraphicsPixmapItemConstGc fptr' ptr') = QGraphicsPixmapItemGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsPixmapItem where+  nullptr = QGraphicsPixmapItem HoppyF.nullPtr+  +  withCppPtr (QGraphicsPixmapItem ptr') f' = f' ptr'+  withCppPtr (QGraphicsPixmapItemGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsPixmapItem ptr') = ptr'+  toPtr (QGraphicsPixmapItemGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsPixmapItem _) = HoppyP.return ()+  touchCppPtr (QGraphicsPixmapItemGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsPixmapItem where+  delete (QGraphicsPixmapItem ptr') = delete'QGraphicsPixmapItem $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QGraphicsPixmapItemConst)+  delete (QGraphicsPixmapItemGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsPixmapItem", " object."]+  +  toGc this'@(QGraphicsPixmapItem ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsPixmapItemGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsPixmapItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsPixmapItemGc {}) = HoppyP.return this'++instance QGraphicsPixmapItemConstPtr QGraphicsPixmapItem where+  toQGraphicsPixmapItemConst (QGraphicsPixmapItem ptr') = QGraphicsPixmapItemConst $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPixmapItem -> HoppyF.Ptr QGraphicsPixmapItemConst) ptr'+  toQGraphicsPixmapItemConst (QGraphicsPixmapItemGc fptr' ptr') = QGraphicsPixmapItemConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPixmapItem -> HoppyF.Ptr QGraphicsPixmapItemConst) ptr'++instance QGraphicsPixmapItemPtr QGraphicsPixmapItem where+  toQGraphicsPixmapItem = HoppyP.id++instance M404.QGraphicsItemConstPtr QGraphicsPixmapItem where+  toQGraphicsItemConst (QGraphicsPixmapItem ptr') = M404.QGraphicsItemConst $ castQGraphicsPixmapItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPixmapItem -> HoppyF.Ptr QGraphicsPixmapItemConst) ptr'+  toQGraphicsItemConst (QGraphicsPixmapItemGc fptr' ptr') = M404.QGraphicsItemConstGc fptr' $ castQGraphicsPixmapItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPixmapItem -> HoppyF.Ptr QGraphicsPixmapItemConst) ptr'++instance M404.QGraphicsItemPtr QGraphicsPixmapItem where+  toQGraphicsItem (QGraphicsPixmapItem ptr') = M404.QGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr M404.QGraphicsItem) $ castQGraphicsPixmapItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPixmapItem -> HoppyF.Ptr QGraphicsPixmapItemConst) ptr'+  toQGraphicsItem (QGraphicsPixmapItemGc fptr' ptr') = M404.QGraphicsItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr M404.QGraphicsItem) $ castQGraphicsPixmapItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPixmapItem -> HoppyF.Ptr QGraphicsPixmapItemConst) ptr'++new :: (HoppyP.IO QGraphicsPixmapItem)+new =+  HoppyP.fmap QGraphicsPixmapItem+  (new')++newWithParent :: (M404.QGraphicsItemPtr arg'1) => (arg'1) -> (HoppyP.IO QGraphicsPixmapItem)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M404.toQGraphicsItem arg'1) $ \arg'1' ->+  HoppyP.fmap QGraphicsPixmapItem+  (newWithParent' arg'1')++newWithPixmap :: (M316.QPixmapValue arg'1) => (arg'1) -> (HoppyP.IO QGraphicsPixmapItem)+newWithPixmap arg'1 =+  M316.withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QGraphicsPixmapItem+  (newWithPixmap' arg'1')++newWithPixmapAndParent :: (M316.QPixmapValue arg'1, M404.QGraphicsItemPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QGraphicsPixmapItem)+newWithPixmapAndParent arg'1 arg'2 =+  M316.withQPixmapPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M404.toQGraphicsItem arg'2) $ \arg'2' ->+  HoppyP.fmap QGraphicsPixmapItem+  (newWithPixmapAndParent' arg'1' arg'2')++class QGraphicsPixmapItemSuper a where+  downToQGraphicsPixmapItem :: a -> QGraphicsPixmapItem++instance QGraphicsPixmapItemSuper M404.QGraphicsItem where+  downToQGraphicsPixmapItem = castQGraphicsPixmapItemToNonconst . cast' . M404.castQGraphicsItemToConst+    where+      cast' (M404.QGraphicsItemConst ptr') = QGraphicsPixmapItemConst $ castQGraphicsItemToQGraphicsPixmapItem ptr'+      cast' (M404.QGraphicsItemConstGc fptr' ptr') = QGraphicsPixmapItemConstGc fptr' $ castQGraphicsItemToQGraphicsPixmapItem ptr'++class QGraphicsPixmapItemSuperConst a where+  downToQGraphicsPixmapItemConst :: a -> QGraphicsPixmapItemConst++instance QGraphicsPixmapItemSuperConst M404.QGraphicsItemConst where+  downToQGraphicsPixmapItemConst = cast'+    where+      cast' (M404.QGraphicsItemConst ptr') = QGraphicsPixmapItemConst $ castQGraphicsItemToQGraphicsPixmapItem ptr'+      cast' (M404.QGraphicsItemConstGc fptr' ptr') = QGraphicsPixmapItemConstGc fptr' $ castQGraphicsItemToQGraphicsPixmapItem ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QGraphicsPixmapItem)) QGraphicsPixmapItem where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsPixmapItem)) QGraphicsPixmapItem where+  decode = HoppyP.fmap QGraphicsPixmapItem . HoppyF.peek++data QGraphicsPixmapItemShapeMode =+  MaskShape+  | BoundingRectShape+  | HeuristicMaskShape+  | UnknownQGraphicsPixmapItemShapeMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsPixmapItemShapeMode where+  fromCppEnum MaskShape = 0+  fromCppEnum BoundingRectShape = 1+  fromCppEnum HeuristicMaskShape = 2+  fromCppEnum (UnknownQGraphicsPixmapItemShapeMode n) = n+  +  toCppEnum (0) = MaskShape+  toCppEnum (1) = BoundingRectShape+  toCppEnum (2) = HeuristicMaskShape+  toCppEnum n = UnknownQGraphicsPixmapItemShapeMode n++instance HoppyP.Eq QGraphicsPixmapItemShapeMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGraphicsPixmapItemShapeMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsPolygonItem.hs view
@@ -0,0 +1,187 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGraphicsPolygonItem (+  castQGraphicsPolygonItemToQAbstractGraphicsShapeItem,+  castQAbstractGraphicsShapeItemToQGraphicsPolygonItem,+  castQGraphicsPolygonItemToQGraphicsItem,+  castQGraphicsItemToQGraphicsPolygonItem,+  QGraphicsPolygonItemValue (..),+  QGraphicsPolygonItemConstPtr (..),+  QGraphicsPolygonItemPtr (..),+  QGraphicsPolygonItemConst (..),+  castQGraphicsPolygonItemToConst,+  QGraphicsPolygonItem (..),+  castQGraphicsPolygonItemToNonconst,+  new,+  QGraphicsPolygonItemSuper (..),+  QGraphicsPolygonItemSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractGraphicsShapeItem as M356+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsItem as M404+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QGraphicsPolygonItem_new" new' ::  HoppyP.IO (HoppyF.Ptr QGraphicsPolygonItem)+foreign import ccall "gencast__QGraphicsPolygonItem__QAbstractGraphicsShapeItem" castQGraphicsPolygonItemToQAbstractGraphicsShapeItem :: HoppyF.Ptr QGraphicsPolygonItemConst -> HoppyF.Ptr M356.QAbstractGraphicsShapeItemConst+foreign import ccall "gencast__QAbstractGraphicsShapeItem__QGraphicsPolygonItem" castQAbstractGraphicsShapeItemToQGraphicsPolygonItem :: HoppyF.Ptr M356.QAbstractGraphicsShapeItemConst -> HoppyF.Ptr QGraphicsPolygonItemConst+foreign import ccall "gencast__QGraphicsPolygonItem__QGraphicsItem" castQGraphicsPolygonItemToQGraphicsItem :: HoppyF.Ptr QGraphicsPolygonItemConst -> HoppyF.Ptr M404.QGraphicsItemConst+foreign import ccall "gencast__QGraphicsItem__QGraphicsPolygonItem" castQGraphicsItemToQGraphicsPolygonItem :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr QGraphicsPolygonItemConst+foreign import ccall "gendel__QGraphicsPolygonItem" delete'QGraphicsPolygonItem :: HoppyF.Ptr QGraphicsPolygonItemConst -> HoppyP.IO ()+foreign import ccall "&gendel__QGraphicsPolygonItem" deletePtr'QGraphicsPolygonItem :: HoppyF.FunPtr (HoppyF.Ptr QGraphicsPolygonItemConst -> HoppyP.IO ())++class QGraphicsPolygonItemValue a where+  withQGraphicsPolygonItemPtr :: a -> (QGraphicsPolygonItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGraphicsPolygonItemConstPtr a => QGraphicsPolygonItemValue a where+  withQGraphicsPolygonItemPtr = HoppyP.flip ($) . toQGraphicsPolygonItemConst++class (M356.QAbstractGraphicsShapeItemConstPtr this) => QGraphicsPolygonItemConstPtr this where+  toQGraphicsPolygonItemConst :: this -> QGraphicsPolygonItemConst++class (QGraphicsPolygonItemConstPtr this, M356.QAbstractGraphicsShapeItemPtr this) => QGraphicsPolygonItemPtr this where+  toQGraphicsPolygonItem :: this -> QGraphicsPolygonItem++data QGraphicsPolygonItemConst =+    QGraphicsPolygonItemConst (HoppyF.Ptr QGraphicsPolygonItemConst)+  | QGraphicsPolygonItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsPolygonItemConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsPolygonItemConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsPolygonItemConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsPolygonItemToConst :: QGraphicsPolygonItem -> QGraphicsPolygonItemConst+castQGraphicsPolygonItemToConst (QGraphicsPolygonItem ptr') = QGraphicsPolygonItemConst $ HoppyF.castPtr ptr'+castQGraphicsPolygonItemToConst (QGraphicsPolygonItemGc fptr' ptr') = QGraphicsPolygonItemConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsPolygonItemConst where+  nullptr = QGraphicsPolygonItemConst HoppyF.nullPtr+  +  withCppPtr (QGraphicsPolygonItemConst ptr') f' = f' ptr'+  withCppPtr (QGraphicsPolygonItemConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsPolygonItemConst ptr') = ptr'+  toPtr (QGraphicsPolygonItemConstGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsPolygonItemConst _) = HoppyP.return ()+  touchCppPtr (QGraphicsPolygonItemConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsPolygonItemConst where+  delete (QGraphicsPolygonItemConst ptr') = delete'QGraphicsPolygonItem ptr'+  delete (QGraphicsPolygonItemConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsPolygonItemConst", " object."]+  +  toGc this'@(QGraphicsPolygonItemConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsPolygonItemConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsPolygonItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsPolygonItemConstGc {}) = HoppyP.return this'++instance QGraphicsPolygonItemConstPtr QGraphicsPolygonItemConst where+  toQGraphicsPolygonItemConst = HoppyP.id++instance M356.QAbstractGraphicsShapeItemConstPtr QGraphicsPolygonItemConst where+  toQAbstractGraphicsShapeItemConst (QGraphicsPolygonItemConst ptr') = M356.QAbstractGraphicsShapeItemConst $ castQGraphicsPolygonItemToQAbstractGraphicsShapeItem ptr'+  toQAbstractGraphicsShapeItemConst (QGraphicsPolygonItemConstGc fptr' ptr') = M356.QAbstractGraphicsShapeItemConstGc fptr' $ castQGraphicsPolygonItemToQAbstractGraphicsShapeItem ptr'++instance M404.QGraphicsItemConstPtr QGraphicsPolygonItemConst where+  toQGraphicsItemConst (QGraphicsPolygonItemConst ptr') = M404.QGraphicsItemConst $ castQGraphicsPolygonItemToQGraphicsItem ptr'+  toQGraphicsItemConst (QGraphicsPolygonItemConstGc fptr' ptr') = M404.QGraphicsItemConstGc fptr' $ castQGraphicsPolygonItemToQGraphicsItem ptr'++data QGraphicsPolygonItem =+    QGraphicsPolygonItem (HoppyF.Ptr QGraphicsPolygonItem)+  | QGraphicsPolygonItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsPolygonItem)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsPolygonItem where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsPolygonItem where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsPolygonItemToNonconst :: QGraphicsPolygonItemConst -> QGraphicsPolygonItem+castQGraphicsPolygonItemToNonconst (QGraphicsPolygonItemConst ptr') = QGraphicsPolygonItem $ HoppyF.castPtr ptr'+castQGraphicsPolygonItemToNonconst (QGraphicsPolygonItemConstGc fptr' ptr') = QGraphicsPolygonItemGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsPolygonItem where+  nullptr = QGraphicsPolygonItem HoppyF.nullPtr+  +  withCppPtr (QGraphicsPolygonItem ptr') f' = f' ptr'+  withCppPtr (QGraphicsPolygonItemGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsPolygonItem ptr') = ptr'+  toPtr (QGraphicsPolygonItemGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsPolygonItem _) = HoppyP.return ()+  touchCppPtr (QGraphicsPolygonItemGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsPolygonItem where+  delete (QGraphicsPolygonItem ptr') = delete'QGraphicsPolygonItem $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QGraphicsPolygonItemConst)+  delete (QGraphicsPolygonItemGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsPolygonItem", " object."]+  +  toGc this'@(QGraphicsPolygonItem ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsPolygonItemGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsPolygonItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsPolygonItemGc {}) = HoppyP.return this'++instance QGraphicsPolygonItemConstPtr QGraphicsPolygonItem where+  toQGraphicsPolygonItemConst (QGraphicsPolygonItem ptr') = QGraphicsPolygonItemConst $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPolygonItem -> HoppyF.Ptr QGraphicsPolygonItemConst) ptr'+  toQGraphicsPolygonItemConst (QGraphicsPolygonItemGc fptr' ptr') = QGraphicsPolygonItemConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPolygonItem -> HoppyF.Ptr QGraphicsPolygonItemConst) ptr'++instance QGraphicsPolygonItemPtr QGraphicsPolygonItem where+  toQGraphicsPolygonItem = HoppyP.id++instance M356.QAbstractGraphicsShapeItemConstPtr QGraphicsPolygonItem where+  toQAbstractGraphicsShapeItemConst (QGraphicsPolygonItem ptr') = M356.QAbstractGraphicsShapeItemConst $ castQGraphicsPolygonItemToQAbstractGraphicsShapeItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPolygonItem -> HoppyF.Ptr QGraphicsPolygonItemConst) ptr'+  toQAbstractGraphicsShapeItemConst (QGraphicsPolygonItemGc fptr' ptr') = M356.QAbstractGraphicsShapeItemConstGc fptr' $ castQGraphicsPolygonItemToQAbstractGraphicsShapeItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPolygonItem -> HoppyF.Ptr QGraphicsPolygonItemConst) ptr'++instance M356.QAbstractGraphicsShapeItemPtr QGraphicsPolygonItem where+  toQAbstractGraphicsShapeItem (QGraphicsPolygonItem ptr') = M356.QAbstractGraphicsShapeItem $ (HoppyF.castPtr :: HoppyF.Ptr M356.QAbstractGraphicsShapeItemConst -> HoppyF.Ptr M356.QAbstractGraphicsShapeItem) $ castQGraphicsPolygonItemToQAbstractGraphicsShapeItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPolygonItem -> HoppyF.Ptr QGraphicsPolygonItemConst) ptr'+  toQAbstractGraphicsShapeItem (QGraphicsPolygonItemGc fptr' ptr') = M356.QAbstractGraphicsShapeItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M356.QAbstractGraphicsShapeItemConst -> HoppyF.Ptr M356.QAbstractGraphicsShapeItem) $ castQGraphicsPolygonItemToQAbstractGraphicsShapeItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPolygonItem -> HoppyF.Ptr QGraphicsPolygonItemConst) ptr'++instance M404.QGraphicsItemConstPtr QGraphicsPolygonItem where+  toQGraphicsItemConst (QGraphicsPolygonItem ptr') = M404.QGraphicsItemConst $ castQGraphicsPolygonItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPolygonItem -> HoppyF.Ptr QGraphicsPolygonItemConst) ptr'+  toQGraphicsItemConst (QGraphicsPolygonItemGc fptr' ptr') = M404.QGraphicsItemConstGc fptr' $ castQGraphicsPolygonItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPolygonItem -> HoppyF.Ptr QGraphicsPolygonItemConst) ptr'++instance M404.QGraphicsItemPtr QGraphicsPolygonItem where+  toQGraphicsItem (QGraphicsPolygonItem ptr') = M404.QGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr M404.QGraphicsItem) $ castQGraphicsPolygonItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPolygonItem -> HoppyF.Ptr QGraphicsPolygonItemConst) ptr'+  toQGraphicsItem (QGraphicsPolygonItemGc fptr' ptr') = M404.QGraphicsItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr M404.QGraphicsItem) $ castQGraphicsPolygonItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsPolygonItem -> HoppyF.Ptr QGraphicsPolygonItemConst) ptr'++new :: (HoppyP.IO QGraphicsPolygonItem)+new =+  HoppyP.fmap QGraphicsPolygonItem+  (new')++class QGraphicsPolygonItemSuper a where+  downToQGraphicsPolygonItem :: a -> QGraphicsPolygonItem++instance QGraphicsPolygonItemSuper M356.QAbstractGraphicsShapeItem where+  downToQGraphicsPolygonItem = castQGraphicsPolygonItemToNonconst . cast' . M356.castQAbstractGraphicsShapeItemToConst+    where+      cast' (M356.QAbstractGraphicsShapeItemConst ptr') = QGraphicsPolygonItemConst $ castQAbstractGraphicsShapeItemToQGraphicsPolygonItem ptr'+      cast' (M356.QAbstractGraphicsShapeItemConstGc fptr' ptr') = QGraphicsPolygonItemConstGc fptr' $ castQAbstractGraphicsShapeItemToQGraphicsPolygonItem ptr'+instance QGraphicsPolygonItemSuper M404.QGraphicsItem where+  downToQGraphicsPolygonItem = castQGraphicsPolygonItemToNonconst . cast' . M404.castQGraphicsItemToConst+    where+      cast' (M404.QGraphicsItemConst ptr') = QGraphicsPolygonItemConst $ castQGraphicsItemToQGraphicsPolygonItem ptr'+      cast' (M404.QGraphicsItemConstGc fptr' ptr') = QGraphicsPolygonItemConstGc fptr' $ castQGraphicsItemToQGraphicsPolygonItem ptr'++class QGraphicsPolygonItemSuperConst a where+  downToQGraphicsPolygonItemConst :: a -> QGraphicsPolygonItemConst++instance QGraphicsPolygonItemSuperConst M356.QAbstractGraphicsShapeItemConst where+  downToQGraphicsPolygonItemConst = cast'+    where+      cast' (M356.QAbstractGraphicsShapeItemConst ptr') = QGraphicsPolygonItemConst $ castQAbstractGraphicsShapeItemToQGraphicsPolygonItem ptr'+      cast' (M356.QAbstractGraphicsShapeItemConstGc fptr' ptr') = QGraphicsPolygonItemConstGc fptr' $ castQAbstractGraphicsShapeItemToQGraphicsPolygonItem ptr'+instance QGraphicsPolygonItemSuperConst M404.QGraphicsItemConst where+  downToQGraphicsPolygonItemConst = cast'+    where+      cast' (M404.QGraphicsItemConst ptr') = QGraphicsPolygonItemConst $ castQGraphicsItemToQGraphicsPolygonItem ptr'+      cast' (M404.QGraphicsItemConstGc fptr' ptr') = QGraphicsPolygonItemConstGc fptr' $ castQGraphicsItemToQGraphicsPolygonItem ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QGraphicsPolygonItem)) QGraphicsPolygonItem where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsPolygonItem)) QGraphicsPolygonItem where+  decode = HoppyP.fmap QGraphicsPolygonItem . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsPolygonItem.hs-boot view
@@ -0,0 +1,72 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGraphicsPolygonItem (+  QGraphicsPolygonItemValue (..),+  QGraphicsPolygonItemConstPtr (..),+  QGraphicsPolygonItemPtr (..),+  QGraphicsPolygonItemConst (..),+  castQGraphicsPolygonItemToConst,+  QGraphicsPolygonItem (..),+  castQGraphicsPolygonItemToNonconst,+  castQGraphicsPolygonItemToQAbstractGraphicsShapeItem,+  castQGraphicsPolygonItemToQGraphicsItem,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractGraphicsShapeItem as M356+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsItem as M404+import qualified Prelude as HoppyP+++class QGraphicsPolygonItemValue a where+  withQGraphicsPolygonItemPtr :: a -> (QGraphicsPolygonItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGraphicsPolygonItemConstPtr a => QGraphicsPolygonItemValue a++class (M356.QAbstractGraphicsShapeItemConstPtr this) => QGraphicsPolygonItemConstPtr this where+  toQGraphicsPolygonItemConst :: this -> QGraphicsPolygonItemConst++class (QGraphicsPolygonItemConstPtr this, M356.QAbstractGraphicsShapeItemPtr this) => QGraphicsPolygonItemPtr this where+  toQGraphicsPolygonItem :: this -> QGraphicsPolygonItem++data QGraphicsPolygonItemConst =+    QGraphicsPolygonItemConst (HoppyF.Ptr QGraphicsPolygonItemConst)+  | QGraphicsPolygonItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsPolygonItemConst)++castQGraphicsPolygonItemToConst :: QGraphicsPolygonItem -> QGraphicsPolygonItemConst++instance HoppyFHR.CppPtr QGraphicsPolygonItemConst+instance HoppyFHR.Deletable QGraphicsPolygonItemConst++instance QGraphicsPolygonItemConstPtr QGraphicsPolygonItemConst++instance M356.QAbstractGraphicsShapeItemConstPtr QGraphicsPolygonItemConst++instance M404.QGraphicsItemConstPtr QGraphicsPolygonItemConst++data QGraphicsPolygonItem =+    QGraphicsPolygonItem (HoppyF.Ptr QGraphicsPolygonItem)+  | QGraphicsPolygonItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsPolygonItem)++castQGraphicsPolygonItemToNonconst :: QGraphicsPolygonItemConst -> QGraphicsPolygonItem++instance HoppyFHR.CppPtr QGraphicsPolygonItem+instance HoppyFHR.Deletable QGraphicsPolygonItem++instance QGraphicsPolygonItemConstPtr QGraphicsPolygonItem++instance QGraphicsPolygonItemPtr QGraphicsPolygonItem++instance M356.QAbstractGraphicsShapeItemConstPtr QGraphicsPolygonItem++instance M356.QAbstractGraphicsShapeItemPtr QGraphicsPolygonItem++instance M404.QGraphicsItemConstPtr QGraphicsPolygonItem++instance M404.QGraphicsItemPtr QGraphicsPolygonItem+castQGraphicsPolygonItemToQAbstractGraphicsShapeItem :: HoppyF.Ptr QGraphicsPolygonItemConst -> HoppyF.Ptr M356.QAbstractGraphicsShapeItemConst+castQGraphicsPolygonItemToQGraphicsItem :: HoppyF.Ptr QGraphicsPolygonItemConst -> HoppyF.Ptr M404.QGraphicsItemConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsPolygonItem)) QGraphicsPolygonItem
src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsRectItem.hs view
@@ -0,0 +1,235 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGraphicsRectItem (+  castQGraphicsRectItemToQAbstractGraphicsShapeItem,+  castQAbstractGraphicsShapeItemToQGraphicsRectItem,+  castQGraphicsRectItemToQGraphicsItem,+  castQGraphicsItemToQGraphicsRectItem,+  QGraphicsRectItemValue (..),+  QGraphicsRectItemConstPtr (..),+  rect,+  QGraphicsRectItemPtr (..),+  setRectRaw,+  QGraphicsRectItemConst (..),+  castQGraphicsRectItemToConst,+  QGraphicsRectItem (..),+  castQGraphicsRectItemToNonconst,+  new,+  newWithRaw,+  QGraphicsRectItemSuper (..),+  QGraphicsRectItemSuperConst (..),+  ) 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.Core.QRectF as M124+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractGraphicsShapeItem as M356+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsItem as M404+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QGraphicsRectItem_new" new' ::  HoppyP.IO (HoppyF.Ptr QGraphicsRectItem)+foreign import ccall "genpop__QGraphicsRectItem_newWithRaw" newWithRaw' ::  HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QGraphicsRectItem)+foreign import ccall "genpop__QGraphicsRectItem_rect" rect' ::  HoppyF.Ptr QGraphicsRectItemConst -> HoppyP.IO (HoppyF.Ptr M124.QRectFConst)+foreign import ccall "genpop__QGraphicsRectItem_setRectRaw" setRectRaw' ::  HoppyF.Ptr QGraphicsRectItem -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "gencast__QGraphicsRectItem__QAbstractGraphicsShapeItem" castQGraphicsRectItemToQAbstractGraphicsShapeItem :: HoppyF.Ptr QGraphicsRectItemConst -> HoppyF.Ptr M356.QAbstractGraphicsShapeItemConst+foreign import ccall "gencast__QAbstractGraphicsShapeItem__QGraphicsRectItem" castQAbstractGraphicsShapeItemToQGraphicsRectItem :: HoppyF.Ptr M356.QAbstractGraphicsShapeItemConst -> HoppyF.Ptr QGraphicsRectItemConst+foreign import ccall "gencast__QGraphicsRectItem__QGraphicsItem" castQGraphicsRectItemToQGraphicsItem :: HoppyF.Ptr QGraphicsRectItemConst -> HoppyF.Ptr M404.QGraphicsItemConst+foreign import ccall "gencast__QGraphicsItem__QGraphicsRectItem" castQGraphicsItemToQGraphicsRectItem :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr QGraphicsRectItemConst+foreign import ccall "gendel__QGraphicsRectItem" delete'QGraphicsRectItem :: HoppyF.Ptr QGraphicsRectItemConst -> HoppyP.IO ()+foreign import ccall "&gendel__QGraphicsRectItem" deletePtr'QGraphicsRectItem :: HoppyF.FunPtr (HoppyF.Ptr QGraphicsRectItemConst -> HoppyP.IO ())++class QGraphicsRectItemValue a where+  withQGraphicsRectItemPtr :: a -> (QGraphicsRectItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGraphicsRectItemConstPtr a => QGraphicsRectItemValue a where+  withQGraphicsRectItemPtr = HoppyP.flip ($) . toQGraphicsRectItemConst++class (M356.QAbstractGraphicsShapeItemConstPtr this) => QGraphicsRectItemConstPtr this where+  toQGraphicsRectItemConst :: this -> QGraphicsRectItemConst++rect :: (QGraphicsRectItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M124.QRectF)+rect arg'1 =+  withQGraphicsRectItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M124.QRectFConst) =<<+  (rect' arg'1')++class (QGraphicsRectItemConstPtr this, M356.QAbstractGraphicsShapeItemPtr this) => QGraphicsRectItemPtr this where+  toQGraphicsRectItem :: this -> QGraphicsRectItem++setRectRaw :: (QGraphicsRectItemPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setRectRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQGraphicsRectItem arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (setRectRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++data QGraphicsRectItemConst =+    QGraphicsRectItemConst (HoppyF.Ptr QGraphicsRectItemConst)+  | QGraphicsRectItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsRectItemConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsRectItemConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsRectItemConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsRectItemToConst :: QGraphicsRectItem -> QGraphicsRectItemConst+castQGraphicsRectItemToConst (QGraphicsRectItem ptr') = QGraphicsRectItemConst $ HoppyF.castPtr ptr'+castQGraphicsRectItemToConst (QGraphicsRectItemGc fptr' ptr') = QGraphicsRectItemConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsRectItemConst where+  nullptr = QGraphicsRectItemConst HoppyF.nullPtr+  +  withCppPtr (QGraphicsRectItemConst ptr') f' = f' ptr'+  withCppPtr (QGraphicsRectItemConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsRectItemConst ptr') = ptr'+  toPtr (QGraphicsRectItemConstGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsRectItemConst _) = HoppyP.return ()+  touchCppPtr (QGraphicsRectItemConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsRectItemConst where+  delete (QGraphicsRectItemConst ptr') = delete'QGraphicsRectItem ptr'+  delete (QGraphicsRectItemConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsRectItemConst", " object."]+  +  toGc this'@(QGraphicsRectItemConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsRectItemConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsRectItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsRectItemConstGc {}) = HoppyP.return this'++instance QGraphicsRectItemConstPtr QGraphicsRectItemConst where+  toQGraphicsRectItemConst = HoppyP.id++instance M356.QAbstractGraphicsShapeItemConstPtr QGraphicsRectItemConst where+  toQAbstractGraphicsShapeItemConst (QGraphicsRectItemConst ptr') = M356.QAbstractGraphicsShapeItemConst $ castQGraphicsRectItemToQAbstractGraphicsShapeItem ptr'+  toQAbstractGraphicsShapeItemConst (QGraphicsRectItemConstGc fptr' ptr') = M356.QAbstractGraphicsShapeItemConstGc fptr' $ castQGraphicsRectItemToQAbstractGraphicsShapeItem ptr'++instance M404.QGraphicsItemConstPtr QGraphicsRectItemConst where+  toQGraphicsItemConst (QGraphicsRectItemConst ptr') = M404.QGraphicsItemConst $ castQGraphicsRectItemToQGraphicsItem ptr'+  toQGraphicsItemConst (QGraphicsRectItemConstGc fptr' ptr') = M404.QGraphicsItemConstGc fptr' $ castQGraphicsRectItemToQGraphicsItem ptr'++data QGraphicsRectItem =+    QGraphicsRectItem (HoppyF.Ptr QGraphicsRectItem)+  | QGraphicsRectItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsRectItem)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsRectItem where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsRectItem where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsRectItemToNonconst :: QGraphicsRectItemConst -> QGraphicsRectItem+castQGraphicsRectItemToNonconst (QGraphicsRectItemConst ptr') = QGraphicsRectItem $ HoppyF.castPtr ptr'+castQGraphicsRectItemToNonconst (QGraphicsRectItemConstGc fptr' ptr') = QGraphicsRectItemGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsRectItem where+  nullptr = QGraphicsRectItem HoppyF.nullPtr+  +  withCppPtr (QGraphicsRectItem ptr') f' = f' ptr'+  withCppPtr (QGraphicsRectItemGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsRectItem ptr') = ptr'+  toPtr (QGraphicsRectItemGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsRectItem _) = HoppyP.return ()+  touchCppPtr (QGraphicsRectItemGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsRectItem where+  delete (QGraphicsRectItem ptr') = delete'QGraphicsRectItem $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QGraphicsRectItemConst)+  delete (QGraphicsRectItemGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsRectItem", " object."]+  +  toGc this'@(QGraphicsRectItem ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsRectItemGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsRectItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsRectItemGc {}) = HoppyP.return this'++instance QGraphicsRectItemConstPtr QGraphicsRectItem where+  toQGraphicsRectItemConst (QGraphicsRectItem ptr') = QGraphicsRectItemConst $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsRectItem -> HoppyF.Ptr QGraphicsRectItemConst) ptr'+  toQGraphicsRectItemConst (QGraphicsRectItemGc fptr' ptr') = QGraphicsRectItemConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsRectItem -> HoppyF.Ptr QGraphicsRectItemConst) ptr'++instance QGraphicsRectItemPtr QGraphicsRectItem where+  toQGraphicsRectItem = HoppyP.id++instance M356.QAbstractGraphicsShapeItemConstPtr QGraphicsRectItem where+  toQAbstractGraphicsShapeItemConst (QGraphicsRectItem ptr') = M356.QAbstractGraphicsShapeItemConst $ castQGraphicsRectItemToQAbstractGraphicsShapeItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsRectItem -> HoppyF.Ptr QGraphicsRectItemConst) ptr'+  toQAbstractGraphicsShapeItemConst (QGraphicsRectItemGc fptr' ptr') = M356.QAbstractGraphicsShapeItemConstGc fptr' $ castQGraphicsRectItemToQAbstractGraphicsShapeItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsRectItem -> HoppyF.Ptr QGraphicsRectItemConst) ptr'++instance M356.QAbstractGraphicsShapeItemPtr QGraphicsRectItem where+  toQAbstractGraphicsShapeItem (QGraphicsRectItem ptr') = M356.QAbstractGraphicsShapeItem $ (HoppyF.castPtr :: HoppyF.Ptr M356.QAbstractGraphicsShapeItemConst -> HoppyF.Ptr M356.QAbstractGraphicsShapeItem) $ castQGraphicsRectItemToQAbstractGraphicsShapeItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsRectItem -> HoppyF.Ptr QGraphicsRectItemConst) ptr'+  toQAbstractGraphicsShapeItem (QGraphicsRectItemGc fptr' ptr') = M356.QAbstractGraphicsShapeItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M356.QAbstractGraphicsShapeItemConst -> HoppyF.Ptr M356.QAbstractGraphicsShapeItem) $ castQGraphicsRectItemToQAbstractGraphicsShapeItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsRectItem -> HoppyF.Ptr QGraphicsRectItemConst) ptr'++instance M404.QGraphicsItemConstPtr QGraphicsRectItem where+  toQGraphicsItemConst (QGraphicsRectItem ptr') = M404.QGraphicsItemConst $ castQGraphicsRectItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsRectItem -> HoppyF.Ptr QGraphicsRectItemConst) ptr'+  toQGraphicsItemConst (QGraphicsRectItemGc fptr' ptr') = M404.QGraphicsItemConstGc fptr' $ castQGraphicsRectItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsRectItem -> HoppyF.Ptr QGraphicsRectItemConst) ptr'++instance M404.QGraphicsItemPtr QGraphicsRectItem where+  toQGraphicsItem (QGraphicsRectItem ptr') = M404.QGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr M404.QGraphicsItem) $ castQGraphicsRectItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsRectItem -> HoppyF.Ptr QGraphicsRectItemConst) ptr'+  toQGraphicsItem (QGraphicsRectItemGc fptr' ptr') = M404.QGraphicsItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M404.QGraphicsItemConst -> HoppyF.Ptr M404.QGraphicsItem) $ castQGraphicsRectItemToQGraphicsItem $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsRectItem -> HoppyF.Ptr QGraphicsRectItemConst) ptr'++new :: (HoppyP.IO QGraphicsRectItem)+new =+  HoppyP.fmap QGraphicsRectItem+  (new')++newWithRaw :: (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO QGraphicsRectItem)+newWithRaw arg'1 arg'2 arg'3 arg'4 =+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QGraphicsRectItem+  (newWithRaw' arg'1' arg'2' arg'3' arg'4')++class QGraphicsRectItemSuper a where+  downToQGraphicsRectItem :: a -> QGraphicsRectItem++instance QGraphicsRectItemSuper M356.QAbstractGraphicsShapeItem where+  downToQGraphicsRectItem = castQGraphicsRectItemToNonconst . cast' . M356.castQAbstractGraphicsShapeItemToConst+    where+      cast' (M356.QAbstractGraphicsShapeItemConst ptr') = QGraphicsRectItemConst $ castQAbstractGraphicsShapeItemToQGraphicsRectItem ptr'+      cast' (M356.QAbstractGraphicsShapeItemConstGc fptr' ptr') = QGraphicsRectItemConstGc fptr' $ castQAbstractGraphicsShapeItemToQGraphicsRectItem ptr'+instance QGraphicsRectItemSuper M404.QGraphicsItem where+  downToQGraphicsRectItem = castQGraphicsRectItemToNonconst . cast' . M404.castQGraphicsItemToConst+    where+      cast' (M404.QGraphicsItemConst ptr') = QGraphicsRectItemConst $ castQGraphicsItemToQGraphicsRectItem ptr'+      cast' (M404.QGraphicsItemConstGc fptr' ptr') = QGraphicsRectItemConstGc fptr' $ castQGraphicsItemToQGraphicsRectItem ptr'++class QGraphicsRectItemSuperConst a where+  downToQGraphicsRectItemConst :: a -> QGraphicsRectItemConst++instance QGraphicsRectItemSuperConst M356.QAbstractGraphicsShapeItemConst where+  downToQGraphicsRectItemConst = cast'+    where+      cast' (M356.QAbstractGraphicsShapeItemConst ptr') = QGraphicsRectItemConst $ castQAbstractGraphicsShapeItemToQGraphicsRectItem ptr'+      cast' (M356.QAbstractGraphicsShapeItemConstGc fptr' ptr') = QGraphicsRectItemConstGc fptr' $ castQAbstractGraphicsShapeItemToQGraphicsRectItem ptr'+instance QGraphicsRectItemSuperConst M404.QGraphicsItemConst where+  downToQGraphicsRectItemConst = cast'+    where+      cast' (M404.QGraphicsItemConst ptr') = QGraphicsRectItemConst $ castQGraphicsItemToQGraphicsRectItem ptr'+      cast' (M404.QGraphicsItemConstGc fptr' ptr') = QGraphicsRectItemConstGc fptr' $ castQGraphicsItemToQGraphicsRectItem ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QGraphicsRectItem)) QGraphicsRectItem where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsRectItem)) QGraphicsRectItem where+  decode = HoppyP.fmap QGraphicsRectItem . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsRectItem.hs-boot view
@@ -0,0 +1,72 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGraphicsRectItem (+  QGraphicsRectItemValue (..),+  QGraphicsRectItemConstPtr (..),+  QGraphicsRectItemPtr (..),+  QGraphicsRectItemConst (..),+  castQGraphicsRectItemToConst,+  QGraphicsRectItem (..),+  castQGraphicsRectItemToNonconst,+  castQGraphicsRectItemToQAbstractGraphicsShapeItem,+  castQGraphicsRectItemToQGraphicsItem,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractGraphicsShapeItem as M356+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsItem as M404+import qualified Prelude as HoppyP+++class QGraphicsRectItemValue a where+  withQGraphicsRectItemPtr :: a -> (QGraphicsRectItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGraphicsRectItemConstPtr a => QGraphicsRectItemValue a++class (M356.QAbstractGraphicsShapeItemConstPtr this) => QGraphicsRectItemConstPtr this where+  toQGraphicsRectItemConst :: this -> QGraphicsRectItemConst++class (QGraphicsRectItemConstPtr this, M356.QAbstractGraphicsShapeItemPtr this) => QGraphicsRectItemPtr this where+  toQGraphicsRectItem :: this -> QGraphicsRectItem++data QGraphicsRectItemConst =+    QGraphicsRectItemConst (HoppyF.Ptr QGraphicsRectItemConst)+  | QGraphicsRectItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsRectItemConst)++castQGraphicsRectItemToConst :: QGraphicsRectItem -> QGraphicsRectItemConst++instance HoppyFHR.CppPtr QGraphicsRectItemConst+instance HoppyFHR.Deletable QGraphicsRectItemConst++instance QGraphicsRectItemConstPtr QGraphicsRectItemConst++instance M356.QAbstractGraphicsShapeItemConstPtr QGraphicsRectItemConst++instance M404.QGraphicsItemConstPtr QGraphicsRectItemConst++data QGraphicsRectItem =+    QGraphicsRectItem (HoppyF.Ptr QGraphicsRectItem)+  | QGraphicsRectItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsRectItem)++castQGraphicsRectItemToNonconst :: QGraphicsRectItemConst -> QGraphicsRectItem++instance HoppyFHR.CppPtr QGraphicsRectItem+instance HoppyFHR.Deletable QGraphicsRectItem++instance QGraphicsRectItemConstPtr QGraphicsRectItem++instance QGraphicsRectItemPtr QGraphicsRectItem++instance M356.QAbstractGraphicsShapeItemConstPtr QGraphicsRectItem++instance M356.QAbstractGraphicsShapeItemPtr QGraphicsRectItem++instance M404.QGraphicsItemConstPtr QGraphicsRectItem++instance M404.QGraphicsItemPtr QGraphicsRectItem+castQGraphicsRectItemToQAbstractGraphicsShapeItem :: HoppyF.Ptr QGraphicsRectItemConst -> HoppyF.Ptr M356.QAbstractGraphicsShapeItemConst+castQGraphicsRectItemToQGraphicsItem :: HoppyF.Ptr QGraphicsRectItemConst -> HoppyF.Ptr M404.QGraphicsItemConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsRectItem)) QGraphicsRectItem
src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsScene.hs view
@@ -0,0 +1,838 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGraphicsScene (+  castQGraphicsSceneToQObject,+  castQObjectToQGraphicsScene,+  QGraphicsSceneValue (..),+  QGraphicsSceneConstPtr (..),+  activePanel,+  backgroundBrush,+  bspTreeDepth,+  focusItem,+  font,+  foregroundBrush,+  hasFocus,+  height,+  isActive,+  itemAtPointF,+  itemAtRaw,+  itemsBoundingRect,+  minimumRenderSize,+  mouseGrabberItem,+  sceneRect,+  selectionArea,+  stickyFocus,+  width,+  QGraphicsScenePtr (..),+  addEllipseRectF,+  addEllipseRectFAll,+  addEllipseRaw,+  addEllipseRawAll,+  addItem,+  addPolygon,+  addPolygonAll,+  addRect,+  addRectAll,+  addRectRaw,+  addRectRawAll,+  clearFocus,+  setFont,+  invalidate,+  removeItem,+  sendEvent,+  setActivePanel,+  setBackgroundBrush,+  setBspTreeDepth,+  setFocus,+  setFocusAll,+  setFocusItem,+  setFocusItemAll,+  setForegroundBrush,+  setMinimumRenderSize,+  setSceneRect,+  setSceneRectRaw,+  setSelectionAreaTransform,+  setSelectionArea,+  setStickyFocus,+  update,+  QGraphicsSceneConst (..),+  castQGraphicsSceneToConst,+  QGraphicsScene (..),+  castQGraphicsSceneToNonconst,+  new,+  newWithParent,+  newWithRect,+  newWithRaw,+  QGraphicsSceneSuper (..),+  QGraphicsSceneSuperConst (..),+  QGraphicsSceneItemIndexMethod (..),+  QGraphicsSceneSceneLayer (..),+  QGraphicsSceneSceneLayers,+  IsQGraphicsSceneSceneLayers (..),+  allLayers,+  backgroundLayer,+  foregroundLayer,+  itemLayer,+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QPointF as M116+import qualified Graphics.UI.Qtah.Generated.Core.QRectF as M124+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QBrush as M246+import qualified Graphics.UI.Qtah.Generated.Gui.QFont as M276+import qualified Graphics.UI.Qtah.Generated.Gui.QPainterPath as M312+import qualified Graphics.UI.Qtah.Generated.Gui.QPen as M314+import qualified Graphics.UI.Qtah.Generated.Gui.QPolygonF as M320+import qualified Graphics.UI.Qtah.Generated.Gui.QTransform as M336+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsEllipseItem as M402+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsItem as M404+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsPolygonItem as M408+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsRectItem as M410+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QGraphicsScene_new" new' ::  HoppyP.IO (HoppyF.Ptr QGraphicsScene)+foreign import ccall "genpop__QGraphicsScene_newWithParent" newWithParent' ::  HoppyF.Ptr M94.QObject -> HoppyP.IO (HoppyF.Ptr QGraphicsScene)+foreign import ccall "genpop__QGraphicsScene_newWithRect" newWithRect' ::  HoppyF.Ptr M124.QRectFConst -> HoppyP.IO (HoppyF.Ptr QGraphicsScene)+foreign import ccall "genpop__QGraphicsScene_newWithRaw" newWithRaw' ::  HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr QGraphicsScene)+foreign import ccall "genpop__QGraphicsScene_activePanel" activePanel' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO (HoppyF.Ptr M404.QGraphicsItem)+foreign import ccall "genpop__QGraphicsScene_addEllipseRectF" addEllipseRectF' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M124.QRectFConst -> HoppyP.IO (HoppyF.Ptr M402.QGraphicsEllipseItem)+foreign import ccall "genpop__QGraphicsScene_addEllipseRectFAll" addEllipseRectFAll' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M124.QRectFConst -> HoppyF.Ptr M314.QPenConst -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO (HoppyF.Ptr M402.QGraphicsEllipseItem)+foreign import ccall "genpop__QGraphicsScene_addEllipseRaw" addEllipseRaw' ::  HoppyF.Ptr QGraphicsScene -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr M402.QGraphicsEllipseItem)+foreign import ccall "genpop__QGraphicsScene_addEllipseRawAll" addEllipseRawAll' ::  HoppyF.Ptr QGraphicsScene -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyF.Ptr M314.QPenConst -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO (HoppyF.Ptr M402.QGraphicsEllipseItem)+foreign import ccall "genpop__QGraphicsScene_addItem" addItem' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M404.QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_addPolygon" addPolygon' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M320.QPolygonFConst -> HoppyP.IO (HoppyF.Ptr M408.QGraphicsPolygonItem)+foreign import ccall "genpop__QGraphicsScene_addPolygonAll" addPolygonAll' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M320.QPolygonFConst -> HoppyF.Ptr M314.QPenConst -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO (HoppyF.Ptr M408.QGraphicsPolygonItem)+foreign import ccall "genpop__QGraphicsScene_addRect" addRect' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M124.QRectFConst -> HoppyP.IO (HoppyF.Ptr M410.QGraphicsRectItem)+foreign import ccall "genpop__QGraphicsScene_addRectAll" addRectAll' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M124.QRectFConst -> HoppyF.Ptr M314.QPenConst -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO (HoppyF.Ptr M410.QGraphicsRectItem)+foreign import ccall "genpop__QGraphicsScene_addRectRaw" addRectRaw' ::  HoppyF.Ptr QGraphicsScene -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr M410.QGraphicsRectItem)+foreign import ccall "genpop__QGraphicsScene_addRectRawAll" addRectRawAll' ::  HoppyF.Ptr QGraphicsScene -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyF.Ptr M314.QPenConst -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO (HoppyF.Ptr M410.QGraphicsRectItem)+foreign import ccall "genpop__QGraphicsScene_backgroundBrush" backgroundBrush' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QGraphicsScene_bspTreeDepth" bspTreeDepth' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsScene_clearFocus" clearFocus' ::  HoppyF.Ptr QGraphicsScene -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_focusItem" focusItem' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO (HoppyF.Ptr M404.QGraphicsItem)+foreign import ccall "genpop__QGraphicsScene_font" font' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO (HoppyF.Ptr M276.QFontConst)+foreign import ccall "genpop__QGraphicsScene_setFont" setFont' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M276.QFontConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_foregroundBrush" foregroundBrush' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QGraphicsScene_hasFocus" hasFocus' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsScene_height" height' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QGraphicsScene_invalidate" invalidate' ::  HoppyF.Ptr QGraphicsScene -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_isActive" isActive' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsScene_itemAtPointF" itemAtPointF' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyF.Ptr M116.QPointFConst -> HoppyF.Ptr M336.QTransformConst -> HoppyP.IO (HoppyF.Ptr M404.QGraphicsItem)+foreign import ccall "genpop__QGraphicsScene_itemAtRaw" itemAtRaw' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyF.Ptr M336.QTransformConst -> HoppyP.IO (HoppyF.Ptr M404.QGraphicsItem)+foreign import ccall "genpop__QGraphicsScene_itemsBoundingRect" itemsBoundingRect' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO (HoppyF.Ptr M124.QRectFConst)+foreign import ccall "genpop__QGraphicsScene_minimumRenderSize" minimumRenderSize' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QGraphicsScene_mouseGrabberItem" mouseGrabberItem' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO (HoppyF.Ptr M404.QGraphicsItem)+foreign import ccall "genpop__QGraphicsScene_removeItem" removeItem' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M404.QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_sceneRect" sceneRect' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO (HoppyF.Ptr M124.QRectFConst)+foreign import ccall "genpop__QGraphicsScene_selectionArea" selectionArea' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO (HoppyF.Ptr M312.QPainterPathConst)+foreign import ccall "genpop__QGraphicsScene_sendEvent" sendEvent' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M404.QGraphicsItem -> HoppyF.Ptr M34.QEvent -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsScene_setActivePanel" setActivePanel' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M404.QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_setBackgroundBrush" setBackgroundBrush' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_setBspTreeDepth" setBspTreeDepth' ::  HoppyF.Ptr QGraphicsScene -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_setFocus" setFocus' ::  HoppyF.Ptr QGraphicsScene -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_setFocusAll" setFocusAll' ::  HoppyF.Ptr QGraphicsScene -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_setFocusItem" setFocusItem' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M404.QGraphicsItem -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_setFocusItemAll" setFocusItemAll' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M404.QGraphicsItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_setForegroundBrush" setForegroundBrush' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_setMinimumRenderSize" setMinimumRenderSize' ::  HoppyF.Ptr QGraphicsScene -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_setSceneRect" setSceneRect' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M124.QRectFConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_setSceneRectRaw" setSceneRectRaw' ::  HoppyF.Ptr QGraphicsScene -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_setSelectionAreaTransform" setSelectionAreaTransform' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M312.QPainterPathConst -> HoppyF.Ptr M336.QTransformConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_setSelectionArea" setSelectionArea' ::  HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr M312.QPainterPathConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_setStickyFocus" setStickyFocus' ::  HoppyF.Ptr QGraphicsScene -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_stickyFocus" stickyFocus' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsScene_update" update' ::  HoppyF.Ptr QGraphicsScene -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsScene_width" width' ::  HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "gencast__QGraphicsScene__QObject" castQGraphicsSceneToQObject :: HoppyF.Ptr QGraphicsSceneConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QGraphicsScene" castQObjectToQGraphicsScene :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QGraphicsSceneConst+foreign import ccall "gendel__QGraphicsScene" delete'QGraphicsScene :: HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO ()+foreign import ccall "&gendel__QGraphicsScene" deletePtr'QGraphicsScene :: HoppyF.FunPtr (HoppyF.Ptr QGraphicsSceneConst -> HoppyP.IO ())++class QGraphicsSceneValue a where+  withQGraphicsScenePtr :: a -> (QGraphicsSceneConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGraphicsSceneConstPtr a => QGraphicsSceneValue a where+  withQGraphicsScenePtr = HoppyP.flip ($) . toQGraphicsSceneConst++class (M94.QObjectConstPtr this) => QGraphicsSceneConstPtr this where+  toQGraphicsSceneConst :: this -> QGraphicsSceneConst++activePanel :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO M404.QGraphicsItem)+activePanel arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M404.QGraphicsItem+  (activePanel' arg'1')++backgroundBrush :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrush)+backgroundBrush arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M246.QBrushConst) =<<+  (backgroundBrush' arg'1')++bspTreeDepth :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+bspTreeDepth arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (bspTreeDepth' arg'1')++focusItem :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO M404.QGraphicsItem)+focusItem arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M404.QGraphicsItem+  (focusItem' arg'1')++font :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO M276.QFont)+font arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M276.QFontConst) =<<+  (font' arg'1')++foregroundBrush :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrush)+foregroundBrush arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M246.QBrushConst) =<<+  (foregroundBrush' arg'1')++hasFocus :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasFocus arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasFocus' arg'1')++height :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+height arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (height' arg'1')++isActive :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isActive arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isActive' arg'1')++itemAtPointF :: (QGraphicsSceneValue this, M116.QPointFValue arg'2, M336.QTransformValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO M404.QGraphicsItem)+itemAtPointF arg'1 arg'2 arg'3 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M336.withQTransformPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap M404.QGraphicsItem+  (itemAtPointF' arg'1' arg'2' arg'3')++itemAtRaw :: (QGraphicsSceneValue this, M336.QTransformValue arg'4) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (arg'4) -> (HoppyP.IO M404.QGraphicsItem)+itemAtRaw arg'1 arg'2 arg'3 arg'4 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  M336.withQTransformPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  HoppyP.fmap M404.QGraphicsItem+  (itemAtRaw' arg'1' arg'2' arg'3' arg'4')++itemsBoundingRect :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO M124.QRectF)+itemsBoundingRect arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M124.QRectFConst) =<<+  (itemsBoundingRect' arg'1')++minimumRenderSize :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+minimumRenderSize arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (minimumRenderSize' arg'1')++mouseGrabberItem :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO M404.QGraphicsItem)+mouseGrabberItem arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M404.QGraphicsItem+  (mouseGrabberItem' arg'1')++sceneRect :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO M124.QRectF)+sceneRect arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M124.QRectFConst) =<<+  (sceneRect' arg'1')++selectionArea :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO M312.QPainterPath)+selectionArea arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M312.QPainterPathConst) =<<+  (selectionArea' arg'1')++stickyFocus :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+stickyFocus arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (stickyFocus' arg'1')++width :: (QGraphicsSceneValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+width arg'1 =+  withQGraphicsScenePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (width' arg'1')++class (QGraphicsSceneConstPtr this, M94.QObjectPtr this) => QGraphicsScenePtr this where+  toQGraphicsScene :: this -> QGraphicsScene++addEllipseRectF :: (QGraphicsScenePtr this, M124.QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M402.QGraphicsEllipseItem)+addEllipseRectF arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  M124.withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap M402.QGraphicsEllipseItem+  (addEllipseRectF' arg'1' arg'2')++addEllipseRectFAll :: (QGraphicsScenePtr this, M124.QRectFValue arg'2, M314.QPenValue arg'3, M246.QBrushValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO M402.QGraphicsEllipseItem)+addEllipseRectFAll arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  M124.withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M314.withQPenPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M246.withQBrushPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  HoppyP.fmap M402.QGraphicsEllipseItem+  (addEllipseRectFAll' arg'1' arg'2' arg'3' arg'4')++addEllipseRaw :: (QGraphicsScenePtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO M402.QGraphicsEllipseItem)+addEllipseRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  HoppyP.fmap M402.QGraphicsEllipseItem+  (addEllipseRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++addEllipseRawAll :: (QGraphicsScenePtr this, M314.QPenValue arg'6, M246.QBrushValue arg'7) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (arg'6) -> (arg'7) -> (HoppyP.IO M402.QGraphicsEllipseItem)+addEllipseRawAll arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  M314.withQPenPtr arg'6 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'6' ->+  M246.withQBrushPtr arg'7 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'7' ->+  HoppyP.fmap M402.QGraphicsEllipseItem+  (addEllipseRawAll' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7')++addItem :: (QGraphicsScenePtr this, M404.QGraphicsItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addItem arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M404.toQGraphicsItem arg'2) $ \arg'2' ->+  (addItem' arg'1' arg'2')++addPolygon :: (QGraphicsScenePtr this, M320.QPolygonFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M408.QGraphicsPolygonItem)+addPolygon arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  M320.withQPolygonFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap M408.QGraphicsPolygonItem+  (addPolygon' arg'1' arg'2')++addPolygonAll :: (QGraphicsScenePtr this, M320.QPolygonFValue arg'2, M314.QPenValue arg'3, M246.QBrushValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO M408.QGraphicsPolygonItem)+addPolygonAll arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  M320.withQPolygonFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M314.withQPenPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M246.withQBrushPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  HoppyP.fmap M408.QGraphicsPolygonItem+  (addPolygonAll' arg'1' arg'2' arg'3' arg'4')++addRect :: (QGraphicsScenePtr this, M124.QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M410.QGraphicsRectItem)+addRect arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  M124.withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap M410.QGraphicsRectItem+  (addRect' arg'1' arg'2')++addRectAll :: (QGraphicsScenePtr this, M124.QRectFValue arg'2, M314.QPenValue arg'3, M246.QBrushValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO M410.QGraphicsRectItem)+addRectAll arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  M124.withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M314.withQPenPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M246.withQBrushPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  HoppyP.fmap M410.QGraphicsRectItem+  (addRectAll' arg'1' arg'2' arg'3' arg'4')++addRectRaw :: (QGraphicsScenePtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO M410.QGraphicsRectItem)+addRectRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  HoppyP.fmap M410.QGraphicsRectItem+  (addRectRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++addRectRawAll :: (QGraphicsScenePtr this, M314.QPenValue arg'6, M246.QBrushValue arg'7) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (arg'6) -> (arg'7) -> (HoppyP.IO M410.QGraphicsRectItem)+addRectRawAll arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  M314.withQPenPtr arg'6 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'6' ->+  M246.withQBrushPtr arg'7 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'7' ->+  HoppyP.fmap M410.QGraphicsRectItem+  (addRectRawAll' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7')++clearFocus :: (QGraphicsScenePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clearFocus arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  (clearFocus' arg'1')++setFont :: (QGraphicsScenePtr this, M276.QFontValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFont arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  M276.withQFontPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setFont' arg'1' arg'2')++invalidate :: (QGraphicsScenePtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+invalidate arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (invalidate' arg'1' arg'2' arg'3' arg'4' arg'5')++removeItem :: (QGraphicsScenePtr this, M404.QGraphicsItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+removeItem arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M404.toQGraphicsItem arg'2) $ \arg'2' ->+  (removeItem' arg'1' arg'2')++sendEvent :: (QGraphicsScenePtr this, M404.QGraphicsItemPtr arg'2, M34.QEventPtr arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+sendEvent arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M404.toQGraphicsItem arg'2) $ \arg'2' ->+  HoppyFHR.withCppPtr (M34.toQEvent arg'3) $ \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (sendEvent' arg'1' arg'2' arg'3')++setActivePanel :: (QGraphicsScenePtr this, M404.QGraphicsItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setActivePanel arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M404.toQGraphicsItem arg'2) $ \arg'2' ->+  (setActivePanel' arg'1' arg'2')++setBackgroundBrush :: (QGraphicsScenePtr this, M246.QBrushValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setBackgroundBrush arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  M246.withQBrushPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setBackgroundBrush' arg'1' arg'2')++setBspTreeDepth :: (QGraphicsScenePtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setBspTreeDepth arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setBspTreeDepth' arg'1' arg'2')++setFocus :: (QGraphicsScenePtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+setFocus arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  (setFocus' arg'1')++setFocusAll :: (QGraphicsScenePtr this) => (this) {- ^ this -} -> (M190.QtFocusReason) -> (HoppyP.IO ())+setFocusAll arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setFocusAll' arg'1' arg'2')++setFocusItem :: (QGraphicsScenePtr this, M404.QGraphicsItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setFocusItem arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M404.toQGraphicsItem arg'2) $ \arg'2' ->+  (setFocusItem' arg'1' arg'2')++setFocusItemAll :: (QGraphicsScenePtr this, M404.QGraphicsItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtFocusReason) -> (HoppyP.IO ())+setFocusItemAll arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M404.toQGraphicsItem arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (setFocusItemAll' arg'1' arg'2' arg'3')++setForegroundBrush :: (QGraphicsScenePtr this, M246.QBrushValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setForegroundBrush arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  M246.withQBrushPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setForegroundBrush' arg'1' arg'2')++setMinimumRenderSize :: (QGraphicsScenePtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setMinimumRenderSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setMinimumRenderSize' arg'1' arg'2')++setSceneRect :: (QGraphicsScenePtr this, M124.QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setSceneRect arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  M124.withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setSceneRect' arg'1' arg'2')++setSceneRectRaw :: (QGraphicsScenePtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setSceneRectRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (setSceneRectRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++setSelectionAreaTransform :: (QGraphicsScenePtr this, M312.QPainterPathValue arg'2, M336.QTransformValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+setSelectionAreaTransform arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  M312.withQPainterPathPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M336.withQTransformPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (setSelectionAreaTransform' arg'1' arg'2' arg'3')++setSelectionArea :: (QGraphicsScenePtr this, M312.QPainterPathValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setSelectionArea arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  M312.withQPainterPathPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setSelectionArea' arg'1' arg'2')++setStickyFocus :: (QGraphicsScenePtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setStickyFocus arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setStickyFocus' arg'1' arg'2')++update :: (QGraphicsScenePtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+update arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQGraphicsScene arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (update' arg'1' arg'2' arg'3' arg'4' arg'5')++data QGraphicsSceneConst =+    QGraphicsSceneConst (HoppyF.Ptr QGraphicsSceneConst)+  | QGraphicsSceneConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsSceneConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsSceneConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsSceneConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsSceneToConst :: QGraphicsScene -> QGraphicsSceneConst+castQGraphicsSceneToConst (QGraphicsScene ptr') = QGraphicsSceneConst $ HoppyF.castPtr ptr'+castQGraphicsSceneToConst (QGraphicsSceneGc fptr' ptr') = QGraphicsSceneConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsSceneConst where+  nullptr = QGraphicsSceneConst HoppyF.nullPtr+  +  withCppPtr (QGraphicsSceneConst ptr') f' = f' ptr'+  withCppPtr (QGraphicsSceneConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsSceneConst ptr') = ptr'+  toPtr (QGraphicsSceneConstGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsSceneConst _) = HoppyP.return ()+  touchCppPtr (QGraphicsSceneConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsSceneConst where+  delete (QGraphicsSceneConst ptr') = delete'QGraphicsScene ptr'+  delete (QGraphicsSceneConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsSceneConst", " object."]+  +  toGc this'@(QGraphicsSceneConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsSceneConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsScene :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsSceneConstGc {}) = HoppyP.return this'++instance QGraphicsSceneConstPtr QGraphicsSceneConst where+  toQGraphicsSceneConst = HoppyP.id++instance M94.QObjectConstPtr QGraphicsSceneConst where+  toQObjectConst (QGraphicsSceneConst ptr') = M94.QObjectConst $ castQGraphicsSceneToQObject ptr'+  toQObjectConst (QGraphicsSceneConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQGraphicsSceneToQObject ptr'++data QGraphicsScene =+    QGraphicsScene (HoppyF.Ptr QGraphicsScene)+  | QGraphicsSceneGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsScene)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsScene where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsScene where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsSceneToNonconst :: QGraphicsSceneConst -> QGraphicsScene+castQGraphicsSceneToNonconst (QGraphicsSceneConst ptr') = QGraphicsScene $ HoppyF.castPtr ptr'+castQGraphicsSceneToNonconst (QGraphicsSceneConstGc fptr' ptr') = QGraphicsSceneGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsScene where+  nullptr = QGraphicsScene HoppyF.nullPtr+  +  withCppPtr (QGraphicsScene ptr') f' = f' ptr'+  withCppPtr (QGraphicsSceneGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsScene ptr') = ptr'+  toPtr (QGraphicsSceneGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsScene _) = HoppyP.return ()+  touchCppPtr (QGraphicsSceneGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsScene where+  delete (QGraphicsScene ptr') = delete'QGraphicsScene $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QGraphicsSceneConst)+  delete (QGraphicsSceneGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsScene", " object."]+  +  toGc this'@(QGraphicsScene ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsSceneGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsScene :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsSceneGc {}) = HoppyP.return this'++instance QGraphicsSceneConstPtr QGraphicsScene where+  toQGraphicsSceneConst (QGraphicsScene ptr') = QGraphicsSceneConst $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr QGraphicsSceneConst) ptr'+  toQGraphicsSceneConst (QGraphicsSceneGc fptr' ptr') = QGraphicsSceneConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr QGraphicsSceneConst) ptr'++instance QGraphicsScenePtr QGraphicsScene where+  toQGraphicsScene = HoppyP.id++instance M94.QObjectConstPtr QGraphicsScene where+  toQObjectConst (QGraphicsScene ptr') = M94.QObjectConst $ castQGraphicsSceneToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr QGraphicsSceneConst) ptr'+  toQObjectConst (QGraphicsSceneGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQGraphicsSceneToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr QGraphicsSceneConst) ptr'++instance M94.QObjectPtr QGraphicsScene where+  toQObject (QGraphicsScene ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQGraphicsSceneToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr QGraphicsSceneConst) ptr'+  toQObject (QGraphicsSceneGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQGraphicsSceneToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsScene -> HoppyF.Ptr QGraphicsSceneConst) ptr'++new :: (HoppyP.IO QGraphicsScene)+new =+  HoppyP.fmap QGraphicsScene+  (new')++newWithParent :: (M94.QObjectPtr arg'1) => (arg'1) -> (HoppyP.IO QGraphicsScene)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M94.toQObject arg'1) $ \arg'1' ->+  HoppyP.fmap QGraphicsScene+  (newWithParent' arg'1')++newWithRect :: (M124.QRectFValue arg'1) => (arg'1) -> (HoppyP.IO QGraphicsScene)+newWithRect arg'1 =+  M124.withQRectFPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QGraphicsScene+  (newWithRect' arg'1')++newWithRaw :: (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO QGraphicsScene)+newWithRaw arg'1 arg'2 arg'3 arg'4 =+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'1 >>= \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  HoppyP.fmap QGraphicsScene+  (newWithRaw' arg'1' arg'2' arg'3' arg'4')++class QGraphicsSceneSuper a where+  downToQGraphicsScene :: a -> QGraphicsScene++instance QGraphicsSceneSuper M94.QObject where+  downToQGraphicsScene = castQGraphicsSceneToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QGraphicsSceneConst $ castQObjectToQGraphicsScene ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QGraphicsSceneConstGc fptr' $ castQObjectToQGraphicsScene ptr'++class QGraphicsSceneSuperConst a where+  downToQGraphicsSceneConst :: a -> QGraphicsSceneConst++instance QGraphicsSceneSuperConst M94.QObjectConst where+  downToQGraphicsSceneConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QGraphicsSceneConst $ castQObjectToQGraphicsScene ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QGraphicsSceneConstGc fptr' $ castQObjectToQGraphicsScene ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QGraphicsScene)) QGraphicsScene where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsScene)) QGraphicsScene where+  decode = HoppyP.fmap QGraphicsScene . HoppyF.peek++data QGraphicsSceneItemIndexMethod =+  BspTreeIndex+  | NoIndex+  | UnknownQGraphicsSceneItemIndexMethod (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsSceneItemIndexMethod where+  fromCppEnum BspTreeIndex = 0+  fromCppEnum NoIndex = -1+  fromCppEnum (UnknownQGraphicsSceneItemIndexMethod n) = n+  +  toCppEnum (-1) = NoIndex+  toCppEnum (0) = BspTreeIndex+  toCppEnum n = UnknownQGraphicsSceneItemIndexMethod n++instance HoppyP.Eq QGraphicsSceneItemIndexMethod where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGraphicsSceneItemIndexMethod where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QGraphicsSceneSceneLayer =+  ItemLayer+  | BackgroundLayer+  | ForegroundLayer+  | AllLayers+  | UnknownQGraphicsSceneSceneLayer (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsSceneSceneLayer where+  fromCppEnum ItemLayer = 1+  fromCppEnum BackgroundLayer = 2+  fromCppEnum ForegroundLayer = 4+  fromCppEnum AllLayers = 65535+  fromCppEnum (UnknownQGraphicsSceneSceneLayer n) = n+  +  toCppEnum (1) = ItemLayer+  toCppEnum (2) = BackgroundLayer+  toCppEnum (4) = ForegroundLayer+  toCppEnum (65535) = AllLayers+  toCppEnum n = UnknownQGraphicsSceneSceneLayer n++instance HoppyP.Eq QGraphicsSceneSceneLayer where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGraphicsSceneSceneLayer where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QGraphicsSceneSceneLayers = QGraphicsSceneSceneLayers (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QGraphicsSceneSceneLayer QGraphicsSceneSceneLayers where+  enumToFlags = QGraphicsSceneSceneLayers . QtahFHR.fromCppEnum+  flagsToEnum (QGraphicsSceneSceneLayers x') = QtahFHR.toCppEnum x'++class IsQGraphicsSceneSceneLayers a where+  toQGraphicsSceneSceneLayers :: a -> QGraphicsSceneSceneLayers++instance IsQGraphicsSceneSceneLayers QGraphicsSceneSceneLayers where toQGraphicsSceneSceneLayers = QtahP.id+instance IsQGraphicsSceneSceneLayers QGraphicsSceneSceneLayer where toQGraphicsSceneSceneLayers = QtahFlags.enumToFlags+instance IsQGraphicsSceneSceneLayers (HoppyFC.CInt) where toQGraphicsSceneSceneLayers = QtahFlags.numToFlags++allLayers :: QGraphicsSceneSceneLayers+allLayers = QGraphicsSceneSceneLayers (65535)++backgroundLayer :: QGraphicsSceneSceneLayers+backgroundLayer = QGraphicsSceneSceneLayers (2)++foregroundLayer :: QGraphicsSceneSceneLayers+foregroundLayer = QGraphicsSceneSceneLayers (4)++itemLayer :: QGraphicsSceneSceneLayers+itemLayer = QGraphicsSceneSceneLayers (1)++instance QtahDB.Bits QGraphicsSceneSceneLayers where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum
+ src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsScene.hs-boot view
@@ -0,0 +1,107 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGraphicsScene (+  QGraphicsSceneValue (..),+  QGraphicsSceneConstPtr (..),+  QGraphicsScenePtr (..),+  QGraphicsSceneConst (..),+  castQGraphicsSceneToConst,+  QGraphicsScene (..),+  castQGraphicsSceneToNonconst,+  castQGraphicsSceneToQObject,+  QGraphicsSceneItemIndexMethod,+  QGraphicsSceneSceneLayer,+  QGraphicsSceneSceneLayers,+  IsQGraphicsSceneSceneLayers (..),+  allLayers,+  backgroundLayer,+  foregroundLayer,+  itemLayer,+  ) where++import qualified Data.Bits as QtahDB+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 Prelude as HoppyP+import qualified Prelude as QtahP+++class QGraphicsSceneValue a where+  withQGraphicsScenePtr :: a -> (QGraphicsSceneConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGraphicsSceneConstPtr a => QGraphicsSceneValue a++class (M94.QObjectConstPtr this) => QGraphicsSceneConstPtr this where+  toQGraphicsSceneConst :: this -> QGraphicsSceneConst++class (QGraphicsSceneConstPtr this, M94.QObjectPtr this) => QGraphicsScenePtr this where+  toQGraphicsScene :: this -> QGraphicsScene++data QGraphicsSceneConst =+    QGraphicsSceneConst (HoppyF.Ptr QGraphicsSceneConst)+  | QGraphicsSceneConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsSceneConst)++castQGraphicsSceneToConst :: QGraphicsScene -> QGraphicsSceneConst++instance HoppyFHR.CppPtr QGraphicsSceneConst+instance HoppyFHR.Deletable QGraphicsSceneConst++instance QGraphicsSceneConstPtr QGraphicsSceneConst++instance M94.QObjectConstPtr QGraphicsSceneConst++data QGraphicsScene =+    QGraphicsScene (HoppyF.Ptr QGraphicsScene)+  | QGraphicsSceneGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsScene)++castQGraphicsSceneToNonconst :: QGraphicsSceneConst -> QGraphicsScene++instance HoppyFHR.CppPtr QGraphicsScene+instance HoppyFHR.Deletable QGraphicsScene++instance QGraphicsSceneConstPtr QGraphicsScene++instance QGraphicsScenePtr QGraphicsScene++instance M94.QObjectConstPtr QGraphicsScene++instance M94.QObjectPtr QGraphicsScene+castQGraphicsSceneToQObject :: HoppyF.Ptr QGraphicsSceneConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsScene)) QGraphicsScene++data QGraphicsSceneItemIndexMethod+instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsSceneItemIndexMethod+instance HoppyP.Eq QGraphicsSceneItemIndexMethod+instance HoppyP.Ord QGraphicsSceneItemIndexMethod+instance HoppyP.Show QGraphicsSceneItemIndexMethod++data QGraphicsSceneSceneLayer+instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsSceneSceneLayer+instance HoppyP.Eq QGraphicsSceneSceneLayer+instance HoppyP.Ord QGraphicsSceneSceneLayer+instance HoppyP.Show QGraphicsSceneSceneLayer++newtype QGraphicsSceneSceneLayers = QGraphicsSceneSceneLayers (HoppyFC.CInt)+instance QtahDB.Bits QGraphicsSceneSceneLayers+instance QtahP.Eq QGraphicsSceneSceneLayers+instance QtahP.Ord QGraphicsSceneSceneLayers+instance QtahP.Show QGraphicsSceneSceneLayers++instance QtahFlags.Flags (HoppyFC.CInt) QGraphicsSceneSceneLayer QGraphicsSceneSceneLayers++class IsQGraphicsSceneSceneLayers a where+  toQGraphicsSceneSceneLayers :: a -> QGraphicsSceneSceneLayers++instance IsQGraphicsSceneSceneLayers QGraphicsSceneSceneLayers+instance IsQGraphicsSceneSceneLayers QGraphicsSceneSceneLayer+instance IsQGraphicsSceneSceneLayers HoppyFC.CInt++allLayers :: QGraphicsSceneSceneLayers+backgroundLayer :: QGraphicsSceneSceneLayers+foregroundLayer :: QGraphicsSceneSceneLayers+itemLayer :: QGraphicsSceneSceneLayers
src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsSceneEvent.hs view
@@ -0,0 +1,162 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGraphicsSceneEvent (+  castQGraphicsSceneEventToQEvent,+  castQEventToQGraphicsSceneEvent,+  QGraphicsSceneEventValue (..),+  QGraphicsSceneEventConstPtr (..),+  widget,+  QGraphicsSceneEventPtr (..),+  QGraphicsSceneEventConst (..),+  castQGraphicsSceneEventToConst,+  QGraphicsSceneEvent (..),+  castQGraphicsSceneEventToNonconst,+  QGraphicsSceneEventSuper (..),+  QGraphicsSceneEventSuperConst (..),+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import Prelude (($), (.), (==))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QGraphicsSceneEvent_widget" widget' ::  HoppyF.Ptr QGraphicsSceneEventConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "gencast__QGraphicsSceneEvent__QEvent" castQGraphicsSceneEventToQEvent :: HoppyF.Ptr QGraphicsSceneEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QGraphicsSceneEvent" castQEventToQGraphicsSceneEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QGraphicsSceneEventConst+foreign import ccall "gendel__QGraphicsSceneEvent" delete'QGraphicsSceneEvent :: HoppyF.Ptr QGraphicsSceneEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QGraphicsSceneEvent" deletePtr'QGraphicsSceneEvent :: HoppyF.FunPtr (HoppyF.Ptr QGraphicsSceneEventConst -> HoppyP.IO ())++class QGraphicsSceneEventValue a where+  withQGraphicsSceneEventPtr :: a -> (QGraphicsSceneEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGraphicsSceneEventConstPtr a => QGraphicsSceneEventValue a where+  withQGraphicsSceneEventPtr = HoppyP.flip ($) . toQGraphicsSceneEventConst++class (M34.QEventConstPtr this) => QGraphicsSceneEventConstPtr this where+  toQGraphicsSceneEventConst :: this -> QGraphicsSceneEventConst++widget :: (QGraphicsSceneEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)+widget arg'1 =+  withQGraphicsSceneEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (widget' arg'1')++class (QGraphicsSceneEventConstPtr this, M34.QEventPtr this) => QGraphicsSceneEventPtr this where+  toQGraphicsSceneEvent :: this -> QGraphicsSceneEvent++data QGraphicsSceneEventConst =+    QGraphicsSceneEventConst (HoppyF.Ptr QGraphicsSceneEventConst)+  | QGraphicsSceneEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsSceneEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsSceneEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsSceneEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsSceneEventToConst :: QGraphicsSceneEvent -> QGraphicsSceneEventConst+castQGraphicsSceneEventToConst (QGraphicsSceneEvent ptr') = QGraphicsSceneEventConst $ HoppyF.castPtr ptr'+castQGraphicsSceneEventToConst (QGraphicsSceneEventGc fptr' ptr') = QGraphicsSceneEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsSceneEventConst where+  nullptr = QGraphicsSceneEventConst HoppyF.nullPtr+  +  withCppPtr (QGraphicsSceneEventConst ptr') f' = f' ptr'+  withCppPtr (QGraphicsSceneEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsSceneEventConst ptr') = ptr'+  toPtr (QGraphicsSceneEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsSceneEventConst _) = HoppyP.return ()+  touchCppPtr (QGraphicsSceneEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsSceneEventConst where+  delete (QGraphicsSceneEventConst ptr') = delete'QGraphicsSceneEvent ptr'+  delete (QGraphicsSceneEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsSceneEventConst", " object."]+  +  toGc this'@(QGraphicsSceneEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsSceneEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsSceneEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsSceneEventConstGc {}) = HoppyP.return this'++instance QGraphicsSceneEventConstPtr QGraphicsSceneEventConst where+  toQGraphicsSceneEventConst = HoppyP.id++instance M34.QEventConstPtr QGraphicsSceneEventConst where+  toQEventConst (QGraphicsSceneEventConst ptr') = M34.QEventConst $ castQGraphicsSceneEventToQEvent ptr'+  toQEventConst (QGraphicsSceneEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQGraphicsSceneEventToQEvent ptr'++data QGraphicsSceneEvent =+    QGraphicsSceneEvent (HoppyF.Ptr QGraphicsSceneEvent)+  | QGraphicsSceneEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsSceneEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsSceneEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsSceneEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsSceneEventToNonconst :: QGraphicsSceneEventConst -> QGraphicsSceneEvent+castQGraphicsSceneEventToNonconst (QGraphicsSceneEventConst ptr') = QGraphicsSceneEvent $ HoppyF.castPtr ptr'+castQGraphicsSceneEventToNonconst (QGraphicsSceneEventConstGc fptr' ptr') = QGraphicsSceneEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsSceneEvent where+  nullptr = QGraphicsSceneEvent HoppyF.nullPtr+  +  withCppPtr (QGraphicsSceneEvent ptr') f' = f' ptr'+  withCppPtr (QGraphicsSceneEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsSceneEvent ptr') = ptr'+  toPtr (QGraphicsSceneEventGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsSceneEvent _) = HoppyP.return ()+  touchCppPtr (QGraphicsSceneEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsSceneEvent where+  delete (QGraphicsSceneEvent ptr') = delete'QGraphicsSceneEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QGraphicsSceneEventConst)+  delete (QGraphicsSceneEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsSceneEvent", " object."]+  +  toGc this'@(QGraphicsSceneEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsSceneEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsSceneEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsSceneEventGc {}) = HoppyP.return this'++instance QGraphicsSceneEventConstPtr QGraphicsSceneEvent where+  toQGraphicsSceneEventConst (QGraphicsSceneEvent ptr') = QGraphicsSceneEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneEvent -> HoppyF.Ptr QGraphicsSceneEventConst) ptr'+  toQGraphicsSceneEventConst (QGraphicsSceneEventGc fptr' ptr') = QGraphicsSceneEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneEvent -> HoppyF.Ptr QGraphicsSceneEventConst) ptr'++instance QGraphicsSceneEventPtr QGraphicsSceneEvent where+  toQGraphicsSceneEvent = HoppyP.id++instance M34.QEventConstPtr QGraphicsSceneEvent where+  toQEventConst (QGraphicsSceneEvent ptr') = M34.QEventConst $ castQGraphicsSceneEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneEvent -> HoppyF.Ptr QGraphicsSceneEventConst) ptr'+  toQEventConst (QGraphicsSceneEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQGraphicsSceneEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneEvent -> HoppyF.Ptr QGraphicsSceneEventConst) ptr'++instance M34.QEventPtr QGraphicsSceneEvent where+  toQEvent (QGraphicsSceneEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQGraphicsSceneEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneEvent -> HoppyF.Ptr QGraphicsSceneEventConst) ptr'+  toQEvent (QGraphicsSceneEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQGraphicsSceneEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneEvent -> HoppyF.Ptr QGraphicsSceneEventConst) ptr'++class QGraphicsSceneEventSuper a where+  downToQGraphicsSceneEvent :: a -> QGraphicsSceneEvent++instance QGraphicsSceneEventSuper M34.QEvent where+  downToQGraphicsSceneEvent = castQGraphicsSceneEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QGraphicsSceneEventConst $ castQEventToQGraphicsSceneEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QGraphicsSceneEventConstGc fptr' $ castQEventToQGraphicsSceneEvent ptr'++class QGraphicsSceneEventSuperConst a where+  downToQGraphicsSceneEventConst :: a -> QGraphicsSceneEventConst++instance QGraphicsSceneEventSuperConst M34.QEventConst where+  downToQGraphicsSceneEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QGraphicsSceneEventConst $ castQEventToQGraphicsSceneEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QGraphicsSceneEventConstGc fptr' $ castQEventToQGraphicsSceneEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QGraphicsSceneEvent)) QGraphicsSceneEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsSceneEvent)) QGraphicsSceneEvent where+  decode = HoppyP.fmap QGraphicsSceneEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsSceneMouseEvent.hs view
@@ -0,0 +1,319 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGraphicsSceneMouseEvent (+  castQGraphicsSceneMouseEventToQGraphicsSceneEvent,+  castQGraphicsSceneEventToQGraphicsSceneMouseEvent,+  castQGraphicsSceneMouseEventToQEvent,+  castQEventToQGraphicsSceneMouseEvent,+  QGraphicsSceneMouseEventValue (..),+  QGraphicsSceneMouseEventConstPtr (..),+  button,+  buttonDownPos,+  buttonDownScenePos,+  buttonDownScreenPos,+  buttons,+  flags,+  lastPos,+  lastScenePos,+  lastScreenPos,+  modifiers,+  pos,+  scenePos,+  screenPos,+  source,+  QGraphicsSceneMouseEventPtr (..),+  QGraphicsSceneMouseEventConst (..),+  castQGraphicsSceneMouseEventToConst,+  QGraphicsSceneMouseEvent (..),+  castQGraphicsSceneMouseEventToNonconst,+  QGraphicsSceneMouseEventSuper (..),+  QGraphicsSceneMouseEventSuperConst (..),+  ) 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.HPoint as HPoint+import qualified Graphics.UI.Qtah.Core.HPointF as HPointF+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114+import qualified Graphics.UI.Qtah.Generated.Core.QPointF as M116+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsSceneEvent as M414+import Prelude (($), (.), (=<<), (==), (>>=))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QGraphicsSceneMouseEvent_button" button' ::  HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsSceneMouseEvent_buttonDownPos" buttonDownPos' ::  HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QGraphicsSceneMouseEvent_buttonDownScenePos" buttonDownScenePos' ::  HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QGraphicsSceneMouseEvent_buttonDownScreenPos" buttonDownScreenPos' ::  HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QGraphicsSceneMouseEvent_buttons" buttons' ::  HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsSceneMouseEvent_flags" flags' ::  HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsSceneMouseEvent_lastPos" lastPos' ::  HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QGraphicsSceneMouseEvent_lastScenePos" lastScenePos' ::  HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QGraphicsSceneMouseEvent_lastScreenPos" lastScreenPos' ::  HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QGraphicsSceneMouseEvent_modifiers" modifiers' ::  HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsSceneMouseEvent_pos" pos' ::  HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QGraphicsSceneMouseEvent_scenePos" scenePos' ::  HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QGraphicsSceneMouseEvent_screenPos" screenPos' ::  HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QGraphicsSceneMouseEvent_source" source' ::  HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "gencast__QGraphicsSceneMouseEvent__QGraphicsSceneEvent" castQGraphicsSceneMouseEventToQGraphicsSceneEvent :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyF.Ptr M414.QGraphicsSceneEventConst+foreign import ccall "gencast__QGraphicsSceneEvent__QGraphicsSceneMouseEvent" castQGraphicsSceneEventToQGraphicsSceneMouseEvent :: HoppyF.Ptr M414.QGraphicsSceneEventConst -> HoppyF.Ptr QGraphicsSceneMouseEventConst+foreign import ccall "gencast__QGraphicsSceneMouseEvent__QEvent" castQGraphicsSceneMouseEventToQEvent :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QGraphicsSceneMouseEvent" castQEventToQGraphicsSceneMouseEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QGraphicsSceneMouseEventConst+foreign import ccall "gendel__QGraphicsSceneMouseEvent" delete'QGraphicsSceneMouseEvent :: HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QGraphicsSceneMouseEvent" deletePtr'QGraphicsSceneMouseEvent :: HoppyF.FunPtr (HoppyF.Ptr QGraphicsSceneMouseEventConst -> HoppyP.IO ())++class QGraphicsSceneMouseEventValue a where+  withQGraphicsSceneMouseEventPtr :: a -> (QGraphicsSceneMouseEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGraphicsSceneMouseEventConstPtr a => QGraphicsSceneMouseEventValue a where+  withQGraphicsSceneMouseEventPtr = HoppyP.flip ($) . toQGraphicsSceneMouseEventConst++class (M414.QGraphicsSceneEventConstPtr this) => QGraphicsSceneMouseEventConstPtr this where+  toQGraphicsSceneMouseEventConst :: this -> QGraphicsSceneMouseEventConst++button :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtMouseButton)+button arg'1 =+  withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (button' arg'1')++buttonDownPos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (M190.QtMouseButton) -> (HoppyP.IO HPointF.HPointF)+buttonDownPos arg'1 arg'2 =+  withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (buttonDownPos' arg'1' arg'2')++buttonDownScenePos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (M190.QtMouseButton) -> (HoppyP.IO HPointF.HPointF)+buttonDownScenePos arg'1 arg'2 =+  withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (buttonDownScenePos' arg'1' arg'2')++buttonDownScreenPos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (M190.QtMouseButton) -> (HoppyP.IO HPoint.HPoint)+buttonDownScreenPos arg'1 arg'2 =+  withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (buttonDownScreenPos' arg'1' arg'2')++buttons :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtMouseButtons)+buttons arg'1 =+  withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (buttons' arg'1')++flags :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtMouseEventFlags)+flags arg'1 =+  withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (flags' arg'1')++lastPos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+lastPos arg'1 =+  withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (lastPos' arg'1')++lastScenePos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+lastScenePos arg'1 =+  withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (lastScenePos' arg'1')++lastScreenPos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+lastScreenPos arg'1 =+  withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (lastScreenPos' arg'1')++modifiers :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtKeyboardModifiers)+modifiers arg'1 =+  withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (modifiers' arg'1')++pos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+pos arg'1 =+  withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (pos' arg'1')++scenePos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+scenePos arg'1 =+  withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (scenePos' arg'1')++screenPos :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+screenPos arg'1 =+  withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (screenPos' arg'1')++source :: (QGraphicsSceneMouseEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtMouseEventSource)+source arg'1 =+  withQGraphicsSceneMouseEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (source' arg'1')++class (QGraphicsSceneMouseEventConstPtr this, M414.QGraphicsSceneEventPtr this) => QGraphicsSceneMouseEventPtr this where+  toQGraphicsSceneMouseEvent :: this -> QGraphicsSceneMouseEvent++data QGraphicsSceneMouseEventConst =+    QGraphicsSceneMouseEventConst (HoppyF.Ptr QGraphicsSceneMouseEventConst)+  | QGraphicsSceneMouseEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsSceneMouseEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsSceneMouseEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsSceneMouseEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsSceneMouseEventToConst :: QGraphicsSceneMouseEvent -> QGraphicsSceneMouseEventConst+castQGraphicsSceneMouseEventToConst (QGraphicsSceneMouseEvent ptr') = QGraphicsSceneMouseEventConst $ HoppyF.castPtr ptr'+castQGraphicsSceneMouseEventToConst (QGraphicsSceneMouseEventGc fptr' ptr') = QGraphicsSceneMouseEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsSceneMouseEventConst where+  nullptr = QGraphicsSceneMouseEventConst HoppyF.nullPtr+  +  withCppPtr (QGraphicsSceneMouseEventConst ptr') f' = f' ptr'+  withCppPtr (QGraphicsSceneMouseEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsSceneMouseEventConst ptr') = ptr'+  toPtr (QGraphicsSceneMouseEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsSceneMouseEventConst _) = HoppyP.return ()+  touchCppPtr (QGraphicsSceneMouseEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsSceneMouseEventConst where+  delete (QGraphicsSceneMouseEventConst ptr') = delete'QGraphicsSceneMouseEvent ptr'+  delete (QGraphicsSceneMouseEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsSceneMouseEventConst", " object."]+  +  toGc this'@(QGraphicsSceneMouseEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsSceneMouseEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsSceneMouseEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsSceneMouseEventConstGc {}) = HoppyP.return this'++instance QGraphicsSceneMouseEventConstPtr QGraphicsSceneMouseEventConst where+  toQGraphicsSceneMouseEventConst = HoppyP.id++instance M414.QGraphicsSceneEventConstPtr QGraphicsSceneMouseEventConst where+  toQGraphicsSceneEventConst (QGraphicsSceneMouseEventConst ptr') = M414.QGraphicsSceneEventConst $ castQGraphicsSceneMouseEventToQGraphicsSceneEvent ptr'+  toQGraphicsSceneEventConst (QGraphicsSceneMouseEventConstGc fptr' ptr') = M414.QGraphicsSceneEventConstGc fptr' $ castQGraphicsSceneMouseEventToQGraphicsSceneEvent ptr'++instance M34.QEventConstPtr QGraphicsSceneMouseEventConst where+  toQEventConst (QGraphicsSceneMouseEventConst ptr') = M34.QEventConst $ castQGraphicsSceneMouseEventToQEvent ptr'+  toQEventConst (QGraphicsSceneMouseEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQGraphicsSceneMouseEventToQEvent ptr'++data QGraphicsSceneMouseEvent =+    QGraphicsSceneMouseEvent (HoppyF.Ptr QGraphicsSceneMouseEvent)+  | QGraphicsSceneMouseEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsSceneMouseEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsSceneMouseEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsSceneMouseEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsSceneMouseEventToNonconst :: QGraphicsSceneMouseEventConst -> QGraphicsSceneMouseEvent+castQGraphicsSceneMouseEventToNonconst (QGraphicsSceneMouseEventConst ptr') = QGraphicsSceneMouseEvent $ HoppyF.castPtr ptr'+castQGraphicsSceneMouseEventToNonconst (QGraphicsSceneMouseEventConstGc fptr' ptr') = QGraphicsSceneMouseEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsSceneMouseEvent where+  nullptr = QGraphicsSceneMouseEvent HoppyF.nullPtr+  +  withCppPtr (QGraphicsSceneMouseEvent ptr') f' = f' ptr'+  withCppPtr (QGraphicsSceneMouseEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsSceneMouseEvent ptr') = ptr'+  toPtr (QGraphicsSceneMouseEventGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsSceneMouseEvent _) = HoppyP.return ()+  touchCppPtr (QGraphicsSceneMouseEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsSceneMouseEvent where+  delete (QGraphicsSceneMouseEvent ptr') = delete'QGraphicsSceneMouseEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QGraphicsSceneMouseEventConst)+  delete (QGraphicsSceneMouseEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsSceneMouseEvent", " object."]+  +  toGc this'@(QGraphicsSceneMouseEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsSceneMouseEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsSceneMouseEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsSceneMouseEventGc {}) = HoppyP.return this'++instance QGraphicsSceneMouseEventConstPtr QGraphicsSceneMouseEvent where+  toQGraphicsSceneMouseEventConst (QGraphicsSceneMouseEvent ptr') = QGraphicsSceneMouseEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'+  toQGraphicsSceneMouseEventConst (QGraphicsSceneMouseEventGc fptr' ptr') = QGraphicsSceneMouseEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'++instance QGraphicsSceneMouseEventPtr QGraphicsSceneMouseEvent where+  toQGraphicsSceneMouseEvent = HoppyP.id++instance M414.QGraphicsSceneEventConstPtr QGraphicsSceneMouseEvent where+  toQGraphicsSceneEventConst (QGraphicsSceneMouseEvent ptr') = M414.QGraphicsSceneEventConst $ castQGraphicsSceneMouseEventToQGraphicsSceneEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'+  toQGraphicsSceneEventConst (QGraphicsSceneMouseEventGc fptr' ptr') = M414.QGraphicsSceneEventConstGc fptr' $ castQGraphicsSceneMouseEventToQGraphicsSceneEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'++instance M414.QGraphicsSceneEventPtr QGraphicsSceneMouseEvent where+  toQGraphicsSceneEvent (QGraphicsSceneMouseEvent ptr') = M414.QGraphicsSceneEvent $ (HoppyF.castPtr :: HoppyF.Ptr M414.QGraphicsSceneEventConst -> HoppyF.Ptr M414.QGraphicsSceneEvent) $ castQGraphicsSceneMouseEventToQGraphicsSceneEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'+  toQGraphicsSceneEvent (QGraphicsSceneMouseEventGc fptr' ptr') = M414.QGraphicsSceneEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M414.QGraphicsSceneEventConst -> HoppyF.Ptr M414.QGraphicsSceneEvent) $ castQGraphicsSceneMouseEventToQGraphicsSceneEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'++instance M34.QEventConstPtr QGraphicsSceneMouseEvent where+  toQEventConst (QGraphicsSceneMouseEvent ptr') = M34.QEventConst $ castQGraphicsSceneMouseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'+  toQEventConst (QGraphicsSceneMouseEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQGraphicsSceneMouseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'++instance M34.QEventPtr QGraphicsSceneMouseEvent where+  toQEvent (QGraphicsSceneMouseEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQGraphicsSceneMouseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'+  toQEvent (QGraphicsSceneMouseEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQGraphicsSceneMouseEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneMouseEvent -> HoppyF.Ptr QGraphicsSceneMouseEventConst) ptr'++class QGraphicsSceneMouseEventSuper a where+  downToQGraphicsSceneMouseEvent :: a -> QGraphicsSceneMouseEvent++instance QGraphicsSceneMouseEventSuper M414.QGraphicsSceneEvent where+  downToQGraphicsSceneMouseEvent = castQGraphicsSceneMouseEventToNonconst . cast' . M414.castQGraphicsSceneEventToConst+    where+      cast' (M414.QGraphicsSceneEventConst ptr') = QGraphicsSceneMouseEventConst $ castQGraphicsSceneEventToQGraphicsSceneMouseEvent ptr'+      cast' (M414.QGraphicsSceneEventConstGc fptr' ptr') = QGraphicsSceneMouseEventConstGc fptr' $ castQGraphicsSceneEventToQGraphicsSceneMouseEvent ptr'+instance QGraphicsSceneMouseEventSuper M34.QEvent where+  downToQGraphicsSceneMouseEvent = castQGraphicsSceneMouseEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QGraphicsSceneMouseEventConst $ castQEventToQGraphicsSceneMouseEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QGraphicsSceneMouseEventConstGc fptr' $ castQEventToQGraphicsSceneMouseEvent ptr'++class QGraphicsSceneMouseEventSuperConst a where+  downToQGraphicsSceneMouseEventConst :: a -> QGraphicsSceneMouseEventConst++instance QGraphicsSceneMouseEventSuperConst M414.QGraphicsSceneEventConst where+  downToQGraphicsSceneMouseEventConst = cast'+    where+      cast' (M414.QGraphicsSceneEventConst ptr') = QGraphicsSceneMouseEventConst $ castQGraphicsSceneEventToQGraphicsSceneMouseEvent ptr'+      cast' (M414.QGraphicsSceneEventConstGc fptr' ptr') = QGraphicsSceneMouseEventConstGc fptr' $ castQGraphicsSceneEventToQGraphicsSceneMouseEvent ptr'+instance QGraphicsSceneMouseEventSuperConst M34.QEventConst where+  downToQGraphicsSceneMouseEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QGraphicsSceneMouseEventConst $ castQEventToQGraphicsSceneMouseEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QGraphicsSceneMouseEventConstGc fptr' $ castQEventToQGraphicsSceneMouseEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QGraphicsSceneMouseEvent)) QGraphicsSceneMouseEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsSceneMouseEvent)) QGraphicsSceneMouseEvent where+  decode = HoppyP.fmap QGraphicsSceneMouseEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsSceneWheelEvent.hs view
@@ -0,0 +1,252 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGraphicsSceneWheelEvent (+  castQGraphicsSceneWheelEventToQGraphicsSceneEvent,+  castQGraphicsSceneEventToQGraphicsSceneWheelEvent,+  castQGraphicsSceneWheelEventToQEvent,+  castQEventToQGraphicsSceneWheelEvent,+  QGraphicsSceneWheelEventValue (..),+  QGraphicsSceneWheelEventConstPtr (..),+  buttons,+  delta,+  modifiers,+  orientation,+  pos,+  scenePos,+  screenPos,+  QGraphicsSceneWheelEventPtr (..),+  QGraphicsSceneWheelEventConst (..),+  castQGraphicsSceneWheelEventToConst,+  QGraphicsSceneWheelEvent (..),+  castQGraphicsSceneWheelEventToNonconst,+  QGraphicsSceneWheelEventSuper (..),+  QGraphicsSceneWheelEventSuperConst (..),+  ) 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.HPoint as HPoint+import qualified Graphics.UI.Qtah.Core.HPointF as HPointF+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QEvent as M34+import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114+import qualified Graphics.UI.Qtah.Generated.Core.QPointF as M116+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsSceneEvent as M414+import Prelude (($), (.), (=<<), (==))+import qualified Prelude as HoppyP+import qualified Prelude as QtahP++foreign import ccall "genpop__QGraphicsSceneWheelEvent_buttons" buttons' ::  HoppyF.Ptr QGraphicsSceneWheelEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsSceneWheelEvent_delta" delta' ::  HoppyF.Ptr QGraphicsSceneWheelEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsSceneWheelEvent_modifiers" modifiers' ::  HoppyF.Ptr QGraphicsSceneWheelEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsSceneWheelEvent_orientation" orientation' ::  HoppyF.Ptr QGraphicsSceneWheelEventConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsSceneWheelEvent_pos" pos' ::  HoppyF.Ptr QGraphicsSceneWheelEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QGraphicsSceneWheelEvent_scenePos" scenePos' ::  HoppyF.Ptr QGraphicsSceneWheelEventConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QGraphicsSceneWheelEvent_screenPos" screenPos' ::  HoppyF.Ptr QGraphicsSceneWheelEventConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "gencast__QGraphicsSceneWheelEvent__QGraphicsSceneEvent" castQGraphicsSceneWheelEventToQGraphicsSceneEvent :: HoppyF.Ptr QGraphicsSceneWheelEventConst -> HoppyF.Ptr M414.QGraphicsSceneEventConst+foreign import ccall "gencast__QGraphicsSceneEvent__QGraphicsSceneWheelEvent" castQGraphicsSceneEventToQGraphicsSceneWheelEvent :: HoppyF.Ptr M414.QGraphicsSceneEventConst -> HoppyF.Ptr QGraphicsSceneWheelEventConst+foreign import ccall "gencast__QGraphicsSceneWheelEvent__QEvent" castQGraphicsSceneWheelEventToQEvent :: HoppyF.Ptr QGraphicsSceneWheelEventConst -> HoppyF.Ptr M34.QEventConst+foreign import ccall "gencast__QEvent__QGraphicsSceneWheelEvent" castQEventToQGraphicsSceneWheelEvent :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr QGraphicsSceneWheelEventConst+foreign import ccall "gendel__QGraphicsSceneWheelEvent" delete'QGraphicsSceneWheelEvent :: HoppyF.Ptr QGraphicsSceneWheelEventConst -> HoppyP.IO ()+foreign import ccall "&gendel__QGraphicsSceneWheelEvent" deletePtr'QGraphicsSceneWheelEvent :: HoppyF.FunPtr (HoppyF.Ptr QGraphicsSceneWheelEventConst -> HoppyP.IO ())++class QGraphicsSceneWheelEventValue a where+  withQGraphicsSceneWheelEventPtr :: a -> (QGraphicsSceneWheelEventConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGraphicsSceneWheelEventConstPtr a => QGraphicsSceneWheelEventValue a where+  withQGraphicsSceneWheelEventPtr = HoppyP.flip ($) . toQGraphicsSceneWheelEventConst++class (M414.QGraphicsSceneEventConstPtr this) => QGraphicsSceneWheelEventConstPtr this where+  toQGraphicsSceneWheelEventConst :: this -> QGraphicsSceneWheelEventConst++buttons :: (QGraphicsSceneWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtMouseButtons)+buttons arg'1 =+  withQGraphicsSceneWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (buttons' arg'1')++delta :: (QGraphicsSceneWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+delta arg'1 =+  withQGraphicsSceneWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (delta' arg'1')++modifiers :: (QGraphicsSceneWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtKeyboardModifiers)+modifiers arg'1 =+  withQGraphicsSceneWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (modifiers' arg'1')++orientation :: (QGraphicsSceneWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtOrientation)+orientation arg'1 =+  withQGraphicsSceneWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (orientation' arg'1')++pos :: (QGraphicsSceneWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+pos arg'1 =+  withQGraphicsSceneWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (pos' arg'1')++scenePos :: (QGraphicsSceneWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPointF.HPointF)+scenePos arg'1 =+  withQGraphicsSceneWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (scenePos' arg'1')++screenPos :: (QGraphicsSceneWheelEventValue this) => (this) {- ^ this -} -> (HoppyP.IO HPoint.HPoint)+screenPos arg'1 =+  withQGraphicsSceneWheelEventPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (screenPos' arg'1')++class (QGraphicsSceneWheelEventConstPtr this, M414.QGraphicsSceneEventPtr this) => QGraphicsSceneWheelEventPtr this where+  toQGraphicsSceneWheelEvent :: this -> QGraphicsSceneWheelEvent++data QGraphicsSceneWheelEventConst =+    QGraphicsSceneWheelEventConst (HoppyF.Ptr QGraphicsSceneWheelEventConst)+  | QGraphicsSceneWheelEventConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsSceneWheelEventConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsSceneWheelEventConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsSceneWheelEventConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsSceneWheelEventToConst :: QGraphicsSceneWheelEvent -> QGraphicsSceneWheelEventConst+castQGraphicsSceneWheelEventToConst (QGraphicsSceneWheelEvent ptr') = QGraphicsSceneWheelEventConst $ HoppyF.castPtr ptr'+castQGraphicsSceneWheelEventToConst (QGraphicsSceneWheelEventGc fptr' ptr') = QGraphicsSceneWheelEventConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsSceneWheelEventConst where+  nullptr = QGraphicsSceneWheelEventConst HoppyF.nullPtr+  +  withCppPtr (QGraphicsSceneWheelEventConst ptr') f' = f' ptr'+  withCppPtr (QGraphicsSceneWheelEventConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsSceneWheelEventConst ptr') = ptr'+  toPtr (QGraphicsSceneWheelEventConstGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsSceneWheelEventConst _) = HoppyP.return ()+  touchCppPtr (QGraphicsSceneWheelEventConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsSceneWheelEventConst where+  delete (QGraphicsSceneWheelEventConst ptr') = delete'QGraphicsSceneWheelEvent ptr'+  delete (QGraphicsSceneWheelEventConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsSceneWheelEventConst", " object."]+  +  toGc this'@(QGraphicsSceneWheelEventConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsSceneWheelEventConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsSceneWheelEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsSceneWheelEventConstGc {}) = HoppyP.return this'++instance QGraphicsSceneWheelEventConstPtr QGraphicsSceneWheelEventConst where+  toQGraphicsSceneWheelEventConst = HoppyP.id++instance M414.QGraphicsSceneEventConstPtr QGraphicsSceneWheelEventConst where+  toQGraphicsSceneEventConst (QGraphicsSceneWheelEventConst ptr') = M414.QGraphicsSceneEventConst $ castQGraphicsSceneWheelEventToQGraphicsSceneEvent ptr'+  toQGraphicsSceneEventConst (QGraphicsSceneWheelEventConstGc fptr' ptr') = M414.QGraphicsSceneEventConstGc fptr' $ castQGraphicsSceneWheelEventToQGraphicsSceneEvent ptr'++instance M34.QEventConstPtr QGraphicsSceneWheelEventConst where+  toQEventConst (QGraphicsSceneWheelEventConst ptr') = M34.QEventConst $ castQGraphicsSceneWheelEventToQEvent ptr'+  toQEventConst (QGraphicsSceneWheelEventConstGc fptr' ptr') = M34.QEventConstGc fptr' $ castQGraphicsSceneWheelEventToQEvent ptr'++data QGraphicsSceneWheelEvent =+    QGraphicsSceneWheelEvent (HoppyF.Ptr QGraphicsSceneWheelEvent)+  | QGraphicsSceneWheelEventGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsSceneWheelEvent)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsSceneWheelEvent where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsSceneWheelEvent where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsSceneWheelEventToNonconst :: QGraphicsSceneWheelEventConst -> QGraphicsSceneWheelEvent+castQGraphicsSceneWheelEventToNonconst (QGraphicsSceneWheelEventConst ptr') = QGraphicsSceneWheelEvent $ HoppyF.castPtr ptr'+castQGraphicsSceneWheelEventToNonconst (QGraphicsSceneWheelEventConstGc fptr' ptr') = QGraphicsSceneWheelEventGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsSceneWheelEvent where+  nullptr = QGraphicsSceneWheelEvent HoppyF.nullPtr+  +  withCppPtr (QGraphicsSceneWheelEvent ptr') f' = f' ptr'+  withCppPtr (QGraphicsSceneWheelEventGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsSceneWheelEvent ptr') = ptr'+  toPtr (QGraphicsSceneWheelEventGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsSceneWheelEvent _) = HoppyP.return ()+  touchCppPtr (QGraphicsSceneWheelEventGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsSceneWheelEvent where+  delete (QGraphicsSceneWheelEvent ptr') = delete'QGraphicsSceneWheelEvent $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QGraphicsSceneWheelEventConst)+  delete (QGraphicsSceneWheelEventGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsSceneWheelEvent", " object."]+  +  toGc this'@(QGraphicsSceneWheelEvent ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsSceneWheelEventGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsSceneWheelEvent :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsSceneWheelEventGc {}) = HoppyP.return this'++instance QGraphicsSceneWheelEventConstPtr QGraphicsSceneWheelEvent where+  toQGraphicsSceneWheelEventConst (QGraphicsSceneWheelEvent ptr') = QGraphicsSceneWheelEventConst $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneWheelEvent -> HoppyF.Ptr QGraphicsSceneWheelEventConst) ptr'+  toQGraphicsSceneWheelEventConst (QGraphicsSceneWheelEventGc fptr' ptr') = QGraphicsSceneWheelEventConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneWheelEvent -> HoppyF.Ptr QGraphicsSceneWheelEventConst) ptr'++instance QGraphicsSceneWheelEventPtr QGraphicsSceneWheelEvent where+  toQGraphicsSceneWheelEvent = HoppyP.id++instance M414.QGraphicsSceneEventConstPtr QGraphicsSceneWheelEvent where+  toQGraphicsSceneEventConst (QGraphicsSceneWheelEvent ptr') = M414.QGraphicsSceneEventConst $ castQGraphicsSceneWheelEventToQGraphicsSceneEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneWheelEvent -> HoppyF.Ptr QGraphicsSceneWheelEventConst) ptr'+  toQGraphicsSceneEventConst (QGraphicsSceneWheelEventGc fptr' ptr') = M414.QGraphicsSceneEventConstGc fptr' $ castQGraphicsSceneWheelEventToQGraphicsSceneEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneWheelEvent -> HoppyF.Ptr QGraphicsSceneWheelEventConst) ptr'++instance M414.QGraphicsSceneEventPtr QGraphicsSceneWheelEvent where+  toQGraphicsSceneEvent (QGraphicsSceneWheelEvent ptr') = M414.QGraphicsSceneEvent $ (HoppyF.castPtr :: HoppyF.Ptr M414.QGraphicsSceneEventConst -> HoppyF.Ptr M414.QGraphicsSceneEvent) $ castQGraphicsSceneWheelEventToQGraphicsSceneEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneWheelEvent -> HoppyF.Ptr QGraphicsSceneWheelEventConst) ptr'+  toQGraphicsSceneEvent (QGraphicsSceneWheelEventGc fptr' ptr') = M414.QGraphicsSceneEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M414.QGraphicsSceneEventConst -> HoppyF.Ptr M414.QGraphicsSceneEvent) $ castQGraphicsSceneWheelEventToQGraphicsSceneEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneWheelEvent -> HoppyF.Ptr QGraphicsSceneWheelEventConst) ptr'++instance M34.QEventConstPtr QGraphicsSceneWheelEvent where+  toQEventConst (QGraphicsSceneWheelEvent ptr') = M34.QEventConst $ castQGraphicsSceneWheelEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneWheelEvent -> HoppyF.Ptr QGraphicsSceneWheelEventConst) ptr'+  toQEventConst (QGraphicsSceneWheelEventGc fptr' ptr') = M34.QEventConstGc fptr' $ castQGraphicsSceneWheelEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneWheelEvent -> HoppyF.Ptr QGraphicsSceneWheelEventConst) ptr'++instance M34.QEventPtr QGraphicsSceneWheelEvent where+  toQEvent (QGraphicsSceneWheelEvent ptr') = M34.QEvent $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQGraphicsSceneWheelEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneWheelEvent -> HoppyF.Ptr QGraphicsSceneWheelEventConst) ptr'+  toQEvent (QGraphicsSceneWheelEventGc fptr' ptr') = M34.QEventGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M34.QEventConst -> HoppyF.Ptr M34.QEvent) $ castQGraphicsSceneWheelEventToQEvent $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsSceneWheelEvent -> HoppyF.Ptr QGraphicsSceneWheelEventConst) ptr'++class QGraphicsSceneWheelEventSuper a where+  downToQGraphicsSceneWheelEvent :: a -> QGraphicsSceneWheelEvent++instance QGraphicsSceneWheelEventSuper M414.QGraphicsSceneEvent where+  downToQGraphicsSceneWheelEvent = castQGraphicsSceneWheelEventToNonconst . cast' . M414.castQGraphicsSceneEventToConst+    where+      cast' (M414.QGraphicsSceneEventConst ptr') = QGraphicsSceneWheelEventConst $ castQGraphicsSceneEventToQGraphicsSceneWheelEvent ptr'+      cast' (M414.QGraphicsSceneEventConstGc fptr' ptr') = QGraphicsSceneWheelEventConstGc fptr' $ castQGraphicsSceneEventToQGraphicsSceneWheelEvent ptr'+instance QGraphicsSceneWheelEventSuper M34.QEvent where+  downToQGraphicsSceneWheelEvent = castQGraphicsSceneWheelEventToNonconst . cast' . M34.castQEventToConst+    where+      cast' (M34.QEventConst ptr') = QGraphicsSceneWheelEventConst $ castQEventToQGraphicsSceneWheelEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QGraphicsSceneWheelEventConstGc fptr' $ castQEventToQGraphicsSceneWheelEvent ptr'++class QGraphicsSceneWheelEventSuperConst a where+  downToQGraphicsSceneWheelEventConst :: a -> QGraphicsSceneWheelEventConst++instance QGraphicsSceneWheelEventSuperConst M414.QGraphicsSceneEventConst where+  downToQGraphicsSceneWheelEventConst = cast'+    where+      cast' (M414.QGraphicsSceneEventConst ptr') = QGraphicsSceneWheelEventConst $ castQGraphicsSceneEventToQGraphicsSceneWheelEvent ptr'+      cast' (M414.QGraphicsSceneEventConstGc fptr' ptr') = QGraphicsSceneWheelEventConstGc fptr' $ castQGraphicsSceneEventToQGraphicsSceneWheelEvent ptr'+instance QGraphicsSceneWheelEventSuperConst M34.QEventConst where+  downToQGraphicsSceneWheelEventConst = cast'+    where+      cast' (M34.QEventConst ptr') = QGraphicsSceneWheelEventConst $ castQEventToQGraphicsSceneWheelEvent ptr'+      cast' (M34.QEventConstGc fptr' ptr') = QGraphicsSceneWheelEventConstGc fptr' $ castQEventToQGraphicsSceneWheelEvent ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QGraphicsSceneWheelEvent)) QGraphicsSceneWheelEvent where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsSceneWheelEvent)) QGraphicsSceneWheelEvent where+  decode = HoppyP.fmap QGraphicsSceneWheelEvent . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Widgets/QGraphicsView.hs view
@@ -0,0 +1,1298 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGraphicsView (+  castQGraphicsViewToQAbstractScrollArea,+  castQAbstractScrollAreaToQGraphicsView,+  castQGraphicsViewToQFrame,+  castQFrameToQGraphicsView,+  castQGraphicsViewToQWidget,+  castQWidgetToQGraphicsView,+  castQGraphicsViewToQObject,+  castQObjectToQGraphicsView,+  QGraphicsViewValue (..),+  QGraphicsViewConstPtr (..),+  alignment,+  backgroundBrush,+  cacheMode,+  dragMode,+  foregroundBrush,+  isInteractive,+  isTransformed,+  itemAtPoint,+  itemAtRaw,+  mapFromScenePointF,+  mapFromSceneRectF,+  mapFromScenePolygonF,+  mapFromScenePainterPath,+  mapFromScenePointFRaw,+  mapFromSceneRectFRaw,+  mapToScenePoint,+  mapToSceneRect,+  mapToScenePolygon,+  mapToScenePainterPath,+  mapToScenePointRaw,+  mapToSceneRectRaw,+  optimizationFlags,+  renderHints,+  resizeAnchor,+  scene,+  sceneRect,+  transform,+  transformationAnchor,+  viewportTransform,+  QGraphicsViewPtr (..),+  centerOnPointF,+  centerOnRaw,+  centerOnItem,+  ensureVisibleRectF,+  ensureVisibleRaw,+  ensureVisibleItem,+  ensureVisibleRectFAll,+  ensureVisibleRawAll,+  ensureVisibleItemAll,+  fitInViewRectF,+  fitInViewRect,+  fitInViewItem,+  fitInViewRectFAll,+  fitInViewRectAll,+  fitInViewItemAll,+  render,+  renderAll,+  resetCachedContent,+  resetMatrix,+  resetTransform,+  rotate,+  scale,+  setAlignment,+  setBackgroundBrush,+  setCacheMode,+  setDragMode,+  setForegroundBrush,+  setInteractive,+  setOptimizationFlag,+  setOptimizationFlagAll,+  setOptimizationFlags,+  setRenderHint,+  setRenderHintAll,+  setRenderHints,+  setResizeAnchor,+  setScene,+  setSceneRectF,+  setSceneRectRaw,+  setTransform,+  setTransformAll,+  setTransformationAnchor,+  setViewportUpdateMode,+  shear,+  translate,+  QGraphicsViewConst (..),+  castQGraphicsViewToConst,+  QGraphicsView (..),+  castQGraphicsViewToNonconst,+  new,+  newWithScene,+  newWithParent,+  newWithSceneAndParent,+  QGraphicsViewSuper (..),+  QGraphicsViewSuperConst (..),+  QGraphicsViewCacheMode,+  IsQGraphicsViewCacheMode (..),+  cacheBackground,+  cacheNone,+  QGraphicsViewCacheModeFlag (..),+  QGraphicsViewDragMode (..),+  QGraphicsViewOptimizationFlag (..),+  QGraphicsViewOptimizationFlags,+  IsQGraphicsViewOptimizationFlags (..),+  dontAdjustForAntialiasing,+  dontClipPainter,+  dontSavePainterState,+  indirectPainting,+  QGraphicsViewViewportAnchor (..),+  QGraphicsViewViewportUpdateMode (..),+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+import qualified Graphics.UI.Qtah.Core.HPoint as HPoint+import qualified Graphics.UI.Qtah.Core.HPointF as HPointF+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.QPoint as M114+import qualified Graphics.UI.Qtah.Generated.Core.QPointF as M116+import qualified Graphics.UI.Qtah.Generated.Core.QRect as M122+import qualified Graphics.UI.Qtah.Generated.Core.QRectF as M124+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Gui.QBrush as M246+import qualified Graphics.UI.Qtah.Generated.Gui.QPainter as M310+import qualified Graphics.UI.Qtah.Generated.Gui.QPainterPath as M312+import qualified Graphics.UI.Qtah.Generated.Gui.QPolygon as M318+import qualified Graphics.UI.Qtah.Generated.Gui.QPolygonF as M320+import qualified Graphics.UI.Qtah.Generated.Gui.QTransform as M336+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.QGraphicsItem as M404+import qualified Graphics.UI.Qtah.Generated.Widgets.QGraphicsScene as M412+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__QGraphicsView_new" new' ::  HoppyP.IO (HoppyF.Ptr QGraphicsView)+foreign import ccall "genpop__QGraphicsView_newWithScene" newWithScene' ::  HoppyF.Ptr M412.QGraphicsScene -> HoppyP.IO (HoppyF.Ptr QGraphicsView)+foreign import ccall "genpop__QGraphicsView_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QGraphicsView)+foreign import ccall "genpop__QGraphicsView_newWithSceneAndParent" newWithSceneAndParent' ::  HoppyF.Ptr M412.QGraphicsScene -> HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QGraphicsView)+foreign import ccall "genpop__QGraphicsView_alignment" alignment' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsView_backgroundBrush" backgroundBrush' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QGraphicsView_cacheMode" cacheMode' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsView_centerOnPointF" centerOnPointF' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_centerOnRaw" centerOnRaw' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_centerOnItem" centerOnItem' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M404.QGraphicsItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_dragMode" dragMode' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsView_ensureVisibleRectF" ensureVisibleRectF' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M124.QRectFConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_ensureVisibleRaw" ensureVisibleRaw' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_ensureVisibleItem" ensureVisibleItem' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M404.QGraphicsItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_ensureVisibleRectFAll" ensureVisibleRectFAll' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M124.QRectFConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_ensureVisibleRawAll" ensureVisibleRawAll' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_ensureVisibleItemAll" ensureVisibleItemAll' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M404.QGraphicsItemConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_fitInViewRectF" fitInViewRectF' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M124.QRectFConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_fitInViewRect" fitInViewRect' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_fitInViewItem" fitInViewItem' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M404.QGraphicsItemConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_fitInViewRectFAll" fitInViewRectFAll' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M124.QRectFConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_fitInViewRectAll" fitInViewRectAll' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_fitInViewItemAll" fitInViewItemAll' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M404.QGraphicsItemConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_foregroundBrush" foregroundBrush' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QGraphicsView_isInteractive" isInteractive' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsView_isTransformed" isTransformed' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QGraphicsView_itemAtPoint" itemAtPoint' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr M404.QGraphicsItem)+foreign import ccall "genpop__QGraphicsView_itemAtRaw" itemAtRaw' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M404.QGraphicsItem)+foreign import ccall "genpop__QGraphicsView_mapFromScenePointF" mapFromScenePointF' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyF.Ptr M116.QPointFConst -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QGraphicsView_mapFromSceneRectF" mapFromSceneRectF' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyF.Ptr M124.QRectFConst -> HoppyP.IO (HoppyF.Ptr M318.QPolygonConst)+foreign import ccall "genpop__QGraphicsView_mapFromScenePolygonF" mapFromScenePolygonF' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyF.Ptr M320.QPolygonFConst -> HoppyP.IO (HoppyF.Ptr M318.QPolygonConst)+foreign import ccall "genpop__QGraphicsView_mapFromScenePainterPath" mapFromScenePainterPath' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyF.Ptr M312.QPainterPathConst -> HoppyP.IO (HoppyF.Ptr M312.QPainterPathConst)+foreign import ccall "genpop__QGraphicsView_mapFromScenePointFRaw" mapFromScenePointFRaw' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr M114.QPointConst)+foreign import ccall "genpop__QGraphicsView_mapFromSceneRectFRaw" mapFromSceneRectFRaw' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO (HoppyF.Ptr M318.QPolygonConst)+foreign import ccall "genpop__QGraphicsView_mapToScenePoint" mapToScenePoint' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QGraphicsView_mapToSceneRect" mapToSceneRect' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO (HoppyF.Ptr M320.QPolygonFConst)+foreign import ccall "genpop__QGraphicsView_mapToScenePolygon" mapToScenePolygon' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyF.Ptr M318.QPolygonConst -> HoppyP.IO (HoppyF.Ptr M320.QPolygonFConst)+foreign import ccall "genpop__QGraphicsView_mapToScenePainterPath" mapToScenePainterPath' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyF.Ptr M312.QPainterPathConst -> HoppyP.IO (HoppyF.Ptr M312.QPainterPathConst)+foreign import ccall "genpop__QGraphicsView_mapToScenePointRaw" mapToScenePointRaw' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M116.QPointFConst)+foreign import ccall "genpop__QGraphicsView_mapToSceneRectRaw" mapToSceneRectRaw' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M320.QPolygonFConst)+foreign import ccall "genpop__QGraphicsView_optimizationFlags" optimizationFlags' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsView_render" render' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M310.QPainter -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_renderAll" renderAll' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M310.QPainter -> HoppyF.Ptr M124.QRectFConst -> HoppyF.Ptr M122.QRectConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_renderHints" renderHints' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsView_resetCachedContent" resetCachedContent' ::  HoppyF.Ptr QGraphicsView -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_resetMatrix" resetMatrix' ::  HoppyF.Ptr QGraphicsView -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_resetTransform" resetTransform' ::  HoppyF.Ptr QGraphicsView -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_resizeAnchor" resizeAnchor' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsView_rotate" rotate' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_scale" scale' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_scene" scene' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO (HoppyF.Ptr M412.QGraphicsScene)+foreign import ccall "genpop__QGraphicsView_sceneRect" sceneRect' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO (HoppyF.Ptr M124.QRectFConst)+foreign import ccall "genpop__QGraphicsView_setAlignment" setAlignment' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setBackgroundBrush" setBackgroundBrush' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setCacheMode" setCacheMode' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setDragMode" setDragMode' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setForegroundBrush" setForegroundBrush' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setInteractive" setInteractive' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setOptimizationFlag" setOptimizationFlag' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setOptimizationFlagAll" setOptimizationFlagAll' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CInt -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setOptimizationFlags" setOptimizationFlags' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setRenderHint" setRenderHint' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setRenderHintAll" setRenderHintAll' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CInt -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setRenderHints" setRenderHints' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setResizeAnchor" setResizeAnchor' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setScene" setScene' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M412.QGraphicsScene -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setSceneRectF" setSceneRectF' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M124.QRectFConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setSceneRectRaw" setSceneRectRaw' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setTransform" setTransform' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M336.QTransformConst -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setTransformAll" setTransformAll' ::  HoppyF.Ptr QGraphicsView -> HoppyF.Ptr M336.QTransformConst -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setTransformationAnchor" setTransformationAnchor' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_setViewportUpdateMode" setViewportUpdateMode' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_shear" shear' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_transform" transform' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO (HoppyF.Ptr M336.QTransformConst)+foreign import ccall "genpop__QGraphicsView_transformationAnchor" transformationAnchor' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGraphicsView_translate" translate' ::  HoppyF.Ptr QGraphicsView -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QGraphicsView_viewportTransform" viewportTransform' ::  HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO (HoppyF.Ptr M336.QTransformConst)+foreign import ccall "gencast__QGraphicsView__QAbstractScrollArea" castQGraphicsViewToQAbstractScrollArea :: HoppyF.Ptr QGraphicsViewConst -> HoppyF.Ptr M362.QAbstractScrollAreaConst+foreign import ccall "gencast__QAbstractScrollArea__QGraphicsView" castQAbstractScrollAreaToQGraphicsView :: HoppyF.Ptr M362.QAbstractScrollAreaConst -> HoppyF.Ptr QGraphicsViewConst+foreign import ccall "gencast__QGraphicsView__QFrame" castQGraphicsViewToQFrame :: HoppyF.Ptr QGraphicsViewConst -> HoppyF.Ptr M400.QFrameConst+foreign import ccall "gencast__QFrame__QGraphicsView" castQFrameToQGraphicsView :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr QGraphicsViewConst+foreign import ccall "gencast__QGraphicsView__QWidget" castQGraphicsViewToQWidget :: HoppyF.Ptr QGraphicsViewConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QGraphicsView" castQWidgetToQGraphicsView :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QGraphicsViewConst+foreign import ccall "gencast__QGraphicsView__QObject" castQGraphicsViewToQObject :: HoppyF.Ptr QGraphicsViewConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QGraphicsView" castQObjectToQGraphicsView :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QGraphicsViewConst+foreign import ccall "gendel__QGraphicsView" delete'QGraphicsView :: HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO ()+foreign import ccall "&gendel__QGraphicsView" deletePtr'QGraphicsView :: HoppyF.FunPtr (HoppyF.Ptr QGraphicsViewConst -> HoppyP.IO ())++class QGraphicsViewValue a where+  withQGraphicsViewPtr :: a -> (QGraphicsViewConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGraphicsViewConstPtr a => QGraphicsViewValue a where+  withQGraphicsViewPtr = HoppyP.flip ($) . toQGraphicsViewConst++class (M362.QAbstractScrollAreaConstPtr this) => QGraphicsViewConstPtr this where+  toQGraphicsViewConst :: this -> QGraphicsViewConst++alignment :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtAlignment)+alignment arg'1 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (alignment' arg'1')++backgroundBrush :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrush)+backgroundBrush arg'1 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M246.QBrushConst) =<<+  (backgroundBrush' arg'1')++cacheMode :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QGraphicsViewCacheMode)+cacheMode arg'1 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (cacheMode' arg'1')++dragMode :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QGraphicsViewDragMode)+dragMode arg'1 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (dragMode' arg'1')++foregroundBrush :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrush)+foregroundBrush arg'1 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M246.QBrushConst) =<<+  (foregroundBrush' arg'1')++isInteractive :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isInteractive arg'1 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isInteractive' arg'1')++isTransformed :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isTransformed arg'1 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isTransformed' arg'1')++itemAtPoint :: (QGraphicsViewValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M404.QGraphicsItem)+itemAtPoint arg'1 arg'2 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap M404.QGraphicsItem+  (itemAtPoint' arg'1' arg'2')++itemAtRaw :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO M404.QGraphicsItem)+itemAtRaw arg'1 arg'2 arg'3 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap M404.QGraphicsItem+  (itemAtRaw' arg'1' arg'2' arg'3')++mapFromScenePointF :: (QGraphicsViewValue this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HPoint.HPoint)+mapFromScenePointF arg'1 arg'2 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (mapFromScenePointF' arg'1' arg'2')++mapFromSceneRectF :: (QGraphicsViewValue this, M124.QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M318.QPolygon)+mapFromSceneRectF arg'1 arg'2 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M124.withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M318.QPolygonConst) =<<+  (mapFromSceneRectF' arg'1' arg'2')++mapFromScenePolygonF :: (QGraphicsViewValue this, M320.QPolygonFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M318.QPolygon)+mapFromScenePolygonF arg'1 arg'2 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M320.withQPolygonFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M318.QPolygonConst) =<<+  (mapFromScenePolygonF' arg'1' arg'2')++mapFromScenePainterPath :: (QGraphicsViewValue this, M312.QPainterPathValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M312.QPainterPath)+mapFromScenePainterPath arg'1 arg'2 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M312.withQPainterPathPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M312.QPainterPathConst) =<<+  (mapFromScenePainterPath' arg'1' arg'2')++mapFromScenePointFRaw :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO HPoint.HPoint)+mapFromScenePointFRaw arg'1 arg'2 arg'3 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M114.QPointConst) =<<+  (mapFromScenePointFRaw' arg'1' arg'2' arg'3')++mapFromSceneRectFRaw :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO M318.QPolygon)+mapFromSceneRectFRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (HoppyFHR.decodeAndDelete . M318.QPolygonConst) =<<+  (mapFromSceneRectFRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++mapToScenePoint :: (QGraphicsViewValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HPointF.HPointF)+mapToScenePoint arg'1 arg'2 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (mapToScenePoint' arg'1' arg'2')++mapToSceneRect :: (QGraphicsViewValue this, M122.QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M320.QPolygonF)+mapToSceneRect arg'1 arg'2 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M122.withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M320.QPolygonFConst) =<<+  (mapToSceneRect' arg'1' arg'2')++mapToScenePolygon :: (QGraphicsViewValue this, M318.QPolygonValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M320.QPolygonF)+mapToScenePolygon arg'1 arg'2 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M318.withQPolygonPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M320.QPolygonFConst) =<<+  (mapToScenePolygon' arg'1' arg'2')++mapToScenePainterPath :: (QGraphicsViewValue this, M312.QPainterPathValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M312.QPainterPath)+mapToScenePainterPath arg'1 arg'2 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M312.withQPainterPathPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M312.QPainterPathConst) =<<+  (mapToScenePainterPath' arg'1' arg'2')++mapToScenePointRaw :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HPointF.HPointF)+mapToScenePointRaw arg'1 arg'2 arg'3 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M116.QPointFConst) =<<+  (mapToScenePointRaw' arg'1' arg'2' arg'3')++mapToSceneRectRaw :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO M320.QPolygonF)+mapToSceneRectRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \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' ->+  (HoppyFHR.decodeAndDelete . M320.QPolygonFConst) =<<+  (mapToSceneRectRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++optimizationFlags :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QGraphicsViewOptimizationFlags)+optimizationFlags arg'1 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (optimizationFlags' arg'1')++renderHints :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M310.QPainterRenderHints)+renderHints arg'1 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (renderHints' arg'1')++resizeAnchor :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QGraphicsViewViewportAnchor)+resizeAnchor arg'1 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (resizeAnchor' arg'1')++scene :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M412.QGraphicsScene)+scene arg'1 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M412.QGraphicsScene+  (scene' arg'1')++sceneRect :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M124.QRectF)+sceneRect arg'1 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M124.QRectFConst) =<<+  (sceneRect' arg'1')++transform :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M336.QTransform)+transform arg'1 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M336.QTransformConst) =<<+  (transform' arg'1')++transformationAnchor :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QGraphicsViewViewportAnchor)+transformationAnchor arg'1 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (transformationAnchor' arg'1')++viewportTransform :: (QGraphicsViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M336.QTransform)+viewportTransform arg'1 =+  withQGraphicsViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M336.QTransformConst) =<<+  (viewportTransform' arg'1')++class (QGraphicsViewConstPtr this, M362.QAbstractScrollAreaPtr this) => QGraphicsViewPtr this where+  toQGraphicsView :: this -> QGraphicsView++centerOnPointF :: (QGraphicsViewPtr this, M116.QPointFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+centerOnPointF arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  M116.withQPointFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (centerOnPointF' arg'1' arg'2')++centerOnRaw :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+centerOnRaw arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (centerOnRaw' arg'1' arg'2' arg'3')++centerOnItem :: (QGraphicsViewPtr this, M404.QGraphicsItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+centerOnItem arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  M404.withQGraphicsItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (centerOnItem' arg'1' arg'2')++ensureVisibleRectF :: (QGraphicsViewPtr this, M124.QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+ensureVisibleRectF arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  M124.withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (ensureVisibleRectF' arg'1' arg'2')++ensureVisibleRaw :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+ensureVisibleRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (ensureVisibleRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++ensureVisibleItem :: (QGraphicsViewPtr this, M404.QGraphicsItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+ensureVisibleItem arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  M404.withQGraphicsItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (ensureVisibleItem' arg'1' arg'2')++ensureVisibleRectFAll :: (QGraphicsViewPtr this, M124.QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+ensureVisibleRectFAll arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  M124.withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (ensureVisibleRectFAll' arg'1' arg'2' arg'3' arg'4')++ensureVisibleRawAll :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+ensureVisibleRawAll arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'7 >>= \arg'7' ->+  (ensureVisibleRawAll' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7')++ensureVisibleItemAll :: (QGraphicsViewPtr this, M404.QGraphicsItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+ensureVisibleItemAll arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  M404.withQGraphicsItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (ensureVisibleItemAll' arg'1' arg'2' arg'3' arg'4')++fitInViewRectF :: (QGraphicsViewPtr this, M124.QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+fitInViewRectF arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  M124.withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (fitInViewRectF' arg'1' arg'2')++fitInViewRect :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+fitInViewRect arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (fitInViewRect' arg'1' arg'2' arg'3' arg'4' arg'5')++fitInViewItem :: (QGraphicsViewPtr this, M404.QGraphicsItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+fitInViewItem arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  M404.withQGraphicsItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (fitInViewItem' arg'1' arg'2')++fitInViewRectFAll :: (QGraphicsViewPtr this, M124.QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtAspectRatioMode) -> (HoppyP.IO ())+fitInViewRectFAll arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  M124.withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (fitInViewRectFAll' arg'1' arg'2' arg'3')++fitInViewRectAll :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (M190.QtAspectRatioMode) -> (HoppyP.IO ())+fitInViewRectAll arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'6 >>= \arg'6' ->+  (fitInViewRectAll' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++fitInViewItemAll :: (QGraphicsViewPtr this, M404.QGraphicsItemValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M190.QtAspectRatioMode) -> (HoppyP.IO ())+fitInViewItemAll arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  M404.withQGraphicsItemPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (fitInViewItemAll' arg'1' arg'2' arg'3')++render :: (QGraphicsViewPtr this, M310.QPainterPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+render arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M310.toQPainter arg'2) $ \arg'2' ->+  (render' arg'1' arg'2')++renderAll :: (QGraphicsViewPtr this, M310.QPainterPtr arg'2, M124.QRectFValue arg'3, M122.QRectValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (M190.QtAspectRatioMode) -> (HoppyP.IO ())+renderAll arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M310.toQPainter arg'2) $ \arg'2' ->+  M124.withQRectFPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M122.withQRectPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'5 >>= \arg'5' ->+  (renderAll' arg'1' arg'2' arg'3' arg'4' arg'5')++resetCachedContent :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+resetCachedContent arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (resetCachedContent' arg'1')++resetMatrix :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+resetMatrix arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (resetMatrix' arg'1')++resetTransform :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+resetTransform arg'1 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (resetTransform' arg'1')++rotate :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+rotate arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (rotate' arg'1' arg'2')++scale :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+scale arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (scale' arg'1' arg'2' arg'3')++setAlignment :: (QGraphicsViewPtr this, M190.IsQtAlignment arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setAlignment arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'2 >>= \arg'2' ->+  (setAlignment' arg'1' arg'2')++setBackgroundBrush :: (QGraphicsViewPtr this, M246.QBrushValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setBackgroundBrush arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  M246.withQBrushPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setBackgroundBrush' arg'1' arg'2')++setCacheMode :: (QGraphicsViewPtr this, IsQGraphicsViewCacheMode arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setCacheMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQGraphicsViewCacheMode+  ) arg'2 >>= \arg'2' ->+  (setCacheMode' arg'1' arg'2')++setDragMode :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (QGraphicsViewDragMode) -> (HoppyP.IO ())+setDragMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setDragMode' arg'1' arg'2')++setForegroundBrush :: (QGraphicsViewPtr this, M246.QBrushValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setForegroundBrush arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  M246.withQBrushPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setForegroundBrush' arg'1' arg'2')++setInteractive :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setInteractive arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setInteractive' arg'1' arg'2')++setOptimizationFlag :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (QGraphicsViewOptimizationFlag) -> (HoppyP.IO ())+setOptimizationFlag arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setOptimizationFlag' arg'1' arg'2')++setOptimizationFlagAll :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (QGraphicsViewOptimizationFlag) -> (HoppyP.Bool) -> (HoppyP.IO ())+setOptimizationFlagAll arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'3 >>= \arg'3' ->+  (setOptimizationFlagAll' arg'1' arg'2' arg'3')++setOptimizationFlags :: (QGraphicsViewPtr this, IsQGraphicsViewOptimizationFlags arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setOptimizationFlags arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQGraphicsViewOptimizationFlags+  ) arg'2 >>= \arg'2' ->+  (setOptimizationFlags' arg'1' arg'2')++setRenderHint :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (M310.QPainterRenderHint) -> (HoppyP.IO ())+setRenderHint arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setRenderHint' arg'1' arg'2')++setRenderHintAll :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (M310.QPainterRenderHint) -> (HoppyP.Bool) -> (HoppyP.IO ())+setRenderHintAll arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'3 >>= \arg'3' ->+  (setRenderHintAll' arg'1' arg'2' arg'3')++setRenderHints :: (QGraphicsViewPtr this, M310.IsQPainterRenderHints arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setRenderHints arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M310.toQPainterRenderHints+  ) arg'2 >>= \arg'2' ->+  (setRenderHints' arg'1' arg'2')++setResizeAnchor :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (QGraphicsViewViewportAnchor) -> (HoppyP.IO ())+setResizeAnchor arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setResizeAnchor' arg'1' arg'2')++setScene :: (QGraphicsViewPtr this, M412.QGraphicsScenePtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setScene arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M412.toQGraphicsScene arg'2) $ \arg'2' ->+  (setScene' arg'1' arg'2')++setSceneRectF :: (QGraphicsViewPtr this, M124.QRectFValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setSceneRectF arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  M124.withQRectFPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setSceneRectF' arg'1' arg'2')++setSceneRectRaw :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setSceneRectRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (setSceneRectRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++setTransform :: (QGraphicsViewPtr this, M336.QTransformValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTransform arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  M336.withQTransformPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setTransform' arg'1' arg'2')++setTransformAll :: (QGraphicsViewPtr this, M336.QTransformValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Bool) -> (HoppyP.IO ())+setTransformAll arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  M336.withQTransformPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'3 >>= \arg'3' ->+  (setTransformAll' arg'1' arg'2' arg'3')++setTransformationAnchor :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (QGraphicsViewViewportAnchor) -> (HoppyP.IO ())+setTransformationAnchor arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setTransformationAnchor' arg'1' arg'2')++setViewportUpdateMode :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (QGraphicsViewViewportUpdateMode) -> (HoppyP.IO ())+setViewportUpdateMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setViewportUpdateMode' arg'1' arg'2')++shear :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+shear arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (shear' arg'1' arg'2' arg'3')++translate :: (QGraphicsViewPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+translate arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGraphicsView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (translate' arg'1' arg'2' arg'3')++data QGraphicsViewConst =+    QGraphicsViewConst (HoppyF.Ptr QGraphicsViewConst)+  | QGraphicsViewConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsViewConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsViewConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsViewConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsViewToConst :: QGraphicsView -> QGraphicsViewConst+castQGraphicsViewToConst (QGraphicsView ptr') = QGraphicsViewConst $ HoppyF.castPtr ptr'+castQGraphicsViewToConst (QGraphicsViewGc fptr' ptr') = QGraphicsViewConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsViewConst where+  nullptr = QGraphicsViewConst HoppyF.nullPtr+  +  withCppPtr (QGraphicsViewConst ptr') f' = f' ptr'+  withCppPtr (QGraphicsViewConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsViewConst ptr') = ptr'+  toPtr (QGraphicsViewConstGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsViewConst _) = HoppyP.return ()+  touchCppPtr (QGraphicsViewConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsViewConst where+  delete (QGraphicsViewConst ptr') = delete'QGraphicsView ptr'+  delete (QGraphicsViewConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsViewConst", " object."]+  +  toGc this'@(QGraphicsViewConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsViewConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsView :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsViewConstGc {}) = HoppyP.return this'++instance QGraphicsViewConstPtr QGraphicsViewConst where+  toQGraphicsViewConst = HoppyP.id++instance M362.QAbstractScrollAreaConstPtr QGraphicsViewConst where+  toQAbstractScrollAreaConst (QGraphicsViewConst ptr') = M362.QAbstractScrollAreaConst $ castQGraphicsViewToQAbstractScrollArea ptr'+  toQAbstractScrollAreaConst (QGraphicsViewConstGc fptr' ptr') = M362.QAbstractScrollAreaConstGc fptr' $ castQGraphicsViewToQAbstractScrollArea ptr'++instance M400.QFrameConstPtr QGraphicsViewConst where+  toQFrameConst (QGraphicsViewConst ptr') = M400.QFrameConst $ castQGraphicsViewToQFrame ptr'+  toQFrameConst (QGraphicsViewConstGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQGraphicsViewToQFrame ptr'++instance M506.QWidgetConstPtr QGraphicsViewConst where+  toQWidgetConst (QGraphicsViewConst ptr') = M506.QWidgetConst $ castQGraphicsViewToQWidget ptr'+  toQWidgetConst (QGraphicsViewConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQGraphicsViewToQWidget ptr'++instance M94.QObjectConstPtr QGraphicsViewConst where+  toQObjectConst (QGraphicsViewConst ptr') = M94.QObjectConst $ castQGraphicsViewToQObject ptr'+  toQObjectConst (QGraphicsViewConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQGraphicsViewToQObject ptr'++data QGraphicsView =+    QGraphicsView (HoppyF.Ptr QGraphicsView)+  | QGraphicsViewGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGraphicsView)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGraphicsView where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGraphicsView where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGraphicsViewToNonconst :: QGraphicsViewConst -> QGraphicsView+castQGraphicsViewToNonconst (QGraphicsViewConst ptr') = QGraphicsView $ HoppyF.castPtr ptr'+castQGraphicsViewToNonconst (QGraphicsViewConstGc fptr' ptr') = QGraphicsViewGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGraphicsView where+  nullptr = QGraphicsView HoppyF.nullPtr+  +  withCppPtr (QGraphicsView ptr') f' = f' ptr'+  withCppPtr (QGraphicsViewGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGraphicsView ptr') = ptr'+  toPtr (QGraphicsViewGc _ ptr') = ptr'+  +  touchCppPtr (QGraphicsView _) = HoppyP.return ()+  touchCppPtr (QGraphicsViewGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGraphicsView where+  delete (QGraphicsView ptr') = delete'QGraphicsView $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QGraphicsViewConst)+  delete (QGraphicsViewGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGraphicsView", " object."]+  +  toGc this'@(QGraphicsView ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGraphicsViewGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGraphicsView :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGraphicsViewGc {}) = HoppyP.return this'++instance QGraphicsViewConstPtr QGraphicsView where+  toQGraphicsViewConst (QGraphicsView ptr') = QGraphicsViewConst $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'+  toQGraphicsViewConst (QGraphicsViewGc fptr' ptr') = QGraphicsViewConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'++instance QGraphicsViewPtr QGraphicsView where+  toQGraphicsView = HoppyP.id++instance M362.QAbstractScrollAreaConstPtr QGraphicsView where+  toQAbstractScrollAreaConst (QGraphicsView ptr') = M362.QAbstractScrollAreaConst $ castQGraphicsViewToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'+  toQAbstractScrollAreaConst (QGraphicsViewGc fptr' ptr') = M362.QAbstractScrollAreaConstGc fptr' $ castQGraphicsViewToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'++instance M362.QAbstractScrollAreaPtr QGraphicsView where+  toQAbstractScrollArea (QGraphicsView ptr') = M362.QAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr M362.QAbstractScrollAreaConst -> HoppyF.Ptr M362.QAbstractScrollArea) $ castQGraphicsViewToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'+  toQAbstractScrollArea (QGraphicsViewGc fptr' ptr') = M362.QAbstractScrollAreaGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M362.QAbstractScrollAreaConst -> HoppyF.Ptr M362.QAbstractScrollArea) $ castQGraphicsViewToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'++instance M400.QFrameConstPtr QGraphicsView where+  toQFrameConst (QGraphicsView ptr') = M400.QFrameConst $ castQGraphicsViewToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'+  toQFrameConst (QGraphicsViewGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQGraphicsViewToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'++instance M400.QFramePtr QGraphicsView where+  toQFrame (QGraphicsView ptr') = M400.QFrame $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQGraphicsViewToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'+  toQFrame (QGraphicsViewGc fptr' ptr') = M400.QFrameGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQGraphicsViewToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'++instance M506.QWidgetConstPtr QGraphicsView where+  toQWidgetConst (QGraphicsView ptr') = M506.QWidgetConst $ castQGraphicsViewToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'+  toQWidgetConst (QGraphicsViewGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQGraphicsViewToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'++instance M506.QWidgetPtr QGraphicsView where+  toQWidget (QGraphicsView ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQGraphicsViewToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'+  toQWidget (QGraphicsViewGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQGraphicsViewToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'++instance M94.QObjectConstPtr QGraphicsView where+  toQObjectConst (QGraphicsView ptr') = M94.QObjectConst $ castQGraphicsViewToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'+  toQObjectConst (QGraphicsViewGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQGraphicsViewToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'++instance M94.QObjectPtr QGraphicsView where+  toQObject (QGraphicsView ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQGraphicsViewToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'+  toQObject (QGraphicsViewGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQGraphicsViewToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGraphicsView -> HoppyF.Ptr QGraphicsViewConst) ptr'++new :: (HoppyP.IO QGraphicsView)+new =+  HoppyP.fmap QGraphicsView+  (new')++newWithScene :: (M412.QGraphicsScenePtr arg'1) => (arg'1) -> (HoppyP.IO QGraphicsView)+newWithScene arg'1 =+  HoppyFHR.withCppPtr (M412.toQGraphicsScene arg'1) $ \arg'1' ->+  HoppyP.fmap QGraphicsView+  (newWithScene' arg'1')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QGraphicsView)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QGraphicsView+  (newWithParent' arg'1')++newWithSceneAndParent :: (M412.QGraphicsScenePtr arg'1, M506.QWidgetPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QGraphicsView)+newWithSceneAndParent arg'1 arg'2 =+  HoppyFHR.withCppPtr (M412.toQGraphicsScene arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  HoppyP.fmap QGraphicsView+  (newWithSceneAndParent' arg'1' arg'2')++class QGraphicsViewSuper a where+  downToQGraphicsView :: a -> QGraphicsView++instance QGraphicsViewSuper M362.QAbstractScrollArea where+  downToQGraphicsView = castQGraphicsViewToNonconst . cast' . M362.castQAbstractScrollAreaToConst+    where+      cast' (M362.QAbstractScrollAreaConst ptr') = QGraphicsViewConst $ castQAbstractScrollAreaToQGraphicsView ptr'+      cast' (M362.QAbstractScrollAreaConstGc fptr' ptr') = QGraphicsViewConstGc fptr' $ castQAbstractScrollAreaToQGraphicsView ptr'+instance QGraphicsViewSuper M400.QFrame where+  downToQGraphicsView = castQGraphicsViewToNonconst . cast' . M400.castQFrameToConst+    where+      cast' (M400.QFrameConst ptr') = QGraphicsViewConst $ castQFrameToQGraphicsView ptr'+      cast' (M400.QFrameConstGc fptr' ptr') = QGraphicsViewConstGc fptr' $ castQFrameToQGraphicsView ptr'+instance QGraphicsViewSuper M506.QWidget where+  downToQGraphicsView = castQGraphicsViewToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QGraphicsViewConst $ castQWidgetToQGraphicsView ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QGraphicsViewConstGc fptr' $ castQWidgetToQGraphicsView ptr'+instance QGraphicsViewSuper M94.QObject where+  downToQGraphicsView = castQGraphicsViewToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QGraphicsViewConst $ castQObjectToQGraphicsView ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QGraphicsViewConstGc fptr' $ castQObjectToQGraphicsView ptr'++class QGraphicsViewSuperConst a where+  downToQGraphicsViewConst :: a -> QGraphicsViewConst++instance QGraphicsViewSuperConst M362.QAbstractScrollAreaConst where+  downToQGraphicsViewConst = cast'+    where+      cast' (M362.QAbstractScrollAreaConst ptr') = QGraphicsViewConst $ castQAbstractScrollAreaToQGraphicsView ptr'+      cast' (M362.QAbstractScrollAreaConstGc fptr' ptr') = QGraphicsViewConstGc fptr' $ castQAbstractScrollAreaToQGraphicsView ptr'+instance QGraphicsViewSuperConst M400.QFrameConst where+  downToQGraphicsViewConst = cast'+    where+      cast' (M400.QFrameConst ptr') = QGraphicsViewConst $ castQFrameToQGraphicsView ptr'+      cast' (M400.QFrameConstGc fptr' ptr') = QGraphicsViewConstGc fptr' $ castQFrameToQGraphicsView ptr'+instance QGraphicsViewSuperConst M506.QWidgetConst where+  downToQGraphicsViewConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QGraphicsViewConst $ castQWidgetToQGraphicsView ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QGraphicsViewConstGc fptr' $ castQWidgetToQGraphicsView ptr'+instance QGraphicsViewSuperConst M94.QObjectConst where+  downToQGraphicsViewConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QGraphicsViewConst $ castQObjectToQGraphicsView ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QGraphicsViewConstGc fptr' $ castQObjectToQGraphicsView ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QGraphicsView)) QGraphicsView where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGraphicsView)) QGraphicsView where+  decode = HoppyP.fmap QGraphicsView . HoppyF.peek++newtype QGraphicsViewCacheMode = QGraphicsViewCacheMode (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QGraphicsViewCacheModeFlag QGraphicsViewCacheMode where+  enumToFlags = QGraphicsViewCacheMode . QtahFHR.fromCppEnum+  flagsToEnum (QGraphicsViewCacheMode x') = QtahFHR.toCppEnum x'++class IsQGraphicsViewCacheMode a where+  toQGraphicsViewCacheMode :: a -> QGraphicsViewCacheMode++instance IsQGraphicsViewCacheMode QGraphicsViewCacheMode where toQGraphicsViewCacheMode = QtahP.id+instance IsQGraphicsViewCacheMode QGraphicsViewCacheModeFlag where toQGraphicsViewCacheMode = QtahFlags.enumToFlags+instance IsQGraphicsViewCacheMode (HoppyFC.CInt) where toQGraphicsViewCacheMode = QtahFlags.numToFlags++cacheBackground :: QGraphicsViewCacheMode+cacheBackground = QGraphicsViewCacheMode (1)++cacheNone :: QGraphicsViewCacheMode+cacheNone = QGraphicsViewCacheMode (0)++instance QtahDB.Bits QGraphicsViewCacheMode where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QGraphicsViewCacheModeFlag =+  CacheNone+  | CacheBackground+  | UnknownQGraphicsViewCacheModeFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsViewCacheModeFlag where+  fromCppEnum CacheNone = 0+  fromCppEnum CacheBackground = 1+  fromCppEnum (UnknownQGraphicsViewCacheModeFlag n) = n+  +  toCppEnum (0) = CacheNone+  toCppEnum (1) = CacheBackground+  toCppEnum n = UnknownQGraphicsViewCacheModeFlag n++instance HoppyP.Eq QGraphicsViewCacheModeFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGraphicsViewCacheModeFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QGraphicsViewDragMode =+  NoDrag+  | ScrollHandDrag+  | RubberBandDrag+  | UnknownQGraphicsViewDragMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsViewDragMode where+  fromCppEnum NoDrag = 0+  fromCppEnum ScrollHandDrag = 1+  fromCppEnum RubberBandDrag = 2+  fromCppEnum (UnknownQGraphicsViewDragMode n) = n+  +  toCppEnum (0) = NoDrag+  toCppEnum (1) = ScrollHandDrag+  toCppEnum (2) = RubberBandDrag+  toCppEnum n = UnknownQGraphicsViewDragMode n++instance HoppyP.Eq QGraphicsViewDragMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGraphicsViewDragMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QGraphicsViewOptimizationFlag =+  DontClipPainter+  | DontSavePainterState+  | DontAdjustForAntialiasing+  | IndirectPainting+  | UnknownQGraphicsViewOptimizationFlag (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsViewOptimizationFlag where+  fromCppEnum DontClipPainter = 1+  fromCppEnum DontSavePainterState = 2+  fromCppEnum DontAdjustForAntialiasing = 4+  fromCppEnum IndirectPainting = 8+  fromCppEnum (UnknownQGraphicsViewOptimizationFlag n) = n+  +  toCppEnum (1) = DontClipPainter+  toCppEnum (2) = DontSavePainterState+  toCppEnum (4) = DontAdjustForAntialiasing+  toCppEnum (8) = IndirectPainting+  toCppEnum n = UnknownQGraphicsViewOptimizationFlag n++instance HoppyP.Eq QGraphicsViewOptimizationFlag where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGraphicsViewOptimizationFlag where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QGraphicsViewOptimizationFlags = QGraphicsViewOptimizationFlags (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QGraphicsViewOptimizationFlag QGraphicsViewOptimizationFlags where+  enumToFlags = QGraphicsViewOptimizationFlags . QtahFHR.fromCppEnum+  flagsToEnum (QGraphicsViewOptimizationFlags x') = QtahFHR.toCppEnum x'++class IsQGraphicsViewOptimizationFlags a where+  toQGraphicsViewOptimizationFlags :: a -> QGraphicsViewOptimizationFlags++instance IsQGraphicsViewOptimizationFlags QGraphicsViewOptimizationFlags where toQGraphicsViewOptimizationFlags = QtahP.id+instance IsQGraphicsViewOptimizationFlags QGraphicsViewOptimizationFlag where toQGraphicsViewOptimizationFlags = QtahFlags.enumToFlags+instance IsQGraphicsViewOptimizationFlags (HoppyFC.CInt) where toQGraphicsViewOptimizationFlags = QtahFlags.numToFlags++dontAdjustForAntialiasing :: QGraphicsViewOptimizationFlags+dontAdjustForAntialiasing = QGraphicsViewOptimizationFlags (4)++dontClipPainter :: QGraphicsViewOptimizationFlags+dontClipPainter = QGraphicsViewOptimizationFlags (1)++dontSavePainterState :: QGraphicsViewOptimizationFlags+dontSavePainterState = QGraphicsViewOptimizationFlags (2)++indirectPainting :: QGraphicsViewOptimizationFlags+indirectPainting = QGraphicsViewOptimizationFlags (8)++instance QtahDB.Bits QGraphicsViewOptimizationFlags where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QGraphicsViewViewportAnchor =+  NoAnchor+  | AnchorViewCenter+  | AnchorUnderMouse+  | UnknownQGraphicsViewViewportAnchor (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsViewViewportAnchor where+  fromCppEnum NoAnchor = 0+  fromCppEnum AnchorViewCenter = 1+  fromCppEnum AnchorUnderMouse = 2+  fromCppEnum (UnknownQGraphicsViewViewportAnchor n) = n+  +  toCppEnum (0) = NoAnchor+  toCppEnum (1) = AnchorViewCenter+  toCppEnum (2) = AnchorUnderMouse+  toCppEnum n = UnknownQGraphicsViewViewportAnchor n++instance HoppyP.Eq QGraphicsViewViewportAnchor where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGraphicsViewViewportAnchor where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QGraphicsViewViewportUpdateMode =+  FullViewportUpdate+  | MinimalViewportUpdate+  | SmartViewportUpdate+  | BoundingRectViewportUpdate+  | NoViewportUpdate+  | UnknownQGraphicsViewViewportUpdateMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QGraphicsViewViewportUpdateMode where+  fromCppEnum FullViewportUpdate = 0+  fromCppEnum MinimalViewportUpdate = 1+  fromCppEnum SmartViewportUpdate = 2+  fromCppEnum BoundingRectViewportUpdate = 4+  fromCppEnum NoViewportUpdate = 3+  fromCppEnum (UnknownQGraphicsViewViewportUpdateMode n) = n+  +  toCppEnum (0) = FullViewportUpdate+  toCppEnum (1) = MinimalViewportUpdate+  toCppEnum (2) = SmartViewportUpdate+  toCppEnum (3) = NoViewportUpdate+  toCppEnum (4) = BoundingRectViewportUpdate+  toCppEnum n = UnknownQGraphicsViewViewportUpdateMode n++instance HoppyP.Eq QGraphicsViewViewportUpdateMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QGraphicsViewViewportUpdateMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Widgets/QGridLayout.hs view
@@ -0,0 +1,674 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QGridLayout (+  castQGridLayoutToQLayout,+  castQLayoutToQGridLayout,+  castQGridLayoutToQObject,+  castQObjectToQGridLayout,+  castQGridLayoutToQLayoutItem,+  castQLayoutItemToQGridLayout,+  QGridLayoutValue (..),+  QGridLayoutConstPtr (..),+  cellRect,+  columnCount,+  columnMinimumWidth,+  columnStretch,+  getItemRow,+  getItemColumn,+  getItemRowSpan,+  getItemColumnSpan,+  horizontalSpacing,+  itemAtPosition,+  originCorner,+  rowCount,+  rowMinimumHeight,+  rowStretch,+  spacing,+  verticalSpacing,+  QGridLayoutPtr (..),+  addItem,+  addItemWithSpan,+  addItemWithSpanAndAlignment,+  addLayout,+  addLayoutWithSpan,+  addLayoutWithSpanAndAlignment,+  addWidget,+  addWidgetWithSpan,+  addWidgetWithSpanAndAlignment,+  setHorizontalSpacing,+  setOriginCorner,+  setColumnMinimumWidth,+  setColumnStretch,+  setRowMinimumHeight,+  setRowStretch,+  setVerticalSpacing,+  QGridLayoutConst (..),+  castQGridLayoutToConst,+  QGridLayout (..),+  castQGridLayoutToNonconst,+  new,+  newWithParent,+  QGridLayoutSuper (..),+  QGridLayoutSuperConst (..),+  ) 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.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QRect as M122+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+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+import qualified Prelude as QtahP++foreign import ccall "genpop__QGridLayout_new" new' ::  HoppyP.IO (HoppyF.Ptr QGridLayout)+foreign import ccall "genpop__QGridLayout_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QGridLayout)+foreign import ccall "genpop__QGridLayout_addItem" addItem' ::  HoppyF.Ptr QGridLayout -> HoppyF.Ptr M434.QLayoutItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGridLayout_addItemWithSpan" addItemWithSpan' ::  HoppyF.Ptr QGridLayout -> HoppyF.Ptr M434.QLayoutItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGridLayout_addItemWithSpanAndAlignment" addItemWithSpanAndAlignment' ::  HoppyF.Ptr QGridLayout -> HoppyF.Ptr M434.QLayoutItem -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGridLayout_addLayout" addLayout' ::  HoppyF.Ptr QGridLayout -> HoppyF.Ptr M432.QLayout -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGridLayout_addLayoutWithSpan" addLayoutWithSpan' ::  HoppyF.Ptr QGridLayout -> HoppyF.Ptr M432.QLayout -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGridLayout_addLayoutWithSpanAndAlignment" addLayoutWithSpanAndAlignment' ::  HoppyF.Ptr QGridLayout -> HoppyF.Ptr M432.QLayout -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGridLayout_addWidget" addWidget' ::  HoppyF.Ptr QGridLayout -> HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGridLayout_addWidgetWithSpan" addWidgetWithSpan' ::  HoppyF.Ptr QGridLayout -> HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGridLayout_addWidgetWithSpanAndAlignment" addWidgetWithSpanAndAlignment' ::  HoppyF.Ptr QGridLayout -> HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGridLayout_cellRect" cellRect' ::  HoppyF.Ptr QGridLayoutConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QGridLayout_columnCount" columnCount' ::  HoppyF.Ptr QGridLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGridLayout_columnMinimumWidth" columnMinimumWidth' ::  HoppyF.Ptr QGridLayoutConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGridLayout_columnStretch" columnStretch' ::  HoppyF.Ptr QGridLayoutConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGridLayout_getItemRow" getItemRow' ::  HoppyF.Ptr QGridLayoutConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGridLayout_getItemColumn" getItemColumn' ::  HoppyF.Ptr QGridLayoutConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGridLayout_getItemRowSpan" getItemRowSpan' ::  HoppyF.Ptr QGridLayoutConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGridLayout_getItemColumnSpan" getItemColumnSpan' ::  HoppyF.Ptr QGridLayoutConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGridLayout_horizontalSpacing" horizontalSpacing' ::  HoppyF.Ptr QGridLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGridLayout_setHorizontalSpacing" setHorizontalSpacing' ::  HoppyF.Ptr QGridLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGridLayout_itemAtPosition" itemAtPosition' ::  HoppyF.Ptr QGridLayoutConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M434.QLayoutItem)+foreign import ccall "genpop__QGridLayout_originCorner" originCorner' ::  HoppyF.Ptr QGridLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGridLayout_setOriginCorner" setOriginCorner' ::  HoppyF.Ptr QGridLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGridLayout_rowCount" rowCount' ::  HoppyF.Ptr QGridLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGridLayout_rowMinimumHeight" rowMinimumHeight' ::  HoppyF.Ptr QGridLayoutConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGridLayout_rowStretch" rowStretch' ::  HoppyF.Ptr QGridLayoutConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGridLayout_setColumnMinimumWidth" setColumnMinimumWidth' ::  HoppyF.Ptr QGridLayout -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGridLayout_setColumnStretch" setColumnStretch' ::  HoppyF.Ptr QGridLayout -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGridLayout_setRowMinimumHeight" setRowMinimumHeight' ::  HoppyF.Ptr QGridLayout -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGridLayout_setRowStretch" setRowStretch' ::  HoppyF.Ptr QGridLayout -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QGridLayout_spacing" spacing' ::  HoppyF.Ptr QGridLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGridLayout_verticalSpacing" verticalSpacing' ::  HoppyF.Ptr QGridLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QGridLayout_setVerticalSpacing" setVerticalSpacing' ::  HoppyF.Ptr QGridLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QGridLayout__QLayout" castQGridLayoutToQLayout :: HoppyF.Ptr QGridLayoutConst -> HoppyF.Ptr M432.QLayoutConst+foreign import ccall "gencast__QLayout__QGridLayout" castQLayoutToQGridLayout :: HoppyF.Ptr M432.QLayoutConst -> HoppyF.Ptr QGridLayoutConst+foreign import ccall "gencast__QGridLayout__QObject" castQGridLayoutToQObject :: HoppyF.Ptr QGridLayoutConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QGridLayout" castQObjectToQGridLayout :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QGridLayoutConst+foreign import ccall "gencast__QGridLayout__QLayoutItem" castQGridLayoutToQLayoutItem :: HoppyF.Ptr QGridLayoutConst -> HoppyF.Ptr M434.QLayoutItemConst+foreign import ccall "gencast__QLayoutItem__QGridLayout" castQLayoutItemToQGridLayout :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr QGridLayoutConst+foreign import ccall "gendel__QGridLayout" delete'QGridLayout :: HoppyF.Ptr QGridLayoutConst -> HoppyP.IO ()+foreign import ccall "&gendel__QGridLayout" deletePtr'QGridLayout :: HoppyF.FunPtr (HoppyF.Ptr QGridLayoutConst -> HoppyP.IO ())++class QGridLayoutValue a where+  withQGridLayoutPtr :: a -> (QGridLayoutConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QGridLayoutConstPtr a => QGridLayoutValue a where+  withQGridLayoutPtr = HoppyP.flip ($) . toQGridLayoutConst++class (M432.QLayoutConstPtr this) => QGridLayoutConstPtr this where+  toQGridLayoutConst :: this -> QGridLayoutConst++cellRect :: (QGridLayoutValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO HRect.HRect)+cellRect arg'1 arg'2 arg'3 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<+  (cellRect' arg'1' arg'2' arg'3')++columnCount :: (QGridLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+columnCount arg'1 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (columnCount' arg'1')++columnMinimumWidth :: (QGridLayoutValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+columnMinimumWidth arg'1 arg'2 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (columnMinimumWidth' arg'1' arg'2')++columnStretch :: (QGridLayoutValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+columnStretch arg'1 arg'2 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (columnStretch' arg'1' arg'2')++getItemRow :: (QGridLayoutValue arg'1) => (arg'1) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+getItemRow arg'1 arg'2 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (getItemRow' arg'1' arg'2')++getItemColumn :: (QGridLayoutValue arg'1) => (arg'1) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+getItemColumn arg'1 arg'2 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (getItemColumn' arg'1' arg'2')++getItemRowSpan :: (QGridLayoutValue arg'1) => (arg'1) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+getItemRowSpan arg'1 arg'2 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (getItemRowSpan' arg'1' arg'2')++getItemColumnSpan :: (QGridLayoutValue arg'1) => (arg'1) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+getItemColumnSpan arg'1 arg'2 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (getItemColumnSpan' arg'1' arg'2')++horizontalSpacing :: (QGridLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+horizontalSpacing arg'1 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (horizontalSpacing' arg'1')++itemAtPosition :: (QGridLayoutValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO M434.QLayoutItem)+itemAtPosition arg'1 arg'2 arg'3 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap M434.QLayoutItem+  (itemAtPosition' arg'1' arg'2' arg'3')++originCorner :: (QGridLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtCorner)+originCorner arg'1 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (originCorner' arg'1')++rowCount :: (QGridLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+rowCount arg'1 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (rowCount' arg'1')++rowMinimumHeight :: (QGridLayoutValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+rowMinimumHeight arg'1 arg'2 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (rowMinimumHeight' arg'1' arg'2')++rowStretch :: (QGridLayoutValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+rowStretch arg'1 arg'2 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (rowStretch' arg'1' arg'2')++spacing :: (QGridLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+spacing arg'1 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (spacing' arg'1')++verticalSpacing :: (QGridLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+verticalSpacing arg'1 =+  withQGridLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (verticalSpacing' arg'1')++class (QGridLayoutConstPtr this, M432.QLayoutPtr this) => QGridLayoutPtr this where+  toQGridLayout :: this -> QGridLayout++addItem :: (QGridLayoutPtr this, M434.QLayoutItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+addItem arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQGridLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M434.toQLayoutItem arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (addItem' arg'1' arg'2' arg'3' arg'4')++addItemWithSpan :: (QGridLayoutPtr this, M434.QLayoutItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+addItemWithSpan arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  HoppyFHR.withCppPtr (toQGridLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M434.toQLayoutItem 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' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (addItemWithSpan' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++addItemWithSpanAndAlignment :: (QGridLayoutPtr this, M434.QLayoutItemPtr arg'2, M190.IsQtAlignment arg'7) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'7) -> (HoppyP.IO ())+addItemWithSpanAndAlignment arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 =+  HoppyFHR.withCppPtr (toQGridLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M434.toQLayoutItem 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' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'7 >>= \arg'7' ->+  (addItemWithSpanAndAlignment' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7')++addLayout :: (QGridLayoutPtr this, M432.QLayoutPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+addLayout arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQGridLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M432.toQLayout arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (addLayout' arg'1' arg'2' arg'3' arg'4')++addLayoutWithSpan :: (QGridLayoutPtr this, M432.QLayoutPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+addLayoutWithSpan arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  HoppyFHR.withCppPtr (toQGridLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M432.toQLayout 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' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (addLayoutWithSpan' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++addLayoutWithSpanAndAlignment :: (QGridLayoutPtr this, M432.QLayoutPtr arg'2, M190.IsQtAlignment arg'7) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'7) -> (HoppyP.IO ())+addLayoutWithSpanAndAlignment arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 =+  HoppyFHR.withCppPtr (toQGridLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M432.toQLayout 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' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'7 >>= \arg'7' ->+  (addLayoutWithSpanAndAlignment' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7')++addWidget :: (QGridLayoutPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+addWidget arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQGridLayout 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' ->+  (addWidget' arg'1' arg'2' arg'3' arg'4')++addWidgetWithSpan :: (QGridLayoutPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+addWidgetWithSpan arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 =+  HoppyFHR.withCppPtr (toQGridLayout 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' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'5 >>= \arg'5' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (addWidgetWithSpan' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6')++addWidgetWithSpanAndAlignment :: (QGridLayoutPtr this, M506.QWidgetPtr arg'2, M190.IsQtAlignment arg'7) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (arg'7) -> (HoppyP.IO ())+addWidgetWithSpanAndAlignment arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 =+  HoppyFHR.withCppPtr (toQGridLayout 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' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'5 >>= \arg'5' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'7 >>= \arg'7' ->+  (addWidgetWithSpanAndAlignment' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7')++setHorizontalSpacing :: (QGridLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setHorizontalSpacing arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGridLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setHorizontalSpacing' arg'1' arg'2')++setOriginCorner :: (QGridLayoutPtr this) => (this) {- ^ this -} -> (M190.QtCorner) -> (HoppyP.IO ())+setOriginCorner arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGridLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setOriginCorner' arg'1' arg'2')++setColumnMinimumWidth :: (QGridLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setColumnMinimumWidth arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGridLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (setColumnMinimumWidth' arg'1' arg'2' arg'3')++setColumnStretch :: (QGridLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setColumnStretch arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGridLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (setColumnStretch' arg'1' arg'2' arg'3')++setRowMinimumHeight :: (QGridLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setRowMinimumHeight arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGridLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (setRowMinimumHeight' arg'1' arg'2' arg'3')++setRowStretch :: (QGridLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setRowStretch arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQGridLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (setRowStretch' arg'1' arg'2' arg'3')++setVerticalSpacing :: (QGridLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setVerticalSpacing arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQGridLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setVerticalSpacing' arg'1' arg'2')++data QGridLayoutConst =+    QGridLayoutConst (HoppyF.Ptr QGridLayoutConst)+  | QGridLayoutConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGridLayoutConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGridLayoutConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGridLayoutConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGridLayoutToConst :: QGridLayout -> QGridLayoutConst+castQGridLayoutToConst (QGridLayout ptr') = QGridLayoutConst $ HoppyF.castPtr ptr'+castQGridLayoutToConst (QGridLayoutGc fptr' ptr') = QGridLayoutConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGridLayoutConst where+  nullptr = QGridLayoutConst HoppyF.nullPtr+  +  withCppPtr (QGridLayoutConst ptr') f' = f' ptr'+  withCppPtr (QGridLayoutConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGridLayoutConst ptr') = ptr'+  toPtr (QGridLayoutConstGc _ ptr') = ptr'+  +  touchCppPtr (QGridLayoutConst _) = HoppyP.return ()+  touchCppPtr (QGridLayoutConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGridLayoutConst where+  delete (QGridLayoutConst ptr') = delete'QGridLayout ptr'+  delete (QGridLayoutConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGridLayoutConst", " object."]+  +  toGc this'@(QGridLayoutConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGridLayoutConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGridLayout :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGridLayoutConstGc {}) = HoppyP.return this'++instance QGridLayoutConstPtr QGridLayoutConst where+  toQGridLayoutConst = HoppyP.id++instance M432.QLayoutConstPtr QGridLayoutConst where+  toQLayoutConst (QGridLayoutConst ptr') = M432.QLayoutConst $ castQGridLayoutToQLayout ptr'+  toQLayoutConst (QGridLayoutConstGc fptr' ptr') = M432.QLayoutConstGc fptr' $ castQGridLayoutToQLayout ptr'++instance M94.QObjectConstPtr QGridLayoutConst where+  toQObjectConst (QGridLayoutConst ptr') = M94.QObjectConst $ castQGridLayoutToQObject ptr'+  toQObjectConst (QGridLayoutConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQGridLayoutToQObject ptr'++instance M434.QLayoutItemConstPtr QGridLayoutConst where+  toQLayoutItemConst (QGridLayoutConst ptr') = M434.QLayoutItemConst $ castQGridLayoutToQLayoutItem ptr'+  toQLayoutItemConst (QGridLayoutConstGc fptr' ptr') = M434.QLayoutItemConstGc fptr' $ castQGridLayoutToQLayoutItem ptr'++data QGridLayout =+    QGridLayout (HoppyF.Ptr QGridLayout)+  | QGridLayoutGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QGridLayout)+  deriving (HoppyP.Show)++instance HoppyP.Eq QGridLayout where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QGridLayout where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQGridLayoutToNonconst :: QGridLayoutConst -> QGridLayout+castQGridLayoutToNonconst (QGridLayoutConst ptr') = QGridLayout $ HoppyF.castPtr ptr'+castQGridLayoutToNonconst (QGridLayoutConstGc fptr' ptr') = QGridLayoutGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QGridLayout where+  nullptr = QGridLayout HoppyF.nullPtr+  +  withCppPtr (QGridLayout ptr') f' = f' ptr'+  withCppPtr (QGridLayoutGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QGridLayout ptr') = ptr'+  toPtr (QGridLayoutGc _ ptr') = ptr'+  +  touchCppPtr (QGridLayout _) = HoppyP.return ()+  touchCppPtr (QGridLayoutGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QGridLayout where+  delete (QGridLayout ptr') = delete'QGridLayout $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QGridLayoutConst)+  delete (QGridLayoutGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QGridLayout", " object."]+  +  toGc this'@(QGridLayout ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QGridLayoutGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QGridLayout :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QGridLayoutGc {}) = HoppyP.return this'++instance QGridLayoutConstPtr QGridLayout where+  toQGridLayoutConst (QGridLayout ptr') = QGridLayoutConst $ (HoppyF.castPtr :: HoppyF.Ptr QGridLayout -> HoppyF.Ptr QGridLayoutConst) ptr'+  toQGridLayoutConst (QGridLayoutGc fptr' ptr') = QGridLayoutConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QGridLayout -> HoppyF.Ptr QGridLayoutConst) ptr'++instance QGridLayoutPtr QGridLayout where+  toQGridLayout = HoppyP.id++instance M432.QLayoutConstPtr QGridLayout where+  toQLayoutConst (QGridLayout ptr') = M432.QLayoutConst $ castQGridLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QGridLayout -> HoppyF.Ptr QGridLayoutConst) ptr'+  toQLayoutConst (QGridLayoutGc fptr' ptr') = M432.QLayoutConstGc fptr' $ castQGridLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QGridLayout -> HoppyF.Ptr QGridLayoutConst) ptr'++instance M432.QLayoutPtr QGridLayout where+  toQLayout (QGridLayout ptr') = M432.QLayout $ (HoppyF.castPtr :: HoppyF.Ptr M432.QLayoutConst -> HoppyF.Ptr M432.QLayout) $ castQGridLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QGridLayout -> HoppyF.Ptr QGridLayoutConst) ptr'+  toQLayout (QGridLayoutGc fptr' ptr') = M432.QLayoutGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M432.QLayoutConst -> HoppyF.Ptr M432.QLayout) $ castQGridLayoutToQLayout $ (HoppyF.castPtr :: HoppyF.Ptr QGridLayout -> HoppyF.Ptr QGridLayoutConst) ptr'++instance M94.QObjectConstPtr QGridLayout where+  toQObjectConst (QGridLayout ptr') = M94.QObjectConst $ castQGridLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGridLayout -> HoppyF.Ptr QGridLayoutConst) ptr'+  toQObjectConst (QGridLayoutGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQGridLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGridLayout -> HoppyF.Ptr QGridLayoutConst) ptr'++instance M94.QObjectPtr QGridLayout where+  toQObject (QGridLayout ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQGridLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGridLayout -> HoppyF.Ptr QGridLayoutConst) ptr'+  toQObject (QGridLayoutGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQGridLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QGridLayout -> HoppyF.Ptr QGridLayoutConst) ptr'++instance M434.QLayoutItemConstPtr QGridLayout where+  toQLayoutItemConst (QGridLayout ptr') = M434.QLayoutItemConst $ castQGridLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QGridLayout -> HoppyF.Ptr QGridLayoutConst) ptr'+  toQLayoutItemConst (QGridLayoutGc fptr' ptr') = M434.QLayoutItemConstGc fptr' $ castQGridLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QGridLayout -> HoppyF.Ptr QGridLayoutConst) ptr'++instance M434.QLayoutItemPtr QGridLayout where+  toQLayoutItem (QGridLayout ptr') = M434.QLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr M434.QLayoutItem) $ castQGridLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QGridLayout -> HoppyF.Ptr QGridLayoutConst) ptr'+  toQLayoutItem (QGridLayoutGc fptr' ptr') = M434.QLayoutItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr M434.QLayoutItem) $ castQGridLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QGridLayout -> HoppyF.Ptr QGridLayoutConst) ptr'++new :: (HoppyP.IO QGridLayout)+new =+  HoppyP.fmap QGridLayout+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QGridLayout)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QGridLayout+  (newWithParent' arg'1')++class QGridLayoutSuper a where+  downToQGridLayout :: a -> QGridLayout++instance QGridLayoutSuper M432.QLayout where+  downToQGridLayout = castQGridLayoutToNonconst . cast' . M432.castQLayoutToConst+    where+      cast' (M432.QLayoutConst ptr') = QGridLayoutConst $ castQLayoutToQGridLayout ptr'+      cast' (M432.QLayoutConstGc fptr' ptr') = QGridLayoutConstGc fptr' $ castQLayoutToQGridLayout ptr'+instance QGridLayoutSuper M94.QObject where+  downToQGridLayout = castQGridLayoutToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QGridLayoutConst $ castQObjectToQGridLayout ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QGridLayoutConstGc fptr' $ castQObjectToQGridLayout ptr'+instance QGridLayoutSuper M434.QLayoutItem where+  downToQGridLayout = castQGridLayoutToNonconst . cast' . M434.castQLayoutItemToConst+    where+      cast' (M434.QLayoutItemConst ptr') = QGridLayoutConst $ castQLayoutItemToQGridLayout ptr'+      cast' (M434.QLayoutItemConstGc fptr' ptr') = QGridLayoutConstGc fptr' $ castQLayoutItemToQGridLayout ptr'++class QGridLayoutSuperConst a where+  downToQGridLayoutConst :: a -> QGridLayoutConst++instance QGridLayoutSuperConst M432.QLayoutConst where+  downToQGridLayoutConst = cast'+    where+      cast' (M432.QLayoutConst ptr') = QGridLayoutConst $ castQLayoutToQGridLayout ptr'+      cast' (M432.QLayoutConstGc fptr' ptr') = QGridLayoutConstGc fptr' $ castQLayoutToQGridLayout ptr'+instance QGridLayoutSuperConst M94.QObjectConst where+  downToQGridLayoutConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QGridLayoutConst $ castQObjectToQGridLayout ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QGridLayoutConstGc fptr' $ castQObjectToQGridLayout ptr'+instance QGridLayoutSuperConst M434.QLayoutItemConst where+  downToQGridLayoutConst = cast'+    where+      cast' (M434.QLayoutItemConst ptr') = QGridLayoutConst $ castQLayoutItemToQGridLayout ptr'+      cast' (M434.QLayoutItemConstGc fptr' ptr') = QGridLayoutConstGc fptr' $ castQLayoutItemToQGridLayout ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QGridLayout)) QGridLayout where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QGridLayout)) QGridLayout where+  decode = HoppyP.fmap QGridLayout . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Widgets/QGroupBox.hs view
@@ -0,0 +1,333 @@+{-# 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
src/Graphics/UI/Qtah/Generated/Widgets/QHBoxLayout.hs view
@@ -0,0 +1,250 @@+{-# 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
src/Graphics/UI/Qtah/Generated/Widgets/QInputDialog.hs view
@@ -0,0 +1,938 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QInputDialog (+  castQInputDialogToQDialog,+  castQDialogToQInputDialog,+  castQInputDialogToQWidget,+  castQWidgetToQInputDialog,+  castQInputDialogToQObject,+  castQObjectToQInputDialog,+  QInputDialogValue (..),+  QInputDialogConstPtr (..),+  cancelButtonText,+  isComboBoxEditable,+  comboBoxItems,+  doubleDecimals,+  doubleMaximum,+  doubleMinimum,+  doubleValue,+  inputMode,+  intMaximum,+  intMinimum,+  intStep,+  intValue,+  labelText,+  okButtonText,+  options,+  testOption,+  textEchoMode,+  textValue,+  QInputDialogPtr (..),+  setCancelButtonText,+  setComboBoxEditable,+  setComboBoxItems,+  setDoubleDecimals,+  setDoubleMaximum,+  setDoubleMinimum,+  setDoubleValue,+  setInputMode,+  setIntMaximum,+  setIntMinimum,+  setIntStep,+  setIntValue,+  setLabelText,+  setOkButtonText,+  setOptions,+  setDoubleRange,+  setIntRange,+  setOption,+  setTextEchoMode,+  setTextValue,+  emitDoubleValueChanged,+  emitDoubleValueSelected,+  emitIntValueChanged,+  emitIntValueSelected,+  emitTextValueChanged,+  emitTextValueSelected,+  getDouble,+  getDoubleWithOptions,+  getInt,+  getIntWithOptions,+  getItem,+  getItemWithOptions,+  getMultiLineText,+  getMultiLineTextWithOptions,+  getText,+  getTextWithOptions,+  QInputDialogConst (..),+  castQInputDialogToConst,+  QInputDialog (..),+  castQInputDialogToNonconst,+  new,+  newWithParent,+  newWithParentAndFlags,+  QInputDialogSuper (..),+  QInputDialogSuperConst (..),+  QInputDialogInputDialogOption (..),+  QInputDialogInputDialogOptions,+  IsQInputDialogInputDialogOptions (..),+  noButtons,+  useListViewForComboBoxItems,+  usePlainTextEditForTextInput,+  QInputDialogInputMode (..),+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+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.QStringList as M144+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Widgets.QDialog as M388+import qualified Graphics.UI.Qtah.Generated.Widgets.QLineEdit as M438+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__QInputDialog_new" new' ::  HoppyP.IO (HoppyF.Ptr QInputDialog)+foreign import ccall "genpop__QInputDialog_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QInputDialog)+foreign import ccall "genpop__QInputDialog_newWithParentAndFlags" newWithParentAndFlags' ::  HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QInputDialog)+foreign import ccall "genpop__QInputDialog_cancelButtonText" cancelButtonText' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QInputDialog_setCancelButtonText" setCancelButtonText' ::  HoppyF.Ptr QInputDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_isComboBoxEditable" isComboBoxEditable' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QInputDialog_setComboBoxEditable" setComboBoxEditable' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_comboBoxItems" comboBoxItems' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO (HoppyF.Ptr M144.QStringListConst)+foreign import ccall "genpop__QInputDialog_setComboBoxItems" setComboBoxItems' ::  HoppyF.Ptr QInputDialog -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_doubleDecimals" doubleDecimals' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QInputDialog_setDoubleDecimals" setDoubleDecimals' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_doubleMaximum" doubleMaximum' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QInputDialog_setDoubleMaximum" setDoubleMaximum' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_doubleMinimum" doubleMinimum' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QInputDialog_setDoubleMinimum" setDoubleMinimum' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_doubleValue" doubleValue' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QInputDialog_setDoubleValue" setDoubleValue' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_getDouble" getDouble' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QInputDialog_getDoubleWithOptions" getDoubleWithOptions' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyFC.CInt -> HoppyF.Ptr HoppyFC.CBool -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QInputDialog_getInt" getInt' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QInputDialog_getIntWithOptions" getIntWithOptions' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyF.Ptr HoppyFC.CBool -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QInputDialog_getItem" getItem' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M144.QStringListConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QInputDialog_getItemWithOptions" getItemWithOptions' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M144.QStringListConst -> HoppyFC.CInt -> HoppyFC.CBool -> HoppyF.Ptr HoppyFC.CBool -> HoppyFC.CInt -> HoppyFC.CUInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QInputDialog_getMultiLineText" getMultiLineText' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QInputDialog_getMultiLineTextWithOptions" getMultiLineTextWithOptions' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyFC.CInt -> HoppyFC.CUInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QInputDialog_getText" getText' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QInputDialog_getTextWithOptions" getTextWithOptions' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M142.QStringConst -> HoppyFC.CInt -> HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr HoppyFC.CBool -> HoppyFC.CInt -> HoppyFC.CUInt -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QInputDialog_inputMode" inputMode' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QInputDialog_setInputMode" setInputMode' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_intMaximum" intMaximum' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QInputDialog_setIntMaximum" setIntMaximum' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_intMinimum" intMinimum' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QInputDialog_setIntMinimum" setIntMinimum' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_intStep" intStep' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QInputDialog_setIntStep" setIntStep' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_intValue" intValue' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QInputDialog_setIntValue" setIntValue' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_labelText" labelText' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QInputDialog_setLabelText" setLabelText' ::  HoppyF.Ptr QInputDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_okButtonText" okButtonText' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QInputDialog_setOkButtonText" setOkButtonText' ::  HoppyF.Ptr QInputDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_options" options' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QInputDialog_setOptions" setOptions' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_setDoubleRange" setDoubleRange' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CDouble -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_setIntRange" setIntRange' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_setOption" setOption' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CInt -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_testOption" testOption' ::  HoppyF.Ptr QInputDialogConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QInputDialog_textEchoMode" textEchoMode' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QInputDialog_setTextEchoMode" setTextEchoMode' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_textValue" textValue' ::  HoppyF.Ptr QInputDialogConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QInputDialog_setTextValue" setTextValue' ::  HoppyF.Ptr QInputDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_emitDoubleValueChanged" emitDoubleValueChanged' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_emitDoubleValueSelected" emitDoubleValueSelected' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_emitIntValueChanged" emitIntValueChanged' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_emitIntValueSelected" emitIntValueSelected' ::  HoppyF.Ptr QInputDialog -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_emitTextValueChanged" emitTextValueChanged' ::  HoppyF.Ptr QInputDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QInputDialog_emitTextValueSelected" emitTextValueSelected' ::  HoppyF.Ptr QInputDialog -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "gencast__QInputDialog__QDialog" castQInputDialogToQDialog :: HoppyF.Ptr QInputDialogConst -> HoppyF.Ptr M388.QDialogConst+foreign import ccall "gencast__QDialog__QInputDialog" castQDialogToQInputDialog :: HoppyF.Ptr M388.QDialogConst -> HoppyF.Ptr QInputDialogConst+foreign import ccall "gencast__QInputDialog__QWidget" castQInputDialogToQWidget :: HoppyF.Ptr QInputDialogConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QInputDialog" castQWidgetToQInputDialog :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QInputDialogConst+foreign import ccall "gencast__QInputDialog__QObject" castQInputDialogToQObject :: HoppyF.Ptr QInputDialogConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QInputDialog" castQObjectToQInputDialog :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QInputDialogConst+foreign import ccall "gendel__QInputDialog" delete'QInputDialog :: HoppyF.Ptr QInputDialogConst -> HoppyP.IO ()+foreign import ccall "&gendel__QInputDialog" deletePtr'QInputDialog :: HoppyF.FunPtr (HoppyF.Ptr QInputDialogConst -> HoppyP.IO ())++class QInputDialogValue a where+  withQInputDialogPtr :: a -> (QInputDialogConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QInputDialogConstPtr a => QInputDialogValue a where+  withQInputDialogPtr = HoppyP.flip ($) . toQInputDialogConst++class (M388.QDialogConstPtr this) => QInputDialogConstPtr this where+  toQInputDialogConst :: this -> QInputDialogConst++cancelButtonText :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+cancelButtonText arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (cancelButtonText' arg'1')++isComboBoxEditable :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isComboBoxEditable arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isComboBoxEditable' arg'1')++comboBoxItems :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO [QtahP.String])+comboBoxItems arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M144.QStringListConst) =<<+  (comboBoxItems' arg'1')++doubleDecimals :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+doubleDecimals arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (doubleDecimals' arg'1')++doubleMaximum :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+doubleMaximum arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (doubleMaximum' arg'1')++doubleMinimum :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+doubleMinimum arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (doubleMinimum' arg'1')++doubleValue :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+doubleValue arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (doubleValue' arg'1')++inputMode :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QInputDialogInputMode)+inputMode arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (inputMode' arg'1')++intMaximum :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+intMaximum arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (intMaximum' arg'1')++intMinimum :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+intMinimum arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (intMinimum' arg'1')++intStep :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+intStep arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (intStep' arg'1')++intValue :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+intValue arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (intValue' arg'1')++labelText :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+labelText arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (labelText' arg'1')++okButtonText :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+okButtonText arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (okButtonText' arg'1')++options :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QInputDialogInputDialogOptions)+options arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (options' arg'1')++testOption :: (QInputDialogValue this) => (this) {- ^ this -} -> (QInputDialogInputDialogOption) -> (HoppyP.IO HoppyP.Bool)+testOption arg'1 arg'2 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (testOption' arg'1' arg'2')++textEchoMode :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO M438.QLineEditEchoMode)+textEchoMode arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (textEchoMode' arg'1')++textValue :: (QInputDialogValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+textValue arg'1 =+  withQInputDialogPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (textValue' arg'1')++class (QInputDialogConstPtr this, M388.QDialogPtr this) => QInputDialogPtr this where+  toQInputDialog :: this -> QInputDialog++setCancelButtonText :: (QInputDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setCancelButtonText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setCancelButtonText' arg'1' arg'2')++setComboBoxEditable :: (QInputDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setComboBoxEditable arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setComboBoxEditable' arg'1' arg'2')++setComboBoxItems :: (QInputDialogPtr this, M144.QStringListValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setComboBoxItems arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  M144.withQStringListPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setComboBoxItems' arg'1' arg'2')++setDoubleDecimals :: (QInputDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setDoubleDecimals arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setDoubleDecimals' arg'1' arg'2')++setDoubleMaximum :: (QInputDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setDoubleMaximum arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setDoubleMaximum' arg'1' arg'2')++setDoubleMinimum :: (QInputDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setDoubleMinimum arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setDoubleMinimum' arg'1' arg'2')++setDoubleValue :: (QInputDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setDoubleValue arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setDoubleValue' arg'1' arg'2')++setInputMode :: (QInputDialogPtr this) => (this) {- ^ this -} -> (QInputDialogInputMode) -> (HoppyP.IO ())+setInputMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setInputMode' arg'1' arg'2')++setIntMaximum :: (QInputDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setIntMaximum arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setIntMaximum' arg'1' arg'2')++setIntMinimum :: (QInputDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setIntMinimum arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setIntMinimum' arg'1' arg'2')++setIntStep :: (QInputDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setIntStep arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setIntStep' arg'1' arg'2')++setIntValue :: (QInputDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setIntValue arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setIntValue' arg'1' arg'2')++setLabelText :: (QInputDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setLabelText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setLabelText' arg'1' arg'2')++setOkButtonText :: (QInputDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setOkButtonText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setOkButtonText' arg'1' arg'2')++setOptions :: (QInputDialogPtr this, IsQInputDialogInputDialogOptions arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setOptions arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . toQInputDialogInputDialogOptions+  ) arg'2 >>= \arg'2' ->+  (setOptions' arg'1' arg'2')++setDoubleRange :: (QInputDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.IO ())+setDoubleRange arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'3 >>= \arg'3' ->+  (setDoubleRange' arg'1' arg'2' arg'3')++setIntRange :: (QInputDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setIntRange arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (setIntRange' arg'1' arg'2' arg'3')++setOption :: (QInputDialogPtr this) => (this) {- ^ this -} -> (QInputDialogInputDialogOption) -> (HoppyP.Bool) -> (HoppyP.IO ())+setOption arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'3 >>= \arg'3' ->+  (setOption' arg'1' arg'2' arg'3')++setTextEchoMode :: (QInputDialogPtr this) => (this) {- ^ this -} -> (M438.QLineEditEchoMode) -> (HoppyP.IO ())+setTextEchoMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setTextEchoMode' arg'1' arg'2')++setTextValue :: (QInputDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTextValue arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setTextValue' arg'1' arg'2')++emitDoubleValueChanged :: (QInputDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+emitDoubleValueChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (emitDoubleValueChanged' arg'1' arg'2')++emitDoubleValueSelected :: (QInputDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+emitDoubleValueSelected arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (emitDoubleValueSelected' arg'1' arg'2')++emitIntValueChanged :: (QInputDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitIntValueChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitIntValueChanged' arg'1' arg'2')++emitIntValueSelected :: (QInputDialogPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+emitIntValueSelected arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (emitIntValueSelected' arg'1' arg'2')++emitTextValueChanged :: (QInputDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitTextValueChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitTextValueChanged' arg'1' arg'2')++emitTextValueSelected :: (QInputDialogPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitTextValueSelected arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQInputDialog arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitTextValueSelected' arg'1' arg'2')++getDouble :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Double)+getDouble arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (getDouble' arg'1' arg'2' arg'3')++getDoubleWithOptions :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M190.IsQtWindowFlags arg'9) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Double) -> (HoppyP.Int) -> (HoppyF.Ptr HoppyFC.CBool) -> (arg'9) -> (HoppyP.IO HoppyP.Double)+getDoubleWithOptions arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 arg'8 arg'9 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'5 >>= \arg'5' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'6 >>= \arg'6' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'7 >>= \arg'7' ->+  let arg'8' = arg'8 in+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtWindowFlags+  ) arg'9 >>= \arg'9' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (getDoubleWithOptions' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7' arg'8' arg'9')++getInt :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Int)+getInt arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (getInt' arg'1' arg'2' arg'3')++getIntWithOptions :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M190.IsQtWindowFlags arg'9) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyF.Ptr HoppyFC.CBool) -> (arg'9) -> (HoppyP.IO HoppyP.Int)+getIntWithOptions arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 arg'8 arg'9 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'4 >>= \arg'4' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'5 >>= \arg'5' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'6 >>= \arg'6' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'7 >>= \arg'7' ->+  let arg'8' = arg'8 in+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtWindowFlags+  ) arg'9 >>= \arg'9' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (getIntWithOptions' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7' arg'8' arg'9')++getItem :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M144.QStringListValue arg'4) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO QtahP.String)+getItem arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M144.withQStringListPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (getItem' arg'1' arg'2' arg'3' arg'4')++getItemWithOptions :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M144.QStringListValue arg'4, M190.IsQtWindowFlags arg'8, M190.IsQtInputMethodHints arg'9) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.Int) -> (HoppyP.Bool) -> (HoppyF.Ptr HoppyFC.CBool) -> (arg'8) -> (arg'9) -> (HoppyP.IO QtahP.String)+getItemWithOptions arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 arg'8 arg'9 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M144.withQStringListPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'5 >>= \arg'5' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'6 >>= \arg'6' ->+  let arg'7' = arg'7 in+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtWindowFlags+  ) arg'8 >>= \arg'8' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtInputMethodHints+  ) arg'9 >>= \arg'9' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (getItemWithOptions' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7' arg'8' arg'9')++getMultiLineText :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO QtahP.String)+getMultiLineText arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (getMultiLineText' arg'1' arg'2' arg'3')++getMultiLineTextWithOptions :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'4, M190.IsQtWindowFlags arg'6, M190.IsQtInputMethodHints arg'7) => (arg'1) -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyF.Ptr HoppyFC.CBool) -> (arg'6) -> (arg'7) -> (HoppyP.IO QtahP.String)+getMultiLineTextWithOptions arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  let arg'5' = arg'5 in+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtWindowFlags+  ) arg'6 >>= \arg'6' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtInputMethodHints+  ) arg'7 >>= \arg'7' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (getMultiLineTextWithOptions' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7')++getText :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3) => (arg'1) -> (arg'2) -> (arg'3) -> (HoppyP.IO QtahP.String)+getText arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (getText' arg'1' arg'2' arg'3')++getTextWithOptions :: (M506.QWidgetPtr arg'1, M142.QStringValue arg'2, M142.QStringValue arg'3, M142.QStringValue arg'5, M190.IsQtWindowFlags arg'7, M190.IsQtInputMethodHints arg'8) => (arg'1) -> (arg'2) -> (arg'3) -> (M438.QLineEditEchoMode) -> (arg'5) -> (HoppyF.Ptr HoppyFC.CBool) -> (arg'7) -> (arg'8) -> (HoppyP.IO QtahP.String)+getTextWithOptions arg'1 arg'2 arg'3 arg'4 arg'5 arg'6 arg'7 arg'8 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'4 >>= \arg'4' ->+  M142.withQStringPtr arg'5 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'5' ->+  let arg'6' = arg'6 in+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtWindowFlags+  ) arg'7 >>= \arg'7' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtInputMethodHints+  ) arg'8 >>= \arg'8' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (getTextWithOptions' arg'1' arg'2' arg'3' arg'4' arg'5' arg'6' arg'7' arg'8')++data QInputDialogConst =+    QInputDialogConst (HoppyF.Ptr QInputDialogConst)+  | QInputDialogConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QInputDialogConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QInputDialogConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QInputDialogConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQInputDialogToConst :: QInputDialog -> QInputDialogConst+castQInputDialogToConst (QInputDialog ptr') = QInputDialogConst $ HoppyF.castPtr ptr'+castQInputDialogToConst (QInputDialogGc fptr' ptr') = QInputDialogConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QInputDialogConst where+  nullptr = QInputDialogConst HoppyF.nullPtr+  +  withCppPtr (QInputDialogConst ptr') f' = f' ptr'+  withCppPtr (QInputDialogConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QInputDialogConst ptr') = ptr'+  toPtr (QInputDialogConstGc _ ptr') = ptr'+  +  touchCppPtr (QInputDialogConst _) = HoppyP.return ()+  touchCppPtr (QInputDialogConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QInputDialogConst where+  delete (QInputDialogConst ptr') = delete'QInputDialog ptr'+  delete (QInputDialogConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QInputDialogConst", " object."]+  +  toGc this'@(QInputDialogConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QInputDialogConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QInputDialog :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QInputDialogConstGc {}) = HoppyP.return this'++instance QInputDialogConstPtr QInputDialogConst where+  toQInputDialogConst = HoppyP.id++instance M388.QDialogConstPtr QInputDialogConst where+  toQDialogConst (QInputDialogConst ptr') = M388.QDialogConst $ castQInputDialogToQDialog ptr'+  toQDialogConst (QInputDialogConstGc fptr' ptr') = M388.QDialogConstGc fptr' $ castQInputDialogToQDialog ptr'++instance M506.QWidgetConstPtr QInputDialogConst where+  toQWidgetConst (QInputDialogConst ptr') = M506.QWidgetConst $ castQInputDialogToQWidget ptr'+  toQWidgetConst (QInputDialogConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQInputDialogToQWidget ptr'++instance M94.QObjectConstPtr QInputDialogConst where+  toQObjectConst (QInputDialogConst ptr') = M94.QObjectConst $ castQInputDialogToQObject ptr'+  toQObjectConst (QInputDialogConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQInputDialogToQObject ptr'++data QInputDialog =+    QInputDialog (HoppyF.Ptr QInputDialog)+  | QInputDialogGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QInputDialog)+  deriving (HoppyP.Show)++instance HoppyP.Eq QInputDialog where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QInputDialog where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQInputDialogToNonconst :: QInputDialogConst -> QInputDialog+castQInputDialogToNonconst (QInputDialogConst ptr') = QInputDialog $ HoppyF.castPtr ptr'+castQInputDialogToNonconst (QInputDialogConstGc fptr' ptr') = QInputDialogGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QInputDialog where+  nullptr = QInputDialog HoppyF.nullPtr+  +  withCppPtr (QInputDialog ptr') f' = f' ptr'+  withCppPtr (QInputDialogGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QInputDialog ptr') = ptr'+  toPtr (QInputDialogGc _ ptr') = ptr'+  +  touchCppPtr (QInputDialog _) = HoppyP.return ()+  touchCppPtr (QInputDialogGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QInputDialog where+  delete (QInputDialog ptr') = delete'QInputDialog $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QInputDialogConst)+  delete (QInputDialogGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QInputDialog", " object."]+  +  toGc this'@(QInputDialog ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QInputDialogGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QInputDialog :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QInputDialogGc {}) = HoppyP.return this'++instance QInputDialogConstPtr QInputDialog where+  toQInputDialogConst (QInputDialog ptr') = QInputDialogConst $ (HoppyF.castPtr :: HoppyF.Ptr QInputDialog -> HoppyF.Ptr QInputDialogConst) ptr'+  toQInputDialogConst (QInputDialogGc fptr' ptr') = QInputDialogConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QInputDialog -> HoppyF.Ptr QInputDialogConst) ptr'++instance QInputDialogPtr QInputDialog where+  toQInputDialog = HoppyP.id++instance M388.QDialogConstPtr QInputDialog where+  toQDialogConst (QInputDialog ptr') = M388.QDialogConst $ castQInputDialogToQDialog $ (HoppyF.castPtr :: HoppyF.Ptr QInputDialog -> HoppyF.Ptr QInputDialogConst) ptr'+  toQDialogConst (QInputDialogGc fptr' ptr') = M388.QDialogConstGc fptr' $ castQInputDialogToQDialog $ (HoppyF.castPtr :: HoppyF.Ptr QInputDialog -> HoppyF.Ptr QInputDialogConst) ptr'++instance M388.QDialogPtr QInputDialog where+  toQDialog (QInputDialog ptr') = M388.QDialog $ (HoppyF.castPtr :: HoppyF.Ptr M388.QDialogConst -> HoppyF.Ptr M388.QDialog) $ castQInputDialogToQDialog $ (HoppyF.castPtr :: HoppyF.Ptr QInputDialog -> HoppyF.Ptr QInputDialogConst) ptr'+  toQDialog (QInputDialogGc fptr' ptr') = M388.QDialogGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M388.QDialogConst -> HoppyF.Ptr M388.QDialog) $ castQInputDialogToQDialog $ (HoppyF.castPtr :: HoppyF.Ptr QInputDialog -> HoppyF.Ptr QInputDialogConst) ptr'++instance M506.QWidgetConstPtr QInputDialog where+  toQWidgetConst (QInputDialog ptr') = M506.QWidgetConst $ castQInputDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QInputDialog -> HoppyF.Ptr QInputDialogConst) ptr'+  toQWidgetConst (QInputDialogGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQInputDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QInputDialog -> HoppyF.Ptr QInputDialogConst) ptr'++instance M506.QWidgetPtr QInputDialog where+  toQWidget (QInputDialog ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQInputDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QInputDialog -> HoppyF.Ptr QInputDialogConst) ptr'+  toQWidget (QInputDialogGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQInputDialogToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QInputDialog -> HoppyF.Ptr QInputDialogConst) ptr'++instance M94.QObjectConstPtr QInputDialog where+  toQObjectConst (QInputDialog ptr') = M94.QObjectConst $ castQInputDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QInputDialog -> HoppyF.Ptr QInputDialogConst) ptr'+  toQObjectConst (QInputDialogGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQInputDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QInputDialog -> HoppyF.Ptr QInputDialogConst) ptr'++instance M94.QObjectPtr QInputDialog where+  toQObject (QInputDialog ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQInputDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QInputDialog -> HoppyF.Ptr QInputDialogConst) ptr'+  toQObject (QInputDialogGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQInputDialogToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QInputDialog -> HoppyF.Ptr QInputDialogConst) ptr'++new :: (HoppyP.IO QInputDialog)+new =+  HoppyP.fmap QInputDialog+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QInputDialog)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QInputDialog+  (newWithParent' arg'1')++newWithParentAndFlags :: (M506.QWidgetPtr arg'1, M190.IsQtWindowFlags arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QInputDialog)+newWithParentAndFlags arg'1 arg'2 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtWindowFlags+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QInputDialog+  (newWithParentAndFlags' arg'1' arg'2')++class QInputDialogSuper a where+  downToQInputDialog :: a -> QInputDialog++instance QInputDialogSuper M388.QDialog where+  downToQInputDialog = castQInputDialogToNonconst . cast' . M388.castQDialogToConst+    where+      cast' (M388.QDialogConst ptr') = QInputDialogConst $ castQDialogToQInputDialog ptr'+      cast' (M388.QDialogConstGc fptr' ptr') = QInputDialogConstGc fptr' $ castQDialogToQInputDialog ptr'+instance QInputDialogSuper M506.QWidget where+  downToQInputDialog = castQInputDialogToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QInputDialogConst $ castQWidgetToQInputDialog ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QInputDialogConstGc fptr' $ castQWidgetToQInputDialog ptr'+instance QInputDialogSuper M94.QObject where+  downToQInputDialog = castQInputDialogToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QInputDialogConst $ castQObjectToQInputDialog ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QInputDialogConstGc fptr' $ castQObjectToQInputDialog ptr'++class QInputDialogSuperConst a where+  downToQInputDialogConst :: a -> QInputDialogConst++instance QInputDialogSuperConst M388.QDialogConst where+  downToQInputDialogConst = cast'+    where+      cast' (M388.QDialogConst ptr') = QInputDialogConst $ castQDialogToQInputDialog ptr'+      cast' (M388.QDialogConstGc fptr' ptr') = QInputDialogConstGc fptr' $ castQDialogToQInputDialog ptr'+instance QInputDialogSuperConst M506.QWidgetConst where+  downToQInputDialogConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QInputDialogConst $ castQWidgetToQInputDialog ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QInputDialogConstGc fptr' $ castQWidgetToQInputDialog ptr'+instance QInputDialogSuperConst M94.QObjectConst where+  downToQInputDialogConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QInputDialogConst $ castQObjectToQInputDialog ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QInputDialogConstGc fptr' $ castQObjectToQInputDialog ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QInputDialog)) QInputDialog where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QInputDialog)) QInputDialog where+  decode = HoppyP.fmap QInputDialog . HoppyF.peek++data QInputDialogInputDialogOption =+  NoButtons+  | UseListViewForComboBoxItems+  | UsePlainTextEditForTextInput+  | UnknownQInputDialogInputDialogOption (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QInputDialogInputDialogOption where+  fromCppEnum NoButtons = 1+  fromCppEnum UseListViewForComboBoxItems = 2+  fromCppEnum UsePlainTextEditForTextInput = 4+  fromCppEnum (UnknownQInputDialogInputDialogOption n) = n+  +  toCppEnum (1) = NoButtons+  toCppEnum (2) = UseListViewForComboBoxItems+  toCppEnum (4) = UsePlainTextEditForTextInput+  toCppEnum n = UnknownQInputDialogInputDialogOption n++instance HoppyP.Eq QInputDialogInputDialogOption where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QInputDialogInputDialogOption where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QInputDialogInputDialogOptions = QInputDialogInputDialogOptions (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QInputDialogInputDialogOption QInputDialogInputDialogOptions where+  enumToFlags = QInputDialogInputDialogOptions . QtahFHR.fromCppEnum+  flagsToEnum (QInputDialogInputDialogOptions x') = QtahFHR.toCppEnum x'++class IsQInputDialogInputDialogOptions a where+  toQInputDialogInputDialogOptions :: a -> QInputDialogInputDialogOptions++instance IsQInputDialogInputDialogOptions QInputDialogInputDialogOptions where toQInputDialogInputDialogOptions = QtahP.id+instance IsQInputDialogInputDialogOptions QInputDialogInputDialogOption where toQInputDialogInputDialogOptions = QtahFlags.enumToFlags+instance IsQInputDialogInputDialogOptions (HoppyFC.CInt) where toQInputDialogInputDialogOptions = QtahFlags.numToFlags++noButtons :: QInputDialogInputDialogOptions+noButtons = QInputDialogInputDialogOptions (1)++useListViewForComboBoxItems :: QInputDialogInputDialogOptions+useListViewForComboBoxItems = QInputDialogInputDialogOptions (2)++usePlainTextEditForTextInput :: QInputDialogInputDialogOptions+usePlainTextEditForTextInput = QInputDialogInputDialogOptions (4)++instance QtahDB.Bits QInputDialogInputDialogOptions where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QInputDialogInputMode =+  TextInput+  | IntInput+  | DoubleInput+  | UnknownQInputDialogInputMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QInputDialogInputMode where+  fromCppEnum TextInput = 0+  fromCppEnum IntInput = 1+  fromCppEnum DoubleInput = 2+  fromCppEnum (UnknownQInputDialogInputMode n) = n+  +  toCppEnum (0) = TextInput+  toCppEnum (1) = IntInput+  toCppEnum (2) = DoubleInput+  toCppEnum n = UnknownQInputDialogInputMode n++instance HoppyP.Eq QInputDialogInputMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QInputDialogInputMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Widgets/QLCDNumber.hs view
@@ -0,0 +1,483 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QLCDNumber (+  castQLCDNumberToQFrame,+  castQFrameToQLCDNumber,+  castQLCDNumberToQWidget,+  castQWidgetToQLCDNumber,+  castQLCDNumberToQObject,+  castQObjectToQLCDNumber,+  QLCDNumberValue (..),+  QLCDNumberConstPtr (..),+  digitCount,+  mode,+  segmentStyle,+  smallDecimalPoint,+  checkOverflowInt,+  checkOverflowDouble,+  intValue,+  value,+  QLCDNumberPtr (..),+  setDigitCount,+  setMode,+  setSegmentStyle,+  setSmallDecimalPoint,+  displayDouble,+  displayInt,+  displayString,+  setBinMode,+  setDecMode,+  setHexMode,+  setOctMode,+  emitOverflow,+  QLCDNumberConst (..),+  castQLCDNumberToConst,+  QLCDNumber (..),+  castQLCDNumberToNonconst,+  new,+  newWithDigits,+  newWithDigitsAndParent,+  newWithParent,+  QLCDNumberSuper (..),+  QLCDNumberSuperConst (..),+  QLCDNumberMode (..),+  QLCDNumberSegmentStyle (..),+  ) 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.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QString as M142+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++foreign import ccall "genpop__QLCDNumber_new" new' ::  HoppyP.IO (HoppyF.Ptr QLCDNumber)+foreign import ccall "genpop__QLCDNumber_newWithDigits" newWithDigits' ::  HoppyFC.CUInt -> HoppyP.IO (HoppyF.Ptr QLCDNumber)+foreign import ccall "genpop__QLCDNumber_newWithDigitsAndParent" newWithDigitsAndParent' ::  HoppyFC.CUInt -> HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QLCDNumber)+foreign import ccall "genpop__QLCDNumber_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QLCDNumber)+foreign import ccall "genpop__QLCDNumber_digitCount" digitCount' ::  HoppyF.Ptr QLCDNumberConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLCDNumber_setDigitCount" setDigitCount' ::  HoppyF.Ptr QLCDNumber -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLCDNumber_mode" mode' ::  HoppyF.Ptr QLCDNumberConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLCDNumber_setMode" setMode' ::  HoppyF.Ptr QLCDNumber -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLCDNumber_segmentStyle" segmentStyle' ::  HoppyF.Ptr QLCDNumberConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLCDNumber_setSegmentStyle" setSegmentStyle' ::  HoppyF.Ptr QLCDNumber -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLCDNumber_smallDecimalPoint" smallDecimalPoint' ::  HoppyF.Ptr QLCDNumberConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLCDNumber_setSmallDecimalPoint" setSmallDecimalPoint' ::  HoppyF.Ptr QLCDNumber -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QLCDNumber_checkOverflowInt" checkOverflowInt' ::  HoppyF.Ptr QLCDNumberConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLCDNumber_checkOverflowDouble" checkOverflowDouble' ::  HoppyF.Ptr QLCDNumberConst -> HoppyFC.CDouble -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLCDNumber_intValue" intValue' ::  HoppyF.Ptr QLCDNumberConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLCDNumber_value" value' ::  HoppyF.Ptr QLCDNumberConst -> HoppyP.IO HoppyFC.CDouble+foreign import ccall "genpop__QLCDNumber_displayDouble" displayDouble' ::  HoppyF.Ptr QLCDNumber -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QLCDNumber_displayInt" displayInt' ::  HoppyF.Ptr QLCDNumber -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLCDNumber_displayString" displayString' ::  HoppyF.Ptr QLCDNumber -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QLCDNumber_setBinMode" setBinMode' ::  HoppyF.Ptr QLCDNumber -> HoppyP.IO ()+foreign import ccall "genpop__QLCDNumber_setDecMode" setDecMode' ::  HoppyF.Ptr QLCDNumber -> HoppyP.IO ()+foreign import ccall "genpop__QLCDNumber_setHexMode" setHexMode' ::  HoppyF.Ptr QLCDNumber -> HoppyP.IO ()+foreign import ccall "genpop__QLCDNumber_setOctMode" setOctMode' ::  HoppyF.Ptr QLCDNumber -> HoppyP.IO ()+foreign import ccall "genpop__QLCDNumber_emitOverflow" emitOverflow' ::  HoppyF.Ptr QLCDNumber -> HoppyP.IO ()+foreign import ccall "gencast__QLCDNumber__QFrame" castQLCDNumberToQFrame :: HoppyF.Ptr QLCDNumberConst -> HoppyF.Ptr M400.QFrameConst+foreign import ccall "gencast__QFrame__QLCDNumber" castQFrameToQLCDNumber :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr QLCDNumberConst+foreign import ccall "gencast__QLCDNumber__QWidget" castQLCDNumberToQWidget :: HoppyF.Ptr QLCDNumberConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QLCDNumber" castQWidgetToQLCDNumber :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QLCDNumberConst+foreign import ccall "gencast__QLCDNumber__QObject" castQLCDNumberToQObject :: HoppyF.Ptr QLCDNumberConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QLCDNumber" castQObjectToQLCDNumber :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QLCDNumberConst+foreign import ccall "gendel__QLCDNumber" delete'QLCDNumber :: HoppyF.Ptr QLCDNumberConst -> HoppyP.IO ()+foreign import ccall "&gendel__QLCDNumber" deletePtr'QLCDNumber :: HoppyF.FunPtr (HoppyF.Ptr QLCDNumberConst -> HoppyP.IO ())++class QLCDNumberValue a where+  withQLCDNumberPtr :: a -> (QLCDNumberConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QLCDNumberConstPtr a => QLCDNumberValue a where+  withQLCDNumberPtr = HoppyP.flip ($) . toQLCDNumberConst++class (M400.QFrameConstPtr this) => QLCDNumberConstPtr this where+  toQLCDNumberConst :: this -> QLCDNumberConst++digitCount :: (QLCDNumberValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+digitCount arg'1 =+  withQLCDNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (digitCount' arg'1')++mode :: (QLCDNumberValue this) => (this) {- ^ this -} -> (HoppyP.IO QLCDNumberMode)+mode arg'1 =+  withQLCDNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (mode' arg'1')++segmentStyle :: (QLCDNumberValue this) => (this) {- ^ this -} -> (HoppyP.IO QLCDNumberSegmentStyle)+segmentStyle arg'1 =+  withQLCDNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (segmentStyle' arg'1')++smallDecimalPoint :: (QLCDNumberValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+smallDecimalPoint arg'1 =+  withQLCDNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (smallDecimalPoint' arg'1')++checkOverflowInt :: (QLCDNumberValue this) => (this) {- ^ this -} -> (HoppyP.Int) {- ^ num -} -> (HoppyP.IO HoppyP.Bool)+checkOverflowInt arg'1 arg'2 =+  withQLCDNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (checkOverflowInt' arg'1' arg'2')++checkOverflowDouble :: (QLCDNumberValue this) => (this) {- ^ this -} -> (HoppyP.Double) {- ^ num -} -> (HoppyP.IO HoppyP.Bool)+checkOverflowDouble arg'1 arg'2 =+  withQLCDNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (checkOverflowDouble' arg'1' arg'2')++intValue :: (QLCDNumberValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+intValue arg'1 =+  withQLCDNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (intValue' arg'1')++value :: (QLCDNumberValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)+value arg'1 =+  withQLCDNumberPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) =<<+  (value' arg'1')++class (QLCDNumberConstPtr this, M400.QFramePtr this) => QLCDNumberPtr this where+  toQLCDNumber :: this -> QLCDNumber++setDigitCount :: (QLCDNumberPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setDigitCount arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLCDNumber arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setDigitCount' arg'1' arg'2')++setMode :: (QLCDNumberPtr this) => (this) {- ^ this -} -> (QLCDNumberMode) -> (HoppyP.IO ())+setMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLCDNumber arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setMode' arg'1' arg'2')++setSegmentStyle :: (QLCDNumberPtr this) => (this) {- ^ this -} -> (QLCDNumberSegmentStyle) -> (HoppyP.IO ())+setSegmentStyle arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLCDNumber arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setSegmentStyle' arg'1' arg'2')++setSmallDecimalPoint :: (QLCDNumberPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setSmallDecimalPoint arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLCDNumber arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setSmallDecimalPoint' arg'1' arg'2')++displayDouble :: (QLCDNumberPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+displayDouble arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLCDNumber arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (displayDouble' arg'1' arg'2')++displayInt :: (QLCDNumberPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+displayInt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLCDNumber arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (displayInt' arg'1' arg'2')++displayString :: (QLCDNumberPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+displayString arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLCDNumber arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (displayString' arg'1' arg'2')++setBinMode :: (QLCDNumberPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+setBinMode arg'1 =+  HoppyFHR.withCppPtr (toQLCDNumber arg'1) $ \arg'1' ->+  (setBinMode' arg'1')++setDecMode :: (QLCDNumberPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+setDecMode arg'1 =+  HoppyFHR.withCppPtr (toQLCDNumber arg'1) $ \arg'1' ->+  (setDecMode' arg'1')++setHexMode :: (QLCDNumberPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+setHexMode arg'1 =+  HoppyFHR.withCppPtr (toQLCDNumber arg'1) $ \arg'1' ->+  (setHexMode' arg'1')++setOctMode :: (QLCDNumberPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+setOctMode arg'1 =+  HoppyFHR.withCppPtr (toQLCDNumber arg'1) $ \arg'1' ->+  (setOctMode' arg'1')++emitOverflow :: (QLCDNumberPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitOverflow arg'1 =+  HoppyFHR.withCppPtr (toQLCDNumber arg'1) $ \arg'1' ->+  (emitOverflow' arg'1')++data QLCDNumberConst =+    QLCDNumberConst (HoppyF.Ptr QLCDNumberConst)+  | QLCDNumberConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLCDNumberConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLCDNumberConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLCDNumberConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLCDNumberToConst :: QLCDNumber -> QLCDNumberConst+castQLCDNumberToConst (QLCDNumber ptr') = QLCDNumberConst $ HoppyF.castPtr ptr'+castQLCDNumberToConst (QLCDNumberGc fptr' ptr') = QLCDNumberConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLCDNumberConst where+  nullptr = QLCDNumberConst HoppyF.nullPtr+  +  withCppPtr (QLCDNumberConst ptr') f' = f' ptr'+  withCppPtr (QLCDNumberConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLCDNumberConst ptr') = ptr'+  toPtr (QLCDNumberConstGc _ ptr') = ptr'+  +  touchCppPtr (QLCDNumberConst _) = HoppyP.return ()+  touchCppPtr (QLCDNumberConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLCDNumberConst where+  delete (QLCDNumberConst ptr') = delete'QLCDNumber ptr'+  delete (QLCDNumberConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLCDNumberConst", " object."]+  +  toGc this'@(QLCDNumberConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLCDNumberConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLCDNumber :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLCDNumberConstGc {}) = HoppyP.return this'++instance QLCDNumberConstPtr QLCDNumberConst where+  toQLCDNumberConst = HoppyP.id++instance M400.QFrameConstPtr QLCDNumberConst where+  toQFrameConst (QLCDNumberConst ptr') = M400.QFrameConst $ castQLCDNumberToQFrame ptr'+  toQFrameConst (QLCDNumberConstGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQLCDNumberToQFrame ptr'++instance M506.QWidgetConstPtr QLCDNumberConst where+  toQWidgetConst (QLCDNumberConst ptr') = M506.QWidgetConst $ castQLCDNumberToQWidget ptr'+  toQWidgetConst (QLCDNumberConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQLCDNumberToQWidget ptr'++instance M94.QObjectConstPtr QLCDNumberConst where+  toQObjectConst (QLCDNumberConst ptr') = M94.QObjectConst $ castQLCDNumberToQObject ptr'+  toQObjectConst (QLCDNumberConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQLCDNumberToQObject ptr'++data QLCDNumber =+    QLCDNumber (HoppyF.Ptr QLCDNumber)+  | QLCDNumberGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLCDNumber)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLCDNumber where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLCDNumber where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLCDNumberToNonconst :: QLCDNumberConst -> QLCDNumber+castQLCDNumberToNonconst (QLCDNumberConst ptr') = QLCDNumber $ HoppyF.castPtr ptr'+castQLCDNumberToNonconst (QLCDNumberConstGc fptr' ptr') = QLCDNumberGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLCDNumber where+  nullptr = QLCDNumber HoppyF.nullPtr+  +  withCppPtr (QLCDNumber ptr') f' = f' ptr'+  withCppPtr (QLCDNumberGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLCDNumber ptr') = ptr'+  toPtr (QLCDNumberGc _ ptr') = ptr'+  +  touchCppPtr (QLCDNumber _) = HoppyP.return ()+  touchCppPtr (QLCDNumberGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLCDNumber where+  delete (QLCDNumber ptr') = delete'QLCDNumber $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QLCDNumberConst)+  delete (QLCDNumberGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLCDNumber", " object."]+  +  toGc this'@(QLCDNumber ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLCDNumberGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLCDNumber :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLCDNumberGc {}) = HoppyP.return this'++instance QLCDNumberConstPtr QLCDNumber where+  toQLCDNumberConst (QLCDNumber ptr') = QLCDNumberConst $ (HoppyF.castPtr :: HoppyF.Ptr QLCDNumber -> HoppyF.Ptr QLCDNumberConst) ptr'+  toQLCDNumberConst (QLCDNumberGc fptr' ptr') = QLCDNumberConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QLCDNumber -> HoppyF.Ptr QLCDNumberConst) ptr'++instance QLCDNumberPtr QLCDNumber where+  toQLCDNumber = HoppyP.id++instance M400.QFrameConstPtr QLCDNumber where+  toQFrameConst (QLCDNumber ptr') = M400.QFrameConst $ castQLCDNumberToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QLCDNumber -> HoppyF.Ptr QLCDNumberConst) ptr'+  toQFrameConst (QLCDNumberGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQLCDNumberToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QLCDNumber -> HoppyF.Ptr QLCDNumberConst) ptr'++instance M400.QFramePtr QLCDNumber where+  toQFrame (QLCDNumber ptr') = M400.QFrame $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQLCDNumberToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QLCDNumber -> HoppyF.Ptr QLCDNumberConst) ptr'+  toQFrame (QLCDNumberGc fptr' ptr') = M400.QFrameGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQLCDNumberToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QLCDNumber -> HoppyF.Ptr QLCDNumberConst) ptr'++instance M506.QWidgetConstPtr QLCDNumber where+  toQWidgetConst (QLCDNumber ptr') = M506.QWidgetConst $ castQLCDNumberToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QLCDNumber -> HoppyF.Ptr QLCDNumberConst) ptr'+  toQWidgetConst (QLCDNumberGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQLCDNumberToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QLCDNumber -> HoppyF.Ptr QLCDNumberConst) ptr'++instance M506.QWidgetPtr QLCDNumber where+  toQWidget (QLCDNumber ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQLCDNumberToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QLCDNumber -> HoppyF.Ptr QLCDNumberConst) ptr'+  toQWidget (QLCDNumberGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQLCDNumberToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QLCDNumber -> HoppyF.Ptr QLCDNumberConst) ptr'++instance M94.QObjectConstPtr QLCDNumber where+  toQObjectConst (QLCDNumber ptr') = M94.QObjectConst $ castQLCDNumberToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLCDNumber -> HoppyF.Ptr QLCDNumberConst) ptr'+  toQObjectConst (QLCDNumberGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQLCDNumberToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLCDNumber -> HoppyF.Ptr QLCDNumberConst) ptr'++instance M94.QObjectPtr QLCDNumber where+  toQObject (QLCDNumber ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQLCDNumberToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLCDNumber -> HoppyF.Ptr QLCDNumberConst) ptr'+  toQObject (QLCDNumberGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQLCDNumberToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLCDNumber -> HoppyF.Ptr QLCDNumberConst) ptr'++new :: (HoppyP.IO QLCDNumber)+new =+  HoppyP.fmap QLCDNumber+  (new')++newWithDigits :: (HoppyFC.CUInt) {- ^ numDigits -} -> (HoppyP.IO QLCDNumber)+newWithDigits arg'1 =+  let arg'1' = arg'1 in+  HoppyP.fmap QLCDNumber+  (newWithDigits' arg'1')++newWithDigitsAndParent :: (M506.QWidgetPtr parent) => (HoppyFC.CUInt) {- ^ numDigits -} -> (parent) {- ^ parent -} -> (HoppyP.IO QLCDNumber)+newWithDigitsAndParent arg'1 arg'2 =+  let arg'1' = arg'1 in+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  HoppyP.fmap QLCDNumber+  (newWithDigitsAndParent' arg'1' arg'2')++newWithParent :: (M506.QWidgetPtr parent) => (parent) {- ^ parent -} -> (HoppyP.IO QLCDNumber)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QLCDNumber+  (newWithParent' arg'1')++class QLCDNumberSuper a where+  downToQLCDNumber :: a -> QLCDNumber++instance QLCDNumberSuper M400.QFrame where+  downToQLCDNumber = castQLCDNumberToNonconst . cast' . M400.castQFrameToConst+    where+      cast' (M400.QFrameConst ptr') = QLCDNumberConst $ castQFrameToQLCDNumber ptr'+      cast' (M400.QFrameConstGc fptr' ptr') = QLCDNumberConstGc fptr' $ castQFrameToQLCDNumber ptr'+instance QLCDNumberSuper M506.QWidget where+  downToQLCDNumber = castQLCDNumberToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QLCDNumberConst $ castQWidgetToQLCDNumber ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QLCDNumberConstGc fptr' $ castQWidgetToQLCDNumber ptr'+instance QLCDNumberSuper M94.QObject where+  downToQLCDNumber = castQLCDNumberToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QLCDNumberConst $ castQObjectToQLCDNumber ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QLCDNumberConstGc fptr' $ castQObjectToQLCDNumber ptr'++class QLCDNumberSuperConst a where+  downToQLCDNumberConst :: a -> QLCDNumberConst++instance QLCDNumberSuperConst M400.QFrameConst where+  downToQLCDNumberConst = cast'+    where+      cast' (M400.QFrameConst ptr') = QLCDNumberConst $ castQFrameToQLCDNumber ptr'+      cast' (M400.QFrameConstGc fptr' ptr') = QLCDNumberConstGc fptr' $ castQFrameToQLCDNumber ptr'+instance QLCDNumberSuperConst M506.QWidgetConst where+  downToQLCDNumberConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QLCDNumberConst $ castQWidgetToQLCDNumber ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QLCDNumberConstGc fptr' $ castQWidgetToQLCDNumber ptr'+instance QLCDNumberSuperConst M94.QObjectConst where+  downToQLCDNumberConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QLCDNumberConst $ castQObjectToQLCDNumber ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QLCDNumberConstGc fptr' $ castQObjectToQLCDNumber ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QLCDNumber)) QLCDNumber where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QLCDNumber)) QLCDNumber where+  decode = HoppyP.fmap QLCDNumber . HoppyF.peek++data QLCDNumberMode =+  Hex+  | Dec+  | Bin+  | Oct+  | UnknownQlcdNumberMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QLCDNumberMode where+  fromCppEnum Hex = 0+  fromCppEnum Dec = 1+  fromCppEnum Bin = 3+  fromCppEnum Oct = 2+  fromCppEnum (UnknownQlcdNumberMode n) = n+  +  toCppEnum (0) = Hex+  toCppEnum (1) = Dec+  toCppEnum (2) = Oct+  toCppEnum (3) = Bin+  toCppEnum n = UnknownQlcdNumberMode n++instance HoppyP.Eq QLCDNumberMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QLCDNumberMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QLCDNumberSegmentStyle =+  Outline+  | Filled+  | Flat+  | UnknownQlcdNumberSegmentStyle (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QLCDNumberSegmentStyle where+  fromCppEnum Outline = 0+  fromCppEnum Filled = 1+  fromCppEnum Flat = 2+  fromCppEnum (UnknownQlcdNumberSegmentStyle n) = n+  +  toCppEnum (0) = Outline+  toCppEnum (1) = Filled+  toCppEnum (2) = Flat+  toCppEnum n = UnknownQlcdNumberSegmentStyle n++instance HoppyP.Eq QLCDNumberSegmentStyle where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QLCDNumberSegmentStyle where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Widgets/QLabel.hs view
@@ -0,0 +1,537 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QLabel (+  castQLabelToQFrame,+  castQFrameToQLabel,+  castQLabelToQWidget,+  castQWidgetToQLabel,+  castQLabelToQObject,+  castQObjectToQLabel,+  QLabelValue (..),+  QLabelConstPtr (..),+  alignment,+  buddy,+  hasSelectedText,+  indent,+  margin,+  openExternalLinks,+  pixmap,+  hasScaledContents,+  selectedText,+  selectionStart,+  text,+  textFormat,+  textInteractionFlags,+  wordWrap,+  QLabelPtr (..),+  setAlignment,+  setBuddy,+  clear,+  setIndent,+  setMargin,+  setOpenExternalLinks,+  setScaledContents,+  setInt,+  setDouble,+  setPixmap,+  setSelection,+  setText,+  setTextFormat,+  setTextInteractionFlags,+  setWordWrap,+  emitLinkActivated,+  emitLinkHovered,+  QLabelConst (..),+  castQLabelToConst,+  QLabel (..),+  castQLabelToNonconst,+  new,+  newWithParent,+  newWithText,+  newWithTextAndParent,+  QLabelSuper (..),+  QLabelSuperConst (..),+  ) 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.Gui.QPixmap as M316+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__QLabel_new" new' ::  HoppyP.IO (HoppyF.Ptr QLabel)+foreign import ccall "genpop__QLabel_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QLabel)+foreign import ccall "genpop__QLabel_newWithText" newWithText' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QLabel)+foreign import ccall "genpop__QLabel_newWithTextAndParent" newWithTextAndParent' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QLabel)+foreign import ccall "genpop__QLabel_alignment" alignment' ::  HoppyF.Ptr QLabelConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLabel_setAlignment" setAlignment' ::  HoppyF.Ptr QLabel -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_buddy" buddy' ::  HoppyF.Ptr QLabelConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QLabel_setBuddy" setBuddy' ::  HoppyF.Ptr QLabel -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_clear" clear' ::  HoppyF.Ptr QLabel -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_hasSelectedText" hasSelectedText' ::  HoppyF.Ptr QLabelConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLabel_indent" indent' ::  HoppyF.Ptr QLabelConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLabel_setIndent" setIndent' ::  HoppyF.Ptr QLabel -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_margin" margin' ::  HoppyF.Ptr QLabelConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLabel_setMargin" setMargin' ::  HoppyF.Ptr QLabel -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_openExternalLinks" openExternalLinks' ::  HoppyF.Ptr QLabelConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLabel_setOpenExternalLinks" setOpenExternalLinks' ::  HoppyF.Ptr QLabel -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_pixmap" pixmap' ::  HoppyF.Ptr QLabelConst -> HoppyP.IO (HoppyF.Ptr M316.QPixmapConst)+foreign import ccall "genpop__QLabel_hasScaledContents" hasScaledContents' ::  HoppyF.Ptr QLabelConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLabel_setScaledContents" setScaledContents' ::  HoppyF.Ptr QLabel -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_selectedText" selectedText' ::  HoppyF.Ptr QLabelConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QLabel_selectionStart" selectionStart' ::  HoppyF.Ptr QLabelConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLabel_setInt" setInt' ::  HoppyF.Ptr QLabel -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_setDouble" setDouble' ::  HoppyF.Ptr QLabel -> HoppyFC.CDouble -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_setPixmap" setPixmap' ::  HoppyF.Ptr QLabel -> HoppyF.Ptr M316.QPixmapConst -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_setSelection" setSelection' ::  HoppyF.Ptr QLabel -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_text" text' ::  HoppyF.Ptr QLabelConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QLabel_setText" setText' ::  HoppyF.Ptr QLabel -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_textFormat" textFormat' ::  HoppyF.Ptr QLabelConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLabel_setTextFormat" setTextFormat' ::  HoppyF.Ptr QLabel -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_textInteractionFlags" textInteractionFlags' ::  HoppyF.Ptr QLabelConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLabel_setTextInteractionFlags" setTextInteractionFlags' ::  HoppyF.Ptr QLabel -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_wordWrap" wordWrap' ::  HoppyF.Ptr QLabelConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLabel_setWordWrap" setWordWrap' ::  HoppyF.Ptr QLabel -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_emitLinkActivated" emitLinkActivated' ::  HoppyF.Ptr QLabel -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QLabel_emitLinkHovered" emitLinkHovered' ::  HoppyF.Ptr QLabel -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "gencast__QLabel__QFrame" castQLabelToQFrame :: HoppyF.Ptr QLabelConst -> HoppyF.Ptr M400.QFrameConst+foreign import ccall "gencast__QFrame__QLabel" castQFrameToQLabel :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr QLabelConst+foreign import ccall "gencast__QLabel__QWidget" castQLabelToQWidget :: HoppyF.Ptr QLabelConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QLabel" castQWidgetToQLabel :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QLabelConst+foreign import ccall "gencast__QLabel__QObject" castQLabelToQObject :: HoppyF.Ptr QLabelConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QLabel" castQObjectToQLabel :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QLabelConst+foreign import ccall "gendel__QLabel" delete'QLabel :: HoppyF.Ptr QLabelConst -> HoppyP.IO ()+foreign import ccall "&gendel__QLabel" deletePtr'QLabel :: HoppyF.FunPtr (HoppyF.Ptr QLabelConst -> HoppyP.IO ())++class QLabelValue a where+  withQLabelPtr :: a -> (QLabelConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QLabelConstPtr a => QLabelValue a where+  withQLabelPtr = HoppyP.flip ($) . toQLabelConst++class (M400.QFrameConstPtr this) => QLabelConstPtr this where+  toQLabelConst :: this -> QLabelConst++alignment :: (QLabelValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtAlignment)+alignment arg'1 =+  withQLabelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (alignment' arg'1')++buddy :: (QLabelValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)+buddy arg'1 =+  withQLabelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (buddy' arg'1')++hasSelectedText :: (QLabelValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasSelectedText arg'1 =+  withQLabelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasSelectedText' arg'1')++indent :: (QLabelValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+indent arg'1 =+  withQLabelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indent' arg'1')++margin :: (QLabelValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+margin arg'1 =+  withQLabelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (margin' arg'1')++openExternalLinks :: (QLabelValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+openExternalLinks arg'1 =+  withQLabelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (openExternalLinks' arg'1')++pixmap :: (QLabelValue this) => (this) {- ^ this -} -> (HoppyP.IO M316.QPixmapConst)+pixmap arg'1 =+  withQLabelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M316.QPixmapConst+  (pixmap' arg'1')++hasScaledContents :: (QLabelValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasScaledContents arg'1 =+  withQLabelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasScaledContents' arg'1')++selectedText :: (QLabelValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+selectedText arg'1 =+  withQLabelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (selectedText' arg'1')++selectionStart :: (QLabelValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+selectionStart arg'1 =+  withQLabelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (selectionStart' arg'1')++text :: (QLabelValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+text arg'1 =+  withQLabelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (text' arg'1')++textFormat :: (QLabelValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtTextFormat)+textFormat arg'1 =+  withQLabelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (textFormat' arg'1')++textInteractionFlags :: (QLabelValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtTextInteractionFlags)+textInteractionFlags arg'1 =+  withQLabelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (textInteractionFlags' arg'1')++wordWrap :: (QLabelValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+wordWrap arg'1 =+  withQLabelPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (wordWrap' arg'1')++class (QLabelConstPtr this, M400.QFramePtr this) => QLabelPtr this where+  toQLabel :: this -> QLabel++setAlignment :: (QLabelPtr this, M190.IsQtAlignment arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setAlignment arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'2 >>= \arg'2' ->+  (setAlignment' arg'1' arg'2')++setBuddy :: (QLabelPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setBuddy arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (setBuddy' arg'1' arg'2')++clear :: (QLabelPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  (clear' arg'1')++setIndent :: (QLabelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setIndent arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setIndent' arg'1' arg'2')++setMargin :: (QLabelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setMargin arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setMargin' arg'1' arg'2')++setOpenExternalLinks :: (QLabelPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setOpenExternalLinks arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setOpenExternalLinks' arg'1' arg'2')++setScaledContents :: (QLabelPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setScaledContents arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setScaledContents' arg'1' arg'2')++setInt :: (QLabelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setInt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setInt' arg'1' arg'2')++setDouble :: (QLabelPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())+setDouble arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyP.realToFrac+  ) arg'2 >>= \arg'2' ->+  (setDouble' arg'1' arg'2')++setPixmap :: (QLabelPtr this, M316.QPixmapValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setPixmap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  M316.withQPixmapPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setPixmap' arg'1' arg'2')++setSelection :: (QLabelPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setSelection arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (setSelection' arg'1' arg'2' arg'3')++setText :: (QLabelPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setText' arg'1' arg'2')++setTextFormat :: (QLabelPtr this) => (this) {- ^ this -} -> (M190.QtTextFormat) -> (HoppyP.IO ())+setTextFormat arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setTextFormat' arg'1' arg'2')++setTextInteractionFlags :: (QLabelPtr this, M190.IsQtTextInteractionFlags arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTextInteractionFlags arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtTextInteractionFlags+  ) arg'2 >>= \arg'2' ->+  (setTextInteractionFlags' arg'1' arg'2')++setWordWrap :: (QLabelPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setWordWrap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setWordWrap' arg'1' arg'2')++emitLinkActivated :: (QLabelPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitLinkActivated arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitLinkActivated' arg'1' arg'2')++emitLinkHovered :: (QLabelPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitLinkHovered arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLabel arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitLinkHovered' arg'1' arg'2')++data QLabelConst =+    QLabelConst (HoppyF.Ptr QLabelConst)+  | QLabelConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLabelConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLabelConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLabelConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLabelToConst :: QLabel -> QLabelConst+castQLabelToConst (QLabel ptr') = QLabelConst $ HoppyF.castPtr ptr'+castQLabelToConst (QLabelGc fptr' ptr') = QLabelConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLabelConst where+  nullptr = QLabelConst HoppyF.nullPtr+  +  withCppPtr (QLabelConst ptr') f' = f' ptr'+  withCppPtr (QLabelConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLabelConst ptr') = ptr'+  toPtr (QLabelConstGc _ ptr') = ptr'+  +  touchCppPtr (QLabelConst _) = HoppyP.return ()+  touchCppPtr (QLabelConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLabelConst where+  delete (QLabelConst ptr') = delete'QLabel ptr'+  delete (QLabelConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLabelConst", " object."]+  +  toGc this'@(QLabelConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLabelConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLabel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLabelConstGc {}) = HoppyP.return this'++instance QLabelConstPtr QLabelConst where+  toQLabelConst = HoppyP.id++instance M400.QFrameConstPtr QLabelConst where+  toQFrameConst (QLabelConst ptr') = M400.QFrameConst $ castQLabelToQFrame ptr'+  toQFrameConst (QLabelConstGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQLabelToQFrame ptr'++instance M506.QWidgetConstPtr QLabelConst where+  toQWidgetConst (QLabelConst ptr') = M506.QWidgetConst $ castQLabelToQWidget ptr'+  toQWidgetConst (QLabelConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQLabelToQWidget ptr'++instance M94.QObjectConstPtr QLabelConst where+  toQObjectConst (QLabelConst ptr') = M94.QObjectConst $ castQLabelToQObject ptr'+  toQObjectConst (QLabelConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQLabelToQObject ptr'++data QLabel =+    QLabel (HoppyF.Ptr QLabel)+  | QLabelGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLabel)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLabel where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLabel where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLabelToNonconst :: QLabelConst -> QLabel+castQLabelToNonconst (QLabelConst ptr') = QLabel $ HoppyF.castPtr ptr'+castQLabelToNonconst (QLabelConstGc fptr' ptr') = QLabelGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLabel where+  nullptr = QLabel HoppyF.nullPtr+  +  withCppPtr (QLabel ptr') f' = f' ptr'+  withCppPtr (QLabelGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLabel ptr') = ptr'+  toPtr (QLabelGc _ ptr') = ptr'+  +  touchCppPtr (QLabel _) = HoppyP.return ()+  touchCppPtr (QLabelGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLabel where+  delete (QLabel ptr') = delete'QLabel $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QLabelConst)+  delete (QLabelGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLabel", " object."]+  +  toGc this'@(QLabel ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLabelGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLabel :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLabelGc {}) = HoppyP.return this'++instance QLabelConstPtr QLabel where+  toQLabelConst (QLabel ptr') = QLabelConst $ (HoppyF.castPtr :: HoppyF.Ptr QLabel -> HoppyF.Ptr QLabelConst) ptr'+  toQLabelConst (QLabelGc fptr' ptr') = QLabelConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QLabel -> HoppyF.Ptr QLabelConst) ptr'++instance QLabelPtr QLabel where+  toQLabel = HoppyP.id++instance M400.QFrameConstPtr QLabel where+  toQFrameConst (QLabel ptr') = M400.QFrameConst $ castQLabelToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QLabel -> HoppyF.Ptr QLabelConst) ptr'+  toQFrameConst (QLabelGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQLabelToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QLabel -> HoppyF.Ptr QLabelConst) ptr'++instance M400.QFramePtr QLabel where+  toQFrame (QLabel ptr') = M400.QFrame $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQLabelToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QLabel -> HoppyF.Ptr QLabelConst) ptr'+  toQFrame (QLabelGc fptr' ptr') = M400.QFrameGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQLabelToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QLabel -> HoppyF.Ptr QLabelConst) ptr'++instance M506.QWidgetConstPtr QLabel where+  toQWidgetConst (QLabel ptr') = M506.QWidgetConst $ castQLabelToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QLabel -> HoppyF.Ptr QLabelConst) ptr'+  toQWidgetConst (QLabelGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQLabelToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QLabel -> HoppyF.Ptr QLabelConst) ptr'++instance M506.QWidgetPtr QLabel where+  toQWidget (QLabel ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQLabelToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QLabel -> HoppyF.Ptr QLabelConst) ptr'+  toQWidget (QLabelGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQLabelToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QLabel -> HoppyF.Ptr QLabelConst) ptr'++instance M94.QObjectConstPtr QLabel where+  toQObjectConst (QLabel ptr') = M94.QObjectConst $ castQLabelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLabel -> HoppyF.Ptr QLabelConst) ptr'+  toQObjectConst (QLabelGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQLabelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLabel -> HoppyF.Ptr QLabelConst) ptr'++instance M94.QObjectPtr QLabel where+  toQObject (QLabel ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQLabelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLabel -> HoppyF.Ptr QLabelConst) ptr'+  toQObject (QLabelGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQLabelToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLabel -> HoppyF.Ptr QLabelConst) ptr'++new :: (HoppyP.IO QLabel)+new =+  HoppyP.fmap QLabel+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QLabel)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QLabel+  (newWithParent' arg'1')++newWithText :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QLabel)+newWithText arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QLabel+  (newWithText' arg'1')++newWithTextAndParent :: (M142.QStringValue arg'1, M506.QWidgetPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QLabel)+newWithTextAndParent arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  HoppyP.fmap QLabel+  (newWithTextAndParent' arg'1' arg'2')++class QLabelSuper a where+  downToQLabel :: a -> QLabel++instance QLabelSuper M400.QFrame where+  downToQLabel = castQLabelToNonconst . cast' . M400.castQFrameToConst+    where+      cast' (M400.QFrameConst ptr') = QLabelConst $ castQFrameToQLabel ptr'+      cast' (M400.QFrameConstGc fptr' ptr') = QLabelConstGc fptr' $ castQFrameToQLabel ptr'+instance QLabelSuper M506.QWidget where+  downToQLabel = castQLabelToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QLabelConst $ castQWidgetToQLabel ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QLabelConstGc fptr' $ castQWidgetToQLabel ptr'+instance QLabelSuper M94.QObject where+  downToQLabel = castQLabelToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QLabelConst $ castQObjectToQLabel ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QLabelConstGc fptr' $ castQObjectToQLabel ptr'++class QLabelSuperConst a where+  downToQLabelConst :: a -> QLabelConst++instance QLabelSuperConst M400.QFrameConst where+  downToQLabelConst = cast'+    where+      cast' (M400.QFrameConst ptr') = QLabelConst $ castQFrameToQLabel ptr'+      cast' (M400.QFrameConstGc fptr' ptr') = QLabelConstGc fptr' $ castQFrameToQLabel ptr'+instance QLabelSuperConst M506.QWidgetConst where+  downToQLabelConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QLabelConst $ castQWidgetToQLabel ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QLabelConstGc fptr' $ castQWidgetToQLabel ptr'+instance QLabelSuperConst M94.QObjectConst where+  downToQLabelConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QLabelConst $ castQObjectToQLabel ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QLabelConstGc fptr' $ castQObjectToQLabel ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QLabel)) QLabel where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QLabel)) QLabel where+  decode = HoppyP.fmap QLabel . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Widgets/QLayout.hs view
@@ -0,0 +1,491 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QLayout (+  castQLayoutToQObject,+  castQObjectToQLayout,+  castQLayoutToQLayoutItem,+  castQLayoutItemToQLayout,+  QLayoutValue (..),+  QLayoutConstPtr (..),+  contentsMargins,+  contentsRect,+  count,+  isEnabled,+  indexOf,+  itemAt,+  menuBar,+  parentWidget,+  sizeConstraint,+  spacing,+  QLayoutPtr (..),+  activate,+  addItem,+  addWidget,+  setEnabled,+  setMenuBar,+  removeItem,+  removeWidget,+  setAlignment,+  setLayoutAlignment,+  setWidgetAlignment,+  setContentsMargins,+  setContentsMarginsRaw,+  setSizeConstraint,+  setSpacing,+  takeAt,+  update,+  closestAcceptableSize,+  QLayoutConst (..),+  castQLayoutToConst,+  QLayout (..),+  castQLayoutToNonconst,+  QLayoutSuper (..),+  QLayoutSuperConst (..),+  QLayoutSizeConstraint (..),+  ) 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.HMargins as HMargins+import qualified Graphics.UI.Qtah.Core.HRect as HRect+import qualified Graphics.UI.Qtah.Core.HSize as HSize+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QMargins as M68+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QRect as M122+import qualified Graphics.UI.Qtah.Generated.Core.QSize as M134+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QLayoutItem as M434+import {-# SOURCE #-} 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__QLayout_activate" activate' ::  HoppyF.Ptr QLayout -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLayout_addItem" addItem' ::  HoppyF.Ptr QLayout -> HoppyF.Ptr M434.QLayoutItem -> HoppyP.IO ()+foreign import ccall "genpop__QLayout_addWidget" addWidget' ::  HoppyF.Ptr QLayout -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QLayout_closestAcceptableSize" closestAcceptableSize' ::  HoppyF.Ptr M506.QWidget -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QLayout_contentsMargins" contentsMargins' ::  HoppyF.Ptr QLayoutConst -> HoppyP.IO (HoppyF.Ptr M68.QMarginsConst)+foreign import ccall "genpop__QLayout_contentsRect" contentsRect' ::  HoppyF.Ptr QLayoutConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QLayout_count" count' ::  HoppyF.Ptr QLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLayout_isEnabled" isEnabled' ::  HoppyF.Ptr QLayoutConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLayout_setEnabled" setEnabled' ::  HoppyF.Ptr QLayout -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QLayout_indexOf" indexOf' ::  HoppyF.Ptr QLayoutConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLayout_itemAt" itemAt' ::  HoppyF.Ptr QLayoutConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M434.QLayoutItem)+foreign import ccall "genpop__QLayout_menuBar" menuBar' ::  HoppyF.Ptr QLayoutConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QLayout_setMenuBar" setMenuBar' ::  HoppyF.Ptr QLayout -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QLayout_parentWidget" parentWidget' ::  HoppyF.Ptr QLayoutConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QLayout_removeItem" removeItem' ::  HoppyF.Ptr QLayout -> HoppyF.Ptr M434.QLayoutItem -> HoppyP.IO ()+foreign import ccall "genpop__QLayout_removeWidget" removeWidget' ::  HoppyF.Ptr QLayout -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QLayout_setAlignment" setAlignment' ::  HoppyF.Ptr QLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLayout_setLayoutAlignment" setLayoutAlignment' ::  HoppyF.Ptr QLayout -> HoppyF.Ptr QLayout -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLayout_setWidgetAlignment" setWidgetAlignment' ::  HoppyF.Ptr QLayout -> HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLayout_setContentsMargins" setContentsMargins' ::  HoppyF.Ptr QLayout -> HoppyF.Ptr M68.QMarginsConst -> HoppyP.IO ()+foreign import ccall "genpop__QLayout_setContentsMarginsRaw" setContentsMarginsRaw' ::  HoppyF.Ptr QLayout -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLayout_sizeConstraint" sizeConstraint' ::  HoppyF.Ptr QLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLayout_setSizeConstraint" setSizeConstraint' ::  HoppyF.Ptr QLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLayout_spacing" spacing' ::  HoppyF.Ptr QLayoutConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLayout_setSpacing" setSpacing' ::  HoppyF.Ptr QLayout -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLayout_takeAt" takeAt' ::  HoppyF.Ptr QLayout -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M434.QLayoutItem)+foreign import ccall "genpop__QLayout_update" update' ::  HoppyF.Ptr QLayout -> HoppyP.IO ()+foreign import ccall "gencast__QLayout__QObject" castQLayoutToQObject :: HoppyF.Ptr QLayoutConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QLayout" castQObjectToQLayout :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QLayoutConst+foreign import ccall "gencast__QLayout__QLayoutItem" castQLayoutToQLayoutItem :: HoppyF.Ptr QLayoutConst -> HoppyF.Ptr M434.QLayoutItemConst+foreign import ccall "gencast__QLayoutItem__QLayout" castQLayoutItemToQLayout :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr QLayoutConst+foreign import ccall "gendel__QLayout" delete'QLayout :: HoppyF.Ptr QLayoutConst -> HoppyP.IO ()+foreign import ccall "&gendel__QLayout" deletePtr'QLayout :: HoppyF.FunPtr (HoppyF.Ptr QLayoutConst -> HoppyP.IO ())++class QLayoutValue a where+  withQLayoutPtr :: a -> (QLayoutConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QLayoutConstPtr a => QLayoutValue a where+  withQLayoutPtr = HoppyP.flip ($) . toQLayoutConst++class (M94.QObjectConstPtr this, M434.QLayoutItemConstPtr this) => QLayoutConstPtr this where+  toQLayoutConst :: this -> QLayoutConst++contentsMargins :: (QLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HMargins.HMargins)+contentsMargins arg'1 =+  withQLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M68.QMarginsConst) =<<+  (contentsMargins' arg'1')++contentsRect :: (QLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HRect.HRect)+contentsRect arg'1 =+  withQLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<+  (contentsRect' arg'1')++count :: (QLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+count arg'1 =+  withQLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (count' arg'1')++isEnabled :: (QLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEnabled arg'1 =+  withQLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEnabled' arg'1')++indexOf :: (QLayoutValue this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+indexOf arg'1 arg'2 =+  withQLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (indexOf' arg'1' arg'2')++itemAt :: (QLayoutValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M434.QLayoutItem)+itemAt arg'1 arg'2 =+  withQLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M434.QLayoutItem+  (itemAt' arg'1' arg'2')++menuBar :: (QLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)+menuBar arg'1 =+  withQLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (menuBar' arg'1')++parentWidget :: (QLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)+parentWidget arg'1 =+  withQLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (parentWidget' arg'1')++sizeConstraint :: (QLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO QLayoutSizeConstraint)+sizeConstraint arg'1 =+  withQLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (sizeConstraint' arg'1')++spacing :: (QLayoutValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+spacing arg'1 =+  withQLayoutPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (spacing' arg'1')++class (QLayoutConstPtr this, M94.QObjectPtr this, M434.QLayoutItemPtr this) => QLayoutPtr this where+  toQLayout :: this -> QLayout++activate :: (QLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+activate arg'1 =+  HoppyFHR.withCppPtr (toQLayout arg'1) $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (activate' arg'1')++addItem :: (QLayoutPtr this, M434.QLayoutItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addItem arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M434.toQLayoutItem arg'2) $ \arg'2' ->+  (addItem' arg'1' arg'2')++addWidget :: (QLayoutPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addWidget arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (addWidget' arg'1' arg'2')++setEnabled :: (QLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLayout arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setEnabled' arg'1' arg'2')++setMenuBar :: (QLayoutPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setMenuBar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (setMenuBar' arg'1' arg'2')++removeItem :: (QLayoutPtr this, M434.QLayoutItemPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+removeItem arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M434.toQLayoutItem arg'2) $ \arg'2' ->+  (removeItem' arg'1' arg'2')++removeWidget :: (QLayoutPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+removeWidget arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (removeWidget' arg'1' arg'2')++setAlignment :: (QLayoutPtr this, M190.IsQtAlignment arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setAlignment arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLayout arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'2 >>= \arg'2' ->+  (setAlignment' arg'1' arg'2')++setLayoutAlignment :: (QLayoutPtr this, QLayoutPtr arg'2, M190.IsQtAlignment arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+setLayoutAlignment arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQLayout arg'2) $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (setLayoutAlignment' arg'1' arg'2' arg'3')++setWidgetAlignment :: (QLayoutPtr this, M506.QWidgetPtr arg'2, M190.IsQtAlignment arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO HoppyP.Bool)+setWidgetAlignment arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQLayout arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (setWidgetAlignment' arg'1' arg'2' arg'3')++setContentsMargins :: (QLayoutPtr this, M68.QMarginsValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setContentsMargins arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLayout arg'1) $ \arg'1' ->+  M68.withQMarginsPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setContentsMargins' arg'1' arg'2')++setContentsMarginsRaw :: (QLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setContentsMarginsRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQLayout 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' ->+  (setContentsMarginsRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++setSizeConstraint :: (QLayoutPtr this) => (this) {- ^ this -} -> (QLayoutSizeConstraint) -> (HoppyP.IO ())+setSizeConstraint arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setSizeConstraint' arg'1' arg'2')++setSpacing :: (QLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setSpacing arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setSpacing' arg'1' arg'2')++takeAt :: (QLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO M434.QLayoutItem)+takeAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLayout arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap M434.QLayoutItem+  (takeAt' arg'1' arg'2')++update :: (QLayoutPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+update arg'1 =+  HoppyFHR.withCppPtr (toQLayout arg'1) $ \arg'1' ->+  (update' arg'1')++closestAcceptableSize :: (M506.QWidgetPtr arg'1, M134.QSizeValue arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO HSize.HSize)+closestAcceptableSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (closestAcceptableSize' arg'1' arg'2')++data QLayoutConst =+    QLayoutConst (HoppyF.Ptr QLayoutConst)+  | QLayoutConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLayoutConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLayoutConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLayoutConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLayoutToConst :: QLayout -> QLayoutConst+castQLayoutToConst (QLayout ptr') = QLayoutConst $ HoppyF.castPtr ptr'+castQLayoutToConst (QLayoutGc fptr' ptr') = QLayoutConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLayoutConst where+  nullptr = QLayoutConst HoppyF.nullPtr+  +  withCppPtr (QLayoutConst ptr') f' = f' ptr'+  withCppPtr (QLayoutConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLayoutConst ptr') = ptr'+  toPtr (QLayoutConstGc _ ptr') = ptr'+  +  touchCppPtr (QLayoutConst _) = HoppyP.return ()+  touchCppPtr (QLayoutConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLayoutConst where+  delete (QLayoutConst ptr') = delete'QLayout ptr'+  delete (QLayoutConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLayoutConst", " object."]+  +  toGc this'@(QLayoutConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLayoutConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLayout :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLayoutConstGc {}) = HoppyP.return this'++instance QLayoutConstPtr QLayoutConst where+  toQLayoutConst = HoppyP.id++instance M94.QObjectConstPtr QLayoutConst where+  toQObjectConst (QLayoutConst ptr') = M94.QObjectConst $ castQLayoutToQObject ptr'+  toQObjectConst (QLayoutConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQLayoutToQObject ptr'++instance M434.QLayoutItemConstPtr QLayoutConst where+  toQLayoutItemConst (QLayoutConst ptr') = M434.QLayoutItemConst $ castQLayoutToQLayoutItem ptr'+  toQLayoutItemConst (QLayoutConstGc fptr' ptr') = M434.QLayoutItemConstGc fptr' $ castQLayoutToQLayoutItem ptr'++data QLayout =+    QLayout (HoppyF.Ptr QLayout)+  | QLayoutGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLayout)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLayout where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLayout where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLayoutToNonconst :: QLayoutConst -> QLayout+castQLayoutToNonconst (QLayoutConst ptr') = QLayout $ HoppyF.castPtr ptr'+castQLayoutToNonconst (QLayoutConstGc fptr' ptr') = QLayoutGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLayout where+  nullptr = QLayout HoppyF.nullPtr+  +  withCppPtr (QLayout ptr') f' = f' ptr'+  withCppPtr (QLayoutGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLayout ptr') = ptr'+  toPtr (QLayoutGc _ ptr') = ptr'+  +  touchCppPtr (QLayout _) = HoppyP.return ()+  touchCppPtr (QLayoutGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLayout where+  delete (QLayout ptr') = delete'QLayout $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QLayoutConst)+  delete (QLayoutGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLayout", " object."]+  +  toGc this'@(QLayout ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLayoutGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLayout :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLayoutGc {}) = HoppyP.return this'++instance QLayoutConstPtr QLayout where+  toQLayoutConst (QLayout ptr') = QLayoutConst $ (HoppyF.castPtr :: HoppyF.Ptr QLayout -> HoppyF.Ptr QLayoutConst) ptr'+  toQLayoutConst (QLayoutGc fptr' ptr') = QLayoutConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QLayout -> HoppyF.Ptr QLayoutConst) ptr'++instance QLayoutPtr QLayout where+  toQLayout = HoppyP.id++instance M94.QObjectConstPtr QLayout where+  toQObjectConst (QLayout ptr') = M94.QObjectConst $ castQLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLayout -> HoppyF.Ptr QLayoutConst) ptr'+  toQObjectConst (QLayoutGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLayout -> HoppyF.Ptr QLayoutConst) ptr'++instance M94.QObjectPtr QLayout where+  toQObject (QLayout ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLayout -> HoppyF.Ptr QLayoutConst) ptr'+  toQObject (QLayoutGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQLayoutToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLayout -> HoppyF.Ptr QLayoutConst) ptr'++instance M434.QLayoutItemConstPtr QLayout where+  toQLayoutItemConst (QLayout ptr') = M434.QLayoutItemConst $ castQLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QLayout -> HoppyF.Ptr QLayoutConst) ptr'+  toQLayoutItemConst (QLayoutGc fptr' ptr') = M434.QLayoutItemConstGc fptr' $ castQLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QLayout -> HoppyF.Ptr QLayoutConst) ptr'++instance M434.QLayoutItemPtr QLayout where+  toQLayoutItem (QLayout ptr') = M434.QLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr M434.QLayoutItem) $ castQLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QLayout -> HoppyF.Ptr QLayoutConst) ptr'+  toQLayoutItem (QLayoutGc fptr' ptr') = M434.QLayoutItemGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M434.QLayoutItemConst -> HoppyF.Ptr M434.QLayoutItem) $ castQLayoutToQLayoutItem $ (HoppyF.castPtr :: HoppyF.Ptr QLayout -> HoppyF.Ptr QLayoutConst) ptr'++class QLayoutSuper a where+  downToQLayout :: a -> QLayout++instance QLayoutSuper M94.QObject where+  downToQLayout = castQLayoutToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QLayoutConst $ castQObjectToQLayout ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QLayoutConstGc fptr' $ castQObjectToQLayout ptr'+instance QLayoutSuper M434.QLayoutItem where+  downToQLayout = castQLayoutToNonconst . cast' . M434.castQLayoutItemToConst+    where+      cast' (M434.QLayoutItemConst ptr') = QLayoutConst $ castQLayoutItemToQLayout ptr'+      cast' (M434.QLayoutItemConstGc fptr' ptr') = QLayoutConstGc fptr' $ castQLayoutItemToQLayout ptr'++class QLayoutSuperConst a where+  downToQLayoutConst :: a -> QLayoutConst++instance QLayoutSuperConst M94.QObjectConst where+  downToQLayoutConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QLayoutConst $ castQObjectToQLayout ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QLayoutConstGc fptr' $ castQObjectToQLayout ptr'+instance QLayoutSuperConst M434.QLayoutItemConst where+  downToQLayoutConst = cast'+    where+      cast' (M434.QLayoutItemConst ptr') = QLayoutConst $ castQLayoutItemToQLayout ptr'+      cast' (M434.QLayoutItemConstGc fptr' ptr') = QLayoutConstGc fptr' $ castQLayoutItemToQLayout ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QLayout)) QLayout where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QLayout)) QLayout where+  decode = HoppyP.fmap QLayout . HoppyF.peek++data QLayoutSizeConstraint =+  SetDefaultConstraint+  | SetNoConstraint+  | SetMinimumSize+  | SetFixedSize+  | SetMaximumSize+  | SetMinAndMaxSize+  | UnknownQLayoutSizeConstraint (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QLayoutSizeConstraint where+  fromCppEnum SetDefaultConstraint = 0+  fromCppEnum SetNoConstraint = 1+  fromCppEnum SetMinimumSize = 2+  fromCppEnum SetFixedSize = 3+  fromCppEnum SetMaximumSize = 4+  fromCppEnum SetMinAndMaxSize = 5+  fromCppEnum (UnknownQLayoutSizeConstraint n) = n+  +  toCppEnum (0) = SetDefaultConstraint+  toCppEnum (1) = SetNoConstraint+  toCppEnum (2) = SetMinimumSize+  toCppEnum (3) = SetFixedSize+  toCppEnum (4) = SetMaximumSize+  toCppEnum (5) = SetMinAndMaxSize+  toCppEnum n = UnknownQLayoutSizeConstraint n++instance HoppyP.Eq QLayoutSizeConstraint where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QLayoutSizeConstraint where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Widgets/QLayout.hs-boot view
@@ -0,0 +1,80 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QLayout (+  QLayoutValue (..),+  QLayoutConstPtr (..),+  QLayoutPtr (..),+  QLayoutConst (..),+  castQLayoutToConst,+  QLayout (..),+  castQLayoutToNonconst,+  castQLayoutToQObject,+  castQLayoutToQLayoutItem,+  QLayoutSizeConstraint,+  ) 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.Core.QObject as M94+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QLayoutItem as M434+import qualified Prelude as HoppyP+++class QLayoutValue a where+  withQLayoutPtr :: a -> (QLayoutConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QLayoutConstPtr a => QLayoutValue a++class (M94.QObjectConstPtr this, M434.QLayoutItemConstPtr this) => QLayoutConstPtr this where+  toQLayoutConst :: this -> QLayoutConst++class (QLayoutConstPtr this, M94.QObjectPtr this, M434.QLayoutItemPtr this) => QLayoutPtr this where+  toQLayout :: this -> QLayout++data QLayoutConst =+    QLayoutConst (HoppyF.Ptr QLayoutConst)+  | QLayoutConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLayoutConst)++castQLayoutToConst :: QLayout -> QLayoutConst++instance HoppyFHR.CppPtr QLayoutConst+instance HoppyFHR.Deletable QLayoutConst++instance QLayoutConstPtr QLayoutConst++instance M94.QObjectConstPtr QLayoutConst++instance M434.QLayoutItemConstPtr QLayoutConst++data QLayout =+    QLayout (HoppyF.Ptr QLayout)+  | QLayoutGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLayout)++castQLayoutToNonconst :: QLayoutConst -> QLayout++instance HoppyFHR.CppPtr QLayout+instance HoppyFHR.Deletable QLayout++instance QLayoutConstPtr QLayout++instance QLayoutPtr QLayout++instance M94.QObjectConstPtr QLayout++instance M94.QObjectPtr QLayout++instance M434.QLayoutItemConstPtr QLayout++instance M434.QLayoutItemPtr QLayout+castQLayoutToQObject :: HoppyF.Ptr QLayoutConst -> HoppyF.Ptr M94.QObjectConst+castQLayoutToQLayoutItem :: HoppyF.Ptr QLayoutConst -> HoppyF.Ptr M434.QLayoutItemConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QLayout)) QLayout++data QLayoutSizeConstraint+instance HoppyFHR.CppEnum (HoppyFC.CInt) QLayoutSizeConstraint+instance HoppyP.Eq QLayoutSizeConstraint+instance HoppyP.Ord QLayoutSizeConstraint+instance HoppyP.Show QLayoutSizeConstraint
src/Graphics/UI/Qtah/Generated/Widgets/QLayoutItem.hs view
@@ -0,0 +1,275 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QLayoutItem (+  QLayoutItemValue (..),+  QLayoutItemConstPtr (..),+  alignment,+  expandingDirections,+  geometry,+  hasHeightForWidth,+  heightForWidth,+  isEmpty,+  maximumSize,+  minimumHeightForWidth,+  minimumSize,+  sizeHint,+  QLayoutItemPtr (..),+  setAlignment,+  setGeometry,+  invalidate,+  layout,+  widget,+  QLayoutItemConst (..),+  castQLayoutItemToConst,+  QLayoutItem (..),+  castQLayoutItemToNonconst,+  QLayoutItemSuper (..),+  QLayoutItemSuperConst (..),+  ) 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.Core.HSize as HSize+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QRect as M122+import qualified Graphics.UI.Qtah.Generated.Core.QSize as M134+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QLayout as M432+import {-# SOURCE #-} 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__QLayoutItem_alignment" alignment' ::  HoppyF.Ptr QLayoutItemConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLayoutItem_setAlignment" setAlignment' ::  HoppyF.Ptr QLayoutItem -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLayoutItem_expandingDirections" expandingDirections' ::  HoppyF.Ptr QLayoutItemConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLayoutItem_geometry" geometry' ::  HoppyF.Ptr QLayoutItemConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QLayoutItem_setGeometry" setGeometry' ::  HoppyF.Ptr QLayoutItem -> HoppyF.Ptr M122.QRectConst -> HoppyP.IO ()+foreign import ccall "genpop__QLayoutItem_hasHeightForWidth" hasHeightForWidth' ::  HoppyF.Ptr QLayoutItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLayoutItem_heightForWidth" heightForWidth' ::  HoppyF.Ptr QLayoutItemConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLayoutItem_invalidate" invalidate' ::  HoppyF.Ptr QLayoutItem -> HoppyP.IO ()+foreign import ccall "genpop__QLayoutItem_isEmpty" isEmpty' ::  HoppyF.Ptr QLayoutItemConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLayoutItem_layout" layout' ::  HoppyF.Ptr QLayoutItem -> HoppyP.IO (HoppyF.Ptr M432.QLayout)+foreign import ccall "genpop__QLayoutItem_maximumSize" maximumSize' ::  HoppyF.Ptr QLayoutItemConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QLayoutItem_minimumHeightForWidth" minimumHeightForWidth' ::  HoppyF.Ptr QLayoutItemConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLayoutItem_minimumSize" minimumSize' ::  HoppyF.Ptr QLayoutItemConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QLayoutItem_sizeHint" sizeHint' ::  HoppyF.Ptr QLayoutItemConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QLayoutItem_widget" widget' ::  HoppyF.Ptr QLayoutItem -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "gendel__QLayoutItem" delete'QLayoutItem :: HoppyF.Ptr QLayoutItemConst -> HoppyP.IO ()+foreign import ccall "&gendel__QLayoutItem" deletePtr'QLayoutItem :: HoppyF.FunPtr (HoppyF.Ptr QLayoutItemConst -> HoppyP.IO ())++class QLayoutItemValue a where+  withQLayoutItemPtr :: a -> (QLayoutItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QLayoutItemConstPtr a => QLayoutItemValue a where+  withQLayoutItemPtr = HoppyP.flip ($) . toQLayoutItemConst++class (HoppyFHR.CppPtr this) => QLayoutItemConstPtr this where+  toQLayoutItemConst :: this -> QLayoutItemConst++alignment :: (QLayoutItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtAlignment)+alignment arg'1 =+  withQLayoutItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (alignment' arg'1')++expandingDirections :: (QLayoutItemValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtOrientations)+expandingDirections arg'1 =+  withQLayoutItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (expandingDirections' arg'1')++geometry :: (QLayoutItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HRect.HRect)+geometry arg'1 =+  withQLayoutItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<+  (geometry' arg'1')++hasHeightForWidth :: (QLayoutItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasHeightForWidth arg'1 =+  withQLayoutItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasHeightForWidth' arg'1')++heightForWidth :: (QLayoutItemValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+heightForWidth arg'1 arg'2 =+  withQLayoutItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (heightForWidth' arg'1' arg'2')++isEmpty :: (QLayoutItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQLayoutItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++maximumSize :: (QLayoutItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+maximumSize arg'1 =+  withQLayoutItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (maximumSize' arg'1')++minimumHeightForWidth :: (QLayoutItemValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Int)+minimumHeightForWidth arg'1 arg'2 =+  withQLayoutItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (minimumHeightForWidth' arg'1' arg'2')++minimumSize :: (QLayoutItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+minimumSize arg'1 =+  withQLayoutItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (minimumSize' arg'1')++sizeHint :: (QLayoutItemValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+sizeHint arg'1 =+  withQLayoutItemPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (sizeHint' arg'1')++class (QLayoutItemConstPtr this) => QLayoutItemPtr this where+  toQLayoutItem :: this -> QLayoutItem++setAlignment :: (QLayoutItemPtr this, M190.IsQtAlignment arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setAlignment arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLayoutItem arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'2 >>= \arg'2' ->+  (setAlignment' arg'1' arg'2')++setGeometry :: (QLayoutItemPtr this, M122.QRectValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setGeometry arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLayoutItem arg'1) $ \arg'1' ->+  M122.withQRectPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setGeometry' arg'1' arg'2')++invalidate :: (QLayoutItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+invalidate arg'1 =+  HoppyFHR.withCppPtr (toQLayoutItem arg'1) $ \arg'1' ->+  (invalidate' arg'1')++layout :: (QLayoutItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO M432.QLayout)+layout arg'1 =+  HoppyFHR.withCppPtr (toQLayoutItem arg'1) $ \arg'1' ->+  HoppyP.fmap M432.QLayout+  (layout' arg'1')++widget :: (QLayoutItemPtr this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)+widget arg'1 =+  HoppyFHR.withCppPtr (toQLayoutItem arg'1) $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (widget' arg'1')++data QLayoutItemConst =+    QLayoutItemConst (HoppyF.Ptr QLayoutItemConst)+  | QLayoutItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLayoutItemConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLayoutItemConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLayoutItemConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLayoutItemToConst :: QLayoutItem -> QLayoutItemConst+castQLayoutItemToConst (QLayoutItem ptr') = QLayoutItemConst $ HoppyF.castPtr ptr'+castQLayoutItemToConst (QLayoutItemGc fptr' ptr') = QLayoutItemConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLayoutItemConst where+  nullptr = QLayoutItemConst HoppyF.nullPtr+  +  withCppPtr (QLayoutItemConst ptr') f' = f' ptr'+  withCppPtr (QLayoutItemConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLayoutItemConst ptr') = ptr'+  toPtr (QLayoutItemConstGc _ ptr') = ptr'+  +  touchCppPtr (QLayoutItemConst _) = HoppyP.return ()+  touchCppPtr (QLayoutItemConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLayoutItemConst where+  delete (QLayoutItemConst ptr') = delete'QLayoutItem ptr'+  delete (QLayoutItemConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLayoutItemConst", " object."]+  +  toGc this'@(QLayoutItemConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLayoutItemConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLayoutItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLayoutItemConstGc {}) = HoppyP.return this'++instance QLayoutItemConstPtr QLayoutItemConst where+  toQLayoutItemConst = HoppyP.id++data QLayoutItem =+    QLayoutItem (HoppyF.Ptr QLayoutItem)+  | QLayoutItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLayoutItem)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLayoutItem where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLayoutItem where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLayoutItemToNonconst :: QLayoutItemConst -> QLayoutItem+castQLayoutItemToNonconst (QLayoutItemConst ptr') = QLayoutItem $ HoppyF.castPtr ptr'+castQLayoutItemToNonconst (QLayoutItemConstGc fptr' ptr') = QLayoutItemGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLayoutItem where+  nullptr = QLayoutItem HoppyF.nullPtr+  +  withCppPtr (QLayoutItem ptr') f' = f' ptr'+  withCppPtr (QLayoutItemGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLayoutItem ptr') = ptr'+  toPtr (QLayoutItemGc _ ptr') = ptr'+  +  touchCppPtr (QLayoutItem _) = HoppyP.return ()+  touchCppPtr (QLayoutItemGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLayoutItem where+  delete (QLayoutItem ptr') = delete'QLayoutItem $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QLayoutItemConst)+  delete (QLayoutItemGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLayoutItem", " object."]+  +  toGc this'@(QLayoutItem ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLayoutItemGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLayoutItem :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLayoutItemGc {}) = HoppyP.return this'++instance QLayoutItemConstPtr QLayoutItem where+  toQLayoutItemConst (QLayoutItem ptr') = QLayoutItemConst $ (HoppyF.castPtr :: HoppyF.Ptr QLayoutItem -> HoppyF.Ptr QLayoutItemConst) ptr'+  toQLayoutItemConst (QLayoutItemGc fptr' ptr') = QLayoutItemConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QLayoutItem -> HoppyF.Ptr QLayoutItemConst) ptr'++instance QLayoutItemPtr QLayoutItem where+  toQLayoutItem = HoppyP.id++class QLayoutItemSuper a where+  downToQLayoutItem :: a -> QLayoutItem+++class QLayoutItemSuperConst a where+  downToQLayoutItemConst :: a -> QLayoutItemConst+++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QLayoutItem)) QLayoutItem where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QLayoutItem)) QLayoutItem where+  decode = HoppyP.fmap QLayoutItem . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Widgets/QLayoutItem.hs-boot view
@@ -0,0 +1,54 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QLayoutItem (+  QLayoutItemValue (..),+  QLayoutItemConstPtr (..),+  QLayoutItemPtr (..),+  QLayoutItemConst (..),+  castQLayoutItemToConst,+  QLayoutItem (..),+  castQLayoutItemToNonconst,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Prelude as HoppyP+++class QLayoutItemValue a where+  withQLayoutItemPtr :: a -> (QLayoutItemConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QLayoutItemConstPtr a => QLayoutItemValue a++class (HoppyFHR.CppPtr this) => QLayoutItemConstPtr this where+  toQLayoutItemConst :: this -> QLayoutItemConst++class (QLayoutItemConstPtr this) => QLayoutItemPtr this where+  toQLayoutItem :: this -> QLayoutItem++data QLayoutItemConst =+    QLayoutItemConst (HoppyF.Ptr QLayoutItemConst)+  | QLayoutItemConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLayoutItemConst)++castQLayoutItemToConst :: QLayoutItem -> QLayoutItemConst++instance HoppyFHR.CppPtr QLayoutItemConst+instance HoppyFHR.Deletable QLayoutItemConst++instance QLayoutItemConstPtr QLayoutItemConst++data QLayoutItem =+    QLayoutItem (HoppyF.Ptr QLayoutItem)+  | QLayoutItemGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLayoutItem)++castQLayoutItemToNonconst :: QLayoutItemConst -> QLayoutItem++instance HoppyFHR.CppPtr QLayoutItem+instance HoppyFHR.Deletable QLayoutItem++instance QLayoutItemConstPtr QLayoutItem++instance QLayoutItemPtr QLayoutItem++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QLayoutItem)) QLayoutItem
src/Graphics/UI/Qtah/Generated/Widgets/QLineEdit.hs view
@@ -0,0 +1,841 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QLineEdit (+  castQLineEditToQWidget,+  castQWidgetToQLineEdit,+  castQLineEditToQObject,+  castQObjectToQLineEdit,+  QLineEditValue (..),+  QLineEditConstPtr (..),+  alignment,+  isClearButtonEnabled,+  copy,+  cursorMoveStyle,+  cursorPosition,+  displayText,+  dragEnabled,+  echoMode,+  hasFrame,+  hasAcceptableInput,+  hasSelectedText,+  inputMask,+  isRedoAvailable,+  isUndoAvailable,+  maxLength,+  isModified,+  placeholderText,+  isReadOnly,+  selectedText,+  selectionStart,+  text,+  textMargins,+  validator,+  QLineEditPtr (..),+  setAlignment,+  backspace,+  clear,+  setClearButtonEnabled,+  createStandardContextMenu,+  cursorBackward,+  cursorForward,+  setCursorMoveStyle,+  setCursorPosition,+  cursorPositionAt,+  cursorWordBackward,+  cursorWordForward,+  cut,+  del,+  deselect,+  setDragEnabled,+  setEchoMode,+  end,+  setFrame,+  home,+  setInputMask,+  insert,+  setMaxLength,+  setModified,+  paste,+  setPlaceholderText,+  setReadOnly,+  redo,+  selectAll,+  setSelection,+  setTextMargins,+  setTextMarginsRaw,+  setText,+  undo,+  setValidator,+  emitCursorPositionChanged,+  emitEditingFinished,+  emitReturnPressed,+  emitSelectionChanged,+  emitTextEdited,+  emitTextChanged,+  QLineEditConst (..),+  castQLineEditToConst,+  QLineEdit (..),+  castQLineEditToNonconst,+  new,+  newWithParent,+  newWithText,+  newWithTextAndParent,+  QLineEditSuper (..),+  QLineEditSuperConst (..),+  QLineEditEchoMode (..),+  ) 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.HMargins as HMargins+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QMargins as M68+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.QString as M142+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Gui.QValidator as M338+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+import qualified Prelude as QtahP++foreign import ccall "genpop__QLineEdit_new" new' ::  HoppyP.IO (HoppyF.Ptr QLineEdit)+foreign import ccall "genpop__QLineEdit_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QLineEdit)+foreign import ccall "genpop__QLineEdit_newWithText" newWithText' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QLineEdit)+foreign import ccall "genpop__QLineEdit_newWithTextAndParent" newWithTextAndParent' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QLineEdit)+foreign import ccall "genpop__QLineEdit_alignment" alignment' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLineEdit_setAlignment" setAlignment' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_backspace" backspace' ::  HoppyF.Ptr QLineEdit -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_clear" clear' ::  HoppyF.Ptr QLineEdit -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_isClearButtonEnabled" isClearButtonEnabled' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLineEdit_setClearButtonEnabled" setClearButtonEnabled' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_copy" copy' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_createStandardContextMenu" createStandardContextMenu' ::  HoppyF.Ptr QLineEdit -> HoppyP.IO (HoppyF.Ptr M448.QMenu)+foreign import ccall "genpop__QLineEdit_cursorBackward" cursorBackward' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CBool -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_cursorForward" cursorForward' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CBool -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_cursorMoveStyle" cursorMoveStyle' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLineEdit_setCursorMoveStyle" setCursorMoveStyle' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_cursorPosition" cursorPosition' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLineEdit_setCursorPosition" setCursorPosition' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_cursorPositionAt" cursorPositionAt' ::  HoppyF.Ptr QLineEdit -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLineEdit_cursorWordBackward" cursorWordBackward' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_cursorWordForward" cursorWordForward' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_cut" cut' ::  HoppyF.Ptr QLineEdit -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_del" del' ::  HoppyF.Ptr QLineEdit -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_deselect" deselect' ::  HoppyF.Ptr QLineEdit -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_displayText" displayText' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QLineEdit_dragEnabled" dragEnabled' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLineEdit_setDragEnabled" setDragEnabled' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_echoMode" echoMode' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLineEdit_setEchoMode" setEchoMode' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_end" end' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_hasFrame" hasFrame' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLineEdit_setFrame" setFrame' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_hasAcceptableInput" hasAcceptableInput' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLineEdit_hasSelectedText" hasSelectedText' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLineEdit_home" home' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_inputMask" inputMask' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QLineEdit_setInputMask" setInputMask' ::  HoppyF.Ptr QLineEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_insert" insert' ::  HoppyF.Ptr QLineEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_isRedoAvailable" isRedoAvailable' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLineEdit_isUndoAvailable" isUndoAvailable' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLineEdit_maxLength" maxLength' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLineEdit_setMaxLength" setMaxLength' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_isModified" isModified' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLineEdit_setModified" setModified' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_paste" paste' ::  HoppyF.Ptr QLineEdit -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_placeholderText" placeholderText' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QLineEdit_setPlaceholderText" setPlaceholderText' ::  HoppyF.Ptr QLineEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_isReadOnly" isReadOnly' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QLineEdit_setReadOnly" setReadOnly' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_redo" redo' ::  HoppyF.Ptr QLineEdit -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_selectAll" selectAll' ::  HoppyF.Ptr QLineEdit -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_selectedText" selectedText' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QLineEdit_selectionStart" selectionStart' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QLineEdit_setSelection" setSelection' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_setTextMargins" setTextMargins' ::  HoppyF.Ptr QLineEdit -> HoppyF.Ptr M68.QMarginsConst -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_setTextMarginsRaw" setTextMarginsRaw' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_text" text' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QLineEdit_setText" setText' ::  HoppyF.Ptr QLineEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_textMargins" textMargins' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO (HoppyF.Ptr M68.QMarginsConst)+foreign import ccall "genpop__QLineEdit_undo" undo' ::  HoppyF.Ptr QLineEdit -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_validator" validator' ::  HoppyF.Ptr QLineEditConst -> HoppyP.IO (HoppyF.Ptr M338.QValidatorConst)+foreign import ccall "genpop__QLineEdit_setValidator" setValidator' ::  HoppyF.Ptr QLineEdit -> HoppyF.Ptr M338.QValidatorConst -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_emitCursorPositionChanged" emitCursorPositionChanged' ::  HoppyF.Ptr QLineEdit -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_emitEditingFinished" emitEditingFinished' ::  HoppyF.Ptr QLineEdit -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_emitReturnPressed" emitReturnPressed' ::  HoppyF.Ptr QLineEdit -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_emitSelectionChanged" emitSelectionChanged' ::  HoppyF.Ptr QLineEdit -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_emitTextEdited" emitTextEdited' ::  HoppyF.Ptr QLineEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QLineEdit_emitTextChanged" emitTextChanged' ::  HoppyF.Ptr QLineEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "gencast__QLineEdit__QWidget" castQLineEditToQWidget :: HoppyF.Ptr QLineEditConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QLineEdit" castQWidgetToQLineEdit :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QLineEditConst+foreign import ccall "gencast__QLineEdit__QObject" castQLineEditToQObject :: HoppyF.Ptr QLineEditConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QLineEdit" castQObjectToQLineEdit :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QLineEditConst+foreign import ccall "gendel__QLineEdit" delete'QLineEdit :: HoppyF.Ptr QLineEditConst -> HoppyP.IO ()+foreign import ccall "&gendel__QLineEdit" deletePtr'QLineEdit :: HoppyF.FunPtr (HoppyF.Ptr QLineEditConst -> HoppyP.IO ())++class QLineEditValue a where+  withQLineEditPtr :: a -> (QLineEditConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QLineEditConstPtr a => QLineEditValue a where+  withQLineEditPtr = HoppyP.flip ($) . toQLineEditConst++class (M506.QWidgetConstPtr this) => QLineEditConstPtr this where+  toQLineEditConst :: this -> QLineEditConst++alignment :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtAlignment)+alignment arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (alignment' arg'1')++isClearButtonEnabled :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isClearButtonEnabled arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isClearButtonEnabled' arg'1')++copy :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO ())+copy arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (copy' arg'1')++cursorMoveStyle :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtCursorMoveStyle)+cursorMoveStyle arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (cursorMoveStyle' arg'1')++cursorPosition :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+cursorPosition arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (cursorPosition' arg'1')++displayText :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+displayText arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (displayText' arg'1')++dragEnabled :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+dragEnabled arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (dragEnabled' arg'1')++echoMode :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO QLineEditEchoMode)+echoMode arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (echoMode' arg'1')++hasFrame :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasFrame arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasFrame' arg'1')++hasAcceptableInput :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasAcceptableInput arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasAcceptableInput' arg'1')++hasSelectedText :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+hasSelectedText arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (hasSelectedText' arg'1')++inputMask :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+inputMask arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (inputMask' arg'1')++isRedoAvailable :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isRedoAvailable arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isRedoAvailable' arg'1')++isUndoAvailable :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isUndoAvailable arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isUndoAvailable' arg'1')++maxLength :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+maxLength arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (maxLength' arg'1')++isModified :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isModified arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isModified' arg'1')++placeholderText :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+placeholderText arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (placeholderText' arg'1')++isReadOnly :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isReadOnly arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isReadOnly' arg'1')++selectedText :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+selectedText arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (selectedText' arg'1')++selectionStart :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+selectionStart arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (selectionStart' arg'1')++text :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+text arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (text' arg'1')++textMargins :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HMargins.HMargins)+textMargins arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M68.QMarginsConst) =<<+  (textMargins' arg'1')++validator :: (QLineEditValue this) => (this) {- ^ this -} -> (HoppyP.IO M338.QValidatorConst)+validator arg'1 =+  withQLineEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M338.QValidatorConst+  (validator' arg'1')++class (QLineEditConstPtr this, M506.QWidgetPtr this) => QLineEditPtr this where+  toQLineEdit :: this -> QLineEdit++setAlignment :: (QLineEditPtr this, M190.IsQtAlignment arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setAlignment arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'2 >>= \arg'2' ->+  (setAlignment' arg'1' arg'2')++backspace :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+backspace arg'1 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (backspace' arg'1')++clear :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (clear' arg'1')++setClearButtonEnabled :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setClearButtonEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setClearButtonEnabled' arg'1' arg'2')++createStandardContextMenu :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO M448.QMenu)+createStandardContextMenu arg'1 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  HoppyP.fmap M448.QMenu+  (createStandardContextMenu' arg'1')++cursorBackward :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.Int) -> (HoppyP.IO ())+cursorBackward arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (cursorBackward' arg'1' arg'2' arg'3')++cursorForward :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.Int) -> (HoppyP.IO ())+cursorForward arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (cursorForward' arg'1' arg'2' arg'3')++setCursorMoveStyle :: (QLineEditPtr this) => (this) {- ^ this -} -> (M190.QtCursorMoveStyle) -> (HoppyP.IO ())+setCursorMoveStyle arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setCursorMoveStyle' arg'1' arg'2')++setCursorPosition :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setCursorPosition arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setCursorPosition' arg'1' arg'2')++cursorPositionAt :: (QLineEditPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Int)+cursorPositionAt arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (cursorPositionAt' arg'1' arg'2')++cursorWordBackward :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+cursorWordBackward arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (cursorWordBackward' arg'1' arg'2')++cursorWordForward :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+cursorWordForward arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (cursorWordForward' arg'1' arg'2')++cut :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+cut arg'1 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (cut' arg'1')++del :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+del arg'1 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (del' arg'1')++deselect :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+deselect arg'1 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (deselect' arg'1')++setDragEnabled :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setDragEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setDragEnabled' arg'1' arg'2')++setEchoMode :: (QLineEditPtr this) => (this) {- ^ this -} -> (QLineEditEchoMode) -> (HoppyP.IO ())+setEchoMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setEchoMode' arg'1' arg'2')++end :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+end arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (end' arg'1' arg'2')++setFrame :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setFrame arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setFrame' arg'1' arg'2')++home :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+home arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (home' arg'1' arg'2')++setInputMask :: (QLineEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setInputMask arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setInputMask' arg'1' arg'2')++insert :: (QLineEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+insert arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (insert' arg'1' arg'2')++setMaxLength :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setMaxLength arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setMaxLength' arg'1' arg'2')++setModified :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setModified arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setModified' arg'1' arg'2')++paste :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+paste arg'1 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (paste' arg'1')++setPlaceholderText :: (QLineEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setPlaceholderText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setPlaceholderText' arg'1' arg'2')++setReadOnly :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setReadOnly arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setReadOnly' arg'1' arg'2')++redo :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+redo arg'1 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (redo' arg'1')++selectAll :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+selectAll arg'1 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (selectAll' arg'1')++setSelection :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setSelection arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (setSelection' arg'1' arg'2' arg'3')++setTextMargins :: (QLineEditPtr this, M68.QMarginsValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTextMargins arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  M68.withQMarginsPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setTextMargins' arg'1' arg'2')++setTextMarginsRaw :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+setTextMarginsRaw arg'1 arg'2 arg'3 arg'4 arg'5 =+  HoppyFHR.withCppPtr (toQLineEdit 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' ->+  (setTextMarginsRaw' arg'1' arg'2' arg'3' arg'4' arg'5')++setText :: (QLineEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setText arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setText' arg'1' arg'2')++undo :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+undo arg'1 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (undo' arg'1')++setValidator :: (QLineEditPtr this, M338.QValidatorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setValidator arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  M338.withQValidatorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setValidator' arg'1' arg'2')++emitCursorPositionChanged :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Int) -> (HoppyP.IO ())+emitCursorPositionChanged arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (emitCursorPositionChanged' arg'1' arg'2' arg'3')++emitEditingFinished :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitEditingFinished arg'1 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (emitEditingFinished' arg'1')++emitReturnPressed :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitReturnPressed arg'1 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (emitReturnPressed' arg'1')++emitSelectionChanged :: (QLineEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitSelectionChanged arg'1 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  (emitSelectionChanged' arg'1')++emitTextEdited :: (QLineEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitTextEdited arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitTextEdited' arg'1' arg'2')++emitTextChanged :: (QLineEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitTextChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQLineEdit arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitTextChanged' arg'1' arg'2')++data QLineEditConst =+    QLineEditConst (HoppyF.Ptr QLineEditConst)+  | QLineEditConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLineEditConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLineEditConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLineEditConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLineEditToConst :: QLineEdit -> QLineEditConst+castQLineEditToConst (QLineEdit ptr') = QLineEditConst $ HoppyF.castPtr ptr'+castQLineEditToConst (QLineEditGc fptr' ptr') = QLineEditConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLineEditConst where+  nullptr = QLineEditConst HoppyF.nullPtr+  +  withCppPtr (QLineEditConst ptr') f' = f' ptr'+  withCppPtr (QLineEditConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLineEditConst ptr') = ptr'+  toPtr (QLineEditConstGc _ ptr') = ptr'+  +  touchCppPtr (QLineEditConst _) = HoppyP.return ()+  touchCppPtr (QLineEditConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLineEditConst where+  delete (QLineEditConst ptr') = delete'QLineEdit ptr'+  delete (QLineEditConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLineEditConst", " object."]+  +  toGc this'@(QLineEditConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLineEditConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLineEdit :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLineEditConstGc {}) = HoppyP.return this'++instance QLineEditConstPtr QLineEditConst where+  toQLineEditConst = HoppyP.id++instance M506.QWidgetConstPtr QLineEditConst where+  toQWidgetConst (QLineEditConst ptr') = M506.QWidgetConst $ castQLineEditToQWidget ptr'+  toQWidgetConst (QLineEditConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQLineEditToQWidget ptr'++instance M94.QObjectConstPtr QLineEditConst where+  toQObjectConst (QLineEditConst ptr') = M94.QObjectConst $ castQLineEditToQObject ptr'+  toQObjectConst (QLineEditConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQLineEditToQObject ptr'++data QLineEdit =+    QLineEdit (HoppyF.Ptr QLineEdit)+  | QLineEditGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QLineEdit)+  deriving (HoppyP.Show)++instance HoppyP.Eq QLineEdit where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QLineEdit where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQLineEditToNonconst :: QLineEditConst -> QLineEdit+castQLineEditToNonconst (QLineEditConst ptr') = QLineEdit $ HoppyF.castPtr ptr'+castQLineEditToNonconst (QLineEditConstGc fptr' ptr') = QLineEditGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QLineEdit where+  nullptr = QLineEdit HoppyF.nullPtr+  +  withCppPtr (QLineEdit ptr') f' = f' ptr'+  withCppPtr (QLineEditGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QLineEdit ptr') = ptr'+  toPtr (QLineEditGc _ ptr') = ptr'+  +  touchCppPtr (QLineEdit _) = HoppyP.return ()+  touchCppPtr (QLineEditGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QLineEdit where+  delete (QLineEdit ptr') = delete'QLineEdit $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QLineEditConst)+  delete (QLineEditGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QLineEdit", " object."]+  +  toGc this'@(QLineEdit ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QLineEditGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QLineEdit :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QLineEditGc {}) = HoppyP.return this'++instance QLineEditConstPtr QLineEdit where+  toQLineEditConst (QLineEdit ptr') = QLineEditConst $ (HoppyF.castPtr :: HoppyF.Ptr QLineEdit -> HoppyF.Ptr QLineEditConst) ptr'+  toQLineEditConst (QLineEditGc fptr' ptr') = QLineEditConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QLineEdit -> HoppyF.Ptr QLineEditConst) ptr'++instance QLineEditPtr QLineEdit where+  toQLineEdit = HoppyP.id++instance M506.QWidgetConstPtr QLineEdit where+  toQWidgetConst (QLineEdit ptr') = M506.QWidgetConst $ castQLineEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QLineEdit -> HoppyF.Ptr QLineEditConst) ptr'+  toQWidgetConst (QLineEditGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQLineEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QLineEdit -> HoppyF.Ptr QLineEditConst) ptr'++instance M506.QWidgetPtr QLineEdit where+  toQWidget (QLineEdit ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQLineEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QLineEdit -> HoppyF.Ptr QLineEditConst) ptr'+  toQWidget (QLineEditGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQLineEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QLineEdit -> HoppyF.Ptr QLineEditConst) ptr'++instance M94.QObjectConstPtr QLineEdit where+  toQObjectConst (QLineEdit ptr') = M94.QObjectConst $ castQLineEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLineEdit -> HoppyF.Ptr QLineEditConst) ptr'+  toQObjectConst (QLineEditGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQLineEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLineEdit -> HoppyF.Ptr QLineEditConst) ptr'++instance M94.QObjectPtr QLineEdit where+  toQObject (QLineEdit ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQLineEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLineEdit -> HoppyF.Ptr QLineEditConst) ptr'+  toQObject (QLineEditGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQLineEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QLineEdit -> HoppyF.Ptr QLineEditConst) ptr'++new :: (HoppyP.IO QLineEdit)+new =+  HoppyP.fmap QLineEdit+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QLineEdit)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QLineEdit+  (newWithParent' arg'1')++newWithText :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QLineEdit)+newWithText arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QLineEdit+  (newWithText' arg'1')++newWithTextAndParent :: (M142.QStringValue arg'1, M506.QWidgetPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QLineEdit)+newWithTextAndParent arg'1 arg'2 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  HoppyP.fmap QLineEdit+  (newWithTextAndParent' arg'1' arg'2')++class QLineEditSuper a where+  downToQLineEdit :: a -> QLineEdit++instance QLineEditSuper M506.QWidget where+  downToQLineEdit = castQLineEditToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QLineEditConst $ castQWidgetToQLineEdit ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QLineEditConstGc fptr' $ castQWidgetToQLineEdit ptr'+instance QLineEditSuper M94.QObject where+  downToQLineEdit = castQLineEditToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QLineEditConst $ castQObjectToQLineEdit ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QLineEditConstGc fptr' $ castQObjectToQLineEdit ptr'++class QLineEditSuperConst a where+  downToQLineEditConst :: a -> QLineEditConst++instance QLineEditSuperConst M506.QWidgetConst where+  downToQLineEditConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QLineEditConst $ castQWidgetToQLineEdit ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QLineEditConstGc fptr' $ castQWidgetToQLineEdit ptr'+instance QLineEditSuperConst M94.QObjectConst where+  downToQLineEditConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QLineEditConst $ castQObjectToQLineEdit ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QLineEditConstGc fptr' $ castQObjectToQLineEdit ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QLineEdit)) QLineEdit where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QLineEdit)) QLineEdit where+  decode = HoppyP.fmap QLineEdit . HoppyF.peek++data QLineEditEchoMode =+  Normal+  | NoEcho+  | Password+  | PasswordEchoOnEdit+  | UnknownQLineEditEchoMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QLineEditEchoMode where+  fromCppEnum Normal = 0+  fromCppEnum NoEcho = 1+  fromCppEnum Password = 2+  fromCppEnum PasswordEchoOnEdit = 3+  fromCppEnum (UnknownQLineEditEchoMode n) = n+  +  toCppEnum (0) = Normal+  toCppEnum (1) = NoEcho+  toCppEnum (2) = Password+  toCppEnum (3) = PasswordEchoOnEdit+  toCppEnum n = UnknownQLineEditEchoMode n++instance HoppyP.Eq QLineEditEchoMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QLineEditEchoMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Widgets/QListView.hs view
@@ -0,0 +1,754 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QListView (+  castQListViewToQAbstractItemView,+  castQAbstractItemViewToQListView,+  castQListViewToQAbstractScrollArea,+  castQAbstractScrollAreaToQListView,+  castQListViewToQFrame,+  castQFrameToQListView,+  castQListViewToQWidget,+  castQWidgetToQListView,+  castQListViewToQObject,+  castQObjectToQListView,+  QListViewValue (..),+  QListViewConstPtr (..),+  batchSize,+  flow,+  gridSize,+  isWrapping,+  itemAlignment,+  layoutMode,+  modelColumn,+  movement,+  resizeMode,+  isSelectionRectVisible,+  spacing,+  uniformItemSizes,+  viewMode,+  wordWrap,+  indexAt,+  isRowHidden,+  QListViewPtr (..),+  setBatchSize,+  clearPropertyFlags,+  setFlow,+  setGridSize,+  setWrapping,+  setItemAlignment,+  setLayoutMode,+  setModelColumn,+  setMovement,+  setResizeMode,+  setSelectionRectVisible,+  setSpacing,+  setUniformItemSizes,+  setViewMode,+  setWordWrap,+  scrollTo,+  scrollToWithHint,+  setRowHidden,+  visualRect,+  emitIndexesMoved,+  QListViewConst (..),+  castQListViewToConst,+  QListView (..),+  castQListViewToNonconst,+  new,+  newWithParent,+  QListViewSuper (..),+  QListViewSuperConst (..),+  QListViewFlow (..),+  QListViewLayoutMode (..),+  QListViewMovement (..),+  QListViewResizeMode (..),+  QListViewViewMode (..),+  ) 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.Core.HSize as HSize+import qualified Graphics.UI.Qtah.Flags as QtahFlags+import qualified Graphics.UI.Qtah.Generated.Core.QList.QModelIndex as M200+import qualified Graphics.UI.Qtah.Generated.Core.QModelIndex as M92+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.QSize as M134+import qualified Graphics.UI.Qtah.Generated.Core.Types as M190+import qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractItemView as M360+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__QListView_new" new' ::  HoppyP.IO (HoppyF.Ptr QListView)+foreign import ccall "genpop__QListView_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QListView)+foreign import ccall "genpop__QListView_batchSize" batchSize' ::  HoppyF.Ptr QListViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListView_setBatchSize" setBatchSize' ::  HoppyF.Ptr QListView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListView_clearPropertyFlags" clearPropertyFlags' ::  HoppyF.Ptr QListView -> HoppyP.IO ()+foreign import ccall "genpop__QListView_flow" flow' ::  HoppyF.Ptr QListViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListView_setFlow" setFlow' ::  HoppyF.Ptr QListView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListView_gridSize" gridSize' ::  HoppyF.Ptr QListViewConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QListView_setGridSize" setGridSize' ::  HoppyF.Ptr QListView -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QListView_isWrapping" isWrapping' ::  HoppyF.Ptr QListViewConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListView_setWrapping" setWrapping' ::  HoppyF.Ptr QListView -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QListView_itemAlignment" itemAlignment' ::  HoppyF.Ptr QListViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListView_setItemAlignment" setItemAlignment' ::  HoppyF.Ptr QListView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListView_layoutMode" layoutMode' ::  HoppyF.Ptr QListViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListView_setLayoutMode" setLayoutMode' ::  HoppyF.Ptr QListView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListView_modelColumn" modelColumn' ::  HoppyF.Ptr QListViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListView_setModelColumn" setModelColumn' ::  HoppyF.Ptr QListView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListView_movement" movement' ::  HoppyF.Ptr QListViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListView_setMovement" setMovement' ::  HoppyF.Ptr QListView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListView_resizeMode" resizeMode' ::  HoppyF.Ptr QListViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListView_setResizeMode" setResizeMode' ::  HoppyF.Ptr QListView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListView_isSelectionRectVisible" isSelectionRectVisible' ::  HoppyF.Ptr QListViewConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListView_setSelectionRectVisible" setSelectionRectVisible' ::  HoppyF.Ptr QListView -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QListView_spacing" spacing' ::  HoppyF.Ptr QListViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListView_setSpacing" setSpacing' ::  HoppyF.Ptr QListView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListView_uniformItemSizes" uniformItemSizes' ::  HoppyF.Ptr QListViewConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListView_setUniformItemSizes" setUniformItemSizes' ::  HoppyF.Ptr QListView -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QListView_viewMode" viewMode' ::  HoppyF.Ptr QListViewConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QListView_setViewMode" setViewMode' ::  HoppyF.Ptr QListView -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListView_wordWrap" wordWrap' ::  HoppyF.Ptr QListViewConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListView_setWordWrap" setWordWrap' ::  HoppyF.Ptr QListView -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QListView_indexAt" indexAt' ::  HoppyF.Ptr QListViewConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr M92.QModelIndexConst)+foreign import ccall "genpop__QListView_isRowHidden" isRowHidden' ::  HoppyF.Ptr QListViewConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QListView_scrollTo" scrollTo' ::  HoppyF.Ptr QListView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO ()+foreign import ccall "genpop__QListView_scrollToWithHint" scrollToWithHint' ::  HoppyF.Ptr QListView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QListView_setRowHidden" setRowHidden' ::  HoppyF.Ptr QListView -> HoppyFC.CInt -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QListView_visualRect" visualRect' ::  HoppyF.Ptr QListView -> HoppyF.Ptr M92.QModelIndexConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QListView_emitIndexesMoved" emitIndexesMoved' ::  HoppyF.Ptr QListView -> HoppyF.Ptr M200.QListQModelIndexConst -> HoppyP.IO ()+foreign import ccall "gencast__QListView__QAbstractItemView" castQListViewToQAbstractItemView :: HoppyF.Ptr QListViewConst -> HoppyF.Ptr M360.QAbstractItemViewConst+foreign import ccall "gencast__QAbstractItemView__QListView" castQAbstractItemViewToQListView :: HoppyF.Ptr M360.QAbstractItemViewConst -> HoppyF.Ptr QListViewConst+foreign import ccall "gencast__QListView__QAbstractScrollArea" castQListViewToQAbstractScrollArea :: HoppyF.Ptr QListViewConst -> HoppyF.Ptr M362.QAbstractScrollAreaConst+foreign import ccall "gencast__QAbstractScrollArea__QListView" castQAbstractScrollAreaToQListView :: HoppyF.Ptr M362.QAbstractScrollAreaConst -> HoppyF.Ptr QListViewConst+foreign import ccall "gencast__QListView__QFrame" castQListViewToQFrame :: HoppyF.Ptr QListViewConst -> HoppyF.Ptr M400.QFrameConst+foreign import ccall "gencast__QFrame__QListView" castQFrameToQListView :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr QListViewConst+foreign import ccall "gencast__QListView__QWidget" castQListViewToQWidget :: HoppyF.Ptr QListViewConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QListView" castQWidgetToQListView :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QListViewConst+foreign import ccall "gencast__QListView__QObject" castQListViewToQObject :: HoppyF.Ptr QListViewConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QListView" castQObjectToQListView :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QListViewConst+foreign import ccall "gendel__QListView" delete'QListView :: HoppyF.Ptr QListViewConst -> HoppyP.IO ()+foreign import ccall "&gendel__QListView" deletePtr'QListView :: HoppyF.FunPtr (HoppyF.Ptr QListViewConst -> HoppyP.IO ())++class QListViewValue a where+  withQListViewPtr :: a -> (QListViewConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QListViewConstPtr a => QListViewValue a where+  withQListViewPtr = HoppyP.flip ($) . toQListViewConst++class (M360.QAbstractItemViewConstPtr this) => QListViewConstPtr this where+  toQListViewConst :: this -> QListViewConst++batchSize :: (QListViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+batchSize arg'1 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (batchSize' arg'1')++flow :: (QListViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QListViewFlow)+flow arg'1 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (flow' arg'1')++gridSize :: (QListViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+gridSize arg'1 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (gridSize' arg'1')++isWrapping :: (QListViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isWrapping arg'1 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isWrapping' arg'1')++itemAlignment :: (QListViewValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtAlignment)+itemAlignment arg'1 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    QtahP.return . QtahFlags.numToFlags+  ) =<<+  (itemAlignment' arg'1')++layoutMode :: (QListViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QListViewLayoutMode)+layoutMode arg'1 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (layoutMode' arg'1')++modelColumn :: (QListViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+modelColumn arg'1 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (modelColumn' arg'1')++movement :: (QListViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QListViewMovement)+movement arg'1 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (movement' arg'1')++resizeMode :: (QListViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QListViewResizeMode)+resizeMode arg'1 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (resizeMode' arg'1')++isSelectionRectVisible :: (QListViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isSelectionRectVisible arg'1 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isSelectionRectVisible' arg'1')++spacing :: (QListViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+spacing arg'1 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (spacing' arg'1')++uniformItemSizes :: (QListViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+uniformItemSizes arg'1 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (uniformItemSizes' arg'1')++viewMode :: (QListViewValue this) => (this) {- ^ this -} -> (HoppyP.IO QListViewViewMode)+viewMode arg'1 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (viewMode' arg'1')++wordWrap :: (QListViewValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+wordWrap arg'1 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (wordWrap' arg'1')++indexAt :: (QListViewValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M92.QModelIndex)+indexAt arg'1 arg'2 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M92.QModelIndexConst) =<<+  (indexAt' arg'1' arg'2')++isRowHidden :: (QListViewValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+isRowHidden arg'1 arg'2 =+  withQListViewPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isRowHidden' arg'1' arg'2')++class (QListViewConstPtr this, M360.QAbstractItemViewPtr this) => QListViewPtr this where+  toQListView :: this -> QListView++setBatchSize :: (QListViewPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setBatchSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setBatchSize' arg'1' arg'2')++clearPropertyFlags :: (QListViewPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clearPropertyFlags arg'1 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  (clearPropertyFlags' arg'1')++setFlow :: (QListViewPtr this) => (this) {- ^ this -} -> (QListViewFlow) -> (HoppyP.IO ())+setFlow arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setFlow' arg'1' arg'2')++setGridSize :: (QListViewPtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setGridSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setGridSize' arg'1' arg'2')++setWrapping :: (QListViewPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setWrapping arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setWrapping' arg'1' arg'2')++setItemAlignment :: (QListViewPtr this, M190.IsQtAlignment arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setItemAlignment arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment+  ) arg'2 >>= \arg'2' ->+  (setItemAlignment' arg'1' arg'2')++setLayoutMode :: (QListViewPtr this) => (this) {- ^ this -} -> (QListViewLayoutMode) -> (HoppyP.IO ())+setLayoutMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setLayoutMode' arg'1' arg'2')++setModelColumn :: (QListViewPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setModelColumn arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setModelColumn' arg'1' arg'2')++setMovement :: (QListViewPtr this) => (this) {- ^ this -} -> (QListViewMovement) -> (HoppyP.IO ())+setMovement arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setMovement' arg'1' arg'2')++setResizeMode :: (QListViewPtr this) => (this) {- ^ this -} -> (QListViewResizeMode) -> (HoppyP.IO ())+setResizeMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setResizeMode' arg'1' arg'2')++setSelectionRectVisible :: (QListViewPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setSelectionRectVisible arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setSelectionRectVisible' arg'1' arg'2')++setSpacing :: (QListViewPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setSpacing arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setSpacing' arg'1' arg'2')++setUniformItemSizes :: (QListViewPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setUniformItemSizes arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setUniformItemSizes' arg'1' arg'2')++setViewMode :: (QListViewPtr this) => (this) {- ^ this -} -> (QListViewViewMode) -> (HoppyP.IO ())+setViewMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setViewMode' arg'1' arg'2')++setWordWrap :: (QListViewPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setWordWrap arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setWordWrap' arg'1' arg'2')++scrollTo :: (QListViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+scrollTo arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (scrollTo' arg'1' arg'2')++scrollToWithHint :: (QListViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (M360.QAbstractItemViewScrollHint) -> (HoppyP.IO ())+scrollToWithHint arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (scrollToWithHint' arg'1' arg'2' arg'3')++setRowHidden :: (QListViewPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.Bool) -> (HoppyP.IO ())+setRowHidden arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'3 >>= \arg'3' ->+  (setRowHidden' arg'1' arg'2' arg'3')++visualRect :: (QListViewPtr this, M92.QModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HRect.HRect)+visualRect arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  M92.withQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<+  (visualRect' arg'1' arg'2')++emitIndexesMoved :: (QListViewPtr this, M200.QListQModelIndexValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitIndexesMoved arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQListView arg'1) $ \arg'1' ->+  M200.withQListQModelIndexPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitIndexesMoved' arg'1' arg'2')++data QListViewConst =+    QListViewConst (HoppyF.Ptr QListViewConst)+  | QListViewConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListViewConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListViewConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListViewConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListViewToConst :: QListView -> QListViewConst+castQListViewToConst (QListView ptr') = QListViewConst $ HoppyF.castPtr ptr'+castQListViewToConst (QListViewGc fptr' ptr') = QListViewConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListViewConst where+  nullptr = QListViewConst HoppyF.nullPtr+  +  withCppPtr (QListViewConst ptr') f' = f' ptr'+  withCppPtr (QListViewConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListViewConst ptr') = ptr'+  toPtr (QListViewConstGc _ ptr') = ptr'+  +  touchCppPtr (QListViewConst _) = HoppyP.return ()+  touchCppPtr (QListViewConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListViewConst where+  delete (QListViewConst ptr') = delete'QListView ptr'+  delete (QListViewConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListViewConst", " object."]+  +  toGc this'@(QListViewConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListViewConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListView :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListViewConstGc {}) = HoppyP.return this'++instance QListViewConstPtr QListViewConst where+  toQListViewConst = HoppyP.id++instance M360.QAbstractItemViewConstPtr QListViewConst where+  toQAbstractItemViewConst (QListViewConst ptr') = M360.QAbstractItemViewConst $ castQListViewToQAbstractItemView ptr'+  toQAbstractItemViewConst (QListViewConstGc fptr' ptr') = M360.QAbstractItemViewConstGc fptr' $ castQListViewToQAbstractItemView ptr'++instance M362.QAbstractScrollAreaConstPtr QListViewConst where+  toQAbstractScrollAreaConst (QListViewConst ptr') = M362.QAbstractScrollAreaConst $ castQListViewToQAbstractScrollArea ptr'+  toQAbstractScrollAreaConst (QListViewConstGc fptr' ptr') = M362.QAbstractScrollAreaConstGc fptr' $ castQListViewToQAbstractScrollArea ptr'++instance M400.QFrameConstPtr QListViewConst where+  toQFrameConst (QListViewConst ptr') = M400.QFrameConst $ castQListViewToQFrame ptr'+  toQFrameConst (QListViewConstGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQListViewToQFrame ptr'++instance M506.QWidgetConstPtr QListViewConst where+  toQWidgetConst (QListViewConst ptr') = M506.QWidgetConst $ castQListViewToQWidget ptr'+  toQWidgetConst (QListViewConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQListViewToQWidget ptr'++instance M94.QObjectConstPtr QListViewConst where+  toQObjectConst (QListViewConst ptr') = M94.QObjectConst $ castQListViewToQObject ptr'+  toQObjectConst (QListViewConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQListViewToQObject ptr'++data QListView =+    QListView (HoppyF.Ptr QListView)+  | QListViewGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QListView)+  deriving (HoppyP.Show)++instance HoppyP.Eq QListView where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QListView where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQListViewToNonconst :: QListViewConst -> QListView+castQListViewToNonconst (QListViewConst ptr') = QListView $ HoppyF.castPtr ptr'+castQListViewToNonconst (QListViewConstGc fptr' ptr') = QListViewGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QListView where+  nullptr = QListView HoppyF.nullPtr+  +  withCppPtr (QListView ptr') f' = f' ptr'+  withCppPtr (QListViewGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QListView ptr') = ptr'+  toPtr (QListViewGc _ ptr') = ptr'+  +  touchCppPtr (QListView _) = HoppyP.return ()+  touchCppPtr (QListViewGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QListView where+  delete (QListView ptr') = delete'QListView $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QListViewConst)+  delete (QListViewGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QListView", " object."]+  +  toGc this'@(QListView ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QListViewGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QListView :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QListViewGc {}) = HoppyP.return this'++instance QListViewConstPtr QListView where+  toQListViewConst (QListView ptr') = QListViewConst $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'+  toQListViewConst (QListViewGc fptr' ptr') = QListViewConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'++instance QListViewPtr QListView where+  toQListView = HoppyP.id++instance M360.QAbstractItemViewConstPtr QListView where+  toQAbstractItemViewConst (QListView ptr') = M360.QAbstractItemViewConst $ castQListViewToQAbstractItemView $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'+  toQAbstractItemViewConst (QListViewGc fptr' ptr') = M360.QAbstractItemViewConstGc fptr' $ castQListViewToQAbstractItemView $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'++instance M360.QAbstractItemViewPtr QListView where+  toQAbstractItemView (QListView ptr') = M360.QAbstractItemView $ (HoppyF.castPtr :: HoppyF.Ptr M360.QAbstractItemViewConst -> HoppyF.Ptr M360.QAbstractItemView) $ castQListViewToQAbstractItemView $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'+  toQAbstractItemView (QListViewGc fptr' ptr') = M360.QAbstractItemViewGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M360.QAbstractItemViewConst -> HoppyF.Ptr M360.QAbstractItemView) $ castQListViewToQAbstractItemView $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'++instance M362.QAbstractScrollAreaConstPtr QListView where+  toQAbstractScrollAreaConst (QListView ptr') = M362.QAbstractScrollAreaConst $ castQListViewToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'+  toQAbstractScrollAreaConst (QListViewGc fptr' ptr') = M362.QAbstractScrollAreaConstGc fptr' $ castQListViewToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'++instance M362.QAbstractScrollAreaPtr QListView where+  toQAbstractScrollArea (QListView ptr') = M362.QAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr M362.QAbstractScrollAreaConst -> HoppyF.Ptr M362.QAbstractScrollArea) $ castQListViewToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'+  toQAbstractScrollArea (QListViewGc fptr' ptr') = M362.QAbstractScrollAreaGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M362.QAbstractScrollAreaConst -> HoppyF.Ptr M362.QAbstractScrollArea) $ castQListViewToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'++instance M400.QFrameConstPtr QListView where+  toQFrameConst (QListView ptr') = M400.QFrameConst $ castQListViewToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'+  toQFrameConst (QListViewGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQListViewToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'++instance M400.QFramePtr QListView where+  toQFrame (QListView ptr') = M400.QFrame $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQListViewToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'+  toQFrame (QListViewGc fptr' ptr') = M400.QFrameGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQListViewToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'++instance M506.QWidgetConstPtr QListView where+  toQWidgetConst (QListView ptr') = M506.QWidgetConst $ castQListViewToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'+  toQWidgetConst (QListViewGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQListViewToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'++instance M506.QWidgetPtr QListView where+  toQWidget (QListView ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQListViewToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'+  toQWidget (QListViewGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQListViewToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'++instance M94.QObjectConstPtr QListView where+  toQObjectConst (QListView ptr') = M94.QObjectConst $ castQListViewToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'+  toQObjectConst (QListViewGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQListViewToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'++instance M94.QObjectPtr QListView where+  toQObject (QListView ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQListViewToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'+  toQObject (QListViewGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQListViewToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QListView -> HoppyF.Ptr QListViewConst) ptr'++new :: (HoppyP.IO QListView)+new =+  HoppyP.fmap QListView+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QListView)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QListView+  (newWithParent' arg'1')++class QListViewSuper a where+  downToQListView :: a -> QListView++instance QListViewSuper M360.QAbstractItemView where+  downToQListView = castQListViewToNonconst . cast' . M360.castQAbstractItemViewToConst+    where+      cast' (M360.QAbstractItemViewConst ptr') = QListViewConst $ castQAbstractItemViewToQListView ptr'+      cast' (M360.QAbstractItemViewConstGc fptr' ptr') = QListViewConstGc fptr' $ castQAbstractItemViewToQListView ptr'+instance QListViewSuper M362.QAbstractScrollArea where+  downToQListView = castQListViewToNonconst . cast' . M362.castQAbstractScrollAreaToConst+    where+      cast' (M362.QAbstractScrollAreaConst ptr') = QListViewConst $ castQAbstractScrollAreaToQListView ptr'+      cast' (M362.QAbstractScrollAreaConstGc fptr' ptr') = QListViewConstGc fptr' $ castQAbstractScrollAreaToQListView ptr'+instance QListViewSuper M400.QFrame where+  downToQListView = castQListViewToNonconst . cast' . M400.castQFrameToConst+    where+      cast' (M400.QFrameConst ptr') = QListViewConst $ castQFrameToQListView ptr'+      cast' (M400.QFrameConstGc fptr' ptr') = QListViewConstGc fptr' $ castQFrameToQListView ptr'+instance QListViewSuper M506.QWidget where+  downToQListView = castQListViewToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QListViewConst $ castQWidgetToQListView ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QListViewConstGc fptr' $ castQWidgetToQListView ptr'+instance QListViewSuper M94.QObject where+  downToQListView = castQListViewToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QListViewConst $ castQObjectToQListView ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QListViewConstGc fptr' $ castQObjectToQListView ptr'++class QListViewSuperConst a where+  downToQListViewConst :: a -> QListViewConst++instance QListViewSuperConst M360.QAbstractItemViewConst where+  downToQListViewConst = cast'+    where+      cast' (M360.QAbstractItemViewConst ptr') = QListViewConst $ castQAbstractItemViewToQListView ptr'+      cast' (M360.QAbstractItemViewConstGc fptr' ptr') = QListViewConstGc fptr' $ castQAbstractItemViewToQListView ptr'+instance QListViewSuperConst M362.QAbstractScrollAreaConst where+  downToQListViewConst = cast'+    where+      cast' (M362.QAbstractScrollAreaConst ptr') = QListViewConst $ castQAbstractScrollAreaToQListView ptr'+      cast' (M362.QAbstractScrollAreaConstGc fptr' ptr') = QListViewConstGc fptr' $ castQAbstractScrollAreaToQListView ptr'+instance QListViewSuperConst M400.QFrameConst where+  downToQListViewConst = cast'+    where+      cast' (M400.QFrameConst ptr') = QListViewConst $ castQFrameToQListView ptr'+      cast' (M400.QFrameConstGc fptr' ptr') = QListViewConstGc fptr' $ castQFrameToQListView ptr'+instance QListViewSuperConst M506.QWidgetConst where+  downToQListViewConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QListViewConst $ castQWidgetToQListView ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QListViewConstGc fptr' $ castQWidgetToQListView ptr'+instance QListViewSuperConst M94.QObjectConst where+  downToQListViewConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QListViewConst $ castQObjectToQListView ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QListViewConstGc fptr' $ castQObjectToQListView ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QListView)) QListView where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QListView)) QListView where+  decode = HoppyP.fmap QListView . HoppyF.peek++data QListViewFlow =+  LeftToRight+  | TopToBottom+  | UnknownQListViewFlow (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QListViewFlow where+  fromCppEnum LeftToRight = 0+  fromCppEnum TopToBottom = 1+  fromCppEnum (UnknownQListViewFlow n) = n+  +  toCppEnum (0) = LeftToRight+  toCppEnum (1) = TopToBottom+  toCppEnum n = UnknownQListViewFlow n++instance HoppyP.Eq QListViewFlow where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QListViewFlow where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QListViewLayoutMode =+  SinglePass+  | Batched+  | UnknownQListViewLayoutMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QListViewLayoutMode where+  fromCppEnum SinglePass = 0+  fromCppEnum Batched = 1+  fromCppEnum (UnknownQListViewLayoutMode n) = n+  +  toCppEnum (0) = SinglePass+  toCppEnum (1) = Batched+  toCppEnum n = UnknownQListViewLayoutMode n++instance HoppyP.Eq QListViewLayoutMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QListViewLayoutMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QListViewMovement =+  Static+  | Free+  | Snap+  | UnknownQListViewMovement (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QListViewMovement where+  fromCppEnum Static = 0+  fromCppEnum Free = 1+  fromCppEnum Snap = 2+  fromCppEnum (UnknownQListViewMovement n) = n+  +  toCppEnum (0) = Static+  toCppEnum (1) = Free+  toCppEnum (2) = Snap+  toCppEnum n = UnknownQListViewMovement n++instance HoppyP.Eq QListViewMovement where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QListViewMovement where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QListViewResizeMode =+  Fixed+  | Adjust+  | UnknownQListViewResizeMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QListViewResizeMode where+  fromCppEnum Fixed = 0+  fromCppEnum Adjust = 1+  fromCppEnum (UnknownQListViewResizeMode n) = n+  +  toCppEnum (0) = Fixed+  toCppEnum (1) = Adjust+  toCppEnum n = UnknownQListViewResizeMode n++instance HoppyP.Eq QListViewResizeMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QListViewResizeMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QListViewViewMode =+  ListMode+  | IconMode+  | UnknownQListViewViewMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QListViewViewMode where+  fromCppEnum ListMode = 0+  fromCppEnum IconMode = 1+  fromCppEnum (UnknownQListViewViewMode n) = n+  +  toCppEnum (0) = ListMode+  toCppEnum (1) = IconMode+  toCppEnum n = UnknownQListViewViewMode n++instance HoppyP.Eq QListViewViewMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QListViewViewMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
src/Graphics/UI/Qtah/Generated/Widgets/QMainWindow.hs view
@@ -0,0 +1,537 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QMainWindow (+  castQMainWindowToQWidget,+  castQWidgetToQMainWindow,+  castQMainWindowToQObject,+  castQObjectToQMainWindow,+  QMainWindowValue (..),+  QMainWindowConstPtr (..),+  isAnimated,+  centralWidget,+  corner,+  isDockNestingEnabled,+  dockWidgetArea,+  documentMode,+  iconSize,+  menuBar,+  menuWidget,+  saveState,+  saveStateWithVersion,+  statusBar,+  unifiedTitleAndToolBarOnMac,+  QMainWindowPtr (..),+  addDockWidget,+  addDockWidgetWithOrientation,+  addToolBar,+  addToolBarWithTitle,+  setAnimated,+  setCentralWidget,+  createPopupMenu,+  setDockNestingEnabled,+  setDocumentMode,+  setIconSize,+  setMenuBar,+  setMenuWidget,+  removeDockWidget,+  restoreDockWidget,+  restoreState,+  restoreStateWithVersion,+  setCorner,+  splitDockWidget,+  setStatusBar,+  setUnifiedTitleAndToolBarOnMac,+  emitIconSizeChanged,+  QMainWindowConst (..),+  castQMainWindowToConst,+  QMainWindow (..),+  castQMainWindowToNonconst,+  new,+  newWithParent,+  QMainWindowSuper (..),+  QMainWindowSuperConst (..),+  ) where++import qualified Data.ByteString as QtahDBS+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Core.HSize as HSize+import qualified Graphics.UI.Qtah.Generated.Core.QByteArray as M12+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import qualified Graphics.UI.Qtah.Generated.Core.QSize as M134+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.QDockWidget as M392+import qualified Graphics.UI.Qtah.Generated.Widgets.QMenu as M448+import qualified Graphics.UI.Qtah.Generated.Widgets.QMenuBar as M450+import qualified Graphics.UI.Qtah.Generated.Widgets.QStatusBar as M482+import qualified Graphics.UI.Qtah.Generated.Widgets.QToolBar as M492+import qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import Prelude (($), (.), (/=), (=<<), (==), (>>=))+import qualified Prelude as HoppyP++foreign import ccall "genpop__QMainWindow_new" new' ::  HoppyP.IO (HoppyF.Ptr QMainWindow)+foreign import ccall "genpop__QMainWindow_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QMainWindow)+foreign import ccall "genpop__QMainWindow_addDockWidget" addDockWidget' ::  HoppyF.Ptr QMainWindow -> HoppyFC.CInt -> HoppyF.Ptr M392.QDockWidget -> HoppyP.IO ()+foreign import ccall "genpop__QMainWindow_addDockWidgetWithOrientation" addDockWidgetWithOrientation' ::  HoppyF.Ptr QMainWindow -> HoppyFC.CInt -> HoppyF.Ptr M392.QDockWidget -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QMainWindow_addToolBar" addToolBar' ::  HoppyF.Ptr QMainWindow -> HoppyF.Ptr M492.QToolBar -> HoppyP.IO ()+foreign import ccall "genpop__QMainWindow_addToolBarWithTitle" addToolBarWithTitle' ::  HoppyF.Ptr QMainWindow -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M492.QToolBar)+foreign import ccall "genpop__QMainWindow_isAnimated" isAnimated' ::  HoppyF.Ptr QMainWindowConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMainWindow_setAnimated" setAnimated' ::  HoppyF.Ptr QMainWindow -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QMainWindow_centralWidget" centralWidget' ::  HoppyF.Ptr QMainWindowConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QMainWindow_setCentralWidget" setCentralWidget' ::  HoppyF.Ptr QMainWindow -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QMainWindow_corner" corner' ::  HoppyF.Ptr QMainWindowConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMainWindow_createPopupMenu" createPopupMenu' ::  HoppyF.Ptr QMainWindow -> HoppyP.IO (HoppyF.Ptr M448.QMenu)+foreign import ccall "genpop__QMainWindow_isDockNestingEnabled" isDockNestingEnabled' ::  HoppyF.Ptr QMainWindowConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMainWindow_setDockNestingEnabled" setDockNestingEnabled' ::  HoppyF.Ptr QMainWindow -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QMainWindow_dockWidgetArea" dockWidgetArea' ::  HoppyF.Ptr QMainWindowConst -> HoppyF.Ptr M392.QDockWidget -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMainWindow_documentMode" documentMode' ::  HoppyF.Ptr QMainWindowConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMainWindow_setDocumentMode" setDocumentMode' ::  HoppyF.Ptr QMainWindow -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QMainWindow_iconSize" iconSize' ::  HoppyF.Ptr QMainWindowConst -> HoppyP.IO (HoppyF.Ptr M134.QSizeConst)+foreign import ccall "genpop__QMainWindow_setIconSize" setIconSize' ::  HoppyF.Ptr QMainWindow -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "genpop__QMainWindow_menuBar" menuBar' ::  HoppyF.Ptr QMainWindowConst -> HoppyP.IO (HoppyF.Ptr M450.QMenuBar)+foreign import ccall "genpop__QMainWindow_setMenuBar" setMenuBar' ::  HoppyF.Ptr QMainWindow -> HoppyF.Ptr M450.QMenuBar -> HoppyP.IO ()+foreign import ccall "genpop__QMainWindow_menuWidget" menuWidget' ::  HoppyF.Ptr QMainWindowConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QMainWindow_setMenuWidget" setMenuWidget' ::  HoppyF.Ptr QMainWindow -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QMainWindow_removeDockWidget" removeDockWidget' ::  HoppyF.Ptr QMainWindow -> HoppyF.Ptr M392.QDockWidget -> HoppyP.IO ()+foreign import ccall "genpop__QMainWindow_restoreDockWidget" restoreDockWidget' ::  HoppyF.Ptr QMainWindow -> HoppyF.Ptr M392.QDockWidget -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMainWindow_restoreState" restoreState' ::  HoppyF.Ptr QMainWindow -> HoppyF.Ptr M12.QByteArrayConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMainWindow_restoreStateWithVersion" restoreStateWithVersion' ::  HoppyF.Ptr QMainWindow -> HoppyF.Ptr M12.QByteArrayConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMainWindow_saveState" saveState' ::  HoppyF.Ptr QMainWindowConst -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QMainWindow_saveStateWithVersion" saveStateWithVersion' ::  HoppyF.Ptr QMainWindowConst -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M12.QByteArrayConst)+foreign import ccall "genpop__QMainWindow_setCorner" setCorner' ::  HoppyF.Ptr QMainWindow -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QMainWindow_splitDockWidget" splitDockWidget' ::  HoppyF.Ptr QMainWindow -> HoppyF.Ptr M392.QDockWidget -> HoppyF.Ptr M392.QDockWidget -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QMainWindow_statusBar" statusBar' ::  HoppyF.Ptr QMainWindowConst -> HoppyP.IO (HoppyF.Ptr M482.QStatusBar)+foreign import ccall "genpop__QMainWindow_setStatusBar" setStatusBar' ::  HoppyF.Ptr QMainWindow -> HoppyF.Ptr M482.QStatusBar -> HoppyP.IO ()+foreign import ccall "genpop__QMainWindow_unifiedTitleAndToolBarOnMac" unifiedTitleAndToolBarOnMac' ::  HoppyF.Ptr QMainWindowConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMainWindow_setUnifiedTitleAndToolBarOnMac" setUnifiedTitleAndToolBarOnMac' ::  HoppyF.Ptr QMainWindow -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QMainWindow_emitIconSizeChanged" emitIconSizeChanged' ::  HoppyF.Ptr QMainWindow -> HoppyF.Ptr M134.QSizeConst -> HoppyP.IO ()+foreign import ccall "gencast__QMainWindow__QWidget" castQMainWindowToQWidget :: HoppyF.Ptr QMainWindowConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QMainWindow" castQWidgetToQMainWindow :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QMainWindowConst+foreign import ccall "gencast__QMainWindow__QObject" castQMainWindowToQObject :: HoppyF.Ptr QMainWindowConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QMainWindow" castQObjectToQMainWindow :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QMainWindowConst+foreign import ccall "gendel__QMainWindow" delete'QMainWindow :: HoppyF.Ptr QMainWindowConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMainWindow" deletePtr'QMainWindow :: HoppyF.FunPtr (HoppyF.Ptr QMainWindowConst -> HoppyP.IO ())++class QMainWindowValue a where+  withQMainWindowPtr :: a -> (QMainWindowConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMainWindowConstPtr a => QMainWindowValue a where+  withQMainWindowPtr = HoppyP.flip ($) . toQMainWindowConst++class (M506.QWidgetConstPtr this) => QMainWindowConstPtr this where+  toQMainWindowConst :: this -> QMainWindowConst++isAnimated :: (QMainWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isAnimated arg'1 =+  withQMainWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isAnimated' arg'1')++centralWidget :: (QMainWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)+centralWidget arg'1 =+  withQMainWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (centralWidget' arg'1')++corner :: (QMainWindowValue this) => (this) {- ^ this -} -> (M190.QtCorner) -> (HoppyP.IO M190.QtDockWidgetArea)+corner arg'1 arg'2 =+  withQMainWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (corner' arg'1' arg'2')++isDockNestingEnabled :: (QMainWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isDockNestingEnabled arg'1 =+  withQMainWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isDockNestingEnabled' arg'1')++dockWidgetArea :: (QMainWindowValue this, M392.QDockWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M190.QtDockWidgetArea)+dockWidgetArea arg'1 arg'2 =+  withQMainWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyFHR.withCppPtr (M392.toQDockWidget arg'2) $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (dockWidgetArea' arg'1' arg'2')++documentMode :: (QMainWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+documentMode arg'1 =+  withQMainWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (documentMode' arg'1')++iconSize :: (QMainWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HSize.HSize)+iconSize arg'1 =+  withQMainWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M134.QSizeConst) =<<+  (iconSize' arg'1')++menuBar :: (QMainWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M450.QMenuBar)+menuBar arg'1 =+  withQMainWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M450.QMenuBar+  (menuBar' arg'1')++menuWidget :: (QMainWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)+menuWidget arg'1 =+  withQMainWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (menuWidget' arg'1')++saveState :: (QMainWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahDBS.ByteString)+saveState arg'1 =+  withQMainWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (saveState' arg'1')++saveStateWithVersion :: (QMainWindowValue this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO QtahDBS.ByteString)+saveStateWithVersion arg'1 arg'2 =+  withQMainWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (HoppyFHR.decodeAndDelete . M12.QByteArrayConst) =<<+  (saveStateWithVersion' arg'1' arg'2')++statusBar :: (QMainWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M482.QStatusBar)+statusBar arg'1 =+  withQMainWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M482.QStatusBar+  (statusBar' arg'1')++unifiedTitleAndToolBarOnMac :: (QMainWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+unifiedTitleAndToolBarOnMac arg'1 =+  withQMainWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (unifiedTitleAndToolBarOnMac' arg'1')++class (QMainWindowConstPtr this, M506.QWidgetPtr this) => QMainWindowPtr this where+  toQMainWindow :: this -> QMainWindow++addDockWidget :: (QMainWindowPtr this, M392.QDockWidgetPtr arg'3) => (this) {- ^ this -} -> (M190.QtDockWidgetArea) -> (arg'3) -> (HoppyP.IO ())+addDockWidget arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M392.toQDockWidget arg'3) $ \arg'3' ->+  (addDockWidget' arg'1' arg'2' arg'3')++addDockWidgetWithOrientation :: (QMainWindowPtr this, M392.QDockWidgetPtr arg'3) => (this) {- ^ this -} -> (M190.QtDockWidgetArea) -> (arg'3) -> (M190.QtOrientation) -> (HoppyP.IO ())+addDockWidgetWithOrientation arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  HoppyFHR.withCppPtr (M392.toQDockWidget arg'3) $ \arg'3' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'4 >>= \arg'4' ->+  (addDockWidgetWithOrientation' arg'1' arg'2' arg'3' arg'4')++addToolBar :: (QMainWindowPtr this, M492.QToolBarPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addToolBar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M492.toQToolBar arg'2) $ \arg'2' ->+  (addToolBar' arg'1' arg'2')++addToolBarWithTitle :: (QMainWindowPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M492.QToolBar)+addToolBarWithTitle arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap M492.QToolBar+  (addToolBarWithTitle' arg'1' arg'2')++setAnimated :: (QMainWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setAnimated arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setAnimated' arg'1' arg'2')++setCentralWidget :: (QMainWindowPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setCentralWidget arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (setCentralWidget' arg'1' arg'2')++createPopupMenu :: (QMainWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO M448.QMenu)+createPopupMenu arg'1 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  HoppyP.fmap M448.QMenu+  (createPopupMenu' arg'1')++setDockNestingEnabled :: (QMainWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setDockNestingEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setDockNestingEnabled' arg'1' arg'2')++setDocumentMode :: (QMainWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setDocumentMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setDocumentMode' arg'1' arg'2')++setIconSize :: (QMainWindowPtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setIconSize arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setIconSize' arg'1' arg'2')++setMenuBar :: (QMainWindowPtr this, M450.QMenuBarPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setMenuBar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M450.toQMenuBar arg'2) $ \arg'2' ->+  (setMenuBar' arg'1' arg'2')++setMenuWidget :: (QMainWindowPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setMenuWidget arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (setMenuWidget' arg'1' arg'2')++removeDockWidget :: (QMainWindowPtr this, M392.QDockWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+removeDockWidget arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M392.toQDockWidget arg'2) $ \arg'2' ->+  (removeDockWidget' arg'1' arg'2')++restoreDockWidget :: (QMainWindowPtr this, M392.QDockWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+restoreDockWidget arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M392.toQDockWidget arg'2) $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (restoreDockWidget' arg'1' arg'2')++restoreState :: (QMainWindowPtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)+restoreState arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (restoreState' arg'1' arg'2')++restoreStateWithVersion :: (QMainWindowPtr this, M12.QByteArrayValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.Int) -> (HoppyP.IO HoppyP.Bool)+restoreStateWithVersion arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  M12.withQByteArrayPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'3 >>= \arg'3' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (restoreStateWithVersion' arg'1' arg'2' arg'3')++setCorner :: (QMainWindowPtr this) => (this) {- ^ this -} -> (M190.QtCorner) -> (M190.QtDockWidgetArea) -> (HoppyP.IO ())+setCorner arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'3 >>= \arg'3' ->+  (setCorner' arg'1' arg'2' arg'3')++splitDockWidget :: (QMainWindowPtr this, M392.QDockWidgetPtr arg'2, M392.QDockWidgetPtr arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (M190.QtOrientation) -> (HoppyP.IO ())+splitDockWidget arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M392.toQDockWidget arg'2) $ \arg'2' ->+  HoppyFHR.withCppPtr (M392.toQDockWidget arg'3) $ \arg'3' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'4 >>= \arg'4' ->+  (splitDockWidget' arg'1' arg'2' arg'3' arg'4')++setStatusBar :: (QMainWindowPtr this, M482.QStatusBarPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setStatusBar arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M482.toQStatusBar arg'2) $ \arg'2' ->+  (setStatusBar' arg'1' arg'2')++setUnifiedTitleAndToolBarOnMac :: (QMainWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setUnifiedTitleAndToolBarOnMac arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setUnifiedTitleAndToolBarOnMac' arg'1' arg'2')++emitIconSizeChanged :: (QMainWindowPtr this, M134.QSizeValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitIconSizeChanged arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMainWindow arg'1) $ \arg'1' ->+  M134.withQSizePtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (emitIconSizeChanged' arg'1' arg'2')++data QMainWindowConst =+    QMainWindowConst (HoppyF.Ptr QMainWindowConst)+  | QMainWindowConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMainWindowConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMainWindowConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMainWindowConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMainWindowToConst :: QMainWindow -> QMainWindowConst+castQMainWindowToConst (QMainWindow ptr') = QMainWindowConst $ HoppyF.castPtr ptr'+castQMainWindowToConst (QMainWindowGc fptr' ptr') = QMainWindowConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMainWindowConst where+  nullptr = QMainWindowConst HoppyF.nullPtr+  +  withCppPtr (QMainWindowConst ptr') f' = f' ptr'+  withCppPtr (QMainWindowConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMainWindowConst ptr') = ptr'+  toPtr (QMainWindowConstGc _ ptr') = ptr'+  +  touchCppPtr (QMainWindowConst _) = HoppyP.return ()+  touchCppPtr (QMainWindowConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMainWindowConst where+  delete (QMainWindowConst ptr') = delete'QMainWindow ptr'+  delete (QMainWindowConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMainWindowConst", " object."]+  +  toGc this'@(QMainWindowConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMainWindowConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMainWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMainWindowConstGc {}) = HoppyP.return this'++instance QMainWindowConstPtr QMainWindowConst where+  toQMainWindowConst = HoppyP.id++instance M506.QWidgetConstPtr QMainWindowConst where+  toQWidgetConst (QMainWindowConst ptr') = M506.QWidgetConst $ castQMainWindowToQWidget ptr'+  toQWidgetConst (QMainWindowConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQMainWindowToQWidget ptr'++instance M94.QObjectConstPtr QMainWindowConst where+  toQObjectConst (QMainWindowConst ptr') = M94.QObjectConst $ castQMainWindowToQObject ptr'+  toQObjectConst (QMainWindowConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQMainWindowToQObject ptr'++data QMainWindow =+    QMainWindow (HoppyF.Ptr QMainWindow)+  | QMainWindowGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMainWindow)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMainWindow where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMainWindow where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMainWindowToNonconst :: QMainWindowConst -> QMainWindow+castQMainWindowToNonconst (QMainWindowConst ptr') = QMainWindow $ HoppyF.castPtr ptr'+castQMainWindowToNonconst (QMainWindowConstGc fptr' ptr') = QMainWindowGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMainWindow where+  nullptr = QMainWindow HoppyF.nullPtr+  +  withCppPtr (QMainWindow ptr') f' = f' ptr'+  withCppPtr (QMainWindowGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMainWindow ptr') = ptr'+  toPtr (QMainWindowGc _ ptr') = ptr'+  +  touchCppPtr (QMainWindow _) = HoppyP.return ()+  touchCppPtr (QMainWindowGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMainWindow where+  delete (QMainWindow ptr') = delete'QMainWindow $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMainWindowConst)+  delete (QMainWindowGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMainWindow", " object."]+  +  toGc this'@(QMainWindow ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMainWindowGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMainWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMainWindowGc {}) = HoppyP.return this'++instance QMainWindowConstPtr QMainWindow where+  toQMainWindowConst (QMainWindow ptr') = QMainWindowConst $ (HoppyF.castPtr :: HoppyF.Ptr QMainWindow -> HoppyF.Ptr QMainWindowConst) ptr'+  toQMainWindowConst (QMainWindowGc fptr' ptr') = QMainWindowConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMainWindow -> HoppyF.Ptr QMainWindowConst) ptr'++instance QMainWindowPtr QMainWindow where+  toQMainWindow = HoppyP.id++instance M506.QWidgetConstPtr QMainWindow where+  toQWidgetConst (QMainWindow ptr') = M506.QWidgetConst $ castQMainWindowToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMainWindow -> HoppyF.Ptr QMainWindowConst) ptr'+  toQWidgetConst (QMainWindowGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQMainWindowToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMainWindow -> HoppyF.Ptr QMainWindowConst) ptr'++instance M506.QWidgetPtr QMainWindow where+  toQWidget (QMainWindow ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQMainWindowToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMainWindow -> HoppyF.Ptr QMainWindowConst) ptr'+  toQWidget (QMainWindowGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQMainWindowToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMainWindow -> HoppyF.Ptr QMainWindowConst) ptr'++instance M94.QObjectConstPtr QMainWindow where+  toQObjectConst (QMainWindow ptr') = M94.QObjectConst $ castQMainWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMainWindow -> HoppyF.Ptr QMainWindowConst) ptr'+  toQObjectConst (QMainWindowGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQMainWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMainWindow -> HoppyF.Ptr QMainWindowConst) ptr'++instance M94.QObjectPtr QMainWindow where+  toQObject (QMainWindow ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQMainWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMainWindow -> HoppyF.Ptr QMainWindowConst) ptr'+  toQObject (QMainWindowGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQMainWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMainWindow -> HoppyF.Ptr QMainWindowConst) ptr'++new :: (HoppyP.IO QMainWindow)+new =+  HoppyP.fmap QMainWindow+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QMainWindow)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QMainWindow+  (newWithParent' arg'1')++class QMainWindowSuper a where+  downToQMainWindow :: a -> QMainWindow++instance QMainWindowSuper M506.QWidget where+  downToQMainWindow = castQMainWindowToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QMainWindowConst $ castQWidgetToQMainWindow ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QMainWindowConstGc fptr' $ castQWidgetToQMainWindow ptr'+instance QMainWindowSuper M94.QObject where+  downToQMainWindow = castQMainWindowToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QMainWindowConst $ castQObjectToQMainWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QMainWindowConstGc fptr' $ castQObjectToQMainWindow ptr'++class QMainWindowSuperConst a where+  downToQMainWindowConst :: a -> QMainWindowConst++instance QMainWindowSuperConst M506.QWidgetConst where+  downToQMainWindowConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QMainWindowConst $ castQWidgetToQMainWindow ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QMainWindowConstGc fptr' $ castQWidgetToQMainWindow ptr'+instance QMainWindowSuperConst M94.QObjectConst where+  downToQMainWindowConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QMainWindowConst $ castQObjectToQMainWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QMainWindowConstGc fptr' $ castQObjectToQMainWindow ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMainWindow)) QMainWindow where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMainWindow)) QMainWindow where+  decode = HoppyP.fmap QMainWindow . HoppyF.peek
src/Graphics/UI/Qtah/Generated/Widgets/QMdiArea.hs view
@@ -0,0 +1,591 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QMdiArea (+  castQMdiAreaToQWidget,+  castQWidgetToQMdiArea,+  castQMdiAreaToQObject,+  castQObjectToQMdiArea,+  QMdiAreaValue (..),+  QMdiAreaConstPtr (..),+  activationOrder,+  background,+  documentMode,+  tabPosition,+  tabShape,+  tabsClosable,+  tabsMovable,+  viewMode,+  activeSubWindow,+  currentSubWindow,+  testOption,+  QMdiAreaPtr (..),+  setActivationOrder,+  setBackground,+  setDocumentMode,+  setTabPosition,+  setTabShape,+  setTabsClosable,+  setTabsMovable,+  setViewMode,+  addSubWindow,+  addSubWindowWithFlags,+  removeSubWindow,+  setOption,+  activateNextSubWindow,+  activatePreviousSubWindow,+  cascadeSubWindows,+  closeActiveSubWindow,+  closeAllSubWindows,+  setActiveSubWindow,+  tileSubWindows,+  emitSubWindowActivated,+  QMdiAreaConst (..),+  castQMdiAreaToConst,+  QMdiArea (..),+  castQMdiAreaToNonconst,+  new,+  newWithParent,+  QMdiAreaSuper (..),+  QMdiAreaSuperConst (..),+  QMdiAreaAreaOption (..),+  QMdiAreaAreaOptions,+  IsQMdiAreaAreaOptions (..),+  dontMaximizeSubWindowOnActivation,+  QMdiAreaViewMode (..),+  QMdiAreaWindowOrder (..),+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+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 {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QBrush as M246+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QMdiSubWindow as M446+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QTabWidget as M488+import {-# SOURCE #-} 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__QMdiArea_new" new' ::  HoppyP.IO (HoppyF.Ptr QMdiArea)+foreign import ccall "genpop__QMdiArea_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QMdiArea)+foreign import ccall "genpop__QMdiArea_activationOrder" activationOrder' ::  HoppyF.Ptr QMdiAreaConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMdiArea_setActivationOrder" setActivationOrder' ::  HoppyF.Ptr QMdiArea -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_background" background' ::  HoppyF.Ptr QMdiAreaConst -> HoppyP.IO (HoppyF.Ptr M246.QBrushConst)+foreign import ccall "genpop__QMdiArea_setBackground" setBackground' ::  HoppyF.Ptr QMdiArea -> HoppyF.Ptr M246.QBrushConst -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_documentMode" documentMode' ::  HoppyF.Ptr QMdiAreaConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMdiArea_setDocumentMode" setDocumentMode' ::  HoppyF.Ptr QMdiArea -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_tabPosition" tabPosition' ::  HoppyF.Ptr QMdiAreaConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMdiArea_setTabPosition" setTabPosition' ::  HoppyF.Ptr QMdiArea -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_tabShape" tabShape' ::  HoppyF.Ptr QMdiAreaConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMdiArea_setTabShape" setTabShape' ::  HoppyF.Ptr QMdiArea -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_tabsClosable" tabsClosable' ::  HoppyF.Ptr QMdiAreaConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMdiArea_setTabsClosable" setTabsClosable' ::  HoppyF.Ptr QMdiArea -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_tabsMovable" tabsMovable' ::  HoppyF.Ptr QMdiAreaConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMdiArea_setTabsMovable" setTabsMovable' ::  HoppyF.Ptr QMdiArea -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_viewMode" viewMode' ::  HoppyF.Ptr QMdiAreaConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMdiArea_setViewMode" setViewMode' ::  HoppyF.Ptr QMdiArea -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_activeSubWindow" activeSubWindow' ::  HoppyF.Ptr QMdiAreaConst -> HoppyP.IO (HoppyF.Ptr M446.QMdiSubWindow)+foreign import ccall "genpop__QMdiArea_addSubWindow" addSubWindow' ::  HoppyF.Ptr QMdiArea -> HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr M446.QMdiSubWindow)+foreign import ccall "genpop__QMdiArea_addSubWindowWithFlags" addSubWindowWithFlags' ::  HoppyF.Ptr QMdiArea -> HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr M446.QMdiSubWindow)+foreign import ccall "genpop__QMdiArea_currentSubWindow" currentSubWindow' ::  HoppyF.Ptr QMdiAreaConst -> HoppyP.IO (HoppyF.Ptr M446.QMdiSubWindow)+foreign import ccall "genpop__QMdiArea_removeSubWindow" removeSubWindow' ::  HoppyF.Ptr QMdiArea -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_setOption" setOption' ::  HoppyF.Ptr QMdiArea -> HoppyFC.CInt -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_testOption" testOption' ::  HoppyF.Ptr QMdiAreaConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMdiArea_activateNextSubWindow" activateNextSubWindow' ::  HoppyF.Ptr QMdiArea -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_activatePreviousSubWindow" activatePreviousSubWindow' ::  HoppyF.Ptr QMdiArea -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_cascadeSubWindows" cascadeSubWindows' ::  HoppyF.Ptr QMdiArea -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_closeActiveSubWindow" closeActiveSubWindow' ::  HoppyF.Ptr QMdiArea -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_closeAllSubWindows" closeAllSubWindows' ::  HoppyF.Ptr QMdiArea -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_setActiveSubWindow" setActiveSubWindow' ::  HoppyF.Ptr QMdiArea -> HoppyF.Ptr M446.QMdiSubWindow -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_tileSubWindows" tileSubWindows' ::  HoppyF.Ptr QMdiArea -> HoppyP.IO ()+foreign import ccall "genpop__QMdiArea_emitSubWindowActivated" emitSubWindowActivated' ::  HoppyF.Ptr QMdiArea -> HoppyF.Ptr M446.QMdiSubWindow -> HoppyP.IO ()+foreign import ccall "gencast__QMdiArea__QWidget" castQMdiAreaToQWidget :: HoppyF.Ptr QMdiAreaConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QMdiArea" castQWidgetToQMdiArea :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QMdiAreaConst+foreign import ccall "gencast__QMdiArea__QObject" castQMdiAreaToQObject :: HoppyF.Ptr QMdiAreaConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QMdiArea" castQObjectToQMdiArea :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QMdiAreaConst+foreign import ccall "gendel__QMdiArea" delete'QMdiArea :: HoppyF.Ptr QMdiAreaConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMdiArea" deletePtr'QMdiArea :: HoppyF.FunPtr (HoppyF.Ptr QMdiAreaConst -> HoppyP.IO ())++class QMdiAreaValue a where+  withQMdiAreaPtr :: a -> (QMdiAreaConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMdiAreaConstPtr a => QMdiAreaValue a where+  withQMdiAreaPtr = HoppyP.flip ($) . toQMdiAreaConst++class (M506.QWidgetConstPtr this) => QMdiAreaConstPtr this where+  toQMdiAreaConst :: this -> QMdiAreaConst++activationOrder :: (QMdiAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO QMdiAreaWindowOrder)+activationOrder arg'1 =+  withQMdiAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (activationOrder' arg'1')++background :: (QMdiAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO M246.QBrush)+background arg'1 =+  withQMdiAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M246.QBrushConst) =<<+  (background' arg'1')++documentMode :: (QMdiAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+documentMode arg'1 =+  withQMdiAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (documentMode' arg'1')++tabPosition :: (QMdiAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO M488.QTabWidgetTabPosition)+tabPosition arg'1 =+  withQMdiAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (tabPosition' arg'1')++tabShape :: (QMdiAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO M488.QTabWidgetTabShape)+tabShape arg'1 =+  withQMdiAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (tabShape' arg'1')++tabsClosable :: (QMdiAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+tabsClosable arg'1 =+  withQMdiAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (tabsClosable' arg'1')++tabsMovable :: (QMdiAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+tabsMovable arg'1 =+  withQMdiAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (tabsMovable' arg'1')++viewMode :: (QMdiAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO QMdiAreaViewMode)+viewMode arg'1 =+  withQMdiAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.toCppEnum+  ) =<<+  (viewMode' arg'1')++activeSubWindow :: (QMdiAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO M446.QMdiSubWindow)+activeSubWindow arg'1 =+  withQMdiAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M446.QMdiSubWindow+  (activeSubWindow' arg'1')++currentSubWindow :: (QMdiAreaValue this) => (this) {- ^ this -} -> (HoppyP.IO M446.QMdiSubWindow)+currentSubWindow arg'1 =+  withQMdiAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M446.QMdiSubWindow+  (currentSubWindow' arg'1')++testOption :: (QMdiAreaValue this) => (this) {- ^ this -} -> (QMdiAreaAreaOption) -> (HoppyP.IO HoppyP.Bool)+testOption arg'1 arg'2 =+  withQMdiAreaPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (testOption' arg'1' arg'2')++class (QMdiAreaConstPtr this, M506.QWidgetPtr this) => QMdiAreaPtr this where+  toQMdiArea :: this -> QMdiArea++setActivationOrder :: (QMdiAreaPtr this) => (this) {- ^ this -} -> (QMdiAreaWindowOrder) -> (HoppyP.IO ())+setActivationOrder arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setActivationOrder' arg'1' arg'2')++setBackground :: (QMdiAreaPtr this, M246.QBrushValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setBackground arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  M246.withQBrushPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setBackground' arg'1' arg'2')++setDocumentMode :: (QMdiAreaPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setDocumentMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setDocumentMode' arg'1' arg'2')++setTabPosition :: (QMdiAreaPtr this) => (this) {- ^ this -} -> (M488.QTabWidgetTabPosition) -> (HoppyP.IO ())+setTabPosition arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setTabPosition' arg'1' arg'2')++setTabShape :: (QMdiAreaPtr this) => (this) {- ^ this -} -> (M488.QTabWidgetTabShape) -> (HoppyP.IO ())+setTabShape arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setTabShape' arg'1' arg'2')++setTabsClosable :: (QMdiAreaPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setTabsClosable arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setTabsClosable' arg'1' arg'2')++setTabsMovable :: (QMdiAreaPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setTabsMovable arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setTabsMovable' arg'1' arg'2')++setViewMode :: (QMdiAreaPtr this) => (this) {- ^ this -} -> (QMdiAreaViewMode) -> (HoppyP.IO ())+setViewMode arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (setViewMode' arg'1' arg'2')++addSubWindow :: (QMdiAreaPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M446.QMdiSubWindow)+addSubWindow arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  HoppyP.fmap M446.QMdiSubWindow+  (addSubWindow' arg'1' arg'2')++addSubWindowWithFlags :: (QMdiAreaPtr this, M506.QWidgetPtr arg'2, M190.IsQtWindowFlags arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO M446.QMdiSubWindow)+addSubWindowWithFlags arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtWindowFlags+  ) arg'3 >>= \arg'3' ->+  HoppyP.fmap M446.QMdiSubWindow+  (addSubWindowWithFlags' arg'1' arg'2' arg'3')++removeSubWindow :: (QMdiAreaPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+removeSubWindow arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (removeSubWindow' arg'1' arg'2')++setOption :: (QMdiAreaPtr this) => (this) {- ^ this -} -> (QMdiAreaAreaOption) -> (HoppyP.Bool) -> (HoppyP.IO ())+setOption arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'3 >>= \arg'3' ->+  (setOption' arg'1' arg'2' arg'3')++activateNextSubWindow :: (QMdiAreaPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+activateNextSubWindow arg'1 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  (activateNextSubWindow' arg'1')++activatePreviousSubWindow :: (QMdiAreaPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+activatePreviousSubWindow arg'1 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  (activatePreviousSubWindow' arg'1')++cascadeSubWindows :: (QMdiAreaPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+cascadeSubWindows arg'1 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  (cascadeSubWindows' arg'1')++closeActiveSubWindow :: (QMdiAreaPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+closeActiveSubWindow arg'1 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  (closeActiveSubWindow' arg'1')++closeAllSubWindows :: (QMdiAreaPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+closeAllSubWindows arg'1 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  (closeAllSubWindows' arg'1')++setActiveSubWindow :: (QMdiAreaPtr this, M446.QMdiSubWindowPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setActiveSubWindow arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M446.toQMdiSubWindow arg'2) $ \arg'2' ->+  (setActiveSubWindow' arg'1' arg'2')++tileSubWindows :: (QMdiAreaPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+tileSubWindows arg'1 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  (tileSubWindows' arg'1')++emitSubWindowActivated :: (QMdiAreaPtr this, M446.QMdiSubWindowPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitSubWindowActivated arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiArea arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M446.toQMdiSubWindow arg'2) $ \arg'2' ->+  (emitSubWindowActivated' arg'1' arg'2')++data QMdiAreaConst =+    QMdiAreaConst (HoppyF.Ptr QMdiAreaConst)+  | QMdiAreaConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMdiAreaConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMdiAreaConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMdiAreaConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMdiAreaToConst :: QMdiArea -> QMdiAreaConst+castQMdiAreaToConst (QMdiArea ptr') = QMdiAreaConst $ HoppyF.castPtr ptr'+castQMdiAreaToConst (QMdiAreaGc fptr' ptr') = QMdiAreaConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMdiAreaConst where+  nullptr = QMdiAreaConst HoppyF.nullPtr+  +  withCppPtr (QMdiAreaConst ptr') f' = f' ptr'+  withCppPtr (QMdiAreaConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMdiAreaConst ptr') = ptr'+  toPtr (QMdiAreaConstGc _ ptr') = ptr'+  +  touchCppPtr (QMdiAreaConst _) = HoppyP.return ()+  touchCppPtr (QMdiAreaConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMdiAreaConst where+  delete (QMdiAreaConst ptr') = delete'QMdiArea ptr'+  delete (QMdiAreaConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMdiAreaConst", " object."]+  +  toGc this'@(QMdiAreaConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMdiAreaConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMdiArea :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMdiAreaConstGc {}) = HoppyP.return this'++instance QMdiAreaConstPtr QMdiAreaConst where+  toQMdiAreaConst = HoppyP.id++instance M506.QWidgetConstPtr QMdiAreaConst where+  toQWidgetConst (QMdiAreaConst ptr') = M506.QWidgetConst $ castQMdiAreaToQWidget ptr'+  toQWidgetConst (QMdiAreaConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQMdiAreaToQWidget ptr'++instance M94.QObjectConstPtr QMdiAreaConst where+  toQObjectConst (QMdiAreaConst ptr') = M94.QObjectConst $ castQMdiAreaToQObject ptr'+  toQObjectConst (QMdiAreaConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQMdiAreaToQObject ptr'++data QMdiArea =+    QMdiArea (HoppyF.Ptr QMdiArea)+  | QMdiAreaGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMdiArea)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMdiArea where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMdiArea where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMdiAreaToNonconst :: QMdiAreaConst -> QMdiArea+castQMdiAreaToNonconst (QMdiAreaConst ptr') = QMdiArea $ HoppyF.castPtr ptr'+castQMdiAreaToNonconst (QMdiAreaConstGc fptr' ptr') = QMdiAreaGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMdiArea where+  nullptr = QMdiArea HoppyF.nullPtr+  +  withCppPtr (QMdiArea ptr') f' = f' ptr'+  withCppPtr (QMdiAreaGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMdiArea ptr') = ptr'+  toPtr (QMdiAreaGc _ ptr') = ptr'+  +  touchCppPtr (QMdiArea _) = HoppyP.return ()+  touchCppPtr (QMdiAreaGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMdiArea where+  delete (QMdiArea ptr') = delete'QMdiArea $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMdiAreaConst)+  delete (QMdiAreaGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMdiArea", " object."]+  +  toGc this'@(QMdiArea ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMdiAreaGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMdiArea :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMdiAreaGc {}) = HoppyP.return this'++instance QMdiAreaConstPtr QMdiArea where+  toQMdiAreaConst (QMdiArea ptr') = QMdiAreaConst $ (HoppyF.castPtr :: HoppyF.Ptr QMdiArea -> HoppyF.Ptr QMdiAreaConst) ptr'+  toQMdiAreaConst (QMdiAreaGc fptr' ptr') = QMdiAreaConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMdiArea -> HoppyF.Ptr QMdiAreaConst) ptr'++instance QMdiAreaPtr QMdiArea where+  toQMdiArea = HoppyP.id++instance M506.QWidgetConstPtr QMdiArea where+  toQWidgetConst (QMdiArea ptr') = M506.QWidgetConst $ castQMdiAreaToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMdiArea -> HoppyF.Ptr QMdiAreaConst) ptr'+  toQWidgetConst (QMdiAreaGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQMdiAreaToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMdiArea -> HoppyF.Ptr QMdiAreaConst) ptr'++instance M506.QWidgetPtr QMdiArea where+  toQWidget (QMdiArea ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQMdiAreaToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMdiArea -> HoppyF.Ptr QMdiAreaConst) ptr'+  toQWidget (QMdiAreaGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQMdiAreaToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMdiArea -> HoppyF.Ptr QMdiAreaConst) ptr'++instance M94.QObjectConstPtr QMdiArea where+  toQObjectConst (QMdiArea ptr') = M94.QObjectConst $ castQMdiAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMdiArea -> HoppyF.Ptr QMdiAreaConst) ptr'+  toQObjectConst (QMdiAreaGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQMdiAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMdiArea -> HoppyF.Ptr QMdiAreaConst) ptr'++instance M94.QObjectPtr QMdiArea where+  toQObject (QMdiArea ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQMdiAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMdiArea -> HoppyF.Ptr QMdiAreaConst) ptr'+  toQObject (QMdiAreaGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQMdiAreaToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMdiArea -> HoppyF.Ptr QMdiAreaConst) ptr'++new :: (HoppyP.IO QMdiArea)+new =+  HoppyP.fmap QMdiArea+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QMdiArea)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QMdiArea+  (newWithParent' arg'1')++class QMdiAreaSuper a where+  downToQMdiArea :: a -> QMdiArea++instance QMdiAreaSuper M506.QWidget where+  downToQMdiArea = castQMdiAreaToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QMdiAreaConst $ castQWidgetToQMdiArea ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QMdiAreaConstGc fptr' $ castQWidgetToQMdiArea ptr'+instance QMdiAreaSuper M94.QObject where+  downToQMdiArea = castQMdiAreaToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QMdiAreaConst $ castQObjectToQMdiArea ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QMdiAreaConstGc fptr' $ castQObjectToQMdiArea ptr'++class QMdiAreaSuperConst a where+  downToQMdiAreaConst :: a -> QMdiAreaConst++instance QMdiAreaSuperConst M506.QWidgetConst where+  downToQMdiAreaConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QMdiAreaConst $ castQWidgetToQMdiArea ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QMdiAreaConstGc fptr' $ castQWidgetToQMdiArea ptr'+instance QMdiAreaSuperConst M94.QObjectConst where+  downToQMdiAreaConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QMdiAreaConst $ castQObjectToQMdiArea ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QMdiAreaConstGc fptr' $ castQObjectToQMdiArea ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMdiArea)) QMdiArea where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMdiArea)) QMdiArea where+  decode = HoppyP.fmap QMdiArea . HoppyF.peek++data QMdiAreaAreaOption =+  DontMaximizeSubWindowOnActivation+  | UnknownQMdiAreaAreaOption (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QMdiAreaAreaOption where+  fromCppEnum DontMaximizeSubWindowOnActivation = 1+  fromCppEnum (UnknownQMdiAreaAreaOption n) = n+  +  toCppEnum (1) = DontMaximizeSubWindowOnActivation+  toCppEnum n = UnknownQMdiAreaAreaOption n++instance HoppyP.Eq QMdiAreaAreaOption where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QMdiAreaAreaOption where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QMdiAreaAreaOptions = QMdiAreaAreaOptions (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QMdiAreaAreaOption QMdiAreaAreaOptions where+  enumToFlags = QMdiAreaAreaOptions . QtahFHR.fromCppEnum+  flagsToEnum (QMdiAreaAreaOptions x') = QtahFHR.toCppEnum x'++class IsQMdiAreaAreaOptions a where+  toQMdiAreaAreaOptions :: a -> QMdiAreaAreaOptions++instance IsQMdiAreaAreaOptions QMdiAreaAreaOptions where toQMdiAreaAreaOptions = QtahP.id+instance IsQMdiAreaAreaOptions QMdiAreaAreaOption where toQMdiAreaAreaOptions = QtahFlags.enumToFlags+instance IsQMdiAreaAreaOptions (HoppyFC.CInt) where toQMdiAreaAreaOptions = QtahFlags.numToFlags++dontMaximizeSubWindowOnActivation :: QMdiAreaAreaOptions+dontMaximizeSubWindowOnActivation = QMdiAreaAreaOptions (1)++instance QtahDB.Bits QMdiAreaAreaOptions where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum++data QMdiAreaViewMode =+  SubWindowView+  | TabbedView+  | UnknownQMdiAreaViewMode (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QMdiAreaViewMode where+  fromCppEnum SubWindowView = 0+  fromCppEnum TabbedView = 1+  fromCppEnum (UnknownQMdiAreaViewMode n) = n+  +  toCppEnum (0) = SubWindowView+  toCppEnum (1) = TabbedView+  toCppEnum n = UnknownQMdiAreaViewMode n++instance HoppyP.Eq QMdiAreaViewMode where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QMdiAreaViewMode where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++data QMdiAreaWindowOrder =+  CreationOrder+  | StackingOrder+  | ActivationHistoryOrder+  | UnknownQMdiAreaWindowOrder (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QMdiAreaWindowOrder where+  fromCppEnum CreationOrder = 0+  fromCppEnum StackingOrder = 1+  fromCppEnum ActivationHistoryOrder = 2+  fromCppEnum (UnknownQMdiAreaWindowOrder n) = n+  +  toCppEnum (0) = CreationOrder+  toCppEnum (1) = StackingOrder+  toCppEnum (2) = ActivationHistoryOrder+  toCppEnum n = UnknownQMdiAreaWindowOrder n++instance HoppyP.Eq QMdiAreaWindowOrder where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QMdiAreaWindowOrder where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)
+ src/Graphics/UI/Qtah/Generated/Widgets/QMdiArea.hs-boot view
@@ -0,0 +1,117 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QMdiArea (+  QMdiAreaValue (..),+  QMdiAreaConstPtr (..),+  QMdiAreaPtr (..),+  QMdiAreaConst (..),+  castQMdiAreaToConst,+  QMdiArea (..),+  castQMdiAreaToNonconst,+  castQMdiAreaToQWidget,+  castQMdiAreaToQObject,+  QMdiAreaAreaOption,+  QMdiAreaAreaOptions,+  IsQMdiAreaAreaOptions (..),+  dontMaximizeSubWindowOnActivation,+  QMdiAreaViewMode,+  QMdiAreaWindowOrder,+  ) where++import qualified Data.Bits as QtahDB+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 {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++class QMdiAreaValue a where+  withQMdiAreaPtr :: a -> (QMdiAreaConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMdiAreaConstPtr a => QMdiAreaValue a++class (M506.QWidgetConstPtr this) => QMdiAreaConstPtr this where+  toQMdiAreaConst :: this -> QMdiAreaConst++class (QMdiAreaConstPtr this, M506.QWidgetPtr this) => QMdiAreaPtr this where+  toQMdiArea :: this -> QMdiArea++data QMdiAreaConst =+    QMdiAreaConst (HoppyF.Ptr QMdiAreaConst)+  | QMdiAreaConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMdiAreaConst)++castQMdiAreaToConst :: QMdiArea -> QMdiAreaConst++instance HoppyFHR.CppPtr QMdiAreaConst+instance HoppyFHR.Deletable QMdiAreaConst++instance QMdiAreaConstPtr QMdiAreaConst++instance M506.QWidgetConstPtr QMdiAreaConst++instance M94.QObjectConstPtr QMdiAreaConst++data QMdiArea =+    QMdiArea (HoppyF.Ptr QMdiArea)+  | QMdiAreaGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMdiArea)++castQMdiAreaToNonconst :: QMdiAreaConst -> QMdiArea++instance HoppyFHR.CppPtr QMdiArea+instance HoppyFHR.Deletable QMdiArea++instance QMdiAreaConstPtr QMdiArea++instance QMdiAreaPtr QMdiArea++instance M506.QWidgetConstPtr QMdiArea++instance M506.QWidgetPtr QMdiArea++instance M94.QObjectConstPtr QMdiArea++instance M94.QObjectPtr QMdiArea+castQMdiAreaToQWidget :: HoppyF.Ptr QMdiAreaConst -> HoppyF.Ptr M506.QWidgetConst+castQMdiAreaToQObject :: HoppyF.Ptr QMdiAreaConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMdiArea)) QMdiArea++data QMdiAreaAreaOption+instance HoppyFHR.CppEnum (HoppyFC.CInt) QMdiAreaAreaOption+instance HoppyP.Eq QMdiAreaAreaOption+instance HoppyP.Ord QMdiAreaAreaOption+instance HoppyP.Show QMdiAreaAreaOption++newtype QMdiAreaAreaOptions = QMdiAreaAreaOptions (HoppyFC.CInt)+instance QtahDB.Bits QMdiAreaAreaOptions+instance QtahP.Eq QMdiAreaAreaOptions+instance QtahP.Ord QMdiAreaAreaOptions+instance QtahP.Show QMdiAreaAreaOptions++instance QtahFlags.Flags (HoppyFC.CInt) QMdiAreaAreaOption QMdiAreaAreaOptions++class IsQMdiAreaAreaOptions a where+  toQMdiAreaAreaOptions :: a -> QMdiAreaAreaOptions++instance IsQMdiAreaAreaOptions QMdiAreaAreaOptions+instance IsQMdiAreaAreaOptions QMdiAreaAreaOption+instance IsQMdiAreaAreaOptions HoppyFC.CInt++dontMaximizeSubWindowOnActivation :: QMdiAreaAreaOptions++data QMdiAreaViewMode+instance HoppyFHR.CppEnum (HoppyFC.CInt) QMdiAreaViewMode+instance HoppyP.Eq QMdiAreaViewMode+instance HoppyP.Ord QMdiAreaViewMode+instance HoppyP.Show QMdiAreaViewMode++data QMdiAreaWindowOrder+instance HoppyFHR.CppEnum (HoppyFC.CInt) QMdiAreaWindowOrder+instance HoppyP.Eq QMdiAreaWindowOrder+instance HoppyP.Ord QMdiAreaWindowOrder+instance HoppyP.Show QMdiAreaWindowOrder
src/Graphics/UI/Qtah/Generated/Widgets/QMdiSubWindow.hs view
@@ -0,0 +1,426 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QMdiSubWindow (+  castQMdiSubWindowToQWidget,+  castQWidgetToQMdiSubWindow,+  castQMdiSubWindowToQObject,+  castQObjectToQMdiSubWindow,+  QMdiSubWindowValue (..),+  QMdiSubWindowConstPtr (..),+  keyboardPageStep,+  keyboardSingleStep,+  systemMenu,+  widget,+  isShaded,+  mdiArea,+  testOption,+  QMdiSubWindowPtr (..),+  setKeyboardPageStep,+  setKeyboardSingleStep,+  setSystemMenu,+  setWidget,+  setOption,+  showShaded,+  showSystemMenu,+  emitAboutToActivate,+  emitWindowStateChanged,+  QMdiSubWindowConst (..),+  castQMdiSubWindowToConst,+  QMdiSubWindow (..),+  castQMdiSubWindowToNonconst,+  new,+  newWithParent,+  newWithParentAndFlags,+  QMdiSubWindowSuper (..),+  QMdiSubWindowSuperConst (..),+  QMdiSubWindowSubWindowOption (..),+  QMdiSubWindowSubWindowOptions,+  IsQMdiSubWindowSubWindowOptions (..),+  rubberBandMove,+  rubberBandResize,+  ) where++import Data.Bits ((.&.), (.|.))+import qualified Data.Bits as QtahDB+import qualified Foreign as HoppyF+import qualified Foreign.C as HoppyFC+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Foreign.Hoppy.Runtime as QtahFHR+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 {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QMdiArea as M444+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QMenu as M448+import {-# SOURCE #-} 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__QMdiSubWindow_new" new' ::  HoppyP.IO (HoppyF.Ptr QMdiSubWindow)+foreign import ccall "genpop__QMdiSubWindow_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QMdiSubWindow)+foreign import ccall "genpop__QMdiSubWindow_newWithParentAndFlags" newWithParentAndFlags' ::  HoppyF.Ptr M506.QWidget -> HoppyFC.CInt -> HoppyP.IO (HoppyF.Ptr QMdiSubWindow)+foreign import ccall "genpop__QMdiSubWindow_keyboardPageStep" keyboardPageStep' ::  HoppyF.Ptr QMdiSubWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMdiSubWindow_setKeyboardPageStep" setKeyboardPageStep' ::  HoppyF.Ptr QMdiSubWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QMdiSubWindow_keyboardSingleStep" keyboardSingleStep' ::  HoppyF.Ptr QMdiSubWindowConst -> HoppyP.IO HoppyFC.CInt+foreign import ccall "genpop__QMdiSubWindow_setKeyboardSingleStep" setKeyboardSingleStep' ::  HoppyF.Ptr QMdiSubWindow -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "genpop__QMdiSubWindow_systemMenu" systemMenu' ::  HoppyF.Ptr QMdiSubWindowConst -> HoppyP.IO (HoppyF.Ptr M448.QMenu)+foreign import ccall "genpop__QMdiSubWindow_setSystemMenu" setSystemMenu' ::  HoppyF.Ptr QMdiSubWindow -> HoppyF.Ptr M448.QMenu -> HoppyP.IO ()+foreign import ccall "genpop__QMdiSubWindow_widget" widget' ::  HoppyF.Ptr QMdiSubWindowConst -> HoppyP.IO (HoppyF.Ptr M506.QWidget)+foreign import ccall "genpop__QMdiSubWindow_setWidget" setWidget' ::  HoppyF.Ptr QMdiSubWindow -> HoppyF.Ptr M506.QWidget -> HoppyP.IO ()+foreign import ccall "genpop__QMdiSubWindow_isShaded" isShaded' ::  HoppyF.Ptr QMdiSubWindowConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMdiSubWindow_mdiArea" mdiArea' ::  HoppyF.Ptr QMdiSubWindowConst -> HoppyP.IO (HoppyF.Ptr M444.QMdiArea)+foreign import ccall "genpop__QMdiSubWindow_setOption" setOption' ::  HoppyF.Ptr QMdiSubWindow -> HoppyFC.CInt -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QMdiSubWindow_testOption" testOption' ::  HoppyF.Ptr QMdiSubWindowConst -> HoppyFC.CInt -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMdiSubWindow_showShaded" showShaded' ::  HoppyF.Ptr QMdiSubWindow -> HoppyP.IO ()+foreign import ccall "genpop__QMdiSubWindow_showSystemMenu" showSystemMenu' ::  HoppyF.Ptr QMdiSubWindow -> HoppyP.IO ()+foreign import ccall "genpop__QMdiSubWindow_emitAboutToActivate" emitAboutToActivate' ::  HoppyF.Ptr QMdiSubWindow -> HoppyP.IO ()+foreign import ccall "genpop__QMdiSubWindow_emitWindowStateChanged" emitWindowStateChanged' ::  HoppyF.Ptr QMdiSubWindow -> HoppyFC.CInt -> HoppyFC.CInt -> HoppyP.IO ()+foreign import ccall "gencast__QMdiSubWindow__QWidget" castQMdiSubWindowToQWidget :: HoppyF.Ptr QMdiSubWindowConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QMdiSubWindow" castQWidgetToQMdiSubWindow :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QMdiSubWindowConst+foreign import ccall "gencast__QMdiSubWindow__QObject" castQMdiSubWindowToQObject :: HoppyF.Ptr QMdiSubWindowConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QMdiSubWindow" castQObjectToQMdiSubWindow :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QMdiSubWindowConst+foreign import ccall "gendel__QMdiSubWindow" delete'QMdiSubWindow :: HoppyF.Ptr QMdiSubWindowConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMdiSubWindow" deletePtr'QMdiSubWindow :: HoppyF.FunPtr (HoppyF.Ptr QMdiSubWindowConst -> HoppyP.IO ())++class QMdiSubWindowValue a where+  withQMdiSubWindowPtr :: a -> (QMdiSubWindowConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMdiSubWindowConstPtr a => QMdiSubWindowValue a where+  withQMdiSubWindowPtr = HoppyP.flip ($) . toQMdiSubWindowConst++class (M506.QWidgetConstPtr this) => QMdiSubWindowConstPtr this where+  toQMdiSubWindowConst :: this -> QMdiSubWindowConst++keyboardPageStep :: (QMdiSubWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+keyboardPageStep arg'1 =+  withQMdiSubWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (keyboardPageStep' arg'1')++keyboardSingleStep :: (QMdiSubWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)+keyboardSingleStep arg'1 =+  withQMdiSubWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) =<<+  (keyboardSingleStep' arg'1')++systemMenu :: (QMdiSubWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M448.QMenu)+systemMenu arg'1 =+  withQMdiSubWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M448.QMenu+  (systemMenu' arg'1')++widget :: (QMdiSubWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M506.QWidget)+widget arg'1 =+  withQMdiSubWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M506.QWidget+  (widget' arg'1')++isShaded :: (QMdiSubWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isShaded arg'1 =+  withQMdiSubWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isShaded' arg'1')++mdiArea :: (QMdiSubWindowValue this) => (this) {- ^ this -} -> (HoppyP.IO M444.QMdiArea)+mdiArea arg'1 =+  withQMdiSubWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M444.QMdiArea+  (mdiArea' arg'1')++testOption :: (QMdiSubWindowValue this) => (this) {- ^ this -} -> (QMdiSubWindowSubWindowOption) -> (HoppyP.IO HoppyP.Bool)+testOption arg'1 arg'2 =+  withQMdiSubWindowPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (testOption' arg'1' arg'2')++class (QMdiSubWindowConstPtr this, M506.QWidgetPtr this) => QMdiSubWindowPtr this where+  toQMdiSubWindow :: this -> QMdiSubWindow++setKeyboardPageStep :: (QMdiSubWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setKeyboardPageStep arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiSubWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setKeyboardPageStep' arg'1' arg'2')++setKeyboardSingleStep :: (QMdiSubWindowPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())+setKeyboardSingleStep arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiSubWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.coerceIntegral+  ) arg'2 >>= \arg'2' ->+  (setKeyboardSingleStep' arg'1' arg'2')++setSystemMenu :: (QMdiSubWindowPtr this, M448.QMenuPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setSystemMenu arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiSubWindow arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M448.toQMenu arg'2) $ \arg'2' ->+  (setSystemMenu' arg'1' arg'2')++setWidget :: (QMdiSubWindowPtr this, M506.QWidgetPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setWidget arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMdiSubWindow arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->+  (setWidget' arg'1' arg'2')++setOption :: (QMdiSubWindowPtr this) => (this) {- ^ this -} -> (QMdiSubWindowSubWindowOption) -> (HoppyP.Bool) -> (HoppyP.IO ())+setOption arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMdiSubWindow arg'1) $ \arg'1' ->+  (+    HoppyP.return . HoppyFHR.fromCppEnum+  ) arg'2 >>= \arg'2' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'3 >>= \arg'3' ->+  (setOption' arg'1' arg'2' arg'3')++showShaded :: (QMdiSubWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+showShaded arg'1 =+  HoppyFHR.withCppPtr (toQMdiSubWindow arg'1) $ \arg'1' ->+  (showShaded' arg'1')++showSystemMenu :: (QMdiSubWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+showSystemMenu arg'1 =+  HoppyFHR.withCppPtr (toQMdiSubWindow arg'1) $ \arg'1' ->+  (showSystemMenu' arg'1')++emitAboutToActivate :: (QMdiSubWindowPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitAboutToActivate arg'1 =+  HoppyFHR.withCppPtr (toQMdiSubWindow arg'1) $ \arg'1' ->+  (emitAboutToActivate' arg'1')++emitWindowStateChanged :: (QMdiSubWindowPtr this, M190.IsQtWindowStates arg'2, M190.IsQtWindowStates arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+emitWindowStateChanged arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMdiSubWindow arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtWindowStates+  ) arg'2 >>= \arg'2' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtWindowStates+  ) arg'3 >>= \arg'3' ->+  (emitWindowStateChanged' arg'1' arg'2' arg'3')++data QMdiSubWindowConst =+    QMdiSubWindowConst (HoppyF.Ptr QMdiSubWindowConst)+  | QMdiSubWindowConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMdiSubWindowConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMdiSubWindowConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMdiSubWindowConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMdiSubWindowToConst :: QMdiSubWindow -> QMdiSubWindowConst+castQMdiSubWindowToConst (QMdiSubWindow ptr') = QMdiSubWindowConst $ HoppyF.castPtr ptr'+castQMdiSubWindowToConst (QMdiSubWindowGc fptr' ptr') = QMdiSubWindowConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMdiSubWindowConst where+  nullptr = QMdiSubWindowConst HoppyF.nullPtr+  +  withCppPtr (QMdiSubWindowConst ptr') f' = f' ptr'+  withCppPtr (QMdiSubWindowConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMdiSubWindowConst ptr') = ptr'+  toPtr (QMdiSubWindowConstGc _ ptr') = ptr'+  +  touchCppPtr (QMdiSubWindowConst _) = HoppyP.return ()+  touchCppPtr (QMdiSubWindowConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMdiSubWindowConst where+  delete (QMdiSubWindowConst ptr') = delete'QMdiSubWindow ptr'+  delete (QMdiSubWindowConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMdiSubWindowConst", " object."]+  +  toGc this'@(QMdiSubWindowConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMdiSubWindowConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMdiSubWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMdiSubWindowConstGc {}) = HoppyP.return this'++instance QMdiSubWindowConstPtr QMdiSubWindowConst where+  toQMdiSubWindowConst = HoppyP.id++instance M506.QWidgetConstPtr QMdiSubWindowConst where+  toQWidgetConst (QMdiSubWindowConst ptr') = M506.QWidgetConst $ castQMdiSubWindowToQWidget ptr'+  toQWidgetConst (QMdiSubWindowConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQMdiSubWindowToQWidget ptr'++instance M94.QObjectConstPtr QMdiSubWindowConst where+  toQObjectConst (QMdiSubWindowConst ptr') = M94.QObjectConst $ castQMdiSubWindowToQObject ptr'+  toQObjectConst (QMdiSubWindowConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQMdiSubWindowToQObject ptr'++data QMdiSubWindow =+    QMdiSubWindow (HoppyF.Ptr QMdiSubWindow)+  | QMdiSubWindowGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMdiSubWindow)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMdiSubWindow where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMdiSubWindow where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMdiSubWindowToNonconst :: QMdiSubWindowConst -> QMdiSubWindow+castQMdiSubWindowToNonconst (QMdiSubWindowConst ptr') = QMdiSubWindow $ HoppyF.castPtr ptr'+castQMdiSubWindowToNonconst (QMdiSubWindowConstGc fptr' ptr') = QMdiSubWindowGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMdiSubWindow where+  nullptr = QMdiSubWindow HoppyF.nullPtr+  +  withCppPtr (QMdiSubWindow ptr') f' = f' ptr'+  withCppPtr (QMdiSubWindowGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMdiSubWindow ptr') = ptr'+  toPtr (QMdiSubWindowGc _ ptr') = ptr'+  +  touchCppPtr (QMdiSubWindow _) = HoppyP.return ()+  touchCppPtr (QMdiSubWindowGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMdiSubWindow where+  delete (QMdiSubWindow ptr') = delete'QMdiSubWindow $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMdiSubWindowConst)+  delete (QMdiSubWindowGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMdiSubWindow", " object."]+  +  toGc this'@(QMdiSubWindow ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMdiSubWindowGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMdiSubWindow :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMdiSubWindowGc {}) = HoppyP.return this'++instance QMdiSubWindowConstPtr QMdiSubWindow where+  toQMdiSubWindowConst (QMdiSubWindow ptr') = QMdiSubWindowConst $ (HoppyF.castPtr :: HoppyF.Ptr QMdiSubWindow -> HoppyF.Ptr QMdiSubWindowConst) ptr'+  toQMdiSubWindowConst (QMdiSubWindowGc fptr' ptr') = QMdiSubWindowConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMdiSubWindow -> HoppyF.Ptr QMdiSubWindowConst) ptr'++instance QMdiSubWindowPtr QMdiSubWindow where+  toQMdiSubWindow = HoppyP.id++instance M506.QWidgetConstPtr QMdiSubWindow where+  toQWidgetConst (QMdiSubWindow ptr') = M506.QWidgetConst $ castQMdiSubWindowToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMdiSubWindow -> HoppyF.Ptr QMdiSubWindowConst) ptr'+  toQWidgetConst (QMdiSubWindowGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQMdiSubWindowToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMdiSubWindow -> HoppyF.Ptr QMdiSubWindowConst) ptr'++instance M506.QWidgetPtr QMdiSubWindow where+  toQWidget (QMdiSubWindow ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQMdiSubWindowToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMdiSubWindow -> HoppyF.Ptr QMdiSubWindowConst) ptr'+  toQWidget (QMdiSubWindowGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQMdiSubWindowToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMdiSubWindow -> HoppyF.Ptr QMdiSubWindowConst) ptr'++instance M94.QObjectConstPtr QMdiSubWindow where+  toQObjectConst (QMdiSubWindow ptr') = M94.QObjectConst $ castQMdiSubWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMdiSubWindow -> HoppyF.Ptr QMdiSubWindowConst) ptr'+  toQObjectConst (QMdiSubWindowGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQMdiSubWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMdiSubWindow -> HoppyF.Ptr QMdiSubWindowConst) ptr'++instance M94.QObjectPtr QMdiSubWindow where+  toQObject (QMdiSubWindow ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQMdiSubWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMdiSubWindow -> HoppyF.Ptr QMdiSubWindowConst) ptr'+  toQObject (QMdiSubWindowGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQMdiSubWindowToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMdiSubWindow -> HoppyF.Ptr QMdiSubWindowConst) ptr'++new :: (HoppyP.IO QMdiSubWindow)+new =+  HoppyP.fmap QMdiSubWindow+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QMdiSubWindow)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QMdiSubWindow+  (newWithParent' arg'1')++newWithParentAndFlags :: (M506.QWidgetPtr arg'1, M190.IsQtWindowFlags arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QMdiSubWindow)+newWithParentAndFlags arg'1 arg'2 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  (+    QtahP.return . QtahFlags.flagsToNum . M190.toQtWindowFlags+  ) arg'2 >>= \arg'2' ->+  HoppyP.fmap QMdiSubWindow+  (newWithParentAndFlags' arg'1' arg'2')++class QMdiSubWindowSuper a where+  downToQMdiSubWindow :: a -> QMdiSubWindow++instance QMdiSubWindowSuper M506.QWidget where+  downToQMdiSubWindow = castQMdiSubWindowToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QMdiSubWindowConst $ castQWidgetToQMdiSubWindow ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QMdiSubWindowConstGc fptr' $ castQWidgetToQMdiSubWindow ptr'+instance QMdiSubWindowSuper M94.QObject where+  downToQMdiSubWindow = castQMdiSubWindowToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QMdiSubWindowConst $ castQObjectToQMdiSubWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QMdiSubWindowConstGc fptr' $ castQObjectToQMdiSubWindow ptr'++class QMdiSubWindowSuperConst a where+  downToQMdiSubWindowConst :: a -> QMdiSubWindowConst++instance QMdiSubWindowSuperConst M506.QWidgetConst where+  downToQMdiSubWindowConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QMdiSubWindowConst $ castQWidgetToQMdiSubWindow ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QMdiSubWindowConstGc fptr' $ castQWidgetToQMdiSubWindow ptr'+instance QMdiSubWindowSuperConst M94.QObjectConst where+  downToQMdiSubWindowConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QMdiSubWindowConst $ castQObjectToQMdiSubWindow ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QMdiSubWindowConstGc fptr' $ castQObjectToQMdiSubWindow ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMdiSubWindow)) QMdiSubWindow where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMdiSubWindow)) QMdiSubWindow where+  decode = HoppyP.fmap QMdiSubWindow . HoppyF.peek++data QMdiSubWindowSubWindowOption =+  RubberBandResize+  | RubberBandMove+  | UnknownQMdiSubWindowSubWindowOption (HoppyFC.CInt)+  deriving (HoppyP.Show)++instance HoppyFHR.CppEnum (HoppyFC.CInt) QMdiSubWindowSubWindowOption where+  fromCppEnum RubberBandResize = 4+  fromCppEnum RubberBandMove = 8+  fromCppEnum (UnknownQMdiSubWindowSubWindowOption n) = n+  +  toCppEnum (4) = RubberBandResize+  toCppEnum (8) = RubberBandMove+  toCppEnum n = UnknownQMdiSubWindowSubWindowOption n++instance HoppyP.Eq QMdiSubWindowSubWindowOption where+  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y++instance HoppyP.Ord QMdiSubWindowSubWindowOption where+  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)++newtype QMdiSubWindowSubWindowOptions = QMdiSubWindowSubWindowOptions (HoppyFC.CInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)++instance QtahFlags.Flags (HoppyFC.CInt) QMdiSubWindowSubWindowOption QMdiSubWindowSubWindowOptions where+  enumToFlags = QMdiSubWindowSubWindowOptions . QtahFHR.fromCppEnum+  flagsToEnum (QMdiSubWindowSubWindowOptions x') = QtahFHR.toCppEnum x'++class IsQMdiSubWindowSubWindowOptions a where+  toQMdiSubWindowSubWindowOptions :: a -> QMdiSubWindowSubWindowOptions++instance IsQMdiSubWindowSubWindowOptions QMdiSubWindowSubWindowOptions where toQMdiSubWindowSubWindowOptions = QtahP.id+instance IsQMdiSubWindowSubWindowOptions QMdiSubWindowSubWindowOption where toQMdiSubWindowSubWindowOptions = QtahFlags.enumToFlags+instance IsQMdiSubWindowSubWindowOptions (HoppyFC.CInt) where toQMdiSubWindowSubWindowOptions = QtahFlags.numToFlags++rubberBandMove :: QMdiSubWindowSubWindowOptions+rubberBandMove = QMdiSubWindowSubWindowOptions (8)++rubberBandResize :: QMdiSubWindowSubWindowOptions+rubberBandResize = QMdiSubWindowSubWindowOptions (4)++instance QtahDB.Bits QMdiSubWindowSubWindowOptions where+  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)+  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)+  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)+  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x+  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i+  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i+  bitSize x = case QtahDB.bitSizeMaybe x of+      QtahP.Just n -> n+      QtahP.Nothing -> QtahP.error "bitSize is undefined"+  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum+  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum+  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i+  bit = QtahFlags.numToFlags . QtahDB.bit+  popCount = QtahDB.popCount . QtahFlags.flagsToNum
+ src/Graphics/UI/Qtah/Generated/Widgets/QMdiSubWindow.hs-boot view
@@ -0,0 +1,105 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QMdiSubWindow (+  QMdiSubWindowValue (..),+  QMdiSubWindowConstPtr (..),+  QMdiSubWindowPtr (..),+  QMdiSubWindowConst (..),+  castQMdiSubWindowToConst,+  QMdiSubWindow (..),+  castQMdiSubWindowToNonconst,+  castQMdiSubWindowToQWidget,+  castQMdiSubWindowToQObject,+  QMdiSubWindowSubWindowOption,+  QMdiSubWindowSubWindowOptions,+  IsQMdiSubWindowSubWindowOptions (..),+  rubberBandMove,+  rubberBandResize,+  ) where++import qualified Data.Bits as QtahDB+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 {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import qualified Prelude as HoppyP+import qualified Prelude as QtahP+++class QMdiSubWindowValue a where+  withQMdiSubWindowPtr :: a -> (QMdiSubWindowConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMdiSubWindowConstPtr a => QMdiSubWindowValue a++class (M506.QWidgetConstPtr this) => QMdiSubWindowConstPtr this where+  toQMdiSubWindowConst :: this -> QMdiSubWindowConst++class (QMdiSubWindowConstPtr this, M506.QWidgetPtr this) => QMdiSubWindowPtr this where+  toQMdiSubWindow :: this -> QMdiSubWindow++data QMdiSubWindowConst =+    QMdiSubWindowConst (HoppyF.Ptr QMdiSubWindowConst)+  | QMdiSubWindowConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMdiSubWindowConst)++castQMdiSubWindowToConst :: QMdiSubWindow -> QMdiSubWindowConst++instance HoppyFHR.CppPtr QMdiSubWindowConst+instance HoppyFHR.Deletable QMdiSubWindowConst++instance QMdiSubWindowConstPtr QMdiSubWindowConst++instance M506.QWidgetConstPtr QMdiSubWindowConst++instance M94.QObjectConstPtr QMdiSubWindowConst++data QMdiSubWindow =+    QMdiSubWindow (HoppyF.Ptr QMdiSubWindow)+  | QMdiSubWindowGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMdiSubWindow)++castQMdiSubWindowToNonconst :: QMdiSubWindowConst -> QMdiSubWindow++instance HoppyFHR.CppPtr QMdiSubWindow+instance HoppyFHR.Deletable QMdiSubWindow++instance QMdiSubWindowConstPtr QMdiSubWindow++instance QMdiSubWindowPtr QMdiSubWindow++instance M506.QWidgetConstPtr QMdiSubWindow++instance M506.QWidgetPtr QMdiSubWindow++instance M94.QObjectConstPtr QMdiSubWindow++instance M94.QObjectPtr QMdiSubWindow+castQMdiSubWindowToQWidget :: HoppyF.Ptr QMdiSubWindowConst -> HoppyF.Ptr M506.QWidgetConst+castQMdiSubWindowToQObject :: HoppyF.Ptr QMdiSubWindowConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMdiSubWindow)) QMdiSubWindow++data QMdiSubWindowSubWindowOption+instance HoppyFHR.CppEnum (HoppyFC.CInt) QMdiSubWindowSubWindowOption+instance HoppyP.Eq QMdiSubWindowSubWindowOption+instance HoppyP.Ord QMdiSubWindowSubWindowOption+instance HoppyP.Show QMdiSubWindowSubWindowOption++newtype QMdiSubWindowSubWindowOptions = QMdiSubWindowSubWindowOptions (HoppyFC.CInt)+instance QtahDB.Bits QMdiSubWindowSubWindowOptions+instance QtahP.Eq QMdiSubWindowSubWindowOptions+instance QtahP.Ord QMdiSubWindowSubWindowOptions+instance QtahP.Show QMdiSubWindowSubWindowOptions++instance QtahFlags.Flags (HoppyFC.CInt) QMdiSubWindowSubWindowOption QMdiSubWindowSubWindowOptions++class IsQMdiSubWindowSubWindowOptions a where+  toQMdiSubWindowSubWindowOptions :: a -> QMdiSubWindowSubWindowOptions++instance IsQMdiSubWindowSubWindowOptions QMdiSubWindowSubWindowOptions+instance IsQMdiSubWindowSubWindowOptions QMdiSubWindowSubWindowOption+instance IsQMdiSubWindowSubWindowOptions HoppyFC.CInt++rubberBandMove :: QMdiSubWindowSubWindowOptions+rubberBandResize :: QMdiSubWindowSubWindowOptions
src/Graphics/UI/Qtah/Generated/Widgets/QMenu.hs view
@@ -0,0 +1,571 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QMenu (+  castQMenuToQWidget,+  castQWidgetToQMenu,+  castQMenuToQObject,+  castQObjectToQMenu,+  QMenuValue (..),+  QMenuConstPtr (..),+  actionAt,+  actionGeometry,+  activeAction,+  defaultAction,+  icon,+  isEmpty,+  isTearOffMenuVisible,+  menuAction,+  separatorsCollapsible,+  isTearOffEnabled,+  title,+  QMenuPtr (..),+  setActiveAction,+  addAction,+  addNewAction,+  addNewActionWithIcon,+  addMenu,+  addNewMenu,+  addNewMenuWithIcon,+  addSection,+  addSectionWithIcon,+  addSeparator,+  clear,+  setDefaultAction,+  exec,+  execAt,+  hideTearOffMenu,+  setIcon,+  insertMenu,+  insertSection,+  insertSectionWithIcon,+  insertSeparator,+  popup,+  popupAction,+  setSeparatorsCollapsible,+  setTearOffEnabled,+  setTitle,+  emitAboutToHide,+  emitAboutToShow,+  emitHovered,+  emitTriggered,+  QMenuConst (..),+  castQMenuToConst,+  QMenu (..),+  castQMenuToNonconst,+  new,+  newWithParent,+  newWithTitle,+  newWithTitleAndParent,+  QMenuSuper (..),+  QMenuSuperConst (..),+  ) 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 {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Gui.QIcon as M288+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QAction as M368+import {-# SOURCE #-} 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__QMenu_new" new' ::  HoppyP.IO (HoppyF.Ptr QMenu)+foreign import ccall "genpop__QMenu_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QMenu)+foreign import ccall "genpop__QMenu_newWithTitle" newWithTitle' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QMenu)+foreign import ccall "genpop__QMenu_newWithTitleAndParent" newWithTitleAndParent' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QMenu)+foreign import ccall "genpop__QMenu_actionAt" actionAt' ::  HoppyF.Ptr QMenuConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_actionGeometry" actionGeometry' ::  HoppyF.Ptr QMenuConst -> HoppyF.Ptr M368.QAction -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)+foreign import ccall "genpop__QMenu_activeAction" activeAction' ::  HoppyF.Ptr QMenuConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_setActiveAction" setActiveAction' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M368.QAction -> HoppyP.IO ()+foreign import ccall "genpop__QMenu_addAction" addAction' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M368.QAction -> HoppyP.IO ()+foreign import ccall "genpop__QMenu_addNewAction" addNewAction' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_addNewActionWithIcon" addNewActionWithIcon' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M288.QIconConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_addMenu" addMenu' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr QMenu -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_addNewMenu" addNewMenu' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QMenu)+foreign import ccall "genpop__QMenu_addNewMenuWithIcon" addNewMenuWithIcon' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M288.QIconConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QMenu)+foreign import ccall "genpop__QMenu_addSection" addSection' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_addSectionWithIcon" addSectionWithIcon' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M288.QIconConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_addSeparator" addSeparator' ::  HoppyF.Ptr QMenu -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_clear" clear' ::  HoppyF.Ptr QMenu -> HoppyP.IO ()+foreign import ccall "genpop__QMenu_defaultAction" defaultAction' ::  HoppyF.Ptr QMenuConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_setDefaultAction" setDefaultAction' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M368.QAction -> HoppyP.IO ()+foreign import ccall "genpop__QMenu_exec" exec' ::  HoppyF.Ptr QMenu -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_execAt" execAt' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M114.QPointConst -> HoppyF.Ptr M368.QAction -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_hideTearOffMenu" hideTearOffMenu' ::  HoppyF.Ptr QMenu -> HoppyP.IO ()+foreign import ccall "genpop__QMenu_icon" icon' ::  HoppyF.Ptr QMenuConst -> HoppyP.IO (HoppyF.Ptr M288.QIconConst)+foreign import ccall "genpop__QMenu_setIcon" setIcon' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M288.QIconConst -> HoppyP.IO ()+foreign import ccall "genpop__QMenu_insertMenu" insertMenu' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M368.QAction -> HoppyF.Ptr QMenu -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_insertSection" insertSection' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M368.QAction -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_insertSectionWithIcon" insertSectionWithIcon' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M368.QAction -> HoppyF.Ptr M288.QIconConst -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_insertSeparator" insertSeparator' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M368.QAction -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_isEmpty" isEmpty' ::  HoppyF.Ptr QMenuConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMenu_isTearOffMenuVisible" isTearOffMenuVisible' ::  HoppyF.Ptr QMenuConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMenu_menuAction" menuAction' ::  HoppyF.Ptr QMenuConst -> HoppyP.IO (HoppyF.Ptr M368.QAction)+foreign import ccall "genpop__QMenu_popup" popup' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO ()+foreign import ccall "genpop__QMenu_popupAction" popupAction' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M114.QPointConst -> HoppyF.Ptr M368.QAction -> HoppyP.IO ()+foreign import ccall "genpop__QMenu_separatorsCollapsible" separatorsCollapsible' ::  HoppyF.Ptr QMenuConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMenu_setSeparatorsCollapsible" setSeparatorsCollapsible' ::  HoppyF.Ptr QMenu -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QMenu_isTearOffEnabled" isTearOffEnabled' ::  HoppyF.Ptr QMenuConst -> HoppyP.IO HoppyFC.CBool+foreign import ccall "genpop__QMenu_setTearOffEnabled" setTearOffEnabled' ::  HoppyF.Ptr QMenu -> HoppyFC.CBool -> HoppyP.IO ()+foreign import ccall "genpop__QMenu_title" title' ::  HoppyF.Ptr QMenuConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)+foreign import ccall "genpop__QMenu_setTitle" setTitle' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()+foreign import ccall "genpop__QMenu_emitAboutToHide" emitAboutToHide' ::  HoppyF.Ptr QMenu -> HoppyP.IO ()+foreign import ccall "genpop__QMenu_emitAboutToShow" emitAboutToShow' ::  HoppyF.Ptr QMenu -> HoppyP.IO ()+foreign import ccall "genpop__QMenu_emitHovered" emitHovered' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M368.QAction -> HoppyP.IO ()+foreign import ccall "genpop__QMenu_emitTriggered" emitTriggered' ::  HoppyF.Ptr QMenu -> HoppyF.Ptr M368.QAction -> HoppyP.IO ()+foreign import ccall "gencast__QMenu__QWidget" castQMenuToQWidget :: HoppyF.Ptr QMenuConst -> HoppyF.Ptr M506.QWidgetConst+foreign import ccall "gencast__QWidget__QMenu" castQWidgetToQMenu :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QMenuConst+foreign import ccall "gencast__QMenu__QObject" castQMenuToQObject :: HoppyF.Ptr QMenuConst -> HoppyF.Ptr M94.QObjectConst+foreign import ccall "gencast__QObject__QMenu" castQObjectToQMenu :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QMenuConst+foreign import ccall "gendel__QMenu" delete'QMenu :: HoppyF.Ptr QMenuConst -> HoppyP.IO ()+foreign import ccall "&gendel__QMenu" deletePtr'QMenu :: HoppyF.FunPtr (HoppyF.Ptr QMenuConst -> HoppyP.IO ())++class QMenuValue a where+  withQMenuPtr :: a -> (QMenuConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMenuConstPtr a => QMenuValue a where+  withQMenuPtr = HoppyP.flip ($) . toQMenuConst++class (M506.QWidgetConstPtr this) => QMenuConstPtr this where+  toQMenuConst :: this -> QMenuConst++actionAt :: (QMenuValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M368.QAction)+actionAt arg'1 arg'2 =+  withQMenuPtr 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 :: (QMenuValue this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HRect.HRect)+actionGeometry arg'1 arg'2 =+  withQMenuPtr 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 :: (QMenuValue this) => (this) {- ^ this -} -> (HoppyP.IO M368.QAction)+activeAction arg'1 =+  withQMenuPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M368.QAction+  (activeAction' arg'1')++defaultAction :: (QMenuValue this) => (this) {- ^ this -} -> (HoppyP.IO M368.QAction)+defaultAction arg'1 =+  withQMenuPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M368.QAction+  (defaultAction' arg'1')++icon :: (QMenuValue this) => (this) {- ^ this -} -> (HoppyP.IO M288.QIcon)+icon arg'1 =+  withQMenuPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M288.QIconConst) =<<+  (icon' arg'1')++isEmpty :: (QMenuValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isEmpty arg'1 =+  withQMenuPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isEmpty' arg'1')++isTearOffMenuVisible :: (QMenuValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isTearOffMenuVisible arg'1 =+  withQMenuPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isTearOffMenuVisible' arg'1')++menuAction :: (QMenuValue this) => (this) {- ^ this -} -> (HoppyP.IO M368.QAction)+menuAction arg'1 =+  withQMenuPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap M368.QAction+  (menuAction' arg'1')++separatorsCollapsible :: (QMenuValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+separatorsCollapsible arg'1 =+  withQMenuPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (separatorsCollapsible' arg'1')++isTearOffEnabled :: (QMenuValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)+isTearOffEnabled arg'1 =+  withQMenuPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (+    (HoppyP.return . (/= 0))+  ) =<<+  (isTearOffEnabled' arg'1')++title :: (QMenuValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)+title arg'1 =+  withQMenuPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<+  (title' arg'1')++class (QMenuConstPtr this, M506.QWidgetPtr this) => QMenuPtr this where+  toQMenu :: this -> QMenu++setActiveAction :: (QMenuPtr this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setActiveAction arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->+  (setActiveAction' arg'1' arg'2')++addAction :: (QMenuPtr this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+addAction arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->+  (addAction' arg'1' arg'2')++addNewAction :: (QMenuPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M368.QAction)+addNewAction arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap M368.QAction+  (addNewAction' arg'1' arg'2')++addNewActionWithIcon :: (QMenuPtr this, M288.QIconValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO M368.QAction)+addNewActionWithIcon arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMenu 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 M368.QAction+  (addNewActionWithIcon' arg'1' arg'2' arg'3')++addMenu :: (QMenuPtr this, QMenuPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M368.QAction)+addMenu arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (toQMenu arg'2) $ \arg'2' ->+  HoppyP.fmap M368.QAction+  (addMenu' arg'1' arg'2')++addNewMenu :: (QMenuPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QMenu)+addNewMenu arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap QMenu+  (addNewMenu' arg'1' arg'2')++addNewMenuWithIcon :: (QMenuPtr this, M288.QIconValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO QMenu)+addNewMenuWithIcon arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMenu 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 QMenu+  (addNewMenuWithIcon' arg'1' arg'2' arg'3')++addSection :: (QMenuPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M368.QAction)+addSection arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyP.fmap M368.QAction+  (addSection' arg'1' arg'2')++addSectionWithIcon :: (QMenuPtr this, M288.QIconValue arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO M368.QAction)+addSectionWithIcon arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMenu 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 M368.QAction+  (addSectionWithIcon' arg'1' arg'2' arg'3')++addSeparator :: (QMenuPtr this) => (this) {- ^ this -} -> (HoppyP.IO M368.QAction)+addSeparator arg'1 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  HoppyP.fmap M368.QAction+  (addSeparator' arg'1')++clear :: (QMenuPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+clear arg'1 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  (clear' arg'1')++setDefaultAction :: (QMenuPtr this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setDefaultAction arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->+  (setDefaultAction' arg'1' arg'2')++exec :: (QMenuPtr this) => (this) {- ^ this -} -> (HoppyP.IO M368.QAction)+exec arg'1 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  HoppyP.fmap M368.QAction+  (exec' arg'1')++execAt :: (QMenuPtr this, M114.QPointValue arg'2, M368.QActionPtr arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO M368.QAction)+execAt arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'3) $ \arg'3' ->+  HoppyP.fmap M368.QAction+  (execAt' arg'1' arg'2' arg'3')++hideTearOffMenu :: (QMenuPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+hideTearOffMenu arg'1 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  (hideTearOffMenu' arg'1')++setIcon :: (QMenuPtr this, M288.QIconValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setIcon arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  M288.withQIconPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setIcon' arg'1' arg'2')++insertMenu :: (QMenuPtr this, M368.QActionPtr arg'2, QMenuPtr arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO M368.QAction)+insertMenu arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->+  HoppyFHR.withCppPtr (toQMenu arg'3) $ \arg'3' ->+  HoppyP.fmap M368.QAction+  (insertMenu' arg'1' arg'2' arg'3')++insertSection :: (QMenuPtr this, M368.QActionPtr arg'2, M142.QStringValue arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO M368.QAction)+insertSection arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->+  M142.withQStringPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  HoppyP.fmap M368.QAction+  (insertSection' arg'1' arg'2' arg'3')++insertSectionWithIcon :: (QMenuPtr this, M368.QActionPtr arg'2, M288.QIconValue arg'3, M142.QStringValue arg'4) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (arg'4) -> (HoppyP.IO M368.QAction)+insertSectionWithIcon arg'1 arg'2 arg'3 arg'4 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->+  M288.withQIconPtr arg'3 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'3' ->+  M142.withQStringPtr arg'4 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'4' ->+  HoppyP.fmap M368.QAction+  (insertSectionWithIcon' arg'1' arg'2' arg'3' arg'4')++insertSeparator :: (QMenuPtr this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M368.QAction)+insertSeparator arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->+  HoppyP.fmap M368.QAction+  (insertSeparator' arg'1' arg'2')++popup :: (QMenuPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+popup arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (popup' arg'1' arg'2')++popupAction :: (QMenuPtr this, M114.QPointValue arg'2, M368.QActionPtr arg'3) => (this) {- ^ this -} -> (arg'2) -> (arg'3) -> (HoppyP.IO ())+popupAction arg'1 arg'2 arg'3 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'3) $ \arg'3' ->+  (popupAction' arg'1' arg'2' arg'3')++setSeparatorsCollapsible :: (QMenuPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setSeparatorsCollapsible arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setSeparatorsCollapsible' arg'1' arg'2')++setTearOffEnabled :: (QMenuPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())+setTearOffEnabled arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  (+    \x -> HoppyP.return $ if x then 1 else 0+  ) arg'2 >>= \arg'2' ->+  (setTearOffEnabled' arg'1' arg'2')++setTitle :: (QMenuPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+setTitle arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->+  (setTitle' arg'1' arg'2')++emitAboutToHide :: (QMenuPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitAboutToHide arg'1 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  (emitAboutToHide' arg'1')++emitAboutToShow :: (QMenuPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())+emitAboutToShow arg'1 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  (emitAboutToShow' arg'1')++emitHovered :: (QMenuPtr this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitHovered arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->+  (emitHovered' arg'1' arg'2')++emitTriggered :: (QMenuPtr this, M368.QActionPtr arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())+emitTriggered arg'1 arg'2 =+  HoppyFHR.withCppPtr (toQMenu arg'1) $ \arg'1' ->+  HoppyFHR.withCppPtr (M368.toQAction arg'2) $ \arg'2' ->+  (emitTriggered' arg'1' arg'2')++data QMenuConst =+    QMenuConst (HoppyF.Ptr QMenuConst)+  | QMenuConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMenuConst)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMenuConst where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMenuConst where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMenuToConst :: QMenu -> QMenuConst+castQMenuToConst (QMenu ptr') = QMenuConst $ HoppyF.castPtr ptr'+castQMenuToConst (QMenuGc fptr' ptr') = QMenuConstGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMenuConst where+  nullptr = QMenuConst HoppyF.nullPtr+  +  withCppPtr (QMenuConst ptr') f' = f' ptr'+  withCppPtr (QMenuConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMenuConst ptr') = ptr'+  toPtr (QMenuConstGc _ ptr') = ptr'+  +  touchCppPtr (QMenuConst _) = HoppyP.return ()+  touchCppPtr (QMenuConstGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMenuConst where+  delete (QMenuConst ptr') = delete'QMenu ptr'+  delete (QMenuConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMenuConst", " object."]+  +  toGc this'@(QMenuConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMenuConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMenu :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMenuConstGc {}) = HoppyP.return this'++instance QMenuConstPtr QMenuConst where+  toQMenuConst = HoppyP.id++instance M506.QWidgetConstPtr QMenuConst where+  toQWidgetConst (QMenuConst ptr') = M506.QWidgetConst $ castQMenuToQWidget ptr'+  toQWidgetConst (QMenuConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQMenuToQWidget ptr'++instance M94.QObjectConstPtr QMenuConst where+  toQObjectConst (QMenuConst ptr') = M94.QObjectConst $ castQMenuToQObject ptr'+  toQObjectConst (QMenuConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQMenuToQObject ptr'++data QMenu =+    QMenu (HoppyF.Ptr QMenu)+  | QMenuGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMenu)+  deriving (HoppyP.Show)++instance HoppyP.Eq QMenu where+  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y++instance HoppyP.Ord QMenu where+  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)++castQMenuToNonconst :: QMenuConst -> QMenu+castQMenuToNonconst (QMenuConst ptr') = QMenu $ HoppyF.castPtr ptr'+castQMenuToNonconst (QMenuConstGc fptr' ptr') = QMenuGc fptr' $ HoppyF.castPtr ptr'++instance HoppyFHR.CppPtr QMenu where+  nullptr = QMenu HoppyF.nullPtr+  +  withCppPtr (QMenu ptr') f' = f' ptr'+  withCppPtr (QMenuGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'+  +  toPtr (QMenu ptr') = ptr'+  toPtr (QMenuGc _ ptr') = ptr'+  +  touchCppPtr (QMenu _) = HoppyP.return ()+  touchCppPtr (QMenuGc fptr' _) = HoppyF.touchForeignPtr fptr'++instance HoppyFHR.Deletable QMenu where+  delete (QMenu ptr') = delete'QMenu $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QMenuConst)+  delete (QMenuGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QMenu", " object."]+  +  toGc this'@(QMenu ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QMenuGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QMenu :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())+  toGc this'@(QMenuGc {}) = HoppyP.return this'++instance QMenuConstPtr QMenu where+  toQMenuConst (QMenu ptr') = QMenuConst $ (HoppyF.castPtr :: HoppyF.Ptr QMenu -> HoppyF.Ptr QMenuConst) ptr'+  toQMenuConst (QMenuGc fptr' ptr') = QMenuConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QMenu -> HoppyF.Ptr QMenuConst) ptr'++instance QMenuPtr QMenu where+  toQMenu = HoppyP.id++instance M506.QWidgetConstPtr QMenu where+  toQWidgetConst (QMenu ptr') = M506.QWidgetConst $ castQMenuToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMenu -> HoppyF.Ptr QMenuConst) ptr'+  toQWidgetConst (QMenuGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQMenuToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMenu -> HoppyF.Ptr QMenuConst) ptr'++instance M506.QWidgetPtr QMenu where+  toQWidget (QMenu ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQMenuToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMenu -> HoppyF.Ptr QMenuConst) ptr'+  toQWidget (QMenuGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQMenuToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QMenu -> HoppyF.Ptr QMenuConst) ptr'++instance M94.QObjectConstPtr QMenu where+  toQObjectConst (QMenu ptr') = M94.QObjectConst $ castQMenuToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMenu -> HoppyF.Ptr QMenuConst) ptr'+  toQObjectConst (QMenuGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQMenuToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMenu -> HoppyF.Ptr QMenuConst) ptr'++instance M94.QObjectPtr QMenu where+  toQObject (QMenu ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQMenuToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMenu -> HoppyF.Ptr QMenuConst) ptr'+  toQObject (QMenuGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQMenuToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QMenu -> HoppyF.Ptr QMenuConst) ptr'++new :: (HoppyP.IO QMenu)+new =+  HoppyP.fmap QMenu+  (new')++newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QMenu)+newWithParent arg'1 =+  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->+  HoppyP.fmap QMenu+  (newWithParent' arg'1')++newWithTitle :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QMenu)+newWithTitle arg'1 =+  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->+  HoppyP.fmap QMenu+  (newWithTitle' arg'1')++newWithTitleAndParent :: (M142.QStringValue arg'1, M506.QWidgetPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QMenu)+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 QMenu+  (newWithTitleAndParent' arg'1' arg'2')++class QMenuSuper a where+  downToQMenu :: a -> QMenu++instance QMenuSuper M506.QWidget where+  downToQMenu = castQMenuToNonconst . cast' . M506.castQWidgetToConst+    where+      cast' (M506.QWidgetConst ptr') = QMenuConst $ castQWidgetToQMenu ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QMenuConstGc fptr' $ castQWidgetToQMenu ptr'+instance QMenuSuper M94.QObject where+  downToQMenu = castQMenuToNonconst . cast' . M94.castQObjectToConst+    where+      cast' (M94.QObjectConst ptr') = QMenuConst $ castQObjectToQMenu ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QMenuConstGc fptr' $ castQObjectToQMenu ptr'++class QMenuSuperConst a where+  downToQMenuConst :: a -> QMenuConst++instance QMenuSuperConst M506.QWidgetConst where+  downToQMenuConst = cast'+    where+      cast' (M506.QWidgetConst ptr') = QMenuConst $ castQWidgetToQMenu ptr'+      cast' (M506.QWidgetConstGc fptr' ptr') = QMenuConstGc fptr' $ castQWidgetToQMenu ptr'+instance QMenuSuperConst M94.QObjectConst where+  downToQMenuConst = cast'+    where+      cast' (M94.QObjectConst ptr') = QMenuConst $ castQObjectToQMenu ptr'+      cast' (M94.QObjectConstGc fptr' ptr') = QMenuConstGc fptr' $ castQObjectToQMenu ptr'++instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QMenu)) QMenu where+  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMenu)) QMenu where+  decode = HoppyP.fmap QMenu . HoppyF.peek
+ src/Graphics/UI/Qtah/Generated/Widgets/QMenu.hs-boot view
@@ -0,0 +1,72 @@+{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}+---------- GENERATED FILE, EDITS WILL BE LOST ----------++module Graphics.UI.Qtah.Generated.Widgets.QMenu (+  QMenuValue (..),+  QMenuConstPtr (..),+  QMenuPtr (..),+  QMenuConst (..),+  castQMenuToConst,+  QMenu (..),+  castQMenuToNonconst,+  castQMenuToQWidget,+  castQMenuToQObject,+  ) where++import qualified Foreign as HoppyF+import qualified Foreign.Hoppy.Runtime as HoppyFHR+import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94+import {-# SOURCE #-} qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506+import qualified Prelude as HoppyP+++class QMenuValue a where+  withQMenuPtr :: a -> (QMenuConst -> HoppyP.IO b) -> HoppyP.IO b++instance {-# OVERLAPPABLE #-} QMenuConstPtr a => QMenuValue a++class (M506.QWidgetConstPtr this) => QMenuConstPtr this where+  toQMenuConst :: this -> QMenuConst++class (QMenuConstPtr this, M506.QWidgetPtr this) => QMenuPtr this where+  toQMenu :: this -> QMenu++data QMenuConst =+    QMenuConst (HoppyF.Ptr QMenuConst)+  | QMenuConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMenuConst)++castQMenuToConst :: QMenu -> QMenuConst++instance HoppyFHR.CppPtr QMenuConst+instance HoppyFHR.Deletable QMenuConst++instance QMenuConstPtr QMenuConst++instance M506.QWidgetConstPtr QMenuConst++instance M94.QObjectConstPtr QMenuConst++data QMenu =+    QMenu (HoppyF.Ptr QMenu)+  | QMenuGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QMenu)++castQMenuToNonconst :: QMenuConst -> QMenu++instance HoppyFHR.CppPtr QMenu+instance HoppyFHR.Deletable QMenu++instance QMenuConstPtr QMenu++instance QMenuPtr QMenu++instance M506.QWidgetConstPtr QMenu++instance M506.QWidgetPtr QMenu++instance M94.QObjectConstPtr QMenu++instance M94.QObjectPtr QMenu+castQMenuToQWidget :: HoppyF.Ptr QMenuConst -> HoppyF.Ptr M506.QWidgetConst+castQMenuToQObject :: HoppyF.Ptr QMenuConst -> HoppyF.Ptr M94.QObjectConst++instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QMenu)) QMenu
src/Graphics/UI/Qtah/Generated/Widgets/QMenuBar.hs view
@@ -0,0 +1,395 @@+{-# 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
src/Graphics/UI/Qtah/Generated/Widgets/QMessageBox.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QOpenGLWidget.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QProgressBar.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QPushButton.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QRadioButton.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QRubberBand.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QScrollArea.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QScrollBar.hs view

file too large to diff

+ src/Graphics/UI/Qtah/Generated/Widgets/QScrollBar.hs-boot view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QSizePolicy.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QSlider.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QSpacerItem.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QSpinBox.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QSplitter.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QStackedLayout.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QStackedWidget.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QStatusBar.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QStyledItemDelegate.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QSystemTrayIcon.hs view

file too large to diff

+ src/Graphics/UI/Qtah/Generated/Widgets/QSystemTrayIcon.hs-boot view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QTabWidget.hs view

file too large to diff

+ src/Graphics/UI/Qtah/Generated/Widgets/QTabWidget.hs-boot view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QTextEdit.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QToolBar.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QToolBox.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QToolButton.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QTreeView.hs view

file too large to diff

+ src/Graphics/UI/Qtah/Generated/Widgets/QTreeView.hs-boot view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QTreeWidget.hs view

file too large to diff

+ src/Graphics/UI/Qtah/Generated/Widgets/QTreeWidget.hs-boot view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QTreeWidgetItem.hs view

file too large to diff

+ src/Graphics/UI/Qtah/Generated/Widgets/QTreeWidgetItem.hs-boot view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QVBoxLayout.hs view

file too large to diff

src/Graphics/UI/Qtah/Generated/Widgets/QWidget.hs view

file too large to diff

+ src/Graphics/UI/Qtah/Generated/Widgets/QWidget.hs-boot view

file too large to diff

src/Graphics/UI/Qtah/Gui/HColor.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QActionEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QBackingStore.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QBitmap.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QBrush.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QClipboard.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QCloseEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QColor.hs view

file too large to diff

+ src/Graphics/UI/Qtah/Gui/QContextMenuEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QCursor.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QDoubleValidator.hs view

file too large to diff

+ src/Graphics/UI/Qtah/Gui/QDragEnterEvent.hs view

file too large to diff

+ src/Graphics/UI/Qtah/Gui/QDragLeaveEvent.hs view

file too large to diff

+ src/Graphics/UI/Qtah/Gui/QDragMoveEvent.hs view

file too large to diff

+ src/Graphics/UI/Qtah/Gui/QDropEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QEnterEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QExposeEvent.hs view

file too large to diff

+ src/Graphics/UI/Qtah/Gui/QFileOpenEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QFocusEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QFont.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QFontDatabase.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QGradient.hs view

file too large to diff

+ src/Graphics/UI/Qtah/Gui/QHelpEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QHideEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QHoverEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QIcon.hs view

file too large to diff

+ src/Graphics/UI/Qtah/Gui/QIconDragEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QImage.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QInputEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QIntValidator.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QKeyEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QMouseEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QOpenGLWindow.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QPaintDevice.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QPaintDeviceWindow.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QPaintEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QPainter.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QPainterPath.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QPen.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QPixmap.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QPolygon.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QPolygonF.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QRasterWindow.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QRegion.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QShowEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QStandardItem.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QStandardItemModel.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QSurface.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QTransform.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QValidator.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QWheelEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QWindow.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QtahOpenGLWindow.hs view

file too large to diff

src/Graphics/UI/Qtah/Gui/QtahRasterWindow.hs view

file too large to diff

src/Graphics/UI/Qtah/Internal/Callback.hs view

file too large to diff

src/Graphics/UI/Qtah/Internal/Callback.hs-boot view

file too large to diff

src/Graphics/UI/Qtah/Internal/EventListener.hs view

file too large to diff

src/Graphics/UI/Qtah/Internal/Listener.hs view

file too large to diff

src/Graphics/UI/Qtah/Internal/SceneEventListener.hs view

file too large to diff

src/Graphics/UI/Qtah/SceneEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Signal.hs view

file too large to diff

src/Graphics/UI/Qtah/Std.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QAbstractButton.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QAbstractGraphicsShapeItem.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QAbstractItemDelegate.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QAbstractItemView.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QAbstractScrollArea.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QAbstractSlider.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QAbstractSpinBox.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QAction.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QActionGroup.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QApplication.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QBoxLayout.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QButtonGroup.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QCheckBox.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QComboBox.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QDateEdit.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QDateTimeEdit.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QDial.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QDialog.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QDialogButtonBox.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QDockWidget.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QDoubleSpinBox.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QFileDialog.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QFormLayout.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QFrame.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QGraphicsEllipseItem.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QGraphicsItem.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QGraphicsPixmapItem.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QGraphicsPolygonItem.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QGraphicsRectItem.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QGraphicsScene.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QGraphicsSceneEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QGraphicsSceneMouseEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QGraphicsSceneWheelEvent.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QGraphicsView.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QGridLayout.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QGroupBox.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QHBoxLayout.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QInputDialog.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QLCDNumber.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QLabel.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QLayout.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QLayoutItem.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QLineEdit.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QListView.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QMainWindow.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QMdiArea.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QMdiSubWindow.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QMenu.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QMenuBar.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QMessageBox.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QOpenGLWidget.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QProgressBar.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QPushButton.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QRadioButton.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QRubberBand.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QScrollArea.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QScrollBar.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QSizePolicy.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QSlider.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QSpacerItem.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QSpinBox.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QSplitter.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QStackedLayout.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QStackedWidget.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QStatusBar.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QStyledItemDelegate.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QSystemTrayIcon.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QTabWidget.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QTextEdit.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QToolBar.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QToolBox.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QToolButton.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QTreeView.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QTreeWidget.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QTreeWidgetItem.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QVBoxLayout.hs view

file too large to diff

src/Graphics/UI/Qtah/Widgets/QWidget.hs view

file too large to diff

tests/Graphics/UI/Qtah/EventTest.hs view

file too large to diff

tests/Main.hs view

file too large to diff