#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GstVideo.Objects.ColorBalanceChannel
(
ColorBalanceChannel(..) ,
IsColorBalanceChannel ,
toColorBalanceChannel ,
noColorBalanceChannel ,
C_ColorBalanceChannelValueChangedCallback,
ColorBalanceChannelValueChangedCallback ,
#if ENABLE_OVERLOADING
ColorBalanceChannelValueChangedSignalInfo,
#endif
afterColorBalanceChannelValueChanged ,
genClosure_ColorBalanceChannelValueChanged,
mk_ColorBalanceChannelValueChangedCallback,
noColorBalanceChannelValueChangedCallback,
onColorBalanceChannelValueChanged ,
wrap_ColorBalanceChannelValueChangedCallback,
) 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
newtype ColorBalanceChannel = ColorBalanceChannel (ManagedPtr ColorBalanceChannel)
foreign import ccall "gst_color_balance_channel_get_type"
c_gst_color_balance_channel_get_type :: IO GType
instance GObject ColorBalanceChannel where
gobjectType = c_gst_color_balance_channel_get_type
class (GObject o, O.IsDescendantOf ColorBalanceChannel o) => IsColorBalanceChannel o
instance (GObject o, O.IsDescendantOf ColorBalanceChannel o) => IsColorBalanceChannel o
instance O.HasParentTypes ColorBalanceChannel
type instance O.ParentTypes ColorBalanceChannel = '[GObject.Object.Object]
toColorBalanceChannel :: (MonadIO m, IsColorBalanceChannel o) => o -> m ColorBalanceChannel
toColorBalanceChannel = liftIO . unsafeCastTo ColorBalanceChannel
noColorBalanceChannel :: Maybe ColorBalanceChannel
noColorBalanceChannel = Nothing
#if ENABLE_OVERLOADING
type family ResolveColorBalanceChannelMethod (t :: Symbol) (o :: *) :: * where
ResolveColorBalanceChannelMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveColorBalanceChannelMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveColorBalanceChannelMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveColorBalanceChannelMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveColorBalanceChannelMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveColorBalanceChannelMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveColorBalanceChannelMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveColorBalanceChannelMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveColorBalanceChannelMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveColorBalanceChannelMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveColorBalanceChannelMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveColorBalanceChannelMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveColorBalanceChannelMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveColorBalanceChannelMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveColorBalanceChannelMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveColorBalanceChannelMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveColorBalanceChannelMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveColorBalanceChannelMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveColorBalanceChannelMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveColorBalanceChannelMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveColorBalanceChannelMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveColorBalanceChannelMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveColorBalanceChannelMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveColorBalanceChannelMethod t ColorBalanceChannel, O.MethodInfo info ColorBalanceChannel p) => OL.IsLabel t (ColorBalanceChannel -> 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
type ColorBalanceChannelValueChangedCallback =
Int32
-> IO ()
noColorBalanceChannelValueChangedCallback :: Maybe ColorBalanceChannelValueChangedCallback
noColorBalanceChannelValueChangedCallback = Nothing
type C_ColorBalanceChannelValueChangedCallback =
Ptr () ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ColorBalanceChannelValueChangedCallback :: C_ColorBalanceChannelValueChangedCallback -> IO (FunPtr C_ColorBalanceChannelValueChangedCallback)
genClosure_ColorBalanceChannelValueChanged :: MonadIO m => ColorBalanceChannelValueChangedCallback -> m (GClosure C_ColorBalanceChannelValueChangedCallback)
genClosure_ColorBalanceChannelValueChanged cb = liftIO $ do
let cb' = wrap_ColorBalanceChannelValueChangedCallback cb
mk_ColorBalanceChannelValueChangedCallback cb' >>= B.GClosure.newGClosure
wrap_ColorBalanceChannelValueChangedCallback ::
ColorBalanceChannelValueChangedCallback ->
C_ColorBalanceChannelValueChangedCallback
wrap_ColorBalanceChannelValueChangedCallback _cb _ value _ = do
_cb value
onColorBalanceChannelValueChanged :: (IsColorBalanceChannel a, MonadIO m) => a -> ColorBalanceChannelValueChangedCallback -> m SignalHandlerId
onColorBalanceChannelValueChanged obj cb = liftIO $ do
let cb' = wrap_ColorBalanceChannelValueChangedCallback cb
cb'' <- mk_ColorBalanceChannelValueChangedCallback cb'
connectSignalFunPtr obj "value-changed" cb'' SignalConnectBefore
afterColorBalanceChannelValueChanged :: (IsColorBalanceChannel a, MonadIO m) => a -> ColorBalanceChannelValueChangedCallback -> m SignalHandlerId
afterColorBalanceChannelValueChanged obj cb = liftIO $ do
let cb' = wrap_ColorBalanceChannelValueChangedCallback cb
cb'' <- mk_ColorBalanceChannelValueChangedCallback cb'
connectSignalFunPtr obj "value-changed" cb'' SignalConnectAfter
#if ENABLE_OVERLOADING
instance O.HasAttributeList ColorBalanceChannel
type instance O.AttributeList ColorBalanceChannel = ColorBalanceChannelAttributeList
type ColorBalanceChannelAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
data ColorBalanceChannelValueChangedSignalInfo
instance SignalInfo ColorBalanceChannelValueChangedSignalInfo where
type HaskellCallbackType ColorBalanceChannelValueChangedSignalInfo = ColorBalanceChannelValueChangedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ColorBalanceChannelValueChangedCallback cb
cb'' <- mk_ColorBalanceChannelValueChangedCallback cb'
connectSignalFunPtr obj "value-changed" cb'' connectMode
type instance O.SignalList ColorBalanceChannel = ColorBalanceChannelSignalList
type ColorBalanceChannelSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("valueChanged", ColorBalanceChannelValueChangedSignalInfo)] :: [(Symbol, *)])
#endif