{-# LANGUAGE TypeApplications #-}
#if !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 <- 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 /= FP.nullPtr
then P.Just <$> B.ManagedPtr.newObject MemoryTextureBuilder ptr
else return 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
attrPut = undefined
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, 'AttrPut]
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
attrPut = 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, 'AttrPut]
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
attrPut = 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, 'AttrPut]
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
attrPut = 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, 'AttrPut]
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
attrPut = 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
attrPut = undefined
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
attrPut = undefined
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, 'AttrPut]
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
attrPut = 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
result <- IO (Ptr MemoryTextureBuilder)
gdk_memory_texture_builder_new
checkUnexpectedReturnNULL "memoryTextureBuilderNew" result
result' <- (wrapObject MemoryTextureBuilder) result
return 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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_memory_texture_builder_build self'
checkUnexpectedReturnNULL "memoryTextureBuilderBuild" result
result' <- (wrapObject Gdk.Texture.Texture) result
touchManagedPtr self
return 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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_memory_texture_builder_get_bytes self'
maybeResult <- convertIfNonNull result $ \Ptr Bytes
result' -> do
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'
return result''
touchManagedPtr self
return 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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_memory_texture_builder_get_color_state self'
checkUnexpectedReturnNULL "memoryTextureBuilderGetColorState" result
result' <- (newBoxed Gdk.ColorState.ColorState) result
touchManagedPtr self
return 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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_memory_texture_builder_get_format self'
let result' = (Int -> MemoryFormat
forall a. Enum a => Int -> a
toEnum (Int -> MemoryFormat) -> (CUInt -> Int) -> CUInt -> MemoryFormat
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
touchManagedPtr self
return result'
#if defined(ENABLE_OVERLOADING)
data 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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_memory_texture_builder_get_height self'
touchManagedPtr self
return 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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_memory_texture_builder_get_offset self' plane
touchManagedPtr self
return 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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_memory_texture_builder_get_stride self'
touchManagedPtr self
return 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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_memory_texture_builder_get_stride_for_plane self' plane
touchManagedPtr self
return 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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_memory_texture_builder_get_update_region self'
maybeResult <- convertIfNonNull result $ \Ptr Region
result' -> do
result'' <- ((ManagedPtr Region -> Region) -> Ptr Region -> IO Region
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Region -> Region
Cairo.Region.Region) Ptr Region
result'
return result''
touchManagedPtr self
return maybeResult
#if defined(ENABLE_OVERLOADING)
data 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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_memory_texture_builder_get_update_texture self'
maybeResult <- convertIfNonNull result $ \Ptr Texture
result' -> do
result'' <- ((ManagedPtr Texture -> Texture) -> Ptr Texture -> IO Texture
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Texture -> Texture
Gdk.Texture.Texture) Ptr Texture
result'
return result''
touchManagedPtr self
return maybeResult
#if defined(ENABLE_OVERLOADING)
data 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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
result <- gdk_memory_texture_builder_get_width self'
touchManagedPtr self
return 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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
maybeBytes <- case 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
jBytes' <- Bytes -> IO (Ptr Bytes)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Bytes
jBytes
return jBytes'
gdk_memory_texture_builder_set_bytes self' maybeBytes
touchManagedPtr self
whenJust bytes touchManagedPtr
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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
colorState' <- unsafeManagedPtrGetPtr colorState
gdk_memory_texture_builder_set_color_state self' colorState'
touchManagedPtr self
touchManagedPtr colorState
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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let format' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (MemoryFormat -> Int) -> MemoryFormat -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. MemoryFormat -> Int
forall a. Enum a => a -> Int
fromEnum) MemoryFormat
format
gdk_memory_texture_builder_set_format self' format'
touchManagedPtr self
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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
gdk_memory_texture_builder_set_height self' height
touchManagedPtr self
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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
gdk_memory_texture_builder_set_offset self' plane offset
touchManagedPtr self
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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
gdk_memory_texture_builder_set_stride self' stride
touchManagedPtr self
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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
gdk_memory_texture_builder_set_stride_for_plane self' plane stride
touchManagedPtr self
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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
maybeRegion <- case region of
Maybe Region
Nothing -> Ptr Region -> IO (Ptr Region)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Region
forall a. Ptr a
FP.nullPtr
Just Region
jRegion -> do
jRegion' <- Region -> IO (Ptr Region)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Region
jRegion
return jRegion'
gdk_memory_texture_builder_set_update_region self' maybeRegion
touchManagedPtr self
whenJust region touchManagedPtr
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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
maybeTexture <- case texture of
Maybe b
Nothing -> Ptr Texture -> IO (Ptr Texture)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Texture
forall a. Ptr a
FP.nullPtr
Just b
jTexture -> do
jTexture' <- b -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jTexture
return jTexture'
gdk_memory_texture_builder_set_update_texture self' maybeTexture
touchManagedPtr self
whenJust texture touchManagedPtr
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
self' <- a -> IO (Ptr MemoryTextureBuilder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
gdk_memory_texture_builder_set_width self' width
touchManagedPtr self
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