#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GstVideo.Interfaces.ColorBalance
(
ColorBalance(..) ,
noColorBalance ,
IsColorBalance ,
toColorBalance ,
#if ENABLE_OVERLOADING
ColorBalanceGetBalanceTypeMethodInfo ,
#endif
colorBalanceGetBalanceType ,
#if ENABLE_OVERLOADING
ColorBalanceGetValueMethodInfo ,
#endif
colorBalanceGetValue ,
#if ENABLE_OVERLOADING
ColorBalanceListChannelsMethodInfo ,
#endif
colorBalanceListChannels ,
#if ENABLE_OVERLOADING
ColorBalanceSetValueMethodInfo ,
#endif
colorBalanceSetValue ,
#if ENABLE_OVERLOADING
ColorBalanceValueChangedMethodInfo ,
#endif
colorBalanceValueChanged ,
C_ColorBalanceValueChangedCallback ,
ColorBalanceValueChangedCallback ,
#if 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.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)
noColorBalance :: Maybe ColorBalance
noColorBalance = Nothing
type ColorBalanceValueChangedCallback =
GstVideo.ColorBalanceChannel.ColorBalanceChannel
-> Int32
-> IO ()
noColorBalanceValueChangedCallback :: Maybe ColorBalanceValueChangedCallback
noColorBalanceValueChangedCallback = 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 cb = liftIO $ do
let cb' = wrap_ColorBalanceValueChangedCallback cb
mk_ColorBalanceValueChangedCallback cb' >>= B.GClosure.newGClosure
wrap_ColorBalanceValueChangedCallback ::
ColorBalanceValueChangedCallback ->
C_ColorBalanceValueChangedCallback
wrap_ColorBalanceValueChangedCallback _cb _ channel value _ = do
channel' <- (newObject GstVideo.ColorBalanceChannel.ColorBalanceChannel) channel
_cb channel' value
onColorBalanceValueChanged :: (IsColorBalance a, MonadIO m) => a -> ColorBalanceValueChangedCallback -> m SignalHandlerId
onColorBalanceValueChanged obj cb = liftIO $ do
let cb' = wrap_ColorBalanceValueChangedCallback cb
cb'' <- mk_ColorBalanceValueChangedCallback cb'
connectSignalFunPtr obj "value-changed" cb'' SignalConnectBefore
afterColorBalanceValueChanged :: (IsColorBalance a, MonadIO m) => a -> ColorBalanceValueChangedCallback -> m SignalHandlerId
afterColorBalanceValueChanged obj cb = liftIO $ do
let cb' = wrap_ColorBalanceValueChangedCallback cb
cb'' <- mk_ColorBalanceValueChangedCallback cb'
connectSignalFunPtr obj "value-changed" cb'' SignalConnectAfter
#if ENABLE_OVERLOADING
data ColorBalanceValueChangedSignalInfo
instance SignalInfo ColorBalanceValueChangedSignalInfo where
type HaskellCallbackType ColorBalanceValueChangedSignalInfo = ColorBalanceValueChangedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ColorBalanceValueChangedCallback cb
cb'' <- mk_ColorBalanceValueChangedCallback cb'
connectSignalFunPtr obj "value-changed" cb'' connectMode
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 = c_gst_color_balance_get_type
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 = liftIO . unsafeCastTo ColorBalance
#if ENABLE_OVERLOADING
instance O.HasAttributeList ColorBalance
type instance O.AttributeList ColorBalance = ColorBalanceAttributeList
type ColorBalanceAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if 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 "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 (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy 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 balance = liftIO $ do
balance' <- unsafeManagedPtrCastPtr balance
result <- gst_color_balance_get_balance_type balance'
let result' = (toEnum . fromIntegral) result
touchManagedPtr balance
return result'
#if 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 balance channel = liftIO $ do
balance' <- unsafeManagedPtrCastPtr balance
channel' <- unsafeManagedPtrCastPtr channel
result <- gst_color_balance_get_value balance' channel'
touchManagedPtr balance
touchManagedPtr channel
return result
#if 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 balance = liftIO $ do
balance' <- unsafeManagedPtrCastPtr balance
result <- gst_color_balance_list_channels balance'
result' <- unpackGList result
result'' <- mapM (newObject GstVideo.ColorBalanceChannel.ColorBalanceChannel) result'
touchManagedPtr balance
return result''
#if 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 balance channel value = liftIO $ do
balance' <- unsafeManagedPtrCastPtr balance
channel' <- unsafeManagedPtrCastPtr channel
gst_color_balance_set_value balance' channel' value
touchManagedPtr balance
touchManagedPtr channel
return ()
#if 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 balance channel value = liftIO $ do
balance' <- unsafeManagedPtrCastPtr balance
channel' <- unsafeManagedPtrCastPtr channel
gst_color_balance_value_changed balance' channel' value
touchManagedPtr balance
touchManagedPtr channel
return ()
#if 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