{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GObject.Structs.ObjectClass
(
ObjectClass(..) ,
newZeroObjectClass ,
noObjectClass ,
#if defined(ENABLE_OVERLOADING)
ResolveObjectClassMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ObjectClassFindPropertyMethodInfo ,
#endif
objectClassFindProperty ,
#if defined(ENABLE_OVERLOADING)
ObjectClassInstallPropertyMethodInfo ,
#endif
objectClassInstallProperty ,
#if defined(ENABLE_OVERLOADING)
ObjectClassOverridePropertyMethodInfo ,
#endif
objectClassOverrideProperty ,
clearObjectClassConstructed ,
getObjectClassConstructed ,
#if defined(ENABLE_OVERLOADING)
objectClass_constructed ,
#endif
setObjectClassConstructed ,
clearObjectClassDispatchPropertiesChanged,
getObjectClassDispatchPropertiesChanged ,
#if defined(ENABLE_OVERLOADING)
objectClass_dispatchPropertiesChanged ,
#endif
setObjectClassDispatchPropertiesChanged ,
clearObjectClassDispose ,
getObjectClassDispose ,
#if defined(ENABLE_OVERLOADING)
objectClass_dispose ,
#endif
setObjectClassDispose ,
clearObjectClassFinalize ,
getObjectClassFinalize ,
#if defined(ENABLE_OVERLOADING)
objectClass_finalize ,
#endif
setObjectClassFinalize ,
getObjectClassGTypeClass ,
#if defined(ENABLE_OVERLOADING)
objectClass_gTypeClass ,
#endif
clearObjectClassGetProperty ,
getObjectClassGetProperty ,
#if defined(ENABLE_OVERLOADING)
objectClass_getProperty ,
#endif
setObjectClassGetProperty ,
clearObjectClassNotify ,
getObjectClassNotify ,
#if defined(ENABLE_OVERLOADING)
objectClass_notify ,
#endif
setObjectClassNotify ,
clearObjectClassSetProperty ,
getObjectClassSetProperty ,
#if defined(ENABLE_OVERLOADING)
objectClass_setProperty ,
#endif
setObjectClassSetProperty ,
) 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.Callbacks as GObject.Callbacks
import {-# SOURCE #-} qualified GI.GObject.Structs.TypeClass as GObject.TypeClass
newtype ObjectClass = ObjectClass (ManagedPtr ObjectClass)
deriving (Eq)
instance WrappedPtr ObjectClass where
wrappedPtrCalloc = callocBytes 68
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 68 >=> wrapPtr ObjectClass)
wrappedPtrFree = Just ptr_to_g_free
newZeroObjectClass :: MonadIO m => m ObjectClass
newZeroObjectClass = liftIO $ wrappedPtrCalloc >>= wrapPtr ObjectClass
instance tag ~ 'AttrSet => Constructible ObjectClass tag where
new _ attrs = do
o <- newZeroObjectClass
GI.Attributes.set o attrs
return o
noObjectClass :: Maybe ObjectClass
noObjectClass = Nothing
getObjectClassGTypeClass :: MonadIO m => ObjectClass -> m GObject.TypeClass.TypeClass
getObjectClassGTypeClass s = liftIO $ withManagedPtr s $ \ptr -> do
let val = ptr `plusPtr` 0 :: (Ptr GObject.TypeClass.TypeClass)
val' <- (newPtr GObject.TypeClass.TypeClass) val
return val'
#if defined(ENABLE_OVERLOADING)
data ObjectClassGTypeClassFieldInfo
instance AttrInfo ObjectClassGTypeClassFieldInfo where
type AttrBaseTypeConstraint ObjectClassGTypeClassFieldInfo = (~) ObjectClass
type AttrAllowedOps ObjectClassGTypeClassFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ObjectClassGTypeClassFieldInfo = (~) (Ptr GObject.TypeClass.TypeClass)
type AttrTransferTypeConstraint ObjectClassGTypeClassFieldInfo = (~)(Ptr GObject.TypeClass.TypeClass)
type AttrTransferType ObjectClassGTypeClassFieldInfo = (Ptr GObject.TypeClass.TypeClass)
type AttrGetType ObjectClassGTypeClassFieldInfo = GObject.TypeClass.TypeClass
type AttrLabel ObjectClassGTypeClassFieldInfo = "g_type_class"
type AttrOrigin ObjectClassGTypeClassFieldInfo = ObjectClass
attrGet = getObjectClassGTypeClass
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
objectClass_gTypeClass :: AttrLabelProxy "gTypeClass"
objectClass_gTypeClass = AttrLabelProxy
#endif
getObjectClassSetProperty :: MonadIO m => ObjectClass -> m (Maybe GObject.Callbacks.ObjectClassSetPropertyFieldCallback)
getObjectClassSetProperty s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO (FunPtr GObject.Callbacks.C_ObjectClassSetPropertyFieldCallback)
result <- SP.convertFunPtrIfNonNull val $ \val' -> do
let val'' = GObject.Callbacks.dynamic_ObjectClassSetPropertyFieldCallback val'
return val''
return result
setObjectClassSetProperty :: MonadIO m => ObjectClass -> FunPtr GObject.Callbacks.C_ObjectClassSetPropertyFieldCallback -> m ()
setObjectClassSetProperty s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 12) (val :: FunPtr GObject.Callbacks.C_ObjectClassSetPropertyFieldCallback)
clearObjectClassSetProperty :: MonadIO m => ObjectClass -> m ()
clearObjectClassSetProperty s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 12) (FP.nullFunPtr :: FunPtr GObject.Callbacks.C_ObjectClassSetPropertyFieldCallback)
#if defined(ENABLE_OVERLOADING)
data ObjectClassSetPropertyFieldInfo
instance AttrInfo ObjectClassSetPropertyFieldInfo where
type AttrBaseTypeConstraint ObjectClassSetPropertyFieldInfo = (~) ObjectClass
type AttrAllowedOps ObjectClassSetPropertyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectClassSetPropertyFieldInfo = (~) (FunPtr GObject.Callbacks.C_ObjectClassSetPropertyFieldCallback)
type AttrTransferTypeConstraint ObjectClassSetPropertyFieldInfo = (~)GObject.Callbacks.ObjectClassSetPropertyFieldCallback
type AttrTransferType ObjectClassSetPropertyFieldInfo = (FunPtr GObject.Callbacks.C_ObjectClassSetPropertyFieldCallback)
type AttrGetType ObjectClassSetPropertyFieldInfo = Maybe GObject.Callbacks.ObjectClassSetPropertyFieldCallback
type AttrLabel ObjectClassSetPropertyFieldInfo = "set_property"
type AttrOrigin ObjectClassSetPropertyFieldInfo = ObjectClass
attrGet = getObjectClassSetProperty
attrSet = setObjectClassSetProperty
attrConstruct = undefined
attrClear = clearObjectClassSetProperty
attrTransfer _ v = do
GObject.Callbacks.mk_ObjectClassSetPropertyFieldCallback (GObject.Callbacks.wrap_ObjectClassSetPropertyFieldCallback Nothing v)
objectClass_setProperty :: AttrLabelProxy "setProperty"
objectClass_setProperty = AttrLabelProxy
#endif
getObjectClassGetProperty :: MonadIO m => ObjectClass -> m (Maybe GObject.Callbacks.ObjectClassGetPropertyFieldCallback)
getObjectClassGetProperty s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO (FunPtr GObject.Callbacks.C_ObjectClassGetPropertyFieldCallback)
result <- SP.convertFunPtrIfNonNull val $ \val' -> do
let val'' = GObject.Callbacks.dynamic_ObjectClassGetPropertyFieldCallback val'
return val''
return result
setObjectClassGetProperty :: MonadIO m => ObjectClass -> FunPtr GObject.Callbacks.C_ObjectClassGetPropertyFieldCallback -> m ()
setObjectClassGetProperty s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: FunPtr GObject.Callbacks.C_ObjectClassGetPropertyFieldCallback)
clearObjectClassGetProperty :: MonadIO m => ObjectClass -> m ()
clearObjectClassGetProperty s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (FP.nullFunPtr :: FunPtr GObject.Callbacks.C_ObjectClassGetPropertyFieldCallback)
#if defined(ENABLE_OVERLOADING)
data ObjectClassGetPropertyFieldInfo
instance AttrInfo ObjectClassGetPropertyFieldInfo where
type AttrBaseTypeConstraint ObjectClassGetPropertyFieldInfo = (~) ObjectClass
type AttrAllowedOps ObjectClassGetPropertyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectClassGetPropertyFieldInfo = (~) (FunPtr GObject.Callbacks.C_ObjectClassGetPropertyFieldCallback)
type AttrTransferTypeConstraint ObjectClassGetPropertyFieldInfo = (~)GObject.Callbacks.ObjectClassGetPropertyFieldCallback
type AttrTransferType ObjectClassGetPropertyFieldInfo = (FunPtr GObject.Callbacks.C_ObjectClassGetPropertyFieldCallback)
type AttrGetType ObjectClassGetPropertyFieldInfo = Maybe GObject.Callbacks.ObjectClassGetPropertyFieldCallback
type AttrLabel ObjectClassGetPropertyFieldInfo = "get_property"
type AttrOrigin ObjectClassGetPropertyFieldInfo = ObjectClass
attrGet = getObjectClassGetProperty
attrSet = setObjectClassGetProperty
attrConstruct = undefined
attrClear = clearObjectClassGetProperty
attrTransfer _ v = do
GObject.Callbacks.mk_ObjectClassGetPropertyFieldCallback (GObject.Callbacks.wrap_ObjectClassGetPropertyFieldCallback Nothing v)
objectClass_getProperty :: AttrLabelProxy "getProperty"
objectClass_getProperty = AttrLabelProxy
#endif
getObjectClassDispose :: MonadIO m => ObjectClass -> m (Maybe GObject.Callbacks.ObjectClassDisposeFieldCallback)
getObjectClassDispose s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO (FunPtr GObject.Callbacks.C_ObjectClassDisposeFieldCallback)
result <- SP.convertFunPtrIfNonNull val $ \val' -> do
let val'' = GObject.Callbacks.dynamic_ObjectClassDisposeFieldCallback val'
return val''
return result
setObjectClassDispose :: MonadIO m => ObjectClass -> FunPtr GObject.Callbacks.C_ObjectClassDisposeFieldCallback -> m ()
setObjectClassDispose s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 20) (val :: FunPtr GObject.Callbacks.C_ObjectClassDisposeFieldCallback)
clearObjectClassDispose :: MonadIO m => ObjectClass -> m ()
clearObjectClassDispose s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 20) (FP.nullFunPtr :: FunPtr GObject.Callbacks.C_ObjectClassDisposeFieldCallback)
#if defined(ENABLE_OVERLOADING)
data ObjectClassDisposeFieldInfo
instance AttrInfo ObjectClassDisposeFieldInfo where
type AttrBaseTypeConstraint ObjectClassDisposeFieldInfo = (~) ObjectClass
type AttrAllowedOps ObjectClassDisposeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectClassDisposeFieldInfo = (~) (FunPtr GObject.Callbacks.C_ObjectClassDisposeFieldCallback)
type AttrTransferTypeConstraint ObjectClassDisposeFieldInfo = (~)GObject.Callbacks.ObjectClassDisposeFieldCallback
type AttrTransferType ObjectClassDisposeFieldInfo = (FunPtr GObject.Callbacks.C_ObjectClassDisposeFieldCallback)
type AttrGetType ObjectClassDisposeFieldInfo = Maybe GObject.Callbacks.ObjectClassDisposeFieldCallback
type AttrLabel ObjectClassDisposeFieldInfo = "dispose"
type AttrOrigin ObjectClassDisposeFieldInfo = ObjectClass
attrGet = getObjectClassDispose
attrSet = setObjectClassDispose
attrConstruct = undefined
attrClear = clearObjectClassDispose
attrTransfer _ v = do
GObject.Callbacks.mk_ObjectClassDisposeFieldCallback (GObject.Callbacks.wrap_ObjectClassDisposeFieldCallback Nothing v)
objectClass_dispose :: AttrLabelProxy "dispose"
objectClass_dispose = AttrLabelProxy
#endif
getObjectClassFinalize :: MonadIO m => ObjectClass -> m (Maybe GObject.Callbacks.ObjectClassFinalizeFieldCallback)
getObjectClassFinalize s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO (FunPtr GObject.Callbacks.C_ObjectClassFinalizeFieldCallback)
result <- SP.convertFunPtrIfNonNull val $ \val' -> do
let val'' = GObject.Callbacks.dynamic_ObjectClassFinalizeFieldCallback val'
return val''
return result
setObjectClassFinalize :: MonadIO m => ObjectClass -> FunPtr GObject.Callbacks.C_ObjectClassFinalizeFieldCallback -> m ()
setObjectClassFinalize s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 24) (val :: FunPtr GObject.Callbacks.C_ObjectClassFinalizeFieldCallback)
clearObjectClassFinalize :: MonadIO m => ObjectClass -> m ()
clearObjectClassFinalize s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 24) (FP.nullFunPtr :: FunPtr GObject.Callbacks.C_ObjectClassFinalizeFieldCallback)
#if defined(ENABLE_OVERLOADING)
data ObjectClassFinalizeFieldInfo
instance AttrInfo ObjectClassFinalizeFieldInfo where
type AttrBaseTypeConstraint ObjectClassFinalizeFieldInfo = (~) ObjectClass
type AttrAllowedOps ObjectClassFinalizeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectClassFinalizeFieldInfo = (~) (FunPtr GObject.Callbacks.C_ObjectClassFinalizeFieldCallback)
type AttrTransferTypeConstraint ObjectClassFinalizeFieldInfo = (~)GObject.Callbacks.ObjectClassFinalizeFieldCallback
type AttrTransferType ObjectClassFinalizeFieldInfo = (FunPtr GObject.Callbacks.C_ObjectClassFinalizeFieldCallback)
type AttrGetType ObjectClassFinalizeFieldInfo = Maybe GObject.Callbacks.ObjectClassFinalizeFieldCallback
type AttrLabel ObjectClassFinalizeFieldInfo = "finalize"
type AttrOrigin ObjectClassFinalizeFieldInfo = ObjectClass
attrGet = getObjectClassFinalize
attrSet = setObjectClassFinalize
attrConstruct = undefined
attrClear = clearObjectClassFinalize
attrTransfer _ v = do
GObject.Callbacks.mk_ObjectClassFinalizeFieldCallback (GObject.Callbacks.wrap_ObjectClassFinalizeFieldCallback Nothing v)
objectClass_finalize :: AttrLabelProxy "finalize"
objectClass_finalize = AttrLabelProxy
#endif
getObjectClassDispatchPropertiesChanged :: MonadIO m => ObjectClass -> m (Maybe GObject.Callbacks.ObjectClassDispatchPropertiesChangedFieldCallback)
getObjectClassDispatchPropertiesChanged s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 28) :: IO (FunPtr GObject.Callbacks.C_ObjectClassDispatchPropertiesChangedFieldCallback)
result <- SP.convertFunPtrIfNonNull val $ \val' -> do
let val'' = GObject.Callbacks.dynamic_ObjectClassDispatchPropertiesChangedFieldCallback val'
return val''
return result
setObjectClassDispatchPropertiesChanged :: MonadIO m => ObjectClass -> FunPtr GObject.Callbacks.C_ObjectClassDispatchPropertiesChangedFieldCallback -> m ()
setObjectClassDispatchPropertiesChanged s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 28) (val :: FunPtr GObject.Callbacks.C_ObjectClassDispatchPropertiesChangedFieldCallback)
clearObjectClassDispatchPropertiesChanged :: MonadIO m => ObjectClass -> m ()
clearObjectClassDispatchPropertiesChanged s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 28) (FP.nullFunPtr :: FunPtr GObject.Callbacks.C_ObjectClassDispatchPropertiesChangedFieldCallback)
#if defined(ENABLE_OVERLOADING)
data ObjectClassDispatchPropertiesChangedFieldInfo
instance AttrInfo ObjectClassDispatchPropertiesChangedFieldInfo where
type AttrBaseTypeConstraint ObjectClassDispatchPropertiesChangedFieldInfo = (~) ObjectClass
type AttrAllowedOps ObjectClassDispatchPropertiesChangedFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectClassDispatchPropertiesChangedFieldInfo = (~) (FunPtr GObject.Callbacks.C_ObjectClassDispatchPropertiesChangedFieldCallback)
type AttrTransferTypeConstraint ObjectClassDispatchPropertiesChangedFieldInfo = (~)GObject.Callbacks.ObjectClassDispatchPropertiesChangedFieldCallback
type AttrTransferType ObjectClassDispatchPropertiesChangedFieldInfo = (FunPtr GObject.Callbacks.C_ObjectClassDispatchPropertiesChangedFieldCallback)
type AttrGetType ObjectClassDispatchPropertiesChangedFieldInfo = Maybe GObject.Callbacks.ObjectClassDispatchPropertiesChangedFieldCallback
type AttrLabel ObjectClassDispatchPropertiesChangedFieldInfo = "dispatch_properties_changed"
type AttrOrigin ObjectClassDispatchPropertiesChangedFieldInfo = ObjectClass
attrGet = getObjectClassDispatchPropertiesChanged
attrSet = setObjectClassDispatchPropertiesChanged
attrConstruct = undefined
attrClear = clearObjectClassDispatchPropertiesChanged
attrTransfer _ v = do
GObject.Callbacks.mk_ObjectClassDispatchPropertiesChangedFieldCallback (GObject.Callbacks.wrap_ObjectClassDispatchPropertiesChangedFieldCallback Nothing v)
objectClass_dispatchPropertiesChanged :: AttrLabelProxy "dispatchPropertiesChanged"
objectClass_dispatchPropertiesChanged = AttrLabelProxy
#endif
getObjectClassNotify :: MonadIO m => ObjectClass -> m (Maybe GObject.Callbacks.ObjectClassNotifyFieldCallback)
getObjectClassNotify s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO (FunPtr GObject.Callbacks.C_ObjectClassNotifyFieldCallback)
result <- SP.convertFunPtrIfNonNull val $ \val' -> do
let val'' = GObject.Callbacks.dynamic_ObjectClassNotifyFieldCallback val'
return val''
return result
setObjectClassNotify :: MonadIO m => ObjectClass -> FunPtr GObject.Callbacks.C_ObjectClassNotifyFieldCallback -> m ()
setObjectClassNotify s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 32) (val :: FunPtr GObject.Callbacks.C_ObjectClassNotifyFieldCallback)
clearObjectClassNotify :: MonadIO m => ObjectClass -> m ()
clearObjectClassNotify s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 32) (FP.nullFunPtr :: FunPtr GObject.Callbacks.C_ObjectClassNotifyFieldCallback)
#if defined(ENABLE_OVERLOADING)
data ObjectClassNotifyFieldInfo
instance AttrInfo ObjectClassNotifyFieldInfo where
type AttrBaseTypeConstraint ObjectClassNotifyFieldInfo = (~) ObjectClass
type AttrAllowedOps ObjectClassNotifyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectClassNotifyFieldInfo = (~) (FunPtr GObject.Callbacks.C_ObjectClassNotifyFieldCallback)
type AttrTransferTypeConstraint ObjectClassNotifyFieldInfo = (~)GObject.Callbacks.ObjectClassNotifyFieldCallback
type AttrTransferType ObjectClassNotifyFieldInfo = (FunPtr GObject.Callbacks.C_ObjectClassNotifyFieldCallback)
type AttrGetType ObjectClassNotifyFieldInfo = Maybe GObject.Callbacks.ObjectClassNotifyFieldCallback
type AttrLabel ObjectClassNotifyFieldInfo = "notify"
type AttrOrigin ObjectClassNotifyFieldInfo = ObjectClass
attrGet = getObjectClassNotify
attrSet = setObjectClassNotify
attrConstruct = undefined
attrClear = clearObjectClassNotify
attrTransfer _ v = do
GObject.Callbacks.mk_ObjectClassNotifyFieldCallback (GObject.Callbacks.wrap_ObjectClassNotifyFieldCallback Nothing v)
objectClass_notify :: AttrLabelProxy "notify"
objectClass_notify = AttrLabelProxy
#endif
getObjectClassConstructed :: MonadIO m => ObjectClass -> m (Maybe GObject.Callbacks.ObjectClassConstructedFieldCallback)
getObjectClassConstructed s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 36) :: IO (FunPtr GObject.Callbacks.C_ObjectClassConstructedFieldCallback)
result <- SP.convertFunPtrIfNonNull val $ \val' -> do
let val'' = GObject.Callbacks.dynamic_ObjectClassConstructedFieldCallback val'
return val''
return result
setObjectClassConstructed :: MonadIO m => ObjectClass -> FunPtr GObject.Callbacks.C_ObjectClassConstructedFieldCallback -> m ()
setObjectClassConstructed s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 36) (val :: FunPtr GObject.Callbacks.C_ObjectClassConstructedFieldCallback)
clearObjectClassConstructed :: MonadIO m => ObjectClass -> m ()
clearObjectClassConstructed s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 36) (FP.nullFunPtr :: FunPtr GObject.Callbacks.C_ObjectClassConstructedFieldCallback)
#if defined(ENABLE_OVERLOADING)
data ObjectClassConstructedFieldInfo
instance AttrInfo ObjectClassConstructedFieldInfo where
type AttrBaseTypeConstraint ObjectClassConstructedFieldInfo = (~) ObjectClass
type AttrAllowedOps ObjectClassConstructedFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectClassConstructedFieldInfo = (~) (FunPtr GObject.Callbacks.C_ObjectClassConstructedFieldCallback)
type AttrTransferTypeConstraint ObjectClassConstructedFieldInfo = (~)GObject.Callbacks.ObjectClassConstructedFieldCallback
type AttrTransferType ObjectClassConstructedFieldInfo = (FunPtr GObject.Callbacks.C_ObjectClassConstructedFieldCallback)
type AttrGetType ObjectClassConstructedFieldInfo = Maybe GObject.Callbacks.ObjectClassConstructedFieldCallback
type AttrLabel ObjectClassConstructedFieldInfo = "constructed"
type AttrOrigin ObjectClassConstructedFieldInfo = ObjectClass
attrGet = getObjectClassConstructed
attrSet = setObjectClassConstructed
attrConstruct = undefined
attrClear = clearObjectClassConstructed
attrTransfer _ v = do
GObject.Callbacks.mk_ObjectClassConstructedFieldCallback (GObject.Callbacks.wrap_ObjectClassConstructedFieldCallback Nothing v)
objectClass_constructed :: AttrLabelProxy "constructed"
objectClass_constructed = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ObjectClass
type instance O.AttributeList ObjectClass = ObjectClassAttributeList
type ObjectClassAttributeList = ('[ '("gTypeClass", ObjectClassGTypeClassFieldInfo), '("setProperty", ObjectClassSetPropertyFieldInfo), '("getProperty", ObjectClassGetPropertyFieldInfo), '("dispose", ObjectClassDisposeFieldInfo), '("finalize", ObjectClassFinalizeFieldInfo), '("dispatchPropertiesChanged", ObjectClassDispatchPropertiesChangedFieldInfo), '("notify", ObjectClassNotifyFieldInfo), '("constructed", ObjectClassConstructedFieldInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_object_class_find_property" g_object_class_find_property ::
Ptr ObjectClass ->
CString ->
IO (Ptr GParamSpec)
objectClassFindProperty ::
(B.CallStack.HasCallStack, MonadIO m) =>
ObjectClass
-> T.Text
-> m GParamSpec
objectClassFindProperty oclass propertyName = liftIO $ do
oclass' <- unsafeManagedPtrGetPtr oclass
propertyName' <- textToCString propertyName
result <- g_object_class_find_property oclass' propertyName'
checkUnexpectedReturnNULL "objectClassFindProperty" result
result' <- B.GParamSpec.newGParamSpecFromPtr result
touchManagedPtr oclass
freeMem propertyName'
return result'
#if defined(ENABLE_OVERLOADING)
data ObjectClassFindPropertyMethodInfo
instance (signature ~ (T.Text -> m GParamSpec), MonadIO m) => O.MethodInfo ObjectClassFindPropertyMethodInfo ObjectClass signature where
overloadedMethod = objectClassFindProperty
#endif
foreign import ccall "g_object_class_install_property" g_object_class_install_property ::
Ptr ObjectClass ->
Word32 ->
Ptr GParamSpec ->
IO ()
objectClassInstallProperty ::
(B.CallStack.HasCallStack, MonadIO m) =>
ObjectClass
-> Word32
-> GParamSpec
-> m ()
objectClassInstallProperty oclass propertyId pspec = liftIO $ do
oclass' <- unsafeManagedPtrGetPtr oclass
pspec' <- unsafeManagedPtrGetPtr pspec
g_object_class_install_property oclass' propertyId pspec'
touchManagedPtr oclass
touchManagedPtr pspec
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectClassInstallPropertyMethodInfo
instance (signature ~ (Word32 -> GParamSpec -> m ()), MonadIO m) => O.MethodInfo ObjectClassInstallPropertyMethodInfo ObjectClass signature where
overloadedMethod = objectClassInstallProperty
#endif
foreign import ccall "g_object_class_override_property" g_object_class_override_property ::
Ptr ObjectClass ->
Word32 ->
CString ->
IO ()
objectClassOverrideProperty ::
(B.CallStack.HasCallStack, MonadIO m) =>
ObjectClass
-> Word32
-> T.Text
-> m ()
objectClassOverrideProperty oclass propertyId name = liftIO $ do
oclass' <- unsafeManagedPtrGetPtr oclass
name' <- textToCString name
g_object_class_override_property oclass' propertyId name'
touchManagedPtr oclass
freeMem name'
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectClassOverridePropertyMethodInfo
instance (signature ~ (Word32 -> T.Text -> m ()), MonadIO m) => O.MethodInfo ObjectClassOverridePropertyMethodInfo ObjectClass signature where
overloadedMethod = objectClassOverrideProperty
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveObjectClassMethod (t :: Symbol) (o :: *) :: * where
ResolveObjectClassMethod "findProperty" o = ObjectClassFindPropertyMethodInfo
ResolveObjectClassMethod "installProperty" o = ObjectClassInstallPropertyMethodInfo
ResolveObjectClassMethod "overrideProperty" o = ObjectClassOverridePropertyMethodInfo
ResolveObjectClassMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveObjectClassMethod t ObjectClass, O.MethodInfo info ObjectClass p) => OL.IsLabel t (ObjectClass -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif