{-# 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 ,
#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)
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)
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)
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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
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 Control.Monad.IO.Class as MIO
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 GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Objects.GLContext as Gdk.GLContext
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype GLArea = GLArea (SP.ManagedPtr GLArea)
deriving (GLArea -> GLArea -> Bool
(GLArea -> GLArea -> Bool)
-> (GLArea -> GLArea -> Bool) -> Eq GLArea
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GLArea -> GLArea -> Bool
$c/= :: GLArea -> GLArea -> Bool
== :: GLArea -> GLArea -> Bool
$c== :: GLArea -> GLArea -> Bool
Eq)
instance SP.ManagedPtrNewtype GLArea where
toManagedPtr :: GLArea -> ManagedPtr GLArea
toManagedPtr (GLArea ManagedPtr GLArea
p) = ManagedPtr GLArea
p
foreign import ccall "gtk_gl_area_get_type"
c_gtk_gl_area_get_type :: IO B.Types.GType
instance B.Types.TypedObject GLArea where
glibType :: IO GType
glibType = IO GType
c_gtk_gl_area_get_type
instance B.Types.GObject GLArea
class (SP.GObject o, O.IsDescendantOf GLArea o) => IsGLArea o
instance (SP.GObject o, O.IsDescendantOf GLArea o) => IsGLArea o
instance O.HasParentTypes GLArea
type instance O.ParentTypes GLArea = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toGLArea :: (MIO.MonadIO m, IsGLArea o) => o -> m GLArea
toGLArea :: forall (m :: * -> *) o. (MonadIO m, IsGLArea o) => o -> m GLArea
toGLArea = IO GLArea -> m GLArea
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO GLArea -> m GLArea) -> (o -> IO GLArea) -> o -> m GLArea
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr GLArea -> GLArea) -> o -> IO GLArea
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr GLArea -> GLArea
GLArea
instance B.GValue.IsGValue (Maybe GLArea) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_gl_area_get_type
gvalueSet_ :: Ptr GValue -> Maybe GLArea -> IO ()
gvalueSet_ Ptr GValue
gv Maybe GLArea
P.Nothing = Ptr GValue -> Ptr GLArea -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr GLArea
forall a. Ptr a
FP.nullPtr :: FP.Ptr GLArea)
gvalueSet_ Ptr GValue
gv (P.Just GLArea
obj) = GLArea -> (Ptr GLArea -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr GLArea
obj (Ptr GValue -> Ptr GLArea -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe GLArea)
gvalueGet_ Ptr GValue
gv = do
Ptr GLArea
ptr <- Ptr GValue -> IO (Ptr GLArea)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr GLArea)
if Ptr GLArea
ptr Ptr GLArea -> Ptr GLArea -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr GLArea
forall a. Ptr a
FP.nullPtr
then GLArea -> Maybe GLArea
forall a. a -> Maybe a
P.Just (GLArea -> Maybe GLArea) -> IO GLArea -> IO (Maybe GLArea)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr GLArea -> GLArea) -> Ptr GLArea -> IO GLArea
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr GLArea -> GLArea
GLArea Ptr GLArea
ptr
else Maybe GLArea -> IO (Maybe GLArea)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GLArea
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveGLAreaMethod (t :: Symbol) (o :: *) :: * where
ResolveGLAreaMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveGLAreaMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveGLAreaMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveGLAreaMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveGLAreaMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveGLAreaMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveGLAreaMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveGLAreaMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveGLAreaMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveGLAreaMethod "attachBuffers" o = GLAreaAttachBuffersMethodInfo
ResolveGLAreaMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveGLAreaMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveGLAreaMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveGLAreaMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveGLAreaMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveGLAreaMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveGLAreaMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveGLAreaMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveGLAreaMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveGLAreaMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveGLAreaMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveGLAreaMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveGLAreaMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveGLAreaMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveGLAreaMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveGLAreaMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveGLAreaMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveGLAreaMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveGLAreaMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveGLAreaMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveGLAreaMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveGLAreaMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveGLAreaMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveGLAreaMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveGLAreaMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveGLAreaMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveGLAreaMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
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 "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveGLAreaMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveGLAreaMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveGLAreaMethod "makeCurrent" o = GLAreaMakeCurrentMethodInfo
ResolveGLAreaMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveGLAreaMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveGLAreaMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveGLAreaMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveGLAreaMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveGLAreaMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveGLAreaMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveGLAreaMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveGLAreaMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveGLAreaMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveGLAreaMethod "queueRender" o = GLAreaQueueRenderMethodInfo
ResolveGLAreaMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveGLAreaMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveGLAreaMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveGLAreaMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveGLAreaMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveGLAreaMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveGLAreaMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveGLAreaMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveGLAreaMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveGLAreaMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveGLAreaMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveGLAreaMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveGLAreaMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveGLAreaMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveGLAreaMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveGLAreaMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveGLAreaMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveGLAreaMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
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 "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveGLAreaMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveGLAreaMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveGLAreaMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveGLAreaMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveGLAreaMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveGLAreaMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveGLAreaMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveGLAreaMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveGLAreaMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveGLAreaMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveGLAreaMethod "getAutoRender" o = GLAreaGetAutoRenderMethodInfo
ResolveGLAreaMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveGLAreaMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveGLAreaMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveGLAreaMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveGLAreaMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveGLAreaMethod "getContext" o = GLAreaGetContextMethodInfo
ResolveGLAreaMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveGLAreaMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveGLAreaMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveGLAreaMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveGLAreaMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveGLAreaMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveGLAreaMethod "getError" o = GLAreaGetErrorMethodInfo
ResolveGLAreaMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveGLAreaMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveGLAreaMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveGLAreaMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
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 "getHasDepthBuffer" o = GLAreaGetHasDepthBufferMethodInfo
ResolveGLAreaMethod "getHasStencilBuffer" o = GLAreaGetHasStencilBufferMethodInfo
ResolveGLAreaMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveGLAreaMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveGLAreaMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveGLAreaMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveGLAreaMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveGLAreaMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveGLAreaMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveGLAreaMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveGLAreaMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveGLAreaMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveGLAreaMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveGLAreaMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveGLAreaMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveGLAreaMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveGLAreaMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveGLAreaMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveGLAreaMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveGLAreaMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveGLAreaMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveGLAreaMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveGLAreaMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
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 "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveGLAreaMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveGLAreaMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveGLAreaMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveGLAreaMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveGLAreaMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveGLAreaMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveGLAreaMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveGLAreaMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveGLAreaMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveGLAreaMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveGLAreaMethod "getUseEs" o = GLAreaGetUseEsMethodInfo
ResolveGLAreaMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveGLAreaMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveGLAreaMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveGLAreaMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveGLAreaMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveGLAreaMethod "setAutoRender" o = GLAreaSetAutoRenderMethodInfo
ResolveGLAreaMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveGLAreaMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveGLAreaMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveGLAreaMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveGLAreaMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveGLAreaMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveGLAreaMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveGLAreaMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveGLAreaMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveGLAreaMethod "setError" o = GLAreaSetErrorMethodInfo
ResolveGLAreaMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveGLAreaMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveGLAreaMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveGLAreaMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveGLAreaMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveGLAreaMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveGLAreaMethod "setHasDepthBuffer" o = GLAreaSetHasDepthBufferMethodInfo
ResolveGLAreaMethod "setHasStencilBuffer" o = GLAreaSetHasStencilBufferMethodInfo
ResolveGLAreaMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveGLAreaMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveGLAreaMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveGLAreaMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveGLAreaMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveGLAreaMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveGLAreaMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveGLAreaMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveGLAreaMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveGLAreaMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveGLAreaMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveGLAreaMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveGLAreaMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveGLAreaMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveGLAreaMethod "setRequiredVersion" o = GLAreaSetRequiredVersionMethodInfo
ResolveGLAreaMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveGLAreaMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveGLAreaMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveGLAreaMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveGLAreaMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
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 l o = O.MethodResolutionFailed l o
instance (info ~ ResolveGLAreaMethod t GLArea, O.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveGLAreaMethod t GLArea, O.OverloadedMethod info GLArea p, R.HasField t GLArea p) => R.HasField t GLArea p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveGLAreaMethod t GLArea, O.OverloadedMethodInfo info GLArea) => OL.IsLabel t (O.MethodProxy info GLArea) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type GLAreaCreateContextCallback =
IO Gdk.GLContext.GLContext
noGLAreaCreateContextCallback :: Maybe GLAreaCreateContextCallback
noGLAreaCreateContextCallback :: Maybe GLAreaCreateContextCallback
noGLAreaCreateContextCallback = Maybe GLAreaCreateContextCallback
forall a. Maybe a
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 :: forall (m :: * -> *).
MonadIO m =>
GLAreaCreateContextCallback
-> m (GClosure C_GLAreaCreateContextCallback)
genClosure_GLAreaCreateContext GLAreaCreateContextCallback
cb = IO (GClosure C_GLAreaCreateContextCallback)
-> m (GClosure C_GLAreaCreateContextCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_GLAreaCreateContextCallback)
-> m (GClosure C_GLAreaCreateContextCallback))
-> IO (GClosure C_GLAreaCreateContextCallback)
-> m (GClosure C_GLAreaCreateContextCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GLAreaCreateContextCallback
cb' = GLAreaCreateContextCallback -> C_GLAreaCreateContextCallback
wrap_GLAreaCreateContextCallback GLAreaCreateContextCallback
cb
C_GLAreaCreateContextCallback
-> IO (FunPtr C_GLAreaCreateContextCallback)
mk_GLAreaCreateContextCallback C_GLAreaCreateContextCallback
cb' IO (FunPtr C_GLAreaCreateContextCallback)
-> (FunPtr C_GLAreaCreateContextCallback
-> IO (GClosure C_GLAreaCreateContextCallback))
-> IO (GClosure C_GLAreaCreateContextCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_GLAreaCreateContextCallback
-> IO (GClosure C_GLAreaCreateContextCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_GLAreaCreateContextCallback ::
GLAreaCreateContextCallback ->
C_GLAreaCreateContextCallback
wrap_GLAreaCreateContextCallback :: GLAreaCreateContextCallback -> C_GLAreaCreateContextCallback
wrap_GLAreaCreateContextCallback GLAreaCreateContextCallback
_cb Ptr ()
_ Ptr ()
_ = do
GLContext
result <- GLAreaCreateContextCallback
_cb
Ptr GLContext
result' <- GLContext -> IO (Ptr GLContext)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject GLContext
result
Ptr GLContext -> IO (Ptr GLContext)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GLContext
result'
onGLAreaCreateContext :: (IsGLArea a, MonadIO m) => a -> GLAreaCreateContextCallback -> m SignalHandlerId
onGLAreaCreateContext :: forall a (m :: * -> *).
(IsGLArea a, MonadIO m) =>
a -> GLAreaCreateContextCallback -> m SignalHandlerId
onGLAreaCreateContext a
obj GLAreaCreateContextCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GLAreaCreateContextCallback
cb' = GLAreaCreateContextCallback -> C_GLAreaCreateContextCallback
wrap_GLAreaCreateContextCallback GLAreaCreateContextCallback
cb
FunPtr C_GLAreaCreateContextCallback
cb'' <- C_GLAreaCreateContextCallback
-> IO (FunPtr C_GLAreaCreateContextCallback)
mk_GLAreaCreateContextCallback C_GLAreaCreateContextCallback
cb'
a
-> Text
-> FunPtr C_GLAreaCreateContextCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"create-context" FunPtr C_GLAreaCreateContextCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterGLAreaCreateContext :: (IsGLArea a, MonadIO m) => a -> GLAreaCreateContextCallback -> m SignalHandlerId
afterGLAreaCreateContext :: forall a (m :: * -> *).
(IsGLArea a, MonadIO m) =>
a -> GLAreaCreateContextCallback -> m SignalHandlerId
afterGLAreaCreateContext a
obj GLAreaCreateContextCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GLAreaCreateContextCallback
cb' = GLAreaCreateContextCallback -> C_GLAreaCreateContextCallback
wrap_GLAreaCreateContextCallback GLAreaCreateContextCallback
cb
FunPtr C_GLAreaCreateContextCallback
cb'' <- C_GLAreaCreateContextCallback
-> IO (FunPtr C_GLAreaCreateContextCallback)
mk_GLAreaCreateContextCallback C_GLAreaCreateContextCallback
cb'
a
-> Text
-> FunPtr C_GLAreaCreateContextCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"create-context" FunPtr C_GLAreaCreateContextCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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 :: Maybe GLAreaRenderCallback
noGLAreaRenderCallback = Maybe GLAreaRenderCallback
forall a. Maybe a
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 :: forall (m :: * -> *).
MonadIO m =>
GLAreaRenderCallback -> m (GClosure C_GLAreaRenderCallback)
genClosure_GLAreaRender GLAreaRenderCallback
cb = IO (GClosure C_GLAreaRenderCallback)
-> m (GClosure C_GLAreaRenderCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_GLAreaRenderCallback)
-> m (GClosure C_GLAreaRenderCallback))
-> IO (GClosure C_GLAreaRenderCallback)
-> m (GClosure C_GLAreaRenderCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GLAreaRenderCallback
cb' = GLAreaRenderCallback -> C_GLAreaRenderCallback
wrap_GLAreaRenderCallback GLAreaRenderCallback
cb
C_GLAreaRenderCallback -> IO (FunPtr C_GLAreaRenderCallback)
mk_GLAreaRenderCallback C_GLAreaRenderCallback
cb' IO (FunPtr C_GLAreaRenderCallback)
-> (FunPtr C_GLAreaRenderCallback
-> IO (GClosure C_GLAreaRenderCallback))
-> IO (GClosure C_GLAreaRenderCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_GLAreaRenderCallback
-> IO (GClosure C_GLAreaRenderCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_GLAreaRenderCallback ::
GLAreaRenderCallback ->
C_GLAreaRenderCallback
wrap_GLAreaRenderCallback :: GLAreaRenderCallback -> C_GLAreaRenderCallback
wrap_GLAreaRenderCallback GLAreaRenderCallback
_cb Ptr ()
_ Ptr GLContext
context Ptr ()
_ = do
GLContext
context' <- ((ManagedPtr GLContext -> GLContext)
-> Ptr GLContext -> GLAreaCreateContextCallback
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr GLContext -> GLContext
Gdk.GLContext.GLContext) Ptr GLContext
context
Bool
result <- GLAreaRenderCallback
_cb GLContext
context'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onGLAreaRender :: (IsGLArea a, MonadIO m) => a -> GLAreaRenderCallback -> m SignalHandlerId
onGLAreaRender :: forall a (m :: * -> *).
(IsGLArea a, MonadIO m) =>
a -> GLAreaRenderCallback -> m SignalHandlerId
onGLAreaRender a
obj GLAreaRenderCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GLAreaRenderCallback
cb' = GLAreaRenderCallback -> C_GLAreaRenderCallback
wrap_GLAreaRenderCallback GLAreaRenderCallback
cb
FunPtr C_GLAreaRenderCallback
cb'' <- C_GLAreaRenderCallback -> IO (FunPtr C_GLAreaRenderCallback)
mk_GLAreaRenderCallback C_GLAreaRenderCallback
cb'
a
-> Text
-> FunPtr C_GLAreaRenderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"render" FunPtr C_GLAreaRenderCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterGLAreaRender :: (IsGLArea a, MonadIO m) => a -> GLAreaRenderCallback -> m SignalHandlerId
afterGLAreaRender :: forall a (m :: * -> *).
(IsGLArea a, MonadIO m) =>
a -> GLAreaRenderCallback -> m SignalHandlerId
afterGLAreaRender a
obj GLAreaRenderCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GLAreaRenderCallback
cb' = GLAreaRenderCallback -> C_GLAreaRenderCallback
wrap_GLAreaRenderCallback GLAreaRenderCallback
cb
FunPtr C_GLAreaRenderCallback
cb'' <- C_GLAreaRenderCallback -> IO (FunPtr C_GLAreaRenderCallback)
mk_GLAreaRenderCallback C_GLAreaRenderCallback
cb'
a
-> Text
-> FunPtr C_GLAreaRenderCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"render" FunPtr C_GLAreaRenderCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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 :: Maybe GLAreaResizeCallback
noGLAreaResizeCallback = Maybe GLAreaResizeCallback
forall a. Maybe a
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 :: forall (m :: * -> *).
MonadIO m =>
GLAreaResizeCallback -> m (GClosure C_GLAreaResizeCallback)
genClosure_GLAreaResize GLAreaResizeCallback
cb = IO (GClosure C_GLAreaResizeCallback)
-> m (GClosure C_GLAreaResizeCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_GLAreaResizeCallback)
-> m (GClosure C_GLAreaResizeCallback))
-> IO (GClosure C_GLAreaResizeCallback)
-> m (GClosure C_GLAreaResizeCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GLAreaResizeCallback
cb' = GLAreaResizeCallback -> C_GLAreaResizeCallback
wrap_GLAreaResizeCallback GLAreaResizeCallback
cb
C_GLAreaResizeCallback -> IO (FunPtr C_GLAreaResizeCallback)
mk_GLAreaResizeCallback C_GLAreaResizeCallback
cb' IO (FunPtr C_GLAreaResizeCallback)
-> (FunPtr C_GLAreaResizeCallback
-> IO (GClosure C_GLAreaResizeCallback))
-> IO (GClosure C_GLAreaResizeCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_GLAreaResizeCallback
-> IO (GClosure C_GLAreaResizeCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_GLAreaResizeCallback ::
GLAreaResizeCallback ->
C_GLAreaResizeCallback
wrap_GLAreaResizeCallback :: GLAreaResizeCallback -> C_GLAreaResizeCallback
wrap_GLAreaResizeCallback GLAreaResizeCallback
_cb Ptr ()
_ Int32
width Int32
height Ptr ()
_ = do
GLAreaResizeCallback
_cb Int32
width Int32
height
onGLAreaResize :: (IsGLArea a, MonadIO m) => a -> GLAreaResizeCallback -> m SignalHandlerId
onGLAreaResize :: forall a (m :: * -> *).
(IsGLArea a, MonadIO m) =>
a -> GLAreaResizeCallback -> m SignalHandlerId
onGLAreaResize a
obj GLAreaResizeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GLAreaResizeCallback
cb' = GLAreaResizeCallback -> C_GLAreaResizeCallback
wrap_GLAreaResizeCallback GLAreaResizeCallback
cb
FunPtr C_GLAreaResizeCallback
cb'' <- C_GLAreaResizeCallback -> IO (FunPtr C_GLAreaResizeCallback)
mk_GLAreaResizeCallback C_GLAreaResizeCallback
cb'
a
-> Text
-> FunPtr C_GLAreaResizeCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"resize" FunPtr C_GLAreaResizeCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterGLAreaResize :: (IsGLArea a, MonadIO m) => a -> GLAreaResizeCallback -> m SignalHandlerId
afterGLAreaResize :: forall a (m :: * -> *).
(IsGLArea a, MonadIO m) =>
a -> GLAreaResizeCallback -> m SignalHandlerId
afterGLAreaResize a
obj GLAreaResizeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GLAreaResizeCallback
cb' = GLAreaResizeCallback -> C_GLAreaResizeCallback
wrap_GLAreaResizeCallback GLAreaResizeCallback
cb
FunPtr C_GLAreaResizeCallback
cb'' <- C_GLAreaResizeCallback -> IO (FunPtr C_GLAreaResizeCallback)
mk_GLAreaResizeCallback C_GLAreaResizeCallback
cb'
a
-> Text
-> FunPtr C_GLAreaResizeCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"resize" FunPtr C_GLAreaResizeCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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 :: forall (m :: * -> *) o. (MonadIO m, IsGLArea o) => o -> m Bool
getGLAreaAutoRender o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"auto-render"
setGLAreaAutoRender :: (MonadIO m, IsGLArea o) => o -> Bool -> m ()
setGLAreaAutoRender :: forall (m :: * -> *) o.
(MonadIO m, IsGLArea o) =>
o -> Bool -> m ()
setGLAreaAutoRender o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"auto-render" Bool
val
constructGLAreaAutoRender :: (IsGLArea o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructGLAreaAutoRender :: forall o (m :: * -> *).
(IsGLArea o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructGLAreaAutoRender Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"auto-render" Bool
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 :: forall (m :: * -> *) o. (MonadIO m, IsGLArea o) => o -> m GLContext
getGLAreaContext o
obj = GLAreaCreateContextCallback -> m GLContext
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (GLAreaCreateContextCallback -> m GLContext)
-> GLAreaCreateContextCallback -> m GLContext
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe GLContext) -> GLAreaCreateContextCallback
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getGLAreaContext" (IO (Maybe GLContext) -> GLAreaCreateContextCallback)
-> IO (Maybe GLContext) -> GLAreaCreateContextCallback
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr GLContext -> GLContext)
-> IO (Maybe GLContext)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"context" ManagedPtr GLContext -> GLContext
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
getGLAreaHasDepthBuffer :: (MonadIO m, IsGLArea o) => o -> m Bool
getGLAreaHasDepthBuffer :: forall (m :: * -> *) o. (MonadIO m, IsGLArea o) => o -> m Bool
getGLAreaHasDepthBuffer o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"has-depth-buffer"
setGLAreaHasDepthBuffer :: (MonadIO m, IsGLArea o) => o -> Bool -> m ()
setGLAreaHasDepthBuffer :: forall (m :: * -> *) o.
(MonadIO m, IsGLArea o) =>
o -> Bool -> m ()
setGLAreaHasDepthBuffer o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"has-depth-buffer" Bool
val
constructGLAreaHasDepthBuffer :: (IsGLArea o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructGLAreaHasDepthBuffer :: forall o (m :: * -> *).
(IsGLArea o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructGLAreaHasDepthBuffer Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"has-depth-buffer" Bool
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 :: forall (m :: * -> *) o. (MonadIO m, IsGLArea o) => o -> m Bool
getGLAreaHasStencilBuffer o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"has-stencil-buffer"
setGLAreaHasStencilBuffer :: (MonadIO m, IsGLArea o) => o -> Bool -> m ()
setGLAreaHasStencilBuffer :: forall (m :: * -> *) o.
(MonadIO m, IsGLArea o) =>
o -> Bool -> m ()
setGLAreaHasStencilBuffer o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"has-stencil-buffer" Bool
val
constructGLAreaHasStencilBuffer :: (IsGLArea o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructGLAreaHasStencilBuffer :: forall o (m :: * -> *).
(IsGLArea o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructGLAreaHasStencilBuffer Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"has-stencil-buffer" Bool
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 :: forall (m :: * -> *) o. (MonadIO m, IsGLArea o) => o -> m Bool
getGLAreaUseEs o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"use-es"
setGLAreaUseEs :: (MonadIO m, IsGLArea o) => o -> Bool -> m ()
setGLAreaUseEs :: forall (m :: * -> *) o.
(MonadIO m, IsGLArea o) =>
o -> Bool -> m ()
setGLAreaUseEs o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"use-es" Bool
val
constructGLAreaUseEs :: (IsGLArea o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructGLAreaUseEs :: forall o (m :: * -> *).
(IsGLArea o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructGLAreaUseEs Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"use-es" Bool
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 = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("autoRender", GLAreaAutoRenderPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("context", GLAreaContextPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("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), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("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)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
gLAreaAutoRender :: AttrLabelProxy "autoRender"
gLAreaAutoRender = AttrLabelProxy
gLAreaContext :: AttrLabelProxy "context"
gLAreaContext = 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 = ('[ '("createContext", GLAreaCreateContextSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("render", GLAreaRenderSignalInfo), '("resize", GLAreaResizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(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 :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m GLArea
gLAreaNew = IO GLArea -> m GLArea
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GLArea -> m GLArea) -> IO GLArea -> m GLArea
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
result <- IO (Ptr GLArea)
gtk_gl_area_new
Text -> Ptr GLArea -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"gLAreaNew" Ptr GLArea
result
GLArea
result' <- ((ManagedPtr GLArea -> GLArea) -> Ptr GLArea -> IO GLArea
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr GLArea -> GLArea
GLArea) Ptr GLArea
result
GLArea -> IO GLArea
forall (m :: * -> *) a. Monad m => a -> m a
return GLArea
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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> m ()
gLAreaAttachBuffers a
area = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr GLArea -> IO ()
gtk_gl_area_attach_buffers Ptr GLArea
area'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaAttachBuffersMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaAttachBuffersMethodInfo a signature where
overloadedMethod = gLAreaAttachBuffers
instance O.OverloadedMethodInfo GLAreaAttachBuffersMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaAttachBuffers",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> m Bool
gLAreaGetAutoRender a
area = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
CInt
result <- Ptr GLArea -> IO CInt
gtk_gl_area_get_auto_render Ptr GLArea
area'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GLAreaGetAutoRenderMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaGetAutoRenderMethodInfo a signature where
overloadedMethod = gLAreaGetAutoRender
instance O.OverloadedMethodInfo GLAreaGetAutoRenderMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaGetAutoRender",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> m GLContext
gLAreaGetContext a
area = GLAreaCreateContextCallback -> m GLContext
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (GLAreaCreateContextCallback -> m GLContext)
-> GLAreaCreateContextCallback -> m GLContext
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr GLContext
result <- Ptr GLArea -> IO (Ptr GLContext)
gtk_gl_area_get_context Ptr GLArea
area'
Text -> Ptr GLContext -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"gLAreaGetContext" Ptr GLContext
result
GLContext
result' <- ((ManagedPtr GLContext -> GLContext)
-> Ptr GLContext -> GLAreaCreateContextCallback
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr GLContext -> GLContext
Gdk.GLContext.GLContext) Ptr GLContext
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
GLContext -> GLAreaCreateContextCallback
forall (m :: * -> *) a. Monad m => a -> m a
return GLContext
result'
#if defined(ENABLE_OVERLOADING)
data GLAreaGetContextMethodInfo
instance (signature ~ (m Gdk.GLContext.GLContext), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaGetContextMethodInfo a signature where
overloadedMethod = gLAreaGetContext
instance O.OverloadedMethodInfo GLAreaGetContextMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaGetContext",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> m (Maybe GError)
gLAreaGetError a
area = IO (Maybe GError) -> m (Maybe GError)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe GError) -> m (Maybe GError))
-> IO (Maybe GError) -> m (Maybe GError)
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr GError
result <- Ptr GLArea -> IO (Ptr GError)
gtk_gl_area_get_error Ptr GLArea
area'
Maybe GError
maybeResult <- Ptr GError -> (Ptr GError -> IO GError) -> IO (Maybe GError)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr GError
result ((Ptr GError -> IO GError) -> IO (Maybe GError))
-> (Ptr GError -> IO GError) -> IO (Maybe GError)
forall a b. (a -> b) -> a -> b
$ \Ptr GError
result' -> do
GError
result'' <- ((ManagedPtr GError -> GError) -> Ptr GError -> IO GError
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr GError -> GError
GError) Ptr GError
result'
GError -> IO GError
forall (m :: * -> *) a. Monad m => a -> m a
return GError
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
Maybe GError -> IO (Maybe GError)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GError
maybeResult
#if defined(ENABLE_OVERLOADING)
data GLAreaGetErrorMethodInfo
instance (signature ~ (m (Maybe GError)), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaGetErrorMethodInfo a signature where
overloadedMethod = gLAreaGetError
instance O.OverloadedMethodInfo GLAreaGetErrorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaGetError",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v:gLAreaGetError"
}
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> m Bool
gLAreaGetHasDepthBuffer a
area = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
CInt
result <- Ptr GLArea -> IO CInt
gtk_gl_area_get_has_depth_buffer Ptr GLArea
area'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GLAreaGetHasDepthBufferMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaGetHasDepthBufferMethodInfo a signature where
overloadedMethod = gLAreaGetHasDepthBuffer
instance O.OverloadedMethodInfo GLAreaGetHasDepthBufferMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaGetHasDepthBuffer",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> m Bool
gLAreaGetHasStencilBuffer a
area = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
CInt
result <- Ptr GLArea -> IO CInt
gtk_gl_area_get_has_stencil_buffer Ptr GLArea
area'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GLAreaGetHasStencilBufferMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaGetHasStencilBufferMethodInfo a signature where
overloadedMethod = gLAreaGetHasStencilBuffer
instance O.OverloadedMethodInfo GLAreaGetHasStencilBufferMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaGetHasStencilBuffer",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> m (Int32, Int32)
gLAreaGetRequiredVersion a
area = IO (Int32, Int32) -> m (Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr Int32
major <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
minor <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr GLArea -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_gl_area_get_required_version Ptr GLArea
area' Ptr Int32
major Ptr Int32
minor
Int32
major' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
major
Int32
minor' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minor
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
major
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minor
(Int32, Int32) -> IO (Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
major', Int32
minor')
#if defined(ENABLE_OVERLOADING)
data GLAreaGetRequiredVersionMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaGetRequiredVersionMethodInfo a signature where
overloadedMethod = gLAreaGetRequiredVersion
instance O.OverloadedMethodInfo GLAreaGetRequiredVersionMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaGetRequiredVersion",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> m Bool
gLAreaGetUseEs a
area = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
CInt
result <- Ptr GLArea -> IO CInt
gtk_gl_area_get_use_es Ptr GLArea
area'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GLAreaGetUseEsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaGetUseEsMethodInfo a signature where
overloadedMethod = gLAreaGetUseEs
instance O.OverloadedMethodInfo GLAreaGetUseEsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaGetUseEs",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> m ()
gLAreaMakeCurrent a
area = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr GLArea -> IO ()
gtk_gl_area_make_current Ptr GLArea
area'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaMakeCurrentMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaMakeCurrentMethodInfo a signature where
overloadedMethod = gLAreaMakeCurrent
instance O.OverloadedMethodInfo GLAreaMakeCurrentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaMakeCurrent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> m ()
gLAreaQueueRender a
area = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr GLArea -> IO ()
gtk_gl_area_queue_render Ptr GLArea
area'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaQueueRenderMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaQueueRenderMethodInfo a signature where
overloadedMethod = gLAreaQueueRender
instance O.OverloadedMethodInfo GLAreaQueueRenderMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaQueueRender",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> Bool -> m ()
gLAreaSetAutoRender a
area Bool
autoRender = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
let autoRender' :: CInt
autoRender' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
autoRender
Ptr GLArea -> CInt -> IO ()
gtk_gl_area_set_auto_render Ptr GLArea
area' CInt
autoRender'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaSetAutoRenderMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaSetAutoRenderMethodInfo a signature where
overloadedMethod = gLAreaSetAutoRender
instance O.OverloadedMethodInfo GLAreaSetAutoRenderMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaSetAutoRender",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> Maybe GError -> m ()
gLAreaSetError a
area Maybe GError
error_ = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr GError
maybeError_ <- case Maybe GError
error_ of
Maybe GError
Nothing -> Ptr GError -> IO (Ptr GError)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GError
forall a. Ptr a
nullPtr
Just GError
jError_ -> do
Ptr GError
jError_' <- GError -> IO (Ptr GError)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GError
jError_
Ptr GError -> IO (Ptr GError)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GError
jError_'
Ptr GLArea -> Ptr GError -> IO ()
gtk_gl_area_set_error Ptr GLArea
area' Ptr GError
maybeError_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
Maybe GError -> (GError -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe GError
error_ GError -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaSetErrorMethodInfo
instance (signature ~ (Maybe (GError) -> m ()), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaSetErrorMethodInfo a signature where
overloadedMethod = gLAreaSetError
instance O.OverloadedMethodInfo GLAreaSetErrorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaSetError",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v:gLAreaSetError"
}
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> Bool -> m ()
gLAreaSetHasDepthBuffer a
area Bool
hasDepthBuffer = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
let hasDepthBuffer' :: CInt
hasDepthBuffer' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
hasDepthBuffer
Ptr GLArea -> CInt -> IO ()
gtk_gl_area_set_has_depth_buffer Ptr GLArea
area' CInt
hasDepthBuffer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaSetHasDepthBufferMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaSetHasDepthBufferMethodInfo a signature where
overloadedMethod = gLAreaSetHasDepthBuffer
instance O.OverloadedMethodInfo GLAreaSetHasDepthBufferMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaSetHasDepthBuffer",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> Bool -> m ()
gLAreaSetHasStencilBuffer a
area Bool
hasStencilBuffer = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
let hasStencilBuffer' :: CInt
hasStencilBuffer' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
hasStencilBuffer
Ptr GLArea -> CInt -> IO ()
gtk_gl_area_set_has_stencil_buffer Ptr GLArea
area' CInt
hasStencilBuffer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaSetHasStencilBufferMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaSetHasStencilBufferMethodInfo a signature where
overloadedMethod = gLAreaSetHasStencilBuffer
instance O.OverloadedMethodInfo GLAreaSetHasStencilBufferMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaSetHasStencilBuffer",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> Int32 -> Int32 -> m ()
gLAreaSetRequiredVersion a
area Int32
major Int32
minor = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr GLArea -> GLAreaResizeCallback
gtk_gl_area_set_required_version Ptr GLArea
area' Int32
major Int32
minor
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaSetRequiredVersionMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaSetRequiredVersionMethodInfo a signature where
overloadedMethod = gLAreaSetRequiredVersion
instance O.OverloadedMethodInfo GLAreaSetRequiredVersionMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaSetRequiredVersion",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLArea a) =>
a -> Bool -> m ()
gLAreaSetUseEs a
area Bool
useEs = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GLArea
area' <- a -> IO (Ptr GLArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
let useEs' :: CInt
useEs' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
useEs
Ptr GLArea -> CInt -> IO ()
gtk_gl_area_set_use_es Ptr GLArea
area' CInt
useEs'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GLAreaSetUseEsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGLArea a) => O.OverloadedMethod GLAreaSetUseEsMethodInfo a signature where
overloadedMethod = gLAreaSetUseEs
instance O.OverloadedMethodInfo GLAreaSetUseEsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GLArea.gLAreaSetUseEs",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GLArea.html#v:gLAreaSetUseEs"
}
#endif