{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Objects.GLTextureBuilder
(
GLTextureBuilder(..) ,
IsGLTextureBuilder ,
toGLTextureBuilder ,
#if defined(ENABLE_OVERLOADING)
ResolveGLTextureBuilderMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderBuildMethodInfo ,
#endif
gLTextureBuilderBuild ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderGetContextMethodInfo ,
#endif
gLTextureBuilderGetContext ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderGetFormatMethodInfo ,
#endif
gLTextureBuilderGetFormat ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderGetHasMipmapMethodInfo ,
#endif
gLTextureBuilderGetHasMipmap ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderGetHeightMethodInfo ,
#endif
gLTextureBuilderGetHeight ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderGetIdMethodInfo ,
#endif
gLTextureBuilderGetId ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderGetSyncMethodInfo ,
#endif
gLTextureBuilderGetSync ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderGetUpdateRegionMethodInfo,
#endif
gLTextureBuilderGetUpdateRegion ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderGetUpdateTextureMethodInfo,
#endif
gLTextureBuilderGetUpdateTexture ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderGetWidthMethodInfo ,
#endif
gLTextureBuilderGetWidth ,
gLTextureBuilderNew ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderSetContextMethodInfo ,
#endif
gLTextureBuilderSetContext ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderSetFormatMethodInfo ,
#endif
gLTextureBuilderSetFormat ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderSetHasMipmapMethodInfo ,
#endif
gLTextureBuilderSetHasMipmap ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderSetHeightMethodInfo ,
#endif
gLTextureBuilderSetHeight ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderSetIdMethodInfo ,
#endif
gLTextureBuilderSetId ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderSetSyncMethodInfo ,
#endif
gLTextureBuilderSetSync ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderSetUpdateRegionMethodInfo,
#endif
gLTextureBuilderSetUpdateRegion ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderSetUpdateTextureMethodInfo,
#endif
gLTextureBuilderSetUpdateTexture ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderSetWidthMethodInfo ,
#endif
gLTextureBuilderSetWidth ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderContextPropertyInfo ,
#endif
clearGLTextureBuilderContext ,
constructGLTextureBuilderContext ,
#if defined(ENABLE_OVERLOADING)
gLTextureBuilderContext ,
#endif
getGLTextureBuilderContext ,
setGLTextureBuilderContext ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderFormatPropertyInfo ,
#endif
constructGLTextureBuilderFormat ,
#if defined(ENABLE_OVERLOADING)
gLTextureBuilderFormat ,
#endif
getGLTextureBuilderFormat ,
setGLTextureBuilderFormat ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderHasMipmapPropertyInfo ,
#endif
constructGLTextureBuilderHasMipmap ,
#if defined(ENABLE_OVERLOADING)
gLTextureBuilderHasMipmap ,
#endif
getGLTextureBuilderHasMipmap ,
setGLTextureBuilderHasMipmap ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderHeightPropertyInfo ,
#endif
constructGLTextureBuilderHeight ,
#if defined(ENABLE_OVERLOADING)
gLTextureBuilderHeight ,
#endif
getGLTextureBuilderHeight ,
setGLTextureBuilderHeight ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderIdPropertyInfo ,
#endif
constructGLTextureBuilderId ,
#if defined(ENABLE_OVERLOADING)
gLTextureBuilderId ,
#endif
getGLTextureBuilderId ,
setGLTextureBuilderId ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderSyncPropertyInfo ,
#endif
constructGLTextureBuilderSync ,
#if defined(ENABLE_OVERLOADING)
gLTextureBuilderSync ,
#endif
getGLTextureBuilderSync ,
setGLTextureBuilderSync ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderUpdateRegionPropertyInfo,
#endif
clearGLTextureBuilderUpdateRegion ,
constructGLTextureBuilderUpdateRegion ,
#if defined(ENABLE_OVERLOADING)
gLTextureBuilderUpdateRegion ,
#endif
getGLTextureBuilderUpdateRegion ,
setGLTextureBuilderUpdateRegion ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderUpdateTexturePropertyInfo,
#endif
clearGLTextureBuilderUpdateTexture ,
constructGLTextureBuilderUpdateTexture ,
#if defined(ENABLE_OVERLOADING)
gLTextureBuilderUpdateTexture ,
#endif
getGLTextureBuilderUpdateTexture ,
setGLTextureBuilderUpdateTexture ,
#if defined(ENABLE_OVERLOADING)
GLTextureBuilderWidthPropertyInfo ,
#endif
constructGLTextureBuilderWidth ,
#if defined(ENABLE_OVERLOADING)
gLTextureBuilderWidth ,
#endif
getGLTextureBuilderWidth ,
setGLTextureBuilderWidth ,
) 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.GHashTable as B.GHT
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.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Cairo.Enums as Cairo.Enums
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.Region as Cairo.Region
import qualified GI.Cairo.Structs.Surface as Cairo.Surface
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GLib.Structs.String as GLib.String
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gdk.Enums as Gdk.Enums
import {-# SOURCE #-} qualified GI.Gdk.Flags as Gdk.Flags
import {-# SOURCE #-} qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import {-# SOURCE #-} qualified GI.Gdk.Objects.AppLaunchContext as Gdk.AppLaunchContext
import {-# SOURCE #-} qualified GI.Gdk.Objects.CairoContext as Gdk.CairoContext
import {-# SOURCE #-} qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import {-# SOURCE #-} qualified GI.Gdk.Objects.ContentProvider as Gdk.ContentProvider
import {-# SOURCE #-} qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import {-# SOURCE #-} qualified GI.Gdk.Objects.Device as Gdk.Device
import {-# SOURCE #-} qualified GI.Gdk.Objects.DeviceTool as Gdk.DeviceTool
import {-# SOURCE #-} qualified GI.Gdk.Objects.Display as Gdk.Display
import {-# SOURCE #-} qualified GI.Gdk.Objects.DrawContext as Gdk.DrawContext
import {-# SOURCE #-} qualified GI.Gdk.Objects.Event as Gdk.Event
import {-# SOURCE #-} qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import {-# SOURCE #-} qualified GI.Gdk.Objects.GLContext as Gdk.GLContext
import {-# SOURCE #-} qualified GI.Gdk.Objects.Monitor as Gdk.Monitor
import {-# SOURCE #-} qualified GI.Gdk.Objects.Seat as Gdk.Seat
import {-# SOURCE #-} qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
import {-# SOURCE #-} qualified GI.Gdk.Objects.Surface as Gdk.Surface
import {-# SOURCE #-} qualified GI.Gdk.Objects.Texture as Gdk.Texture
import {-# SOURCE #-} qualified GI.Gdk.Objects.VulkanContext as Gdk.VulkanContext
import {-# SOURCE #-} qualified GI.Gdk.Structs.ContentFormats as Gdk.ContentFormats
import {-# SOURCE #-} qualified GI.Gdk.Structs.DmabufFormats as Gdk.DmabufFormats
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventSequence as Gdk.EventSequence
import {-# SOURCE #-} qualified GI.Gdk.Structs.FrameTimings as Gdk.FrameTimings
import {-# SOURCE #-} qualified GI.Gdk.Structs.KeymapKey as Gdk.KeymapKey
import {-# SOURCE #-} qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import {-# SOURCE #-} qualified GI.Gdk.Structs.TimeCoord as Gdk.TimeCoord
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Gio.Callbacks as Gio.Callbacks
import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import qualified GI.Gio.Interfaces.File as Gio.File
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.Initable as Gio.Initable
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Gio.Interfaces.LoadableIcon as Gio.LoadableIcon
import qualified GI.Gio.Objects.AppLaunchContext as Gio.AppLaunchContext
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.InputStream as Gio.InputStream
import qualified GI.Gio.Objects.OutputStream as Gio.OutputStream
import qualified GI.Pango.Enums as Pango.Enums
#else
import qualified GI.Cairo.Structs.Region as Cairo.Region
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gdk.Enums as Gdk.Enums
import {-# SOURCE #-} qualified GI.Gdk.Objects.GLContext as Gdk.GLContext
import {-# SOURCE #-} qualified GI.Gdk.Objects.Texture as Gdk.Texture
#endif
newtype GLTextureBuilder = GLTextureBuilder (SP.ManagedPtr GLTextureBuilder)
deriving (GLTextureBuilder -> GLTextureBuilder -> Bool
(GLTextureBuilder -> GLTextureBuilder -> Bool)
-> (GLTextureBuilder -> GLTextureBuilder -> Bool)
-> Eq GLTextureBuilder
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GLTextureBuilder -> GLTextureBuilder -> Bool
== :: GLTextureBuilder -> GLTextureBuilder -> Bool
$c/= :: GLTextureBuilder -> GLTextureBuilder -> Bool
/= :: GLTextureBuilder -> GLTextureBuilder -> Bool
Eq)
instance SP.ManagedPtrNewtype GLTextureBuilder where
toManagedPtr :: GLTextureBuilder -> ManagedPtr GLTextureBuilder
toManagedPtr (GLTextureBuilder ManagedPtr GLTextureBuilder
p) = ManagedPtr GLTextureBuilder
p
foreign import ccall "gdk_gl_texture_builder_get_type"
c_gdk_gl_texture_builder_get_type :: IO B.Types.GType
instance B.Types.TypedObject GLTextureBuilder where
glibType :: IO GType
glibType = IO GType
c_gdk_gl_texture_builder_get_type
instance B.Types.GObject GLTextureBuilder
class (SP.GObject o, O.IsDescendantOf GLTextureBuilder o) => IsGLTextureBuilder o
instance (SP.GObject o, O.IsDescendantOf GLTextureBuilder o) => IsGLTextureBuilder o
instance O.HasParentTypes GLTextureBuilder
type instance O.ParentTypes GLTextureBuilder = '[GObject.Object.Object]
toGLTextureBuilder :: (MIO.MonadIO m, IsGLTextureBuilder o) => o -> m GLTextureBuilder
toGLTextureBuilder :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> m GLTextureBuilder
toGLTextureBuilder = IO GLTextureBuilder -> m GLTextureBuilder
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO GLTextureBuilder -> m GLTextureBuilder)
-> (o -> IO GLTextureBuilder) -> o -> m GLTextureBuilder
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr GLTextureBuilder -> GLTextureBuilder)
-> o -> IO GLTextureBuilder
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr GLTextureBuilder -> GLTextureBuilder
GLTextureBuilder
instance B.GValue.IsGValue (Maybe GLTextureBuilder) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gdk_gl_texture_builder_get_type
gvalueSet_ :: Ptr GValue -> Maybe GLTextureBuilder -> IO ()
gvalueSet_ Ptr GValue
gv Maybe GLTextureBuilder
P.Nothing = Ptr GValue -> Ptr GLTextureBuilder -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr GLTextureBuilder
forall a. Ptr a
FP.nullPtr :: FP.Ptr GLTextureBuilder)
gvalueSet_ Ptr GValue
gv (P.Just GLTextureBuilder
obj) = GLTextureBuilder -> (Ptr GLTextureBuilder -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr GLTextureBuilder
obj (Ptr GValue -> Ptr GLTextureBuilder -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe GLTextureBuilder)
gvalueGet_ Ptr GValue
gv = do
ptr <- Ptr GValue -> IO (Ptr GLTextureBuilder)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr GLTextureBuilder)
if ptr /= FP.nullPtr
then P.Just <$> B.ManagedPtr.newObject GLTextureBuilder ptr
else return P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveGLTextureBuilderMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveGLTextureBuilderMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveGLTextureBuilderMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveGLTextureBuilderMethod "build" o = GLTextureBuilderBuildMethodInfo
ResolveGLTextureBuilderMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveGLTextureBuilderMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveGLTextureBuilderMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveGLTextureBuilderMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveGLTextureBuilderMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveGLTextureBuilderMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveGLTextureBuilderMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveGLTextureBuilderMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveGLTextureBuilderMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveGLTextureBuilderMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveGLTextureBuilderMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveGLTextureBuilderMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveGLTextureBuilderMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveGLTextureBuilderMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveGLTextureBuilderMethod "getContext" o = GLTextureBuilderGetContextMethodInfo
ResolveGLTextureBuilderMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveGLTextureBuilderMethod "getFormat" o = GLTextureBuilderGetFormatMethodInfo
ResolveGLTextureBuilderMethod "getHasMipmap" o = GLTextureBuilderGetHasMipmapMethodInfo
ResolveGLTextureBuilderMethod "getHeight" o = GLTextureBuilderGetHeightMethodInfo
ResolveGLTextureBuilderMethod "getId" o = GLTextureBuilderGetIdMethodInfo
ResolveGLTextureBuilderMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveGLTextureBuilderMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveGLTextureBuilderMethod "getSync" o = GLTextureBuilderGetSyncMethodInfo
ResolveGLTextureBuilderMethod "getUpdateRegion" o = GLTextureBuilderGetUpdateRegionMethodInfo
ResolveGLTextureBuilderMethod "getUpdateTexture" o = GLTextureBuilderGetUpdateTextureMethodInfo
ResolveGLTextureBuilderMethod "getWidth" o = GLTextureBuilderGetWidthMethodInfo
ResolveGLTextureBuilderMethod "setContext" o = GLTextureBuilderSetContextMethodInfo
ResolveGLTextureBuilderMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveGLTextureBuilderMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveGLTextureBuilderMethod "setFormat" o = GLTextureBuilderSetFormatMethodInfo
ResolveGLTextureBuilderMethod "setHasMipmap" o = GLTextureBuilderSetHasMipmapMethodInfo
ResolveGLTextureBuilderMethod "setHeight" o = GLTextureBuilderSetHeightMethodInfo
ResolveGLTextureBuilderMethod "setId" o = GLTextureBuilderSetIdMethodInfo
ResolveGLTextureBuilderMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveGLTextureBuilderMethod "setSync" o = GLTextureBuilderSetSyncMethodInfo
ResolveGLTextureBuilderMethod "setUpdateRegion" o = GLTextureBuilderSetUpdateRegionMethodInfo
ResolveGLTextureBuilderMethod "setUpdateTexture" o = GLTextureBuilderSetUpdateTextureMethodInfo
ResolveGLTextureBuilderMethod "setWidth" o = GLTextureBuilderSetWidthMethodInfo
ResolveGLTextureBuilderMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveGLTextureBuilderMethod t GLTextureBuilder, O.OverloadedMethod info GLTextureBuilder p) => OL.IsLabel t (GLTextureBuilder -> 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 ~ ResolveGLTextureBuilderMethod t GLTextureBuilder, O.OverloadedMethod info GLTextureBuilder p, R.HasField t GLTextureBuilder p) => R.HasField t GLTextureBuilder p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveGLTextureBuilderMethod t GLTextureBuilder, O.OverloadedMethodInfo info GLTextureBuilder) => OL.IsLabel t (O.MethodProxy info GLTextureBuilder) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getGLTextureBuilderContext :: (MonadIO m, IsGLTextureBuilder o) => o -> m (Maybe Gdk.GLContext.GLContext)
getGLTextureBuilderContext :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> m (Maybe GLContext)
getGLTextureBuilderContext o
obj = IO (Maybe GLContext) -> m (Maybe GLContext)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe GLContext) -> m (Maybe GLContext))
-> IO (Maybe GLContext) -> m (Maybe GLContext)
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
setGLTextureBuilderContext :: (MonadIO m, IsGLTextureBuilder o, Gdk.GLContext.IsGLContext a) => o -> a -> m ()
setGLTextureBuilderContext :: forall (m :: * -> *) o a.
(MonadIO m, IsGLTextureBuilder o, IsGLContext a) =>
o -> a -> m ()
setGLTextureBuilderContext o
obj a
val = IO () -> m ()
forall a. IO a -> m a
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 -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"context" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructGLTextureBuilderContext :: (IsGLTextureBuilder o, MIO.MonadIO m, Gdk.GLContext.IsGLContext a) => a -> m (GValueConstruct o)
constructGLTextureBuilderContext :: forall o (m :: * -> *) a.
(IsGLTextureBuilder o, MonadIO m, IsGLContext a) =>
a -> m (GValueConstruct o)
constructGLTextureBuilderContext a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"context" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearGLTextureBuilderContext :: (MonadIO m, IsGLTextureBuilder o) => o -> m ()
clearGLTextureBuilderContext :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> m ()
clearGLTextureBuilderContext o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe GLContext -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"context" (Maybe GLContext
forall a. Maybe a
Nothing :: Maybe Gdk.GLContext.GLContext)
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderContextPropertyInfo
instance AttrInfo GLTextureBuilderContextPropertyInfo where
type AttrAllowedOps GLTextureBuilderContextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint GLTextureBuilderContextPropertyInfo = IsGLTextureBuilder
type AttrSetTypeConstraint GLTextureBuilderContextPropertyInfo = Gdk.GLContext.IsGLContext
type AttrTransferTypeConstraint GLTextureBuilderContextPropertyInfo = Gdk.GLContext.IsGLContext
type AttrTransferType GLTextureBuilderContextPropertyInfo = Gdk.GLContext.GLContext
type AttrGetType GLTextureBuilderContextPropertyInfo = (Maybe Gdk.GLContext.GLContext)
type AttrLabel GLTextureBuilderContextPropertyInfo = "context"
type AttrOrigin GLTextureBuilderContextPropertyInfo = GLTextureBuilder
attrGet = getGLTextureBuilderContext
attrSet = setGLTextureBuilderContext
attrTransfer _ v = do
unsafeCastTo Gdk.GLContext.GLContext v
attrConstruct = constructGLTextureBuilderContext
attrClear = clearGLTextureBuilderContext
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.context"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#g:attr:context"
})
#endif
getGLTextureBuilderFormat :: (MonadIO m, IsGLTextureBuilder o) => o -> m Gdk.Enums.MemoryFormat
getGLTextureBuilderFormat :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> m MemoryFormat
getGLTextureBuilderFormat o
obj = IO MemoryFormat -> m MemoryFormat
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO MemoryFormat -> m MemoryFormat)
-> IO MemoryFormat -> m MemoryFormat
forall a b. (a -> b) -> a -> b
$ o -> String -> IO MemoryFormat
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"format"
setGLTextureBuilderFormat :: (MonadIO m, IsGLTextureBuilder o) => o -> Gdk.Enums.MemoryFormat -> m ()
setGLTextureBuilderFormat :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> MemoryFormat -> m ()
setGLTextureBuilderFormat o
obj MemoryFormat
val = IO () -> m ()
forall a. IO a -> m a
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 -> MemoryFormat -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"format" MemoryFormat
val
constructGLTextureBuilderFormat :: (IsGLTextureBuilder o, MIO.MonadIO m) => Gdk.Enums.MemoryFormat -> m (GValueConstruct o)
constructGLTextureBuilderFormat :: forall o (m :: * -> *).
(IsGLTextureBuilder o, MonadIO m) =>
MemoryFormat -> m (GValueConstruct o)
constructGLTextureBuilderFormat MemoryFormat
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 -> MemoryFormat -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"format" MemoryFormat
val
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderFormatPropertyInfo
instance AttrInfo GLTextureBuilderFormatPropertyInfo where
type AttrAllowedOps GLTextureBuilderFormatPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GLTextureBuilderFormatPropertyInfo = IsGLTextureBuilder
type AttrSetTypeConstraint GLTextureBuilderFormatPropertyInfo = (~) Gdk.Enums.MemoryFormat
type AttrTransferTypeConstraint GLTextureBuilderFormatPropertyInfo = (~) Gdk.Enums.MemoryFormat
type AttrTransferType GLTextureBuilderFormatPropertyInfo = Gdk.Enums.MemoryFormat
type AttrGetType GLTextureBuilderFormatPropertyInfo = Gdk.Enums.MemoryFormat
type AttrLabel GLTextureBuilderFormatPropertyInfo = "format"
type AttrOrigin GLTextureBuilderFormatPropertyInfo = GLTextureBuilder
attrGet = getGLTextureBuilderFormat
attrSet = setGLTextureBuilderFormat
attrTransfer _ v = do
return v
attrConstruct = constructGLTextureBuilderFormat
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.format"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#g:attr:format"
})
#endif
getGLTextureBuilderHasMipmap :: (MonadIO m, IsGLTextureBuilder o) => o -> m Bool
getGLTextureBuilderHasMipmap :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> m Bool
getGLTextureBuilderHasMipmap o
obj = IO Bool -> m Bool
forall a. IO a -> m a
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-mipmap"
setGLTextureBuilderHasMipmap :: (MonadIO m, IsGLTextureBuilder o) => o -> Bool -> m ()
setGLTextureBuilderHasMipmap :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> Bool -> m ()
setGLTextureBuilderHasMipmap o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
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-mipmap" Bool
val
constructGLTextureBuilderHasMipmap :: (IsGLTextureBuilder o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructGLTextureBuilderHasMipmap :: forall o (m :: * -> *).
(IsGLTextureBuilder o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructGLTextureBuilderHasMipmap Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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-mipmap" Bool
val
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderHasMipmapPropertyInfo
instance AttrInfo GLTextureBuilderHasMipmapPropertyInfo where
type AttrAllowedOps GLTextureBuilderHasMipmapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GLTextureBuilderHasMipmapPropertyInfo = IsGLTextureBuilder
type AttrSetTypeConstraint GLTextureBuilderHasMipmapPropertyInfo = (~) Bool
type AttrTransferTypeConstraint GLTextureBuilderHasMipmapPropertyInfo = (~) Bool
type AttrTransferType GLTextureBuilderHasMipmapPropertyInfo = Bool
type AttrGetType GLTextureBuilderHasMipmapPropertyInfo = Bool
type AttrLabel GLTextureBuilderHasMipmapPropertyInfo = "has-mipmap"
type AttrOrigin GLTextureBuilderHasMipmapPropertyInfo = GLTextureBuilder
attrGet = getGLTextureBuilderHasMipmap
attrSet = setGLTextureBuilderHasMipmap
attrTransfer _ v = do
return v
attrConstruct = constructGLTextureBuilderHasMipmap
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.hasMipmap"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#g:attr:hasMipmap"
})
#endif
getGLTextureBuilderHeight :: (MonadIO m, IsGLTextureBuilder o) => o -> m Int32
getGLTextureBuilderHeight :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> m Int32
getGLTextureBuilderHeight o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"height"
setGLTextureBuilderHeight :: (MonadIO m, IsGLTextureBuilder o) => o -> Int32 -> m ()
setGLTextureBuilderHeight :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> Int32 -> m ()
setGLTextureBuilderHeight o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"height" Int32
val
constructGLTextureBuilderHeight :: (IsGLTextureBuilder o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructGLTextureBuilderHeight :: forall o (m :: * -> *).
(IsGLTextureBuilder o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructGLTextureBuilderHeight Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"height" Int32
val
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderHeightPropertyInfo
instance AttrInfo GLTextureBuilderHeightPropertyInfo where
type AttrAllowedOps GLTextureBuilderHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GLTextureBuilderHeightPropertyInfo = IsGLTextureBuilder
type AttrSetTypeConstraint GLTextureBuilderHeightPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GLTextureBuilderHeightPropertyInfo = (~) Int32
type AttrTransferType GLTextureBuilderHeightPropertyInfo = Int32
type AttrGetType GLTextureBuilderHeightPropertyInfo = Int32
type AttrLabel GLTextureBuilderHeightPropertyInfo = "height"
type AttrOrigin GLTextureBuilderHeightPropertyInfo = GLTextureBuilder
attrGet = getGLTextureBuilderHeight
attrSet = setGLTextureBuilderHeight
attrTransfer _ v = do
return v
attrConstruct = constructGLTextureBuilderHeight
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.height"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#g:attr:height"
})
#endif
getGLTextureBuilderId :: (MonadIO m, IsGLTextureBuilder o) => o -> m Word32
getGLTextureBuilderId :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> m Word32
getGLTextureBuilderId o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"id"
setGLTextureBuilderId :: (MonadIO m, IsGLTextureBuilder o) => o -> Word32 -> m ()
setGLTextureBuilderId :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> Word32 -> m ()
setGLTextureBuilderId o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"id" Word32
val
constructGLTextureBuilderId :: (IsGLTextureBuilder o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructGLTextureBuilderId :: forall o (m :: * -> *).
(IsGLTextureBuilder o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructGLTextureBuilderId Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"id" Word32
val
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderIdPropertyInfo
instance AttrInfo GLTextureBuilderIdPropertyInfo where
type AttrAllowedOps GLTextureBuilderIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GLTextureBuilderIdPropertyInfo = IsGLTextureBuilder
type AttrSetTypeConstraint GLTextureBuilderIdPropertyInfo = (~) Word32
type AttrTransferTypeConstraint GLTextureBuilderIdPropertyInfo = (~) Word32
type AttrTransferType GLTextureBuilderIdPropertyInfo = Word32
type AttrGetType GLTextureBuilderIdPropertyInfo = Word32
type AttrLabel GLTextureBuilderIdPropertyInfo = "id"
type AttrOrigin GLTextureBuilderIdPropertyInfo = GLTextureBuilder
attrGet = getGLTextureBuilderId
attrSet = setGLTextureBuilderId
attrTransfer _ v = do
return v
attrConstruct = constructGLTextureBuilderId
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.id"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#g:attr:id"
})
#endif
getGLTextureBuilderSync :: (MonadIO m, IsGLTextureBuilder o) => o -> m (Ptr ())
getGLTextureBuilderSync :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> m (Ptr ())
getGLTextureBuilderSync o
obj = IO (Ptr ()) -> m (Ptr ())
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Ptr ())
forall a b. GObject a => a -> String -> IO (Ptr b)
B.Properties.getObjectPropertyPtr o
obj String
"sync"
setGLTextureBuilderSync :: (MonadIO m, IsGLTextureBuilder o) => o -> Ptr () -> m ()
setGLTextureBuilderSync :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> Ptr () -> m ()
setGLTextureBuilderSync o
obj Ptr ()
val = IO () -> m ()
forall a. IO a -> m a
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 -> Ptr () -> IO ()
forall a b. GObject a => a -> String -> Ptr b -> IO ()
B.Properties.setObjectPropertyPtr o
obj String
"sync" Ptr ()
val
constructGLTextureBuilderSync :: (IsGLTextureBuilder o, MIO.MonadIO m) => Ptr () -> m (GValueConstruct o)
constructGLTextureBuilderSync :: forall o (m :: * -> *).
(IsGLTextureBuilder o, MonadIO m) =>
Ptr () -> m (GValueConstruct o)
constructGLTextureBuilderSync Ptr ()
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 -> Ptr () -> IO (GValueConstruct o)
forall b o. String -> Ptr b -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyPtr String
"sync" Ptr ()
val
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderSyncPropertyInfo
instance AttrInfo GLTextureBuilderSyncPropertyInfo where
type AttrAllowedOps GLTextureBuilderSyncPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GLTextureBuilderSyncPropertyInfo = IsGLTextureBuilder
type AttrSetTypeConstraint GLTextureBuilderSyncPropertyInfo = (~) (Ptr ())
type AttrTransferTypeConstraint GLTextureBuilderSyncPropertyInfo = (~) (Ptr ())
type AttrTransferType GLTextureBuilderSyncPropertyInfo = Ptr ()
type AttrGetType GLTextureBuilderSyncPropertyInfo = (Ptr ())
type AttrLabel GLTextureBuilderSyncPropertyInfo = "sync"
type AttrOrigin GLTextureBuilderSyncPropertyInfo = GLTextureBuilder
attrGet = getGLTextureBuilderSync
attrSet = setGLTextureBuilderSync
attrTransfer _ v = do
return v
attrConstruct = constructGLTextureBuilderSync
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.sync"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#g:attr:sync"
})
#endif
getGLTextureBuilderUpdateRegion :: (MonadIO m, IsGLTextureBuilder o) => o -> m (Maybe Cairo.Region.Region)
getGLTextureBuilderUpdateRegion :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> m (Maybe Region)
getGLTextureBuilderUpdateRegion o
obj = IO (Maybe Region) -> m (Maybe Region)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Region) -> m (Maybe Region))
-> IO (Maybe Region) -> m (Maybe Region)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Region -> Region) -> IO (Maybe Region)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"update-region" ManagedPtr Region -> Region
Cairo.Region.Region
setGLTextureBuilderUpdateRegion :: (MonadIO m, IsGLTextureBuilder o) => o -> Cairo.Region.Region -> m ()
setGLTextureBuilderUpdateRegion :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> Region -> m ()
setGLTextureBuilderUpdateRegion o
obj Region
val = IO () -> m ()
forall a. IO a -> m a
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 -> Maybe Region -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"update-region" (Region -> Maybe Region
forall a. a -> Maybe a
Just Region
val)
constructGLTextureBuilderUpdateRegion :: (IsGLTextureBuilder o, MIO.MonadIO m) => Cairo.Region.Region -> m (GValueConstruct o)
constructGLTextureBuilderUpdateRegion :: forall o (m :: * -> *).
(IsGLTextureBuilder o, MonadIO m) =>
Region -> m (GValueConstruct o)
constructGLTextureBuilderUpdateRegion Region
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 -> Maybe Region -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"update-region" (Region -> Maybe Region
forall a. a -> Maybe a
P.Just Region
val)
clearGLTextureBuilderUpdateRegion :: (MonadIO m, IsGLTextureBuilder o) => o -> m ()
clearGLTextureBuilderUpdateRegion :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> m ()
clearGLTextureBuilderUpdateRegion o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Region -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"update-region" (Maybe Region
forall a. Maybe a
Nothing :: Maybe Cairo.Region.Region)
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderUpdateRegionPropertyInfo
instance AttrInfo GLTextureBuilderUpdateRegionPropertyInfo where
type AttrAllowedOps GLTextureBuilderUpdateRegionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint GLTextureBuilderUpdateRegionPropertyInfo = IsGLTextureBuilder
type AttrSetTypeConstraint GLTextureBuilderUpdateRegionPropertyInfo = (~) Cairo.Region.Region
type AttrTransferTypeConstraint GLTextureBuilderUpdateRegionPropertyInfo = (~) Cairo.Region.Region
type AttrTransferType GLTextureBuilderUpdateRegionPropertyInfo = Cairo.Region.Region
type AttrGetType GLTextureBuilderUpdateRegionPropertyInfo = (Maybe Cairo.Region.Region)
type AttrLabel GLTextureBuilderUpdateRegionPropertyInfo = "update-region"
type AttrOrigin GLTextureBuilderUpdateRegionPropertyInfo = GLTextureBuilder
attrGet = getGLTextureBuilderUpdateRegion
attrSet = setGLTextureBuilderUpdateRegion
attrTransfer _ v = do
return v
attrConstruct = constructGLTextureBuilderUpdateRegion
attrClear = clearGLTextureBuilderUpdateRegion
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.updateRegion"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#g:attr:updateRegion"
})
#endif
getGLTextureBuilderUpdateTexture :: (MonadIO m, IsGLTextureBuilder o) => o -> m (Maybe Gdk.Texture.Texture)
getGLTextureBuilderUpdateTexture :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> m (Maybe Texture)
getGLTextureBuilderUpdateTexture o
obj = IO (Maybe Texture) -> m (Maybe Texture)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Texture) -> m (Maybe Texture))
-> IO (Maybe Texture) -> m (Maybe Texture)
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr Texture -> Texture) -> IO (Maybe Texture)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"update-texture" ManagedPtr Texture -> Texture
Gdk.Texture.Texture
setGLTextureBuilderUpdateTexture :: (MonadIO m, IsGLTextureBuilder o, Gdk.Texture.IsTexture a) => o -> a -> m ()
setGLTextureBuilderUpdateTexture :: forall (m :: * -> *) o a.
(MonadIO m, IsGLTextureBuilder o, IsTexture a) =>
o -> a -> m ()
setGLTextureBuilderUpdateTexture o
obj a
val = IO () -> m ()
forall a. IO a -> m a
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 -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"update-texture" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructGLTextureBuilderUpdateTexture :: (IsGLTextureBuilder o, MIO.MonadIO m, Gdk.Texture.IsTexture a) => a -> m (GValueConstruct o)
constructGLTextureBuilderUpdateTexture :: forall o (m :: * -> *) a.
(IsGLTextureBuilder o, MonadIO m, IsTexture a) =>
a -> m (GValueConstruct o)
constructGLTextureBuilderUpdateTexture a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"update-texture" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearGLTextureBuilderUpdateTexture :: (MonadIO m, IsGLTextureBuilder o) => o -> m ()
clearGLTextureBuilderUpdateTexture :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> m ()
clearGLTextureBuilderUpdateTexture o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Texture -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"update-texture" (Maybe Texture
forall a. Maybe a
Nothing :: Maybe Gdk.Texture.Texture)
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderUpdateTexturePropertyInfo
instance AttrInfo GLTextureBuilderUpdateTexturePropertyInfo where
type AttrAllowedOps GLTextureBuilderUpdateTexturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint GLTextureBuilderUpdateTexturePropertyInfo = IsGLTextureBuilder
type AttrSetTypeConstraint GLTextureBuilderUpdateTexturePropertyInfo = Gdk.Texture.IsTexture
type AttrTransferTypeConstraint GLTextureBuilderUpdateTexturePropertyInfo = Gdk.Texture.IsTexture
type AttrTransferType GLTextureBuilderUpdateTexturePropertyInfo = Gdk.Texture.Texture
type AttrGetType GLTextureBuilderUpdateTexturePropertyInfo = (Maybe Gdk.Texture.Texture)
type AttrLabel GLTextureBuilderUpdateTexturePropertyInfo = "update-texture"
type AttrOrigin GLTextureBuilderUpdateTexturePropertyInfo = GLTextureBuilder
attrGet = getGLTextureBuilderUpdateTexture
attrSet = setGLTextureBuilderUpdateTexture
attrTransfer _ v = do
unsafeCastTo Gdk.Texture.Texture v
attrConstruct = constructGLTextureBuilderUpdateTexture
attrClear = clearGLTextureBuilderUpdateTexture
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.updateTexture"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#g:attr:updateTexture"
})
#endif
getGLTextureBuilderWidth :: (MonadIO m, IsGLTextureBuilder o) => o -> m Int32
getGLTextureBuilderWidth :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> m Int32
getGLTextureBuilderWidth o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"width"
setGLTextureBuilderWidth :: (MonadIO m, IsGLTextureBuilder o) => o -> Int32 -> m ()
setGLTextureBuilderWidth :: forall (m :: * -> *) o.
(MonadIO m, IsGLTextureBuilder o) =>
o -> Int32 -> m ()
setGLTextureBuilderWidth o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"width" Int32
val
constructGLTextureBuilderWidth :: (IsGLTextureBuilder o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructGLTextureBuilderWidth :: forall o (m :: * -> *).
(IsGLTextureBuilder o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructGLTextureBuilderWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"width" Int32
val
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderWidthPropertyInfo
instance AttrInfo GLTextureBuilderWidthPropertyInfo where
type AttrAllowedOps GLTextureBuilderWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GLTextureBuilderWidthPropertyInfo = IsGLTextureBuilder
type AttrSetTypeConstraint GLTextureBuilderWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GLTextureBuilderWidthPropertyInfo = (~) Int32
type AttrTransferType GLTextureBuilderWidthPropertyInfo = Int32
type AttrGetType GLTextureBuilderWidthPropertyInfo = Int32
type AttrLabel GLTextureBuilderWidthPropertyInfo = "width"
type AttrOrigin GLTextureBuilderWidthPropertyInfo = GLTextureBuilder
attrGet = getGLTextureBuilderWidth
attrSet = setGLTextureBuilderWidth
attrTransfer _ v = do
return v
attrConstruct = constructGLTextureBuilderWidth
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.width"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#g:attr:width"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList GLTextureBuilder
type instance O.AttributeList GLTextureBuilder = GLTextureBuilderAttributeList
type GLTextureBuilderAttributeList = ('[ '("context", GLTextureBuilderContextPropertyInfo), '("format", GLTextureBuilderFormatPropertyInfo), '("hasMipmap", GLTextureBuilderHasMipmapPropertyInfo), '("height", GLTextureBuilderHeightPropertyInfo), '("id", GLTextureBuilderIdPropertyInfo), '("sync", GLTextureBuilderSyncPropertyInfo), '("updateRegion", GLTextureBuilderUpdateRegionPropertyInfo), '("updateTexture", GLTextureBuilderUpdateTexturePropertyInfo), '("width", GLTextureBuilderWidthPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
gLTextureBuilderContext :: AttrLabelProxy "context"
gLTextureBuilderContext = AttrLabelProxy
gLTextureBuilderFormat :: AttrLabelProxy "format"
gLTextureBuilderFormat = AttrLabelProxy
gLTextureBuilderHasMipmap :: AttrLabelProxy "hasMipmap"
gLTextureBuilderHasMipmap = AttrLabelProxy
gLTextureBuilderHeight :: AttrLabelProxy "height"
gLTextureBuilderHeight = AttrLabelProxy
gLTextureBuilderId :: AttrLabelProxy "id"
gLTextureBuilderId = AttrLabelProxy
gLTextureBuilderSync :: AttrLabelProxy "sync"
gLTextureBuilderSync = AttrLabelProxy
gLTextureBuilderUpdateRegion :: AttrLabelProxy "updateRegion"
gLTextureBuilderUpdateRegion = AttrLabelProxy
gLTextureBuilderUpdateTexture :: AttrLabelProxy "updateTexture"
gLTextureBuilderUpdateTexture = AttrLabelProxy
gLTextureBuilderWidth :: AttrLabelProxy "width"
gLTextureBuilderWidth = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList GLTextureBuilder = GLTextureBuilderSignalList
type GLTextureBuilderSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gdk_gl_texture_builder_new" gdk_gl_texture_builder_new ::
IO (Ptr GLTextureBuilder)
gLTextureBuilderNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m GLTextureBuilder
gLTextureBuilderNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m GLTextureBuilder
gLTextureBuilderNew = IO GLTextureBuilder -> m GLTextureBuilder
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GLTextureBuilder -> m GLTextureBuilder)
-> IO GLTextureBuilder -> m GLTextureBuilder
forall a b. (a -> b) -> a -> b
$ do
result <- IO (Ptr GLTextureBuilder)
gdk_gl_texture_builder_new
checkUnexpectedReturnNULL "gLTextureBuilderNew" result
result' <- (wrapObject GLTextureBuilder) result
return result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gdk_gl_texture_builder_build" gdk_gl_texture_builder_build ::
Ptr GLTextureBuilder ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
Ptr () ->
IO (Ptr Gdk.Texture.Texture)
gLTextureBuilderBuild ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> Maybe (GLib.Callbacks.DestroyNotify)
-> Ptr ()
-> m Gdk.Texture.Texture
gLTextureBuilderBuild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> Maybe (Ptr () -> IO ()) -> Ptr () -> m Texture
gLTextureBuilderBuild a
self Maybe (Ptr () -> IO ())
destroy Ptr ()
data_ = IO Texture -> m Texture
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Texture -> m Texture) -> IO Texture -> m Texture
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
maybeDestroy <- case destroy of
Maybe (Ptr () -> IO ())
Nothing -> FunPtr (Ptr () -> IO ()) -> IO (FunPtr (Ptr () -> IO ()))
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr (Ptr () -> IO ())
forall a. FunPtr a
FP.nullFunPtr
Just Ptr () -> IO ()
jDestroy -> do
ptrdestroy <- IO (Ptr (FunPtr (Ptr () -> IO ())))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr GLib.Callbacks.C_DestroyNotify))
jDestroy' <- GLib.Callbacks.mk_DestroyNotify (GLib.Callbacks.wrap_DestroyNotify (Just ptrdestroy) jDestroy)
poke ptrdestroy jDestroy'
return jDestroy'
result <- gdk_gl_texture_builder_build self' maybeDestroy data_
checkUnexpectedReturnNULL "gLTextureBuilderBuild" result
result' <- (wrapObject Gdk.Texture.Texture) result
touchManagedPtr self
return result'
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderBuildMethodInfo
instance (signature ~ (Maybe (GLib.Callbacks.DestroyNotify) -> Ptr () -> m Gdk.Texture.Texture), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderBuildMethodInfo a signature where
overloadedMethod = gLTextureBuilderBuild
instance O.OverloadedMethodInfo GLTextureBuilderBuildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderBuild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderBuild"
})
#endif
foreign import ccall "gdk_gl_texture_builder_get_context" gdk_gl_texture_builder_get_context ::
Ptr GLTextureBuilder ->
IO (Ptr Gdk.GLContext.GLContext)
gLTextureBuilderGetContext ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> m (Maybe Gdk.GLContext.GLContext)
gLTextureBuilderGetContext :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> m (Maybe GLContext)
gLTextureBuilderGetContext a
self = IO (Maybe GLContext) -> m (Maybe GLContext)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe GLContext) -> m (Maybe GLContext))
-> IO (Maybe GLContext) -> m (Maybe GLContext)
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_gl_texture_builder_get_context self'
maybeResult <- convertIfNonNull result $ \Ptr GLContext
result' -> do
result'' <- ((ManagedPtr GLContext -> GLContext)
-> Ptr GLContext -> IO GLContext
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'
return result''
touchManagedPtr self
return maybeResult
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderGetContextMethodInfo
instance (signature ~ (m (Maybe Gdk.GLContext.GLContext)), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderGetContextMethodInfo a signature where
overloadedMethod = gLTextureBuilderGetContext
instance O.OverloadedMethodInfo GLTextureBuilderGetContextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderGetContext",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderGetContext"
})
#endif
foreign import ccall "gdk_gl_texture_builder_get_format" gdk_gl_texture_builder_get_format ::
Ptr GLTextureBuilder ->
IO CUInt
gLTextureBuilderGetFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> m Gdk.Enums.MemoryFormat
gLTextureBuilderGetFormat :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> m MemoryFormat
gLTextureBuilderGetFormat a
self = IO MemoryFormat -> m MemoryFormat
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MemoryFormat -> m MemoryFormat)
-> IO MemoryFormat -> m MemoryFormat
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_gl_texture_builder_get_format self'
let result' = (Int -> MemoryFormat
forall a. Enum a => Int -> a
toEnum (Int -> MemoryFormat) -> (CUInt -> Int) -> CUInt -> MemoryFormat
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
touchManagedPtr self
return result'
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderGetFormatMethodInfo
instance (signature ~ (m Gdk.Enums.MemoryFormat), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderGetFormatMethodInfo a signature where
overloadedMethod = gLTextureBuilderGetFormat
instance O.OverloadedMethodInfo GLTextureBuilderGetFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderGetFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderGetFormat"
})
#endif
foreign import ccall "gdk_gl_texture_builder_get_has_mipmap" gdk_gl_texture_builder_get_has_mipmap ::
Ptr GLTextureBuilder ->
IO CInt
gLTextureBuilderGetHasMipmap ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> m Bool
gLTextureBuilderGetHasMipmap :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> m Bool
gLTextureBuilderGetHasMipmap a
self = IO Bool -> m Bool
forall a. IO a -> m a
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
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_gl_texture_builder_get_has_mipmap self'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr self
return result'
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderGetHasMipmapMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderGetHasMipmapMethodInfo a signature where
overloadedMethod = gLTextureBuilderGetHasMipmap
instance O.OverloadedMethodInfo GLTextureBuilderGetHasMipmapMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderGetHasMipmap",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderGetHasMipmap"
})
#endif
foreign import ccall "gdk_gl_texture_builder_get_height" gdk_gl_texture_builder_get_height ::
Ptr GLTextureBuilder ->
IO Int32
gLTextureBuilderGetHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> m Int32
gLTextureBuilderGetHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> m Int32
gLTextureBuilderGetHeight a
self = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_gl_texture_builder_get_height self'
touchManagedPtr self
return result
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderGetHeightMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderGetHeightMethodInfo a signature where
overloadedMethod = gLTextureBuilderGetHeight
instance O.OverloadedMethodInfo GLTextureBuilderGetHeightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderGetHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderGetHeight"
})
#endif
foreign import ccall "gdk_gl_texture_builder_get_id" gdk_gl_texture_builder_get_id ::
Ptr GLTextureBuilder ->
IO Word32
gLTextureBuilderGetId ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> m Word32
gLTextureBuilderGetId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> m Word32
gLTextureBuilderGetId a
self = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_gl_texture_builder_get_id self'
touchManagedPtr self
return result
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderGetIdMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderGetIdMethodInfo a signature where
overloadedMethod = gLTextureBuilderGetId
instance O.OverloadedMethodInfo GLTextureBuilderGetIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderGetId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderGetId"
})
#endif
foreign import ccall "gdk_gl_texture_builder_get_sync" gdk_gl_texture_builder_get_sync ::
Ptr GLTextureBuilder ->
IO (Ptr ())
gLTextureBuilderGetSync ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> m (Ptr ())
gLTextureBuilderGetSync :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> m (Ptr ())
gLTextureBuilderGetSync a
self = IO (Ptr ()) -> m (Ptr ())
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_gl_texture_builder_get_sync self'
touchManagedPtr self
return result
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderGetSyncMethodInfo
instance (signature ~ (m (Ptr ())), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderGetSyncMethodInfo a signature where
overloadedMethod = gLTextureBuilderGetSync
instance O.OverloadedMethodInfo GLTextureBuilderGetSyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderGetSync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderGetSync"
})
#endif
foreign import ccall "gdk_gl_texture_builder_get_update_region" gdk_gl_texture_builder_get_update_region ::
Ptr GLTextureBuilder ->
IO (Ptr Cairo.Region.Region)
gLTextureBuilderGetUpdateRegion ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> m (Maybe Cairo.Region.Region)
gLTextureBuilderGetUpdateRegion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> m (Maybe Region)
gLTextureBuilderGetUpdateRegion a
self = IO (Maybe Region) -> m (Maybe Region)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Region) -> m (Maybe Region))
-> IO (Maybe Region) -> m (Maybe Region)
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_gl_texture_builder_get_update_region self'
maybeResult <- convertIfNonNull result $ \Ptr Region
result' -> do
result'' <- ((ManagedPtr Region -> Region) -> Ptr Region -> IO Region
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Region -> Region
Cairo.Region.Region) Ptr Region
result'
return result''
touchManagedPtr self
return maybeResult
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderGetUpdateRegionMethodInfo
instance (signature ~ (m (Maybe Cairo.Region.Region)), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderGetUpdateRegionMethodInfo a signature where
overloadedMethod = gLTextureBuilderGetUpdateRegion
instance O.OverloadedMethodInfo GLTextureBuilderGetUpdateRegionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderGetUpdateRegion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderGetUpdateRegion"
})
#endif
foreign import ccall "gdk_gl_texture_builder_get_update_texture" gdk_gl_texture_builder_get_update_texture ::
Ptr GLTextureBuilder ->
IO (Ptr Gdk.Texture.Texture)
gLTextureBuilderGetUpdateTexture ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> m (Maybe Gdk.Texture.Texture)
gLTextureBuilderGetUpdateTexture :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> m (Maybe Texture)
gLTextureBuilderGetUpdateTexture a
self = IO (Maybe Texture) -> m (Maybe Texture)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Texture) -> m (Maybe Texture))
-> IO (Maybe Texture) -> m (Maybe Texture)
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_gl_texture_builder_get_update_texture self'
maybeResult <- convertIfNonNull result $ \Ptr Texture
result' -> do
result'' <- ((ManagedPtr Texture -> Texture) -> Ptr Texture -> IO Texture
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Texture -> Texture
Gdk.Texture.Texture) Ptr Texture
result'
return result''
touchManagedPtr self
return maybeResult
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderGetUpdateTextureMethodInfo
instance (signature ~ (m (Maybe Gdk.Texture.Texture)), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderGetUpdateTextureMethodInfo a signature where
overloadedMethod = gLTextureBuilderGetUpdateTexture
instance O.OverloadedMethodInfo GLTextureBuilderGetUpdateTextureMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderGetUpdateTexture",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderGetUpdateTexture"
})
#endif
foreign import ccall "gdk_gl_texture_builder_get_width" gdk_gl_texture_builder_get_width ::
Ptr GLTextureBuilder ->
IO Int32
gLTextureBuilderGetWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> m Int32
gLTextureBuilderGetWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> m Int32
gLTextureBuilderGetWidth a
self = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_gl_texture_builder_get_width self'
touchManagedPtr self
return result
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderGetWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderGetWidthMethodInfo a signature where
overloadedMethod = gLTextureBuilderGetWidth
instance O.OverloadedMethodInfo GLTextureBuilderGetWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderGetWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderGetWidth"
})
#endif
foreign import ccall "gdk_gl_texture_builder_set_context" gdk_gl_texture_builder_set_context ::
Ptr GLTextureBuilder ->
Ptr Gdk.GLContext.GLContext ->
IO ()
gLTextureBuilderSetContext ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a, Gdk.GLContext.IsGLContext b) =>
a
-> Maybe (b)
-> m ()
gLTextureBuilderSetContext :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsGLTextureBuilder a, IsGLContext b) =>
a -> Maybe b -> m ()
gLTextureBuilderSetContext a
self Maybe b
context = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
maybeContext <- case context of
Maybe b
Nothing -> Ptr GLContext -> IO (Ptr GLContext)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GLContext
forall a. Ptr a
FP.nullPtr
Just b
jContext -> do
jContext' <- b -> IO (Ptr GLContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jContext
return jContext'
gdk_gl_texture_builder_set_context self' maybeContext
touchManagedPtr self
whenJust context touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderSetContextMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsGLTextureBuilder a, Gdk.GLContext.IsGLContext b) => O.OverloadedMethod GLTextureBuilderSetContextMethodInfo a signature where
overloadedMethod = gLTextureBuilderSetContext
instance O.OverloadedMethodInfo GLTextureBuilderSetContextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderSetContext",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderSetContext"
})
#endif
foreign import ccall "gdk_gl_texture_builder_set_format" gdk_gl_texture_builder_set_format ::
Ptr GLTextureBuilder ->
CUInt ->
IO ()
gLTextureBuilderSetFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> Gdk.Enums.MemoryFormat
-> m ()
gLTextureBuilderSetFormat :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> MemoryFormat -> m ()
gLTextureBuilderSetFormat a
self MemoryFormat
format = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let format' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (MemoryFormat -> Int) -> MemoryFormat -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. MemoryFormat -> Int
forall a. Enum a => a -> Int
fromEnum) MemoryFormat
format
gdk_gl_texture_builder_set_format self' format'
touchManagedPtr self
return ()
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderSetFormatMethodInfo
instance (signature ~ (Gdk.Enums.MemoryFormat -> m ()), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderSetFormatMethodInfo a signature where
overloadedMethod = gLTextureBuilderSetFormat
instance O.OverloadedMethodInfo GLTextureBuilderSetFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderSetFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderSetFormat"
})
#endif
foreign import ccall "gdk_gl_texture_builder_set_has_mipmap" gdk_gl_texture_builder_set_has_mipmap ::
Ptr GLTextureBuilder ->
CInt ->
IO ()
gLTextureBuilderSetHasMipmap ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> Bool
-> m ()
gLTextureBuilderSetHasMipmap :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> Bool -> m ()
gLTextureBuilderSetHasMipmap a
self Bool
hasMipmap = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let hasMipmap' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
hasMipmap
gdk_gl_texture_builder_set_has_mipmap self' hasMipmap'
touchManagedPtr self
return ()
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderSetHasMipmapMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderSetHasMipmapMethodInfo a signature where
overloadedMethod = gLTextureBuilderSetHasMipmap
instance O.OverloadedMethodInfo GLTextureBuilderSetHasMipmapMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderSetHasMipmap",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderSetHasMipmap"
})
#endif
foreign import ccall "gdk_gl_texture_builder_set_height" gdk_gl_texture_builder_set_height ::
Ptr GLTextureBuilder ->
Int32 ->
IO ()
gLTextureBuilderSetHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> Int32
-> m ()
gLTextureBuilderSetHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> Int32 -> m ()
gLTextureBuilderSetHeight a
self Int32
height = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
gdk_gl_texture_builder_set_height self' height
touchManagedPtr self
return ()
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderSetHeightMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderSetHeightMethodInfo a signature where
overloadedMethod = gLTextureBuilderSetHeight
instance O.OverloadedMethodInfo GLTextureBuilderSetHeightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderSetHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderSetHeight"
})
#endif
foreign import ccall "gdk_gl_texture_builder_set_id" gdk_gl_texture_builder_set_id ::
Ptr GLTextureBuilder ->
Word32 ->
IO ()
gLTextureBuilderSetId ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> Word32
-> m ()
gLTextureBuilderSetId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> Word32 -> m ()
gLTextureBuilderSetId a
self Word32
id = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
gdk_gl_texture_builder_set_id self' id
touchManagedPtr self
return ()
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderSetIdMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderSetIdMethodInfo a signature where
overloadedMethod = gLTextureBuilderSetId
instance O.OverloadedMethodInfo GLTextureBuilderSetIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderSetId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderSetId"
})
#endif
foreign import ccall "gdk_gl_texture_builder_set_sync" gdk_gl_texture_builder_set_sync ::
Ptr GLTextureBuilder ->
Ptr () ->
IO ()
gLTextureBuilderSetSync ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> Ptr ()
-> m ()
gLTextureBuilderSetSync :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> Ptr () -> m ()
gLTextureBuilderSetSync a
self Ptr ()
sync = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
gdk_gl_texture_builder_set_sync self' sync
touchManagedPtr self
return ()
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderSetSyncMethodInfo
instance (signature ~ (Ptr () -> m ()), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderSetSyncMethodInfo a signature where
overloadedMethod = gLTextureBuilderSetSync
instance O.OverloadedMethodInfo GLTextureBuilderSetSyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderSetSync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderSetSync"
})
#endif
foreign import ccall "gdk_gl_texture_builder_set_update_region" gdk_gl_texture_builder_set_update_region ::
Ptr GLTextureBuilder ->
Ptr Cairo.Region.Region ->
IO ()
gLTextureBuilderSetUpdateRegion ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> Maybe (Cairo.Region.Region)
-> m ()
gLTextureBuilderSetUpdateRegion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> Maybe Region -> m ()
gLTextureBuilderSetUpdateRegion a
self Maybe Region
region = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
maybeRegion <- case region of
Maybe Region
Nothing -> Ptr Region -> IO (Ptr Region)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Region
forall a. Ptr a
FP.nullPtr
Just Region
jRegion -> do
jRegion' <- Region -> IO (Ptr Region)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Region
jRegion
return jRegion'
gdk_gl_texture_builder_set_update_region self' maybeRegion
touchManagedPtr self
whenJust region touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderSetUpdateRegionMethodInfo
instance (signature ~ (Maybe (Cairo.Region.Region) -> m ()), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderSetUpdateRegionMethodInfo a signature where
overloadedMethod = gLTextureBuilderSetUpdateRegion
instance O.OverloadedMethodInfo GLTextureBuilderSetUpdateRegionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderSetUpdateRegion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderSetUpdateRegion"
})
#endif
foreign import ccall "gdk_gl_texture_builder_set_update_texture" gdk_gl_texture_builder_set_update_texture ::
Ptr GLTextureBuilder ->
Ptr Gdk.Texture.Texture ->
IO ()
gLTextureBuilderSetUpdateTexture ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a, Gdk.Texture.IsTexture b) =>
a
-> Maybe (b)
-> m ()
gLTextureBuilderSetUpdateTexture :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsGLTextureBuilder a, IsTexture b) =>
a -> Maybe b -> m ()
gLTextureBuilderSetUpdateTexture a
self Maybe b
texture = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
maybeTexture <- case texture of
Maybe b
Nothing -> Ptr Texture -> IO (Ptr Texture)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Texture
forall a. Ptr a
FP.nullPtr
Just b
jTexture -> do
jTexture' <- b -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jTexture
return jTexture'
gdk_gl_texture_builder_set_update_texture self' maybeTexture
touchManagedPtr self
whenJust texture touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderSetUpdateTextureMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsGLTextureBuilder a, Gdk.Texture.IsTexture b) => O.OverloadedMethod GLTextureBuilderSetUpdateTextureMethodInfo a signature where
overloadedMethod = gLTextureBuilderSetUpdateTexture
instance O.OverloadedMethodInfo GLTextureBuilderSetUpdateTextureMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderSetUpdateTexture",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderSetUpdateTexture"
})
#endif
foreign import ccall "gdk_gl_texture_builder_set_width" gdk_gl_texture_builder_set_width ::
Ptr GLTextureBuilder ->
Int32 ->
IO ()
gLTextureBuilderSetWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a
-> Int32
-> m ()
gLTextureBuilderSetWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGLTextureBuilder a) =>
a -> Int32 -> m ()
gLTextureBuilderSetWidth a
self Int32
width = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
self' <- a -> IO (Ptr GLTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
gdk_gl_texture_builder_set_width self' width
touchManagedPtr self
return ()
#if defined(ENABLE_OVERLOADING)
data GLTextureBuilderSetWidthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGLTextureBuilder a) => O.OverloadedMethod GLTextureBuilderSetWidthMethodInfo a signature where
overloadedMethod = gLTextureBuilderSetWidth
instance O.OverloadedMethodInfo GLTextureBuilderSetWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.GLTextureBuilder.gLTextureBuilderSetWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Objects-GLTextureBuilder.html#v:gLTextureBuilderSetWidth"
})
#endif