{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Objects.MemoryTextureBuilder
(
MemoryTextureBuilder(..) ,
IsMemoryTextureBuilder ,
toMemoryTextureBuilder ,
#if defined(ENABLE_OVERLOADING)
ResolveMemoryTextureBuilderMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderBuildMethodInfo ,
#endif
memoryTextureBuilderBuild ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderGetBytesMethodInfo ,
#endif
memoryTextureBuilderGetBytes ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderGetColorStateMethodInfo,
#endif
memoryTextureBuilderGetColorState ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderGetFormatMethodInfo ,
#endif
memoryTextureBuilderGetFormat ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderGetHeightMethodInfo ,
#endif
memoryTextureBuilderGetHeight ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderGetOffsetMethodInfo ,
#endif
memoryTextureBuilderGetOffset ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderGetStrideMethodInfo ,
#endif
memoryTextureBuilderGetStride ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderGetStrideForPlaneMethodInfo,
#endif
memoryTextureBuilderGetStrideForPlane ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderGetUpdateRegionMethodInfo,
#endif
memoryTextureBuilderGetUpdateRegion ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderGetUpdateTextureMethodInfo,
#endif
memoryTextureBuilderGetUpdateTexture ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderGetWidthMethodInfo ,
#endif
memoryTextureBuilderGetWidth ,
memoryTextureBuilderNew ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderSetBytesMethodInfo ,
#endif
memoryTextureBuilderSetBytes ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderSetColorStateMethodInfo,
#endif
memoryTextureBuilderSetColorState ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderSetFormatMethodInfo ,
#endif
memoryTextureBuilderSetFormat ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderSetHeightMethodInfo ,
#endif
memoryTextureBuilderSetHeight ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderSetOffsetMethodInfo ,
#endif
memoryTextureBuilderSetOffset ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderSetStrideMethodInfo ,
#endif
memoryTextureBuilderSetStride ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderSetStrideForPlaneMethodInfo,
#endif
memoryTextureBuilderSetStrideForPlane ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderSetUpdateRegionMethodInfo,
#endif
memoryTextureBuilderSetUpdateRegion ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderSetUpdateTextureMethodInfo,
#endif
memoryTextureBuilderSetUpdateTexture ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderSetWidthMethodInfo ,
#endif
memoryTextureBuilderSetWidth ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderBytesPropertyInfo ,
#endif
clearMemoryTextureBuilderBytes ,
constructMemoryTextureBuilderBytes ,
getMemoryTextureBuilderBytes ,
#if defined(ENABLE_OVERLOADING)
memoryTextureBuilderBytes ,
#endif
setMemoryTextureBuilderBytes ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderColorStatePropertyInfo,
#endif
constructMemoryTextureBuilderColorState ,
getMemoryTextureBuilderColorState ,
#if defined(ENABLE_OVERLOADING)
memoryTextureBuilderColorState ,
#endif
setMemoryTextureBuilderColorState ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderFormatPropertyInfo ,
#endif
constructMemoryTextureBuilderFormat ,
getMemoryTextureBuilderFormat ,
#if defined(ENABLE_OVERLOADING)
memoryTextureBuilderFormat ,
#endif
setMemoryTextureBuilderFormat ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderHeightPropertyInfo ,
#endif
constructMemoryTextureBuilderHeight ,
getMemoryTextureBuilderHeight ,
#if defined(ENABLE_OVERLOADING)
memoryTextureBuilderHeight ,
#endif
setMemoryTextureBuilderHeight ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderStridePropertyInfo ,
#endif
constructMemoryTextureBuilderStride ,
getMemoryTextureBuilderStride ,
#if defined(ENABLE_OVERLOADING)
memoryTextureBuilderStride ,
#endif
setMemoryTextureBuilderStride ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderUpdateRegionPropertyInfo,
#endif
clearMemoryTextureBuilderUpdateRegion ,
constructMemoryTextureBuilderUpdateRegion,
getMemoryTextureBuilderUpdateRegion ,
#if defined(ENABLE_OVERLOADING)
memoryTextureBuilderUpdateRegion ,
#endif
setMemoryTextureBuilderUpdateRegion ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderUpdateTexturePropertyInfo,
#endif
clearMemoryTextureBuilderUpdateTexture ,
constructMemoryTextureBuilderUpdateTexture,
getMemoryTextureBuilderUpdateTexture ,
#if defined(ENABLE_OVERLOADING)
memoryTextureBuilderUpdateTexture ,
#endif
setMemoryTextureBuilderUpdateTexture ,
#if defined(ENABLE_OVERLOADING)
MemoryTextureBuilderWidthPropertyInfo ,
#endif
constructMemoryTextureBuilderWidth ,
getMemoryTextureBuilderWidth ,
#if defined(ENABLE_OVERLOADING)
memoryTextureBuilderWidth ,
#endif
setMemoryTextureBuilderWidth ,
) 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.Structs.Region as Cairo.Region
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
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.CicpParams as Gdk.CicpParams
import {-# SOURCE #-} qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
import {-# SOURCE #-} qualified GI.Gdk.Objects.Texture as Gdk.Texture
import {-# SOURCE #-} qualified GI.Gdk.Structs.ColorState as Gdk.ColorState
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Gio.Interfaces.File as Gio.File
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.LoadableIcon as Gio.LoadableIcon
#else
import qualified GI.Cairo.Structs.Region as Cairo.Region
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gdk.Enums as Gdk.Enums
import {-# SOURCE #-} qualified GI.Gdk.Objects.Texture as Gdk.Texture
import {-# SOURCE #-} qualified GI.Gdk.Structs.ColorState as Gdk.ColorState
#endif
newtype MemoryTextureBuilder = MemoryTextureBuilder (SP.ManagedPtr MemoryTextureBuilder)
deriving (MemoryTextureBuilder -> MemoryTextureBuilder -> Bool
(MemoryTextureBuilder -> MemoryTextureBuilder -> Bool)
-> (MemoryTextureBuilder -> MemoryTextureBuilder -> Bool)
-> Eq MemoryTextureBuilder
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MemoryTextureBuilder -> MemoryTextureBuilder -> Bool
== :: MemoryTextureBuilder -> MemoryTextureBuilder -> Bool
$c/= :: MemoryTextureBuilder -> MemoryTextureBuilder -> Bool
/= :: MemoryTextureBuilder -> MemoryTextureBuilder -> Bool
Eq)
instance SP.ManagedPtrNewtype MemoryTextureBuilder where
toManagedPtr :: MemoryTextureBuilder -> ManagedPtr MemoryTextureBuilder
toManagedPtr (MemoryTextureBuilder ManagedPtr MemoryTextureBuilder
p) = ManagedPtr MemoryTextureBuilder
p
foreign import ccall "gdk_memory_texture_builder_get_type"
c_gdk_memory_texture_builder_get_type :: IO B.Types.GType
instance B.Types.TypedObject MemoryTextureBuilder where
glibType :: IO GType
glibType = IO GType
c_gdk_memory_texture_builder_get_type
instance B.Types.GObject MemoryTextureBuilder
class (SP.GObject o, O.IsDescendantOf MemoryTextureBuilder o) => IsMemoryTextureBuilder o
instance (SP.GObject o, O.IsDescendantOf MemoryTextureBuilder o) => IsMemoryTextureBuilder o
instance O.HasParentTypes MemoryTextureBuilder
type instance O.ParentTypes MemoryTextureBuilder = '[GObject.Object.Object]
toMemoryTextureBuilder :: (MIO.MonadIO m, IsMemoryTextureBuilder o) => o -> m MemoryTextureBuilder
toMemoryTextureBuilder :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> m MemoryTextureBuilder
toMemoryTextureBuilder = IO MemoryTextureBuilder -> m MemoryTextureBuilder
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO MemoryTextureBuilder -> m MemoryTextureBuilder)
-> (o -> IO MemoryTextureBuilder) -> o -> m MemoryTextureBuilder
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr MemoryTextureBuilder -> MemoryTextureBuilder)
-> o -> IO MemoryTextureBuilder
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr MemoryTextureBuilder -> MemoryTextureBuilder
MemoryTextureBuilder
instance B.GValue.IsGValue (Maybe MemoryTextureBuilder) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gdk_memory_texture_builder_get_type
gvalueSet_ :: Ptr GValue -> Maybe MemoryTextureBuilder -> IO ()
gvalueSet_ Ptr GValue
gv Maybe MemoryTextureBuilder
P.Nothing = Ptr GValue -> Ptr MemoryTextureBuilder -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr MemoryTextureBuilder
forall a. Ptr a
FP.nullPtr :: FP.Ptr MemoryTextureBuilder)
gvalueSet_ Ptr GValue
gv (P.Just MemoryTextureBuilder
obj) = MemoryTextureBuilder
-> (Ptr MemoryTextureBuilder -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr MemoryTextureBuilder
obj (Ptr GValue -> Ptr MemoryTextureBuilder -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe MemoryTextureBuilder)
gvalueGet_ Ptr GValue
gv = do
Ptr MemoryTextureBuilder
ptr <- Ptr GValue -> IO (Ptr MemoryTextureBuilder)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr MemoryTextureBuilder)
if Ptr MemoryTextureBuilder
ptr Ptr MemoryTextureBuilder -> Ptr MemoryTextureBuilder -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr MemoryTextureBuilder
forall a. Ptr a
FP.nullPtr
then MemoryTextureBuilder -> Maybe MemoryTextureBuilder
forall a. a -> Maybe a
P.Just (MemoryTextureBuilder -> Maybe MemoryTextureBuilder)
-> IO MemoryTextureBuilder -> IO (Maybe MemoryTextureBuilder)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr MemoryTextureBuilder -> MemoryTextureBuilder)
-> Ptr MemoryTextureBuilder -> IO MemoryTextureBuilder
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr MemoryTextureBuilder -> MemoryTextureBuilder
MemoryTextureBuilder Ptr MemoryTextureBuilder
ptr
else Maybe MemoryTextureBuilder -> IO (Maybe MemoryTextureBuilder)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MemoryTextureBuilder
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveMemoryTextureBuilderMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveMemoryTextureBuilderMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveMemoryTextureBuilderMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveMemoryTextureBuilderMethod "build" o = MemoryTextureBuilderBuildMethodInfo
ResolveMemoryTextureBuilderMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveMemoryTextureBuilderMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveMemoryTextureBuilderMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveMemoryTextureBuilderMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveMemoryTextureBuilderMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveMemoryTextureBuilderMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveMemoryTextureBuilderMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveMemoryTextureBuilderMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveMemoryTextureBuilderMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveMemoryTextureBuilderMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveMemoryTextureBuilderMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveMemoryTextureBuilderMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveMemoryTextureBuilderMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveMemoryTextureBuilderMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveMemoryTextureBuilderMethod "getBytes" o = MemoryTextureBuilderGetBytesMethodInfo
ResolveMemoryTextureBuilderMethod "getColorState" o = MemoryTextureBuilderGetColorStateMethodInfo
ResolveMemoryTextureBuilderMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveMemoryTextureBuilderMethod "getFormat" o = MemoryTextureBuilderGetFormatMethodInfo
ResolveMemoryTextureBuilderMethod "getHeight" o = MemoryTextureBuilderGetHeightMethodInfo
ResolveMemoryTextureBuilderMethod "getOffset" o = MemoryTextureBuilderGetOffsetMethodInfo
ResolveMemoryTextureBuilderMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveMemoryTextureBuilderMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveMemoryTextureBuilderMethod "getStride" o = MemoryTextureBuilderGetStrideMethodInfo
ResolveMemoryTextureBuilderMethod "getStrideForPlane" o = MemoryTextureBuilderGetStrideForPlaneMethodInfo
ResolveMemoryTextureBuilderMethod "getUpdateRegion" o = MemoryTextureBuilderGetUpdateRegionMethodInfo
ResolveMemoryTextureBuilderMethod "getUpdateTexture" o = MemoryTextureBuilderGetUpdateTextureMethodInfo
ResolveMemoryTextureBuilderMethod "getWidth" o = MemoryTextureBuilderGetWidthMethodInfo
ResolveMemoryTextureBuilderMethod "setBytes" o = MemoryTextureBuilderSetBytesMethodInfo
ResolveMemoryTextureBuilderMethod "setColorState" o = MemoryTextureBuilderSetColorStateMethodInfo
ResolveMemoryTextureBuilderMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveMemoryTextureBuilderMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveMemoryTextureBuilderMethod "setFormat" o = MemoryTextureBuilderSetFormatMethodInfo
ResolveMemoryTextureBuilderMethod "setHeight" o = MemoryTextureBuilderSetHeightMethodInfo
ResolveMemoryTextureBuilderMethod "setOffset" o = MemoryTextureBuilderSetOffsetMethodInfo
ResolveMemoryTextureBuilderMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveMemoryTextureBuilderMethod "setStride" o = MemoryTextureBuilderSetStrideMethodInfo
ResolveMemoryTextureBuilderMethod "setStrideForPlane" o = MemoryTextureBuilderSetStrideForPlaneMethodInfo
ResolveMemoryTextureBuilderMethod "setUpdateRegion" o = MemoryTextureBuilderSetUpdateRegionMethodInfo
ResolveMemoryTextureBuilderMethod "setUpdateTexture" o = MemoryTextureBuilderSetUpdateTextureMethodInfo
ResolveMemoryTextureBuilderMethod "setWidth" o = MemoryTextureBuilderSetWidthMethodInfo
ResolveMemoryTextureBuilderMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMemoryTextureBuilderMethod t MemoryTextureBuilder, O.OverloadedMethod info MemoryTextureBuilder p) => OL.IsLabel t (MemoryTextureBuilder -> 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 ~ ResolveMemoryTextureBuilderMethod t MemoryTextureBuilder, O.OverloadedMethod info MemoryTextureBuilder p, R.HasField t MemoryTextureBuilder p) => R.HasField t MemoryTextureBuilder p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveMemoryTextureBuilderMethod t MemoryTextureBuilder, O.OverloadedMethodInfo info MemoryTextureBuilder) => OL.IsLabel t (O.MethodProxy info MemoryTextureBuilder) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getMemoryTextureBuilderBytes :: (MonadIO m, IsMemoryTextureBuilder o) => o -> m (Maybe GLib.Bytes.Bytes)
getMemoryTextureBuilderBytes :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> m (Maybe Bytes)
getMemoryTextureBuilderBytes o
obj = IO (Maybe Bytes) -> m (Maybe Bytes)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Bytes) -> m (Maybe Bytes))
-> IO (Maybe Bytes) -> m (Maybe Bytes)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Bytes -> Bytes) -> IO (Maybe Bytes)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"bytes" ManagedPtr Bytes -> Bytes
GLib.Bytes.Bytes
setMemoryTextureBuilderBytes :: (MonadIO m, IsMemoryTextureBuilder o) => o -> GLib.Bytes.Bytes -> m ()
setMemoryTextureBuilderBytes :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> Bytes -> m ()
setMemoryTextureBuilderBytes o
obj Bytes
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 Bytes -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"bytes" (Bytes -> Maybe Bytes
forall a. a -> Maybe a
Just Bytes
val)
constructMemoryTextureBuilderBytes :: (IsMemoryTextureBuilder o, MIO.MonadIO m) => GLib.Bytes.Bytes -> m (GValueConstruct o)
constructMemoryTextureBuilderBytes :: forall o (m :: * -> *).
(IsMemoryTextureBuilder o, MonadIO m) =>
Bytes -> m (GValueConstruct o)
constructMemoryTextureBuilderBytes Bytes
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 Bytes -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"bytes" (Bytes -> Maybe Bytes
forall a. a -> Maybe a
P.Just Bytes
val)
clearMemoryTextureBuilderBytes :: (MonadIO m, IsMemoryTextureBuilder o) => o -> m ()
clearMemoryTextureBuilderBytes :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> m ()
clearMemoryTextureBuilderBytes 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 Bytes -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"bytes" (Maybe Bytes
forall a. Maybe a
Nothing :: Maybe GLib.Bytes.Bytes)
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderBytesPropertyInfo
instance AttrInfo MemoryTextureBuilderBytesPropertyInfo where
type AttrAllowedOps MemoryTextureBuilderBytesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MemoryTextureBuilderBytesPropertyInfo = IsMemoryTextureBuilder
type AttrSetTypeConstraint MemoryTextureBuilderBytesPropertyInfo = (~) GLib.Bytes.Bytes
type AttrTransferTypeConstraint MemoryTextureBuilderBytesPropertyInfo = (~) GLib.Bytes.Bytes
type AttrTransferType MemoryTextureBuilderBytesPropertyInfo = GLib.Bytes.Bytes
type AttrGetType MemoryTextureBuilderBytesPropertyInfo = (Maybe GLib.Bytes.Bytes)
type AttrLabel MemoryTextureBuilderBytesPropertyInfo = "bytes"
type AttrOrigin MemoryTextureBuilderBytesPropertyInfo = MemoryTextureBuilder
attrGet = getMemoryTextureBuilderBytes
attrSet = setMemoryTextureBuilderBytes
attrTransfer _ v = do
return v
attrConstruct = constructMemoryTextureBuilderBytes
attrClear = clearMemoryTextureBuilderBytes
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.bytes"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#g:attr:bytes"
})
#endif
getMemoryTextureBuilderColorState :: (MonadIO m, IsMemoryTextureBuilder o) => o -> m Gdk.ColorState.ColorState
getMemoryTextureBuilderColorState :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> m ColorState
getMemoryTextureBuilderColorState o
obj = IO ColorState -> m ColorState
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ColorState -> m ColorState) -> IO ColorState -> m ColorState
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe ColorState) -> IO ColorState
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getMemoryTextureBuilderColorState" (IO (Maybe ColorState) -> IO ColorState)
-> IO (Maybe ColorState) -> IO ColorState
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr ColorState -> ColorState)
-> IO (Maybe ColorState)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"color-state" ManagedPtr ColorState -> ColorState
Gdk.ColorState.ColorState
setMemoryTextureBuilderColorState :: (MonadIO m, IsMemoryTextureBuilder o) => o -> Gdk.ColorState.ColorState -> m ()
setMemoryTextureBuilderColorState :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> ColorState -> m ()
setMemoryTextureBuilderColorState o
obj ColorState
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 ColorState -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"color-state" (ColorState -> Maybe ColorState
forall a. a -> Maybe a
Just ColorState
val)
constructMemoryTextureBuilderColorState :: (IsMemoryTextureBuilder o, MIO.MonadIO m) => Gdk.ColorState.ColorState -> m (GValueConstruct o)
constructMemoryTextureBuilderColorState :: forall o (m :: * -> *).
(IsMemoryTextureBuilder o, MonadIO m) =>
ColorState -> m (GValueConstruct o)
constructMemoryTextureBuilderColorState ColorState
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 ColorState -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"color-state" (ColorState -> Maybe ColorState
forall a. a -> Maybe a
P.Just ColorState
val)
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderColorStatePropertyInfo
instance AttrInfo MemoryTextureBuilderColorStatePropertyInfo where
type AttrAllowedOps MemoryTextureBuilderColorStatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MemoryTextureBuilderColorStatePropertyInfo = IsMemoryTextureBuilder
type AttrSetTypeConstraint MemoryTextureBuilderColorStatePropertyInfo = (~) Gdk.ColorState.ColorState
type AttrTransferTypeConstraint MemoryTextureBuilderColorStatePropertyInfo = (~) Gdk.ColorState.ColorState
type AttrTransferType MemoryTextureBuilderColorStatePropertyInfo = Gdk.ColorState.ColorState
type AttrGetType MemoryTextureBuilderColorStatePropertyInfo = Gdk.ColorState.ColorState
type AttrLabel MemoryTextureBuilderColorStatePropertyInfo = "color-state"
type AttrOrigin MemoryTextureBuilderColorStatePropertyInfo = MemoryTextureBuilder
attrGet = getMemoryTextureBuilderColorState
attrSet = setMemoryTextureBuilderColorState
attrTransfer _ v = do
return v
attrConstruct = constructMemoryTextureBuilderColorState
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.colorState"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#g:attr:colorState"
})
#endif
getMemoryTextureBuilderFormat :: (MonadIO m, IsMemoryTextureBuilder o) => o -> m Gdk.Enums.MemoryFormat
getMemoryTextureBuilderFormat :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> m MemoryFormat
getMemoryTextureBuilderFormat 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"
setMemoryTextureBuilderFormat :: (MonadIO m, IsMemoryTextureBuilder o) => o -> Gdk.Enums.MemoryFormat -> m ()
setMemoryTextureBuilderFormat :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> MemoryFormat -> m ()
setMemoryTextureBuilderFormat 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
constructMemoryTextureBuilderFormat :: (IsMemoryTextureBuilder o, MIO.MonadIO m) => Gdk.Enums.MemoryFormat -> m (GValueConstruct o)
constructMemoryTextureBuilderFormat :: forall o (m :: * -> *).
(IsMemoryTextureBuilder o, MonadIO m) =>
MemoryFormat -> m (GValueConstruct o)
constructMemoryTextureBuilderFormat 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 MemoryTextureBuilderFormatPropertyInfo
instance AttrInfo MemoryTextureBuilderFormatPropertyInfo where
type AttrAllowedOps MemoryTextureBuilderFormatPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MemoryTextureBuilderFormatPropertyInfo = IsMemoryTextureBuilder
type AttrSetTypeConstraint MemoryTextureBuilderFormatPropertyInfo = (~) Gdk.Enums.MemoryFormat
type AttrTransferTypeConstraint MemoryTextureBuilderFormatPropertyInfo = (~) Gdk.Enums.MemoryFormat
type AttrTransferType MemoryTextureBuilderFormatPropertyInfo = Gdk.Enums.MemoryFormat
type AttrGetType MemoryTextureBuilderFormatPropertyInfo = Gdk.Enums.MemoryFormat
type AttrLabel MemoryTextureBuilderFormatPropertyInfo = "format"
type AttrOrigin MemoryTextureBuilderFormatPropertyInfo = MemoryTextureBuilder
attrGet = getMemoryTextureBuilderFormat
attrSet = setMemoryTextureBuilderFormat
attrTransfer _ v = do
return v
attrConstruct = constructMemoryTextureBuilderFormat
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.format"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#g:attr:format"
})
#endif
getMemoryTextureBuilderHeight :: (MonadIO m, IsMemoryTextureBuilder o) => o -> m Int32
getMemoryTextureBuilderHeight :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> m Int32
getMemoryTextureBuilderHeight 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"
setMemoryTextureBuilderHeight :: (MonadIO m, IsMemoryTextureBuilder o) => o -> Int32 -> m ()
setMemoryTextureBuilderHeight :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> Int32 -> m ()
setMemoryTextureBuilderHeight 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
constructMemoryTextureBuilderHeight :: (IsMemoryTextureBuilder o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructMemoryTextureBuilderHeight :: forall o (m :: * -> *).
(IsMemoryTextureBuilder o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructMemoryTextureBuilderHeight 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 MemoryTextureBuilderHeightPropertyInfo
instance AttrInfo MemoryTextureBuilderHeightPropertyInfo where
type AttrAllowedOps MemoryTextureBuilderHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MemoryTextureBuilderHeightPropertyInfo = IsMemoryTextureBuilder
type AttrSetTypeConstraint MemoryTextureBuilderHeightPropertyInfo = (~) Int32
type AttrTransferTypeConstraint MemoryTextureBuilderHeightPropertyInfo = (~) Int32
type AttrTransferType MemoryTextureBuilderHeightPropertyInfo = Int32
type AttrGetType MemoryTextureBuilderHeightPropertyInfo = Int32
type AttrLabel MemoryTextureBuilderHeightPropertyInfo = "height"
type AttrOrigin MemoryTextureBuilderHeightPropertyInfo = MemoryTextureBuilder
attrGet = getMemoryTextureBuilderHeight
attrSet = setMemoryTextureBuilderHeight
attrTransfer _ v = do
return v
attrConstruct = constructMemoryTextureBuilderHeight
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.height"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#g:attr:height"
})
#endif
getMemoryTextureBuilderStride :: (MonadIO m, IsMemoryTextureBuilder o) => o -> m Word64
getMemoryTextureBuilderStride :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> m Word64
getMemoryTextureBuilderStride o
obj = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word64
forall a. GObject a => a -> String -> IO Word64
B.Properties.getObjectPropertyUInt64 o
obj String
"stride"
setMemoryTextureBuilderStride :: (MonadIO m, IsMemoryTextureBuilder o) => o -> Word64 -> m ()
setMemoryTextureBuilderStride :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> Word64 -> m ()
setMemoryTextureBuilderStride o
obj Word64
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 -> Word64 -> IO ()
forall a. GObject a => a -> String -> Word64 -> IO ()
B.Properties.setObjectPropertyUInt64 o
obj String
"stride" Word64
val
constructMemoryTextureBuilderStride :: (IsMemoryTextureBuilder o, MIO.MonadIO m) => Word64 -> m (GValueConstruct o)
constructMemoryTextureBuilderStride :: forall o (m :: * -> *).
(IsMemoryTextureBuilder o, MonadIO m) =>
Word64 -> m (GValueConstruct o)
constructMemoryTextureBuilderStride Word64
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 -> Word64 -> IO (GValueConstruct o)
forall o. String -> Word64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt64 String
"stride" Word64
val
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderStridePropertyInfo
instance AttrInfo MemoryTextureBuilderStridePropertyInfo where
type AttrAllowedOps MemoryTextureBuilderStridePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MemoryTextureBuilderStridePropertyInfo = IsMemoryTextureBuilder
type AttrSetTypeConstraint MemoryTextureBuilderStridePropertyInfo = (~) Word64
type AttrTransferTypeConstraint MemoryTextureBuilderStridePropertyInfo = (~) Word64
type AttrTransferType MemoryTextureBuilderStridePropertyInfo = Word64
type AttrGetType MemoryTextureBuilderStridePropertyInfo = Word64
type AttrLabel MemoryTextureBuilderStridePropertyInfo = "stride"
type AttrOrigin MemoryTextureBuilderStridePropertyInfo = MemoryTextureBuilder
attrGet = getMemoryTextureBuilderStride
attrSet = setMemoryTextureBuilderStride
attrTransfer _ v = do
return v
attrConstruct = constructMemoryTextureBuilderStride
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.stride"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#g:attr:stride"
})
#endif
getMemoryTextureBuilderUpdateRegion :: (MonadIO m, IsMemoryTextureBuilder o) => o -> m (Maybe Cairo.Region.Region)
getMemoryTextureBuilderUpdateRegion :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> m (Maybe Region)
getMemoryTextureBuilderUpdateRegion 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
setMemoryTextureBuilderUpdateRegion :: (MonadIO m, IsMemoryTextureBuilder o) => o -> Cairo.Region.Region -> m ()
setMemoryTextureBuilderUpdateRegion :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> Region -> m ()
setMemoryTextureBuilderUpdateRegion 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)
constructMemoryTextureBuilderUpdateRegion :: (IsMemoryTextureBuilder o, MIO.MonadIO m) => Cairo.Region.Region -> m (GValueConstruct o)
constructMemoryTextureBuilderUpdateRegion :: forall o (m :: * -> *).
(IsMemoryTextureBuilder o, MonadIO m) =>
Region -> m (GValueConstruct o)
constructMemoryTextureBuilderUpdateRegion 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)
clearMemoryTextureBuilderUpdateRegion :: (MonadIO m, IsMemoryTextureBuilder o) => o -> m ()
clearMemoryTextureBuilderUpdateRegion :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> m ()
clearMemoryTextureBuilderUpdateRegion 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 MemoryTextureBuilderUpdateRegionPropertyInfo
instance AttrInfo MemoryTextureBuilderUpdateRegionPropertyInfo where
type AttrAllowedOps MemoryTextureBuilderUpdateRegionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MemoryTextureBuilderUpdateRegionPropertyInfo = IsMemoryTextureBuilder
type AttrSetTypeConstraint MemoryTextureBuilderUpdateRegionPropertyInfo = (~) Cairo.Region.Region
type AttrTransferTypeConstraint MemoryTextureBuilderUpdateRegionPropertyInfo = (~) Cairo.Region.Region
type AttrTransferType MemoryTextureBuilderUpdateRegionPropertyInfo = Cairo.Region.Region
type AttrGetType MemoryTextureBuilderUpdateRegionPropertyInfo = (Maybe Cairo.Region.Region)
type AttrLabel MemoryTextureBuilderUpdateRegionPropertyInfo = "update-region"
type AttrOrigin MemoryTextureBuilderUpdateRegionPropertyInfo = MemoryTextureBuilder
attrGet = getMemoryTextureBuilderUpdateRegion
attrSet = setMemoryTextureBuilderUpdateRegion
attrTransfer _ v = do
return v
attrConstruct = constructMemoryTextureBuilderUpdateRegion
attrClear = clearMemoryTextureBuilderUpdateRegion
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.updateRegion"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#g:attr:updateRegion"
})
#endif
getMemoryTextureBuilderUpdateTexture :: (MonadIO m, IsMemoryTextureBuilder o) => o -> m (Maybe Gdk.Texture.Texture)
getMemoryTextureBuilderUpdateTexture :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> m (Maybe Texture)
getMemoryTextureBuilderUpdateTexture 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
setMemoryTextureBuilderUpdateTexture :: (MonadIO m, IsMemoryTextureBuilder o, Gdk.Texture.IsTexture a) => o -> a -> m ()
setMemoryTextureBuilderUpdateTexture :: forall (m :: * -> *) o a.
(MonadIO m, IsMemoryTextureBuilder o, IsTexture a) =>
o -> a -> m ()
setMemoryTextureBuilderUpdateTexture 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)
constructMemoryTextureBuilderUpdateTexture :: (IsMemoryTextureBuilder o, MIO.MonadIO m, Gdk.Texture.IsTexture a) => a -> m (GValueConstruct o)
constructMemoryTextureBuilderUpdateTexture :: forall o (m :: * -> *) a.
(IsMemoryTextureBuilder o, MonadIO m, IsTexture a) =>
a -> m (GValueConstruct o)
constructMemoryTextureBuilderUpdateTexture 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)
clearMemoryTextureBuilderUpdateTexture :: (MonadIO m, IsMemoryTextureBuilder o) => o -> m ()
clearMemoryTextureBuilderUpdateTexture :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> m ()
clearMemoryTextureBuilderUpdateTexture 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 MemoryTextureBuilderUpdateTexturePropertyInfo
instance AttrInfo MemoryTextureBuilderUpdateTexturePropertyInfo where
type AttrAllowedOps MemoryTextureBuilderUpdateTexturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MemoryTextureBuilderUpdateTexturePropertyInfo = IsMemoryTextureBuilder
type AttrSetTypeConstraint MemoryTextureBuilderUpdateTexturePropertyInfo = Gdk.Texture.IsTexture
type AttrTransferTypeConstraint MemoryTextureBuilderUpdateTexturePropertyInfo = Gdk.Texture.IsTexture
type AttrTransferType MemoryTextureBuilderUpdateTexturePropertyInfo = Gdk.Texture.Texture
type AttrGetType MemoryTextureBuilderUpdateTexturePropertyInfo = (Maybe Gdk.Texture.Texture)
type AttrLabel MemoryTextureBuilderUpdateTexturePropertyInfo = "update-texture"
type AttrOrigin MemoryTextureBuilderUpdateTexturePropertyInfo = MemoryTextureBuilder
attrGet = getMemoryTextureBuilderUpdateTexture
attrSet = setMemoryTextureBuilderUpdateTexture
attrTransfer _ v = do
unsafeCastTo Gdk.Texture.Texture v
attrConstruct = constructMemoryTextureBuilderUpdateTexture
attrClear = clearMemoryTextureBuilderUpdateTexture
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.updateTexture"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#g:attr:updateTexture"
})
#endif
getMemoryTextureBuilderWidth :: (MonadIO m, IsMemoryTextureBuilder o) => o -> m Int32
getMemoryTextureBuilderWidth :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> m Int32
getMemoryTextureBuilderWidth 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"
setMemoryTextureBuilderWidth :: (MonadIO m, IsMemoryTextureBuilder o) => o -> Int32 -> m ()
setMemoryTextureBuilderWidth :: forall (m :: * -> *) o.
(MonadIO m, IsMemoryTextureBuilder o) =>
o -> Int32 -> m ()
setMemoryTextureBuilderWidth 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
constructMemoryTextureBuilderWidth :: (IsMemoryTextureBuilder o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructMemoryTextureBuilderWidth :: forall o (m :: * -> *).
(IsMemoryTextureBuilder o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructMemoryTextureBuilderWidth 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 MemoryTextureBuilderWidthPropertyInfo
instance AttrInfo MemoryTextureBuilderWidthPropertyInfo where
type AttrAllowedOps MemoryTextureBuilderWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MemoryTextureBuilderWidthPropertyInfo = IsMemoryTextureBuilder
type AttrSetTypeConstraint MemoryTextureBuilderWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint MemoryTextureBuilderWidthPropertyInfo = (~) Int32
type AttrTransferType MemoryTextureBuilderWidthPropertyInfo = Int32
type AttrGetType MemoryTextureBuilderWidthPropertyInfo = Int32
type AttrLabel MemoryTextureBuilderWidthPropertyInfo = "width"
type AttrOrigin MemoryTextureBuilderWidthPropertyInfo = MemoryTextureBuilder
attrGet = getMemoryTextureBuilderWidth
attrSet = setMemoryTextureBuilderWidth
attrTransfer _ v = do
return v
attrConstruct = constructMemoryTextureBuilderWidth
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.width"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#g:attr:width"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList MemoryTextureBuilder
type instance O.AttributeList MemoryTextureBuilder = MemoryTextureBuilderAttributeList
type MemoryTextureBuilderAttributeList = ('[ '("bytes", MemoryTextureBuilderBytesPropertyInfo), '("colorState", MemoryTextureBuilderColorStatePropertyInfo), '("format", MemoryTextureBuilderFormatPropertyInfo), '("height", MemoryTextureBuilderHeightPropertyInfo), '("stride", MemoryTextureBuilderStridePropertyInfo), '("updateRegion", MemoryTextureBuilderUpdateRegionPropertyInfo), '("updateTexture", MemoryTextureBuilderUpdateTexturePropertyInfo), '("width", MemoryTextureBuilderWidthPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
memoryTextureBuilderBytes :: AttrLabelProxy "bytes"
memoryTextureBuilderBytes = AttrLabelProxy
memoryTextureBuilderColorState :: AttrLabelProxy "colorState"
memoryTextureBuilderColorState = AttrLabelProxy
memoryTextureBuilderFormat :: AttrLabelProxy "format"
memoryTextureBuilderFormat = AttrLabelProxy
memoryTextureBuilderHeight :: AttrLabelProxy "height"
memoryTextureBuilderHeight = AttrLabelProxy
memoryTextureBuilderStride :: AttrLabelProxy "stride"
memoryTextureBuilderStride = AttrLabelProxy
memoryTextureBuilderUpdateRegion :: AttrLabelProxy "updateRegion"
memoryTextureBuilderUpdateRegion = AttrLabelProxy
memoryTextureBuilderUpdateTexture :: AttrLabelProxy "updateTexture"
memoryTextureBuilderUpdateTexture = AttrLabelProxy
memoryTextureBuilderWidth :: AttrLabelProxy "width"
memoryTextureBuilderWidth = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList MemoryTextureBuilder = MemoryTextureBuilderSignalList
type MemoryTextureBuilderSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gdk_memory_texture_builder_new" gdk_memory_texture_builder_new ::
IO (Ptr MemoryTextureBuilder)
memoryTextureBuilderNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m MemoryTextureBuilder
memoryTextureBuilderNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m MemoryTextureBuilder
memoryTextureBuilderNew = IO MemoryTextureBuilder -> m MemoryTextureBuilder
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MemoryTextureBuilder -> m MemoryTextureBuilder)
-> IO MemoryTextureBuilder -> m MemoryTextureBuilder
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryTextureBuilder
result <- IO (Ptr MemoryTextureBuilder)
gdk_memory_texture_builder_new
Text -> Ptr MemoryTextureBuilder -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"memoryTextureBuilderNew" Ptr MemoryTextureBuilder
result
MemoryTextureBuilder
result' <- ((ManagedPtr MemoryTextureBuilder -> MemoryTextureBuilder)
-> Ptr MemoryTextureBuilder -> IO MemoryTextureBuilder
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr MemoryTextureBuilder -> MemoryTextureBuilder
MemoryTextureBuilder) Ptr MemoryTextureBuilder
result
MemoryTextureBuilder -> IO MemoryTextureBuilder
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return MemoryTextureBuilder
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gdk_memory_texture_builder_build" gdk_memory_texture_builder_build ::
Ptr MemoryTextureBuilder ->
IO (Ptr Gdk.Texture.Texture)
memoryTextureBuilderBuild ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> m Gdk.Texture.Texture
memoryTextureBuilderBuild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> m Texture
memoryTextureBuilderBuild a
self = 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Texture
result <- Ptr MemoryTextureBuilder -> IO (Ptr Texture)
gdk_memory_texture_builder_build Ptr MemoryTextureBuilder
self'
Text -> Ptr Texture -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"memoryTextureBuilderBuild" Ptr Texture
result
Texture
result' <- ((ManagedPtr Texture -> Texture) -> Ptr Texture -> IO Texture
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Texture -> Texture
Gdk.Texture.Texture) Ptr Texture
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Texture -> IO Texture
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Texture
result'
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderBuildMethodInfo
instance (signature ~ (m Gdk.Texture.Texture), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderBuildMethodInfo a signature where
overloadedMethod = memoryTextureBuilderBuild
instance O.OverloadedMethodInfo MemoryTextureBuilderBuildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderBuild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderBuild"
})
#endif
foreign import ccall "gdk_memory_texture_builder_get_bytes" gdk_memory_texture_builder_get_bytes ::
Ptr MemoryTextureBuilder ->
IO (Ptr GLib.Bytes.Bytes)
memoryTextureBuilderGetBytes ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> m (Maybe GLib.Bytes.Bytes)
memoryTextureBuilderGetBytes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> m (Maybe Bytes)
memoryTextureBuilderGetBytes a
self = IO (Maybe Bytes) -> m (Maybe Bytes)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Bytes) -> m (Maybe Bytes))
-> IO (Maybe Bytes) -> m (Maybe Bytes)
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Bytes
result <- Ptr MemoryTextureBuilder -> IO (Ptr Bytes)
gdk_memory_texture_builder_get_bytes Ptr MemoryTextureBuilder
self'
Maybe Bytes
maybeResult <- Ptr Bytes -> (Ptr Bytes -> IO Bytes) -> IO (Maybe Bytes)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Bytes
result ((Ptr Bytes -> IO Bytes) -> IO (Maybe Bytes))
-> (Ptr Bytes -> IO Bytes) -> IO (Maybe Bytes)
forall a b. (a -> b) -> a -> b
$ \Ptr Bytes
result' -> do
Bytes
result'' <- ((ManagedPtr Bytes -> Bytes) -> Ptr Bytes -> IO Bytes
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Bytes -> Bytes
GLib.Bytes.Bytes) Ptr Bytes
result'
Bytes -> IO Bytes
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bytes
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Bytes -> IO (Maybe Bytes)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Bytes
maybeResult
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderGetBytesMethodInfo
instance (signature ~ (m (Maybe GLib.Bytes.Bytes)), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderGetBytesMethodInfo a signature where
overloadedMethod = memoryTextureBuilderGetBytes
instance O.OverloadedMethodInfo MemoryTextureBuilderGetBytesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderGetBytes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderGetBytes"
})
#endif
foreign import ccall "gdk_memory_texture_builder_get_color_state" gdk_memory_texture_builder_get_color_state ::
Ptr MemoryTextureBuilder ->
IO (Ptr Gdk.ColorState.ColorState)
memoryTextureBuilderGetColorState ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> m Gdk.ColorState.ColorState
memoryTextureBuilderGetColorState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> m ColorState
memoryTextureBuilderGetColorState a
self = IO ColorState -> m ColorState
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ColorState -> m ColorState) -> IO ColorState -> m ColorState
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ColorState
result <- Ptr MemoryTextureBuilder -> IO (Ptr ColorState)
gdk_memory_texture_builder_get_color_state Ptr MemoryTextureBuilder
self'
Text -> Ptr ColorState -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"memoryTextureBuilderGetColorState" Ptr ColorState
result
ColorState
result' <- ((ManagedPtr ColorState -> ColorState)
-> Ptr ColorState -> IO ColorState
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr ColorState -> ColorState
Gdk.ColorState.ColorState) Ptr ColorState
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
ColorState -> IO ColorState
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ColorState
result'
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderGetColorStateMethodInfo
instance (signature ~ (m Gdk.ColorState.ColorState), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderGetColorStateMethodInfo a signature where
overloadedMethod = memoryTextureBuilderGetColorState
instance O.OverloadedMethodInfo MemoryTextureBuilderGetColorStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderGetColorState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderGetColorState"
})
#endif
foreign import ccall "gdk_memory_texture_builder_get_format" gdk_memory_texture_builder_get_format ::
Ptr MemoryTextureBuilder ->
IO CUInt
memoryTextureBuilderGetFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> m Gdk.Enums.MemoryFormat
memoryTextureBuilderGetFormat :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> m MemoryFormat
memoryTextureBuilderGetFormat 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr MemoryTextureBuilder -> IO CUInt
gdk_memory_texture_builder_get_format Ptr MemoryTextureBuilder
self'
let result' :: MemoryFormat
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
MemoryFormat -> IO MemoryFormat
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return MemoryFormat
result'
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderGetFormatMethodInfo
instance (signature ~ (m Gdk.Enums.MemoryFormat), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderGetFormatMethodInfo a signature where
overloadedMethod = memoryTextureBuilderGetFormat
instance O.OverloadedMethodInfo MemoryTextureBuilderGetFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderGetFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderGetFormat"
})
#endif
foreign import ccall "gdk_memory_texture_builder_get_height" gdk_memory_texture_builder_get_height ::
Ptr MemoryTextureBuilder ->
IO Int32
memoryTextureBuilderGetHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> m Int32
memoryTextureBuilderGetHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> m Int32
memoryTextureBuilderGetHeight 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Int32
result <- Ptr MemoryTextureBuilder -> IO Int32
gdk_memory_texture_builder_get_height Ptr MemoryTextureBuilder
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderGetHeightMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderGetHeightMethodInfo a signature where
overloadedMethod = memoryTextureBuilderGetHeight
instance O.OverloadedMethodInfo MemoryTextureBuilderGetHeightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderGetHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderGetHeight"
})
#endif
foreign import ccall "gdk_memory_texture_builder_get_offset" gdk_memory_texture_builder_get_offset ::
Ptr MemoryTextureBuilder ->
Word32 ->
IO FCT.CSize
memoryTextureBuilderGetOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> Word32
-> m FCT.CSize
memoryTextureBuilderGetOffset :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> Word32 -> m CSize
memoryTextureBuilderGetOffset a
self Word32
plane = IO CSize -> m CSize
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CSize -> m CSize) -> IO CSize -> m CSize
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CSize
result <- Ptr MemoryTextureBuilder -> Word32 -> IO CSize
gdk_memory_texture_builder_get_offset Ptr MemoryTextureBuilder
self' Word32
plane
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CSize -> IO CSize
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CSize
result
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderGetOffsetMethodInfo
instance (signature ~ (Word32 -> m FCT.CSize), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderGetOffsetMethodInfo a signature where
overloadedMethod = memoryTextureBuilderGetOffset
instance O.OverloadedMethodInfo MemoryTextureBuilderGetOffsetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderGetOffset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderGetOffset"
})
#endif
foreign import ccall "gdk_memory_texture_builder_get_stride" gdk_memory_texture_builder_get_stride ::
Ptr MemoryTextureBuilder ->
IO FCT.CSize
memoryTextureBuilderGetStride ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> m FCT.CSize
memoryTextureBuilderGetStride :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> m CSize
memoryTextureBuilderGetStride a
self = IO CSize -> m CSize
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CSize -> m CSize) -> IO CSize -> m CSize
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CSize
result <- Ptr MemoryTextureBuilder -> IO CSize
gdk_memory_texture_builder_get_stride Ptr MemoryTextureBuilder
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CSize -> IO CSize
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CSize
result
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderGetStrideMethodInfo
instance (signature ~ (m FCT.CSize), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderGetStrideMethodInfo a signature where
overloadedMethod = memoryTextureBuilderGetStride
instance O.OverloadedMethodInfo MemoryTextureBuilderGetStrideMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderGetStride",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderGetStride"
})
#endif
foreign import ccall "gdk_memory_texture_builder_get_stride_for_plane" gdk_memory_texture_builder_get_stride_for_plane ::
Ptr MemoryTextureBuilder ->
Word32 ->
IO FCT.CSize
memoryTextureBuilderGetStrideForPlane ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> Word32
-> m FCT.CSize
memoryTextureBuilderGetStrideForPlane :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> Word32 -> m CSize
memoryTextureBuilderGetStrideForPlane a
self Word32
plane = IO CSize -> m CSize
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CSize -> m CSize) -> IO CSize -> m CSize
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CSize
result <- Ptr MemoryTextureBuilder -> Word32 -> IO CSize
gdk_memory_texture_builder_get_stride_for_plane Ptr MemoryTextureBuilder
self' Word32
plane
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CSize -> IO CSize
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CSize
result
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderGetStrideForPlaneMethodInfo
instance (signature ~ (Word32 -> m FCT.CSize), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderGetStrideForPlaneMethodInfo a signature where
overloadedMethod = memoryTextureBuilderGetStrideForPlane
instance O.OverloadedMethodInfo MemoryTextureBuilderGetStrideForPlaneMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderGetStrideForPlane",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderGetStrideForPlane"
})
#endif
foreign import ccall "gdk_memory_texture_builder_get_update_region" gdk_memory_texture_builder_get_update_region ::
Ptr MemoryTextureBuilder ->
IO (Ptr Cairo.Region.Region)
memoryTextureBuilderGetUpdateRegion ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> m (Maybe Cairo.Region.Region)
memoryTextureBuilderGetUpdateRegion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> m (Maybe Region)
memoryTextureBuilderGetUpdateRegion 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Region
result <- Ptr MemoryTextureBuilder -> IO (Ptr Region)
gdk_memory_texture_builder_get_update_region Ptr MemoryTextureBuilder
self'
Maybe Region
maybeResult <- Ptr Region -> (Ptr Region -> IO Region) -> IO (Maybe Region)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Region
result ((Ptr Region -> IO Region) -> IO (Maybe Region))
-> (Ptr Region -> IO Region) -> IO (Maybe Region)
forall a b. (a -> b) -> a -> b
$ \Ptr Region
result' -> do
Region
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'
Region -> IO Region
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Region
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Region -> IO (Maybe Region)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Region
maybeResult
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderGetUpdateRegionMethodInfo
instance (signature ~ (m (Maybe Cairo.Region.Region)), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderGetUpdateRegionMethodInfo a signature where
overloadedMethod = memoryTextureBuilderGetUpdateRegion
instance O.OverloadedMethodInfo MemoryTextureBuilderGetUpdateRegionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderGetUpdateRegion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderGetUpdateRegion"
})
#endif
foreign import ccall "gdk_memory_texture_builder_get_update_texture" gdk_memory_texture_builder_get_update_texture ::
Ptr MemoryTextureBuilder ->
IO (Ptr Gdk.Texture.Texture)
memoryTextureBuilderGetUpdateTexture ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> m (Maybe Gdk.Texture.Texture)
memoryTextureBuilderGetUpdateTexture :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> m (Maybe Texture)
memoryTextureBuilderGetUpdateTexture 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Texture
result <- Ptr MemoryTextureBuilder -> IO (Ptr Texture)
gdk_memory_texture_builder_get_update_texture Ptr MemoryTextureBuilder
self'
Maybe Texture
maybeResult <- Ptr Texture -> (Ptr Texture -> IO Texture) -> IO (Maybe Texture)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Texture
result ((Ptr Texture -> IO Texture) -> IO (Maybe Texture))
-> (Ptr Texture -> IO Texture) -> IO (Maybe Texture)
forall a b. (a -> b) -> a -> b
$ \Ptr Texture
result' -> do
Texture
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'
Texture -> IO Texture
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Texture
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Texture -> IO (Maybe Texture)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Texture
maybeResult
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderGetUpdateTextureMethodInfo
instance (signature ~ (m (Maybe Gdk.Texture.Texture)), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderGetUpdateTextureMethodInfo a signature where
overloadedMethod = memoryTextureBuilderGetUpdateTexture
instance O.OverloadedMethodInfo MemoryTextureBuilderGetUpdateTextureMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderGetUpdateTexture",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderGetUpdateTexture"
})
#endif
foreign import ccall "gdk_memory_texture_builder_get_width" gdk_memory_texture_builder_get_width ::
Ptr MemoryTextureBuilder ->
IO Int32
memoryTextureBuilderGetWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> m Int32
memoryTextureBuilderGetWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> m Int32
memoryTextureBuilderGetWidth 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Int32
result <- Ptr MemoryTextureBuilder -> IO Int32
gdk_memory_texture_builder_get_width Ptr MemoryTextureBuilder
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderGetWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderGetWidthMethodInfo a signature where
overloadedMethod = memoryTextureBuilderGetWidth
instance O.OverloadedMethodInfo MemoryTextureBuilderGetWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderGetWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderGetWidth"
})
#endif
foreign import ccall "gdk_memory_texture_builder_set_bytes" gdk_memory_texture_builder_set_bytes ::
Ptr MemoryTextureBuilder ->
Ptr GLib.Bytes.Bytes ->
IO ()
memoryTextureBuilderSetBytes ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> Maybe (GLib.Bytes.Bytes)
-> m ()
memoryTextureBuilderSetBytes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> Maybe Bytes -> m ()
memoryTextureBuilderSetBytes a
self Maybe Bytes
bytes = 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Bytes
maybeBytes <- case Maybe Bytes
bytes of
Maybe Bytes
Nothing -> Ptr Bytes -> IO (Ptr Bytes)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Bytes
forall a. Ptr a
FP.nullPtr
Just Bytes
jBytes -> do
Ptr Bytes
jBytes' <- Bytes -> IO (Ptr Bytes)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Bytes
jBytes
Ptr Bytes -> IO (Ptr Bytes)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Bytes
jBytes'
Ptr MemoryTextureBuilder -> Ptr Bytes -> IO ()
gdk_memory_texture_builder_set_bytes Ptr MemoryTextureBuilder
self' Ptr Bytes
maybeBytes
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Bytes -> (Bytes -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Bytes
bytes Bytes -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderSetBytesMethodInfo
instance (signature ~ (Maybe (GLib.Bytes.Bytes) -> m ()), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderSetBytesMethodInfo a signature where
overloadedMethod = memoryTextureBuilderSetBytes
instance O.OverloadedMethodInfo MemoryTextureBuilderSetBytesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderSetBytes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderSetBytes"
})
#endif
foreign import ccall "gdk_memory_texture_builder_set_color_state" gdk_memory_texture_builder_set_color_state ::
Ptr MemoryTextureBuilder ->
Ptr Gdk.ColorState.ColorState ->
IO ()
memoryTextureBuilderSetColorState ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> Gdk.ColorState.ColorState
-> m ()
memoryTextureBuilderSetColorState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> ColorState -> m ()
memoryTextureBuilderSetColorState a
self ColorState
colorState = 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ColorState
colorState' <- ColorState -> IO (Ptr ColorState)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ColorState
colorState
Ptr MemoryTextureBuilder -> Ptr ColorState -> IO ()
gdk_memory_texture_builder_set_color_state Ptr MemoryTextureBuilder
self' Ptr ColorState
colorState'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
ColorState -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ColorState
colorState
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderSetColorStateMethodInfo
instance (signature ~ (Gdk.ColorState.ColorState -> m ()), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderSetColorStateMethodInfo a signature where
overloadedMethod = memoryTextureBuilderSetColorState
instance O.OverloadedMethodInfo MemoryTextureBuilderSetColorStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderSetColorState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderSetColorState"
})
#endif
foreign import ccall "gdk_memory_texture_builder_set_format" gdk_memory_texture_builder_set_format ::
Ptr MemoryTextureBuilder ->
CUInt ->
IO ()
memoryTextureBuilderSetFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> Gdk.Enums.MemoryFormat
-> m ()
memoryTextureBuilderSetFormat :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> MemoryFormat -> m ()
memoryTextureBuilderSetFormat 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let format' :: CUInt
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
Ptr MemoryTextureBuilder -> CUInt -> IO ()
gdk_memory_texture_builder_set_format Ptr MemoryTextureBuilder
self' CUInt
format'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderSetFormatMethodInfo
instance (signature ~ (Gdk.Enums.MemoryFormat -> m ()), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderSetFormatMethodInfo a signature where
overloadedMethod = memoryTextureBuilderSetFormat
instance O.OverloadedMethodInfo MemoryTextureBuilderSetFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderSetFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderSetFormat"
})
#endif
foreign import ccall "gdk_memory_texture_builder_set_height" gdk_memory_texture_builder_set_height ::
Ptr MemoryTextureBuilder ->
Int32 ->
IO ()
memoryTextureBuilderSetHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> Int32
-> m ()
memoryTextureBuilderSetHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> Int32 -> m ()
memoryTextureBuilderSetHeight 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr MemoryTextureBuilder -> Int32 -> IO ()
gdk_memory_texture_builder_set_height Ptr MemoryTextureBuilder
self' Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderSetHeightMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderSetHeightMethodInfo a signature where
overloadedMethod = memoryTextureBuilderSetHeight
instance O.OverloadedMethodInfo MemoryTextureBuilderSetHeightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderSetHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderSetHeight"
})
#endif
foreign import ccall "gdk_memory_texture_builder_set_offset" gdk_memory_texture_builder_set_offset ::
Ptr MemoryTextureBuilder ->
Word32 ->
FCT.CSize ->
IO ()
memoryTextureBuilderSetOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> Word32
-> FCT.CSize
-> m ()
memoryTextureBuilderSetOffset :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> Word32 -> CSize -> m ()
memoryTextureBuilderSetOffset a
self Word32
plane CSize
offset = 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr MemoryTextureBuilder -> Word32 -> CSize -> IO ()
gdk_memory_texture_builder_set_offset Ptr MemoryTextureBuilder
self' Word32
plane CSize
offset
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderSetOffsetMethodInfo
instance (signature ~ (Word32 -> FCT.CSize -> m ()), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderSetOffsetMethodInfo a signature where
overloadedMethod = memoryTextureBuilderSetOffset
instance O.OverloadedMethodInfo MemoryTextureBuilderSetOffsetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderSetOffset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderSetOffset"
})
#endif
foreign import ccall "gdk_memory_texture_builder_set_stride" gdk_memory_texture_builder_set_stride ::
Ptr MemoryTextureBuilder ->
FCT.CSize ->
IO ()
memoryTextureBuilderSetStride ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> FCT.CSize
-> m ()
memoryTextureBuilderSetStride :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> CSize -> m ()
memoryTextureBuilderSetStride a
self CSize
stride = 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr MemoryTextureBuilder -> CSize -> IO ()
gdk_memory_texture_builder_set_stride Ptr MemoryTextureBuilder
self' CSize
stride
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderSetStrideMethodInfo
instance (signature ~ (FCT.CSize -> m ()), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderSetStrideMethodInfo a signature where
overloadedMethod = memoryTextureBuilderSetStride
instance O.OverloadedMethodInfo MemoryTextureBuilderSetStrideMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderSetStride",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderSetStride"
})
#endif
foreign import ccall "gdk_memory_texture_builder_set_stride_for_plane" gdk_memory_texture_builder_set_stride_for_plane ::
Ptr MemoryTextureBuilder ->
Word32 ->
FCT.CSize ->
IO ()
memoryTextureBuilderSetStrideForPlane ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> Word32
-> FCT.CSize
-> m ()
memoryTextureBuilderSetStrideForPlane :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> Word32 -> CSize -> m ()
memoryTextureBuilderSetStrideForPlane a
self Word32
plane CSize
stride = 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr MemoryTextureBuilder -> Word32 -> CSize -> IO ()
gdk_memory_texture_builder_set_stride_for_plane Ptr MemoryTextureBuilder
self' Word32
plane CSize
stride
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderSetStrideForPlaneMethodInfo
instance (signature ~ (Word32 -> FCT.CSize -> m ()), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderSetStrideForPlaneMethodInfo a signature where
overloadedMethod = memoryTextureBuilderSetStrideForPlane
instance O.OverloadedMethodInfo MemoryTextureBuilderSetStrideForPlaneMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderSetStrideForPlane",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderSetStrideForPlane"
})
#endif
foreign import ccall "gdk_memory_texture_builder_set_update_region" gdk_memory_texture_builder_set_update_region ::
Ptr MemoryTextureBuilder ->
Ptr Cairo.Region.Region ->
IO ()
memoryTextureBuilderSetUpdateRegion ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> Maybe (Cairo.Region.Region)
-> m ()
memoryTextureBuilderSetUpdateRegion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> Maybe Region -> m ()
memoryTextureBuilderSetUpdateRegion 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Region
maybeRegion <- case Maybe Region
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
Ptr Region
jRegion' <- Region -> IO (Ptr Region)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Region
jRegion
Ptr Region -> IO (Ptr Region)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Region
jRegion'
Ptr MemoryTextureBuilder -> Ptr Region -> IO ()
gdk_memory_texture_builder_set_update_region Ptr MemoryTextureBuilder
self' Ptr Region
maybeRegion
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Region -> (Region -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Region
region Region -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderSetUpdateRegionMethodInfo
instance (signature ~ (Maybe (Cairo.Region.Region) -> m ()), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderSetUpdateRegionMethodInfo a signature where
overloadedMethod = memoryTextureBuilderSetUpdateRegion
instance O.OverloadedMethodInfo MemoryTextureBuilderSetUpdateRegionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderSetUpdateRegion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderSetUpdateRegion"
})
#endif
foreign import ccall "gdk_memory_texture_builder_set_update_texture" gdk_memory_texture_builder_set_update_texture ::
Ptr MemoryTextureBuilder ->
Ptr Gdk.Texture.Texture ->
IO ()
memoryTextureBuilderSetUpdateTexture ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a, Gdk.Texture.IsTexture b) =>
a
-> Maybe (b)
-> m ()
memoryTextureBuilderSetUpdateTexture :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a, IsTexture b) =>
a -> Maybe b -> m ()
memoryTextureBuilderSetUpdateTexture 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Texture
maybeTexture <- case Maybe b
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
Ptr Texture
jTexture' <- b -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jTexture
Ptr Texture -> IO (Ptr Texture)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Texture
jTexture'
Ptr MemoryTextureBuilder -> Ptr Texture -> IO ()
gdk_memory_texture_builder_set_update_texture Ptr MemoryTextureBuilder
self' Ptr Texture
maybeTexture
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
texture b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderSetUpdateTextureMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsMemoryTextureBuilder a, Gdk.Texture.IsTexture b) => O.OverloadedMethod MemoryTextureBuilderSetUpdateTextureMethodInfo a signature where
overloadedMethod = memoryTextureBuilderSetUpdateTexture
instance O.OverloadedMethodInfo MemoryTextureBuilderSetUpdateTextureMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderSetUpdateTexture",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderSetUpdateTexture"
})
#endif
foreign import ccall "gdk_memory_texture_builder_set_width" gdk_memory_texture_builder_set_width ::
Ptr MemoryTextureBuilder ->
Int32 ->
IO ()
memoryTextureBuilderSetWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a
-> Int32
-> m ()
memoryTextureBuilderSetWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMemoryTextureBuilder a) =>
a -> Int32 -> m ()
memoryTextureBuilderSetWidth 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
Ptr MemoryTextureBuilder
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr MemoryTextureBuilder -> Int32 -> IO ()
gdk_memory_texture_builder_set_width Ptr MemoryTextureBuilder
self' Int32
width
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryTextureBuilderSetWidthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsMemoryTextureBuilder a) => O.OverloadedMethod MemoryTextureBuilderSetWidthMethodInfo a signature where
overloadedMethod = memoryTextureBuilderSetWidth
instance O.OverloadedMethodInfo MemoryTextureBuilderSetWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.MemoryTextureBuilder.memoryTextureBuilderSetWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-MemoryTextureBuilder.html#v:memoryTextureBuilderSetWidth"
})
#endif