{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Structs.RadioActionEntry
(
RadioActionEntry(..) ,
newZeroRadioActionEntry ,
noRadioActionEntry ,
#if defined(ENABLE_OVERLOADING)
ResolveRadioActionEntryMethod ,
#endif
clearRadioActionEntryAccelerator ,
getRadioActionEntryAccelerator ,
#if defined(ENABLE_OVERLOADING)
radioActionEntry_accelerator ,
#endif
setRadioActionEntryAccelerator ,
clearRadioActionEntryLabel ,
getRadioActionEntryLabel ,
#if defined(ENABLE_OVERLOADING)
radioActionEntry_label ,
#endif
setRadioActionEntryLabel ,
clearRadioActionEntryName ,
getRadioActionEntryName ,
#if defined(ENABLE_OVERLOADING)
radioActionEntry_name ,
#endif
setRadioActionEntryName ,
clearRadioActionEntryStockId ,
getRadioActionEntryStockId ,
#if defined(ENABLE_OVERLOADING)
radioActionEntry_stockId ,
#endif
setRadioActionEntryStockId ,
clearRadioActionEntryTooltip ,
getRadioActionEntryTooltip ,
#if defined(ENABLE_OVERLOADING)
radioActionEntry_tooltip ,
#endif
setRadioActionEntryTooltip ,
getRadioActionEntryValue ,
#if defined(ENABLE_OVERLOADING)
radioActionEntry_value ,
#endif
setRadioActionEntryValue ,
) 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 RadioActionEntry = RadioActionEntry (ManagedPtr RadioActionEntry)
deriving (Eq)
instance WrappedPtr RadioActionEntry where
wrappedPtrCalloc = callocBytes 24
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 24 >=> wrapPtr RadioActionEntry)
wrappedPtrFree = Just ptr_to_g_free
newZeroRadioActionEntry :: MonadIO m => m RadioActionEntry
newZeroRadioActionEntry = liftIO $ wrappedPtrCalloc >>= wrapPtr RadioActionEntry
instance tag ~ 'AttrSet => Constructible RadioActionEntry tag where
new _ attrs = do
o <- newZeroRadioActionEntry
GI.Attributes.set o attrs
return o
noRadioActionEntry :: Maybe RadioActionEntry
noRadioActionEntry = Nothing
getRadioActionEntryName :: MonadIO m => RadioActionEntry -> m (Maybe T.Text)
getRadioActionEntryName s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setRadioActionEntryName :: MonadIO m => RadioActionEntry -> CString -> m ()
setRadioActionEntryName s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: CString)
clearRadioActionEntryName :: MonadIO m => RadioActionEntry -> m ()
clearRadioActionEntryName s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data RadioActionEntryNameFieldInfo
instance AttrInfo RadioActionEntryNameFieldInfo where
type AttrBaseTypeConstraint RadioActionEntryNameFieldInfo = (~) RadioActionEntry
type AttrAllowedOps RadioActionEntryNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RadioActionEntryNameFieldInfo = (~) CString
type AttrTransferTypeConstraint RadioActionEntryNameFieldInfo = (~)CString
type AttrTransferType RadioActionEntryNameFieldInfo = CString
type AttrGetType RadioActionEntryNameFieldInfo = Maybe T.Text
type AttrLabel RadioActionEntryNameFieldInfo = "name"
type AttrOrigin RadioActionEntryNameFieldInfo = RadioActionEntry
attrGet = getRadioActionEntryName
attrSet = setRadioActionEntryName
attrConstruct = undefined
attrClear = clearRadioActionEntryName
attrTransfer _ v = do
return v
radioActionEntry_name :: AttrLabelProxy "name"
radioActionEntry_name = AttrLabelProxy
#endif
getRadioActionEntryStockId :: MonadIO m => RadioActionEntry -> m (Maybe T.Text)
getRadioActionEntryStockId 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
setRadioActionEntryStockId :: MonadIO m => RadioActionEntry -> CString -> m ()
setRadioActionEntryStockId s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (val :: CString)
clearRadioActionEntryStockId :: MonadIO m => RadioActionEntry -> m ()
clearRadioActionEntryStockId s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data RadioActionEntryStockIdFieldInfo
instance AttrInfo RadioActionEntryStockIdFieldInfo where
type AttrBaseTypeConstraint RadioActionEntryStockIdFieldInfo = (~) RadioActionEntry
type AttrAllowedOps RadioActionEntryStockIdFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RadioActionEntryStockIdFieldInfo = (~) CString
type AttrTransferTypeConstraint RadioActionEntryStockIdFieldInfo = (~)CString
type AttrTransferType RadioActionEntryStockIdFieldInfo = CString
type AttrGetType RadioActionEntryStockIdFieldInfo = Maybe T.Text
type AttrLabel RadioActionEntryStockIdFieldInfo = "stock_id"
type AttrOrigin RadioActionEntryStockIdFieldInfo = RadioActionEntry
attrGet = getRadioActionEntryStockId
attrSet = setRadioActionEntryStockId
attrConstruct = undefined
attrClear = clearRadioActionEntryStockId
attrTransfer _ v = do
return v
radioActionEntry_stockId :: AttrLabelProxy "stockId"
radioActionEntry_stockId = AttrLabelProxy
#endif
getRadioActionEntryLabel :: MonadIO m => RadioActionEntry -> m (Maybe T.Text)
getRadioActionEntryLabel s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setRadioActionEntryLabel :: MonadIO m => RadioActionEntry -> CString -> m ()
setRadioActionEntryLabel s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: CString)
clearRadioActionEntryLabel :: MonadIO m => RadioActionEntry -> m ()
clearRadioActionEntryLabel s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data RadioActionEntryLabelFieldInfo
instance AttrInfo RadioActionEntryLabelFieldInfo where
type AttrBaseTypeConstraint RadioActionEntryLabelFieldInfo = (~) RadioActionEntry
type AttrAllowedOps RadioActionEntryLabelFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RadioActionEntryLabelFieldInfo = (~) CString
type AttrTransferTypeConstraint RadioActionEntryLabelFieldInfo = (~)CString
type AttrTransferType RadioActionEntryLabelFieldInfo = CString
type AttrGetType RadioActionEntryLabelFieldInfo = Maybe T.Text
type AttrLabel RadioActionEntryLabelFieldInfo = "label"
type AttrOrigin RadioActionEntryLabelFieldInfo = RadioActionEntry
attrGet = getRadioActionEntryLabel
attrSet = setRadioActionEntryLabel
attrConstruct = undefined
attrClear = clearRadioActionEntryLabel
attrTransfer _ v = do
return v
radioActionEntry_label :: AttrLabelProxy "label"
radioActionEntry_label = AttrLabelProxy
#endif
getRadioActionEntryAccelerator :: MonadIO m => RadioActionEntry -> m (Maybe T.Text)
getRadioActionEntryAccelerator s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setRadioActionEntryAccelerator :: MonadIO m => RadioActionEntry -> CString -> m ()
setRadioActionEntryAccelerator s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 12) (val :: CString)
clearRadioActionEntryAccelerator :: MonadIO m => RadioActionEntry -> m ()
clearRadioActionEntryAccelerator s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 12) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data RadioActionEntryAcceleratorFieldInfo
instance AttrInfo RadioActionEntryAcceleratorFieldInfo where
type AttrBaseTypeConstraint RadioActionEntryAcceleratorFieldInfo = (~) RadioActionEntry
type AttrAllowedOps RadioActionEntryAcceleratorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RadioActionEntryAcceleratorFieldInfo = (~) CString
type AttrTransferTypeConstraint RadioActionEntryAcceleratorFieldInfo = (~)CString
type AttrTransferType RadioActionEntryAcceleratorFieldInfo = CString
type AttrGetType RadioActionEntryAcceleratorFieldInfo = Maybe T.Text
type AttrLabel RadioActionEntryAcceleratorFieldInfo = "accelerator"
type AttrOrigin RadioActionEntryAcceleratorFieldInfo = RadioActionEntry
attrGet = getRadioActionEntryAccelerator
attrSet = setRadioActionEntryAccelerator
attrConstruct = undefined
attrClear = clearRadioActionEntryAccelerator
attrTransfer _ v = do
return v
radioActionEntry_accelerator :: AttrLabelProxy "accelerator"
radioActionEntry_accelerator = AttrLabelProxy
#endif
getRadioActionEntryTooltip :: MonadIO m => RadioActionEntry -> m (Maybe T.Text)
getRadioActionEntryTooltip s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setRadioActionEntryTooltip :: MonadIO m => RadioActionEntry -> CString -> m ()
setRadioActionEntryTooltip s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: CString)
clearRadioActionEntryTooltip :: MonadIO m => RadioActionEntry -> m ()
clearRadioActionEntryTooltip s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data RadioActionEntryTooltipFieldInfo
instance AttrInfo RadioActionEntryTooltipFieldInfo where
type AttrBaseTypeConstraint RadioActionEntryTooltipFieldInfo = (~) RadioActionEntry
type AttrAllowedOps RadioActionEntryTooltipFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RadioActionEntryTooltipFieldInfo = (~) CString
type AttrTransferTypeConstraint RadioActionEntryTooltipFieldInfo = (~)CString
type AttrTransferType RadioActionEntryTooltipFieldInfo = CString
type AttrGetType RadioActionEntryTooltipFieldInfo = Maybe T.Text
type AttrLabel RadioActionEntryTooltipFieldInfo = "tooltip"
type AttrOrigin RadioActionEntryTooltipFieldInfo = RadioActionEntry
attrGet = getRadioActionEntryTooltip
attrSet = setRadioActionEntryTooltip
attrConstruct = undefined
attrClear = clearRadioActionEntryTooltip
attrTransfer _ v = do
return v
radioActionEntry_tooltip :: AttrLabelProxy "tooltip"
radioActionEntry_tooltip = AttrLabelProxy
#endif
getRadioActionEntryValue :: MonadIO m => RadioActionEntry -> m Int32
getRadioActionEntryValue s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO Int32
return val
setRadioActionEntryValue :: MonadIO m => RadioActionEntry -> Int32 -> m ()
setRadioActionEntryValue s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 20) (val :: Int32)
#if defined(ENABLE_OVERLOADING)
data RadioActionEntryValueFieldInfo
instance AttrInfo RadioActionEntryValueFieldInfo where
type AttrBaseTypeConstraint RadioActionEntryValueFieldInfo = (~) RadioActionEntry
type AttrAllowedOps RadioActionEntryValueFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RadioActionEntryValueFieldInfo = (~) Int32
type AttrTransferTypeConstraint RadioActionEntryValueFieldInfo = (~)Int32
type AttrTransferType RadioActionEntryValueFieldInfo = Int32
type AttrGetType RadioActionEntryValueFieldInfo = Int32
type AttrLabel RadioActionEntryValueFieldInfo = "value"
type AttrOrigin RadioActionEntryValueFieldInfo = RadioActionEntry
attrGet = getRadioActionEntryValue
attrSet = setRadioActionEntryValue
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
radioActionEntry_value :: AttrLabelProxy "value"
radioActionEntry_value = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList RadioActionEntry
type instance O.AttributeList RadioActionEntry = RadioActionEntryAttributeList
type RadioActionEntryAttributeList = ('[ '("name", RadioActionEntryNameFieldInfo), '("stockId", RadioActionEntryStockIdFieldInfo), '("label", RadioActionEntryLabelFieldInfo), '("accelerator", RadioActionEntryAcceleratorFieldInfo), '("tooltip", RadioActionEntryTooltipFieldInfo), '("value", RadioActionEntryValueFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveRadioActionEntryMethod (t :: Symbol) (o :: *) :: * where
ResolveRadioActionEntryMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRadioActionEntryMethod t RadioActionEntry, O.MethodInfo info RadioActionEntry p) => OL.IsLabel t (RadioActionEntry -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif