{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.GLArea
(
GLArea(..) ,
IsGLArea ,
toGLArea ,
noGLArea ,
#if defined(ENABLE_OVERLOADING)
ResolveGLAreaMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
GLAreaAttachBuffersMethodInfo ,
#endif
gLAreaAttachBuffers ,
#if defined(ENABLE_OVERLOADING)
GLAreaGetAutoRenderMethodInfo ,
#endif
gLAreaGetAutoRender ,
#if defined(ENABLE_OVERLOADING)
GLAreaGetContextMethodInfo ,
#endif
gLAreaGetContext ,
#if defined(ENABLE_OVERLOADING)
GLAreaGetErrorMethodInfo ,
#endif
gLAreaGetError ,
#if defined(ENABLE_OVERLOADING)
GLAreaGetHasAlphaMethodInfo ,
#endif
gLAreaGetHasAlpha ,
#if defined(ENABLE_OVERLOADING)
GLAreaGetHasDepthBufferMethodInfo ,
#endif
gLAreaGetHasDepthBuffer ,
#if defined(ENABLE_OVERLOADING)
GLAreaGetHasStencilBufferMethodInfo ,
#endif
gLAreaGetHasStencilBuffer ,
#if defined(ENABLE_OVERLOADING)
GLAreaGetRequiredVersionMethodInfo ,
#endif
gLAreaGetRequiredVersion ,
#if defined(ENABLE_OVERLOADING)
GLAreaGetUseEsMethodInfo ,
#endif
gLAreaGetUseEs ,
#if defined(ENABLE_OVERLOADING)
GLAreaMakeCurrentMethodInfo ,
#endif
gLAreaMakeCurrent ,
gLAreaNew ,
#if defined(ENABLE_OVERLOADING)
GLAreaQueueRenderMethodInfo ,
#endif
gLAreaQueueRender ,
#if defined(ENABLE_OVERLOADING)
GLAreaSetAutoRenderMethodInfo ,
#endif
gLAreaSetAutoRender ,
#if defined(ENABLE_OVERLOADING)
GLAreaSetErrorMethodInfo ,
#endif
gLAreaSetError ,
#if defined(ENABLE_OVERLOADING)
GLAreaSetHasAlphaMethodInfo ,
#endif
gLAreaSetHasAlpha ,
#if defined(ENABLE_OVERLOADING)
GLAreaSetHasDepthBufferMethodInfo ,
#endif
gLAreaSetHasDepthBuffer ,
#if defined(ENABLE_OVERLOADING)
GLAreaSetHasStencilBufferMethodInfo ,
#endif
gLAreaSetHasStencilBuffer ,
#if defined(ENABLE_OVERLOADING)
GLAreaSetRequiredVersionMethodInfo ,
#endif
gLAreaSetRequiredVersion ,
#if defined(ENABLE_OVERLOADING)
GLAreaSetUseEsMethodInfo ,
#endif
gLAreaSetUseEs ,
#if defined(ENABLE_OVERLOADING)
GLAreaAutoRenderPropertyInfo ,
#endif
constructGLAreaAutoRender ,
#if defined(ENABLE_OVERLOADING)
gLAreaAutoRender ,
#endif
getGLAreaAutoRender ,
setGLAreaAutoRender ,
#if defined(ENABLE_OVERLOADING)
GLAreaContextPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
gLAreaContext ,
#endif
getGLAreaContext ,
#if defined(ENABLE_OVERLOADING)
GLAreaHasAlphaPropertyInfo ,
#endif
constructGLAreaHasAlpha ,
#if defined(ENABLE_OVERLOADING)
gLAreaHasAlpha ,
#endif
getGLAreaHasAlpha ,
setGLAreaHasAlpha ,
#if defined(ENABLE_OVERLOADING)
GLAreaHasDepthBufferPropertyInfo ,
#endif
constructGLAreaHasDepthBuffer ,
#if defined(ENABLE_OVERLOADING)
gLAreaHasDepthBuffer ,
#endif
getGLAreaHasDepthBuffer ,
setGLAreaHasDepthBuffer ,
#if defined(ENABLE_OVERLOADING)
GLAreaHasStencilBufferPropertyInfo ,
#endif
constructGLAreaHasStencilBuffer ,
#if defined(ENABLE_OVERLOADING)
gLAreaHasStencilBuffer ,
#endif
getGLAreaHasStencilBuffer ,
setGLAreaHasStencilBuffer ,
#if defined(ENABLE_OVERLOADING)
GLAreaUseEsPropertyInfo ,
#endif
constructGLAreaUseEs ,
#if defined(ENABLE_OVERLOADING)
gLAreaUseEs ,
#endif
getGLAreaUseEs ,
setGLAreaUseEs ,
C_GLAreaCreateContextCallback ,
GLAreaCreateContextCallback ,
#if defined(ENABLE_OVERLOADING)
GLAreaCreateContextSignalInfo ,
#endif
afterGLAreaCreateContext ,
genClosure_GLAreaCreateContext ,
mk_GLAreaCreateContextCallback ,
noGLAreaCreateContextCallback ,
onGLAreaCreateContext ,
wrap_GLAreaCreateContextCallback ,
C_GLAreaRenderCallback ,
GLAreaRenderCallback ,
#if defined(ENABLE_OVERLOADING)
GLAreaRenderSignalInfo ,
#endif
afterGLAreaRender ,
genClosure_GLAreaRender ,
mk_GLAreaRenderCallback ,
noGLAreaRenderCallback ,
onGLAreaRender ,
wrap_GLAreaRenderCallback ,
C_GLAreaResizeCallback ,
GLAreaResizeCallback ,
#if defined(ENABLE_OVERLOADING)
GLAreaResizeSignalInfo ,
#endif
afterGLAreaResize ,
genClosure_GLAreaResize ,
mk_GLAreaResizeCallback ,
noGLAreaResizeCallback ,
onGLAreaResize ,
wrap_GLAreaResizeCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Objects.GLContext as Gdk.GLContext
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype GLArea = GLArea (ManagedPtr GLArea)
deriving (Eq)
foreign import ccall "gtk_gl_area_get_type"
c_gtk_gl_area_get_type :: IO GType
instance GObject GLArea where
gobjectType = c_gtk_gl_area_get_type
instance B.GValue.IsGValue GLArea where
toGValue o = do
gtype <- c_gtk_gl_area_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr GLArea)
B.ManagedPtr.newObject GLArea ptr
class (GObject o, O.IsDescendantOf GLArea o) => IsGLArea o
instance (GObject o, O.IsDescendantOf GLArea o) => IsGLArea o
instance O.HasParentTypes GLArea
type instance O.ParentTypes GLArea = '[Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toGLArea :: (MonadIO m, IsGLArea o) => o -> m GLArea
toGLArea = liftIO . unsafeCastTo GLArea
noGLArea :: Maybe GLArea
noGLArea = Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveGLAreaMethod (t :: Symbol) (o :: *) :: * where
ResolveGLAreaMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveGLAreaMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveGLAreaMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveGLAreaMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveGLAreaMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveGLAreaMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveGLAreaMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveGLAreaMethod "attachBuffers" o = GLAreaAttachBuffersMethodInfo
ResolveGLAreaMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveGLAreaMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveGLAreaMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveGLAreaMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveGLAreaMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo
ResolveGLAreaMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveGLAreaMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveGLAreaMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveGLAreaMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveGLAreaMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveGLAreaMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveGLAreaMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveGLAreaMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveGLAreaMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveGLAreaMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveGLAreaMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveGLAreaMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveGLAreaMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveGLAreaMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveGLAreaMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveGLAreaMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveGLAreaMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveGLAreaMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveGLAreaMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveGLAreaMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveGLAreaMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveGLAreaMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveGLAreaMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveGLAreaMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveGLAreaMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveGLAreaMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveGLAreaMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveGLAreaMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveGLAreaMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveGLAreaMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveGLAreaMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveGLAreaMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveGLAreaMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveGLAreaMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveGLAreaMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveGLAreaMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveGLAreaMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveGLAreaMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveGLAreaMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveGLAreaMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveGLAreaMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveGLAreaMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveGLAreaMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveGLAreaMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveGLAreaMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveGLAreaMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveGLAreaMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveGLAreaMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveGLAreaMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveGLAreaMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveGLAreaMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveGLAreaMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveGLAreaMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveGLAreaMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveGLAreaMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveGLAreaMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveGLAreaMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveGLAreaMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveGLAreaMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveGLAreaMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveGLAreaMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveGLAreaMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveGLAreaMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveGLAreaMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveGLAreaMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveGLAreaMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveGLAreaMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveGLAreaMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveGLAreaMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveGLAreaMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveGLAreaMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveGLAreaMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveGLAreaMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveGLAreaMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveGLAreaMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveGLAreaMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveGLAreaMethod "makeCurrent" o = GLAreaMakeCurrentMethodInfo
ResolveGLAreaMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveGLAreaMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveGLAreaMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveGLAreaMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveGLAreaMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveGLAreaMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveGLAreaMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveGLAreaMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveGLAreaMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveGLAreaMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveGLAreaMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveGLAreaMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveGLAreaMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveGLAreaMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveGLAreaMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveGLAreaMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveGLAreaMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveGLAreaMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveGLAreaMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveGLAreaMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveGLAreaMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveGLAreaMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveGLAreaMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveGLAreaMethod "queueRender" o = GLAreaQueueRenderMethodInfo
ResolveGLAreaMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveGLAreaMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveGLAreaMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveGLAreaMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveGLAreaMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveGLAreaMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveGLAreaMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveGLAreaMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveGLAreaMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveGLAreaMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveGLAreaMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveGLAreaMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveGLAreaMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveGLAreaMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveGLAreaMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveGLAreaMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveGLAreaMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveGLAreaMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveGLAreaMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveGLAreaMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveGLAreaMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveGLAreaMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveGLAreaMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveGLAreaMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveGLAreaMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveGLAreaMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveGLAreaMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveGLAreaMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveGLAreaMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveGLAreaMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveGLAreaMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveGLAreaMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveGLAreaMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveGLAreaMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveGLAreaMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveGLAreaMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveGLAreaMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveGLAreaMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveGLAreaMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveGLAreaMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveGLAreaMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveGLAreaMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveGLAreaMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveGLAreaMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveGLAreaMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveGLAreaMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveGLAreaMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveGLAreaMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveGLAreaMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveGLAreaMethod "getAutoRender" o = GLAreaGetAutoRenderMethodInfo
ResolveGLAreaMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveGLAreaMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveGLAreaMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveGLAreaMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveGLAreaMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveGLAreaMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveGLAreaMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveGLAreaMethod "getContext" o = GLAreaGetContextMethodInfo
ResolveGLAreaMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveGLAreaMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveGLAreaMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveGLAreaMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveGLAreaMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveGLAreaMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveGLAreaMethod "getError" o = GLAreaGetErrorMethodInfo
ResolveGLAreaMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveGLAreaMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveGLAreaMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveGLAreaMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveGLAreaMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveGLAreaMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveGLAreaMethod "getHasAlpha" o = GLAreaGetHasAlphaMethodInfo
ResolveGLAreaMethod "getHasDepthBuffer" o = GLAreaGetHasDepthBufferMethodInfo
ResolveGLAreaMethod "getHasStencilBuffer" o = GLAreaGetHasStencilBufferMethodInfo
ResolveGLAreaMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveGLAreaMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveGLAreaMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveGLAreaMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveGLAreaMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveGLAreaMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveGLAreaMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveGLAreaMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveGLAreaMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveGLAreaMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveGLAreaMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveGLAreaMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveGLAreaMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveGLAreaMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveGLAreaMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveGLAreaMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveGLAreaMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveGLAreaMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveGLAreaMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveGLAreaMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveGLAreaMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveGLAreaMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveGLAreaMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveGLAreaMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveGLAreaMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveGLAreaMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveGLAreaMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveGLAreaMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveGLAreaMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveGLAreaMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveGLAreaMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveGLAreaMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveGLAreaMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveGLAreaMethod "getRequiredVersion" o = GLAreaGetRequiredVersionMethodInfo
ResolveGLAreaMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveGLAreaMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveGLAreaMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveGLAreaMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveGLAreaMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveGLAreaMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveGLAreaMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveGLAreaMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveGLAreaMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveGLAreaMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveGLAreaMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveGLAreaMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveGLAreaMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveGLAreaMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveGLAreaMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveGLAreaMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveGLAreaMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveGLAreaMethod "getUseEs" o = GLAreaGetUseEsMethodInfo
ResolveGLAreaMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveGLAreaMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveGLAreaMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveGLAreaMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveGLAreaMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveGLAreaMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveGLAreaMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveGLAreaMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveGLAreaMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveGLAreaMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveGLAreaMethod "setAutoRender" o = GLAreaSetAutoRenderMethodInfo
ResolveGLAreaMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveGLAreaMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveGLAreaMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveGLAreaMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveGLAreaMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveGLAreaMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveGLAreaMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveGLAreaMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveGLAreaMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveGLAreaMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveGLAreaMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveGLAreaMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveGLAreaMethod "setError" o = GLAreaSetErrorMethodInfo
ResolveGLAreaMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveGLAreaMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveGLAreaMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveGLAreaMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveGLAreaMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveGLAreaMethod "setHasAlpha" o = GLAreaSetHasAlphaMethodInfo
ResolveGLAreaMethod "setHasDepthBuffer" o = GLAreaSetHasDepthBufferMethodInfo
ResolveGLAreaMethod "setHasStencilBuffer" o = GLAreaSetHasStencilBufferMethodInfo
ResolveGLAreaMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveGLAreaMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveGLAreaMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveGLAreaMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveGLAreaMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveGLAreaMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveGLAreaMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveGLAreaMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveGLAreaMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveGLAreaMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveGLAreaMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveGLAreaMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveGLAreaMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveGLAreaMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveGLAreaMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveGLAreaMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveGLAreaMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveGLAreaMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveGLAreaMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveGLAreaMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveGLAreaMethod "setRequiredVersion" o = GLAreaSetRequiredVersionMethodInfo
ResolveGLAreaMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveGLAreaMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveGLAreaMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveGLAreaMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveGLAreaMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveGLAreaMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveGLAreaMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveGLAreaMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveGLAreaMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveGLAreaMethod "setUseEs" o = GLAreaSetUseEsMethodInfo
ResolveGLAreaMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveGLAreaMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveGLAreaMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveGLAreaMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveGLAreaMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveGLAreaMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveGLAreaMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveGLAreaMethod t GLArea, O.MethodInfo info GLArea p) => OL.IsLabel t (GLArea -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type GLAreaCreateContextCallback =
IO Gdk.GLContext.GLContext
noGLAreaCreateContextCallback :: Maybe GLAreaCreateContextCallback
noGLAreaCreateContextCallback = Nothing
type C_GLAreaCreateContextCallback =
Ptr () ->
Ptr () ->
IO (Ptr Gdk.GLContext.GLContext)
foreign import ccall "wrapper"
mk_GLAreaCreateContextCallback :: C_GLAreaCreateContextCallback -> IO (FunPtr C_GLAreaCreateContextCallback)
genClosure_GLAreaCreateContext :: MonadIO m => GLAreaCreateContextCallback -> m (GClosure C_GLAreaCreateContextCallback)
genClosure_GLAreaCreateContext cb = liftIO $ do
let cb' = wrap_GLAreaCreateContextCallback cb
mk_GLAreaCreateContextCallback cb' >>= B.GClosure.newGClosure
wrap_GLAreaCreateContextCallback ::
GLAreaCreateContextCallback ->
C_GLAreaCreateContextCallback
wrap_GLAreaCreateContextCallback _cb _ _ = do
result <- _cb
result' <- B.ManagedPtr.disownObject result
return result'
onGLAreaCreateContext :: (IsGLArea a, MonadIO m) => a -> GLAreaCreateContextCallback -> m SignalHandlerId
onGLAreaCreateContext obj cb = liftIO $ do
let cb' = wrap_GLAreaCreateContextCallback cb
cb'' <- mk_GLAreaCreateContextCallback cb'
connectSignalFunPtr obj "create-context" cb'' SignalConnectBefore Nothing
afterGLAreaCreateContext :: (IsGLArea a, MonadIO m) => a -> GLAreaCreateContextCallback -> m SignalHandlerId
afterGLAreaCreateContext obj cb = liftIO $ do
let cb' = wrap_GLAreaCreateContextCallback cb
cb'' <- mk_GLAreaCreateContextCallback cb'
connectSignalFunPtr obj "create-context" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data GLAreaCreateContextSignalInfo
instance SignalInfo GLAreaCreateContextSignalInfo where
type HaskellCallbackType GLAreaCreateContextSignalInfo = GLAreaCreateContextCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_GLAreaCreateContextCallback cb
cb'' <- mk_GLAreaCreateContextCallback cb'
connectSignalFunPtr obj "create-context" cb'' connectMode detail
#endif
type GLAreaRenderCallback =
Gdk.GLContext.GLContext
-> IO Bool
noGLAreaRenderCallback :: Maybe GLAreaRenderCallback
noGLAreaRenderCallback = Nothing
type C_GLAreaRenderCallback =
Ptr () ->
Ptr Gdk.GLContext.GLContext ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_GLAreaRenderCallback :: C_GLAreaRenderCallback -> IO (FunPtr C_GLAreaRenderCallback)
genClosure_GLAreaRender :: MonadIO m => GLAreaRenderCallback -> m (GClosure C_GLAreaRenderCallback)
genClosure_GLAreaRender cb = liftIO $ do
let cb' = wrap_GLAreaRenderCallback cb
mk_GLAreaRenderCallback cb' >>= B.GClosure.newGClosure
wrap_GLAreaRenderCallback ::
GLAreaRenderCallback ->
C_GLAreaRenderCallback
wrap_GLAreaRenderCallback _cb _ context _ = do
context' <- (newObject Gdk.GLContext.GLContext) context
result <- _cb context'
let result' = (fromIntegral . fromEnum) result
return result'
onGLAreaRender :: (IsGLArea a, MonadIO m) => a -> GLAreaRenderCallback -> m SignalHandlerId
onGLAreaRender obj cb = liftIO $ do
let cb' = wrap_GLAreaRenderCallback cb
cb'' <- mk_GLAreaRenderCallback cb'
connectSignalFunPtr obj "render" cb'' SignalConnectBefore Nothing
afterGLAreaRender :: (IsGLArea a, MonadIO m) => a -> GLAreaRenderCallback -> m SignalHandlerId
afterGLAreaRender obj cb = liftIO $ do
let cb' = wrap_GLAreaRenderCallback cb
cb'' <- mk_GLAreaRenderCallback cb'
connectSignalFunPtr obj "render" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data GLAreaRenderSignalInfo
instance SignalInfo GLAreaRenderSignalInfo where
type HaskellCallbackType GLAreaRenderSignalInfo = GLAreaRenderCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_GLAreaRenderCallback cb
cb'' <- mk_GLAreaRenderCallback cb'
connectSignalFunPtr obj "render" cb'' connectMode detail
#endif
type GLAreaResizeCallback =
Int32
-> Int32
-> IO ()
noGLAreaResizeCallback :: Maybe GLAreaResizeCallback
noGLAreaResizeCallback = Nothing
type C_GLAreaResizeCallback =
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_GLAreaResizeCallback :: C_GLAreaResizeCallback -> IO (FunPtr C_GLAreaResizeCallback)
genClosure_GLAreaResize :: MonadIO m => GLAreaResizeCallback -> m (GClosure C_GLAreaResizeCallback)
genClosure_GLAreaResize cb = liftIO $ do
let cb' = wrap_GLAreaResizeCallback cb
mk_GLAreaResizeCallback cb' >>= B.GClosure.newGClosure
wrap_GLAreaResizeCallback ::
GLAreaResizeCallback ->
C_GLAreaResizeCallback
wrap_GLAreaResizeCallback _cb _ width height _ = do
_cb width height
onGLAreaResize :: (IsGLArea a, MonadIO m) => a -> GLAreaResizeCallback -> m SignalHandlerId
onGLAreaResize obj cb = liftIO $ do
let cb' = wrap_GLAreaResizeCallback cb
cb'' <- mk_GLAreaResizeCallback cb'
connectSignalFunPtr obj "resize" cb'' SignalConnectBefore Nothing
afterGLAreaResize :: (IsGLArea a, MonadIO m) => a -> GLAreaResizeCallback -> m SignalHandlerId
afterGLAreaResize obj cb = liftIO $ do
let cb' = wrap_GLAreaResizeCallback cb
cb'' <- mk_GLAreaResizeCallback cb'
connectSignalFunPtr obj "resize" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data GLAreaResizeSignalInfo
instance SignalInfo GLAreaResizeSignalInfo where
type HaskellCallbackType GLAreaResizeSignalInfo = GLAreaResizeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_GLAreaResizeCallback cb
cb'' <- mk_GLAreaResizeCallback cb'
connectSignalFunPtr obj "resize" cb'' connectMode detail
#endif
getGLAreaAutoRender :: (MonadIO m, IsGLArea o) => o -> m Bool
getGLAreaAutoRender obj = liftIO $ B.Properties.getObjectPropertyBool obj "auto-render"
setGLAreaAutoRender :: (MonadIO m, IsGLArea o) => o -> Bool -> m ()
setGLAreaAutoRender obj val = liftIO $ B.Properties.setObjectPropertyBool obj "auto-render" val
constructGLAreaAutoRender :: (IsGLArea o) => Bool -> IO (GValueConstruct o)
constructGLAreaAutoRender val = B.Properties.constructObjectPropertyBool "auto-render" val
#if defined(ENABLE_OVERLOADING)
data GLAreaAutoRenderPropertyInfo
instance AttrInfo GLAreaAutoRenderPropertyInfo where
type AttrAllowedOps GLAreaAutoRenderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GLAreaAutoRenderPropertyInfo = IsGLArea
type AttrSetTypeConstraint GLAreaAutoRenderPropertyInfo = (~) Bool
type AttrTransferTypeConstraint GLAreaAutoRenderPropertyInfo = (~) Bool
type AttrTransferType GLAreaAutoRenderPropertyInfo = Bool
type AttrGetType GLAreaAutoRenderPropertyInfo = Bool
type AttrLabel GLAreaAutoRenderPropertyInfo = "auto-render"
type AttrOrigin GLAreaAutoRenderPropertyInfo = GLArea
attrGet = getGLAreaAutoRender
attrSet = setGLAreaAutoRender
attrTransfer _ v = do
return v
attrConstruct = constructGLAreaAutoRender
attrClear = undefined
#endif
getGLAreaContext :: (MonadIO m, IsGLArea o) => o -> m Gdk.GLContext.GLContext
getGLAreaContext obj = liftIO $ checkUnexpectedNothing "getGLAreaContext" $ B.Properties.getObjectPropertyObject obj "context" Gdk.GLContext.GLContext
#if defined(ENABLE_OVERLOADING)
data GLAreaContextPropertyInfo
instance AttrInfo GLAreaContextPropertyInfo where
type AttrAllowedOps GLAreaContextPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint GLAreaContextPropertyInfo = IsGLArea
type AttrSetTypeConstraint GLAreaContextPropertyInfo = (~) ()
type AttrTransferTypeConstraint GLAreaContextPropertyInfo = (~) ()
type AttrTransferType GLAreaContextPropertyInfo = ()
type AttrGetType GLAreaContextPropertyInfo = Gdk.GLContext.GLContext
type AttrLabel GLAreaContextPropertyInfo = "context"
type AttrOrigin GLAreaContextPropertyInfo = GLArea
attrGet = getGLAreaContext
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getGLAreaHasAlpha :: (MonadIO m, IsGLArea o) => o -> m Bool
getGLAreaHasAlpha obj = liftIO $ B.Properties.getObjectPropertyBool obj "has-alpha"
setGLAreaHasAlpha :: (MonadIO m, IsGLArea o) => o -> Bool -> m ()
setGLAreaHasAlpha obj val = liftIO $ B.Properties.setObjectPropertyBool obj "has-alpha" val
constructGLAreaHasAlpha :: (IsGLArea o) => Bool -> IO (GValueConstruct o)
constructGLAreaHasAlpha val = B.Properties.constructObjectPropertyBool "has-alpha" val
#if defined(ENABLE_OVERLOADING)
data GLAreaHasAlphaPropertyInfo
instance AttrInfo GLAreaHasAlphaPropertyInfo where
type AttrAllowedOps GLAreaHasAlphaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GLAreaHasAlphaPropertyInfo = IsGLArea
type AttrSetTypeConstraint GLAreaHasAlphaPropertyInfo = (~) Bool
type AttrTransferTypeConstraint GLAreaHasAlphaPropertyInfo = (~) Bool
type AttrTransferType GLAreaHasAlphaPropertyInfo = Bool
type AttrGetType GLAreaHasAlphaPropertyInfo = Bool
type AttrLabel GLAreaHasAlphaPropertyInfo = "has-alpha"
type AttrOrigin GLAreaHasAlphaPropertyInfo = GLArea
attrGet = getGLAreaHasAlpha
attrSet = setGLAreaHasAlpha
attrTransfer _ v = do
return v
attrConstruct = constructGLAreaHasAlpha
attrClear = undefined
#endif
getGLAreaHasDepthBuffer :: (MonadIO m, IsGLArea o) => o -> m Bool
getGLAreaHasDepthBuffer obj = liftIO $ B.Properties.getObjectPropertyBool obj "has-depth-buffer"
setGLAreaHasDepthBuffer :: (MonadIO m, IsGLArea o) => o -> Bool -> m ()
setGLAreaHasDepthBuffer obj val = liftIO $ B.Properties.setObjectPropertyBool obj "has-depth-buffer" val
constructGLAreaHasDepthBuffer :: (IsGLArea o) => Bool -> IO (GValueConstruct o)
constructGLAreaHasDepthBuffer val = B.Properties.constructObjectPropertyBool "has-depth-buffer" val
#if defined(ENABLE_OVERLOADING)
data GLAreaHasDepthBufferPropertyInfo
instance AttrInfo GLAreaHasDepthBufferPropertyInfo where
type AttrAllowedOps GLAreaHasDepthBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GLAreaHasDepthBufferPropertyInfo = IsGLArea
type AttrSetTypeConstraint GLAreaHasDepthBufferPropertyInfo = (~) Bool
type AttrTransferTypeConstraint GLAreaHasDepthBufferPropertyInfo = (~) Bool
type AttrTransferType GLAreaHasDepthBufferPropertyInfo = Bool
type AttrGetType GLAreaHasDepthBufferPropertyInfo = Bool
type AttrLabel GLAreaHasDepthBufferPropertyInfo = "has-depth-buffer"
type AttrOrigin GLAreaHasDepthBufferPropertyInfo = GLArea
attrGet = getGLAreaHasDepthBuffer
attrSet = setGLAreaHasDepthBuffer
attrTransfer _ v = do
return v
attrConstruct = constructGLAreaHasDepthBuffer
attrClear = undefined
#endif
getGLAreaHasStencilBuffer :: (MonadIO m, IsGLArea o) => o -> m Bool
getGLAreaHasStencilBuffer obj = liftIO $ B.Properties.getObjectPropertyBool obj "has-stencil-buffer"
setGLAreaHasStencilBuffer :: (MonadIO m, IsGLArea o) => o -> Bool -> m ()
setGLAreaHasStencilBuffer obj val = liftIO $ B.Properties.setObjectPropertyBool obj "has-stencil-buffer" val
constructGLAreaHasStencilBuffer :: (IsGLArea o) => Bool -> IO (GValueConstruct o)
constructGLAreaHasStencilBuffer val = B.Properties.constructObjectPropertyBool "has-stencil-buffer" val
#if defined(ENABLE_OVERLOADING)
data GLAreaHasStencilBufferPropertyInfo
instance AttrInfo GLAreaHasStencilBufferPropertyInfo where
type AttrAllowedOps GLAreaHasStencilBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GLAreaHasStencilBufferPropertyInfo = IsGLArea
type AttrSetTypeConstraint GLAreaHasStencilBufferPropertyInfo = (~) Bool
type AttrTransferTypeConstraint GLAreaHasStencilBufferPropertyInfo = (~) Bool
type AttrTransferType GLAreaHasStencilBufferPropertyInfo = Bool
type AttrGetType GLAreaHasStencilBufferPropertyInfo = Bool
type AttrLabel GLAreaHasStencilBufferPropertyInfo = "has-stencil-buffer"
type AttrOrigin GLAreaHasStencilBufferPropertyInfo = GLArea
attrGet = getGLAreaHasStencilBuffer
attrSet = setGLAreaHasStencilBuffer
attrTransfer _ v = do
return v
attrConstruct = constructGLAreaHasStencilBuffer
attrClear = undefined
#endif
getGLAreaUseEs :: (MonadIO m, IsGLArea o) => o -> m Bool
getGLAreaUseEs obj = liftIO $ B.Properties.getObjectPropertyBool obj "use-es"
setGLAreaUseEs :: (MonadIO m, IsGLArea o) => o -> Bool -> m ()
setGLAreaUseEs obj val = liftIO $ B.Properties.setObjectPropertyBool obj "use-es" val
constructGLAreaUseEs :: (IsGLArea o) => Bool -> IO (GValueConstruct o)
constructGLAreaUseEs val = B.Properties.constructObjectPropertyBool "use-es" val
#if defined(ENABLE_OVERLOADING)
data GLAreaUseEsPropertyInfo
instance AttrInfo GLAreaUseEsPropertyInfo where
type AttrAllowedOps GLAreaUseEsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GLAreaUseEsPropertyInfo = IsGLArea
type AttrSetTypeConstraint GLAreaUseEsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint GLAreaUseEsPropertyInfo = (~) Bool
type AttrTransferType GLAreaUseEsPropertyInfo = Bool
type AttrGetType GLAreaUseEsPropertyInfo = Bool
type AttrLabel GLAreaUseEsPropertyInfo = "use-es"
type AttrOrigin GLAreaUseEsPropertyInfo = GLArea
attrGet = getGLAreaUseEs
attrSet = setGLAreaUseEs
attrTransfer _ v = do
return v
attrConstruct = constructGLAreaUseEs
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList GLArea
type instance O.AttributeList GLArea = GLAreaAttributeList
type GLAreaAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("autoRender", GLAreaAutoRenderPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("context", GLAreaContextPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasAlpha", GLAreaHasAlphaPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasDepthBuffer", GLAreaHasDepthBufferPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasStencilBuffer", GLAreaHasStencilBufferPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("useEs", GLAreaUseEsPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
gLAreaAutoRender :: AttrLabelProxy "autoRender"
gLAreaAutoRender = AttrLabelProxy
gLAreaContext :: AttrLabelProxy "context"
gLAreaContext = AttrLabelProxy
gLAreaHasAlpha :: AttrLabelProxy "hasAlpha"
gLAreaHasAlpha = AttrLabelProxy
gLAreaHasDepthBuffer :: AttrLabelProxy "hasDepthBuffer"
gLAreaHasDepthBuffer = AttrLabelProxy
gLAreaHasStencilBuffer :: AttrLabelProxy "hasStencilBuffer"
gLAreaHasStencilBuffer = AttrLabelProxy
gLAreaUseEs :: AttrLabelProxy "useEs"
gLAreaUseEs = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList GLArea = GLAreaSignalList
type GLAreaSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("createContext", GLAreaCreateContextSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("render", GLAreaRenderSignalInfo), '("resize", GLAreaResizeSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_gl_area_new" gtk_gl_area_new ::
IO (Ptr GLArea)
gLAreaNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m GLArea
gLAreaNew = liftIO $ do
result <- gtk_gl_area_new
checkUnexpectedReturnNULL "gLAreaNew" result
result' <- (newObject GLArea) result
return result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_gl_area_attach_buffers" gtk_gl_area_attach_buffers ::
Ptr GLArea ->
IO ()
gLAreaAttachBuffers ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> m ()
gLAreaAttachBuffers area = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
gtk_gl_area_attach_buffers area'
touchManagedPtr area
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaAttachBuffersMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaAttachBuffersMethodInfo a signature where
overloadedMethod = gLAreaAttachBuffers
#endif
foreign import ccall "gtk_gl_area_get_auto_render" gtk_gl_area_get_auto_render ::
Ptr GLArea ->
IO CInt
gLAreaGetAutoRender ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> m Bool
gLAreaGetAutoRender area = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
result <- gtk_gl_area_get_auto_render area'
let result' = (/= 0) result
touchManagedPtr area
return result'
#if defined(ENABLE_OVERLOADING)
data GLAreaGetAutoRenderMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaGetAutoRenderMethodInfo a signature where
overloadedMethod = gLAreaGetAutoRender
#endif
foreign import ccall "gtk_gl_area_get_context" gtk_gl_area_get_context ::
Ptr GLArea ->
IO (Ptr Gdk.GLContext.GLContext)
gLAreaGetContext ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> m Gdk.GLContext.GLContext
gLAreaGetContext area = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
result <- gtk_gl_area_get_context area'
checkUnexpectedReturnNULL "gLAreaGetContext" result
result' <- (newObject Gdk.GLContext.GLContext) result
touchManagedPtr area
return result'
#if defined(ENABLE_OVERLOADING)
data GLAreaGetContextMethodInfo
instance (signature ~ (m Gdk.GLContext.GLContext), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaGetContextMethodInfo a signature where
overloadedMethod = gLAreaGetContext
#endif
foreign import ccall "gtk_gl_area_get_error" gtk_gl_area_get_error ::
Ptr GLArea ->
IO (Ptr GError)
gLAreaGetError ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> m (Maybe GError)
gLAreaGetError area = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
result <- gtk_gl_area_get_error area'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newBoxed GError) result'
return result''
touchManagedPtr area
return maybeResult
#if defined(ENABLE_OVERLOADING)
data GLAreaGetErrorMethodInfo
instance (signature ~ (m (Maybe GError)), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaGetErrorMethodInfo a signature where
overloadedMethod = gLAreaGetError
#endif
foreign import ccall "gtk_gl_area_get_has_alpha" gtk_gl_area_get_has_alpha ::
Ptr GLArea ->
IO CInt
gLAreaGetHasAlpha ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> m Bool
gLAreaGetHasAlpha area = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
result <- gtk_gl_area_get_has_alpha area'
let result' = (/= 0) result
touchManagedPtr area
return result'
#if defined(ENABLE_OVERLOADING)
data GLAreaGetHasAlphaMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaGetHasAlphaMethodInfo a signature where
overloadedMethod = gLAreaGetHasAlpha
#endif
foreign import ccall "gtk_gl_area_get_has_depth_buffer" gtk_gl_area_get_has_depth_buffer ::
Ptr GLArea ->
IO CInt
gLAreaGetHasDepthBuffer ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> m Bool
gLAreaGetHasDepthBuffer area = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
result <- gtk_gl_area_get_has_depth_buffer area'
let result' = (/= 0) result
touchManagedPtr area
return result'
#if defined(ENABLE_OVERLOADING)
data GLAreaGetHasDepthBufferMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaGetHasDepthBufferMethodInfo a signature where
overloadedMethod = gLAreaGetHasDepthBuffer
#endif
foreign import ccall "gtk_gl_area_get_has_stencil_buffer" gtk_gl_area_get_has_stencil_buffer ::
Ptr GLArea ->
IO CInt
gLAreaGetHasStencilBuffer ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> m Bool
gLAreaGetHasStencilBuffer area = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
result <- gtk_gl_area_get_has_stencil_buffer area'
let result' = (/= 0) result
touchManagedPtr area
return result'
#if defined(ENABLE_OVERLOADING)
data GLAreaGetHasStencilBufferMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaGetHasStencilBufferMethodInfo a signature where
overloadedMethod = gLAreaGetHasStencilBuffer
#endif
foreign import ccall "gtk_gl_area_get_required_version" gtk_gl_area_get_required_version ::
Ptr GLArea ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
gLAreaGetRequiredVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> m ((Int32, Int32))
gLAreaGetRequiredVersion area = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
major <- allocMem :: IO (Ptr Int32)
minor <- allocMem :: IO (Ptr Int32)
gtk_gl_area_get_required_version area' major minor
major' <- peek major
minor' <- peek minor
touchManagedPtr area
freeMem major
freeMem minor
return (major', minor')
#if defined(ENABLE_OVERLOADING)
data GLAreaGetRequiredVersionMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaGetRequiredVersionMethodInfo a signature where
overloadedMethod = gLAreaGetRequiredVersion
#endif
foreign import ccall "gtk_gl_area_get_use_es" gtk_gl_area_get_use_es ::
Ptr GLArea ->
IO CInt
gLAreaGetUseEs ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> m Bool
gLAreaGetUseEs area = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
result <- gtk_gl_area_get_use_es area'
let result' = (/= 0) result
touchManagedPtr area
return result'
#if defined(ENABLE_OVERLOADING)
data GLAreaGetUseEsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaGetUseEsMethodInfo a signature where
overloadedMethod = gLAreaGetUseEs
#endif
foreign import ccall "gtk_gl_area_make_current" gtk_gl_area_make_current ::
Ptr GLArea ->
IO ()
gLAreaMakeCurrent ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> m ()
gLAreaMakeCurrent area = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
gtk_gl_area_make_current area'
touchManagedPtr area
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaMakeCurrentMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaMakeCurrentMethodInfo a signature where
overloadedMethod = gLAreaMakeCurrent
#endif
foreign import ccall "gtk_gl_area_queue_render" gtk_gl_area_queue_render ::
Ptr GLArea ->
IO ()
gLAreaQueueRender ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> m ()
gLAreaQueueRender area = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
gtk_gl_area_queue_render area'
touchManagedPtr area
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaQueueRenderMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaQueueRenderMethodInfo a signature where
overloadedMethod = gLAreaQueueRender
#endif
foreign import ccall "gtk_gl_area_set_auto_render" gtk_gl_area_set_auto_render ::
Ptr GLArea ->
CInt ->
IO ()
gLAreaSetAutoRender ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> Bool
-> m ()
gLAreaSetAutoRender area autoRender = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
let autoRender' = (fromIntegral . fromEnum) autoRender
gtk_gl_area_set_auto_render area' autoRender'
touchManagedPtr area
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaSetAutoRenderMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaSetAutoRenderMethodInfo a signature where
overloadedMethod = gLAreaSetAutoRender
#endif
foreign import ccall "gtk_gl_area_set_error" gtk_gl_area_set_error ::
Ptr GLArea ->
Ptr GError ->
IO ()
gLAreaSetError ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> Maybe (GError)
-> m ()
gLAreaSetError area error_ = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
maybeError_ <- case error_ of
Nothing -> return nullPtr
Just jError_ -> do
jError_' <- unsafeManagedPtrGetPtr jError_
return jError_'
gtk_gl_area_set_error area' maybeError_
touchManagedPtr area
whenJust error_ touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaSetErrorMethodInfo
instance (signature ~ (Maybe (GError) -> m ()), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaSetErrorMethodInfo a signature where
overloadedMethod = gLAreaSetError
#endif
foreign import ccall "gtk_gl_area_set_has_alpha" gtk_gl_area_set_has_alpha ::
Ptr GLArea ->
CInt ->
IO ()
gLAreaSetHasAlpha ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> Bool
-> m ()
gLAreaSetHasAlpha area hasAlpha = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
let hasAlpha' = (fromIntegral . fromEnum) hasAlpha
gtk_gl_area_set_has_alpha area' hasAlpha'
touchManagedPtr area
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaSetHasAlphaMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaSetHasAlphaMethodInfo a signature where
overloadedMethod = gLAreaSetHasAlpha
#endif
foreign import ccall "gtk_gl_area_set_has_depth_buffer" gtk_gl_area_set_has_depth_buffer ::
Ptr GLArea ->
CInt ->
IO ()
gLAreaSetHasDepthBuffer ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> Bool
-> m ()
gLAreaSetHasDepthBuffer area hasDepthBuffer = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
let hasDepthBuffer' = (fromIntegral . fromEnum) hasDepthBuffer
gtk_gl_area_set_has_depth_buffer area' hasDepthBuffer'
touchManagedPtr area
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaSetHasDepthBufferMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaSetHasDepthBufferMethodInfo a signature where
overloadedMethod = gLAreaSetHasDepthBuffer
#endif
foreign import ccall "gtk_gl_area_set_has_stencil_buffer" gtk_gl_area_set_has_stencil_buffer ::
Ptr GLArea ->
CInt ->
IO ()
gLAreaSetHasStencilBuffer ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> Bool
-> m ()
gLAreaSetHasStencilBuffer area hasStencilBuffer = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
let hasStencilBuffer' = (fromIntegral . fromEnum) hasStencilBuffer
gtk_gl_area_set_has_stencil_buffer area' hasStencilBuffer'
touchManagedPtr area
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaSetHasStencilBufferMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaSetHasStencilBufferMethodInfo a signature where
overloadedMethod = gLAreaSetHasStencilBuffer
#endif
foreign import ccall "gtk_gl_area_set_required_version" gtk_gl_area_set_required_version ::
Ptr GLArea ->
Int32 ->
Int32 ->
IO ()
gLAreaSetRequiredVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> Int32
-> Int32
-> m ()
gLAreaSetRequiredVersion area major minor = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
gtk_gl_area_set_required_version area' major minor
touchManagedPtr area
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaSetRequiredVersionMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaSetRequiredVersionMethodInfo a signature where
overloadedMethod = gLAreaSetRequiredVersion
#endif
foreign import ccall "gtk_gl_area_set_use_es" gtk_gl_area_set_use_es ::
Ptr GLArea ->
CInt ->
IO ()
gLAreaSetUseEs ::
(B.CallStack.HasCallStack, MonadIO m, IsGLArea a) =>
a
-> Bool
-> m ()
gLAreaSetUseEs area useEs = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
let useEs' = (fromIntegral . fromEnum) useEs
gtk_gl_area_set_use_es area' useEs'
touchManagedPtr area
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaSetUseEsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaSetUseEsMethodInfo a signature where
overloadedMethod = gLAreaSetUseEs
#endif