module GI.Gtk.Objects.Action
(
Action(..) ,
IsAction ,
toAction ,
noAction ,
ActionActivateMethodInfo ,
actionActivate ,
ActionBlockActivateMethodInfo ,
actionBlockActivate ,
ActionConnectAcceleratorMethodInfo ,
actionConnectAccelerator ,
ActionCreateIconMethodInfo ,
actionCreateIcon ,
ActionCreateMenuMethodInfo ,
actionCreateMenu ,
ActionCreateMenuItemMethodInfo ,
actionCreateMenuItem ,
ActionCreateToolItemMethodInfo ,
actionCreateToolItem ,
ActionDisconnectAcceleratorMethodInfo ,
actionDisconnectAccelerator ,
ActionGetAccelClosureMethodInfo ,
actionGetAccelClosure ,
ActionGetAccelPathMethodInfo ,
actionGetAccelPath ,
ActionGetAlwaysShowImageMethodInfo ,
actionGetAlwaysShowImage ,
ActionGetGiconMethodInfo ,
actionGetGicon ,
ActionGetIconNameMethodInfo ,
actionGetIconName ,
ActionGetIsImportantMethodInfo ,
actionGetIsImportant ,
ActionGetLabelMethodInfo ,
actionGetLabel ,
ActionGetNameMethodInfo ,
actionGetName ,
ActionGetProxiesMethodInfo ,
actionGetProxies ,
ActionGetSensitiveMethodInfo ,
actionGetSensitive ,
ActionGetShortLabelMethodInfo ,
actionGetShortLabel ,
ActionGetStockIdMethodInfo ,
actionGetStockId ,
ActionGetTooltipMethodInfo ,
actionGetTooltip ,
ActionGetVisibleMethodInfo ,
actionGetVisible ,
ActionGetVisibleHorizontalMethodInfo ,
actionGetVisibleHorizontal ,
ActionGetVisibleVerticalMethodInfo ,
actionGetVisibleVertical ,
ActionIsSensitiveMethodInfo ,
actionIsSensitive ,
ActionIsVisibleMethodInfo ,
actionIsVisible ,
actionNew ,
ActionSetAccelGroupMethodInfo ,
actionSetAccelGroup ,
ActionSetAccelPathMethodInfo ,
actionSetAccelPath ,
ActionSetAlwaysShowImageMethodInfo ,
actionSetAlwaysShowImage ,
ActionSetGiconMethodInfo ,
actionSetGicon ,
ActionSetIconNameMethodInfo ,
actionSetIconName ,
ActionSetIsImportantMethodInfo ,
actionSetIsImportant ,
ActionSetLabelMethodInfo ,
actionSetLabel ,
ActionSetSensitiveMethodInfo ,
actionSetSensitive ,
ActionSetShortLabelMethodInfo ,
actionSetShortLabel ,
ActionSetStockIdMethodInfo ,
actionSetStockId ,
ActionSetTooltipMethodInfo ,
actionSetTooltip ,
ActionSetVisibleMethodInfo ,
actionSetVisible ,
ActionSetVisibleHorizontalMethodInfo ,
actionSetVisibleHorizontal ,
ActionSetVisibleVerticalMethodInfo ,
actionSetVisibleVertical ,
ActionUnblockActivateMethodInfo ,
actionUnblockActivate ,
ActionActionGroupPropertyInfo ,
actionActionGroup ,
clearActionActionGroup ,
constructActionActionGroup ,
getActionActionGroup ,
setActionActionGroup ,
ActionAlwaysShowImagePropertyInfo ,
actionAlwaysShowImage ,
constructActionAlwaysShowImage ,
getActionAlwaysShowImage ,
setActionAlwaysShowImage ,
ActionGiconPropertyInfo ,
actionGicon ,
constructActionGicon ,
getActionGicon ,
setActionGicon ,
ActionHideIfEmptyPropertyInfo ,
actionHideIfEmpty ,
constructActionHideIfEmpty ,
getActionHideIfEmpty ,
setActionHideIfEmpty ,
ActionIconNamePropertyInfo ,
actionIconName ,
constructActionIconName ,
getActionIconName ,
setActionIconName ,
ActionIsImportantPropertyInfo ,
actionIsImportant ,
constructActionIsImportant ,
getActionIsImportant ,
setActionIsImportant ,
ActionLabelPropertyInfo ,
actionLabel ,
constructActionLabel ,
getActionLabel ,
setActionLabel ,
ActionNamePropertyInfo ,
actionName ,
constructActionName ,
getActionName ,
ActionSensitivePropertyInfo ,
actionSensitive ,
constructActionSensitive ,
getActionSensitive ,
setActionSensitive ,
ActionShortLabelPropertyInfo ,
actionShortLabel ,
constructActionShortLabel ,
getActionShortLabel ,
setActionShortLabel ,
ActionStockIdPropertyInfo ,
actionStockId ,
constructActionStockId ,
getActionStockId ,
setActionStockId ,
ActionTooltipPropertyInfo ,
actionTooltip ,
constructActionTooltip ,
getActionTooltip ,
setActionTooltip ,
ActionVisiblePropertyInfo ,
actionVisible ,
constructActionVisible ,
getActionVisible ,
setActionVisible ,
ActionVisibleHorizontalPropertyInfo ,
actionVisibleHorizontal ,
constructActionVisibleHorizontal ,
getActionVisibleHorizontal ,
setActionVisibleHorizontal ,
ActionVisibleOverflownPropertyInfo ,
actionVisibleOverflown ,
constructActionVisibleOverflown ,
getActionVisibleOverflown ,
setActionVisibleOverflown ,
ActionVisibleVerticalPropertyInfo ,
actionVisibleVertical ,
constructActionVisibleVertical ,
getActionVisibleVertical ,
setActionVisibleVertical ,
ActionActivateCallback ,
ActionActivateSignalInfo ,
C_ActionActivateCallback ,
afterActionActivate ,
genClosure_ActionActivate ,
mk_ActionActivateCallback ,
noActionActivateCallback ,
onActionActivate ,
wrap_ActionActivateCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Objects.AccelGroup as Gtk.AccelGroup
import qualified GI.Gtk.Objects.ActionGroup as Gtk.ActionGroup
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Action = Action (ManagedPtr Action)
foreign import ccall "gtk_action_get_type"
c_gtk_action_get_type :: IO GType
instance GObject Action where
gobjectType _ = c_gtk_action_get_type
class GObject o => IsAction o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError Action a) =>
IsAction a
#endif
instance IsAction Action
instance GObject.Object.IsObject Action
instance Gtk.Buildable.IsBuildable Action
toAction :: IsAction 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 = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveActionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveActionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveActionMethod "blockActivate" o = ActionBlockActivateMethodInfo
ResolveActionMethod "connectAccelerator" o = ActionConnectAcceleratorMethodInfo
ResolveActionMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveActionMethod "createIcon" o = ActionCreateIconMethodInfo
ResolveActionMethod "createMenu" o = ActionCreateMenuMethodInfo
ResolveActionMethod "createMenuItem" o = ActionCreateMenuItemMethodInfo
ResolveActionMethod "createToolItem" o = ActionCreateToolItemMethodInfo
ResolveActionMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveActionMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveActionMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveActionMethod "disconnectAccelerator" o = ActionDisconnectAcceleratorMethodInfo
ResolveActionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveActionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveActionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveActionMethod "isSensitive" o = ActionIsSensitiveMethodInfo
ResolveActionMethod "isVisible" o = ActionIsVisibleMethodInfo
ResolveActionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveActionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveActionMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveActionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveActionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveActionMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveActionMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveActionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveActionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveActionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveActionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveActionMethod "unblockActivate" o = ActionUnblockActivateMethodInfo
ResolveActionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveActionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveActionMethod "getAccelClosure" o = ActionGetAccelClosureMethodInfo
ResolveActionMethod "getAccelPath" o = ActionGetAccelPathMethodInfo
ResolveActionMethod "getAlwaysShowImage" o = ActionGetAlwaysShowImageMethodInfo
ResolveActionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveActionMethod "getGicon" o = ActionGetGiconMethodInfo
ResolveActionMethod "getIconName" o = ActionGetIconNameMethodInfo
ResolveActionMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveActionMethod "getIsImportant" o = ActionGetIsImportantMethodInfo
ResolveActionMethod "getLabel" o = ActionGetLabelMethodInfo
ResolveActionMethod "getName" o = ActionGetNameMethodInfo
ResolveActionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveActionMethod "getProxies" o = ActionGetProxiesMethodInfo
ResolveActionMethod "getQdata" o = GObject.Object.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 = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveActionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveActionMethod "setGicon" o = ActionSetGiconMethodInfo
ResolveActionMethod "setIconName" o = ActionSetIconNameMethodInfo
ResolveActionMethod "setIsImportant" o = ActionSetIsImportantMethodInfo
ResolveActionMethod "setLabel" o = ActionSetLabelMethodInfo
ResolveActionMethod "setName" o = Gtk.Buildable.BuildableSetNameMethodInfo
ResolveActionMethod "setProperty" o = GObject.Object.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 = O.MethodResolutionFailed l o
instance (info ~ ResolveActionMethod t Action, O.MethodInfo info Action p) => O.IsLabelProxy t (Action -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveActionMethod t Action, O.MethodInfo info Action p) => O.IsLabel t (Action -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
type ActionActivateCallback =
IO ()
noActionActivateCallback :: Maybe ActionActivateCallback
noActionActivateCallback = Nothing
type C_ActionActivateCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ActionActivateCallback :: C_ActionActivateCallback -> IO (FunPtr C_ActionActivateCallback)
genClosure_ActionActivate :: ActionActivateCallback -> IO Closure
genClosure_ActionActivate cb = do
let cb' = wrap_ActionActivateCallback cb
mk_ActionActivateCallback cb' >>= newCClosure
wrap_ActionActivateCallback ::
ActionActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_ActionActivateCallback _cb _ _ = do
_cb
onActionActivate :: (IsAction a, MonadIO m) => a -> ActionActivateCallback -> m SignalHandlerId
onActionActivate obj cb = liftIO $ do
let cb' = wrap_ActionActivateCallback cb
cb'' <- mk_ActionActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' SignalConnectBefore
afterActionActivate :: (IsAction a, MonadIO m) => a -> ActionActivateCallback -> m SignalHandlerId
afterActionActivate obj cb = liftIO $ do
let cb' = wrap_ActionActivateCallback cb
cb'' <- mk_ActionActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' SignalConnectAfter
getActionActionGroup :: (MonadIO m, IsAction o) => o -> m (Maybe Gtk.ActionGroup.ActionGroup)
getActionActionGroup obj = liftIO $ getObjectPropertyObject obj "action-group" Gtk.ActionGroup.ActionGroup
setActionActionGroup :: (MonadIO m, IsAction o, Gtk.ActionGroup.IsActionGroup a) => o -> a -> m ()
setActionActionGroup obj val = liftIO $ setObjectPropertyObject obj "action-group" (Just val)
constructActionActionGroup :: (IsAction o, Gtk.ActionGroup.IsActionGroup a) => a -> IO (GValueConstruct o)
constructActionActionGroup val = constructObjectPropertyObject "action-group" (Just val)
clearActionActionGroup :: (MonadIO m, IsAction o) => o -> m ()
clearActionActionGroup obj = liftIO $ setObjectPropertyObject obj "action-group" (Nothing :: Maybe Gtk.ActionGroup.ActionGroup)
data ActionActionGroupPropertyInfo
instance AttrInfo ActionActionGroupPropertyInfo where
type AttrAllowedOps ActionActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ActionActionGroupPropertyInfo = Gtk.ActionGroup.IsActionGroup
type AttrBaseTypeConstraint ActionActionGroupPropertyInfo = IsAction
type AttrGetType ActionActionGroupPropertyInfo = (Maybe Gtk.ActionGroup.ActionGroup)
type AttrLabel ActionActionGroupPropertyInfo = "action-group"
type AttrOrigin ActionActionGroupPropertyInfo = Action
attrGet _ = getActionActionGroup
attrSet _ = setActionActionGroup
attrConstruct _ = constructActionActionGroup
attrClear _ = clearActionActionGroup
getActionAlwaysShowImage :: (MonadIO m, IsAction o) => o -> m Bool
getActionAlwaysShowImage obj = liftIO $ getObjectPropertyBool obj "always-show-image"
setActionAlwaysShowImage :: (MonadIO m, IsAction o) => o -> Bool -> m ()
setActionAlwaysShowImage obj val = liftIO $ setObjectPropertyBool obj "always-show-image" val
constructActionAlwaysShowImage :: (IsAction o) => Bool -> IO (GValueConstruct o)
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 = IsAction
type AttrGetType ActionAlwaysShowImagePropertyInfo = Bool
type AttrLabel ActionAlwaysShowImagePropertyInfo = "always-show-image"
type AttrOrigin ActionAlwaysShowImagePropertyInfo = Action
attrGet _ = getActionAlwaysShowImage
attrSet _ = setActionAlwaysShowImage
attrConstruct _ = constructActionAlwaysShowImage
attrClear _ = undefined
getActionGicon :: (MonadIO m, IsAction o) => o -> m Gio.Icon.Icon
getActionGicon obj = liftIO $ checkUnexpectedNothing "getActionGicon" $ getObjectPropertyObject obj "gicon" Gio.Icon.Icon
setActionGicon :: (MonadIO m, IsAction o, Gio.Icon.IsIcon a) => o -> a -> m ()
setActionGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" (Just val)
constructActionGicon :: (IsAction o, Gio.Icon.IsIcon a) => a -> IO (GValueConstruct o)
constructActionGicon val = constructObjectPropertyObject "gicon" (Just val)
data ActionGiconPropertyInfo
instance AttrInfo ActionGiconPropertyInfo where
type AttrAllowedOps ActionGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionGiconPropertyInfo = Gio.Icon.IsIcon
type AttrBaseTypeConstraint ActionGiconPropertyInfo = IsAction
type AttrGetType ActionGiconPropertyInfo = Gio.Icon.Icon
type AttrLabel ActionGiconPropertyInfo = "gicon"
type AttrOrigin ActionGiconPropertyInfo = Action
attrGet _ = getActionGicon
attrSet _ = setActionGicon
attrConstruct _ = constructActionGicon
attrClear _ = undefined
getActionHideIfEmpty :: (MonadIO m, IsAction o) => o -> m Bool
getActionHideIfEmpty obj = liftIO $ getObjectPropertyBool obj "hide-if-empty"
setActionHideIfEmpty :: (MonadIO m, IsAction o) => o -> Bool -> m ()
setActionHideIfEmpty obj val = liftIO $ setObjectPropertyBool obj "hide-if-empty" val
constructActionHideIfEmpty :: (IsAction o) => Bool -> IO (GValueConstruct o)
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 = IsAction
type AttrGetType ActionHideIfEmptyPropertyInfo = Bool
type AttrLabel ActionHideIfEmptyPropertyInfo = "hide-if-empty"
type AttrOrigin ActionHideIfEmptyPropertyInfo = Action
attrGet _ = getActionHideIfEmpty
attrSet _ = setActionHideIfEmpty
attrConstruct _ = constructActionHideIfEmpty
attrClear _ = undefined
getActionIconName :: (MonadIO m, IsAction o) => o -> m T.Text
getActionIconName obj = liftIO $ checkUnexpectedNothing "getActionIconName" $ getObjectPropertyString obj "icon-name"
setActionIconName :: (MonadIO m, IsAction o) => o -> T.Text -> m ()
setActionIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val)
constructActionIconName :: (IsAction o) => T.Text -> IO (GValueConstruct o)
constructActionIconName val = constructObjectPropertyString "icon-name" (Just val)
data ActionIconNamePropertyInfo
instance AttrInfo ActionIconNamePropertyInfo where
type AttrAllowedOps ActionIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionIconNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ActionIconNamePropertyInfo = IsAction
type AttrGetType ActionIconNamePropertyInfo = T.Text
type AttrLabel ActionIconNamePropertyInfo = "icon-name"
type AttrOrigin ActionIconNamePropertyInfo = Action
attrGet _ = getActionIconName
attrSet _ = setActionIconName
attrConstruct _ = constructActionIconName
attrClear _ = undefined
getActionIsImportant :: (MonadIO m, IsAction o) => o -> m Bool
getActionIsImportant obj = liftIO $ getObjectPropertyBool obj "is-important"
setActionIsImportant :: (MonadIO m, IsAction o) => o -> Bool -> m ()
setActionIsImportant obj val = liftIO $ setObjectPropertyBool obj "is-important" val
constructActionIsImportant :: (IsAction o) => Bool -> IO (GValueConstruct o)
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 = IsAction
type AttrGetType ActionIsImportantPropertyInfo = Bool
type AttrLabel ActionIsImportantPropertyInfo = "is-important"
type AttrOrigin ActionIsImportantPropertyInfo = Action
attrGet _ = getActionIsImportant
attrSet _ = setActionIsImportant
attrConstruct _ = constructActionIsImportant
attrClear _ = undefined
getActionLabel :: (MonadIO m, IsAction o) => o -> m T.Text
getActionLabel obj = liftIO $ checkUnexpectedNothing "getActionLabel" $ getObjectPropertyString obj "label"
setActionLabel :: (MonadIO m, IsAction o) => o -> T.Text -> m ()
setActionLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val)
constructActionLabel :: (IsAction o) => T.Text -> IO (GValueConstruct o)
constructActionLabel val = constructObjectPropertyString "label" (Just val)
data ActionLabelPropertyInfo
instance AttrInfo ActionLabelPropertyInfo where
type AttrAllowedOps ActionLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionLabelPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ActionLabelPropertyInfo = IsAction
type AttrGetType ActionLabelPropertyInfo = T.Text
type AttrLabel ActionLabelPropertyInfo = "label"
type AttrOrigin ActionLabelPropertyInfo = Action
attrGet _ = getActionLabel
attrSet _ = setActionLabel
attrConstruct _ = constructActionLabel
attrClear _ = undefined
getActionName :: (MonadIO m, IsAction o) => o -> m T.Text
getActionName obj = liftIO $ checkUnexpectedNothing "getActionName" $ getObjectPropertyString obj "name"
constructActionName :: (IsAction o) => T.Text -> IO (GValueConstruct o)
constructActionName val = constructObjectPropertyString "name" (Just val)
data ActionNamePropertyInfo
instance AttrInfo ActionNamePropertyInfo where
type AttrAllowedOps ActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ActionNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ActionNamePropertyInfo = IsAction
type AttrGetType ActionNamePropertyInfo = T.Text
type AttrLabel ActionNamePropertyInfo = "name"
type AttrOrigin ActionNamePropertyInfo = Action
attrGet _ = getActionName
attrSet _ = undefined
attrConstruct _ = constructActionName
attrClear _ = undefined
getActionSensitive :: (MonadIO m, IsAction o) => o -> m Bool
getActionSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive"
setActionSensitive :: (MonadIO m, IsAction o) => o -> Bool -> m ()
setActionSensitive obj val = liftIO $ setObjectPropertyBool obj "sensitive" val
constructActionSensitive :: (IsAction o) => Bool -> IO (GValueConstruct o)
constructActionSensitive val = constructObjectPropertyBool "sensitive" val
data ActionSensitivePropertyInfo
instance AttrInfo ActionSensitivePropertyInfo where
type AttrAllowedOps ActionSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionSensitivePropertyInfo = (~) Bool
type AttrBaseTypeConstraint ActionSensitivePropertyInfo = IsAction
type AttrGetType ActionSensitivePropertyInfo = Bool
type AttrLabel ActionSensitivePropertyInfo = "sensitive"
type AttrOrigin ActionSensitivePropertyInfo = Action
attrGet _ = getActionSensitive
attrSet _ = setActionSensitive
attrConstruct _ = constructActionSensitive
attrClear _ = undefined
getActionShortLabel :: (MonadIO m, IsAction o) => o -> m T.Text
getActionShortLabel obj = liftIO $ checkUnexpectedNothing "getActionShortLabel" $ getObjectPropertyString obj "short-label"
setActionShortLabel :: (MonadIO m, IsAction o) => o -> T.Text -> m ()
setActionShortLabel obj val = liftIO $ setObjectPropertyString obj "short-label" (Just val)
constructActionShortLabel :: (IsAction o) => T.Text -> IO (GValueConstruct o)
constructActionShortLabel val = constructObjectPropertyString "short-label" (Just val)
data ActionShortLabelPropertyInfo
instance AttrInfo ActionShortLabelPropertyInfo where
type AttrAllowedOps ActionShortLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionShortLabelPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ActionShortLabelPropertyInfo = IsAction
type AttrGetType ActionShortLabelPropertyInfo = T.Text
type AttrLabel ActionShortLabelPropertyInfo = "short-label"
type AttrOrigin ActionShortLabelPropertyInfo = Action
attrGet _ = getActionShortLabel
attrSet _ = setActionShortLabel
attrConstruct _ = constructActionShortLabel
attrClear _ = undefined
getActionStockId :: (MonadIO m, IsAction o) => o -> m T.Text
getActionStockId obj = liftIO $ checkUnexpectedNothing "getActionStockId" $ getObjectPropertyString obj "stock-id"
setActionStockId :: (MonadIO m, IsAction o) => o -> T.Text -> m ()
setActionStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" (Just val)
constructActionStockId :: (IsAction o) => T.Text -> IO (GValueConstruct o)
constructActionStockId val = constructObjectPropertyString "stock-id" (Just val)
data ActionStockIdPropertyInfo
instance AttrInfo ActionStockIdPropertyInfo where
type AttrAllowedOps ActionStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionStockIdPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ActionStockIdPropertyInfo = IsAction
type AttrGetType ActionStockIdPropertyInfo = T.Text
type AttrLabel ActionStockIdPropertyInfo = "stock-id"
type AttrOrigin ActionStockIdPropertyInfo = Action
attrGet _ = getActionStockId
attrSet _ = setActionStockId
attrConstruct _ = constructActionStockId
attrClear _ = undefined
getActionTooltip :: (MonadIO m, IsAction o) => o -> m T.Text
getActionTooltip obj = liftIO $ checkUnexpectedNothing "getActionTooltip" $ getObjectPropertyString obj "tooltip"
setActionTooltip :: (MonadIO m, IsAction o) => o -> T.Text -> m ()
setActionTooltip obj val = liftIO $ setObjectPropertyString obj "tooltip" (Just val)
constructActionTooltip :: (IsAction o) => T.Text -> IO (GValueConstruct o)
constructActionTooltip val = constructObjectPropertyString "tooltip" (Just val)
data ActionTooltipPropertyInfo
instance AttrInfo ActionTooltipPropertyInfo where
type AttrAllowedOps ActionTooltipPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionTooltipPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ActionTooltipPropertyInfo = IsAction
type AttrGetType ActionTooltipPropertyInfo = T.Text
type AttrLabel ActionTooltipPropertyInfo = "tooltip"
type AttrOrigin ActionTooltipPropertyInfo = Action
attrGet _ = getActionTooltip
attrSet _ = setActionTooltip
attrConstruct _ = constructActionTooltip
attrClear _ = undefined
getActionVisible :: (MonadIO m, IsAction o) => o -> m Bool
getActionVisible obj = liftIO $ getObjectPropertyBool obj "visible"
setActionVisible :: (MonadIO m, IsAction o) => o -> Bool -> m ()
setActionVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val
constructActionVisible :: (IsAction o) => Bool -> IO (GValueConstruct o)
constructActionVisible val = constructObjectPropertyBool "visible" val
data ActionVisiblePropertyInfo
instance AttrInfo ActionVisiblePropertyInfo where
type AttrAllowedOps ActionVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ActionVisiblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint ActionVisiblePropertyInfo = IsAction
type AttrGetType ActionVisiblePropertyInfo = Bool
type AttrLabel ActionVisiblePropertyInfo = "visible"
type AttrOrigin ActionVisiblePropertyInfo = Action
attrGet _ = getActionVisible
attrSet _ = setActionVisible
attrConstruct _ = constructActionVisible
attrClear _ = undefined
getActionVisibleHorizontal :: (MonadIO m, IsAction o) => o -> m Bool
getActionVisibleHorizontal obj = liftIO $ getObjectPropertyBool obj "visible-horizontal"
setActionVisibleHorizontal :: (MonadIO m, IsAction o) => o -> Bool -> m ()
setActionVisibleHorizontal obj val = liftIO $ setObjectPropertyBool obj "visible-horizontal" val
constructActionVisibleHorizontal :: (IsAction o) => Bool -> IO (GValueConstruct o)
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 = IsAction
type AttrGetType ActionVisibleHorizontalPropertyInfo = Bool
type AttrLabel ActionVisibleHorizontalPropertyInfo = "visible-horizontal"
type AttrOrigin ActionVisibleHorizontalPropertyInfo = Action
attrGet _ = getActionVisibleHorizontal
attrSet _ = setActionVisibleHorizontal
attrConstruct _ = constructActionVisibleHorizontal
attrClear _ = undefined
getActionVisibleOverflown :: (MonadIO m, IsAction o) => o -> m Bool
getActionVisibleOverflown obj = liftIO $ getObjectPropertyBool obj "visible-overflown"
setActionVisibleOverflown :: (MonadIO m, IsAction o) => o -> Bool -> m ()
setActionVisibleOverflown obj val = liftIO $ setObjectPropertyBool obj "visible-overflown" val
constructActionVisibleOverflown :: (IsAction o) => Bool -> IO (GValueConstruct o)
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 = IsAction
type AttrGetType ActionVisibleOverflownPropertyInfo = Bool
type AttrLabel ActionVisibleOverflownPropertyInfo = "visible-overflown"
type AttrOrigin ActionVisibleOverflownPropertyInfo = Action
attrGet _ = getActionVisibleOverflown
attrSet _ = setActionVisibleOverflown
attrConstruct _ = constructActionVisibleOverflown
attrClear _ = undefined
getActionVisibleVertical :: (MonadIO m, IsAction o) => o -> m Bool
getActionVisibleVertical obj = liftIO $ getObjectPropertyBool obj "visible-vertical"
setActionVisibleVertical :: (MonadIO m, IsAction o) => o -> Bool -> m ()
setActionVisibleVertical obj val = liftIO $ setObjectPropertyBool obj "visible-vertical" val
constructActionVisibleVertical :: (IsAction o) => Bool -> IO (GValueConstruct o)
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 = IsAction
type AttrGetType ActionVisibleVerticalPropertyInfo = Bool
type AttrLabel ActionVisibleVerticalPropertyInfo = "visible-vertical"
type AttrOrigin ActionVisibleVerticalPropertyInfo = Action
attrGet _ = getActionVisibleVertical
attrSet _ = setActionVisibleVertical
attrConstruct _ = constructActionVisibleVertical
attrClear _ = undefined
instance O.HasAttributeList Action
type instance O.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, *)])
actionActionGroup :: AttrLabelProxy "actionGroup"
actionActionGroup = AttrLabelProxy
actionAlwaysShowImage :: AttrLabelProxy "alwaysShowImage"
actionAlwaysShowImage = AttrLabelProxy
actionGicon :: AttrLabelProxy "gicon"
actionGicon = AttrLabelProxy
actionHideIfEmpty :: AttrLabelProxy "hideIfEmpty"
actionHideIfEmpty = AttrLabelProxy
actionIconName :: AttrLabelProxy "iconName"
actionIconName = AttrLabelProxy
actionIsImportant :: AttrLabelProxy "isImportant"
actionIsImportant = AttrLabelProxy
actionLabel :: AttrLabelProxy "label"
actionLabel = AttrLabelProxy
actionName :: AttrLabelProxy "name"
actionName = AttrLabelProxy
actionSensitive :: AttrLabelProxy "sensitive"
actionSensitive = AttrLabelProxy
actionShortLabel :: AttrLabelProxy "shortLabel"
actionShortLabel = AttrLabelProxy
actionStockId :: AttrLabelProxy "stockId"
actionStockId = AttrLabelProxy
actionTooltip :: AttrLabelProxy "tooltip"
actionTooltip = AttrLabelProxy
actionVisible :: AttrLabelProxy "visible"
actionVisible = AttrLabelProxy
actionVisibleHorizontal :: AttrLabelProxy "visibleHorizontal"
actionVisibleHorizontal = AttrLabelProxy
actionVisibleOverflown :: AttrLabelProxy "visibleOverflown"
actionVisibleOverflown = AttrLabelProxy
actionVisibleVertical :: AttrLabelProxy "visibleVertical"
actionVisibleVertical = AttrLabelProxy
data ActionActivateSignalInfo
instance SignalInfo ActionActivateSignalInfo where
type HaskellCallbackType ActionActivateSignalInfo = ActionActivateCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ActionActivateCallback cb
cb'' <- mk_ActionActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode
type instance O.SignalList Action = ActionSignalList
type ActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_action_new" gtk_action_new ::
CString ->
CString ->
CString ->
CString ->
IO (Ptr Action)
actionNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> Maybe (T.Text)
-> Maybe (T.Text)
-> Maybe (T.Text)
-> m Action
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 "actionNew" result
result' <- (wrapObject Action) result
freeMem name'
freeMem maybeLabel
freeMem maybeTooltip
freeMem maybeStockId
return result'
foreign import ccall "gtk_action_activate" gtk_action_activate ::
Ptr Action ->
IO ()
actionActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m ()
actionActivate action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
gtk_action_activate action'
touchManagedPtr action
return ()
data ActionActivateMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAction a) => O.MethodInfo ActionActivateMethodInfo a signature where
overloadedMethod _ = actionActivate
foreign import ccall "gtk_action_block_activate" gtk_action_block_activate ::
Ptr Action ->
IO ()
actionBlockActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m ()
actionBlockActivate action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
gtk_action_block_activate action'
touchManagedPtr action
return ()
data ActionBlockActivateMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAction a) => O.MethodInfo ActionBlockActivateMethodInfo a signature where
overloadedMethod _ = actionBlockActivate
foreign import ccall "gtk_action_connect_accelerator" gtk_action_connect_accelerator ::
Ptr Action ->
IO ()
actionConnectAccelerator ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m ()
actionConnectAccelerator action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
gtk_action_connect_accelerator action'
touchManagedPtr action
return ()
data ActionConnectAcceleratorMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAction a) => O.MethodInfo ActionConnectAcceleratorMethodInfo a signature where
overloadedMethod _ = actionConnectAccelerator
foreign import ccall "gtk_action_create_icon" gtk_action_create_icon ::
Ptr Action ->
Int32 ->
IO (Ptr Gtk.Widget.Widget)
actionCreateIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> Int32
-> m Gtk.Widget.Widget
actionCreateIcon action iconSize = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_create_icon action' iconSize
checkUnexpectedReturnNULL "actionCreateIcon" result
result' <- (newObject Gtk.Widget.Widget) result
touchManagedPtr action
return result'
data ActionCreateIconMethodInfo
instance (signature ~ (Int32 -> m Gtk.Widget.Widget), MonadIO m, IsAction a) => O.MethodInfo ActionCreateIconMethodInfo a signature where
overloadedMethod _ = actionCreateIcon
foreign import ccall "gtk_action_create_menu" gtk_action_create_menu ::
Ptr Action ->
IO (Ptr Gtk.Widget.Widget)
actionCreateMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m Gtk.Widget.Widget
actionCreateMenu action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_create_menu action'
checkUnexpectedReturnNULL "actionCreateMenu" result
result' <- (newObject Gtk.Widget.Widget) result
touchManagedPtr action
return result'
data ActionCreateMenuMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsAction a) => O.MethodInfo ActionCreateMenuMethodInfo a signature where
overloadedMethod _ = actionCreateMenu
foreign import ccall "gtk_action_create_menu_item" gtk_action_create_menu_item ::
Ptr Action ->
IO (Ptr Gtk.Widget.Widget)
actionCreateMenuItem ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m Gtk.Widget.Widget
actionCreateMenuItem action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_create_menu_item action'
checkUnexpectedReturnNULL "actionCreateMenuItem" result
result' <- (newObject Gtk.Widget.Widget) result
touchManagedPtr action
return result'
data ActionCreateMenuItemMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsAction a) => O.MethodInfo ActionCreateMenuItemMethodInfo a signature where
overloadedMethod _ = actionCreateMenuItem
foreign import ccall "gtk_action_create_tool_item" gtk_action_create_tool_item ::
Ptr Action ->
IO (Ptr Gtk.Widget.Widget)
actionCreateToolItem ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m Gtk.Widget.Widget
actionCreateToolItem action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_create_tool_item action'
checkUnexpectedReturnNULL "actionCreateToolItem" result
result' <- (newObject Gtk.Widget.Widget) result
touchManagedPtr action
return result'
data ActionCreateToolItemMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsAction a) => O.MethodInfo ActionCreateToolItemMethodInfo a signature where
overloadedMethod _ = actionCreateToolItem
foreign import ccall "gtk_action_disconnect_accelerator" gtk_action_disconnect_accelerator ::
Ptr Action ->
IO ()
actionDisconnectAccelerator ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m ()
actionDisconnectAccelerator action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
gtk_action_disconnect_accelerator action'
touchManagedPtr action
return ()
data ActionDisconnectAcceleratorMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAction a) => O.MethodInfo ActionDisconnectAcceleratorMethodInfo a signature where
overloadedMethod _ = actionDisconnectAccelerator
foreign import ccall "gtk_action_get_accel_closure" gtk_action_get_accel_closure ::
Ptr Action ->
IO (Ptr Closure)
actionGetAccelClosure ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m Closure
actionGetAccelClosure action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_accel_closure action'
checkUnexpectedReturnNULL "actionGetAccelClosure" result
result' <- (newBoxed Closure) result
touchManagedPtr action
return result'
data ActionGetAccelClosureMethodInfo
instance (signature ~ (m Closure), MonadIO m, IsAction a) => O.MethodInfo ActionGetAccelClosureMethodInfo a signature where
overloadedMethod _ = actionGetAccelClosure
foreign import ccall "gtk_action_get_accel_path" gtk_action_get_accel_path ::
Ptr Action ->
IO CString
actionGetAccelPath ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m T.Text
actionGetAccelPath action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_accel_path action'
checkUnexpectedReturnNULL "actionGetAccelPath" result
result' <- cstringToText result
touchManagedPtr action
return result'
data ActionGetAccelPathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAction a) => O.MethodInfo ActionGetAccelPathMethodInfo a signature where
overloadedMethod _ = actionGetAccelPath
foreign import ccall "gtk_action_get_always_show_image" gtk_action_get_always_show_image ::
Ptr Action ->
IO CInt
actionGetAlwaysShowImage ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m Bool
actionGetAlwaysShowImage action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_always_show_image action'
let result' = (/= 0) result
touchManagedPtr action
return result'
data ActionGetAlwaysShowImageMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionGetAlwaysShowImageMethodInfo a signature where
overloadedMethod _ = actionGetAlwaysShowImage
foreign import ccall "gtk_action_get_gicon" gtk_action_get_gicon ::
Ptr Action ->
IO (Ptr Gio.Icon.Icon)
actionGetGicon ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m Gio.Icon.Icon
actionGetGicon action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_gicon action'
checkUnexpectedReturnNULL "actionGetGicon" result
result' <- (newObject Gio.Icon.Icon) result
touchManagedPtr action
return result'
data ActionGetGiconMethodInfo
instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsAction a) => O.MethodInfo ActionGetGiconMethodInfo a signature where
overloadedMethod _ = actionGetGicon
foreign import ccall "gtk_action_get_icon_name" gtk_action_get_icon_name ::
Ptr Action ->
IO CString
actionGetIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m T.Text
actionGetIconName action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_icon_name action'
checkUnexpectedReturnNULL "actionGetIconName" result
result' <- cstringToText result
touchManagedPtr action
return result'
data ActionGetIconNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAction a) => O.MethodInfo ActionGetIconNameMethodInfo a signature where
overloadedMethod _ = actionGetIconName
foreign import ccall "gtk_action_get_is_important" gtk_action_get_is_important ::
Ptr Action ->
IO CInt
actionGetIsImportant ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m Bool
actionGetIsImportant action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_is_important action'
let result' = (/= 0) result
touchManagedPtr action
return result'
data ActionGetIsImportantMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionGetIsImportantMethodInfo a signature where
overloadedMethod _ = actionGetIsImportant
foreign import ccall "gtk_action_get_label" gtk_action_get_label ::
Ptr Action ->
IO CString
actionGetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m T.Text
actionGetLabel action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_label action'
checkUnexpectedReturnNULL "actionGetLabel" result
result' <- cstringToText result
touchManagedPtr action
return result'
data ActionGetLabelMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAction a) => O.MethodInfo ActionGetLabelMethodInfo a signature where
overloadedMethod _ = actionGetLabel
foreign import ccall "gtk_action_get_name" gtk_action_get_name ::
Ptr Action ->
IO CString
actionGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m T.Text
actionGetName action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_name action'
checkUnexpectedReturnNULL "actionGetName" result
result' <- cstringToText result
touchManagedPtr action
return result'
data ActionGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAction a) => O.MethodInfo ActionGetNameMethodInfo a signature where
overloadedMethod _ = actionGetName
foreign import ccall "gtk_action_get_proxies" gtk_action_get_proxies ::
Ptr Action ->
IO (Ptr (GSList (Ptr Gtk.Widget.Widget)))
actionGetProxies ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m [Gtk.Widget.Widget]
actionGetProxies action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_proxies action'
result' <- unpackGSList result
result'' <- mapM (newObject Gtk.Widget.Widget) result'
touchManagedPtr action
return result''
data ActionGetProxiesMethodInfo
instance (signature ~ (m [Gtk.Widget.Widget]), MonadIO m, IsAction a) => O.MethodInfo ActionGetProxiesMethodInfo a signature where
overloadedMethod _ = actionGetProxies
foreign import ccall "gtk_action_get_sensitive" gtk_action_get_sensitive ::
Ptr Action ->
IO CInt
actionGetSensitive ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m Bool
actionGetSensitive action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_sensitive action'
let result' = (/= 0) result
touchManagedPtr action
return result'
data ActionGetSensitiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionGetSensitiveMethodInfo a signature where
overloadedMethod _ = actionGetSensitive
foreign import ccall "gtk_action_get_short_label" gtk_action_get_short_label ::
Ptr Action ->
IO CString
actionGetShortLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m T.Text
actionGetShortLabel action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_short_label action'
checkUnexpectedReturnNULL "actionGetShortLabel" result
result' <- cstringToText result
touchManagedPtr action
return result'
data ActionGetShortLabelMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAction a) => O.MethodInfo ActionGetShortLabelMethodInfo a signature where
overloadedMethod _ = actionGetShortLabel
foreign import ccall "gtk_action_get_stock_id" gtk_action_get_stock_id ::
Ptr Action ->
IO CString
actionGetStockId ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m T.Text
actionGetStockId action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_stock_id action'
checkUnexpectedReturnNULL "actionGetStockId" result
result' <- cstringToText result
touchManagedPtr action
return result'
data ActionGetStockIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAction a) => O.MethodInfo ActionGetStockIdMethodInfo a signature where
overloadedMethod _ = actionGetStockId
foreign import ccall "gtk_action_get_tooltip" gtk_action_get_tooltip ::
Ptr Action ->
IO CString
actionGetTooltip ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m T.Text
actionGetTooltip action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_tooltip action'
checkUnexpectedReturnNULL "actionGetTooltip" result
result' <- cstringToText result
touchManagedPtr action
return result'
data ActionGetTooltipMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAction a) => O.MethodInfo ActionGetTooltipMethodInfo a signature where
overloadedMethod _ = actionGetTooltip
foreign import ccall "gtk_action_get_visible" gtk_action_get_visible ::
Ptr Action ->
IO CInt
actionGetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m Bool
actionGetVisible action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_visible action'
let result' = (/= 0) result
touchManagedPtr action
return result'
data ActionGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionGetVisibleMethodInfo a signature where
overloadedMethod _ = actionGetVisible
foreign import ccall "gtk_action_get_visible_horizontal" gtk_action_get_visible_horizontal ::
Ptr Action ->
IO CInt
actionGetVisibleHorizontal ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m Bool
actionGetVisibleHorizontal action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_visible_horizontal action'
let result' = (/= 0) result
touchManagedPtr action
return result'
data ActionGetVisibleHorizontalMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionGetVisibleHorizontalMethodInfo a signature where
overloadedMethod _ = actionGetVisibleHorizontal
foreign import ccall "gtk_action_get_visible_vertical" gtk_action_get_visible_vertical ::
Ptr Action ->
IO CInt
actionGetVisibleVertical ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m Bool
actionGetVisibleVertical action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_get_visible_vertical action'
let result' = (/= 0) result
touchManagedPtr action
return result'
data ActionGetVisibleVerticalMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionGetVisibleVerticalMethodInfo a signature where
overloadedMethod _ = actionGetVisibleVertical
foreign import ccall "gtk_action_is_sensitive" gtk_action_is_sensitive ::
Ptr Action ->
IO CInt
actionIsSensitive ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m Bool
actionIsSensitive action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_is_sensitive action'
let result' = (/= 0) result
touchManagedPtr action
return result'
data ActionIsSensitiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionIsSensitiveMethodInfo a signature where
overloadedMethod _ = actionIsSensitive
foreign import ccall "gtk_action_is_visible" gtk_action_is_visible ::
Ptr Action ->
IO CInt
actionIsVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m Bool
actionIsVisible action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
result <- gtk_action_is_visible action'
let result' = (/= 0) result
touchManagedPtr action
return result'
data ActionIsVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionIsVisibleMethodInfo a signature where
overloadedMethod _ = actionIsVisible
foreign import ccall "gtk_action_set_accel_group" gtk_action_set_accel_group ::
Ptr Action ->
Ptr Gtk.AccelGroup.AccelGroup ->
IO ()
actionSetAccelGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a, Gtk.AccelGroup.IsAccelGroup b) =>
a
-> Maybe (b)
-> m ()
actionSetAccelGroup action accelGroup = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
maybeAccelGroup <- case accelGroup of
Nothing -> return nullPtr
Just jAccelGroup -> do
jAccelGroup' <- unsafeManagedPtrCastPtr jAccelGroup
return jAccelGroup'
gtk_action_set_accel_group action' maybeAccelGroup
touchManagedPtr action
whenJust accelGroup touchManagedPtr
return ()
data ActionSetAccelGroupMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsAction a, Gtk.AccelGroup.IsAccelGroup b) => O.MethodInfo ActionSetAccelGroupMethodInfo a signature where
overloadedMethod _ = actionSetAccelGroup
foreign import ccall "gtk_action_set_accel_path" gtk_action_set_accel_path ::
Ptr Action ->
CString ->
IO ()
actionSetAccelPath ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> T.Text
-> m ()
actionSetAccelPath action accelPath = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
accelPath' <- textToCString accelPath
gtk_action_set_accel_path action' accelPath'
touchManagedPtr action
freeMem accelPath'
return ()
data ActionSetAccelPathMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetAccelPathMethodInfo a signature where
overloadedMethod _ = actionSetAccelPath
foreign import ccall "gtk_action_set_always_show_image" gtk_action_set_always_show_image ::
Ptr Action ->
CInt ->
IO ()
actionSetAlwaysShowImage ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> Bool
-> m ()
actionSetAlwaysShowImage action alwaysShow = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
let alwaysShow' = (fromIntegral . fromEnum) alwaysShow
gtk_action_set_always_show_image action' alwaysShow'
touchManagedPtr action
return ()
data ActionSetAlwaysShowImageMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetAlwaysShowImageMethodInfo a signature where
overloadedMethod _ = actionSetAlwaysShowImage
foreign import ccall "gtk_action_set_gicon" gtk_action_set_gicon ::
Ptr Action ->
Ptr Gio.Icon.Icon ->
IO ()
actionSetGicon ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a, Gio.Icon.IsIcon b) =>
a
-> b
-> m ()
actionSetGicon action icon = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
icon' <- unsafeManagedPtrCastPtr icon
gtk_action_set_gicon action' icon'
touchManagedPtr action
touchManagedPtr icon
return ()
data ActionSetGiconMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsAction a, Gio.Icon.IsIcon b) => O.MethodInfo ActionSetGiconMethodInfo a signature where
overloadedMethod _ = actionSetGicon
foreign import ccall "gtk_action_set_icon_name" gtk_action_set_icon_name ::
Ptr Action ->
CString ->
IO ()
actionSetIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> T.Text
-> m ()
actionSetIconName action iconName = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
iconName' <- textToCString iconName
gtk_action_set_icon_name action' iconName'
touchManagedPtr action
freeMem iconName'
return ()
data ActionSetIconNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetIconNameMethodInfo a signature where
overloadedMethod _ = actionSetIconName
foreign import ccall "gtk_action_set_is_important" gtk_action_set_is_important ::
Ptr Action ->
CInt ->
IO ()
actionSetIsImportant ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> Bool
-> m ()
actionSetIsImportant action isImportant = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
let isImportant' = (fromIntegral . fromEnum) isImportant
gtk_action_set_is_important action' isImportant'
touchManagedPtr action
return ()
data ActionSetIsImportantMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetIsImportantMethodInfo a signature where
overloadedMethod _ = actionSetIsImportant
foreign import ccall "gtk_action_set_label" gtk_action_set_label ::
Ptr Action ->
CString ->
IO ()
actionSetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> T.Text
-> m ()
actionSetLabel action label = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
label' <- textToCString label
gtk_action_set_label action' label'
touchManagedPtr action
freeMem label'
return ()
data ActionSetLabelMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetLabelMethodInfo a signature where
overloadedMethod _ = actionSetLabel
foreign import ccall "gtk_action_set_sensitive" gtk_action_set_sensitive ::
Ptr Action ->
CInt ->
IO ()
actionSetSensitive ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> Bool
-> m ()
actionSetSensitive action sensitive = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
let sensitive' = (fromIntegral . fromEnum) sensitive
gtk_action_set_sensitive action' sensitive'
touchManagedPtr action
return ()
data ActionSetSensitiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetSensitiveMethodInfo a signature where
overloadedMethod _ = actionSetSensitive
foreign import ccall "gtk_action_set_short_label" gtk_action_set_short_label ::
Ptr Action ->
CString ->
IO ()
actionSetShortLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> T.Text
-> m ()
actionSetShortLabel action shortLabel = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
shortLabel' <- textToCString shortLabel
gtk_action_set_short_label action' shortLabel'
touchManagedPtr action
freeMem shortLabel'
return ()
data ActionSetShortLabelMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetShortLabelMethodInfo a signature where
overloadedMethod _ = actionSetShortLabel
foreign import ccall "gtk_action_set_stock_id" gtk_action_set_stock_id ::
Ptr Action ->
CString ->
IO ()
actionSetStockId ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> T.Text
-> m ()
actionSetStockId action stockId = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
stockId' <- textToCString stockId
gtk_action_set_stock_id action' stockId'
touchManagedPtr action
freeMem stockId'
return ()
data ActionSetStockIdMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetStockIdMethodInfo a signature where
overloadedMethod _ = actionSetStockId
foreign import ccall "gtk_action_set_tooltip" gtk_action_set_tooltip ::
Ptr Action ->
CString ->
IO ()
actionSetTooltip ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> T.Text
-> m ()
actionSetTooltip action tooltip = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
tooltip' <- textToCString tooltip
gtk_action_set_tooltip action' tooltip'
touchManagedPtr action
freeMem tooltip'
return ()
data ActionSetTooltipMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetTooltipMethodInfo a signature where
overloadedMethod _ = actionSetTooltip
foreign import ccall "gtk_action_set_visible" gtk_action_set_visible ::
Ptr Action ->
CInt ->
IO ()
actionSetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> Bool
-> m ()
actionSetVisible action visible = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
let visible' = (fromIntegral . fromEnum) visible
gtk_action_set_visible action' visible'
touchManagedPtr action
return ()
data ActionSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetVisibleMethodInfo a signature where
overloadedMethod _ = actionSetVisible
foreign import ccall "gtk_action_set_visible_horizontal" gtk_action_set_visible_horizontal ::
Ptr Action ->
CInt ->
IO ()
actionSetVisibleHorizontal ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> Bool
-> m ()
actionSetVisibleHorizontal action visibleHorizontal = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
let visibleHorizontal' = (fromIntegral . fromEnum) visibleHorizontal
gtk_action_set_visible_horizontal action' visibleHorizontal'
touchManagedPtr action
return ()
data ActionSetVisibleHorizontalMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetVisibleHorizontalMethodInfo a signature where
overloadedMethod _ = actionSetVisibleHorizontal
foreign import ccall "gtk_action_set_visible_vertical" gtk_action_set_visible_vertical ::
Ptr Action ->
CInt ->
IO ()
actionSetVisibleVertical ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> Bool
-> m ()
actionSetVisibleVertical action visibleVertical = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
let visibleVertical' = (fromIntegral . fromEnum) visibleVertical
gtk_action_set_visible_vertical action' visibleVertical'
touchManagedPtr action
return ()
data ActionSetVisibleVerticalMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionSetVisibleVerticalMethodInfo a signature where
overloadedMethod _ = actionSetVisibleVertical
foreign import ccall "gtk_action_unblock_activate" gtk_action_unblock_activate ::
Ptr Action ->
IO ()
actionUnblockActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsAction a) =>
a
-> m ()
actionUnblockActivate action = liftIO $ do
action' <- unsafeManagedPtrCastPtr action
gtk_action_unblock_activate action'
touchManagedPtr action
return ()
data ActionUnblockActivateMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAction a) => O.MethodInfo ActionUnblockActivateMethodInfo a signature where
overloadedMethod _ = actionUnblockActivate