{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GObject.Structs.ObjectConstructParam
(
ObjectConstructParam(..) ,
newZeroObjectConstructParam ,
noObjectConstructParam ,
#if defined(ENABLE_OVERLOADING)
ResolveObjectConstructParamMethod ,
#endif
clearObjectConstructParamPspec ,
getObjectConstructParamPspec ,
#if defined(ENABLE_OVERLOADING)
objectConstructParam_pspec ,
#endif
setObjectConstructParamPspec ,
clearObjectConstructParamValue ,
getObjectConstructParamValue ,
#if defined(ENABLE_OVERLOADING)
objectConstructParam_value ,
#endif
setObjectConstructParamValue ,
) 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
newtype ObjectConstructParam = ObjectConstructParam (ManagedPtr ObjectConstructParam)
deriving (Eq)
instance WrappedPtr ObjectConstructParam where
wrappedPtrCalloc = callocBytes 16
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 16 >=> wrapPtr ObjectConstructParam)
wrappedPtrFree = Just ptr_to_g_free
newZeroObjectConstructParam :: MonadIO m => m ObjectConstructParam
newZeroObjectConstructParam = liftIO $ wrappedPtrCalloc >>= wrapPtr ObjectConstructParam
instance tag ~ 'AttrSet => Constructible ObjectConstructParam tag where
new _ attrs = do
o <- newZeroObjectConstructParam
GI.Attributes.set o attrs
return o
noObjectConstructParam :: Maybe ObjectConstructParam
noObjectConstructParam = Nothing
getObjectConstructParamPspec :: MonadIO m => ObjectConstructParam -> m (Maybe GParamSpec)
getObjectConstructParamPspec s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO (Ptr GParamSpec)
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- B.GParamSpec.newGParamSpecFromPtr val'
return val''
return result
setObjectConstructParamPspec :: MonadIO m => ObjectConstructParam -> Ptr GParamSpec -> m ()
setObjectConstructParamPspec s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: Ptr GParamSpec)
clearObjectConstructParamPspec :: MonadIO m => ObjectConstructParam -> m ()
clearObjectConstructParamPspec s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (FP.nullPtr :: Ptr GParamSpec)
#if defined(ENABLE_OVERLOADING)
data ObjectConstructParamPspecFieldInfo
instance AttrInfo ObjectConstructParamPspecFieldInfo where
type AttrBaseTypeConstraint ObjectConstructParamPspecFieldInfo = (~) ObjectConstructParam
type AttrAllowedOps ObjectConstructParamPspecFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectConstructParamPspecFieldInfo = (~) (Ptr GParamSpec)
type AttrTransferTypeConstraint ObjectConstructParamPspecFieldInfo = (~)(Ptr GParamSpec)
type AttrTransferType ObjectConstructParamPspecFieldInfo = (Ptr GParamSpec)
type AttrGetType ObjectConstructParamPspecFieldInfo = Maybe GParamSpec
type AttrLabel ObjectConstructParamPspecFieldInfo = "pspec"
type AttrOrigin ObjectConstructParamPspecFieldInfo = ObjectConstructParam
attrGet = getObjectConstructParamPspec
attrSet = setObjectConstructParamPspec
attrConstruct = undefined
attrClear = clearObjectConstructParamPspec
attrTransfer _ v = do
return v
objectConstructParam_pspec :: AttrLabelProxy "pspec"
objectConstructParam_pspec = AttrLabelProxy
#endif
getObjectConstructParamValue :: MonadIO m => ObjectConstructParam -> m (Maybe GValue)
getObjectConstructParamValue s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue)
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- (newBoxed GValue) val'
return val''
return result
setObjectConstructParamValue :: MonadIO m => ObjectConstructParam -> Ptr GValue -> m ()
setObjectConstructParamValue s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Ptr GValue)
clearObjectConstructParamValue :: MonadIO m => ObjectConstructParam -> m ()
clearObjectConstructParamValue s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: Ptr GValue)
#if defined(ENABLE_OVERLOADING)
data ObjectConstructParamValueFieldInfo
instance AttrInfo ObjectConstructParamValueFieldInfo where
type AttrBaseTypeConstraint ObjectConstructParamValueFieldInfo = (~) ObjectConstructParam
type AttrAllowedOps ObjectConstructParamValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectConstructParamValueFieldInfo = (~) (Ptr GValue)
type AttrTransferTypeConstraint ObjectConstructParamValueFieldInfo = (~)(Ptr GValue)
type AttrTransferType ObjectConstructParamValueFieldInfo = (Ptr GValue)
type AttrGetType ObjectConstructParamValueFieldInfo = Maybe GValue
type AttrLabel ObjectConstructParamValueFieldInfo = "value"
type AttrOrigin ObjectConstructParamValueFieldInfo = ObjectConstructParam
attrGet = getObjectConstructParamValue
attrSet = setObjectConstructParamValue
attrConstruct = undefined
attrClear = clearObjectConstructParamValue
attrTransfer _ v = do
return v
objectConstructParam_value :: AttrLabelProxy "value"
objectConstructParam_value = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ObjectConstructParam
type instance O.AttributeList ObjectConstructParam = ObjectConstructParamAttributeList
type ObjectConstructParamAttributeList = ('[ '("pspec", ObjectConstructParamPspecFieldInfo), '("value", ObjectConstructParamValueFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveObjectConstructParamMethod (t :: Symbol) (o :: *) :: * where
ResolveObjectConstructParamMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveObjectConstructParamMethod t ObjectConstructParam, O.MethodInfo info ObjectConstructParam p) => OL.IsLabel t (ObjectConstructParam -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif