#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Gtk.Objects.GLArea
(
GLArea(..) ,
IsGLArea ,
toGLArea ,
noGLArea ,
#if ENABLE_OVERLOADING
GLAreaAttachBuffersMethodInfo ,
#endif
gLAreaAttachBuffers ,
#if ENABLE_OVERLOADING
GLAreaGetAutoRenderMethodInfo ,
#endif
gLAreaGetAutoRender ,
#if ENABLE_OVERLOADING
GLAreaGetContextMethodInfo ,
#endif
gLAreaGetContext ,
#if ENABLE_OVERLOADING
GLAreaGetErrorMethodInfo ,
#endif
gLAreaGetError ,
#if ENABLE_OVERLOADING
GLAreaGetHasAlphaMethodInfo ,
#endif
gLAreaGetHasAlpha ,
#if ENABLE_OVERLOADING
GLAreaGetHasDepthBufferMethodInfo ,
#endif
gLAreaGetHasDepthBuffer ,
#if ENABLE_OVERLOADING
GLAreaGetHasStencilBufferMethodInfo ,
#endif
gLAreaGetHasStencilBuffer ,
#if ENABLE_OVERLOADING
GLAreaGetRequiredVersionMethodInfo ,
#endif
gLAreaGetRequiredVersion ,
#if ENABLE_OVERLOADING
GLAreaGetUseEsMethodInfo ,
#endif
gLAreaGetUseEs ,
#if ENABLE_OVERLOADING
GLAreaMakeCurrentMethodInfo ,
#endif
gLAreaMakeCurrent ,
gLAreaNew ,
#if ENABLE_OVERLOADING
GLAreaQueueRenderMethodInfo ,
#endif
gLAreaQueueRender ,
#if ENABLE_OVERLOADING
GLAreaSetAutoRenderMethodInfo ,
#endif
gLAreaSetAutoRender ,
#if ENABLE_OVERLOADING
GLAreaSetErrorMethodInfo ,
#endif
gLAreaSetError ,
#if ENABLE_OVERLOADING
GLAreaSetHasAlphaMethodInfo ,
#endif
gLAreaSetHasAlpha ,
#if ENABLE_OVERLOADING
GLAreaSetHasDepthBufferMethodInfo ,
#endif
gLAreaSetHasDepthBuffer ,
#if ENABLE_OVERLOADING
GLAreaSetHasStencilBufferMethodInfo ,
#endif
gLAreaSetHasStencilBuffer ,
#if ENABLE_OVERLOADING
GLAreaSetRequiredVersionMethodInfo ,
#endif
gLAreaSetRequiredVersion ,
#if ENABLE_OVERLOADING
GLAreaSetUseEsMethodInfo ,
#endif
gLAreaSetUseEs ,
#if ENABLE_OVERLOADING
GLAreaAutoRenderPropertyInfo ,
#endif
constructGLAreaAutoRender ,
#if ENABLE_OVERLOADING
gLAreaAutoRender ,
#endif
getGLAreaAutoRender ,
setGLAreaAutoRender ,
#if ENABLE_OVERLOADING
GLAreaContextPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
gLAreaContext ,
#endif
getGLAreaContext ,
#if ENABLE_OVERLOADING
GLAreaHasAlphaPropertyInfo ,
#endif
constructGLAreaHasAlpha ,
#if ENABLE_OVERLOADING
gLAreaHasAlpha ,
#endif
getGLAreaHasAlpha ,
setGLAreaHasAlpha ,
#if ENABLE_OVERLOADING
GLAreaHasDepthBufferPropertyInfo ,
#endif
constructGLAreaHasDepthBuffer ,
#if ENABLE_OVERLOADING
gLAreaHasDepthBuffer ,
#endif
getGLAreaHasDepthBuffer ,
setGLAreaHasDepthBuffer ,
#if ENABLE_OVERLOADING
GLAreaHasStencilBufferPropertyInfo ,
#endif
constructGLAreaHasStencilBuffer ,
#if ENABLE_OVERLOADING
gLAreaHasStencilBuffer ,
#endif
getGLAreaHasStencilBuffer ,
setGLAreaHasStencilBuffer ,
#if ENABLE_OVERLOADING
GLAreaUseEsPropertyInfo ,
#endif
constructGLAreaUseEs ,
#if ENABLE_OVERLOADING
gLAreaUseEs ,
#endif
getGLAreaUseEs ,
setGLAreaUseEs ,
C_GLAreaCreateContextCallback ,
GLAreaCreateContextCallback ,
#if ENABLE_OVERLOADING
GLAreaCreateContextSignalInfo ,
#endif
afterGLAreaCreateContext ,
genClosure_GLAreaCreateContext ,
mk_GLAreaCreateContextCallback ,
noGLAreaCreateContextCallback ,
onGLAreaCreateContext ,
wrap_GLAreaCreateContextCallback ,
C_GLAreaRenderCallback ,
GLAreaRenderCallback ,
#if ENABLE_OVERLOADING
GLAreaRenderSignalInfo ,
#endif
afterGLAreaRender ,
genClosure_GLAreaRender ,
mk_GLAreaRenderCallback ,
noGLAreaRenderCallback ,
onGLAreaRender ,
wrap_GLAreaRenderCallback ,
C_GLAreaResizeCallback ,
GLAreaResizeCallback ,
#if 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
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)
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
class GObject o => IsGLArea o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError GLArea a) =>
IsGLArea a
#endif
instance IsGLArea GLArea
instance Gtk.Widget.IsWidget GLArea
instance GObject.Object.IsObject GLArea
instance Atk.ImplementorIface.IsImplementorIface GLArea
instance Gtk.Buildable.IsBuildable GLArea
toGLArea :: (MonadIO m, IsGLArea o) => o -> m GLArea
toGLArea = liftIO . unsafeCastTo GLArea
noGLArea :: Maybe GLArea
noGLArea = Nothing
#if 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 "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) => O.IsLabelProxy t (GLArea -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveGLAreaMethod t GLArea, O.MethodInfo info GLArea p) => O.IsLabel t (GLArea -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#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 :: GLAreaCreateContextCallback -> IO Closure
genClosure_GLAreaCreateContext cb = do
let cb' = wrap_GLAreaCreateContextCallback cb
mk_GLAreaCreateContextCallback cb' >>= newCClosure
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
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
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 :: GLAreaRenderCallback -> IO Closure
genClosure_GLAreaRender cb = do
let cb' = wrap_GLAreaRenderCallback cb
mk_GLAreaRenderCallback cb' >>= newCClosure
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
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
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 :: GLAreaResizeCallback -> IO Closure
genClosure_GLAreaResize cb = do
let cb' = wrap_GLAreaResizeCallback cb
mk_GLAreaResizeCallback cb' >>= newCClosure
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
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
getGLAreaAutoRender :: (MonadIO m, IsGLArea o) => o -> m Bool
getGLAreaAutoRender obj = liftIO $ getObjectPropertyBool obj "auto-render"
setGLAreaAutoRender :: (MonadIO m, IsGLArea o) => o -> Bool -> m ()
setGLAreaAutoRender obj val = liftIO $ setObjectPropertyBool obj "auto-render" val
constructGLAreaAutoRender :: (IsGLArea o) => Bool -> IO (GValueConstruct o)
constructGLAreaAutoRender val = constructObjectPropertyBool "auto-render" val
#if ENABLE_OVERLOADING
data GLAreaAutoRenderPropertyInfo
instance AttrInfo GLAreaAutoRenderPropertyInfo where
type AttrAllowedOps GLAreaAutoRenderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GLAreaAutoRenderPropertyInfo = (~) Bool
type AttrBaseTypeConstraint GLAreaAutoRenderPropertyInfo = IsGLArea
type AttrGetType GLAreaAutoRenderPropertyInfo = Bool
type AttrLabel GLAreaAutoRenderPropertyInfo = "auto-render"
type AttrOrigin GLAreaAutoRenderPropertyInfo = GLArea
attrGet _ = getGLAreaAutoRender
attrSet _ = setGLAreaAutoRender
attrConstruct _ = constructGLAreaAutoRender
attrClear _ = undefined
#endif
getGLAreaContext :: (MonadIO m, IsGLArea o) => o -> m Gdk.GLContext.GLContext
getGLAreaContext obj = liftIO $ checkUnexpectedNothing "getGLAreaContext" $ getObjectPropertyObject obj "context" Gdk.GLContext.GLContext
#if ENABLE_OVERLOADING
data GLAreaContextPropertyInfo
instance AttrInfo GLAreaContextPropertyInfo where
type AttrAllowedOps GLAreaContextPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint GLAreaContextPropertyInfo = (~) ()
type AttrBaseTypeConstraint GLAreaContextPropertyInfo = IsGLArea
type AttrGetType GLAreaContextPropertyInfo = Gdk.GLContext.GLContext
type AttrLabel GLAreaContextPropertyInfo = "context"
type AttrOrigin GLAreaContextPropertyInfo = GLArea
attrGet _ = getGLAreaContext
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getGLAreaHasAlpha :: (MonadIO m, IsGLArea o) => o -> m Bool
getGLAreaHasAlpha obj = liftIO $ getObjectPropertyBool obj "has-alpha"
setGLAreaHasAlpha :: (MonadIO m, IsGLArea o) => o -> Bool -> m ()
setGLAreaHasAlpha obj val = liftIO $ setObjectPropertyBool obj "has-alpha" val
constructGLAreaHasAlpha :: (IsGLArea o) => Bool -> IO (GValueConstruct o)
constructGLAreaHasAlpha val = constructObjectPropertyBool "has-alpha" val
#if ENABLE_OVERLOADING
data GLAreaHasAlphaPropertyInfo
instance AttrInfo GLAreaHasAlphaPropertyInfo where
type AttrAllowedOps GLAreaHasAlphaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GLAreaHasAlphaPropertyInfo = (~) Bool
type AttrBaseTypeConstraint GLAreaHasAlphaPropertyInfo = IsGLArea
type AttrGetType GLAreaHasAlphaPropertyInfo = Bool
type AttrLabel GLAreaHasAlphaPropertyInfo = "has-alpha"
type AttrOrigin GLAreaHasAlphaPropertyInfo = GLArea
attrGet _ = getGLAreaHasAlpha
attrSet _ = setGLAreaHasAlpha
attrConstruct _ = constructGLAreaHasAlpha
attrClear _ = undefined
#endif
getGLAreaHasDepthBuffer :: (MonadIO m, IsGLArea o) => o -> m Bool
getGLAreaHasDepthBuffer obj = liftIO $ getObjectPropertyBool obj "has-depth-buffer"
setGLAreaHasDepthBuffer :: (MonadIO m, IsGLArea o) => o -> Bool -> m ()
setGLAreaHasDepthBuffer obj val = liftIO $ setObjectPropertyBool obj "has-depth-buffer" val
constructGLAreaHasDepthBuffer :: (IsGLArea o) => Bool -> IO (GValueConstruct o)
constructGLAreaHasDepthBuffer val = constructObjectPropertyBool "has-depth-buffer" val
#if ENABLE_OVERLOADING
data GLAreaHasDepthBufferPropertyInfo
instance AttrInfo GLAreaHasDepthBufferPropertyInfo where
type AttrAllowedOps GLAreaHasDepthBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GLAreaHasDepthBufferPropertyInfo = (~) Bool
type AttrBaseTypeConstraint GLAreaHasDepthBufferPropertyInfo = IsGLArea
type AttrGetType GLAreaHasDepthBufferPropertyInfo = Bool
type AttrLabel GLAreaHasDepthBufferPropertyInfo = "has-depth-buffer"
type AttrOrigin GLAreaHasDepthBufferPropertyInfo = GLArea
attrGet _ = getGLAreaHasDepthBuffer
attrSet _ = setGLAreaHasDepthBuffer
attrConstruct _ = constructGLAreaHasDepthBuffer
attrClear _ = undefined
#endif
getGLAreaHasStencilBuffer :: (MonadIO m, IsGLArea o) => o -> m Bool
getGLAreaHasStencilBuffer obj = liftIO $ getObjectPropertyBool obj "has-stencil-buffer"
setGLAreaHasStencilBuffer :: (MonadIO m, IsGLArea o) => o -> Bool -> m ()
setGLAreaHasStencilBuffer obj val = liftIO $ setObjectPropertyBool obj "has-stencil-buffer" val
constructGLAreaHasStencilBuffer :: (IsGLArea o) => Bool -> IO (GValueConstruct o)
constructGLAreaHasStencilBuffer val = constructObjectPropertyBool "has-stencil-buffer" val
#if ENABLE_OVERLOADING
data GLAreaHasStencilBufferPropertyInfo
instance AttrInfo GLAreaHasStencilBufferPropertyInfo where
type AttrAllowedOps GLAreaHasStencilBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GLAreaHasStencilBufferPropertyInfo = (~) Bool
type AttrBaseTypeConstraint GLAreaHasStencilBufferPropertyInfo = IsGLArea
type AttrGetType GLAreaHasStencilBufferPropertyInfo = Bool
type AttrLabel GLAreaHasStencilBufferPropertyInfo = "has-stencil-buffer"
type AttrOrigin GLAreaHasStencilBufferPropertyInfo = GLArea
attrGet _ = getGLAreaHasStencilBuffer
attrSet _ = setGLAreaHasStencilBuffer
attrConstruct _ = constructGLAreaHasStencilBuffer
attrClear _ = undefined
#endif
getGLAreaUseEs :: (MonadIO m, IsGLArea o) => o -> m Bool
getGLAreaUseEs obj = liftIO $ getObjectPropertyBool obj "use-es"
setGLAreaUseEs :: (MonadIO m, IsGLArea o) => o -> Bool -> m ()
setGLAreaUseEs obj val = liftIO $ setObjectPropertyBool obj "use-es" val
constructGLAreaUseEs :: (IsGLArea o) => Bool -> IO (GValueConstruct o)
constructGLAreaUseEs val = constructObjectPropertyBool "use-es" val
#if ENABLE_OVERLOADING
data GLAreaUseEsPropertyInfo
instance AttrInfo GLAreaUseEsPropertyInfo where
type AttrAllowedOps GLAreaUseEsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GLAreaUseEsPropertyInfo = (~) Bool
type AttrBaseTypeConstraint GLAreaUseEsPropertyInfo = IsGLArea
type AttrGetType GLAreaUseEsPropertyInfo = Bool
type AttrLabel GLAreaUseEsPropertyInfo = "use-es"
type AttrOrigin GLAreaUseEsPropertyInfo = GLArea
attrGet _ = getGLAreaUseEs
attrSet _ = setGLAreaUseEs
attrConstruct _ = constructGLAreaUseEs
attrClear _ = undefined
#endif
#if 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 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 ENABLE_OVERLOADING
data GLAreaCreateContextSignalInfo
instance SignalInfo GLAreaCreateContextSignalInfo where
type HaskellCallbackType GLAreaCreateContextSignalInfo = GLAreaCreateContextCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_GLAreaCreateContextCallback cb
cb'' <- mk_GLAreaCreateContextCallback cb'
connectSignalFunPtr obj "create-context" cb'' connectMode
data GLAreaRenderSignalInfo
instance SignalInfo GLAreaRenderSignalInfo where
type HaskellCallbackType GLAreaRenderSignalInfo = GLAreaRenderCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_GLAreaRenderCallback cb
cb'' <- mk_GLAreaRenderCallback cb'
connectSignalFunPtr obj "render" cb'' connectMode
data GLAreaResizeSignalInfo
instance SignalInfo GLAreaResizeSignalInfo where
type HaskellCallbackType GLAreaResizeSignalInfo = GLAreaResizeCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_GLAreaResizeCallback cb
cb'' <- mk_GLAreaResizeCallback cb'
connectSignalFunPtr obj "resize" cb'' connectMode
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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 ENABLE_OVERLOADING
data GLAreaSetUseEsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGLArea a) => O.MethodInfo GLAreaSetUseEsMethodInfo a signature where
overloadedMethod _ = gLAreaSetUseEs
#endif