RecentAction.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.RecentAction
    ( 

-- * Exported types
    RecentAction(..)                        ,
    RecentActionK                           ,
    toRecentAction                          ,
    noRecentAction                          ,


 -- * Methods
-- ** recentActionGetShowNumbers
    RecentActionGetShowNumbersMethodInfo    ,
    recentActionGetShowNumbers              ,


-- ** recentActionNew
    recentActionNew                         ,


-- ** recentActionNewForManager
    recentActionNewForManager               ,


-- ** recentActionSetShowNumbers
    RecentActionSetShowNumbersMethodInfo    ,
    recentActionSetShowNumbers              ,




 -- * Properties
-- ** ShowNumbers
    RecentActionShowNumbersPropertyInfo     ,
    constructRecentActionShowNumbers        ,
    getRecentActionShowNumbers              ,
    setRecentActionShowNumbers              ,




    ) 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 RecentAction = RecentAction (ForeignPtr RecentAction)
foreign import ccall "gtk_recent_action_get_type"
    c_gtk_recent_action_get_type :: IO GType

type instance ParentTypes RecentAction = RecentActionParentTypes
type RecentActionParentTypes = '[Action, GObject.Object, Buildable, RecentChooser]

instance GObject RecentAction where
    gobjectIsInitiallyUnowned _ = False
    gobjectType _ = c_gtk_recent_action_get_type
    

class GObject o => RecentActionK o
instance (GObject o, IsDescendantOf RecentAction o) => RecentActionK o

toRecentAction :: RecentActionK o => o -> IO RecentAction
toRecentAction = unsafeCastTo RecentAction

noRecentAction :: Maybe RecentAction
noRecentAction = Nothing

