{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstVideo.Interfaces.ColorBalance
(
ColorBalance(..) ,
noColorBalance ,
IsColorBalance ,
toColorBalance ,
#if defined(ENABLE_OVERLOADING)
ResolveColorBalanceMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ColorBalanceGetBalanceTypeMethodInfo ,
#endif
colorBalanceGetBalanceType ,
#if defined(ENABLE_OVERLOADING)
ColorBalanceGetValueMethodInfo ,
#endif
colorBalanceGetValue ,
#if defined(ENABLE_OVERLOADING)
ColorBalanceListChannelsMethodInfo ,
#endif
colorBalanceListChannels ,
#if defined(ENABLE_OVERLOADING)
ColorBalanceSetValueMethodInfo ,
#endif
colorBalanceSetValue ,
#if defined(ENABLE_OVERLOADING)
ColorBalanceValueChangedMethodInfo ,
#endif
colorBalanceValueChanged ,
C_ColorBalanceValueChangedCallback ,
ColorBalanceValueChangedCallback ,
#if defined(ENABLE_OVERLOADING)
ColorBalanceValueChangedSignalInfo ,
#endif
afterColorBalanceValueChanged ,
genClosure_ColorBalanceValueChanged ,
mk_ColorBalanceValueChangedCallback ,
noColorBalanceValueChangedCallback ,
onColorBalanceValueChanged ,
wrap_ColorBalanceValueChangedCallback ,
) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
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 Data.Text as T
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 GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.GstVideo.Enums as GstVideo.Enums
import {-# SOURCE #-} qualified GI.GstVideo.Objects.ColorBalanceChannel as GstVideo.ColorBalanceChannel
newtype ColorBalance = ColorBalance (ManagedPtr ColorBalance)
deriving (ColorBalance -> ColorBalance -> Bool
(ColorBalance -> ColorBalance -> Bool)
-> (ColorBalance -> ColorBalance -> Bool) -> Eq ColorBalance
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ColorBalance -> ColorBalance -> Bool
$c/= :: ColorBalance -> ColorBalance -> Bool
== :: ColorBalance -> ColorBalance -> Bool
$c== :: ColorBalance -> ColorBalance -> Bool
Eq)
noColorBalance :: Maybe ColorBalance
noColorBalance :: Maybe ColorBalance
noColorBalance = Maybe ColorBalance
forall a. Maybe a
Nothing
type ColorBalanceValueChangedCallback =
GstVideo.ColorBalanceChannel.ColorBalanceChannel
-> Int32
-> IO ()
noColorBalanceValueChangedCallback :: Maybe ColorBalanceValueChangedCallback
noColorBalanceValueChangedCallback :: Maybe ColorBalanceValueChangedCallback
noColorBalanceValueChangedCallback = Maybe ColorBalanceValueChangedCallback
forall a. Maybe a
Nothing
type C_ColorBalanceValueChangedCallback =
Ptr () ->
Ptr GstVideo.ColorBalanceChannel.ColorBalanceChannel ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ColorBalanceValueChangedCallback :: C_ColorBalanceValueChangedCallback -> IO (FunPtr C_ColorBalanceValueChangedCallback)
genClosure_ColorBalanceValueChanged :: MonadIO m => ColorBalanceValueChangedCallback -> m (GClosure C_ColorBalanceValueChangedCallback)
genClosure_ColorBalanceValueChanged :: ColorBalanceValueChangedCallback
-> m (GClosure C_ColorBalanceValueChangedCallback)
genClosure_ColorBalanceValueChanged cb :: ColorBalanceValueChangedCallback
cb = IO (GClosure C_ColorBalanceValueChangedCallback)
-> m (GClosure C_ColorBalanceValueChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ColorBalanceValueChangedCallback)
-> m (GClosure C_ColorBalanceValueChangedCallback))
-> IO (GClosure C_ColorBalanceValueChangedCallback)
-> m (GClosure C_ColorBalanceValueChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ColorBalanceValueChangedCallback
cb' = ColorBalanceValueChangedCallback
-> C_ColorBalanceValueChangedCallback
wrap_ColorBalanceValueChangedCallback ColorBalanceValueChangedCallback
cb
C_ColorBalanceValueChangedCallback
-> IO (FunPtr C_ColorBalanceValueChangedCallback)
mk_ColorBalanceValueChangedCallback C_ColorBalanceValueChangedCallback
cb' IO (FunPtr C_ColorBalanceValueChangedCallback)
-> (FunPtr C_ColorBalanceValueChangedCallback
-> IO (GClosure C_ColorBalanceValueChangedCallback))
-> IO (GClosure C_ColorBalanceValueChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ColorBalanceValueChangedCallback
-> IO (GClosure C_ColorBalanceValueChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ColorBalanceValueChangedCallback ::
ColorBalanceValueChangedCallback ->
C_ColorBalanceValueChangedCallback
wrap_ColorBalanceValueChangedCallback :: ColorBalanceValueChangedCallback
-> C_ColorBalanceValueChangedCallback
wrap_ColorBalanceValueChangedCallback _cb :: ColorBalanceValueChangedCallback
_cb _ channel :: Ptr ColorBalanceChannel
channel value :: Int32
value _ = do
ColorBalanceChannel
channel' <- ((ManagedPtr ColorBalanceChannel -> ColorBalanceChannel)
-> Ptr ColorBalanceChannel -> IO ColorBalanceChannel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ColorBalanceChannel -> ColorBalanceChannel
GstVideo.ColorBalanceChannel.ColorBalanceChannel) Ptr ColorBalanceChannel
channel
ColorBalanceValueChangedCallback
_cb ColorBalanceChannel
channel' Int32
value
onColorBalanceValueChanged :: (IsColorBalance a, MonadIO m) => a -> ColorBalanceValueChangedCallback -> m SignalHandlerId
onColorBalanceValueChanged :: a -> ColorBalanceValueChangedCallback -> m SignalHandlerId
onColorBalanceValueChanged obj :: a
obj cb :: ColorBalanceValueChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ColorBalanceValueChangedCallback
cb' = ColorBalanceValueChangedCallback
-> C_ColorBalanceValueChangedCallback
wrap_ColorBalanceValueChangedCallback ColorBalanceValueChangedCallback
cb
FunPtr C_ColorBalanceValueChangedCallback
cb'' <- C_ColorBalanceValueChangedCallback
-> IO (FunPtr C_ColorBalanceValueChangedCallback)
mk_ColorBalanceValueChangedCallback C_ColorBalanceValueChangedCallback
cb'
a
-> Text
-> FunPtr C_ColorBalanceValueChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "value-changed" FunPtr C_ColorBalanceValueChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterColorBalanceValueChanged :: (IsColorBalance a, MonadIO m) => a -> ColorBalanceValueChangedCallback -> m SignalHandlerId
afterColorBalanceValueChanged :: a -> ColorBalanceValueChangedCallback -> m SignalHandlerId
afterColorBalanceValueChanged obj :: a
obj cb :: ColorBalanceValueChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ColorBalanceValueChangedCallback
cb' = ColorBalanceValueChangedCallback
-> C_ColorBalanceValueChangedCallback
wrap_ColorBalanceValueChangedCallback ColorBalanceValueChangedCallback
cb
FunPtr C_ColorBalanceValueChangedCallback
cb'' <- C_ColorBalanceValueChangedCallback
-> IO (FunPtr C_ColorBalanceValueChangedCallback)
mk_ColorBalanceValueChangedCallback C_ColorBalanceValueChangedCallback
cb'
a
-> Text
-> FunPtr C_ColorBalanceValueChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "value-changed" FunPtr C_ColorBalanceValueChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ColorBalanceValueChangedSignalInfo
instance SignalInfo ColorBalanceValueChangedSignalInfo where
type HaskellCallbackType ColorBalanceValueChangedSignalInfo = ColorBalanceValueChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ColorBalanceValueChangedCallback cb
cb'' <- mk_ColorBalanceValueChangedCallback cb'
connectSignalFunPtr obj "value-changed" cb'' connectMode detail
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ColorBalance = ColorBalanceSignalList
type ColorBalanceSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("valueChanged", ColorBalanceValueChangedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gst_color_balance_get_type"
c_gst_color_balance_get_type :: IO GType
instance GObject ColorBalance where
gobjectType :: IO GType
gobjectType = IO GType
c_gst_color_balance_get_type
instance B.GValue.IsGValue ColorBalance where
toGValue :: ColorBalance -> IO GValue
toGValue o :: ColorBalance
o = do
GType
gtype <- IO GType
c_gst_color_balance_get_type
ColorBalance -> (Ptr ColorBalance -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ColorBalance
o (GType
-> (GValue -> Ptr ColorBalance -> IO ())
-> Ptr ColorBalance
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr ColorBalance -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO ColorBalance
fromGValue gv :: GValue
gv = do
Ptr ColorBalance
ptr <- GValue -> IO (Ptr ColorBalance)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr ColorBalance)
(ManagedPtr ColorBalance -> ColorBalance)
-> Ptr ColorBalance -> IO ColorBalance
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ColorBalance -> ColorBalance
ColorBalance Ptr ColorBalance
ptr
class (GObject o, O.IsDescendantOf ColorBalance o) => IsColorBalance o
instance (GObject o, O.IsDescendantOf ColorBalance o) => IsColorBalance o
instance O.HasParentTypes ColorBalance
type instance O.ParentTypes ColorBalance = '[GObject.Object.Object]
toColorBalance :: (MonadIO m, IsColorBalance o) => o -> m ColorBalance
toColorBalance :: o -> m ColorBalance
toColorBalance = IO ColorBalance -> m ColorBalance
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ColorBalance -> m ColorBalance)
-> (o -> IO ColorBalance) -> o -> m ColorBalance
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ColorBalance -> ColorBalance) -> o -> IO ColorBalance
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr ColorBalance -> ColorBalance
ColorBalance
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ColorBalance
type instance O.AttributeList ColorBalance = ColorBalanceAttributeList
type ColorBalanceAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveColorBalanceMethod (t :: Symbol) (o :: *) :: * where
ResolveColorBalanceMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveColorBalanceMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveColorBalanceMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveColorBalanceMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveColorBalanceMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveColorBalanceMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveColorBalanceMethod "listChannels" o = ColorBalanceListChannelsMethodInfo
ResolveColorBalanceMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveColorBalanceMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveColorBalanceMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveColorBalanceMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveColorBalanceMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveColorBalanceMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveColorBalanceMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveColorBalanceMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveColorBalanceMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveColorBalanceMethod "valueChanged" o = ColorBalanceValueChangedMethodInfo
ResolveColorBalanceMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveColorBalanceMethod "getBalanceType" o = ColorBalanceGetBalanceTypeMethodInfo
ResolveColorBalanceMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveColorBalanceMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveColorBalanceMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveColorBalanceMethod "getValue" o = ColorBalanceGetValueMethodInfo
ResolveColorBalanceMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveColorBalanceMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveColorBalanceMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveColorBalanceMethod "setValue" o = ColorBalanceSetValueMethodInfo
ResolveColorBalanceMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveColorBalanceMethod t ColorBalance, O.MethodInfo info ColorBalance p) => OL.IsLabel t (ColorBalance -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
foreign import ccall "gst_color_balance_get_balance_type" gst_color_balance_get_balance_type ::
Ptr ColorBalance ->
IO CUInt
colorBalanceGetBalanceType ::
(B.CallStack.HasCallStack, MonadIO m, IsColorBalance a) =>
a
-> m GstVideo.Enums.ColorBalanceType
colorBalanceGetBalanceType :: a -> m ColorBalanceType
colorBalanceGetBalanceType balance :: a
balance = IO ColorBalanceType -> m ColorBalanceType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ColorBalanceType -> m ColorBalanceType)
-> IO ColorBalanceType -> m ColorBalanceType
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorBalance
balance' <- a -> IO (Ptr ColorBalance)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
balance
CUInt
result <- Ptr ColorBalance -> IO CUInt
gst_color_balance_get_balance_type Ptr ColorBalance
balance'
let result' :: ColorBalanceType
result' = (Int -> ColorBalanceType
forall a. Enum a => Int -> a
toEnum (Int -> ColorBalanceType)
-> (CUInt -> Int) -> CUInt -> ColorBalanceType
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
balance
ColorBalanceType -> IO ColorBalanceType
forall (m :: * -> *) a. Monad m => a -> m a
return ColorBalanceType
result'
#if defined(ENABLE_OVERLOADING)
data ColorBalanceGetBalanceTypeMethodInfo
instance (signature ~ (m GstVideo.Enums.ColorBalanceType), MonadIO m, IsColorBalance a) => O.MethodInfo ColorBalanceGetBalanceTypeMethodInfo a signature where
overloadedMethod = colorBalanceGetBalanceType
#endif
foreign import ccall "gst_color_balance_get_value" gst_color_balance_get_value ::
Ptr ColorBalance ->
Ptr GstVideo.ColorBalanceChannel.ColorBalanceChannel ->
IO Int32
colorBalanceGetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsColorBalance a, GstVideo.ColorBalanceChannel.IsColorBalanceChannel b) =>
a
-> b
-> m Int32
colorBalanceGetValue :: a -> b -> m Int32
colorBalanceGetValue balance :: a
balance channel :: b
channel = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorBalance
balance' <- a -> IO (Ptr ColorBalance)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
balance
Ptr ColorBalanceChannel
channel' <- b -> IO (Ptr ColorBalanceChannel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
channel
Int32
result <- Ptr ColorBalance -> Ptr ColorBalanceChannel -> IO Int32
gst_color_balance_get_value Ptr ColorBalance
balance' Ptr ColorBalanceChannel
channel'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
balance
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
channel
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ColorBalanceGetValueMethodInfo
instance (signature ~ (b -> m Int32), MonadIO m, IsColorBalance a, GstVideo.ColorBalanceChannel.IsColorBalanceChannel b) => O.MethodInfo ColorBalanceGetValueMethodInfo a signature where
overloadedMethod = colorBalanceGetValue
#endif
foreign import ccall "gst_color_balance_list_channels" gst_color_balance_list_channels ::
Ptr ColorBalance ->
IO (Ptr (GList (Ptr GstVideo.ColorBalanceChannel.ColorBalanceChannel)))
colorBalanceListChannels ::
(B.CallStack.HasCallStack, MonadIO m, IsColorBalance a) =>
a
-> m [GstVideo.ColorBalanceChannel.ColorBalanceChannel]
colorBalanceListChannels :: a -> m [ColorBalanceChannel]
colorBalanceListChannels balance :: a
balance = IO [ColorBalanceChannel] -> m [ColorBalanceChannel]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [ColorBalanceChannel] -> m [ColorBalanceChannel])
-> IO [ColorBalanceChannel] -> m [ColorBalanceChannel]
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorBalance
balance' <- a -> IO (Ptr ColorBalance)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
balance
Ptr (GList (Ptr ColorBalanceChannel))
result <- Ptr ColorBalance -> IO (Ptr (GList (Ptr ColorBalanceChannel)))
gst_color_balance_list_channels Ptr ColorBalance
balance'
[Ptr ColorBalanceChannel]
result' <- Ptr (GList (Ptr ColorBalanceChannel))
-> IO [Ptr ColorBalanceChannel]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr ColorBalanceChannel))
result
[ColorBalanceChannel]
result'' <- (Ptr ColorBalanceChannel -> IO ColorBalanceChannel)
-> [Ptr ColorBalanceChannel] -> IO [ColorBalanceChannel]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr ColorBalanceChannel -> ColorBalanceChannel)
-> Ptr ColorBalanceChannel -> IO ColorBalanceChannel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ColorBalanceChannel -> ColorBalanceChannel
GstVideo.ColorBalanceChannel.ColorBalanceChannel) [Ptr ColorBalanceChannel]
result'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
balance
[ColorBalanceChannel] -> IO [ColorBalanceChannel]
forall (m :: * -> *) a. Monad m => a -> m a
return [ColorBalanceChannel]
result''
#if defined(ENABLE_OVERLOADING)
data ColorBalanceListChannelsMethodInfo
instance (signature ~ (m [GstVideo.ColorBalanceChannel.ColorBalanceChannel]), MonadIO m, IsColorBalance a) => O.MethodInfo ColorBalanceListChannelsMethodInfo a signature where
overloadedMethod = colorBalanceListChannels
#endif
foreign import ccall "gst_color_balance_set_value" gst_color_balance_set_value ::
Ptr ColorBalance ->
Ptr GstVideo.ColorBalanceChannel.ColorBalanceChannel ->
Int32 ->
IO ()
colorBalanceSetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsColorBalance a, GstVideo.ColorBalanceChannel.IsColorBalanceChannel b) =>
a
-> b
-> Int32
-> m ()
colorBalanceSetValue :: a -> b -> Int32 -> m ()
colorBalanceSetValue balance :: a
balance channel :: b
channel value :: Int32
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorBalance
balance' <- a -> IO (Ptr ColorBalance)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
balance
Ptr ColorBalanceChannel
channel' <- b -> IO (Ptr ColorBalanceChannel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
channel
Ptr ColorBalance -> Ptr ColorBalanceChannel -> Int32 -> IO ()
gst_color_balance_set_value Ptr ColorBalance
balance' Ptr ColorBalanceChannel
channel' Int32
value
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
balance
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
channel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorBalanceSetValueMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsColorBalance a, GstVideo.ColorBalanceChannel.IsColorBalanceChannel b) => O.MethodInfo ColorBalanceSetValueMethodInfo a signature where
overloadedMethod = colorBalanceSetValue
#endif
foreign import ccall "gst_color_balance_value_changed" gst_color_balance_value_changed ::
Ptr ColorBalance ->
Ptr GstVideo.ColorBalanceChannel.ColorBalanceChannel ->
Int32 ->
IO ()
colorBalanceValueChanged ::
(B.CallStack.HasCallStack, MonadIO m, IsColorBalance a, GstVideo.ColorBalanceChannel.IsColorBalanceChannel b) =>
a
-> b
-> Int32
-> m ()
colorBalanceValueChanged :: a -> b -> Int32 -> m ()
colorBalanceValueChanged balance :: a
balance channel :: b
channel value :: Int32
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorBalance
balance' <- a -> IO (Ptr ColorBalance)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
balance
Ptr ColorBalanceChannel
channel' <- b -> IO (Ptr ColorBalanceChannel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
channel
Ptr ColorBalance -> Ptr ColorBalanceChannel -> Int32 -> IO ()
gst_color_balance_value_changed Ptr ColorBalance
balance' Ptr ColorBalanceChannel
channel' Int32
value
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
balance
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
channel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorBalanceValueChangedMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsColorBalance a, GstVideo.ColorBalanceChannel.IsColorBalanceChannel b) => O.MethodInfo ColorBalanceValueChangedMethodInfo a signature where
overloadedMethod = colorBalanceValueChanged
#endif