{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Objects.CicpParams
(
CicpParams(..) ,
IsCicpParams ,
toCicpParams ,
#if defined(ENABLE_OVERLOADING)
ResolveCicpParamsMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CicpParamsBuildColorStateMethodInfo ,
#endif
cicpParamsBuildColorState ,
#if defined(ENABLE_OVERLOADING)
CicpParamsGetColorPrimariesMethodInfo ,
#endif
cicpParamsGetColorPrimaries ,
#if defined(ENABLE_OVERLOADING)
CicpParamsGetMatrixCoefficientsMethodInfo,
#endif
cicpParamsGetMatrixCoefficients ,
#if defined(ENABLE_OVERLOADING)
CicpParamsGetRangeMethodInfo ,
#endif
cicpParamsGetRange ,
#if defined(ENABLE_OVERLOADING)
CicpParamsGetTransferFunctionMethodInfo ,
#endif
cicpParamsGetTransferFunction ,
cicpParamsNew ,
#if defined(ENABLE_OVERLOADING)
CicpParamsSetColorPrimariesMethodInfo ,
#endif
cicpParamsSetColorPrimaries ,
#if defined(ENABLE_OVERLOADING)
CicpParamsSetMatrixCoefficientsMethodInfo,
#endif
cicpParamsSetMatrixCoefficients ,
#if defined(ENABLE_OVERLOADING)
CicpParamsSetRangeMethodInfo ,
#endif
cicpParamsSetRange ,
#if defined(ENABLE_OVERLOADING)
CicpParamsSetTransferFunctionMethodInfo ,
#endif
cicpParamsSetTransferFunction ,
#if defined(ENABLE_OVERLOADING)
CicpParamsColorPrimariesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cicpParamsColorPrimaries ,
#endif
constructCicpParamsColorPrimaries ,
getCicpParamsColorPrimaries ,
setCicpParamsColorPrimaries ,
#if defined(ENABLE_OVERLOADING)
CicpParamsMatrixCoefficientsPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cicpParamsMatrixCoefficients ,
#endif
constructCicpParamsMatrixCoefficients ,
getCicpParamsMatrixCoefficients ,
setCicpParamsMatrixCoefficients ,
#if defined(ENABLE_OVERLOADING)
CicpParamsRangePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cicpParamsRange ,
#endif
constructCicpParamsRange ,
getCicpParamsRange ,
setCicpParamsRange ,
#if defined(ENABLE_OVERLOADING)
CicpParamsTransferFunctionPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cicpParamsTransferFunction ,
#endif
constructCicpParamsTransferFunction ,
getCicpParamsTransferFunction ,
setCicpParamsTransferFunction ,
) 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.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gdk.Enums as Gdk.Enums
import {-# SOURCE #-} qualified GI.Gdk.Structs.ColorState as Gdk.ColorState
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gdk.Enums as Gdk.Enums
import {-# SOURCE #-} qualified GI.Gdk.Structs.ColorState as Gdk.ColorState
#endif
newtype CicpParams = CicpParams (SP.ManagedPtr CicpParams)
deriving (CicpParams -> CicpParams -> Bool
(CicpParams -> CicpParams -> Bool)
-> (CicpParams -> CicpParams -> Bool) -> Eq CicpParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CicpParams -> CicpParams -> Bool
== :: CicpParams -> CicpParams -> Bool
$c/= :: CicpParams -> CicpParams -> Bool
/= :: CicpParams -> CicpParams -> Bool
Eq)
instance SP.ManagedPtrNewtype CicpParams where
toManagedPtr :: CicpParams -> ManagedPtr CicpParams
toManagedPtr (CicpParams ManagedPtr CicpParams
p) = ManagedPtr CicpParams
p
foreign import ccall "gdk_cicp_params_get_type"
c_gdk_cicp_params_get_type :: IO B.Types.GType
instance B.Types.TypedObject CicpParams where
glibType :: IO GType
glibType = IO GType
c_gdk_cicp_params_get_type
instance B.Types.GObject CicpParams
class (SP.GObject o, O.IsDescendantOf CicpParams o) => IsCicpParams o
instance (SP.GObject o, O.IsDescendantOf CicpParams o) => IsCicpParams o
instance O.HasParentTypes CicpParams
type instance O.ParentTypes CicpParams = '[GObject.Object.Object]
toCicpParams :: (MIO.MonadIO m, IsCicpParams o) => o -> m CicpParams
toCicpParams :: forall (m :: * -> *) o.
(MonadIO m, IsCicpParams o) =>
o -> m CicpParams
toCicpParams = IO CicpParams -> m CicpParams
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CicpParams -> m CicpParams)
-> (o -> IO CicpParams) -> o -> m CicpParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CicpParams -> CicpParams) -> o -> IO CicpParams
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr CicpParams -> CicpParams
CicpParams
instance B.GValue.IsGValue (Maybe CicpParams) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gdk_cicp_params_get_type
gvalueSet_ :: Ptr GValue -> Maybe CicpParams -> IO ()
gvalueSet_ Ptr GValue
gv Maybe CicpParams
P.Nothing = Ptr GValue -> Ptr CicpParams -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr CicpParams
forall a. Ptr a
FP.nullPtr :: FP.Ptr CicpParams)
gvalueSet_ Ptr GValue
gv (P.Just CicpParams
obj) = CicpParams -> (Ptr CicpParams -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CicpParams
obj (Ptr GValue -> Ptr CicpParams -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe CicpParams)
gvalueGet_ Ptr GValue
gv = do
Ptr CicpParams
ptr <- Ptr GValue -> IO (Ptr CicpParams)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr CicpParams)
if Ptr CicpParams
ptr Ptr CicpParams -> Ptr CicpParams -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr CicpParams
forall a. Ptr a
FP.nullPtr
then CicpParams -> Maybe CicpParams
forall a. a -> Maybe a
P.Just (CicpParams -> Maybe CicpParams)
-> IO CicpParams -> IO (Maybe CicpParams)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr CicpParams -> CicpParams)
-> Ptr CicpParams -> IO CicpParams
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr CicpParams -> CicpParams
CicpParams Ptr CicpParams
ptr
else Maybe CicpParams -> IO (Maybe CicpParams)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CicpParams
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCicpParamsMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveCicpParamsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCicpParamsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCicpParamsMethod "buildColorState" o = CicpParamsBuildColorStateMethodInfo
ResolveCicpParamsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCicpParamsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCicpParamsMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCicpParamsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCicpParamsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCicpParamsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCicpParamsMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCicpParamsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCicpParamsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCicpParamsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCicpParamsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCicpParamsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCicpParamsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCicpParamsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCicpParamsMethod "getColorPrimaries" o = CicpParamsGetColorPrimariesMethodInfo
ResolveCicpParamsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCicpParamsMethod "getMatrixCoefficients" o = CicpParamsGetMatrixCoefficientsMethodInfo
ResolveCicpParamsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCicpParamsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCicpParamsMethod "getRange" o = CicpParamsGetRangeMethodInfo
ResolveCicpParamsMethod "getTransferFunction" o = CicpParamsGetTransferFunctionMethodInfo
ResolveCicpParamsMethod "setColorPrimaries" o = CicpParamsSetColorPrimariesMethodInfo
ResolveCicpParamsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCicpParamsMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCicpParamsMethod "setMatrixCoefficients" o = CicpParamsSetMatrixCoefficientsMethodInfo
ResolveCicpParamsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCicpParamsMethod "setRange" o = CicpParamsSetRangeMethodInfo
ResolveCicpParamsMethod "setTransferFunction" o = CicpParamsSetTransferFunctionMethodInfo
ResolveCicpParamsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCicpParamsMethod t CicpParams, O.OverloadedMethod info CicpParams p) => OL.IsLabel t (CicpParams -> 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 ~ ResolveCicpParamsMethod t CicpParams, O.OverloadedMethod info CicpParams p, R.HasField t CicpParams p) => R.HasField t CicpParams p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCicpParamsMethod t CicpParams, O.OverloadedMethodInfo info CicpParams) => OL.IsLabel t (O.MethodProxy info CicpParams) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getCicpParamsColorPrimaries :: (MonadIO m, IsCicpParams o) => o -> m Word32
getCicpParamsColorPrimaries :: forall (m :: * -> *) o.
(MonadIO m, IsCicpParams o) =>
o -> m Word32
getCicpParamsColorPrimaries o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"color-primaries"
setCicpParamsColorPrimaries :: (MonadIO m, IsCicpParams o) => o -> Word32 -> m ()
setCicpParamsColorPrimaries :: forall (m :: * -> *) o.
(MonadIO m, IsCicpParams o) =>
o -> Word32 -> m ()
setCicpParamsColorPrimaries o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"color-primaries" Word32
val
constructCicpParamsColorPrimaries :: (IsCicpParams o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructCicpParamsColorPrimaries :: forall o (m :: * -> *).
(IsCicpParams o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructCicpParamsColorPrimaries Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"color-primaries" Word32
val
#if defined(ENABLE_OVERLOADING)
data CicpParamsColorPrimariesPropertyInfo
instance AttrInfo CicpParamsColorPrimariesPropertyInfo where
type AttrAllowedOps CicpParamsColorPrimariesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CicpParamsColorPrimariesPropertyInfo = IsCicpParams
type AttrSetTypeConstraint CicpParamsColorPrimariesPropertyInfo = (~) Word32
type AttrTransferTypeConstraint CicpParamsColorPrimariesPropertyInfo = (~) Word32
type AttrTransferType CicpParamsColorPrimariesPropertyInfo = Word32
type AttrGetType CicpParamsColorPrimariesPropertyInfo = Word32
type AttrLabel CicpParamsColorPrimariesPropertyInfo = "color-primaries"
type AttrOrigin CicpParamsColorPrimariesPropertyInfo = CicpParams
attrGet = getCicpParamsColorPrimaries
attrSet = setCicpParamsColorPrimaries
attrTransfer _ v = do
return v
attrConstruct = constructCicpParamsColorPrimaries
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.CicpParams.colorPrimaries"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-CicpParams.html#g:attr:colorPrimaries"
})
#endif
getCicpParamsMatrixCoefficients :: (MonadIO m, IsCicpParams o) => o -> m Word32
getCicpParamsMatrixCoefficients :: forall (m :: * -> *) o.
(MonadIO m, IsCicpParams o) =>
o -> m Word32
getCicpParamsMatrixCoefficients o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"matrix-coefficients"
setCicpParamsMatrixCoefficients :: (MonadIO m, IsCicpParams o) => o -> Word32 -> m ()
setCicpParamsMatrixCoefficients :: forall (m :: * -> *) o.
(MonadIO m, IsCicpParams o) =>
o -> Word32 -> m ()
setCicpParamsMatrixCoefficients o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"matrix-coefficients" Word32
val
constructCicpParamsMatrixCoefficients :: (IsCicpParams o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructCicpParamsMatrixCoefficients :: forall o (m :: * -> *).
(IsCicpParams o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructCicpParamsMatrixCoefficients Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"matrix-coefficients" Word32
val
#if defined(ENABLE_OVERLOADING)
data CicpParamsMatrixCoefficientsPropertyInfo
instance AttrInfo CicpParamsMatrixCoefficientsPropertyInfo where
type AttrAllowedOps CicpParamsMatrixCoefficientsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CicpParamsMatrixCoefficientsPropertyInfo = IsCicpParams
type AttrSetTypeConstraint CicpParamsMatrixCoefficientsPropertyInfo = (~) Word32
type AttrTransferTypeConstraint CicpParamsMatrixCoefficientsPropertyInfo = (~) Word32
type AttrTransferType CicpParamsMatrixCoefficientsPropertyInfo = Word32
type AttrGetType CicpParamsMatrixCoefficientsPropertyInfo = Word32
type AttrLabel CicpParamsMatrixCoefficientsPropertyInfo = "matrix-coefficients"
type AttrOrigin CicpParamsMatrixCoefficientsPropertyInfo = CicpParams
attrGet = getCicpParamsMatrixCoefficients
attrSet = setCicpParamsMatrixCoefficients
attrTransfer _ v = do
return v
attrConstruct = constructCicpParamsMatrixCoefficients
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.CicpParams.matrixCoefficients"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-CicpParams.html#g:attr:matrixCoefficients"
})
#endif
getCicpParamsRange :: (MonadIO m, IsCicpParams o) => o -> m Gdk.Enums.CicpRange
getCicpParamsRange :: forall (m :: * -> *) o.
(MonadIO m, IsCicpParams o) =>
o -> m CicpRange
getCicpParamsRange o
obj = IO CicpRange -> m CicpRange
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CicpRange -> m CicpRange) -> IO CicpRange -> m CicpRange
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CicpRange
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"range"
setCicpParamsRange :: (MonadIO m, IsCicpParams o) => o -> Gdk.Enums.CicpRange -> m ()
setCicpParamsRange :: forall (m :: * -> *) o.
(MonadIO m, IsCicpParams o) =>
o -> CicpRange -> m ()
setCicpParamsRange o
obj CicpRange
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 -> CicpRange -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"range" CicpRange
val
constructCicpParamsRange :: (IsCicpParams o, MIO.MonadIO m) => Gdk.Enums.CicpRange -> m (GValueConstruct o)
constructCicpParamsRange :: forall o (m :: * -> *).
(IsCicpParams o, MonadIO m) =>
CicpRange -> m (GValueConstruct o)
constructCicpParamsRange CicpRange
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 -> CicpRange -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"range" CicpRange
val
#if defined(ENABLE_OVERLOADING)
data CicpParamsRangePropertyInfo
instance AttrInfo CicpParamsRangePropertyInfo where
type AttrAllowedOps CicpParamsRangePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CicpParamsRangePropertyInfo = IsCicpParams
type AttrSetTypeConstraint CicpParamsRangePropertyInfo = (~) Gdk.Enums.CicpRange
type AttrTransferTypeConstraint CicpParamsRangePropertyInfo = (~) Gdk.Enums.CicpRange
type AttrTransferType CicpParamsRangePropertyInfo = Gdk.Enums.CicpRange
type AttrGetType CicpParamsRangePropertyInfo = Gdk.Enums.CicpRange
type AttrLabel CicpParamsRangePropertyInfo = "range"
type AttrOrigin CicpParamsRangePropertyInfo = CicpParams
attrGet = getCicpParamsRange
attrSet = setCicpParamsRange
attrTransfer _ v = do
return v
attrConstruct = constructCicpParamsRange
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.CicpParams.range"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-CicpParams.html#g:attr:range"
})
#endif
getCicpParamsTransferFunction :: (MonadIO m, IsCicpParams o) => o -> m Word32
getCicpParamsTransferFunction :: forall (m :: * -> *) o.
(MonadIO m, IsCicpParams o) =>
o -> m Word32
getCicpParamsTransferFunction o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"transfer-function"
setCicpParamsTransferFunction :: (MonadIO m, IsCicpParams o) => o -> Word32 -> m ()
setCicpParamsTransferFunction :: forall (m :: * -> *) o.
(MonadIO m, IsCicpParams o) =>
o -> Word32 -> m ()
setCicpParamsTransferFunction o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"transfer-function" Word32
val
constructCicpParamsTransferFunction :: (IsCicpParams o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructCicpParamsTransferFunction :: forall o (m :: * -> *).
(IsCicpParams o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructCicpParamsTransferFunction Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"transfer-function" Word32
val
#if defined(ENABLE_OVERLOADING)
data CicpParamsTransferFunctionPropertyInfo
instance AttrInfo CicpParamsTransferFunctionPropertyInfo where
type AttrAllowedOps CicpParamsTransferFunctionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CicpParamsTransferFunctionPropertyInfo = IsCicpParams
type AttrSetTypeConstraint CicpParamsTransferFunctionPropertyInfo = (~) Word32
type AttrTransferTypeConstraint CicpParamsTransferFunctionPropertyInfo = (~) Word32
type AttrTransferType CicpParamsTransferFunctionPropertyInfo = Word32
type AttrGetType CicpParamsTransferFunctionPropertyInfo = Word32
type AttrLabel CicpParamsTransferFunctionPropertyInfo = "transfer-function"
type AttrOrigin CicpParamsTransferFunctionPropertyInfo = CicpParams
attrGet = getCicpParamsTransferFunction
attrSet = setCicpParamsTransferFunction
attrTransfer _ v = do
return v
attrConstruct = constructCicpParamsTransferFunction
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.CicpParams.transferFunction"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-CicpParams.html#g:attr:transferFunction"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CicpParams
type instance O.AttributeList CicpParams = CicpParamsAttributeList
type CicpParamsAttributeList = ('[ '("colorPrimaries", CicpParamsColorPrimariesPropertyInfo), '("matrixCoefficients", CicpParamsMatrixCoefficientsPropertyInfo), '("range", CicpParamsRangePropertyInfo), '("transferFunction", CicpParamsTransferFunctionPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
cicpParamsColorPrimaries :: AttrLabelProxy "colorPrimaries"
cicpParamsColorPrimaries = AttrLabelProxy
cicpParamsMatrixCoefficients :: AttrLabelProxy "matrixCoefficients"
cicpParamsMatrixCoefficients = AttrLabelProxy
cicpParamsRange :: AttrLabelProxy "range"
cicpParamsRange = AttrLabelProxy
cicpParamsTransferFunction :: AttrLabelProxy "transferFunction"
cicpParamsTransferFunction = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CicpParams = CicpParamsSignalList
type CicpParamsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gdk_cicp_params_new" gdk_cicp_params_new ::
IO (Ptr CicpParams)
cicpParamsNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m CicpParams
cicpParamsNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m CicpParams
cicpParamsNew = IO CicpParams -> m CicpParams
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CicpParams -> m CicpParams) -> IO CicpParams -> m CicpParams
forall a b. (a -> b) -> a -> b
$ do
Ptr CicpParams
result <- IO (Ptr CicpParams)
gdk_cicp_params_new
Text -> Ptr CicpParams -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cicpParamsNew" Ptr CicpParams
result
CicpParams
result' <- ((ManagedPtr CicpParams -> CicpParams)
-> Ptr CicpParams -> IO CicpParams
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr CicpParams -> CicpParams
CicpParams) Ptr CicpParams
result
CicpParams -> IO CicpParams
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CicpParams
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gdk_cicp_params_build_color_state" gdk_cicp_params_build_color_state ::
Ptr CicpParams ->
Ptr (Ptr GError) ->
IO (Ptr Gdk.ColorState.ColorState)
cicpParamsBuildColorState ::
(B.CallStack.HasCallStack, MonadIO m, IsCicpParams a) =>
a
-> m Gdk.ColorState.ColorState
cicpParamsBuildColorState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCicpParams a) =>
a -> m ColorState
cicpParamsBuildColorState 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 CicpParams
self' <- a -> IO (Ptr CicpParams)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO ColorState -> IO () -> IO ColorState
forall a b. IO a -> IO b -> IO a
onException (do
Ptr ColorState
result <- (Ptr (Ptr GError) -> IO (Ptr ColorState)) -> IO (Ptr ColorState)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr ColorState)) -> IO (Ptr ColorState))
-> (Ptr (Ptr GError) -> IO (Ptr ColorState)) -> IO (Ptr ColorState)
forall a b. (a -> b) -> a -> b
$ Ptr CicpParams -> Ptr (Ptr GError) -> IO (Ptr ColorState)
gdk_cicp_params_build_color_state Ptr CicpParams
self'
Text -> Ptr ColorState -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cicpParamsBuildColorState" Ptr ColorState
result
ColorState
result' <- ((ManagedPtr ColorState -> ColorState)
-> Ptr ColorState -> IO ColorState
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed 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'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data CicpParamsBuildColorStateMethodInfo
instance (signature ~ (m Gdk.ColorState.ColorState), MonadIO m, IsCicpParams a) => O.OverloadedMethod CicpParamsBuildColorStateMethodInfo a signature where
overloadedMethod = cicpParamsBuildColorState
instance O.OverloadedMethodInfo CicpParamsBuildColorStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.CicpParams.cicpParamsBuildColorState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-CicpParams.html#v:cicpParamsBuildColorState"
})
#endif
foreign import ccall "gdk_cicp_params_get_color_primaries" gdk_cicp_params_get_color_primaries ::
Ptr CicpParams ->
IO Word32
cicpParamsGetColorPrimaries ::
(B.CallStack.HasCallStack, MonadIO m, IsCicpParams a) =>
a
-> m Word32
cicpParamsGetColorPrimaries :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCicpParams a) =>
a -> m Word32
cicpParamsGetColorPrimaries a
self = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr CicpParams
self' <- a -> IO (Ptr CicpParams)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr CicpParams -> IO Word32
gdk_cicp_params_get_color_primaries Ptr CicpParams
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data CicpParamsGetColorPrimariesMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsCicpParams a) => O.OverloadedMethod CicpParamsGetColorPrimariesMethodInfo a signature where
overloadedMethod = cicpParamsGetColorPrimaries
instance O.OverloadedMethodInfo CicpParamsGetColorPrimariesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.CicpParams.cicpParamsGetColorPrimaries",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-CicpParams.html#v:cicpParamsGetColorPrimaries"
})
#endif
foreign import ccall "gdk_cicp_params_get_matrix_coefficients" gdk_cicp_params_get_matrix_coefficients ::
Ptr CicpParams ->
IO Word32
cicpParamsGetMatrixCoefficients ::
(B.CallStack.HasCallStack, MonadIO m, IsCicpParams a) =>
a
-> m Word32
cicpParamsGetMatrixCoefficients :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCicpParams a) =>
a -> m Word32
cicpParamsGetMatrixCoefficients a
self = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr CicpParams
self' <- a -> IO (Ptr CicpParams)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr CicpParams -> IO Word32
gdk_cicp_params_get_matrix_coefficients Ptr CicpParams
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data CicpParamsGetMatrixCoefficientsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsCicpParams a) => O.OverloadedMethod CicpParamsGetMatrixCoefficientsMethodInfo a signature where
overloadedMethod = cicpParamsGetMatrixCoefficients
instance O.OverloadedMethodInfo CicpParamsGetMatrixCoefficientsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.CicpParams.cicpParamsGetMatrixCoefficients",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-CicpParams.html#v:cicpParamsGetMatrixCoefficients"
})
#endif
foreign import ccall "gdk_cicp_params_get_range" gdk_cicp_params_get_range ::
Ptr CicpParams ->
IO CUInt
cicpParamsGetRange ::
(B.CallStack.HasCallStack, MonadIO m, IsCicpParams a) =>
a
-> m Gdk.Enums.CicpRange
cicpParamsGetRange :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCicpParams a) =>
a -> m CicpRange
cicpParamsGetRange a
self = IO CicpRange -> m CicpRange
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CicpRange -> m CicpRange) -> IO CicpRange -> m CicpRange
forall a b. (a -> b) -> a -> b
$ do
Ptr CicpParams
self' <- a -> IO (Ptr CicpParams)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr CicpParams -> IO CUInt
gdk_cicp_params_get_range Ptr CicpParams
self'
let result' :: CicpRange
result' = (Int -> CicpRange
forall a. Enum a => Int -> a
toEnum (Int -> CicpRange) -> (CUInt -> Int) -> CUInt -> CicpRange
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
CicpRange -> IO CicpRange
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CicpRange
result'
#if defined(ENABLE_OVERLOADING)
data CicpParamsGetRangeMethodInfo
instance (signature ~ (m Gdk.Enums.CicpRange), MonadIO m, IsCicpParams a) => O.OverloadedMethod CicpParamsGetRangeMethodInfo a signature where
overloadedMethod = cicpParamsGetRange
instance O.OverloadedMethodInfo CicpParamsGetRangeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.CicpParams.cicpParamsGetRange",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-CicpParams.html#v:cicpParamsGetRange"
})
#endif
foreign import ccall "gdk_cicp_params_get_transfer_function" gdk_cicp_params_get_transfer_function ::
Ptr CicpParams ->
IO Word32
cicpParamsGetTransferFunction ::
(B.CallStack.HasCallStack, MonadIO m, IsCicpParams a) =>
a
-> m Word32
cicpParamsGetTransferFunction :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCicpParams a) =>
a -> m Word32
cicpParamsGetTransferFunction a
self = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr CicpParams
self' <- a -> IO (Ptr CicpParams)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr CicpParams -> IO Word32
gdk_cicp_params_get_transfer_function Ptr CicpParams
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data CicpParamsGetTransferFunctionMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsCicpParams a) => O.OverloadedMethod CicpParamsGetTransferFunctionMethodInfo a signature where
overloadedMethod = cicpParamsGetTransferFunction
instance O.OverloadedMethodInfo CicpParamsGetTransferFunctionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.CicpParams.cicpParamsGetTransferFunction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-CicpParams.html#v:cicpParamsGetTransferFunction"
})
#endif
foreign import ccall "gdk_cicp_params_set_color_primaries" gdk_cicp_params_set_color_primaries ::
Ptr CicpParams ->
Word32 ->
IO ()
cicpParamsSetColorPrimaries ::
(B.CallStack.HasCallStack, MonadIO m, IsCicpParams a) =>
a
-> Word32
-> m ()
cicpParamsSetColorPrimaries :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCicpParams a) =>
a -> Word32 -> m ()
cicpParamsSetColorPrimaries a
self Word32
colorPrimaries = 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 CicpParams
self' <- a -> IO (Ptr CicpParams)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CicpParams -> Word32 -> IO ()
gdk_cicp_params_set_color_primaries Ptr CicpParams
self' Word32
colorPrimaries
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 CicpParamsSetColorPrimariesMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsCicpParams a) => O.OverloadedMethod CicpParamsSetColorPrimariesMethodInfo a signature where
overloadedMethod = cicpParamsSetColorPrimaries
instance O.OverloadedMethodInfo CicpParamsSetColorPrimariesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.CicpParams.cicpParamsSetColorPrimaries",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-CicpParams.html#v:cicpParamsSetColorPrimaries"
})
#endif
foreign import ccall "gdk_cicp_params_set_matrix_coefficients" gdk_cicp_params_set_matrix_coefficients ::
Ptr CicpParams ->
Word32 ->
IO ()
cicpParamsSetMatrixCoefficients ::
(B.CallStack.HasCallStack, MonadIO m, IsCicpParams a) =>
a
-> Word32
-> m ()
cicpParamsSetMatrixCoefficients :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCicpParams a) =>
a -> Word32 -> m ()
cicpParamsSetMatrixCoefficients a
self Word32
matrixCoefficients = 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 CicpParams
self' <- a -> IO (Ptr CicpParams)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CicpParams -> Word32 -> IO ()
gdk_cicp_params_set_matrix_coefficients Ptr CicpParams
self' Word32
matrixCoefficients
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 CicpParamsSetMatrixCoefficientsMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsCicpParams a) => O.OverloadedMethod CicpParamsSetMatrixCoefficientsMethodInfo a signature where
overloadedMethod = cicpParamsSetMatrixCoefficients
instance O.OverloadedMethodInfo CicpParamsSetMatrixCoefficientsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.CicpParams.cicpParamsSetMatrixCoefficients",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-CicpParams.html#v:cicpParamsSetMatrixCoefficients"
})
#endif
foreign import ccall "gdk_cicp_params_set_range" gdk_cicp_params_set_range ::
Ptr CicpParams ->
CUInt ->
IO ()
cicpParamsSetRange ::
(B.CallStack.HasCallStack, MonadIO m, IsCicpParams a) =>
a
-> Gdk.Enums.CicpRange
-> m ()
cicpParamsSetRange :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCicpParams a) =>
a -> CicpRange -> m ()
cicpParamsSetRange a
self CicpRange
range = 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 CicpParams
self' <- a -> IO (Ptr CicpParams)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let range' :: CUInt
range' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (CicpRange -> Int) -> CicpRange -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CicpRange -> Int
forall a. Enum a => a -> Int
fromEnum) CicpRange
range
Ptr CicpParams -> CUInt -> IO ()
gdk_cicp_params_set_range Ptr CicpParams
self' CUInt
range'
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 CicpParamsSetRangeMethodInfo
instance (signature ~ (Gdk.Enums.CicpRange -> m ()), MonadIO m, IsCicpParams a) => O.OverloadedMethod CicpParamsSetRangeMethodInfo a signature where
overloadedMethod = cicpParamsSetRange
instance O.OverloadedMethodInfo CicpParamsSetRangeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.CicpParams.cicpParamsSetRange",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-CicpParams.html#v:cicpParamsSetRange"
})
#endif
foreign import ccall "gdk_cicp_params_set_transfer_function" gdk_cicp_params_set_transfer_function ::
Ptr CicpParams ->
Word32 ->
IO ()
cicpParamsSetTransferFunction ::
(B.CallStack.HasCallStack, MonadIO m, IsCicpParams a) =>
a
-> Word32
-> m ()
cicpParamsSetTransferFunction :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCicpParams a) =>
a -> Word32 -> m ()
cicpParamsSetTransferFunction a
self Word32
transferFunction = 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 CicpParams
self' <- a -> IO (Ptr CicpParams)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CicpParams -> Word32 -> IO ()
gdk_cicp_params_set_transfer_function Ptr CicpParams
self' Word32
transferFunction
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 CicpParamsSetTransferFunctionMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsCicpParams a) => O.OverloadedMethod CicpParamsSetTransferFunctionMethodInfo a signature where
overloadedMethod = cicpParamsSetTransferFunction
instance O.OverloadedMethodInfo CicpParamsSetTransferFunctionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Objects.CicpParams.cicpParamsSetTransferFunction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk4-4.0.10/docs/GI-Gdk-Objects-CicpParams.html#v:cicpParamsSetTransferFunction"
})
#endif