type family ResolveRecentActionMethod (t :: Symbol) (o :: *) :: * where
    ResolveRecentActionMethod "activate" o = ActionActivateMethodInfo
    ResolveRecentActionMethod "addChild" o = BuildableAddChildMethodInfo
    ResolveRecentActionMethod "addFilter" o = RecentChooserAddFilterMethodInfo
    ResolveRecentActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
    ResolveRecentActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
    ResolveRecentActionMethod "blockActivate" o = ActionBlockActivateMethodInfo
    ResolveRecentActionMethod "connectAccelerator" o = ActionConnectAcceleratorMethodInfo
    ResolveRecentActionMethod "constructChild" o = BuildableConstructChildMethodInfo
    ResolveRecentActionMethod "createIcon" o = ActionCreateIconMethodInfo
    ResolveRecentActionMethod "createMenu" o = ActionCreateMenuMethodInfo
    ResolveRecentActionMethod "createMenuItem" o = ActionCreateMenuItemMethodInfo
    ResolveRecentActionMethod "createToolItem" o = ActionCreateToolItemMethodInfo
    ResolveRecentActionMethod "customFinished" o = BuildableCustomFinishedMethodInfo
    ResolveRecentActionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo
    ResolveRecentActionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo
    ResolveRecentActionMethod "disconnectAccelerator" o = ActionDisconnectAcceleratorMethodInfo
    ResolveRecentActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
    ResolveRecentActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
    ResolveRecentActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
    ResolveRecentActionMethod "isSensitive" o = ActionIsSensitiveMethodInfo
    ResolveRecentActionMethod "isVisible" o = ActionIsVisibleMethodInfo
    ResolveRecentActionMethod "listFilters" o = RecentChooserListFiltersMethodInfo
    ResolveRecentActionMethod "notify" o = GObject.ObjectNotifyMethodInfo
    ResolveRecentActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
    ResolveRecentActionMethod "parserFinished" o = BuildableParserFinishedMethodInfo
    ResolveRecentActionMethod "ref" o = GObject.ObjectRefMethodInfo
    ResolveRecentActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
    ResolveRecentActionMethod "removeFilter" o = RecentChooserRemoveFilterMethodInfo
    ResolveRecentActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
    ResolveRecentActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
    ResolveRecentActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
    ResolveRecentActionMethod "selectAll" o = RecentChooserSelectAllMethodInfo
    ResolveRecentActionMethod "selectUri" o = RecentChooserSelectUriMethodInfo
    ResolveRecentActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo
    ResolveRecentActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
    ResolveRecentActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
    ResolveRecentActionMethod "unblockActivate" o = ActionUnblockActivateMethodInfo
    ResolveRecentActionMethod "unref" o = GObject.ObjectUnrefMethodInfo
    ResolveRecentActionMethod "unselectAll" o = RecentChooserUnselectAllMethodInfo
    ResolveRecentActionMethod "unselectUri" o = RecentChooserUnselectUriMethodInfo
    ResolveRecentActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
    ResolveRecentActionMethod "getAccelClosure" o = ActionGetAccelClosureMethodInfo
    ResolveRecentActionMethod "getAccelPath" o = ActionGetAccelPathMethodInfo
    ResolveRecentActionMethod "getAlwaysShowImage" o = ActionGetAlwaysShowImageMethodInfo
    ResolveRecentActionMethod "getCurrentItem" o = RecentChooserGetCurrentItemMethodInfo
    ResolveRecentActionMethod "getCurrentUri" o = RecentChooserGetCurrentUriMethodInfo
    ResolveRecentActionMethod "getData" o = GObject.ObjectGetDataMethodInfo
    ResolveRecentActionMethod "getFilter" o = RecentChooserGetFilterMethodInfo
    ResolveRecentActionMethod "getGicon" o = ActionGetGiconMethodInfo
    ResolveRecentActionMethod "getIconName" o = ActionGetIconNameMethodInfo
    ResolveRecentActionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo
    ResolveRecentActionMethod "getIsImportant" o = ActionGetIsImportantMethodInfo
    ResolveRecentActionMethod "getItems" o = RecentChooserGetItemsMethodInfo
    ResolveRecentActionMethod "getLabel" o = ActionGetLabelMethodInfo
    ResolveRecentActionMethod "getLimit" o = RecentChooserGetLimitMethodInfo
    ResolveRecentActionMethod "getLocalOnly" o = RecentChooserGetLocalOnlyMethodInfo
    ResolveRecentActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
    ResolveRecentActionMethod "getProxies" o = ActionGetProxiesMethodInfo
    ResolveRecentActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
    ResolveRecentActionMethod "getSelectMultiple" o = RecentChooserGetSelectMultipleMethodInfo
    ResolveRecentActionMethod "getSensitive" o = ActionGetSensitiveMethodInfo
    ResolveRecentActionMethod "getShortLabel" o = ActionGetShortLabelMethodInfo
    ResolveRecentActionMethod "getShowIcons" o = RecentChooserGetShowIconsMethodInfo
    ResolveRecentActionMethod "getShowNotFound" o = RecentChooserGetShowNotFoundMethodInfo
    ResolveRecentActionMethod "getShowNumbers" o = RecentActionGetShowNumbersMethodInfo
    ResolveRecentActionMethod "getShowPrivate" o = RecentChooserGetShowPrivateMethodInfo
    ResolveRecentActionMethod "getShowTips" o = RecentChooserGetShowTipsMethodInfo
    ResolveRecentActionMethod "getSortType" o = RecentChooserGetSortTypeMethodInfo
    ResolveRecentActionMethod "getStockId" o = ActionGetStockIdMethodInfo
    ResolveRecentActionMethod "getTooltip" o = ActionGetTooltipMethodInfo
    ResolveRecentActionMethod "getUris" o = RecentChooserGetUrisMethodInfo
    ResolveRecentActionMethod "getVisible" o = ActionGetVisibleMethodInfo
    ResolveRecentActionMethod "getVisibleHorizontal" o = ActionGetVisibleHorizontalMethodInfo
    ResolveRecentActionMethod "getVisibleVertical" o = ActionGetVisibleVerticalMethodInfo
    ResolveRecentActionMethod "setAccelGroup" o = ActionSetAccelGroupMethodInfo
    ResolveRecentActionMethod "setAccelPath" o = ActionSetAccelPathMethodInfo
    ResolveRecentActionMethod "setAlwaysShowImage" o = ActionSetAlwaysShowImageMethodInfo
    ResolveRecentActionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo
    ResolveRecentActionMethod "setCurrentUri" o = RecentChooserSetCurrentUriMethodInfo
    ResolveRecentActionMethod "setData" o = GObject.ObjectSetDataMethodInfo
    ResolveRecentActionMethod "setFilter" o = RecentChooserSetFilterMethodInfo
    ResolveRecentActionMethod "setGicon" o = ActionSetGiconMethodInfo
    ResolveRecentActionMethod "setIconName" o = ActionSetIconNameMethodInfo
    ResolveRecentActionMethod "setIsImportant" o = ActionSetIsImportantMethodInfo
    ResolveRecentActionMethod "setLabel" o = ActionSetLabelMethodInfo
    ResolveRecentActionMethod "setLimit" o = RecentChooserSetLimitMethodInfo
    ResolveRecentActionMethod "setLocalOnly" o = RecentChooserSetLocalOnlyMethodInfo
    ResolveRecentActionMethod "setName" o = BuildableSetNameMethodInfo
    ResolveRecentActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
    ResolveRecentActionMethod "setSelectMultiple" o = RecentChooserSetSelectMultipleMethodInfo
    ResolveRecentActionMethod "setSensitive" o = ActionSetSensitiveMethodInfo
    ResolveRecentActionMethod "setShortLabel" o = ActionSetShortLabelMethodInfo
    ResolveRecentActionMethod "setShowIcons" o = RecentChooserSetShowIconsMethodInfo
    ResolveRecentActionMethod "setShowNotFound" o = RecentChooserSetShowNotFoundMethodInfo
    ResolveRecentActionMethod "setShowNumbers" o = RecentActionSetShowNumbersMethodInfo
    ResolveRecentActionMethod "setShowPrivate" o = RecentChooserSetShowPrivateMethodInfo
    ResolveRecentActionMethod "setShowTips" o = RecentChooserSetShowTipsMethodInfo
    ResolveRecentActionMethod "setSortFunc" o = RecentChooserSetSortFuncMethodInfo
    ResolveRecentActionMethod "setSortType" o = RecentChooserSetSortTypeMethodInfo
    ResolveRecentActionMethod "setStockId" o = ActionSetStockIdMethodInfo
    ResolveRecentActionMethod "setTooltip" o = ActionSetTooltipMethodInfo
    ResolveRecentActionMethod "setVisible" o = ActionSetVisibleMethodInfo
    ResolveRecentActionMethod "setVisibleHorizontal" o = ActionSetVisibleHorizontalMethodInfo
    ResolveRecentActionMethod "setVisibleVertical" o = ActionSetVisibleVerticalMethodInfo
    ResolveRecentActionMethod l o = MethodResolutionFailed l o

instance (info ~ ResolveRecentActionMethod t RecentAction, MethodInfo info RecentAction p) => IsLabelProxy t (RecentAction -> p) where
    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)

#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveRecentActionMethod t RecentAction, MethodInfo info RecentAction p) => IsLabel t (RecentAction -> p) where
    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif

-- VVV Prop "show-numbers"
   -- Type: TBasicType TBoolean
   -- Flags: [PropertyReadable,PropertyWritable]

getRecentActionShowNumbers :: (MonadIO m, RecentActionK o) => o -> m Bool
getRecentActionShowNumbers obj = liftIO $ getObjectPropertyBool obj "show-numbers"

setRecentActionShowNumbers :: (MonadIO m, RecentActionK o) => o -> Bool -> m ()
setRecentActionShowNumbers obj val = liftIO $ setObjectPropertyBool obj "show-numbers" val

constructRecentActionShowNumbers :: Bool -> IO ([Char], GValue)
constructRecentActionShowNumbers val = constructObjectPropertyBool "show-numbers" val

data RecentActionShowNumbersPropertyInfo
instance AttrInfo RecentActionShowNumbersPropertyInfo where
    type AttrAllowedOps RecentActionShowNumbersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrSetTypeConstraint RecentActionShowNumbersPropertyInfo = (~) Bool
    type AttrBaseTypeConstraint RecentActionShowNumbersPropertyInfo = RecentActionK
    type AttrGetType RecentActionShowNumbersPropertyInfo = Bool
    type AttrLabel RecentActionShowNumbersPropertyInfo = "show-numbers"
    attrGet _ = getRecentActionShowNumbers
    attrSet _ = setRecentActionShowNumbers
    attrConstruct _ = constructRecentActionShowNumbers

type instance AttributeList RecentAction = RecentActionAttributeList
type RecentActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("name", ActionNamePropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showNumbers", RecentActionShowNumbersPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)])

type instance SignalList RecentAction = RecentActionSignalList
type RecentActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("itemActivated", RecentChooserItemActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("selectionChanged", RecentChooserSelectionChangedSignalInfo)] :: [(Symbol, *)])

-- method RecentAction::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" "RecentAction"
-- throws : False
-- Skip return : False

foreign import ccall "gtk_recent_action_new" gtk_recent_action_new :: 
    CString ->                              -- name : TBasicType TUTF8
    CString ->                              -- label : TBasicType TUTF8
    CString ->                              -- tooltip : TBasicType TUTF8
    CString ->                              -- stock_id : TBasicType TUTF8
    IO (Ptr RecentAction)

