gi-gtk-0.3.18.13: GI/Gtk/Objects/ToggleAction.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.ToggleAction
(
-- * Exported types
ToggleAction(..) ,
ToggleActionK ,
toToggleAction ,
noToggleAction ,
-- * Methods
-- ** toggleActionGetActive
ToggleActionGetActiveMethodInfo ,
toggleActionGetActive ,
-- ** toggleActionGetDrawAsRadio
ToggleActionGetDrawAsRadioMethodInfo ,
toggleActionGetDrawAsRadio ,
-- ** toggleActionNew
toggleActionNew ,
-- ** toggleActionSetActive
ToggleActionSetActiveMethodInfo ,
toggleActionSetActive ,
-- ** toggleActionSetDrawAsRadio
ToggleActionSetDrawAsRadioMethodInfo ,
toggleActionSetDrawAsRadio ,
-- ** toggleActionToggled
ToggleActionToggledMethodInfo ,
toggleActionToggled ,
-- * Properties
-- ** Active
ToggleActionActivePropertyInfo ,
constructToggleActionActive ,
getToggleActionActive ,
setToggleActionActive ,
-- ** DrawAsRadio
ToggleActionDrawAsRadioPropertyInfo ,
constructToggleActionDrawAsRadio ,
getToggleActionDrawAsRadio ,
setToggleActionDrawAsRadio ,
-- * Signals
-- ** Toggled
ToggleActionToggledCallback ,
ToggleActionToggledCallbackC ,
ToggleActionToggledSignalInfo ,
afterToggleActionToggled ,
mkToggleActionToggledCallback ,
noToggleActionToggledCallback ,
onToggleActionToggled ,
toggleActionToggledCallbackWrapper ,
toggleActionToggledClosure ,
) 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 ToggleAction = ToggleAction (ForeignPtr ToggleAction)
foreign import ccall "gtk_toggle_action_get_type"
c_gtk_toggle_action_get_type :: IO GType
type instance ParentTypes ToggleAction = ToggleActionParentTypes
type ToggleActionParentTypes = '[Action, GObject.Object, Buildable]
instance GObject ToggleAction where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_toggle_action_get_type
class GObject o => ToggleActionK o
instance (GObject o, IsDescendantOf ToggleAction o) => ToggleActionK o
toToggleAction :: ToggleActionK o => o -> IO ToggleAction
toToggleAction = unsafeCastTo ToggleAction
noToggleAction :: Maybe ToggleAction
noToggleAction = Nothing
type family ResolveToggleActionMethod (t :: Symbol) (o :: *) :: * where
ResolveToggleActionMethod "activate" o = ActionActivateMethodInfo
ResolveToggleActionMethod "addChild" o = BuildableAddChildMethodInfo
ResolveToggleActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveToggleActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveToggleActionMethod "blockActivate" o = ActionBlockActivateMethodInfo
ResolveToggleActionMethod "connectAccelerator" o = ActionConnectAcceleratorMethodInfo
ResolveToggleActionMethod "constructChild" o = BuildableConstructChildMethodInfo
ResolveToggleActionMethod "createIcon" o = ActionCreateIconMethodInfo
ResolveToggleActionMethod "createMenu" o = ActionCreateMenuMethodInfo
ResolveToggleActionMethod "createMenuItem" o = ActionCreateMenuItemMethodInfo
ResolveToggleActionMethod "createToolItem" o = ActionCreateToolItemMethodInfo
ResolveToggleActionMethod "customFinished" o = BuildableCustomFinishedMethodInfo
ResolveToggleActionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo
ResolveToggleActionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo
ResolveToggleActionMethod "disconnectAccelerator" o = ActionDisconnectAcceleratorMethodInfo
ResolveToggleActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveToggleActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveToggleActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveToggleActionMethod "isSensitive" o = ActionIsSensitiveMethodInfo
ResolveToggleActionMethod "isVisible" o = ActionIsVisibleMethodInfo
ResolveToggleActionMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveToggleActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveToggleActionMethod "parserFinished" o = BuildableParserFinishedMethodInfo
ResolveToggleActionMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveToggleActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveToggleActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveToggleActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveToggleActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveToggleActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveToggleActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveToggleActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveToggleActionMethod "toggled" o = ToggleActionToggledMethodInfo
ResolveToggleActionMethod "unblockActivate" o = ActionUnblockActivateMethodInfo
ResolveToggleActionMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveToggleActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveToggleActionMethod "getAccelClosure" o = ActionGetAccelClosureMethodInfo
ResolveToggleActionMethod "getAccelPath" o = ActionGetAccelPathMethodInfo
ResolveToggleActionMethod "getActive" o = ToggleActionGetActiveMethodInfo
ResolveToggleActionMethod "getAlwaysShowImage" o = ActionGetAlwaysShowImageMethodInfo
ResolveToggleActionMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveToggleActionMethod "getDrawAsRadio" o = ToggleActionGetDrawAsRadioMethodInfo
ResolveToggleActionMethod "getGicon" o = ActionGetGiconMethodInfo
ResolveToggleActionMethod "getIconName" o = ActionGetIconNameMethodInfo
ResolveToggleActionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo
ResolveToggleActionMethod "getIsImportant" o = ActionGetIsImportantMethodInfo
ResolveToggleActionMethod "getLabel" o = ActionGetLabelMethodInfo
ResolveToggleActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveToggleActionMethod "getProxies" o = ActionGetProxiesMethodInfo
ResolveToggleActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveToggleActionMethod "getSensitive" o = ActionGetSensitiveMethodInfo
ResolveToggleActionMethod "getShortLabel" o = ActionGetShortLabelMethodInfo
ResolveToggleActionMethod "getStockId" o = ActionGetStockIdMethodInfo
ResolveToggleActionMethod "getTooltip" o = ActionGetTooltipMethodInfo
ResolveToggleActionMethod "getVisible" o = ActionGetVisibleMethodInfo
ResolveToggleActionMethod "getVisibleHorizontal" o = ActionGetVisibleHorizontalMethodInfo
ResolveToggleActionMethod "getVisibleVertical" o = ActionGetVisibleVerticalMethodInfo
ResolveToggleActionMethod "setAccelGroup" o = ActionSetAccelGroupMethodInfo
ResolveToggleActionMethod "setAccelPath" o = ActionSetAccelPathMethodInfo
ResolveToggleActionMethod "setActive" o = ToggleActionSetActiveMethodInfo
ResolveToggleActionMethod "setAlwaysShowImage" o = ActionSetAlwaysShowImageMethodInfo
ResolveToggleActionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo
ResolveToggleActionMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveToggleActionMethod "setDrawAsRadio" o = ToggleActionSetDrawAsRadioMethodInfo
ResolveToggleActionMethod "setGicon" o = ActionSetGiconMethodInfo
ResolveToggleActionMethod "setIconName" o = ActionSetIconNameMethodInfo
ResolveToggleActionMethod "setIsImportant" o = ActionSetIsImportantMethodInfo
ResolveToggleActionMethod "setLabel" o = ActionSetLabelMethodInfo
ResolveToggleActionMethod "setName" o = BuildableSetNameMethodInfo
ResolveToggleActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveToggleActionMethod "setSensitive" o = ActionSetSensitiveMethodInfo
ResolveToggleActionMethod "setShortLabel" o = ActionSetShortLabelMethodInfo
ResolveToggleActionMethod "setStockId" o = ActionSetStockIdMethodInfo
ResolveToggleActionMethod "setTooltip" o = ActionSetTooltipMethodInfo
ResolveToggleActionMethod "setVisible" o = ActionSetVisibleMethodInfo
ResolveToggleActionMethod "setVisibleHorizontal" o = ActionSetVisibleHorizontalMethodInfo
ResolveToggleActionMethod "setVisibleVertical" o = ActionSetVisibleVerticalMethodInfo
ResolveToggleActionMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveToggleActionMethod t ToggleAction, MethodInfo info ToggleAction p) => IsLabelProxy t (ToggleAction -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveToggleActionMethod t ToggleAction, MethodInfo info ToggleAction p) => IsLabel t (ToggleAction -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- signal ToggleAction::toggled
type ToggleActionToggledCallback =
IO ()
noToggleActionToggledCallback :: Maybe ToggleActionToggledCallback
noToggleActionToggledCallback = Nothing
type ToggleActionToggledCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkToggleActionToggledCallback :: ToggleActionToggledCallbackC -> IO (FunPtr ToggleActionToggledCallbackC)
toggleActionToggledClosure :: ToggleActionToggledCallback -> IO Closure
toggleActionToggledClosure cb = newCClosure =<< mkToggleActionToggledCallback wrapped
where wrapped = toggleActionToggledCallbackWrapper cb
toggleActionToggledCallbackWrapper ::
ToggleActionToggledCallback ->
Ptr () ->
Ptr () ->
IO ()
toggleActionToggledCallbackWrapper _cb _ _ = do
_cb
onToggleActionToggled :: (GObject a, MonadIO m) => a -> ToggleActionToggledCallback -> m SignalHandlerId
onToggleActionToggled obj cb = liftIO $ connectToggleActionToggled obj cb SignalConnectBefore
afterToggleActionToggled :: (GObject a, MonadIO m) => a -> ToggleActionToggledCallback -> m SignalHandlerId
afterToggleActionToggled obj cb = connectToggleActionToggled obj cb SignalConnectAfter
connectToggleActionToggled :: (GObject a, MonadIO m) =>
a -> ToggleActionToggledCallback -> SignalConnectMode -> m SignalHandlerId
connectToggleActionToggled obj cb after = liftIO $ do
cb' <- mkToggleActionToggledCallback (toggleActionToggledCallbackWrapper cb)
connectSignalFunPtr obj "toggled" cb' after
-- VVV Prop "active"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getToggleActionActive :: (MonadIO m, ToggleActionK o) => o -> m Bool
getToggleActionActive obj = liftIO $ getObjectPropertyBool obj "active"
setToggleActionActive :: (MonadIO m, ToggleActionK o) => o -> Bool -> m ()
setToggleActionActive obj val = liftIO $ setObjectPropertyBool obj "active" val
constructToggleActionActive :: Bool -> IO ([Char], GValue)
constructToggleActionActive val = constructObjectPropertyBool "active" val
data ToggleActionActivePropertyInfo
instance AttrInfo ToggleActionActivePropertyInfo where
type AttrAllowedOps ToggleActionActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ToggleActionActivePropertyInfo = (~) Bool
type AttrBaseTypeConstraint ToggleActionActivePropertyInfo = ToggleActionK
type AttrGetType ToggleActionActivePropertyInfo = Bool
type AttrLabel ToggleActionActivePropertyInfo = "active"
attrGet _ = getToggleActionActive
attrSet _ = setToggleActionActive
attrConstruct _ = constructToggleActionActive
-- VVV Prop "draw-as-radio"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getToggleActionDrawAsRadio :: (MonadIO m, ToggleActionK o) => o -> m Bool
getToggleActionDrawAsRadio obj = liftIO $ getObjectPropertyBool obj "draw-as-radio"
setToggleActionDrawAsRadio :: (MonadIO m, ToggleActionK o) => o -> Bool -> m ()
setToggleActionDrawAsRadio obj val = liftIO $ setObjectPropertyBool obj "draw-as-radio" val
constructToggleActionDrawAsRadio :: Bool -> IO ([Char], GValue)
constructToggleActionDrawAsRadio val = constructObjectPropertyBool "draw-as-radio" val
data ToggleActionDrawAsRadioPropertyInfo
instance AttrInfo ToggleActionDrawAsRadioPropertyInfo where
type AttrAllowedOps ToggleActionDrawAsRadioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ToggleActionDrawAsRadioPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ToggleActionDrawAsRadioPropertyInfo = ToggleActionK
type AttrGetType ToggleActionDrawAsRadioPropertyInfo = Bool
type AttrLabel ToggleActionDrawAsRadioPropertyInfo = "draw-as-radio"
attrGet _ = getToggleActionDrawAsRadio
attrSet _ = setToggleActionDrawAsRadio
attrConstruct _ = constructToggleActionDrawAsRadio
type instance AttributeList ToggleAction = ToggleActionAttributeList
type ToggleActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("active", ToggleActionActivePropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("drawAsRadio", ToggleActionDrawAsRadioPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)])
data ToggleActionToggledSignalInfo
instance SignalInfo ToggleActionToggledSignalInfo where
type HaskellCallbackType ToggleActionToggledSignalInfo = ToggleActionToggledCallback
connectSignal _ = connectToggleActionToggled
type instance SignalList ToggleAction = ToggleActionSignalList
type ToggleActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("toggled", ToggleActionToggledSignalInfo)] :: [(Symbol, *)])
-- method ToggleAction::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}]
-- Lengths : []
-- returnType : TInterface "Gtk" "ToggleAction"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_action_new" gtk_toggle_action_new ::
CString -> -- name : TBasicType TUTF8
CString -> -- label : TBasicType TUTF8
CString -> -- tooltip : TBasicType TUTF8
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr ToggleAction)
{-# DEPRECATED toggleActionNew ["(Since version 3.10)"]#-}
toggleActionNew ::
(MonadIO m) =>
T.Text -- name
-> Maybe (T.Text) -- label
-> Maybe (T.Text) -- tooltip
-> Maybe (T.Text) -- stockId
-> m ToggleAction -- result
toggleActionNew name label tooltip stockId = 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_toggle_action_new name' maybeLabel maybeTooltip maybeStockId
checkUnexpectedReturnNULL "gtk_toggle_action_new" result
result' <- (wrapObject ToggleAction) result
freeMem name'
freeMem maybeLabel
freeMem maybeTooltip
freeMem maybeStockId
return result'
-- method ToggleAction::get_active
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_action_get_active" gtk_toggle_action_get_active ::
Ptr ToggleAction -> -- _obj : TInterface "Gtk" "ToggleAction"
IO CInt
{-# DEPRECATED toggleActionGetActive ["(Since version 3.10)"]#-}
toggleActionGetActive ::
(MonadIO m, ToggleActionK a) =>
a -- _obj
-> m Bool -- result
toggleActionGetActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toggle_action_get_active _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data ToggleActionGetActiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, ToggleActionK a) => MethodInfo ToggleActionGetActiveMethodInfo a signature where
overloadedMethod _ = toggleActionGetActive
-- method ToggleAction::get_draw_as_radio
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_toggle_action_get_draw_as_radio" gtk_toggle_action_get_draw_as_radio ::
Ptr ToggleAction -> -- _obj : TInterface "Gtk" "ToggleAction"
IO CInt
{-# DEPRECATED toggleActionGetDrawAsRadio ["(Since version 3.10)"]#-}
toggleActionGetDrawAsRadio ::
(MonadIO m, ToggleActionK a) =>
a -- _obj
-> m Bool -- result
toggleActionGetDrawAsRadio _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_toggle_action_get_draw_as_radio _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data ToggleActionGetDrawAsRadioMethodInfo
instance (signature ~ (m Bool), MonadIO m, ToggleActionK a) => MethodInfo ToggleActionGetDrawAsRadioMethodInfo a signature where
overloadedMethod _ = toggleActionGetDrawAsRadio
-- method ToggleAction::set_active
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", argType = TBasicType TBoolean, 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_toggle_action_set_active" gtk_toggle_action_set_active ::
Ptr ToggleAction -> -- _obj : TInterface "Gtk" "ToggleAction"
CInt -> -- is_active : TBasicType TBoolean
IO ()
{-# DEPRECATED toggleActionSetActive ["(Since version 3.10)"]#-}
toggleActionSetActive ::
(MonadIO m, ToggleActionK a) =>
a -- _obj
-> Bool -- isActive
-> m () -- result
toggleActionSetActive _obj isActive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let isActive' = (fromIntegral . fromEnum) isActive
gtk_toggle_action_set_active _obj' isActive'
touchManagedPtr _obj
return ()
data ToggleActionSetActiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, ToggleActionK a) => MethodInfo ToggleActionSetActiveMethodInfo a signature where
overloadedMethod _ = toggleActionSetActive
-- method ToggleAction::set_draw_as_radio
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_as_radio", argType = TBasicType TBoolean, 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_toggle_action_set_draw_as_radio" gtk_toggle_action_set_draw_as_radio ::
Ptr ToggleAction -> -- _obj : TInterface "Gtk" "ToggleAction"
CInt -> -- draw_as_radio : TBasicType TBoolean
IO ()
{-# DEPRECATED toggleActionSetDrawAsRadio ["(Since version 3.10)"]#-}
toggleActionSetDrawAsRadio ::
(MonadIO m, ToggleActionK a) =>
a -- _obj
-> Bool -- drawAsRadio
-> m () -- result
toggleActionSetDrawAsRadio _obj drawAsRadio = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let drawAsRadio' = (fromIntegral . fromEnum) drawAsRadio
gtk_toggle_action_set_draw_as_radio _obj' drawAsRadio'
touchManagedPtr _obj
return ()
data ToggleActionSetDrawAsRadioMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, ToggleActionK a) => MethodInfo ToggleActionSetDrawAsRadioMethodInfo a signature where
overloadedMethod _ = toggleActionSetDrawAsRadio
-- method ToggleAction::toggled
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", 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_toggle_action_toggled" gtk_toggle_action_toggled ::
Ptr ToggleAction -> -- _obj : TInterface "Gtk" "ToggleAction"
IO ()
{-# DEPRECATED toggleActionToggled ["(Since version 3.10)"]#-}
toggleActionToggled ::
(MonadIO m, ToggleActionK a) =>
a -- _obj
-> m () -- result
toggleActionToggled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_toggle_action_toggled _obj'
touchManagedPtr _obj
return ()
data ToggleActionToggledMethodInfo
instance (signature ~ (m ()), MonadIO m, ToggleActionK a) => MethodInfo ToggleActionToggledMethodInfo a signature where
overloadedMethod _ = toggleActionToggled