Add QOpenGLWidget.

parent 2f7127a2
......@@ -159,6 +159,7 @@ executable qtah-generator
, Graphics.UI.Qtah.Generator.Interface.Widgets.QMenu
, Graphics.UI.Qtah.Generator.Interface.Widgets.QMenuBar
, Graphics.UI.Qtah.Generator.Interface.Widgets.QMessageBox
, Graphics.UI.Qtah.Generator.Interface.Widgets.QOpenGLWidget
, Graphics.UI.Qtah.Generator.Interface.Widgets.QProgressBar
, Graphics.UI.Qtah.Generator.Interface.Widgets.QPushButton
, Graphics.UI.Qtah.Generator.Interface.Widgets.QRadioButton
......
......@@ -56,6 +56,7 @@ import qualified Graphics.UI.Qtah.Generator.Interface.Widgets.QMainWindow as QMa
import qualified Graphics.UI.Qtah.Generator.Interface.Widgets.QMenu as QMenu
import qualified Graphics.UI.Qtah.Generator.Interface.Widgets.QMenuBar as QMenuBar
import qualified Graphics.UI.Qtah.Generator.Interface.Widgets.QMessageBox as QMessageBox
import qualified Graphics.UI.Qtah.Generator.Interface.Widgets.QOpenGLWidget as QOpenGLWidget
import qualified Graphics.UI.Qtah.Generator.Interface.Widgets.QProgressBar as QProgressBar
import qualified Graphics.UI.Qtah.Generator.Interface.Widgets.QPushButton as QPushButton
import qualified Graphics.UI.Qtah.Generator.Interface.Widgets.QRadioButton as QRadioButton
......@@ -119,6 +120,7 @@ modules =
, QMenu.aModule
, QMenuBar.aModule
, QMessageBox.aModule
, QOpenGLWidget.aModule
, QProgressBar.aModule
, QPushButton.aModule
, QRadioButton.aModule
......
-- This file is part of Qtah.
--
-- Copyright 2017 Bryan Gardiner <bog@khumba.net>
--
-- 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
-- the Free Software Foundation, either version 3 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU Lesser General Public License for more details.
--
-- You should have received a copy of the GNU Lesser General Public License
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
module Graphics.UI.Qtah.Generator.Interface.Widgets.QOpenGLWidget (
aModule,
c_QOpenGLWidget,
) where
import Foreign.Hoppy.Generator.Spec (
Export (ExportClass, ExportEnum),
addReqIncludes,
classSetEntityPrefix,
ident,
ident1,
includeStd,
makeClass,
mkConstMethod,
mkCtor,
mkMethod,
mkProp,
)
import Foreign.Hoppy.Generator.Types (bitspaceT, boolT, enumT, objT, ptrT, voidT)
import Foreign.Hoppy.Generator.Version (collect, just, test)
import Graphics.UI.Qtah.Generator.Flags (qtVersion)
import Graphics.UI.Qtah.Generator.Interface.Core.Types (bs_WindowFlags, gluint)
import Graphics.UI.Qtah.Generator.Interface.Gui.QImage (c_QImage)
import Graphics.UI.Qtah.Generator.Interface.Internal.Listener (c_Listener)
import Graphics.UI.Qtah.Generator.Interface.Widgets.QWidget (c_QWidget)
import Graphics.UI.Qtah.Generator.Module (AModule (AQtModule), makeQtModuleWithMinVersion)
import Graphics.UI.Qtah.Generator.Types
{-# ANN module "HLint: ignore Use camelCase" #-}
minVersion = [5, 4]
aModule =
AQtModule $
makeQtModuleWithMinVersion ["Widgets", "QOpenGLWidget"] minVersion $
[ QtExport $ ExportClass c_QOpenGLWidget ] ++
map QtExportSignal signals ++
collect
[ test (qtVersion >= [5, 5]) $ QtExport $ ExportEnum e_UpdateBehavior ]
c_QOpenGLWidget =
addReqIncludes [includeStd "QOpenGLWidget"] $
classSetEntityPrefix "" $
makeClass (ident "QOpenGLWidget") Nothing [c_QWidget] $
collect
[ just $ mkCtor "new" []
, just $ mkCtor "newWithParent" [ptrT $ objT c_QOpenGLWidget]
, just $ mkCtor "newWithParentAndFlags" [ptrT $ objT c_QOpenGLWidget, bitspaceT bs_WindowFlags]
-- TODO mkConstMethod "context" [] $ ptrT $ objT c_QOpenGLContext
, just $ mkConstMethod "defaultFramebufferObject" [] gluint
, just $ mkMethod "doneCurrent" [] voidT
-- TODO mkProp "format" $ objT c_QSurfaceFormat
, just $ mkMethod "grabFramebuffer" [] $ objT c_QImage
, just $ mkConstMethod "isValid" [] boolT
, just $ mkMethod "makeCurrent" [] voidT
, test (qtVersion >= [5, 5]) $ mkProp "updateBehavior" $ enumT e_UpdateBehavior
]
signals =
[ makeSignal c_QOpenGLWidget "aboutToCompose" c_Listener
, makeSignal c_QOpenGLWidget "aboutToResize" c_Listener
, makeSignal c_QOpenGLWidget "frameSwapped" c_Listener
, makeSignal c_QOpenGLWidget "resized" c_Listener
]
e_UpdateBehavior =
makeQtEnum (ident1 "QOpenGLWidget" "UpdateBehavior") [includeStd "QOpenGLWidget"]
[ (0, ["no", "partial", "update"])
, (1, ["partial", "update"])
]
......@@ -142,6 +142,7 @@ library
, Graphics.UI.Qtah.Widgets.QMenu
, Graphics.UI.Qtah.Widgets.QMenuBar
, Graphics.UI.Qtah.Widgets.QMessageBox
, Graphics.UI.Qtah.Widgets.QOpenGLWidget
, Graphics.UI.Qtah.Widgets.QProgressBar
, Graphics.UI.Qtah.Widgets.QPushButton
, Graphics.UI.Qtah.Widgets.QRadioButton
......@@ -269,6 +270,7 @@ library
, Graphics.UI.Qtah.Generated.Widgets.QMenu
, Graphics.UI.Qtah.Generated.Widgets.QMenuBar
, Graphics.UI.Qtah.Generated.Widgets.QMessageBox
, Graphics.UI.Qtah.Generated.Widgets.QOpenGLWidget
, Graphics.UI.Qtah.Generated.Widgets.QProgressBar
, Graphics.UI.Qtah.Generated.Widgets.QPushButton
, Graphics.UI.Qtah.Generated.Widgets.QRadioButton
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment