gi-gtk-0.3.18.13: GI/Gtk/Objects/Action.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.Action
(
-- * Exported types
Action(..) ,
ActionK ,
toAction ,
noAction ,
-- * Methods
-- ** actionActivate
ActionActivateMethodInfo ,
actionActivate ,
-- ** actionBlockActivate
ActionBlockActivateMethodInfo ,
actionBlockActivate ,
-- ** actionConnectAccelerator
ActionConnectAcceleratorMethodInfo ,
actionConnectAccelerator ,
-- ** actionCreateIcon
ActionCreateIconMethodInfo ,
actionCreateIcon ,
-- ** actionCreateMenu
ActionCreateMenuMethodInfo ,
actionCreateMenu ,
-- ** actionCreateMenuItem
ActionCreateMenuItemMethodInfo ,
actionCreateMenuItem ,
-- ** actionCreateToolItem
ActionCreateToolItemMethodInfo ,
actionCreateToolItem ,
-- ** actionDisconnectAccelerator
ActionDisconnectAcceleratorMethodInfo ,
actionDisconnectAccelerator ,
-- ** actionGetAccelClosure
ActionGetAccelClosureMethodInfo ,
actionGetAccelClosure ,
-- ** actionGetAccelPath
ActionGetAccelPathMethodInfo ,
actionGetAccelPath ,
-- ** actionGetAlwaysShowImage
ActionGetAlwaysShowImageMethodInfo ,
actionGetAlwaysShowImage ,
-- ** actionGetGicon
ActionGetGiconMethodInfo ,
actionGetGicon ,
-- ** actionGetIconName
ActionGetIconNameMethodInfo ,
actionGetIconName ,
-- ** actionGetIsImportant
ActionGetIsImportantMethodInfo ,
actionGetIsImportant ,
-- ** actionGetLabel
ActionGetLabelMethodInfo ,
actionGetLabel ,
-- ** actionGetName
ActionGetNameMethodInfo ,
actionGetName ,
-- ** actionGetProxies
ActionGetProxiesMethodInfo ,
actionGetProxies ,
-- ** actionGetSensitive
ActionGetSensitiveMethodInfo ,
actionGetSensitive ,
-- ** actionGetShortLabel
ActionGetShortLabelMethodInfo ,
actionGetShortLabel ,
-- ** actionGetStockId
ActionGetStockIdMethodInfo ,
actionGetStockId ,
-- ** actionGetTooltip
ActionGetTooltipMethodInfo ,
actionGetTooltip ,
-- ** actionGetVisible
ActionGetVisibleMethodInfo ,
actionGetVisible ,
-- ** actionGetVisibleHorizontal
ActionGetVisibleHorizontalMethodInfo ,
actionGetVisibleHorizontal ,
-- ** actionGetVisibleVertical
ActionGetVisibleVerticalMethodInfo ,
actionGetVisibleVertical ,
-- ** actionIsSensitive
ActionIsSensitiveMethodInfo ,
actionIsSensitive ,
-- ** actionIsVisible
ActionIsVisibleMethodInfo ,
actionIsVisible ,
-- ** actionNew
actionNew ,
-- ** actionSetAccelGroup
ActionSetAccelGroupMethodInfo ,
actionSetAccelGroup ,
-- ** actionSetAccelPath
ActionSetAccelPathMethodInfo ,
actionSetAccelPath ,
-- ** actionSetAlwaysShowImage
ActionSetAlwaysShowImageMethodInfo ,
actionSetAlwaysShowImage ,
-- ** actionSetGicon
ActionSetGiconMethodInfo ,
actionSetGicon ,
-- ** actionSetIconName
ActionSetIconNameMethodInfo ,
actionSetIconName ,
-- ** actionSetIsImportant
ActionSetIsImportantMethodInfo ,
actionSetIsImportant ,
-- ** actionSetLabel
ActionSetLabelMethodInfo ,
actionSetLabel ,
-- ** actionSetSensitive
ActionSetSensitiveMethodInfo ,
actionSetSensitive ,
-- ** actionSetShortLabel
ActionSetShortLabelMethodInfo ,
actionSetShortLabel ,
-- ** actionSetStockId
ActionSetStockIdMethodInfo ,
actionSetStockId ,
-- ** actionSetTooltip
ActionSetTooltipMethodInfo ,
actionSetTooltip ,
-- ** actionSetVisible
ActionSetVisibleMethodInfo ,
actionSetVisible ,
-- ** actionSetVisibleHorizontal
ActionSetVisibleHorizontalMethodInfo ,
actionSetVisibleHorizontal ,
-- ** actionSetVisibleVertical
ActionSetVisibleVerticalMethodInfo ,
actionSetVisibleVertical ,
-- ** actionUnblockActivate
ActionUnblockActivateMethodInfo ,
actionUnblockActivate ,
-- * Properties
-- ** ActionGroup
ActionActionGroupPropertyInfo ,
constructActionActionGroup ,
getActionActionGroup ,
setActionActionGroup ,
-- ** AlwaysShowImage
ActionAlwaysShowImagePropertyInfo ,
constructActionAlwaysShowImage ,
getActionAlwaysShowImage ,
setActionAlwaysShowImage ,
-- ** Gicon
ActionGiconPropertyInfo ,
constructActionGicon ,
getActionGicon ,
setActionGicon ,
-- ** HideIfEmpty
ActionHideIfEmptyPropertyInfo ,
constructActionHideIfEmpty ,
getActionHideIfEmpty ,
setActionHideIfEmpty ,
-- ** IconName
ActionIconNamePropertyInfo ,
constructActionIconName ,
getActionIconName ,
setActionIconName ,
-- ** IsImportant
ActionIsImportantPropertyInfo ,
constructActionIsImportant ,
getActionIsImportant ,
setActionIsImportant ,
-- ** Label
ActionLabelPropertyInfo ,
constructActionLabel ,
getActionLabel ,
setActionLabel ,
-- ** Name
ActionNamePropertyInfo ,
constructActionName ,
getActionName ,
-- ** Sensitive
ActionSensitivePropertyInfo ,
constructActionSensitive ,
getActionSensitive ,
setActionSensitive ,
-- ** ShortLabel
ActionShortLabelPropertyInfo ,
constructActionShortLabel ,
getActionShortLabel ,
setActionShortLabel ,
-- ** StockId
ActionStockIdPropertyInfo ,
constructActionStockId ,
getActionStockId ,
setActionStockId ,
-- ** Tooltip
ActionTooltipPropertyInfo ,
constructActionTooltip ,
getActionTooltip ,
setActionTooltip ,
-- ** Visible
ActionVisiblePropertyInfo ,
constructActionVisible ,
getActionVisible ,
setActionVisible ,
-- ** VisibleHorizontal
ActionVisibleHorizontalPropertyInfo ,
constructActionVisibleHorizontal ,
getActionVisibleHorizontal ,
setActionVisibleHorizontal ,
-- ** VisibleOverflown
ActionVisibleOverflownPropertyInfo ,
constructActionVisibleOverflown ,
getActionVisibleOverflown ,
setActionVisibleOverflown ,
-- ** VisibleVertical
ActionVisibleVerticalPropertyInfo ,
constructActionVisibleVertical ,
getActionVisibleVertical ,
setActionVisibleVertical ,
-- * Signals
-- ** Activate
ActionActivateCallback ,
ActionActivateCallbackC ,
ActionActivateSignalInfo ,
actionActivateCallbackWrapper ,
actionActivateClosure ,
afterActionActivate ,
mkActionActivateCallback ,
noActionActivateCallback ,
onActionActivate ,
) 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
import qualified GI.Gio as Gio
newtype Action = Action (ForeignPtr Action)
foreign import ccall "gtk_action_get_type"
c_gtk_action_get_type :: IO GType
type instance ParentTypes Action = ActionParentTypes
type ActionParentTypes = '[GObject.Object, Buildable]
instance GObject Action where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_action_get_type
class GObject o => ActionK o
instance (GObject o, IsDescendantOf Action o) => ActionK o
toAction :: ActionK o => o -> IO Action
toAction = unsafeCastTo Action
noAction :: Maybe Action
noAction = Nothing
type family ResolveActionMethod (t :: Symbol) (o :: *) :: * where
ResolveActionMethod "activate" o = ActionActivateMethodInfo
ResolveActionMethod "addChild" o = BuildableAddChildMethodInfo
ResolveActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveActionMethod "blockActivate" o = ActionBlockActivateMethodInfo
ResolveActionMethod "connectAccelerator" o = ActionConnectAcceleratorMethodInfo
ResolveActionMethod "constructChild" o = BuildableConstructChildMethodInfo
ResolveActionMethod "createIcon" o = ActionCreateIconMethodInfo
ResolveActionMethod "createMenu" o = ActionCreateMenuMethodInfo
ResolveActionMethod "createMenuItem" o = ActionCreateMenuItemMethodInfo
ResolveActionMethod "createToolItem" o = ActionCreateToolItemMethodInfo
ResolveActionMethod "customFinished" o = BuildableCustomFinishedMethodInfo
ResolveActionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo
ResolveActionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo
ResolveActionMethod "disconnectAccelerator" o = ActionDisconnectAcceleratorMethodInfo
ResolveActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveActionMethod "isSensitive" o = ActionIsSensitiveMethodInfo
ResolveActionMethod "isVisible" o = ActionIsVisibleMethodInfo
ResolveActionMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveActionMethod "parserFinished" o = BuildableParserFinishedMethodInfo
ResolveActionMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveActionMethod "unblockActivate" o = ActionUnblockActivateMethodInfo
ResolveActionMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveActionMethod "getAccelClosure" o = ActionGetAccelClosureMethodInfo
ResolveActionMethod "getAccelPath" o = ActionGetAccelPathMethodInfo
ResolveActionMethod "getAlwaysShowImage" o = ActionGetAlwaysShowImageMethodInfo
ResolveActionMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveActionMethod "getGicon" o = ActionGetGiconMethodInfo
ResolveActionMethod "getIconName" o = ActionGetIconNameMethodInfo
ResolveActionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo
ResolveActionMethod "getIsImportant" o = ActionGetIsImportantMethodInfo
ResolveActionMethod "getLabel" o = ActionGetLabelMethodInfo
ResolveActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveActionMethod "getProxies" o = ActionGetProxiesMethodInfo
ResolveActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveActionMethod "getSensitive" o = ActionGetSensitiveMethodInfo
ResolveActionMethod "getShortLabel" o = ActionGetShortLabelMethodInfo
ResolveActionMethod "getStockId" o = ActionGetStockIdMethodInfo
ResolveActionMethod "getTooltip" o = ActionGetTooltipMethodInfo
ResolveActionMethod "getVisible" o = ActionGetVisibleMethodInfo
ResolveActionMethod "getVisibleHorizontal" o = ActionGetVisibleHorizontalMethodInfo
ResolveActionMethod "getVisibleVertical" o = ActionGetVisibleVerticalMethodInfo
ResolveActionMethod "setAccelGroup" o = ActionSetAccelGroupMethodInfo
ResolveActionMethod "setAccelPath" o = ActionSetAccelPathMethodInfo
ResolveActionMethod "setAlwaysShowImage" o = ActionSetAlwaysShowImageMethodInfo
ResolveActionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo
ResolveActionMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveActionMethod "setGicon" o = ActionSetGiconMethodInfo
ResolveActionMethod "setIconName" o = ActionSetIconNameMethodInfo
ResolveActionMethod "setIsImportant" o = ActionSetIsImportantMethodInfo
ResolveActionMethod "setLabel" o = ActionSetLabelMethodInfo
ResolveActionMethod "setName" o = BuildableSetNameMethodInfo
ResolveActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveActionMethod "setSensitive" o = ActionSetSensitiveMethodInfo
ResolveActionMethod "setShortLabel" o = ActionSetShortLabelMethodInfo
ResolveActionMethod "setStockId" o = ActionSetStockIdMethodInfo
ResolveActionMethod "setTooltip" o = ActionSetTooltipMethodInfo
ResolveActionMethod "setVisible" o = ActionSetVisibleMethodInfo
ResolveActionMethod "setVisibleHorizontal" o = ActionSetVisibleHorizontalMethodInfo
ResolveActionMethod "setVisibleVertical" o = ActionSetVisibleVerticalMethodInfo
ResolveActionMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveActionMethod t Action, MethodInfo info Action p) => IsLabelProxy t (Action -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveActionMethod t Action, MethodInfo info Action p) => IsLabel t (Action -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- signal Action::activate
type ActionActivateCallback =
IO ()
noActionActivateCallback :: Maybe ActionActivateCallback
noActionActivateCallback = Nothing
type ActionActivateCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkActionActivateCallback :: ActionActivateCallbackC -> IO (FunPtr ActionActivateCallbackC)
actionActivateClosure :: ActionActivateCallback -> IO Closure
actionActivateClosure cb = newCClosure =<< mkActionActivateCallback wrapped
where wrapped = actionActivateCallbackWrapper cb
actionActivateCallbackWrapper ::
ActionActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
actionActivateCallbackWrapper _cb _ _ = do
_cb
onActionActivate :: (GObject a, MonadIO m) => a -> ActionActivateCallback -> m SignalHandlerId
onActionActivate obj cb = liftIO $ connectActionActivate obj cb SignalConnectBefore
afterActionActivate :: (GObject a, MonadIO m) => a -> ActionActivateCallback -> m SignalHandlerId
afterActionActivate obj cb = connectActionActivate obj cb SignalConnectAfter
connectActionActivate :: (GObject a, MonadIO m) =>
a -> ActionActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectActionActivate obj cb after = liftIO $ do
cb' <- mkActionActivateCallback (actionActivateCallbackWrapper cb)
connectSignalFunPtr obj "activate" cb' after
-- VVV Prop "action-group"
-- Type: TInterface "Gtk" "ActionGroup"
-- Flags: [PropertyReadable,PropertyWritable]
getActionActionGroup :: (MonadIO m, ActionK o) => o -> m ActionGroup
getActionActionGroup obj = liftIO $ getObjectPropertyObject obj "action-group" ActionGroup
setActionActionGroup :: (MonadIO m, ActionK o, ActionGroupK a) => o -> a -> m ()
setActionActionGroup obj val = liftIO $ setObjectPropertyObject obj "action-group" val
constructActionActionGroup :: (ActionGroupK a) => a -> IO ([Char], GValue)
constructActionActionGroup val = constructObjectPropertyObject "action-group" val
data ActionActionGroupPropertyInfo
instance AttrInfo ActionActionGroupPropertyInfo where
type AttrAllowedOps ActionActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionActionGroupPropertyInfo = ActionGroupK
type AttrBaseTypeConstraint ActionActionGroupPropertyInfo = ActionK
type AttrGetType ActionActionGroupPropertyInfo = ActionGroup
type AttrLabel ActionActionGroupPropertyInfo = "action-group"
attrGet _ = getActionActionGroup
attrSet _ = setActionActionGroup
attrConstruct _ = constructActionActionGroup
-- VVV Prop "always-show-image"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
getActionAlwaysShowImage :: (MonadIO m, ActionK o) => o -> m Bool
getActionAlwaysShowImage obj = liftIO $ getObjectPropertyBool obj "always-show-image"
setActionAlwaysShowImage :: (MonadIO m, ActionK o) => o -> Bool -> m ()
setActionAlwaysShowImage obj val = liftIO $ setObjectPropertyBool obj "always-show-image" val
constructActionAlwaysShowImage :: Bool -> IO ([Char], GValue)
constructActionAlwaysShowImage val = constructObjectPropertyBool "always-show-image" val
data ActionAlwaysShowImagePropertyInfo
instance AttrInfo ActionAlwaysShowImagePropertyInfo where
type AttrAllowedOps ActionAlwaysShowImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionAlwaysShowImagePropertyInfo = (~) Bool
type AttrBaseTypeConstraint ActionAlwaysShowImagePropertyInfo = ActionK
type AttrGetType ActionAlwaysShowImagePropertyInfo = Bool
type AttrLabel ActionAlwaysShowImagePropertyInfo = "always-show-image"
attrGet _ = getActionAlwaysShowImage
attrSet _ = setActionAlwaysShowImage
attrConstruct _ = constructActionAlwaysShowImage
-- VVV Prop "gicon"
-- Type: TInterface "Gio" "Icon"
-- Flags: [PropertyReadable,PropertyWritable]
getActionGicon :: (MonadIO m, ActionK o) => o -> m Gio.Icon
getActionGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Gio.Icon
setActionGicon :: (MonadIO m, ActionK o, Gio.IconK a) => o -> a -> m ()
setActionGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" val
constructActionGicon :: (Gio.IconK a) => a -> IO ([Char], GValue)
constructActionGicon val = constructObjectPropertyObject "gicon" val
data ActionGiconPropertyInfo
instance AttrInfo ActionGiconPropertyInfo where
type AttrAllowedOps ActionGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionGiconPropertyInfo = Gio.IconK
type AttrBaseTypeConstraint ActionGiconPropertyInfo = ActionK
type AttrGetType ActionGiconPropertyInfo = Gio.Icon
type AttrLabel ActionGiconPropertyInfo = "gicon"
attrGet _ = getActionGicon
attrSet _ = setActionGicon
attrConstruct _ = constructActionGicon
-- VVV Prop "hide-if-empty"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getActionHideIfEmpty :: (MonadIO m, ActionK o) => o -> m Bool
getActionHideIfEmpty obj = liftIO $ getObjectPropertyBool obj "hide-if-empty"
setActionHideIfEmpty :: (MonadIO m, ActionK o) => o -> Bool -> m ()
setActionHideIfEmpty obj val = liftIO $ setObjectPropertyBool obj "hide-if-empty" val
constructActionHideIfEmpty :: Bool -> IO ([Char], GValue)
constructActionHideIfEmpty val = constructObjectPropertyBool "hide-if-empty" val
data ActionHideIfEmptyPropertyInfo
instance AttrInfo ActionHideIfEmptyPropertyInfo where
type AttrAllowedOps ActionHideIfEmptyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionHideIfEmptyPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ActionHideIfEmptyPropertyInfo = ActionK
type AttrGetType ActionHideIfEmptyPropertyInfo = Bool
type AttrLabel ActionHideIfEmptyPropertyInfo = "hide-if-empty"
attrGet _ = getActionHideIfEmpty
attrSet _ = setActionHideIfEmpty
attrConstruct _ = constructActionHideIfEmpty
-- VVV Prop "icon-name"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
getActionIconName :: (MonadIO m, ActionK o) => o -> m T.Text
getActionIconName obj = liftIO $ getObjectPropertyString obj "icon-name"
setActionIconName :: (MonadIO m, ActionK o) => o -> T.Text -> m ()
setActionIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val
constructActionIconName :: T.Text -> IO ([Char], GValue)
constructActionIconName val = constructObjectPropertyString "icon-name" val
data ActionIconNamePropertyInfo
instance AttrInfo ActionIconNamePropertyInfo where
type AttrAllowedOps ActionIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionIconNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ActionIconNamePropertyInfo = ActionK
type AttrGetType ActionIconNamePropertyInfo = T.Text
type AttrLabel ActionIconNamePropertyInfo = "icon-name"
attrGet _ = getActionIconName
attrSet _ = setActionIconName
attrConstruct _ = constructActionIconName
-- VVV Prop "is-important"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getActionIsImportant :: (MonadIO m, ActionK o) => o -> m Bool
getActionIsImportant obj = liftIO $ getObjectPropertyBool obj "is-important"
setActionIsImportant :: (MonadIO m, ActionK o) => o -> Bool -> m ()
setActionIsImportant obj val = liftIO $ setObjectPropertyBool obj "is-important" val
constructActionIsImportant :: Bool -> IO ([Char], GValue)
constructActionIsImportant val = constructObjectPropertyBool "is-important" val
data ActionIsImportantPropertyInfo
instance AttrInfo ActionIsImportantPropertyInfo where
type AttrAllowedOps ActionIsImportantPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionIsImportantPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ActionIsImportantPropertyInfo = ActionK
type AttrGetType ActionIsImportantPropertyInfo = Bool
type AttrLabel ActionIsImportantPropertyInfo = "is-important"
attrGet _ = getActionIsImportant
attrSet _ = setActionIsImportant
attrConstruct _ = constructActionIsImportant
-- VVV Prop "label"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
getActionLabel :: (MonadIO m, ActionK o) => o -> m T.Text
getActionLabel obj = liftIO $ getObjectPropertyString obj "label"
setActionLabel :: (MonadIO m, ActionK o) => o -> T.Text -> m ()
setActionLabel obj val = liftIO $ setObjectPropertyString obj "label" val
constructActionLabel :: T.Text -> IO ([Char], GValue)
constructActionLabel val = constructObjectPropertyString "label" val
data ActionLabelPropertyInfo
instance AttrInfo ActionLabelPropertyInfo where
type AttrAllowedOps ActionLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionLabelPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ActionLabelPropertyInfo = ActionK
type AttrGetType ActionLabelPropertyInfo = T.Text
type AttrLabel ActionLabelPropertyInfo = "label"
attrGet _ = getActionLabel
attrSet _ = setActionLabel
attrConstruct _ = constructActionLabel
-- VVV Prop "name"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getActionName :: (MonadIO m, ActionK o) => o -> m T.Text
getActionName obj = liftIO $ getObjectPropertyString obj "name"
constructActionName :: T.Text -> IO ([Char], GValue)
constructActionName val = constructObjectPropertyString "name" val
data ActionNamePropertyInfo
instance AttrInfo ActionNamePropertyInfo where
type AttrAllowedOps ActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ActionNamePropertyInfo = ActionK
type AttrGetType ActionNamePropertyInfo = T.Text
type AttrLabel ActionNamePropertyInfo = "name"
attrGet _ = getActionName
attrSet _ = undefined
attrConstruct _ = constructActionName
-- VVV Prop "sensitive"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getActionSensitive :: (MonadIO m, ActionK o) => o -> m Bool
getActionSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive"
setActionSensitive :: (MonadIO m, ActionK o) => o -> Bool -> m ()
setActionSensitive obj val = liftIO $ setObjectPropertyBool obj "sensitive" val
constructActionSensitive :: Bool -> IO ([Char], GValue)
constructActionSensitive val = constructObjectPropertyBool "sensitive" val
data ActionSensitivePropertyInfo
instance AttrInfo ActionSensitivePropertyInfo where
type AttrAllowedOps ActionSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionSensitivePropertyInfo = (~) Bool
type AttrBaseTypeConstraint ActionSensitivePropertyInfo = ActionK
type AttrGetType ActionSensitivePropertyInfo = Bool
type AttrLabel ActionSensitivePropertyInfo = "sensitive"
attrGet _ = getActionSensitive
attrSet _ = setActionSensitive
attrConstruct _ = constructActionSensitive
-- VVV Prop "short-label"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
getActionShortLabel :: (MonadIO m, ActionK o) => o -> m T.Text
getActionShortLabel obj = liftIO $ getObjectPropertyString obj "short-label"
setActionShortLabel :: (MonadIO m, ActionK o) => o -> T.Text -> m ()
setActionShortLabel obj val = liftIO $ setObjectPropertyString obj "short-label" val
constructActionShortLabel :: T.Text -> IO ([Char], GValue)
constructActionShortLabel val = constructObjectPropertyString "short-label" val
data ActionShortLabelPropertyInfo
instance AttrInfo ActionShortLabelPropertyInfo where
type AttrAllowedOps ActionShortLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionShortLabelPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ActionShortLabelPropertyInfo = ActionK
type AttrGetType ActionShortLabelPropertyInfo = T.Text
type AttrLabel ActionShortLabelPropertyInfo = "short-label"
attrGet _ = getActionShortLabel
attrSet _ = setActionShortLabel
attrConstruct _ = constructActionShortLabel
-- VVV Prop "stock-id"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
getActionStockId :: (MonadIO m, ActionK o) => o -> m T.Text
getActionStockId obj = liftIO $ getObjectPropertyString obj "stock-id"
setActionStockId :: (MonadIO m, ActionK o) => o -> T.Text -> m ()
setActionStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" val
constructActionStockId :: T.Text -> IO ([Char], GValue)
constructActionStockId val = constructObjectPropertyString "stock-id" val
data ActionStockIdPropertyInfo
instance AttrInfo ActionStockIdPropertyInfo where
type AttrAllowedOps ActionStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionStockIdPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ActionStockIdPropertyInfo = ActionK
type AttrGetType ActionStockIdPropertyInfo = T.Text
type AttrLabel ActionStockIdPropertyInfo = "stock-id"
attrGet _ = getActionStockId
attrSet _ = setActionStockId
attrConstruct _ = constructActionStockId
-- VVV Prop "tooltip"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
getActionTooltip :: (MonadIO m, ActionK o) => o -> m T.Text
getActionTooltip obj = liftIO $ getObjectPropertyString obj "tooltip"
setActionTooltip :: (MonadIO m, ActionK o) => o -> T.Text -> m ()
setActionTooltip obj val = liftIO $ setObjectPropertyString obj "tooltip" val
constructActionTooltip :: T.Text -> IO ([Char], GValue)
constructActionTooltip val = constructObjectPropertyString "tooltip" val
data ActionTooltipPropertyInfo
instance AttrInfo ActionTooltipPropertyInfo where
type AttrAllowedOps ActionTooltipPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionTooltipPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ActionTooltipPropertyInfo = ActionK
type AttrGetType ActionTooltipPropertyInfo = T.Text
type AttrLabel ActionTooltipPropertyInfo = "tooltip"
attrGet _ = getActionTooltip
attrSet _ = setActionTooltip
attrConstruct _ = constructActionTooltip
-- VVV Prop "visible"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getActionVisible :: (MonadIO m, ActionK o) => o -> m Bool
getActionVisible obj = liftIO $ getObjectPropertyBool obj "visible"
setActionVisible :: (MonadIO m, ActionK o) => o -> Bool -> m ()
setActionVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val
constructActionVisible :: Bool -> IO ([Char], GValue)
constructActionVisible val = constructObjectPropertyBool "visible" val
data ActionVisiblePropertyInfo
instance AttrInfo ActionVisiblePropertyInfo where
type AttrAllowedOps ActionVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionVisiblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint ActionVisiblePropertyInfo = ActionK
type AttrGetType ActionVisiblePropertyInfo = Bool
type AttrLabel ActionVisiblePropertyInfo = "visible"
attrGet _ = getActionVisible
attrSet _ = setActionVisible
attrConstruct _ = constructActionVisible
-- VVV Prop "visible-horizontal"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getActionVisibleHorizontal :: (MonadIO m, ActionK o) => o -> m Bool
getActionVisibleHorizontal obj = liftIO $ getObjectPropertyBool obj "visible-horizontal"
setActionVisibleHorizontal :: (MonadIO m, ActionK o) => o -> Bool -> m ()
setActionVisibleHorizontal obj val = liftIO $ setObjectPropertyBool obj "visible-horizontal" val
constructActionVisibleHorizontal :: Bool -> IO ([Char], GValue)
constructActionVisibleHorizontal val = constructObjectPropertyBool "visible-horizontal" val
data ActionVisibleHorizontalPropertyInfo
instance AttrInfo ActionVisibleHorizontalPropertyInfo where
type AttrAllowedOps ActionVisibleHorizontalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionVisibleHorizontalPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ActionVisibleHorizontalPropertyInfo = ActionK
type AttrGetType ActionVisibleHorizontalPropertyInfo = Bool
type AttrLabel ActionVisibleHorizontalPropertyInfo = "visible-horizontal"
attrGet _ = getActionVisibleHorizontal
attrSet _ = setActionVisibleHorizontal
attrConstruct _ = constructActionVisibleHorizontal
-- VVV Prop "visible-overflown"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getActionVisibleOverflown :: (MonadIO m, ActionK o) => o -> m Bool
getActionVisibleOverflown obj = liftIO $ getObjectPropertyBool obj "visible-overflown"
setActionVisibleOverflown :: (MonadIO m, ActionK o) => o -> Bool -> m ()
setActionVisibleOverflown obj val = liftIO $ setObjectPropertyBool obj "visible-overflown" val
constructActionVisibleOverflown :: Bool -> IO ([Char], GValue)
constructActionVisibleOverflown val = constructObjectPropertyBool "visible-overflown" val
data ActionVisibleOverflownPropertyInfo
instance AttrInfo ActionVisibleOverflownPropertyInfo where
type AttrAllowedOps ActionVisibleOverflownPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionVisibleOverflownPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ActionVisibleOverflownPropertyInfo = ActionK
type AttrGetType ActionVisibleOverflownPropertyInfo = Bool
type AttrLabel ActionVisibleOverflownPropertyInfo = "visible-overflown"
attrGet _ = getActionVisibleOverflown
attrSet _ = setActionVisibleOverflown
attrConstruct _ = constructActionVisibleOverflown
-- VVV Prop "visible-vertical"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getActionVisibleVertical :: (MonadIO m, ActionK o) => o -> m Bool
getActionVisibleVertical obj = liftIO $ getObjectPropertyBool obj "visible-vertical"
setActionVisibleVertical :: (MonadIO m, ActionK o) => o -> Bool -> m ()
setActionVisibleVertical obj val = liftIO $ setObjectPropertyBool obj "visible-vertical" val
constructActionVisibleVertical :: Bool -> IO ([Char], GValue)
constructActionVisibleVertical val = constructObjectPropertyBool "visible-vertical" val
data ActionVisibleVerticalPropertyInfo
instance AttrInfo ActionVisibleVerticalPropertyInfo where
type AttrAllowedOps ActionVisibleVerticalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionVisibleVerticalPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ActionVisibleVerticalPropertyInfo = ActionK
type AttrGetType ActionVisibleVerticalPropertyInfo = Bool
type AttrLabel ActionVisibleVerticalPropertyInfo = "visible-vertical"
attrGet _ = getActionVisibleVertical
attrSet _ = setActionVisibleVertical
attrConstruct _ = constructActionVisibleVertical
type instance AttributeList Action = ActionAttributeList
type ActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("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 ActionActivateSignalInfo
instance SignalInfo ActionActivateSignalInfo where
type HaskellCallbackType ActionActivateSignalInfo = ActionActivateCallback
connectSignal _ = connectActionActivate
type instance SignalList Action = ActionSignalList
type ActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method Action::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" "Action"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_new" gtk_action_new ::
CString -> -- name : TBasicType TUTF8
CString -> -- label : TBasicType TUTF8
CString -> -- tooltip : TBasicType TUTF8
CString -> -- stock_id : TBasicType TUTF8
IO (Ptr Action)
{-# DEPRECATED actionNew ["(Since version 3.10)","Use #GAction instead, associating it to a widget with","#GtkActionable or creating a #GtkMenu with gtk_menu_new_from_model()"]#-}
actionNew ::
(MonadIO m) =>
T.Text -- name
-> Maybe (T.Text) -- label
-> Maybe (T.Text) -- tooltip
-> Maybe (T.Text) -- stockId
-> m Action -- result
actionNew 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_action_new name' maybeLabel maybeTooltip maybeStockId
checkUnexpectedReturnNULL "gtk_action_new" result
result' <- (wrapObject Action) result
freeMem name'
freeMem maybeLabel
freeMem maybeTooltip
freeMem maybeStockId
return result'
-- method Action::activate
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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_action_activate" gtk_action_activate ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO ()
{-# DEPRECATED actionActivate ["(Since version 3.10)","Use g_action_group_activate_action() on a #GAction instead"]#-}
actionActivate ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m () -- result
actionActivate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_action_activate _obj'
touchManagedPtr _obj
return ()
data ActionActivateMethodInfo
instance (signature ~ (m ()), MonadIO m, ActionK a) => MethodInfo ActionActivateMethodInfo a signature where
overloadedMethod _ = actionActivate
-- method Action::block_activate
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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_action_block_activate" gtk_action_block_activate ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO ()
{-# DEPRECATED actionBlockActivate ["(Since version 3.10)","Use g_simple_action_set_enabled() to disable the","#GSimpleAction instead"]#-}
actionBlockActivate ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m () -- result
actionBlockActivate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_action_block_activate _obj'
touchManagedPtr _obj
return ()
data ActionBlockActivateMethodInfo
instance (signature ~ (m ()), MonadIO m, ActionK a) => MethodInfo ActionBlockActivateMethodInfo a signature where
overloadedMethod _ = actionBlockActivate
-- method Action::connect_accelerator
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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_action_connect_accelerator" gtk_action_connect_accelerator ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO ()
{-# DEPRECATED actionConnectAccelerator ["(Since version 3.10)","Use #GAction and the accelerator group on an associated","#GtkMenu instead"]#-}
actionConnectAccelerator ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m () -- result
actionConnectAccelerator _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_action_connect_accelerator _obj'
touchManagedPtr _obj
return ()
data ActionConnectAcceleratorMethodInfo
instance (signature ~ (m ()), MonadIO m, ActionK a) => MethodInfo ActionConnectAcceleratorMethodInfo a signature where
overloadedMethod _ = actionConnectAccelerator
-- method Action::create_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_create_icon" gtk_action_create_icon ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
Int32 -> -- icon_size : TBasicType TInt32
IO (Ptr Widget)
{-# DEPRECATED actionCreateIcon ["(Since version 3.10)","Use g_menu_item_set_icon() to set an icon on a #GMenuItem,","or gtk_container_add() to add a #GtkImage to a #GtkButton"]#-}
actionCreateIcon ::
(MonadIO m, ActionK a) =>
a -- _obj
-> Int32 -- iconSize
-> m Widget -- result
actionCreateIcon _obj iconSize = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_create_icon _obj' iconSize
checkUnexpectedReturnNULL "gtk_action_create_icon" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
data ActionCreateIconMethodInfo
instance (signature ~ (Int32 -> m Widget), MonadIO m, ActionK a) => MethodInfo ActionCreateIconMethodInfo a signature where
overloadedMethod _ = actionCreateIcon
-- method Action::create_menu
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_create_menu" gtk_action_create_menu ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO (Ptr Widget)
{-# DEPRECATED actionCreateMenu ["(Since version 3.10)","Use #GAction and #GMenuModel instead, and create a","#GtkMenu with gtk_menu_new_from_model()"]#-}
actionCreateMenu ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m Widget -- result
actionCreateMenu _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_create_menu _obj'
checkUnexpectedReturnNULL "gtk_action_create_menu" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
data ActionCreateMenuMethodInfo
instance (signature ~ (m Widget), MonadIO m, ActionK a) => MethodInfo ActionCreateMenuMethodInfo a signature where
overloadedMethod _ = actionCreateMenu
-- method Action::create_menu_item
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_create_menu_item" gtk_action_create_menu_item ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO (Ptr Widget)
{-# DEPRECATED actionCreateMenuItem ["(Since version 3.10)","Use g_menu_item_new() and associate it with a #GAction","instead."]#-}
actionCreateMenuItem ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m Widget -- result
actionCreateMenuItem _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_create_menu_item _obj'
checkUnexpectedReturnNULL "gtk_action_create_menu_item" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
data ActionCreateMenuItemMethodInfo
instance (signature ~ (m Widget), MonadIO m, ActionK a) => MethodInfo ActionCreateMenuItemMethodInfo a signature where
overloadedMethod _ = actionCreateMenuItem
-- method Action::create_tool_item
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_create_tool_item" gtk_action_create_tool_item ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO (Ptr Widget)
{-# DEPRECATED actionCreateToolItem ["(Since version 3.10)","Use a #GtkToolItem and associate it with a #GAction using","gtk_actionable_set_action_name() instead"]#-}
actionCreateToolItem ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m Widget -- result
actionCreateToolItem _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_create_tool_item _obj'
checkUnexpectedReturnNULL "gtk_action_create_tool_item" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
data ActionCreateToolItemMethodInfo
instance (signature ~ (m Widget), MonadIO m, ActionK a) => MethodInfo ActionCreateToolItemMethodInfo a signature where
overloadedMethod _ = actionCreateToolItem
-- method Action::disconnect_accelerator
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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_action_disconnect_accelerator" gtk_action_disconnect_accelerator ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO ()
{-# DEPRECATED actionDisconnectAccelerator ["(Since version 3.10)","Use #GAction and the accelerator group on an associated","#GtkMenu instead"]#-}
actionDisconnectAccelerator ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m () -- result
actionDisconnectAccelerator _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_action_disconnect_accelerator _obj'
touchManagedPtr _obj
return ()
data ActionDisconnectAcceleratorMethodInfo
instance (signature ~ (m ()), MonadIO m, ActionK a) => MethodInfo ActionDisconnectAcceleratorMethodInfo a signature where
overloadedMethod _ = actionDisconnectAccelerator
-- method Action::get_accel_closure
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "GObject" "Closure"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_accel_closure" gtk_action_get_accel_closure ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO (Ptr Closure)
{-# DEPRECATED actionGetAccelClosure ["(Since version 3.10)","Use #GAction and #GtkMenu instead, which have no","equivalent for getting the accel closure"]#-}
actionGetAccelClosure ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m Closure -- result
actionGetAccelClosure _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_accel_closure _obj'
checkUnexpectedReturnNULL "gtk_action_get_accel_closure" result
result' <- (newBoxed Closure) result
touchManagedPtr _obj
return result'
data ActionGetAccelClosureMethodInfo
instance (signature ~ (m Closure), MonadIO m, ActionK a) => MethodInfo ActionGetAccelClosureMethodInfo a signature where
overloadedMethod _ = actionGetAccelClosure
-- method Action::get_accel_path
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_accel_path" gtk_action_get_accel_path ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CString
{-# DEPRECATED actionGetAccelPath ["(Since version 3.10)","Use #GAction and the accelerator path on an associated","#GtkMenu instead"]#-}
actionGetAccelPath ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m T.Text -- result
actionGetAccelPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_accel_path _obj'
checkUnexpectedReturnNULL "gtk_action_get_accel_path" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data ActionGetAccelPathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetAccelPathMethodInfo a signature where
overloadedMethod _ = actionGetAccelPath
-- method Action::get_always_show_image
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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_action_get_always_show_image" gtk_action_get_always_show_image ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionGetAlwaysShowImage ["(Since version 3.10)","Use g_menu_item_get_attribute_value() on a #GMenuItem","instead"]#-}
actionGetAlwaysShowImage ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m Bool -- result
actionGetAlwaysShowImage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_always_show_image _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data ActionGetAlwaysShowImageMethodInfo
instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetAlwaysShowImageMethodInfo a signature where
overloadedMethod _ = actionGetAlwaysShowImage
-- method Action::get_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gio" "Icon"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_gicon" gtk_action_get_gicon ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO (Ptr Gio.Icon)
{-# DEPRECATED actionGetGicon ["(Since version 3.10)","Use #GAction instead, and","g_menu_item_get_attribute_value() to get an icon from a #GMenuItem","associated with a #GAction"]#-}
actionGetGicon ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m Gio.Icon -- result
actionGetGicon _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_gicon _obj'
checkUnexpectedReturnNULL "gtk_action_get_gicon" result
result' <- (newObject Gio.Icon) result
touchManagedPtr _obj
return result'
data ActionGetGiconMethodInfo
instance (signature ~ (m Gio.Icon), MonadIO m, ActionK a) => MethodInfo ActionGetGiconMethodInfo a signature where
overloadedMethod _ = actionGetGicon
-- method Action::get_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_icon_name" gtk_action_get_icon_name ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CString
{-# DEPRECATED actionGetIconName ["(Since version 3.10)","Use #GAction instead, and","g_menu_item_get_attribute_value() to get an icon from a #GMenuItem","associated with a #GAction"]#-}
actionGetIconName ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m T.Text -- result
actionGetIconName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_icon_name _obj'
checkUnexpectedReturnNULL "gtk_action_get_icon_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data ActionGetIconNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetIconNameMethodInfo a signature where
overloadedMethod _ = actionGetIconName
-- method Action::get_is_important
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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_action_get_is_important" gtk_action_get_is_important ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionGetIsImportant ["(Since version 3.10)","Use #GAction instead, and control and monitor whether","labels are shown directly"]#-}
actionGetIsImportant ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m Bool -- result
actionGetIsImportant _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_is_important _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data ActionGetIsImportantMethodInfo
instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetIsImportantMethodInfo a signature where
overloadedMethod _ = actionGetIsImportant
-- method Action::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_label" gtk_action_get_label ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CString
{-# DEPRECATED actionGetLabel ["(Since version 3.10)","Use #GAction instead, and get a label from a menu item","with g_menu_item_get_attribute_value(). For #GtkActionable widgets, use the","widget-specific API to get a label"]#-}
actionGetLabel ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m T.Text -- result
actionGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_label _obj'
checkUnexpectedReturnNULL "gtk_action_get_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data ActionGetLabelMethodInfo
instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetLabelMethodInfo a signature where
overloadedMethod _ = actionGetLabel
-- method Action::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_name" gtk_action_get_name ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CString
{-# DEPRECATED actionGetName ["(Since version 3.10)","Use g_action_get_name() on a #GAction instead"]#-}
actionGetName ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m T.Text -- result
actionGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_name _obj'
checkUnexpectedReturnNULL "gtk_action_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data ActionGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetNameMethodInfo a signature where
overloadedMethod _ = actionGetName
-- method Action::get_proxies
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TGSList (TInterface "Gtk" "Widget")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_proxies" gtk_action_get_proxies ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO (Ptr (GSList (Ptr Widget)))
{-# DEPRECATED actionGetProxies ["(Since version 3.10)"]#-}
actionGetProxies ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m [Widget] -- result
actionGetProxies _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_proxies _obj'
checkUnexpectedReturnNULL "gtk_action_get_proxies" result
result' <- unpackGSList result
result'' <- mapM (newObject Widget) result'
touchManagedPtr _obj
return result''
data ActionGetProxiesMethodInfo
instance (signature ~ (m [Widget]), MonadIO m, ActionK a) => MethodInfo ActionGetProxiesMethodInfo a signature where
overloadedMethod _ = actionGetProxies
-- method Action::get_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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_action_get_sensitive" gtk_action_get_sensitive ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionGetSensitive ["(Since version 3.10)","Use g_action_get_enabled() on a #GAction","instead"]#-}
actionGetSensitive ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m Bool -- result
actionGetSensitive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_sensitive _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data ActionGetSensitiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetSensitiveMethodInfo a signature where
overloadedMethod _ = actionGetSensitive
-- method Action::get_short_label
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_short_label" gtk_action_get_short_label ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CString
{-# DEPRECATED actionGetShortLabel ["(Since version 3.10)","Use #GAction instead, which has no equivalent of short","labels"]#-}
actionGetShortLabel ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m T.Text -- result
actionGetShortLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_short_label _obj'
checkUnexpectedReturnNULL "gtk_action_get_short_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data ActionGetShortLabelMethodInfo
instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetShortLabelMethodInfo a signature where
overloadedMethod _ = actionGetShortLabel
-- method Action::get_stock_id
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_stock_id" gtk_action_get_stock_id ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CString
{-# DEPRECATED actionGetStockId ["(Since version 3.10)","Use #GAction instead, which has no equivalent of stock","items"]#-}
actionGetStockId ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m T.Text -- result
actionGetStockId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_stock_id _obj'
checkUnexpectedReturnNULL "gtk_action_get_stock_id" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data ActionGetStockIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetStockIdMethodInfo a signature where
overloadedMethod _ = actionGetStockId
-- method Action::get_tooltip
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_action_get_tooltip" gtk_action_get_tooltip ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CString
{-# DEPRECATED actionGetTooltip ["(Since version 3.10)","Use #GAction instead, and get tooltips from associated","#GtkActionable widgets with gtk_widget_get_tooltip_text()"]#-}
actionGetTooltip ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m T.Text -- result
actionGetTooltip _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_tooltip _obj'
checkUnexpectedReturnNULL "gtk_action_get_tooltip" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data ActionGetTooltipMethodInfo
instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetTooltipMethodInfo a signature where
overloadedMethod _ = actionGetTooltip
-- method Action::get_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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_action_get_visible" gtk_action_get_visible ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionGetVisible ["(Since version 3.10)","Use #GAction instead, and control and monitor the state of","#GtkActionable widgets directly"]#-}
actionGetVisible ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m Bool -- result
actionGetVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data ActionGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetVisibleMethodInfo a signature where
overloadedMethod _ = actionGetVisible
-- method Action::get_visible_horizontal
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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_action_get_visible_horizontal" gtk_action_get_visible_horizontal ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionGetVisibleHorizontal ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-}
actionGetVisibleHorizontal ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m Bool -- result
actionGetVisibleHorizontal _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_visible_horizontal _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data ActionGetVisibleHorizontalMethodInfo
instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetVisibleHorizontalMethodInfo a signature where
overloadedMethod _ = actionGetVisibleHorizontal
-- method Action::get_visible_vertical
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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_action_get_visible_vertical" gtk_action_get_visible_vertical ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionGetVisibleVertical ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-}
actionGetVisibleVertical ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m Bool -- result
actionGetVisibleVertical _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_get_visible_vertical _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data ActionGetVisibleVerticalMethodInfo
instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetVisibleVerticalMethodInfo a signature where
overloadedMethod _ = actionGetVisibleVertical
-- method Action::is_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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_action_is_sensitive" gtk_action_is_sensitive ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionIsSensitive ["(Since version 3.10)","Use g_action_get_enabled() on a #GAction","instead"]#-}
actionIsSensitive ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m Bool -- result
actionIsSensitive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_is_sensitive _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data ActionIsSensitiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionIsSensitiveMethodInfo a signature where
overloadedMethod _ = actionIsSensitive
-- method Action::is_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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_action_is_visible" gtk_action_is_visible ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO CInt
{-# DEPRECATED actionIsVisible ["(Since version 3.10)","Use #GAction instead, and control and monitor the state of","#GtkActionable widgets directly"]#-}
actionIsVisible ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m Bool -- result
actionIsVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_action_is_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data ActionIsVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionIsVisibleMethodInfo a signature where
overloadedMethod _ = actionIsVisible
-- method Action::set_accel_group
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", 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_action_set_accel_group" gtk_action_set_accel_group ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup"
IO ()
{-# DEPRECATED actionSetAccelGroup ["(Since version 3.10)","Use #GAction and the accelerator group on an associated","#GtkMenu instead"]#-}
actionSetAccelGroup ::
(MonadIO m, ActionK a, AccelGroupK b) =>
a -- _obj
-> Maybe (b) -- accelGroup
-> m () -- result
actionSetAccelGroup _obj accelGroup = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAccelGroup <- case accelGroup of
Nothing -> return nullPtr
Just jAccelGroup -> do
let jAccelGroup' = unsafeManagedPtrCastPtr jAccelGroup
return jAccelGroup'
gtk_action_set_accel_group _obj' maybeAccelGroup
touchManagedPtr _obj
whenJust accelGroup touchManagedPtr
return ()
data ActionSetAccelGroupMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ActionK a, AccelGroupK b) => MethodInfo ActionSetAccelGroupMethodInfo a signature where
overloadedMethod _ = actionSetAccelGroup
-- method Action::set_accel_path
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, 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_action_set_accel_path" gtk_action_set_accel_path ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CString -> -- accel_path : TBasicType TUTF8
IO ()
{-# DEPRECATED actionSetAccelPath ["(Since version 3.10)","Use #GAction and the accelerator path on an associated","#GtkMenu instead"]#-}
actionSetAccelPath ::
(MonadIO m, ActionK a) =>
a -- _obj
-> T.Text -- accelPath
-> m () -- result
actionSetAccelPath _obj accelPath = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
accelPath' <- textToCString accelPath
gtk_action_set_accel_path _obj' accelPath'
touchManagedPtr _obj
freeMem accelPath'
return ()
data ActionSetAccelPathMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetAccelPathMethodInfo a signature where
overloadedMethod _ = actionSetAccelPath
-- method Action::set_always_show_image
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "always_show", 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_action_set_always_show_image" gtk_action_set_always_show_image ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CInt -> -- always_show : TBasicType TBoolean
IO ()
{-# DEPRECATED actionSetAlwaysShowImage ["(Since version 3.10)","Use g_menu_item_set_icon() on a #GMenuItem instead, if the","item should have an image"]#-}
actionSetAlwaysShowImage ::
(MonadIO m, ActionK a) =>
a -- _obj
-> Bool -- alwaysShow
-> m () -- result
actionSetAlwaysShowImage _obj alwaysShow = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let alwaysShow' = (fromIntegral . fromEnum) alwaysShow
gtk_action_set_always_show_image _obj' alwaysShow'
touchManagedPtr _obj
return ()
data ActionSetAlwaysShowImageMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetAlwaysShowImageMethodInfo a signature where
overloadedMethod _ = actionSetAlwaysShowImage
-- method Action::set_gicon
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", 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_action_set_gicon" gtk_action_set_gicon ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"
IO ()
{-# DEPRECATED actionSetGicon ["(Since version 3.10)","Use #GAction instead, and g_menu_item_set_icon() to set an","icon on a #GMenuItem associated with a #GAction, or gtk_container_add() to","add a #GtkImage to a #GtkButton"]#-}
actionSetGicon ::
(MonadIO m, ActionK a, Gio.IconK b) =>
a -- _obj
-> b -- icon
-> m () -- result
actionSetGicon _obj icon = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon' = unsafeManagedPtrCastPtr icon
gtk_action_set_gicon _obj' icon'
touchManagedPtr _obj
touchManagedPtr icon
return ()
data ActionSetGiconMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, ActionK a, Gio.IconK b) => MethodInfo ActionSetGiconMethodInfo a signature where
overloadedMethod _ = actionSetGicon
-- method Action::set_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, 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_action_set_icon_name" gtk_action_set_icon_name ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CString -> -- icon_name : TBasicType TUTF8
IO ()
{-# DEPRECATED actionSetIconName ["(Since version 3.10)","Use #GAction instead, and g_menu_item_set_icon() to set an","icon on a #GMenuItem associated with a #GAction, or gtk_container_add() to","add a #GtkImage to a #GtkButton"]#-}
actionSetIconName ::
(MonadIO m, ActionK a) =>
a -- _obj
-> T.Text -- iconName
-> m () -- result
actionSetIconName _obj iconName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
iconName' <- textToCString iconName
gtk_action_set_icon_name _obj' iconName'
touchManagedPtr _obj
freeMem iconName'
return ()
data ActionSetIconNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetIconNameMethodInfo a signature where
overloadedMethod _ = actionSetIconName
-- method Action::set_is_important
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_important", 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_action_set_is_important" gtk_action_set_is_important ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CInt -> -- is_important : TBasicType TBoolean
IO ()
{-# DEPRECATED actionSetIsImportant ["(Since version 3.10)","Use #GAction instead, and control and monitor whether","labels are shown directly"]#-}
actionSetIsImportant ::
(MonadIO m, ActionK a) =>
a -- _obj
-> Bool -- isImportant
-> m () -- result
actionSetIsImportant _obj isImportant = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let isImportant' = (fromIntegral . fromEnum) isImportant
gtk_action_set_is_important _obj' isImportant'
touchManagedPtr _obj
return ()
data ActionSetIsImportantMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetIsImportantMethodInfo a signature where
overloadedMethod _ = actionSetIsImportant
-- method Action::set_label
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, 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_action_set_label" gtk_action_set_label ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CString -> -- label : TBasicType TUTF8
IO ()
{-# DEPRECATED actionSetLabel ["(Since version 3.10)","Use #GAction instead, and set a label on a menu item with","g_menu_item_set_label(). For #GtkActionable widgets, use the widget-specific","API to set a label"]#-}
actionSetLabel ::
(MonadIO m, ActionK a) =>
a -- _obj
-> T.Text -- label
-> m () -- result
actionSetLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
label' <- textToCString label
gtk_action_set_label _obj' label'
touchManagedPtr _obj
freeMem label'
return ()
data ActionSetLabelMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetLabelMethodInfo a signature where
overloadedMethod _ = actionSetLabel
-- method Action::set_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", 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_action_set_sensitive" gtk_action_set_sensitive ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CInt -> -- sensitive : TBasicType TBoolean
IO ()
{-# DEPRECATED actionSetSensitive ["(Since version 3.10)","Use g_simple_action_set_enabled() on a #GSimpleAction","instead"]#-}
actionSetSensitive ::
(MonadIO m, ActionK a) =>
a -- _obj
-> Bool -- sensitive
-> m () -- result
actionSetSensitive _obj sensitive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sensitive' = (fromIntegral . fromEnum) sensitive
gtk_action_set_sensitive _obj' sensitive'
touchManagedPtr _obj
return ()
data ActionSetSensitiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetSensitiveMethodInfo a signature where
overloadedMethod _ = actionSetSensitive
-- method Action::set_short_label
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "short_label", argType = TBasicType TUTF8, 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_action_set_short_label" gtk_action_set_short_label ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CString -> -- short_label : TBasicType TUTF8
IO ()
{-# DEPRECATED actionSetShortLabel ["(Since version 3.10)","Use #GAction instead, which has no equivalent of short","labels"]#-}
actionSetShortLabel ::
(MonadIO m, ActionK a) =>
a -- _obj
-> T.Text -- shortLabel
-> m () -- result
actionSetShortLabel _obj shortLabel = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
shortLabel' <- textToCString shortLabel
gtk_action_set_short_label _obj' shortLabel'
touchManagedPtr _obj
freeMem shortLabel'
return ()
data ActionSetShortLabelMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetShortLabelMethodInfo a signature where
overloadedMethod _ = actionSetShortLabel
-- method Action::set_stock_id
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, 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_action_set_stock_id" gtk_action_set_stock_id ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CString -> -- stock_id : TBasicType TUTF8
IO ()
{-# DEPRECATED actionSetStockId ["(Since version 3.10)","Use #GAction instead, which has no equivalent of stock","items"]#-}
actionSetStockId ::
(MonadIO m, ActionK a) =>
a -- _obj
-> T.Text -- stockId
-> m () -- result
actionSetStockId _obj stockId = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
stockId' <- textToCString stockId
gtk_action_set_stock_id _obj' stockId'
touchManagedPtr _obj
freeMem stockId'
return ()
data ActionSetStockIdMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetStockIdMethodInfo a signature where
overloadedMethod _ = actionSetStockId
-- method Action::set_tooltip
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, 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_action_set_tooltip" gtk_action_set_tooltip ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CString -> -- tooltip : TBasicType TUTF8
IO ()
{-# DEPRECATED actionSetTooltip ["(Since version 3.10)","Use #GAction instead, and set tooltips on associated","#GtkActionable widgets with gtk_widget_set_tooltip_text()"]#-}
actionSetTooltip ::
(MonadIO m, ActionK a) =>
a -- _obj
-> T.Text -- tooltip
-> m () -- result
actionSetTooltip _obj tooltip = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
tooltip' <- textToCString tooltip
gtk_action_set_tooltip _obj' tooltip'
touchManagedPtr _obj
freeMem tooltip'
return ()
data ActionSetTooltipMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetTooltipMethodInfo a signature where
overloadedMethod _ = actionSetTooltip
-- method Action::set_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", 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_action_set_visible" gtk_action_set_visible ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CInt -> -- visible : TBasicType TBoolean
IO ()
{-# DEPRECATED actionSetVisible ["(Since version 3.10)","Use #GAction instead, and control and monitor the state of","#GtkActionable widgets directly"]#-}
actionSetVisible ::
(MonadIO m, ActionK a) =>
a -- _obj
-> Bool -- visible
-> m () -- result
actionSetVisible _obj visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible' = (fromIntegral . fromEnum) visible
gtk_action_set_visible _obj' visible'
touchManagedPtr _obj
return ()
data ActionSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetVisibleMethodInfo a signature where
overloadedMethod _ = actionSetVisible
-- method Action::set_visible_horizontal
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_horizontal", 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_action_set_visible_horizontal" gtk_action_set_visible_horizontal ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CInt -> -- visible_horizontal : TBasicType TBoolean
IO ()
{-# DEPRECATED actionSetVisibleHorizontal ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-}
actionSetVisibleHorizontal ::
(MonadIO m, ActionK a) =>
a -- _obj
-> Bool -- visibleHorizontal
-> m () -- result
actionSetVisibleHorizontal _obj visibleHorizontal = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visibleHorizontal' = (fromIntegral . fromEnum) visibleHorizontal
gtk_action_set_visible_horizontal _obj' visibleHorizontal'
touchManagedPtr _obj
return ()
data ActionSetVisibleHorizontalMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetVisibleHorizontalMethodInfo a signature where
overloadedMethod _ = actionSetVisibleHorizontal
-- method Action::set_visible_vertical
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_vertical", 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_action_set_visible_vertical" gtk_action_set_visible_vertical ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
CInt -> -- visible_vertical : TBasicType TBoolean
IO ()
{-# DEPRECATED actionSetVisibleVertical ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-}
actionSetVisibleVertical ::
(MonadIO m, ActionK a) =>
a -- _obj
-> Bool -- visibleVertical
-> m () -- result
actionSetVisibleVertical _obj visibleVertical = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visibleVertical' = (fromIntegral . fromEnum) visibleVertical
gtk_action_set_visible_vertical _obj' visibleVertical'
touchManagedPtr _obj
return ()
data ActionSetVisibleVerticalMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetVisibleVerticalMethodInfo a signature where
overloadedMethod _ = actionSetVisibleVertical
-- method Action::unblock_activate
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", 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_action_unblock_activate" gtk_action_unblock_activate ::
Ptr Action -> -- _obj : TInterface "Gtk" "Action"
IO ()
{-# DEPRECATED actionUnblockActivate ["(Since version 3.10)","Use g_simple_action_set_enabled() to enable the","#GSimpleAction instead"]#-}
actionUnblockActivate ::
(MonadIO m, ActionK a) =>
a -- _obj
-> m () -- result
actionUnblockActivate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_action_unblock_activate _obj'
touchManagedPtr _obj
return ()
data ActionUnblockActivateMethodInfo
instance (signature ~ (m ()), MonadIO m, ActionK a) => MethodInfo ActionUnblockActivateMethodInfo a signature where
overloadedMethod _ = actionUnblockActivate