module GI.Gtk.Objects.GLArea
(
GLArea(..) ,
GLAreaK ,
toGLArea ,
noGLArea ,
gLAreaAttachBuffers ,
gLAreaGetAutoRender ,
gLAreaGetContext ,
gLAreaGetError ,
gLAreaGetHasAlpha ,
gLAreaGetHasDepthBuffer ,
gLAreaGetHasStencilBuffer ,
gLAreaGetRequiredVersion ,
gLAreaMakeCurrent ,
gLAreaNew ,
gLAreaQueueRender ,
gLAreaSetAutoRender ,
gLAreaSetError ,
gLAreaSetHasAlpha ,
gLAreaSetHasDepthBuffer ,
gLAreaSetHasStencilBuffer ,
gLAreaSetRequiredVersion ,
GLAreaAutoRenderPropertyInfo ,
constructGLAreaAutoRender ,
getGLAreaAutoRender ,
setGLAreaAutoRender ,
GLAreaContextPropertyInfo ,
getGLAreaContext ,
GLAreaHasAlphaPropertyInfo ,
constructGLAreaHasAlpha ,
getGLAreaHasAlpha ,
setGLAreaHasAlpha ,
GLAreaHasDepthBufferPropertyInfo ,
constructGLAreaHasDepthBuffer ,
getGLAreaHasDepthBuffer ,
setGLAreaHasDepthBuffer ,
GLAreaHasStencilBufferPropertyInfo ,
constructGLAreaHasStencilBuffer ,
getGLAreaHasStencilBuffer ,
setGLAreaHasStencilBuffer ,
GLAreaCreateContextCallback ,
GLAreaCreateContextCallbackC ,
GLAreaCreateContextSignalInfo ,
afterGLAreaCreateContext ,
gLAreaCreateContextCallbackWrapper ,
gLAreaCreateContextClosure ,
mkGLAreaCreateContextCallback ,
noGLAreaCreateContextCallback ,
onGLAreaCreateContext ,
GLAreaRenderCallback ,
GLAreaRenderCallbackC ,
GLAreaRenderSignalInfo ,
afterGLAreaRender ,
gLAreaRenderCallbackWrapper ,
gLAreaRenderClosure ,
mkGLAreaRenderCallback ,
noGLAreaRenderCallback ,
onGLAreaRender ,
GLAreaResizeCallback ,
GLAreaResizeCallbackC ,
GLAreaResizeSignalInfo ,
afterGLAreaResize ,
gLAreaResizeCallbackWrapper ,
gLAreaResizeClosure ,
mkGLAreaResizeCallback ,
noGLAreaResizeCallback ,
onGLAreaResize ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.Atk as Atk
import qualified GI.GObject as GObject
import qualified GI.Gdk as Gdk
newtype GLArea = GLArea (ForeignPtr GLArea)
foreign import ccall "gtk_gl_area_get_type"
c_gtk_gl_area_get_type :: IO GType
type instance ParentTypes GLArea = GLAreaParentTypes
type GLAreaParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable]
instance GObject GLArea where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_gl_area_get_type
class GObject o => GLAreaK o
instance (GObject o, IsDescendantOf GLArea o) => GLAreaK o
toGLArea :: GLAreaK o => o -> IO GLArea
toGLArea = unsafeCastTo GLArea
noGLArea :: Maybe GLArea
noGLArea = Nothing
type GLAreaCreateContextCallback =
IO Gdk.GLContext
noGLAreaCreateContextCallback :: Maybe GLAreaCreateContextCallback
noGLAreaCreateContextCallback = Nothing
type GLAreaCreateContextCallbackC =
Ptr () ->
Ptr () ->
IO (Ptr Gdk.GLContext)
foreign import ccall "wrapper"
mkGLAreaCreateContextCallback :: GLAreaCreateContextCallbackC -> IO (FunPtr GLAreaCreateContextCallbackC)
gLAreaCreateContextClosure :: GLAreaCreateContextCallback -> IO Closure
gLAreaCreateContextClosure cb = newCClosure =<< mkGLAreaCreateContextCallback wrapped
where wrapped = gLAreaCreateContextCallbackWrapper cb
gLAreaCreateContextCallbackWrapper ::
GLAreaCreateContextCallback ->
Ptr () ->
Ptr () ->
IO (Ptr Gdk.GLContext)
gLAreaCreateContextCallbackWrapper _cb _ _ = do
result <- _cb
result' <- refObject result
return result'
onGLAreaCreateContext :: (GObject a, MonadIO m) => a -> GLAreaCreateContextCallback -> m SignalHandlerId
onGLAreaCreateContext obj cb = liftIO $ connectGLAreaCreateContext obj cb SignalConnectBefore
afterGLAreaCreateContext :: (GObject a, MonadIO m) => a -> GLAreaCreateContextCallback -> m SignalHandlerId
afterGLAreaCreateContext obj cb = connectGLAreaCreateContext obj cb SignalConnectAfter
connectGLAreaCreateContext :: (GObject a, MonadIO m) =>
a -> GLAreaCreateContextCallback -> SignalConnectMode -> m SignalHandlerId
connectGLAreaCreateContext obj cb after = liftIO $ do
cb' <- mkGLAreaCreateContextCallback (gLAreaCreateContextCallbackWrapper cb)
connectSignalFunPtr obj "create-context" cb' after
type GLAreaRenderCallback =
Gdk.GLContext ->
IO Bool
noGLAreaRenderCallback :: Maybe GLAreaRenderCallback
noGLAreaRenderCallback = Nothing
type GLAreaRenderCallbackC =
Ptr () ->
Ptr Gdk.GLContext ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkGLAreaRenderCallback :: GLAreaRenderCallbackC -> IO (FunPtr GLAreaRenderCallbackC)
gLAreaRenderClosure :: GLAreaRenderCallback -> IO Closure
gLAreaRenderClosure cb = newCClosure =<< mkGLAreaRenderCallback wrapped
where wrapped = gLAreaRenderCallbackWrapper cb
gLAreaRenderCallbackWrapper ::
GLAreaRenderCallback ->
Ptr () ->
Ptr Gdk.GLContext ->
Ptr () ->
IO CInt
gLAreaRenderCallbackWrapper _cb _ context _ = do
context' <- (newObject Gdk.GLContext) context
result <- _cb context'
let result' = (fromIntegral . fromEnum) result
return result'
onGLAreaRender :: (GObject a, MonadIO m) => a -> GLAreaRenderCallback -> m SignalHandlerId
onGLAreaRender obj cb = liftIO $ connectGLAreaRender obj cb SignalConnectBefore
afterGLAreaRender :: (GObject a, MonadIO m) => a -> GLAreaRenderCallback -> m SignalHandlerId
afterGLAreaRender obj cb = connectGLAreaRender obj cb SignalConnectAfter
connectGLAreaRender :: (GObject a, MonadIO m) =>
a -> GLAreaRenderCallback -> SignalConnectMode -> m SignalHandlerId
connectGLAreaRender obj cb after = liftIO $ do
cb' <- mkGLAreaRenderCallback (gLAreaRenderCallbackWrapper cb)
connectSignalFunPtr obj "render" cb' after
type GLAreaResizeCallback =
Int32 ->
Int32 ->
IO ()
noGLAreaResizeCallback :: Maybe GLAreaResizeCallback
noGLAreaResizeCallback = Nothing
type GLAreaResizeCallbackC =
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkGLAreaResizeCallback :: GLAreaResizeCallbackC -> IO (FunPtr GLAreaResizeCallbackC)
gLAreaResizeClosure :: GLAreaResizeCallback -> IO Closure
gLAreaResizeClosure cb = newCClosure =<< mkGLAreaResizeCallback wrapped
where wrapped = gLAreaResizeCallbackWrapper cb
gLAreaResizeCallbackWrapper ::
GLAreaResizeCallback ->
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
gLAreaResizeCallbackWrapper _cb _ width height _ = do
_cb width height
onGLAreaResize :: (GObject a, MonadIO m) => a -> GLAreaResizeCallback -> m SignalHandlerId
onGLAreaResize obj cb = liftIO $ connectGLAreaResize obj cb SignalConnectBefore
afterGLAreaResize :: (GObject a, MonadIO m) => a -> GLAreaResizeCallback -> m SignalHandlerId
afterGLAreaResize obj cb = connectGLAreaResize obj cb SignalConnectAfter
connectGLAreaResize :: (GObject a, MonadIO m) =>
a -> GLAreaResizeCallback -> SignalConnectMode -> m SignalHandlerId
connectGLAreaResize obj cb after = liftIO $ do
cb' <- mkGLAreaResizeCallback (gLAreaResizeCallbackWrapper cb)
connectSignalFunPtr obj "resize" cb' after
getGLAreaAutoRender :: (MonadIO m, GLAreaK o) => o -> m Bool
getGLAreaAutoRender obj = liftIO $ getObjectPropertyBool obj "auto-render"
setGLAreaAutoRender :: (MonadIO m, GLAreaK o) => o -> Bool -> m ()
setGLAreaAutoRender obj val = liftIO $ setObjectPropertyBool obj "auto-render" val
constructGLAreaAutoRender :: Bool -> IO ([Char], GValue)
constructGLAreaAutoRender val = constructObjectPropertyBool "auto-render" val
data GLAreaAutoRenderPropertyInfo
instance AttrInfo GLAreaAutoRenderPropertyInfo where
type AttrAllowedOps GLAreaAutoRenderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GLAreaAutoRenderPropertyInfo = (~) Bool
type AttrBaseTypeConstraint GLAreaAutoRenderPropertyInfo = GLAreaK
type AttrGetType GLAreaAutoRenderPropertyInfo = Bool
type AttrLabel GLAreaAutoRenderPropertyInfo = "GLArea::auto-render"
attrGet _ = getGLAreaAutoRender
attrSet _ = setGLAreaAutoRender
attrConstruct _ = constructGLAreaAutoRender
getGLAreaContext :: (MonadIO m, GLAreaK o) => o -> m Gdk.GLContext
getGLAreaContext obj = liftIO $ getObjectPropertyObject obj "context" Gdk.GLContext
data GLAreaContextPropertyInfo
instance AttrInfo GLAreaContextPropertyInfo where
type AttrAllowedOps GLAreaContextPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint GLAreaContextPropertyInfo = (~) ()
type AttrBaseTypeConstraint GLAreaContextPropertyInfo = GLAreaK
type AttrGetType GLAreaContextPropertyInfo = Gdk.GLContext
type AttrLabel GLAreaContextPropertyInfo = "GLArea::context"
attrGet _ = getGLAreaContext
attrSet _ = undefined
attrConstruct _ = undefined
getGLAreaHasAlpha :: (MonadIO m, GLAreaK o) => o -> m Bool
getGLAreaHasAlpha obj = liftIO $ getObjectPropertyBool obj "has-alpha"
setGLAreaHasAlpha :: (MonadIO m, GLAreaK o) => o -> Bool -> m ()
setGLAreaHasAlpha obj val = liftIO $ setObjectPropertyBool obj "has-alpha" val
constructGLAreaHasAlpha :: Bool -> IO ([Char], GValue)
constructGLAreaHasAlpha val = constructObjectPropertyBool "has-alpha" val
data GLAreaHasAlphaPropertyInfo
instance AttrInfo GLAreaHasAlphaPropertyInfo where
type AttrAllowedOps GLAreaHasAlphaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GLAreaHasAlphaPropertyInfo = (~) Bool
type AttrBaseTypeConstraint GLAreaHasAlphaPropertyInfo = GLAreaK
type AttrGetType GLAreaHasAlphaPropertyInfo = Bool
type AttrLabel GLAreaHasAlphaPropertyInfo = "GLArea::has-alpha"
attrGet _ = getGLAreaHasAlpha
attrSet _ = setGLAreaHasAlpha
attrConstruct _ = constructGLAreaHasAlpha
getGLAreaHasDepthBuffer :: (MonadIO m, GLAreaK o) => o -> m Bool
getGLAreaHasDepthBuffer obj = liftIO $ getObjectPropertyBool obj "has-depth-buffer"
setGLAreaHasDepthBuffer :: (MonadIO m, GLAreaK o) => o -> Bool -> m ()
setGLAreaHasDepthBuffer obj val = liftIO $ setObjectPropertyBool obj "has-depth-buffer" val
constructGLAreaHasDepthBuffer :: Bool -> IO ([Char], GValue)
constructGLAreaHasDepthBuffer val = constructObjectPropertyBool "has-depth-buffer" val
data GLAreaHasDepthBufferPropertyInfo
instance AttrInfo GLAreaHasDepthBufferPropertyInfo where
type AttrAllowedOps GLAreaHasDepthBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GLAreaHasDepthBufferPropertyInfo = (~) Bool
type AttrBaseTypeConstraint GLAreaHasDepthBufferPropertyInfo = GLAreaK
type AttrGetType GLAreaHasDepthBufferPropertyInfo = Bool
type AttrLabel GLAreaHasDepthBufferPropertyInfo = "GLArea::has-depth-buffer"
attrGet _ = getGLAreaHasDepthBuffer
attrSet _ = setGLAreaHasDepthBuffer
attrConstruct _ = constructGLAreaHasDepthBuffer
getGLAreaHasStencilBuffer :: (MonadIO m, GLAreaK o) => o -> m Bool
getGLAreaHasStencilBuffer obj = liftIO $ getObjectPropertyBool obj "has-stencil-buffer"
setGLAreaHasStencilBuffer :: (MonadIO m, GLAreaK o) => o -> Bool -> m ()
setGLAreaHasStencilBuffer obj val = liftIO $ setObjectPropertyBool obj "has-stencil-buffer" val
constructGLAreaHasStencilBuffer :: Bool -> IO ([Char], GValue)
constructGLAreaHasStencilBuffer val = constructObjectPropertyBool "has-stencil-buffer" val
data GLAreaHasStencilBufferPropertyInfo
instance AttrInfo GLAreaHasStencilBufferPropertyInfo where
type AttrAllowedOps GLAreaHasStencilBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GLAreaHasStencilBufferPropertyInfo = (~) Bool
type AttrBaseTypeConstraint GLAreaHasStencilBufferPropertyInfo = GLAreaK
type AttrGetType GLAreaHasStencilBufferPropertyInfo = Bool
type AttrLabel GLAreaHasStencilBufferPropertyInfo = "GLArea::has-stencil-buffer"
attrGet _ = getGLAreaHasStencilBuffer
attrSet _ = setGLAreaHasStencilBuffer
attrConstruct _ = constructGLAreaHasStencilBuffer
type instance AttributeList GLArea = GLAreaAttributeList
type GLAreaAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("auto-render", GLAreaAutoRenderPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("context", GLAreaContextPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-alpha", GLAreaHasAlphaPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-depth-buffer", GLAreaHasDepthBufferPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-stencil-buffer", GLAreaHasStencilBufferPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)])
data GLAreaCreateContextSignalInfo
instance SignalInfo GLAreaCreateContextSignalInfo where
type HaskellCallbackType GLAreaCreateContextSignalInfo = GLAreaCreateContextCallback
connectSignal _ = connectGLAreaCreateContext
data GLAreaRenderSignalInfo
instance SignalInfo GLAreaRenderSignalInfo where
type HaskellCallbackType GLAreaRenderSignalInfo = GLAreaRenderCallback
connectSignal _ = connectGLAreaRender
data GLAreaResizeSignalInfo
instance SignalInfo GLAreaResizeSignalInfo where
type HaskellCallbackType GLAreaResizeSignalInfo = GLAreaResizeCallback
connectSignal _ = connectGLAreaResize
type instance SignalList GLArea = GLAreaSignalList
type GLAreaSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-context", GLAreaCreateContextSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("render", GLAreaRenderSignalInfo), '("resize", GLAreaResizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_gl_area_new" gtk_gl_area_new ::
IO (Ptr GLArea)
gLAreaNew ::
(MonadIO m) =>
m GLArea
gLAreaNew = liftIO $ do
result <- gtk_gl_area_new
checkUnexpectedReturnNULL "gtk_gl_area_new" result
result' <- (wrapObject GLArea) result
return result'
foreign import ccall "gtk_gl_area_attach_buffers" gtk_gl_area_attach_buffers ::
Ptr GLArea ->
IO ()
gLAreaAttachBuffers ::
(MonadIO m, GLAreaK a) =>
a ->
m ()
gLAreaAttachBuffers _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_gl_area_attach_buffers _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_gl_area_get_auto_render" gtk_gl_area_get_auto_render ::
Ptr GLArea ->
IO CInt
gLAreaGetAutoRender ::
(MonadIO m, GLAreaK a) =>
a ->
m Bool
gLAreaGetAutoRender _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gl_area_get_auto_render _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_gl_area_get_context" gtk_gl_area_get_context ::
Ptr GLArea ->
IO (Ptr Gdk.GLContext)
gLAreaGetContext ::
(MonadIO m, GLAreaK a) =>
a ->
m Gdk.GLContext
gLAreaGetContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gl_area_get_context _obj'
checkUnexpectedReturnNULL "gtk_gl_area_get_context" result
result' <- (newObject Gdk.GLContext) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_gl_area_get_error" gtk_gl_area_get_error ::
Ptr GLArea ->
IO (Ptr GError)
gLAreaGetError ::
(MonadIO m, GLAreaK a) =>
a ->
m GError
gLAreaGetError _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gl_area_get_error _obj'
checkUnexpectedReturnNULL "gtk_gl_area_get_error" result
result' <- (newBoxed GError) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_gl_area_get_has_alpha" gtk_gl_area_get_has_alpha ::
Ptr GLArea ->
IO CInt
gLAreaGetHasAlpha ::
(MonadIO m, GLAreaK a) =>
a ->
m Bool
gLAreaGetHasAlpha _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gl_area_get_has_alpha _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_gl_area_get_has_depth_buffer" gtk_gl_area_get_has_depth_buffer ::
Ptr GLArea ->
IO CInt
gLAreaGetHasDepthBuffer ::
(MonadIO m, GLAreaK a) =>
a ->
m Bool
gLAreaGetHasDepthBuffer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gl_area_get_has_depth_buffer _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_gl_area_get_has_stencil_buffer" gtk_gl_area_get_has_stencil_buffer ::
Ptr GLArea ->
IO CInt
gLAreaGetHasStencilBuffer ::
(MonadIO m, GLAreaK a) =>
a ->
m Bool
gLAreaGetHasStencilBuffer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_gl_area_get_has_stencil_buffer _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_gl_area_get_required_version" gtk_gl_area_get_required_version ::
Ptr GLArea ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
gLAreaGetRequiredVersion ::
(MonadIO m, GLAreaK a) =>
a ->
m (Int32,Int32)
gLAreaGetRequiredVersion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
major <- allocMem :: IO (Ptr Int32)
minor <- allocMem :: IO (Ptr Int32)
gtk_gl_area_get_required_version _obj' major minor
major' <- peek major
minor' <- peek minor
touchManagedPtr _obj
freeMem major
freeMem minor
return (major', minor')
foreign import ccall "gtk_gl_area_make_current" gtk_gl_area_make_current ::
Ptr GLArea ->
IO ()
gLAreaMakeCurrent ::
(MonadIO m, GLAreaK a) =>
a ->
m ()
gLAreaMakeCurrent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_gl_area_make_current _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_gl_area_queue_render" gtk_gl_area_queue_render ::
Ptr GLArea ->
IO ()
gLAreaQueueRender ::
(MonadIO m, GLAreaK a) =>
a ->
m ()
gLAreaQueueRender _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_gl_area_queue_render _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_gl_area_set_auto_render" gtk_gl_area_set_auto_render ::
Ptr GLArea ->
CInt ->
IO ()
gLAreaSetAutoRender ::
(MonadIO m, GLAreaK a) =>
a ->
Bool ->
m ()
gLAreaSetAutoRender _obj auto_render = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let auto_render' = (fromIntegral . fromEnum) auto_render
gtk_gl_area_set_auto_render _obj' auto_render'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_gl_area_set_error" gtk_gl_area_set_error ::
Ptr GLArea ->
Ptr GError ->
IO ()
gLAreaSetError ::
(MonadIO m, GLAreaK a) =>
a ->
Maybe (GError) ->
m ()
gLAreaSetError _obj error_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeError_ <- case error_ of
Nothing -> return nullPtr
Just jError_ -> do
let jError_' = unsafeManagedPtrGetPtr jError_
return jError_'
gtk_gl_area_set_error _obj' maybeError_
touchManagedPtr _obj
whenJust error_ touchManagedPtr
return ()
foreign import ccall "gtk_gl_area_set_has_alpha" gtk_gl_area_set_has_alpha ::
Ptr GLArea ->
CInt ->
IO ()
gLAreaSetHasAlpha ::
(MonadIO m, GLAreaK a) =>
a ->
Bool ->
m ()
gLAreaSetHasAlpha _obj has_alpha = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_alpha' = (fromIntegral . fromEnum) has_alpha
gtk_gl_area_set_has_alpha _obj' has_alpha'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_gl_area_set_has_depth_buffer" gtk_gl_area_set_has_depth_buffer ::
Ptr GLArea ->
CInt ->
IO ()
gLAreaSetHasDepthBuffer ::
(MonadIO m, GLAreaK a) =>
a ->
Bool ->
m ()
gLAreaSetHasDepthBuffer _obj has_depth_buffer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_depth_buffer' = (fromIntegral . fromEnum) has_depth_buffer
gtk_gl_area_set_has_depth_buffer _obj' has_depth_buffer'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_gl_area_set_has_stencil_buffer" gtk_gl_area_set_has_stencil_buffer ::
Ptr GLArea ->
CInt ->
IO ()
gLAreaSetHasStencilBuffer ::
(MonadIO m, GLAreaK a) =>
a ->
Bool ->
m ()
gLAreaSetHasStencilBuffer _obj has_stencil_buffer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let has_stencil_buffer' = (fromIntegral . fromEnum) has_stencil_buffer
gtk_gl_area_set_has_stencil_buffer _obj' has_stencil_buffer'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_gl_area_set_required_version" gtk_gl_area_set_required_version ::
Ptr GLArea ->
Int32 ->
Int32 ->
IO ()
gLAreaSetRequiredVersion ::
(MonadIO m, GLAreaK a) =>
a ->
Int32 ->
Int32 ->
m ()
gLAreaSetRequiredVersion _obj major minor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_gl_area_set_required_version _obj' major minor
touchManagedPtr _obj
return ()