{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Structs.BindingSignal
(
BindingSignal(..) ,
newZeroBindingSignal ,
noBindingSignal ,
#if defined(ENABLE_OVERLOADING)
ResolveBindingSignalMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
bindingSignal_nArgs ,
#endif
getBindingSignalNArgs ,
setBindingSignalNArgs ,
#if defined(ENABLE_OVERLOADING)
bindingSignal_next ,
#endif
clearBindingSignalNext ,
getBindingSignalNext ,
setBindingSignalNext ,
#if defined(ENABLE_OVERLOADING)
bindingSignal_signalName ,
#endif
clearBindingSignalSignalName ,
getBindingSignalSignalName ,
setBindingSignalSignalName ,
) 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 BindingSignal = BindingSignal (ManagedPtr BindingSignal)
deriving (Eq)
instance WrappedPtr BindingSignal where
wrappedPtrCalloc = callocBytes 16
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 16 >=> wrapPtr BindingSignal)
wrappedPtrFree = Just ptr_to_g_free
newZeroBindingSignal :: MonadIO m => m BindingSignal
newZeroBindingSignal = liftIO $ wrappedPtrCalloc >>= wrapPtr BindingSignal
instance tag ~ 'AttrSet => Constructible BindingSignal tag where
new _ attrs = do
o <- newZeroBindingSignal
GI.Attributes.set o attrs
return o
noBindingSignal :: Maybe BindingSignal
noBindingSignal = Nothing
getBindingSignalNext :: MonadIO m => BindingSignal -> m (Maybe BindingSignal)
getBindingSignalNext s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO (Ptr BindingSignal)
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- (newPtr BindingSignal) val'
return val''
return result
setBindingSignalNext :: MonadIO m => BindingSignal -> Ptr BindingSignal -> m ()
setBindingSignalNext s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: Ptr BindingSignal)
clearBindingSignalNext :: MonadIO m => BindingSignal -> m ()
clearBindingSignalNext s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (FP.nullPtr :: Ptr BindingSignal)
#if defined(ENABLE_OVERLOADING)
data BindingSignalNextFieldInfo
instance AttrInfo BindingSignalNextFieldInfo where
type AttrBaseTypeConstraint BindingSignalNextFieldInfo = (~) BindingSignal
type AttrAllowedOps BindingSignalNextFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint BindingSignalNextFieldInfo = (~) (Ptr BindingSignal)
type AttrTransferTypeConstraint BindingSignalNextFieldInfo = (~)(Ptr BindingSignal)
type AttrTransferType BindingSignalNextFieldInfo = (Ptr BindingSignal)
type AttrGetType BindingSignalNextFieldInfo = Maybe BindingSignal
type AttrLabel BindingSignalNextFieldInfo = "next"
type AttrOrigin BindingSignalNextFieldInfo = BindingSignal
attrGet = getBindingSignalNext
attrSet = setBindingSignalNext
attrConstruct = undefined
attrClear = clearBindingSignalNext
attrTransfer _ v = do
return v
bindingSignal_next :: AttrLabelProxy "next"
bindingSignal_next = AttrLabelProxy
#endif
getBindingSignalSignalName :: MonadIO m => BindingSignal -> m (Maybe T.Text)
getBindingSignalSignalName s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setBindingSignalSignalName :: MonadIO m => BindingSignal -> CString -> m ()
setBindingSignalSignalName s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (val :: CString)
clearBindingSignalSignalName :: MonadIO m => BindingSignal -> m ()
clearBindingSignalSignalName s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data BindingSignalSignalNameFieldInfo
instance AttrInfo BindingSignalSignalNameFieldInfo where
type AttrBaseTypeConstraint BindingSignalSignalNameFieldInfo = (~) BindingSignal
type AttrAllowedOps BindingSignalSignalNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint BindingSignalSignalNameFieldInfo = (~) CString
type AttrTransferTypeConstraint BindingSignalSignalNameFieldInfo = (~)CString
type AttrTransferType BindingSignalSignalNameFieldInfo = CString
type AttrGetType BindingSignalSignalNameFieldInfo = Maybe T.Text
type AttrLabel BindingSignalSignalNameFieldInfo = "signal_name"
type AttrOrigin BindingSignalSignalNameFieldInfo = BindingSignal
attrGet = getBindingSignalSignalName
attrSet = setBindingSignalSignalName
attrConstruct = undefined
attrClear = clearBindingSignalSignalName
attrTransfer _ v = do
return v
bindingSignal_signalName :: AttrLabelProxy "signalName"
bindingSignal_signalName = AttrLabelProxy
#endif
getBindingSignalNArgs :: MonadIO m => BindingSignal -> m Word32
getBindingSignalNArgs s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Word32
return val
setBindingSignalNArgs :: MonadIO m => BindingSignal -> Word32 -> m ()
setBindingSignalNArgs s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Word32)
#if defined(ENABLE_OVERLOADING)
data BindingSignalNArgsFieldInfo
instance AttrInfo BindingSignalNArgsFieldInfo where
type AttrBaseTypeConstraint BindingSignalNArgsFieldInfo = (~) BindingSignal
type AttrAllowedOps BindingSignalNArgsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint BindingSignalNArgsFieldInfo = (~) Word32
type AttrTransferTypeConstraint BindingSignalNArgsFieldInfo = (~)Word32
type AttrTransferType BindingSignalNArgsFieldInfo = Word32
type AttrGetType BindingSignalNArgsFieldInfo = Word32
type AttrLabel BindingSignalNArgsFieldInfo = "n_args"
type AttrOrigin BindingSignalNArgsFieldInfo = BindingSignal
attrGet = getBindingSignalNArgs
attrSet = setBindingSignalNArgs
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
bindingSignal_nArgs :: AttrLabelProxy "nArgs"
bindingSignal_nArgs = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList BindingSignal
type instance O.AttributeList BindingSignal = BindingSignalAttributeList
type BindingSignalAttributeList = ('[ '("next", BindingSignalNextFieldInfo), '("signalName", BindingSignalSignalNameFieldInfo), '("nArgs", BindingSignalNArgsFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveBindingSignalMethod (t :: Symbol) (o :: *) :: * where
ResolveBindingSignalMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBindingSignalMethod t BindingSignal, O.MethodInfo info BindingSignal p) => OL.IsLabel t (BindingSignal -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif