gi-gtk-0.3.18.13: GI/Gtk/Objects/RadioAction.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gtk.Objects.RadioAction
(
-- * Exported types
RadioAction(..) ,
RadioActionK ,
toRadioAction ,
noRadioAction ,
-- * Methods
-- ** radioActionGetCurrentValue
RadioActionGetCurrentValueMethodInfo ,
radioActionGetCurrentValue ,
-- ** radioActionGetGroup
RadioActionGetGroupMethodInfo ,
radioActionGetGroup ,
-- ** radioActionJoinGroup
RadioActionJoinGroupMethodInfo ,
radioActionJoinGroup ,
-- ** radioActionNew
radioActionNew ,
-- ** radioActionSetCurrentValue
RadioActionSetCurrentValueMethodInfo ,
radioActionSetCurrentValue ,
-- ** radioActionSetGroup
RadioActionSetGroupMethodInfo ,
radioActionSetGroup ,
-- * Properties
-- ** CurrentValue
RadioActionCurrentValuePropertyInfo ,
constructRadioActionCurrentValue ,
getRadioActionCurrentValue ,
setRadioActionCurrentValue ,
-- ** Group
RadioActionGroupPropertyInfo ,
constructRadioActionGroup ,
setRadioActionGroup ,
-- ** Value
RadioActionValuePropertyInfo ,
constructRadioActionValue ,
getRadioActionValue ,
setRadioActionValue ,
-- * Signals
-- ** Changed
RadioActionChangedCallback ,
RadioActionChangedCallbackC ,
RadioActionChangedSignalInfo ,
afterRadioActionChanged ,
mkRadioActionChangedCallback ,
noRadioActionChangedCallback ,
onRadioActionChanged ,
radioActionChangedCallbackWrapper ,
radioActionChangedClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.GObject as GObject
newtype RadioAction = RadioAction (ForeignPtr RadioAction)
foreign import ccall "gtk_radio_action_get_type"
c_gtk_radio_action_get_type :: IO GType
type instance ParentTypes RadioAction = RadioActionParentTypes
type RadioActionParentTypes = '[ToggleAction, Action, GObject.Object, Buildable]
instance GObject RadioAction where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_radio_action_get_type
class GObject o => RadioActionK o
instance (GObject o, IsDescendantOf RadioAction o) => RadioActionK o
toRadioAction :: RadioActionK o => o -> IO RadioAction
toRadioAction = unsafeCastTo RadioAction
noRadioAction :: Maybe RadioAction
noRadioAction = Nothing
type family ResolveRadioActionMethod (t :: Symbol) (o :: *) :: * where
ResolveRadioActionMethod "activate" o = ActionActivateMethodInfo
ResolveRadioActionMethod "addChild" o = BuildableAddChildMethodInfo
ResolveRadioActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveRadioActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveRadioActionMethod "blockActivate" o = ActionBlockActivateMethodInfo
ResolveRadioActionMethod "connectAccelerator" o = ActionConnectAcceleratorMethodInfo
ResolveRadioActionMethod "constructChild" o = BuildableConstructChildMethodInfo
ResolveRadioActionMethod "createIcon" o = ActionCreateIconMethodInfo
ResolveRadioActionMethod "createMenu" o = ActionCreateMenuMethodInfo
ResolveRadioActionMethod "createMenuItem" o = ActionCreateMenuItemMethodInfo
ResolveRadioActionMethod "createToolItem" o = ActionCreateToolItemMethodInfo
ResolveRadioActionMethod "customFinished" o = BuildableCustomFinishedMethodInfo
ResolveRadioActionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo
ResolveRadioActionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo
ResolveRadioActionMethod "disconnectAccelerator" o = ActionDisconnectAcceleratorMethodInfo
ResolveRadioActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveRadioActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveRadioActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveRadioActionMethod "isSensitive" o = ActionIsSensitiveMethodInfo
ResolveRadioActionMethod "isVisible" o = ActionIsVisibleMethodInfo
ResolveRadioActionMethod "joinGroup" o = RadioActionJoinGroupMethodInfo
ResolveRadioActionMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveRadioActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveRadioActionMethod "parserFinished" o = BuildableParserFinishedMethodInfo
ResolveRadioActionMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveRadioActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveRadioActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveRadioActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveRadioActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveRadioActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveRadioActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveRadioActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveRadioActionMethod "toggled" o = ToggleActionToggledMethodInfo
ResolveRadioActionMethod "unblockActivate" o = ActionUnblockActivateMethodInfo
ResolveRadioActionMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveRadioActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveRadioActionMethod "getAccelClosure" o = ActionGetAccelClosureMethodInfo
ResolveRadioActionMethod "getAccelPath" o = ActionGetAccelPathMethodInfo
ResolveRadioActionMethod "getActive" o = ToggleActionGetActiveMethodInfo
ResolveRadioActionMethod "getAlwaysShowImage" o = ActionGetAlwaysShowImageMethodInfo
ResolveRadioActionMethod "getCurrentValue" o = RadioActionGetCurrentValueMethodInfo
ResolveRadioActionMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveRadioActionMethod "getDrawAsRadio" o = ToggleActionGetDrawAsRadioMethodInfo
ResolveRadioActionMethod "getGicon" o = ActionGetGiconMethodInfo
ResolveRadioActionMethod "getGroup" o = RadioActionGetGroupMethodInfo
ResolveRadioActionMethod "getIconName" o = ActionGetIconNameMethodInfo
ResolveRadioActionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo
ResolveRadioActionMethod "getIsImportant" o = ActionGetIsImportantMethodInfo
ResolveRadioActionMethod "getLabel" o = ActionGetLabelMethodInfo
ResolveRadioActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveRadioActionMethod "getProxies" o = ActionGetProxiesMethodInfo
ResolveRadioActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveRadioActionMethod "getSensitive" o = ActionGetSensitiveMethodInfo
ResolveRadioActionMethod "getShortLabel" o = ActionGetShortLabelMethodInfo
ResolveRadioActionMethod "getStockId" o = ActionGetStockIdMethodInfo
ResolveRadioActionMethod "getTooltip" o = ActionGetTooltipMethodInfo
ResolveRadioActionMethod "getVisible" o = ActionGetVisibleMethodInfo
ResolveRadioActionMethod "getVisibleHorizontal" o = ActionGetVisibleHorizontalMethodInfo
ResolveRadioActionMethod "getVisibleVertical" o = ActionGetVisibleVerticalMethodInfo
ResolveRadioActionMethod "setAccelGroup" o = ActionSetAccelGroupMethodInfo
ResolveRadioActionMethod "setAccelPath" o = ActionSetAccelPathMethodInfo
ResolveRadioActionMethod "setActive" o = ToggleActionSetActiveMethodInfo
ResolveRadioActionMethod "setAlwaysShowImage" o = ActionSetAlwaysShowImageMethodInfo
ResolveRadioActionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo
ResolveRadioActionMethod "setCurrentValue" o = RadioActionSetCurrentValueMethodInfo
ResolveRadioActionMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveRadioActionMethod "setDrawAsRadio" o = ToggleActionSetDrawAsRadioMethodInfo
ResolveRadioActionMethod "setGicon" o = ActionSetGiconMethodInfo
ResolveRadioActionMethod "setGroup" o = RadioActionSetGroupMethodInfo
ResolveRadioActionMethod "setIconName" o = ActionSetIconNameMethodInfo
ResolveRadioActionMethod "setIsImportant" o = ActionSetIsImportantMethodInfo
ResolveRadioActionMethod "setLabel" o = ActionSetLabelMethodInfo
ResolveRadioActionMethod "setName" o = BuildableSetNameMethodInfo
ResolveRadioActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveRadioActionMethod "setSensitive" o = ActionSetSensitiveMethodInfo
ResolveRadioActionMethod "setShortLabel" o = ActionSetShortLabelMethodInfo
ResolveRadioActionMethod "setStockId" o = ActionSetStockIdMethodInfo
ResolveRadioActionMethod "setTooltip" o = ActionSetTooltipMethodInfo
ResolveRadioActionMethod "setVisible" o = ActionSetVisibleMethodInfo
ResolveRadioActionMethod "setVisibleHorizontal" o = ActionSetVisibleHorizontalMethodInfo
ResolveRadioActionMethod "setVisibleVertical" o = ActionSetVisibleVerticalMethodInfo
ResolveRadioActionMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveRadioActionMethod t RadioAction, MethodInfo info RadioAction p) => IsLabelProxy t (RadioAction -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveRadioActionMethod t RadioAction, MethodInfo info RadioAction p) => IsLabel t (RadioAction -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- signal RadioAction::changed
type RadioActionChangedCallback =
RadioAction ->
IO ()
noRadioActionChangedCallback :: Maybe RadioActionChangedCallback
noRadioActionChangedCallback = Nothing
type RadioActionChangedCallbackC =
Ptr () -> -- object
Ptr RadioAction ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkRadioActionChangedCallback :: RadioActionChangedCallbackC -> IO (FunPtr RadioActionChangedCallbackC)
radioActionChangedClosure :: RadioActionChangedCallback -> IO Closure
radioActionChangedClosure cb = newCClosure =<< mkRadioActionChangedCallback wrapped
where wrapped = radioActionChangedCallbackWrapper cb
radioActionChangedCallbackWrapper ::
RadioActionChangedCallback ->
Ptr () ->
Ptr RadioAction ->
Ptr () ->
IO ()
radioActionChangedCallbackWrapper _cb _ current _ = do
current' <- (newObject RadioAction) current
_cb current'
onRadioActionChanged :: (GObject a, MonadIO m) => a -> RadioActionChangedCallback -> m SignalHandlerId
onRadioActionChanged obj cb = liftIO $ connectRadioActionChanged obj cb SignalConnectBefore
afterRadioActionChanged :: (GObject a, MonadIO m) => a -> RadioActionChangedCallback -> m SignalHandlerId
afterRadioActionChanged obj cb = connectRadioActionChanged obj cb SignalConnectAfter
connectRadioActionChanged :: (GObject a, MonadIO m) =>
a -> RadioActionChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectRadioActionChanged obj cb after = liftIO $ do
cb' <- mkRadioActionChangedCallback (radioActionChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
-- VVV Prop "current-value"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
getRadioActionCurrentValue :: (MonadIO m, RadioActionK o) => o -> m Int32
getRadioActionCurrentValue obj = liftIO $ getObjectPropertyCInt obj "current-value"
setRadioActionCurrentValue :: (MonadIO m, RadioActionK o) => o -> Int32 -> m ()
setRadioActionCurrentValue obj val = liftIO $ setObjectPropertyCInt obj "current-value" val
constructRadioActionCurrentValue :: Int32 -> IO ([Char], GValue)
constructRadioActionCurrentValue val = constructObjectPropertyCInt "current-value" val
data RadioActionCurrentValuePropertyInfo
instance AttrInfo RadioActionCurrentValuePropertyInfo where
type AttrAllowedOps RadioActionCurrentValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RadioActionCurrentValuePropertyInfo = (~) Int32
type AttrBaseTypeConstraint RadioActionCurrentValuePropertyInfo = RadioActionK
type AttrGetType RadioActionCurrentValuePropertyInfo = Int32
type AttrLabel RadioActionCurrentValuePropertyInfo = "current-value"
attrGet _ = getRadioActionCurrentValue
attrSet _ = setRadioActionCurrentValue
attrConstruct _ = constructRadioActionCurrentValue
-- VVV Prop "group"
-- Type: TInterface "Gtk" "RadioAction"
-- Flags: [PropertyWritable]
setRadioActionGroup :: (MonadIO m, RadioActionK o, RadioActionK a) => o -> a -> m ()
setRadioActionGroup obj val = liftIO $ setObjectPropertyObject obj "group" val
constructRadioActionGroup :: (RadioActionK a) => a -> IO ([Char], GValue)
constructRadioActionGroup val = constructObjectPropertyObject "group" val
data RadioActionGroupPropertyInfo
instance AttrInfo RadioActionGroupPropertyInfo where
type AttrAllowedOps RadioActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct]
type AttrSetTypeConstraint RadioActionGroupPropertyInfo = RadioActionK
type AttrBaseTypeConstraint RadioActionGroupPropertyInfo = RadioActionK
type AttrGetType RadioActionGroupPropertyInfo = ()
type AttrLabel RadioActionGroupPropertyInfo = "group"
attrGet _ = undefined
attrSet _ = setRadioActionGroup
attrConstruct _ = constructRadioActionGroup
-- VVV Prop "value"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
getRadioActionValue :: (MonadIO m, RadioActionK o) => o -> m Int32
getRadioActionValue obj = liftIO $ getObjectPropertyCInt obj "value"
setRadioActionValue :: (MonadIO m, RadioActionK o) => o -> Int32 -> m ()
setRadioActionValue obj val = liftIO $ setObjectPropertyCInt obj "value" val
constructRadioActionValue :: Int32 -> IO ([Char], GValue)
constructRadioActionValue val = constructObjectPropertyCInt "value" val
data RadioActionValuePropertyInfo
instance AttrInfo RadioActionValuePropertyInfo where
type AttrAllowedOps RadioActionValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint RadioActionValuePropertyInfo = (~) Int32
type AttrBaseTypeConstraint RadioActionValuePropertyInfo = RadioActionK
type AttrGetType RadioActionValuePropertyInfo = Int32
type AttrLabel RadioActionValuePropertyInfo = "value"
attrGet _ = getRadioActionValue
attrSet _ = setRadioActionValue
attrConstruct _ = constructRadioActionValue
type instance AttributeList RadioAction = RadioActionAttributeList
type RadioActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("active", ToggleActionActivePropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("currentValue", RadioActionCurrentValuePropertyInfo), '("drawAsRadio", ToggleActionDrawAsRadioPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("group", RadioActionGroupPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("value", RadioActionValuePropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)])
data RadioActionChangedSignalInfo
instance SignalInfo RadioActionChangedSignalInfo where
type HaskellCallbackType RadioActionChangedSignalInfo = RadioActionChangedCallback
connectSignal _ = connectRadioActionChanged
type instance SignalList RadioAction = RadioActionSignalList
type RadioActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("changed", RadioActionChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("toggled", ToggleActionToggledSignalInfo)] :: [(Symbol, *)])
-- method RadioAction::new
-- method type : Constructor
-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "RadioAction"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_action_new" gtk_radio_action_new ::
CString -> -- name : TBasicType TUTF8
CString -> -- label : TBasicType TUTF8
CString -> -- tooltip : TBasicType TUTF8
CString -> -- stock_id : TBasicType TUTF8
Int32 -> -- value : TBasicType TInt32
IO (Ptr RadioAction)
{-# DEPRECATED radioActionNew ["(Since version 3.10)"]#-}
radioActionNew ::
(MonadIO m) =>
T.Text -- name
-> Maybe (T.Text) -- label
-> Maybe (T.Text) -- tooltip
-> Maybe (T.Text) -- stockId
-> Int32 -- value
-> m RadioAction -- result
radioActionNew name label tooltip stockId value = liftIO $ do
name' <- textToCString name
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
maybeTooltip <- case tooltip of
Nothing -> return nullPtr
Just jTooltip -> do
jTooltip' <- textToCString jTooltip
return jTooltip'
maybeStockId <- case stockId of
Nothing -> return nullPtr
Just jStockId -> do
jStockId' <- textToCString jStockId
return jStockId'
result <- gtk_radio_action_new name' maybeLabel maybeTooltip maybeStockId value
checkUnexpectedReturnNULL "gtk_radio_action_new" result
result' <- (wrapObject RadioAction) result
freeMem name'
freeMem maybeLabel
freeMem maybeTooltip
freeMem maybeStockId
return result'
-- method RadioAction::get_current_value
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_action_get_current_value" gtk_radio_action_get_current_value ::
Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction"
IO Int32
{-# DEPRECATED radioActionGetCurrentValue ["(Since version 3.10)"]#-}
radioActionGetCurrentValue ::
(MonadIO m, RadioActionK a) =>
a -- _obj
-> m Int32 -- result
radioActionGetCurrentValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_radio_action_get_current_value _obj'
touchManagedPtr _obj
return result
data RadioActionGetCurrentValueMethodInfo
instance (signature ~ (m Int32), MonadIO m, RadioActionK a) => MethodInfo RadioActionGetCurrentValueMethodInfo a signature where
overloadedMethod _ = radioActionGetCurrentValue
-- method RadioAction::get_group
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TGSList (TInterface "Gtk" "RadioAction")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_action_get_group" gtk_radio_action_get_group ::
Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction"
IO (Ptr (GSList (Ptr RadioAction)))
{-# DEPRECATED radioActionGetGroup ["(Since version 3.10)"]#-}
radioActionGetGroup ::
(MonadIO m, RadioActionK a) =>
a -- _obj
-> m [RadioAction] -- result
radioActionGetGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_radio_action_get_group _obj'
checkUnexpectedReturnNULL "gtk_radio_action_get_group" result
result' <- unpackGSList result
result'' <- mapM (newObject RadioAction) result'
touchManagedPtr _obj
return result''
data RadioActionGetGroupMethodInfo
instance (signature ~ (m [RadioAction]), MonadIO m, RadioActionK a) => MethodInfo RadioActionGetGroupMethodInfo a signature where
overloadedMethod _ = radioActionGetGroup
-- method RadioAction::join_group
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_source", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_action_join_group" gtk_radio_action_join_group ::
Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction"
Ptr RadioAction -> -- group_source : TInterface "Gtk" "RadioAction"
IO ()
{-# DEPRECATED radioActionJoinGroup ["(Since version 3.10)"]#-}
radioActionJoinGroup ::
(MonadIO m, RadioActionK a, RadioActionK b) =>
a -- _obj
-> Maybe (b) -- groupSource
-> m () -- result
radioActionJoinGroup _obj groupSource = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeGroupSource <- case groupSource of
Nothing -> return nullPtr
Just jGroupSource -> do
let jGroupSource' = unsafeManagedPtrCastPtr jGroupSource
return jGroupSource'
gtk_radio_action_join_group _obj' maybeGroupSource
touchManagedPtr _obj
whenJust groupSource touchManagedPtr
return ()
data RadioActionJoinGroupMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, RadioActionK a, RadioActionK b) => MethodInfo RadioActionJoinGroupMethodInfo a signature where
overloadedMethod _ = radioActionJoinGroup
-- method RadioAction::set_current_value
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_action_set_current_value" gtk_radio_action_set_current_value ::
Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction"
Int32 -> -- current_value : TBasicType TInt32
IO ()
{-# DEPRECATED radioActionSetCurrentValue ["(Since version 3.10)"]#-}
radioActionSetCurrentValue ::
(MonadIO m, RadioActionK a) =>
a -- _obj
-> Int32 -- currentValue
-> m () -- result
radioActionSetCurrentValue _obj currentValue = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_radio_action_set_current_value _obj' currentValue
touchManagedPtr _obj
return ()
data RadioActionSetCurrentValueMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, RadioActionK a) => MethodInfo RadioActionSetCurrentValueMethodInfo a signature where
overloadedMethod _ = radioActionSetCurrentValue
-- method RadioAction::set_group
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioAction"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_radio_action_set_group" gtk_radio_action_set_group ::
Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction"
Ptr (GSList (Ptr RadioAction)) -> -- group : TGSList (TInterface "Gtk" "RadioAction")
IO ()
{-# DEPRECATED radioActionSetGroup ["(Since version 3.10)"]#-}
radioActionSetGroup ::
(MonadIO m, RadioActionK a, RadioActionK b) =>
a -- _obj
-> [b] -- group
-> m () -- result
radioActionSetGroup _obj group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = map unsafeManagedPtrCastPtr group
group'' <- packGSList group'
gtk_radio_action_set_group _obj' group''
touchManagedPtr _obj
mapM_ touchManagedPtr group
g_slist_free group''
return ()
data RadioActionSetGroupMethodInfo
instance (signature ~ ([b] -> m ()), MonadIO m, RadioActionK a, RadioActionK b) => MethodInfo RadioActionSetGroupMethodInfo a signature where
overloadedMethod _ = radioActionSetGroup