{-# DEPRECATED recentActionNew ["(Since version 3.10)"]#-}
recentActionNew ::
    (MonadIO m) =>
    T.Text                                  -- name
    -> Maybe (T.Text)                       -- label
    -> Maybe (T.Text)                       -- tooltip
    -> Maybe (T.Text)                       -- stockId
    -> m RecentAction                       -- result
recentActionNew 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_recent_action_new name' maybeLabel maybeTooltip maybeStockId
    checkUnexpectedReturnNULL "gtk_recent_action_new" result
    result' <- (wrapObject RecentAction) result
    freeMem name'
    freeMem maybeLabel
    freeMem maybeTooltip
    freeMem maybeStockId
    return result'

-- method RecentAction::new_for_manager
-- 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 = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "RecentAction"
-- throws : False
-- Skip return : False

foreign import ccall "gtk_recent_action_new_for_manager" gtk_recent_action_new_for_manager :: 
    CString ->                              -- name : TBasicType TUTF8
    CString ->                              -- label : TBasicType TUTF8
    CString ->                              -- tooltip : TBasicType TUTF8
    CString ->                              -- stock_id : TBasicType TUTF8
    Ptr RecentManager ->                    -- manager : TInterface "Gtk" "RecentManager"
    IO (Ptr RecentAction)

{-# DEPRECATED recentActionNewForManager ["(Since version 3.10)"]#-}
recentActionNewForManager ::
    (MonadIO m, RecentManagerK a) =>
    T.Text                                  -- name
    -> Maybe (T.Text)                       -- label
    -> Maybe (T.Text)                       -- tooltip
    -> Maybe (T.Text)                       -- stockId
    -> Maybe (a)                            -- manager
    -> m RecentAction                       -- result
recentActionNewForManager name label tooltip stockId manager = 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'
    maybeManager <- case manager of
        Nothing -> return nullPtr
        Just jManager -> do
            let jManager' = unsafeManagedPtrCastPtr jManager
            return jManager'
    result <- gtk_recent_action_new_for_manager name' maybeLabel maybeTooltip maybeStockId maybeManager
    checkUnexpectedReturnNULL "gtk_recent_action_new_for_manager" result
    result' <- (wrapObject RecentAction) result
    whenJust manager touchManagedPtr
    freeMem name'
    freeMem maybeLabel
    freeMem maybeTooltip
    freeMem maybeStockId
    return result'

-- method RecentAction::get_show_numbers
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentAction", 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_recent_action_get_show_numbers" gtk_recent_action_get_show_numbers :: 
    Ptr RecentAction ->                     -- _obj : TInterface "Gtk" "RecentAction"
    IO CInt

{-# DEPRECATED recentActionGetShowNumbers ["(Since version 3.10)"]#-}
recentActionGetShowNumbers ::
    (MonadIO m, RecentActionK a) =>
    a                                       -- _obj
    -> m Bool                               -- result
recentActionGetShowNumbers _obj = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    result <- gtk_recent_action_get_show_numbers _obj'
    let result' = (/= 0) result
    touchManagedPtr _obj
    return result'

data RecentActionGetShowNumbersMethodInfo
instance (signature ~ (m Bool), MonadIO m, RecentActionK a) => MethodInfo RecentActionGetShowNumbersMethodInfo a signature where
    overloadedMethod _ = recentActionGetShowNumbers

-- method RecentAction::set_show_numbers
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_numbers", 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_recent_action_set_show_numbers" gtk_recent_action_set_show_numbers :: 
    Ptr RecentAction ->                     -- _obj : TInterface "Gtk" "RecentAction"
    CInt ->                                 -- show_numbers : TBasicType TBoolean
    IO ()

{-# DEPRECATED recentActionSetShowNumbers ["(Since version 3.10)"]#-}
recentActionSetShowNumbers ::
    (MonadIO m, RecentActionK a) =>
    a                                       -- _obj
    -> Bool                                 -- showNumbers
    -> m ()                                 -- result
recentActionSetShowNumbers _obj showNumbers = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    let showNumbers' = (fromIntegral . fromEnum) showNumbers
    gtk_recent_action_set_show_numbers _obj' showNumbers'
    touchManagedPtr _obj
    return ()

data RecentActionSetShowNumbersMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, RecentActionK a) => MethodInfo RecentActionSetShowNumbersMethodInfo a signature where
    overloadedMethod _ = recentActionSetShowNumbers