gi-atk-0.2.18.13: GI/Atk/Objects/Object.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.Atk.Objects.Object
(
-- * Exported types
Object(..) ,
ObjectK ,
toObject ,
noObject ,
-- * Methods
-- ** objectAddRelationship
ObjectAddRelationshipMethodInfo ,
objectAddRelationship ,
-- ** objectGetAttributes
ObjectGetAttributesMethodInfo ,
objectGetAttributes ,
-- ** objectGetDescription
ObjectGetDescriptionMethodInfo ,
objectGetDescription ,
-- ** objectGetIndexInParent
ObjectGetIndexInParentMethodInfo ,
objectGetIndexInParent ,
-- ** objectGetLayer
ObjectGetLayerMethodInfo ,
objectGetLayer ,
-- ** objectGetMdiZorder
ObjectGetMdiZorderMethodInfo ,
objectGetMdiZorder ,
-- ** objectGetNAccessibleChildren
ObjectGetNAccessibleChildrenMethodInfo ,
objectGetNAccessibleChildren ,
-- ** objectGetName
ObjectGetNameMethodInfo ,
objectGetName ,
-- ** objectGetObjectLocale
ObjectGetObjectLocaleMethodInfo ,
objectGetObjectLocale ,
-- ** objectGetParent
ObjectGetParentMethodInfo ,
objectGetParent ,
-- ** objectGetRole
ObjectGetRoleMethodInfo ,
objectGetRole ,
-- ** objectInitialize
ObjectInitializeMethodInfo ,
objectInitialize ,
-- ** objectNotifyStateChange
ObjectNotifyStateChangeMethodInfo ,
objectNotifyStateChange ,
-- ** objectPeekParent
ObjectPeekParentMethodInfo ,
objectPeekParent ,
-- ** objectRefAccessibleChild
ObjectRefAccessibleChildMethodInfo ,
objectRefAccessibleChild ,
-- ** objectRefRelationSet
ObjectRefRelationSetMethodInfo ,
objectRefRelationSet ,
-- ** objectRefStateSet
ObjectRefStateSetMethodInfo ,
objectRefStateSet ,
-- ** objectRemovePropertyChangeHandler
ObjectRemovePropertyChangeHandlerMethodInfo,
objectRemovePropertyChangeHandler ,
-- ** objectRemoveRelationship
ObjectRemoveRelationshipMethodInfo ,
objectRemoveRelationship ,
-- ** objectSetDescription
ObjectSetDescriptionMethodInfo ,
objectSetDescription ,
-- ** objectSetName
ObjectSetNameMethodInfo ,
objectSetName ,
-- ** objectSetParent
ObjectSetParentMethodInfo ,
objectSetParent ,
-- ** objectSetRole
ObjectSetRoleMethodInfo ,
objectSetRole ,
-- * Properties
-- ** AccessibleComponentLayer
ObjectAccessibleComponentLayerPropertyInfo,
getObjectAccessibleComponentLayer ,
-- ** AccessibleComponentMdiZorder
ObjectAccessibleComponentMdiZorderPropertyInfo,
getObjectAccessibleComponentMdiZorder ,
-- ** AccessibleDescription
ObjectAccessibleDescriptionPropertyInfo ,
constructObjectAccessibleDescription ,
getObjectAccessibleDescription ,
setObjectAccessibleDescription ,
-- ** AccessibleHypertextNlinks
ObjectAccessibleHypertextNlinksPropertyInfo,
getObjectAccessibleHypertextNlinks ,
-- ** AccessibleName
ObjectAccessibleNamePropertyInfo ,
constructObjectAccessibleName ,
getObjectAccessibleName ,
setObjectAccessibleName ,
-- ** AccessibleParent
ObjectAccessibleParentPropertyInfo ,
constructObjectAccessibleParent ,
getObjectAccessibleParent ,
setObjectAccessibleParent ,
-- ** AccessibleRole
ObjectAccessibleRolePropertyInfo ,
constructObjectAccessibleRole ,
getObjectAccessibleRole ,
setObjectAccessibleRole ,
-- ** AccessibleTableCaption
ObjectAccessibleTableCaptionPropertyInfo,
constructObjectAccessibleTableCaption ,
getObjectAccessibleTableCaption ,
setObjectAccessibleTableCaption ,
-- ** AccessibleTableCaptionObject
ObjectAccessibleTableCaptionObjectPropertyInfo,
constructObjectAccessibleTableCaptionObject,
getObjectAccessibleTableCaptionObject ,
setObjectAccessibleTableCaptionObject ,
-- ** AccessibleTableColumnDescription
ObjectAccessibleTableColumnDescriptionPropertyInfo,
constructObjectAccessibleTableColumnDescription,
getObjectAccessibleTableColumnDescription,
setObjectAccessibleTableColumnDescription,
-- ** AccessibleTableColumnHeader
ObjectAccessibleTableColumnHeaderPropertyInfo,
constructObjectAccessibleTableColumnHeader,
getObjectAccessibleTableColumnHeader ,
setObjectAccessibleTableColumnHeader ,
-- ** AccessibleTableRowDescription
ObjectAccessibleTableRowDescriptionPropertyInfo,
constructObjectAccessibleTableRowDescription,
getObjectAccessibleTableRowDescription ,
setObjectAccessibleTableRowDescription ,
-- ** AccessibleTableRowHeader
ObjectAccessibleTableRowHeaderPropertyInfo,
constructObjectAccessibleTableRowHeader ,
getObjectAccessibleTableRowHeader ,
setObjectAccessibleTableRowHeader ,
-- ** AccessibleTableSummary
ObjectAccessibleTableSummaryPropertyInfo,
constructObjectAccessibleTableSummary ,
getObjectAccessibleTableSummary ,
setObjectAccessibleTableSummary ,
-- ** AccessibleValue
ObjectAccessibleValuePropertyInfo ,
constructObjectAccessibleValue ,
getObjectAccessibleValue ,
setObjectAccessibleValue ,
-- * Signals
-- ** ActiveDescendantChanged
ObjectActiveDescendantChangedCallback ,
ObjectActiveDescendantChangedCallbackC ,
ObjectActiveDescendantChangedSignalInfo ,
afterObjectActiveDescendantChanged ,
mkObjectActiveDescendantChangedCallback ,
noObjectActiveDescendantChangedCallback ,
objectActiveDescendantChangedCallbackWrapper,
objectActiveDescendantChangedClosure ,
onObjectActiveDescendantChanged ,
-- ** ChildrenChanged
ObjectChildrenChangedCallback ,
ObjectChildrenChangedCallbackC ,
ObjectChildrenChangedSignalInfo ,
afterObjectChildrenChanged ,
mkObjectChildrenChangedCallback ,
noObjectChildrenChangedCallback ,
objectChildrenChangedCallbackWrapper ,
objectChildrenChangedClosure ,
onObjectChildrenChanged ,
-- ** FocusEvent
ObjectFocusEventCallback ,
ObjectFocusEventCallbackC ,
ObjectFocusEventSignalInfo ,
afterObjectFocusEvent ,
mkObjectFocusEventCallback ,
noObjectFocusEventCallback ,
objectFocusEventCallbackWrapper ,
objectFocusEventClosure ,
onObjectFocusEvent ,
-- ** PropertyChange
ObjectPropertyChangeCallback ,
ObjectPropertyChangeCallbackC ,
ObjectPropertyChangeSignalInfo ,
afterObjectPropertyChange ,
mkObjectPropertyChangeCallback ,
noObjectPropertyChangeCallback ,
objectPropertyChangeCallbackWrapper ,
objectPropertyChangeClosure ,
onObjectPropertyChange ,
-- ** StateChange
ObjectStateChangeCallback ,
ObjectStateChangeCallbackC ,
ObjectStateChangeSignalInfo ,
afterObjectStateChange ,
mkObjectStateChangeCallback ,
noObjectStateChangeCallback ,
objectStateChangeCallbackWrapper ,
objectStateChangeClosure ,
onObjectStateChange ,
-- ** VisibleDataChanged
ObjectVisibleDataChangedCallback ,
ObjectVisibleDataChangedCallbackC ,
ObjectVisibleDataChangedSignalInfo ,
afterObjectVisibleDataChanged ,
mkObjectVisibleDataChangedCallback ,
noObjectVisibleDataChangedCallback ,
objectVisibleDataChangedCallbackWrapper ,
objectVisibleDataChangedClosure ,
onObjectVisibleDataChanged ,
) 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.Atk.Types
import GI.Atk.Callbacks
import qualified GI.GObject as GObject
newtype Object = Object (ForeignPtr Object)
foreign import ccall "atk_object_get_type"
c_atk_object_get_type :: IO GType
type instance ParentTypes Object = ObjectParentTypes
type ObjectParentTypes = '[GObject.Object]
instance GObject Object where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_atk_object_get_type
class GObject o => ObjectK o
instance (GObject o, IsDescendantOf Object o) => ObjectK o
toObject :: ObjectK o => o -> IO Object
toObject = unsafeCastTo Object
noObject :: Maybe Object
noObject = Nothing
type family ResolveObjectMethod (t :: Symbol) (o :: *) :: * where
ResolveObjectMethod "addRelationship" o = ObjectAddRelationshipMethodInfo
ResolveObjectMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveObjectMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveObjectMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveObjectMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveObjectMethod "initialize" o = ObjectInitializeMethodInfo
ResolveObjectMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveObjectMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveObjectMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveObjectMethod "notifyStateChange" o = ObjectNotifyStateChangeMethodInfo
ResolveObjectMethod "peekParent" o = ObjectPeekParentMethodInfo
ResolveObjectMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveObjectMethod "refAccessibleChild" o = ObjectRefAccessibleChildMethodInfo
ResolveObjectMethod "refRelationSet" o = ObjectRefRelationSetMethodInfo
ResolveObjectMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveObjectMethod "refStateSet" o = ObjectRefStateSetMethodInfo
ResolveObjectMethod "removePropertyChangeHandler" o = ObjectRemovePropertyChangeHandlerMethodInfo
ResolveObjectMethod "removeRelationship" o = ObjectRemoveRelationshipMethodInfo
ResolveObjectMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveObjectMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveObjectMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveObjectMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveObjectMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveObjectMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveObjectMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveObjectMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveObjectMethod "getAttributes" o = ObjectGetAttributesMethodInfo
ResolveObjectMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveObjectMethod "getDescription" o = ObjectGetDescriptionMethodInfo
ResolveObjectMethod "getIndexInParent" o = ObjectGetIndexInParentMethodInfo
ResolveObjectMethod "getLayer" o = ObjectGetLayerMethodInfo
ResolveObjectMethod "getMdiZorder" o = ObjectGetMdiZorderMethodInfo
ResolveObjectMethod "getNAccessibleChildren" o = ObjectGetNAccessibleChildrenMethodInfo
ResolveObjectMethod "getName" o = ObjectGetNameMethodInfo
ResolveObjectMethod "getObjectLocale" o = ObjectGetObjectLocaleMethodInfo
ResolveObjectMethod "getParent" o = ObjectGetParentMethodInfo
ResolveObjectMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveObjectMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveObjectMethod "getRole" o = ObjectGetRoleMethodInfo
ResolveObjectMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveObjectMethod "setDescription" o = ObjectSetDescriptionMethodInfo
ResolveObjectMethod "setName" o = ObjectSetNameMethodInfo
ResolveObjectMethod "setParent" o = ObjectSetParentMethodInfo
ResolveObjectMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveObjectMethod "setRole" o = ObjectSetRoleMethodInfo
ResolveObjectMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveObjectMethod t Object, MethodInfo info Object p) => IsLabelProxy t (Object -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveObjectMethod t Object, MethodInfo info Object p) => IsLabel t (Object -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- signal Object::active-descendant-changed
type ObjectActiveDescendantChangedCallback =
Ptr () ->
IO ()
noObjectActiveDescendantChangedCallback :: Maybe ObjectActiveDescendantChangedCallback
noObjectActiveDescendantChangedCallback = Nothing
type ObjectActiveDescendantChangedCallbackC =
Ptr () -> -- object
Ptr () ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkObjectActiveDescendantChangedCallback :: ObjectActiveDescendantChangedCallbackC -> IO (FunPtr ObjectActiveDescendantChangedCallbackC)
objectActiveDescendantChangedClosure :: ObjectActiveDescendantChangedCallback -> IO Closure
objectActiveDescendantChangedClosure cb = newCClosure =<< mkObjectActiveDescendantChangedCallback wrapped
where wrapped = objectActiveDescendantChangedCallbackWrapper cb
objectActiveDescendantChangedCallbackWrapper ::
ObjectActiveDescendantChangedCallback ->
Ptr () ->
Ptr () ->
Ptr () ->
IO ()
objectActiveDescendantChangedCallbackWrapper _cb _ arg1 _ = do
_cb arg1
onObjectActiveDescendantChanged :: (GObject a, MonadIO m) => a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId
onObjectActiveDescendantChanged obj cb = liftIO $ connectObjectActiveDescendantChanged obj cb SignalConnectBefore
afterObjectActiveDescendantChanged :: (GObject a, MonadIO m) => a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId
afterObjectActiveDescendantChanged obj cb = connectObjectActiveDescendantChanged obj cb SignalConnectAfter
connectObjectActiveDescendantChanged :: (GObject a, MonadIO m) =>
a -> ObjectActiveDescendantChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectObjectActiveDescendantChanged obj cb after = liftIO $ do
cb' <- mkObjectActiveDescendantChangedCallback (objectActiveDescendantChangedCallbackWrapper cb)
connectSignalFunPtr obj "active-descendant-changed" cb' after
-- signal Object::children-changed
type ObjectChildrenChangedCallback =
Word32 ->
Ptr () ->
IO ()
noObjectChildrenChangedCallback :: Maybe ObjectChildrenChangedCallback
noObjectChildrenChangedCallback = Nothing
type ObjectChildrenChangedCallbackC =
Ptr () -> -- object
Word32 ->
Ptr () ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkObjectChildrenChangedCallback :: ObjectChildrenChangedCallbackC -> IO (FunPtr ObjectChildrenChangedCallbackC)
objectChildrenChangedClosure :: ObjectChildrenChangedCallback -> IO Closure
objectChildrenChangedClosure cb = newCClosure =<< mkObjectChildrenChangedCallback wrapped
where wrapped = objectChildrenChangedCallbackWrapper cb
objectChildrenChangedCallbackWrapper ::
ObjectChildrenChangedCallback ->
Ptr () ->
Word32 ->
Ptr () ->
Ptr () ->
IO ()
objectChildrenChangedCallbackWrapper _cb _ arg1 arg2 _ = do
_cb arg1 arg2
onObjectChildrenChanged :: (GObject a, MonadIO m) => a -> ObjectChildrenChangedCallback -> m SignalHandlerId
onObjectChildrenChanged obj cb = liftIO $ connectObjectChildrenChanged obj cb SignalConnectBefore
afterObjectChildrenChanged :: (GObject a, MonadIO m) => a -> ObjectChildrenChangedCallback -> m SignalHandlerId
afterObjectChildrenChanged obj cb = connectObjectChildrenChanged obj cb SignalConnectAfter
connectObjectChildrenChanged :: (GObject a, MonadIO m) =>
a -> ObjectChildrenChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectObjectChildrenChanged obj cb after = liftIO $ do
cb' <- mkObjectChildrenChangedCallback (objectChildrenChangedCallbackWrapper cb)
connectSignalFunPtr obj "children-changed" cb' after
-- signal Object::focus-event
type ObjectFocusEventCallback =
Bool ->
IO ()
noObjectFocusEventCallback :: Maybe ObjectFocusEventCallback
noObjectFocusEventCallback = Nothing
type ObjectFocusEventCallbackC =
Ptr () -> -- object
CInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkObjectFocusEventCallback :: ObjectFocusEventCallbackC -> IO (FunPtr ObjectFocusEventCallbackC)
objectFocusEventClosure :: ObjectFocusEventCallback -> IO Closure
objectFocusEventClosure cb = newCClosure =<< mkObjectFocusEventCallback wrapped
where wrapped = objectFocusEventCallbackWrapper cb
objectFocusEventCallbackWrapper ::
ObjectFocusEventCallback ->
Ptr () ->
CInt ->
Ptr () ->
IO ()
objectFocusEventCallbackWrapper _cb _ arg1 _ = do
let arg1' = (/= 0) arg1
_cb arg1'
onObjectFocusEvent :: (GObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId
onObjectFocusEvent obj cb = liftIO $ connectObjectFocusEvent obj cb SignalConnectBefore
afterObjectFocusEvent :: (GObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId
afterObjectFocusEvent obj cb = connectObjectFocusEvent obj cb SignalConnectAfter
connectObjectFocusEvent :: (GObject a, MonadIO m) =>
a -> ObjectFocusEventCallback -> SignalConnectMode -> m SignalHandlerId
connectObjectFocusEvent obj cb after = liftIO $ do
cb' <- mkObjectFocusEventCallback (objectFocusEventCallbackWrapper cb)
connectSignalFunPtr obj "focus-event" cb' after
-- signal Object::property-change
type ObjectPropertyChangeCallback =
Ptr () ->
IO ()
noObjectPropertyChangeCallback :: Maybe ObjectPropertyChangeCallback
noObjectPropertyChangeCallback = Nothing
type ObjectPropertyChangeCallbackC =
Ptr () -> -- object
Ptr () ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkObjectPropertyChangeCallback :: ObjectPropertyChangeCallbackC -> IO (FunPtr ObjectPropertyChangeCallbackC)
objectPropertyChangeClosure :: ObjectPropertyChangeCallback -> IO Closure
objectPropertyChangeClosure cb = newCClosure =<< mkObjectPropertyChangeCallback wrapped
where wrapped = objectPropertyChangeCallbackWrapper cb
objectPropertyChangeCallbackWrapper ::
ObjectPropertyChangeCallback ->
Ptr () ->
Ptr () ->
Ptr () ->
IO ()
objectPropertyChangeCallbackWrapper _cb _ arg1 _ = do
_cb arg1
onObjectPropertyChange :: (GObject a, MonadIO m) => a -> ObjectPropertyChangeCallback -> m SignalHandlerId
onObjectPropertyChange obj cb = liftIO $ connectObjectPropertyChange obj cb SignalConnectBefore
afterObjectPropertyChange :: (GObject a, MonadIO m) => a -> ObjectPropertyChangeCallback -> m SignalHandlerId
afterObjectPropertyChange obj cb = connectObjectPropertyChange obj cb SignalConnectAfter
connectObjectPropertyChange :: (GObject a, MonadIO m) =>
a -> ObjectPropertyChangeCallback -> SignalConnectMode -> m SignalHandlerId
connectObjectPropertyChange obj cb after = liftIO $ do
cb' <- mkObjectPropertyChangeCallback (objectPropertyChangeCallbackWrapper cb)
connectSignalFunPtr obj "property-change" cb' after
-- signal Object::state-change
type ObjectStateChangeCallback =
T.Text ->
Bool ->
IO ()
noObjectStateChangeCallback :: Maybe ObjectStateChangeCallback
noObjectStateChangeCallback = Nothing
type ObjectStateChangeCallbackC =
Ptr () -> -- object
CString ->
CInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkObjectStateChangeCallback :: ObjectStateChangeCallbackC -> IO (FunPtr ObjectStateChangeCallbackC)
objectStateChangeClosure :: ObjectStateChangeCallback -> IO Closure
objectStateChangeClosure cb = newCClosure =<< mkObjectStateChangeCallback wrapped
where wrapped = objectStateChangeCallbackWrapper cb
objectStateChangeCallbackWrapper ::
ObjectStateChangeCallback ->
Ptr () ->
CString ->
CInt ->
Ptr () ->
IO ()
objectStateChangeCallbackWrapper _cb _ arg1 arg2 _ = do
arg1' <- cstringToText arg1
let arg2' = (/= 0) arg2
_cb arg1' arg2'
onObjectStateChange :: (GObject a, MonadIO m) => a -> ObjectStateChangeCallback -> m SignalHandlerId
onObjectStateChange obj cb = liftIO $ connectObjectStateChange obj cb SignalConnectBefore
afterObjectStateChange :: (GObject a, MonadIO m) => a -> ObjectStateChangeCallback -> m SignalHandlerId
afterObjectStateChange obj cb = connectObjectStateChange obj cb SignalConnectAfter
connectObjectStateChange :: (GObject a, MonadIO m) =>
a -> ObjectStateChangeCallback -> SignalConnectMode -> m SignalHandlerId
connectObjectStateChange obj cb after = liftIO $ do
cb' <- mkObjectStateChangeCallback (objectStateChangeCallbackWrapper cb)
connectSignalFunPtr obj "state-change" cb' after
-- signal Object::visible-data-changed
type ObjectVisibleDataChangedCallback =
IO ()
noObjectVisibleDataChangedCallback :: Maybe ObjectVisibleDataChangedCallback
noObjectVisibleDataChangedCallback = Nothing
type ObjectVisibleDataChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkObjectVisibleDataChangedCallback :: ObjectVisibleDataChangedCallbackC -> IO (FunPtr ObjectVisibleDataChangedCallbackC)
objectVisibleDataChangedClosure :: ObjectVisibleDataChangedCallback -> IO Closure
objectVisibleDataChangedClosure cb = newCClosure =<< mkObjectVisibleDataChangedCallback wrapped
where wrapped = objectVisibleDataChangedCallbackWrapper cb
objectVisibleDataChangedCallbackWrapper ::
ObjectVisibleDataChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
objectVisibleDataChangedCallbackWrapper _cb _ _ = do
_cb
onObjectVisibleDataChanged :: (GObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId
onObjectVisibleDataChanged obj cb = liftIO $ connectObjectVisibleDataChanged obj cb SignalConnectBefore
afterObjectVisibleDataChanged :: (GObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId
afterObjectVisibleDataChanged obj cb = connectObjectVisibleDataChanged obj cb SignalConnectAfter
connectObjectVisibleDataChanged :: (GObject a, MonadIO m) =>
a -> ObjectVisibleDataChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectObjectVisibleDataChanged obj cb after = liftIO $ do
cb' <- mkObjectVisibleDataChangedCallback (objectVisibleDataChangedCallbackWrapper cb)
connectSignalFunPtr obj "visible-data-changed" cb' after
-- VVV Prop "accessible-component-layer"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable]
getObjectAccessibleComponentLayer :: (MonadIO m, ObjectK o) => o -> m Int32
getObjectAccessibleComponentLayer obj = liftIO $ getObjectPropertyCInt obj "accessible-component-layer"
data ObjectAccessibleComponentLayerPropertyInfo
instance AttrInfo ObjectAccessibleComponentLayerPropertyInfo where
type AttrAllowedOps ObjectAccessibleComponentLayerPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = (~) ()
type AttrBaseTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = ObjectK
type AttrGetType ObjectAccessibleComponentLayerPropertyInfo = Int32
type AttrLabel ObjectAccessibleComponentLayerPropertyInfo = "accessible-component-layer"
attrGet _ = getObjectAccessibleComponentLayer
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "accessible-component-mdi-zorder"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable]
getObjectAccessibleComponentMdiZorder :: (MonadIO m, ObjectK o) => o -> m Int32
getObjectAccessibleComponentMdiZorder obj = liftIO $ getObjectPropertyCInt obj "accessible-component-mdi-zorder"
data ObjectAccessibleComponentMdiZorderPropertyInfo
instance AttrInfo ObjectAccessibleComponentMdiZorderPropertyInfo where
type AttrAllowedOps ObjectAccessibleComponentMdiZorderPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = (~) ()
type AttrBaseTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = ObjectK
type AttrGetType ObjectAccessibleComponentMdiZorderPropertyInfo = Int32
type AttrLabel ObjectAccessibleComponentMdiZorderPropertyInfo = "accessible-component-mdi-zorder"
attrGet _ = getObjectAccessibleComponentMdiZorder
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "accessible-description"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
getObjectAccessibleDescription :: (MonadIO m, ObjectK o) => o -> m T.Text
getObjectAccessibleDescription obj = liftIO $ getObjectPropertyString obj "accessible-description"
setObjectAccessibleDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()
setObjectAccessibleDescription obj val = liftIO $ setObjectPropertyString obj "accessible-description" val
constructObjectAccessibleDescription :: T.Text -> IO ([Char], GValue)
constructObjectAccessibleDescription val = constructObjectPropertyString "accessible-description" val
data ObjectAccessibleDescriptionPropertyInfo
instance AttrInfo ObjectAccessibleDescriptionPropertyInfo where
type AttrAllowedOps ObjectAccessibleDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleDescriptionPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ObjectAccessibleDescriptionPropertyInfo = ObjectK
type AttrGetType ObjectAccessibleDescriptionPropertyInfo = T.Text
type AttrLabel ObjectAccessibleDescriptionPropertyInfo = "accessible-description"
attrGet _ = getObjectAccessibleDescription
attrSet _ = setObjectAccessibleDescription
attrConstruct _ = constructObjectAccessibleDescription
-- VVV Prop "accessible-hypertext-nlinks"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable]
getObjectAccessibleHypertextNlinks :: (MonadIO m, ObjectK o) => o -> m Int32
getObjectAccessibleHypertextNlinks obj = liftIO $ getObjectPropertyCInt obj "accessible-hypertext-nlinks"
data ObjectAccessibleHypertextNlinksPropertyInfo
instance AttrInfo ObjectAccessibleHypertextNlinksPropertyInfo where
type AttrAllowedOps ObjectAccessibleHypertextNlinksPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = (~) ()
type AttrBaseTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = ObjectK
type AttrGetType ObjectAccessibleHypertextNlinksPropertyInfo = Int32
type AttrLabel ObjectAccessibleHypertextNlinksPropertyInfo = "accessible-hypertext-nlinks"
attrGet _ = getObjectAccessibleHypertextNlinks
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "accessible-name"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
getObjectAccessibleName :: (MonadIO m, ObjectK o) => o -> m T.Text
getObjectAccessibleName obj = liftIO $ getObjectPropertyString obj "accessible-name"
setObjectAccessibleName :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()
setObjectAccessibleName obj val = liftIO $ setObjectPropertyString obj "accessible-name" val
constructObjectAccessibleName :: T.Text -> IO ([Char], GValue)
constructObjectAccessibleName val = constructObjectPropertyString "accessible-name" val
data ObjectAccessibleNamePropertyInfo
instance AttrInfo ObjectAccessibleNamePropertyInfo where
type AttrAllowedOps ObjectAccessibleNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ObjectAccessibleNamePropertyInfo = ObjectK
type AttrGetType ObjectAccessibleNamePropertyInfo = T.Text
type AttrLabel ObjectAccessibleNamePropertyInfo = "accessible-name"
attrGet _ = getObjectAccessibleName
attrSet _ = setObjectAccessibleName
attrConstruct _ = constructObjectAccessibleName
-- VVV Prop "accessible-parent"
-- Type: TInterface "Atk" "Object"
-- Flags: [PropertyReadable,PropertyWritable]
getObjectAccessibleParent :: (MonadIO m, ObjectK o) => o -> m Object
getObjectAccessibleParent obj = liftIO $ getObjectPropertyObject obj "accessible-parent" Object
setObjectAccessibleParent :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()
setObjectAccessibleParent obj val = liftIO $ setObjectPropertyObject obj "accessible-parent" val
constructObjectAccessibleParent :: (ObjectK a) => a -> IO ([Char], GValue)
constructObjectAccessibleParent val = constructObjectPropertyObject "accessible-parent" val
data ObjectAccessibleParentPropertyInfo
instance AttrInfo ObjectAccessibleParentPropertyInfo where
type AttrAllowedOps ObjectAccessibleParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleParentPropertyInfo = ObjectK
type AttrBaseTypeConstraint ObjectAccessibleParentPropertyInfo = ObjectK
type AttrGetType ObjectAccessibleParentPropertyInfo = Object
type AttrLabel ObjectAccessibleParentPropertyInfo = "accessible-parent"
attrGet _ = getObjectAccessibleParent
attrSet _ = setObjectAccessibleParent
attrConstruct _ = constructObjectAccessibleParent
-- VVV Prop "accessible-role"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
getObjectAccessibleRole :: (MonadIO m, ObjectK o) => o -> m Int32
getObjectAccessibleRole obj = liftIO $ getObjectPropertyCInt obj "accessible-role"
setObjectAccessibleRole :: (MonadIO m, ObjectK o) => o -> Int32 -> m ()
setObjectAccessibleRole obj val = liftIO $ setObjectPropertyCInt obj "accessible-role" val
constructObjectAccessibleRole :: Int32 -> IO ([Char], GValue)
constructObjectAccessibleRole val = constructObjectPropertyCInt "accessible-role" val
data ObjectAccessibleRolePropertyInfo
instance AttrInfo ObjectAccessibleRolePropertyInfo where
type AttrAllowedOps ObjectAccessibleRolePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleRolePropertyInfo = (~) Int32
type AttrBaseTypeConstraint ObjectAccessibleRolePropertyInfo = ObjectK
type AttrGetType ObjectAccessibleRolePropertyInfo = Int32
type AttrLabel ObjectAccessibleRolePropertyInfo = "accessible-role"
attrGet _ = getObjectAccessibleRole
attrSet _ = setObjectAccessibleRole
attrConstruct _ = constructObjectAccessibleRole
-- VVV Prop "accessible-table-caption"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
getObjectAccessibleTableCaption :: (MonadIO m, ObjectK o) => o -> m T.Text
getObjectAccessibleTableCaption obj = liftIO $ getObjectPropertyString obj "accessible-table-caption"
setObjectAccessibleTableCaption :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()
setObjectAccessibleTableCaption obj val = liftIO $ setObjectPropertyString obj "accessible-table-caption" val
constructObjectAccessibleTableCaption :: T.Text -> IO ([Char], GValue)
constructObjectAccessibleTableCaption val = constructObjectPropertyString "accessible-table-caption" val
data ObjectAccessibleTableCaptionPropertyInfo
instance AttrInfo ObjectAccessibleTableCaptionPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableCaptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = ObjectK
type AttrGetType ObjectAccessibleTableCaptionPropertyInfo = T.Text
type AttrLabel ObjectAccessibleTableCaptionPropertyInfo = "accessible-table-caption"
attrGet _ = getObjectAccessibleTableCaption
attrSet _ = setObjectAccessibleTableCaption
attrConstruct _ = constructObjectAccessibleTableCaption
-- VVV Prop "accessible-table-caption-object"
-- Type: TInterface "Atk" "Object"
-- Flags: [PropertyReadable,PropertyWritable]
getObjectAccessibleTableCaptionObject :: (MonadIO m, ObjectK o) => o -> m Object
getObjectAccessibleTableCaptionObject obj = liftIO $ getObjectPropertyObject obj "accessible-table-caption-object" Object
setObjectAccessibleTableCaptionObject :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()
setObjectAccessibleTableCaptionObject obj val = liftIO $ setObjectPropertyObject obj "accessible-table-caption-object" val
constructObjectAccessibleTableCaptionObject :: (ObjectK a) => a -> IO ([Char], GValue)
constructObjectAccessibleTableCaptionObject val = constructObjectPropertyObject "accessible-table-caption-object" val
data ObjectAccessibleTableCaptionObjectPropertyInfo
instance AttrInfo ObjectAccessibleTableCaptionObjectPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableCaptionObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = ObjectK
type AttrBaseTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = ObjectK
type AttrGetType ObjectAccessibleTableCaptionObjectPropertyInfo = Object
type AttrLabel ObjectAccessibleTableCaptionObjectPropertyInfo = "accessible-table-caption-object"
attrGet _ = getObjectAccessibleTableCaptionObject
attrSet _ = setObjectAccessibleTableCaptionObject
attrConstruct _ = constructObjectAccessibleTableCaptionObject
-- VVV Prop "accessible-table-column-description"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
getObjectAccessibleTableColumnDescription :: (MonadIO m, ObjectK o) => o -> m T.Text
getObjectAccessibleTableColumnDescription obj = liftIO $ getObjectPropertyString obj "accessible-table-column-description"
setObjectAccessibleTableColumnDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()
setObjectAccessibleTableColumnDescription obj val = liftIO $ setObjectPropertyString obj "accessible-table-column-description" val
constructObjectAccessibleTableColumnDescription :: T.Text -> IO ([Char], GValue)
constructObjectAccessibleTableColumnDescription val = constructObjectPropertyString "accessible-table-column-description" val
data ObjectAccessibleTableColumnDescriptionPropertyInfo
instance AttrInfo ObjectAccessibleTableColumnDescriptionPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableColumnDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = ObjectK
type AttrGetType ObjectAccessibleTableColumnDescriptionPropertyInfo = T.Text
type AttrLabel ObjectAccessibleTableColumnDescriptionPropertyInfo = "accessible-table-column-description"
attrGet _ = getObjectAccessibleTableColumnDescription
attrSet _ = setObjectAccessibleTableColumnDescription
attrConstruct _ = constructObjectAccessibleTableColumnDescription
-- VVV Prop "accessible-table-column-header"
-- Type: TInterface "Atk" "Object"
-- Flags: [PropertyReadable,PropertyWritable]
getObjectAccessibleTableColumnHeader :: (MonadIO m, ObjectK o) => o -> m Object
getObjectAccessibleTableColumnHeader obj = liftIO $ getObjectPropertyObject obj "accessible-table-column-header" Object
setObjectAccessibleTableColumnHeader :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()
setObjectAccessibleTableColumnHeader obj val = liftIO $ setObjectPropertyObject obj "accessible-table-column-header" val
constructObjectAccessibleTableColumnHeader :: (ObjectK a) => a -> IO ([Char], GValue)
constructObjectAccessibleTableColumnHeader val = constructObjectPropertyObject "accessible-table-column-header" val
data ObjectAccessibleTableColumnHeaderPropertyInfo
instance AttrInfo ObjectAccessibleTableColumnHeaderPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableColumnHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = ObjectK
type AttrBaseTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = ObjectK
type AttrGetType ObjectAccessibleTableColumnHeaderPropertyInfo = Object
type AttrLabel ObjectAccessibleTableColumnHeaderPropertyInfo = "accessible-table-column-header"
attrGet _ = getObjectAccessibleTableColumnHeader
attrSet _ = setObjectAccessibleTableColumnHeader
attrConstruct _ = constructObjectAccessibleTableColumnHeader
-- VVV Prop "accessible-table-row-description"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
getObjectAccessibleTableRowDescription :: (MonadIO m, ObjectK o) => o -> m T.Text
getObjectAccessibleTableRowDescription obj = liftIO $ getObjectPropertyString obj "accessible-table-row-description"
setObjectAccessibleTableRowDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()
setObjectAccessibleTableRowDescription obj val = liftIO $ setObjectPropertyString obj "accessible-table-row-description" val
constructObjectAccessibleTableRowDescription :: T.Text -> IO ([Char], GValue)
constructObjectAccessibleTableRowDescription val = constructObjectPropertyString "accessible-table-row-description" val
data ObjectAccessibleTableRowDescriptionPropertyInfo
instance AttrInfo ObjectAccessibleTableRowDescriptionPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableRowDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = ObjectK
type AttrGetType ObjectAccessibleTableRowDescriptionPropertyInfo = T.Text
type AttrLabel ObjectAccessibleTableRowDescriptionPropertyInfo = "accessible-table-row-description"
attrGet _ = getObjectAccessibleTableRowDescription
attrSet _ = setObjectAccessibleTableRowDescription
attrConstruct _ = constructObjectAccessibleTableRowDescription
-- VVV Prop "accessible-table-row-header"
-- Type: TInterface "Atk" "Object"
-- Flags: [PropertyReadable,PropertyWritable]
getObjectAccessibleTableRowHeader :: (MonadIO m, ObjectK o) => o -> m Object
getObjectAccessibleTableRowHeader obj = liftIO $ getObjectPropertyObject obj "accessible-table-row-header" Object
setObjectAccessibleTableRowHeader :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()
setObjectAccessibleTableRowHeader obj val = liftIO $ setObjectPropertyObject obj "accessible-table-row-header" val
constructObjectAccessibleTableRowHeader :: (ObjectK a) => a -> IO ([Char], GValue)
constructObjectAccessibleTableRowHeader val = constructObjectPropertyObject "accessible-table-row-header" val
data ObjectAccessibleTableRowHeaderPropertyInfo
instance AttrInfo ObjectAccessibleTableRowHeaderPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableRowHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = ObjectK
type AttrBaseTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = ObjectK
type AttrGetType ObjectAccessibleTableRowHeaderPropertyInfo = Object
type AttrLabel ObjectAccessibleTableRowHeaderPropertyInfo = "accessible-table-row-header"
attrGet _ = getObjectAccessibleTableRowHeader
attrSet _ = setObjectAccessibleTableRowHeader
attrConstruct _ = constructObjectAccessibleTableRowHeader
-- VVV Prop "accessible-table-summary"
-- Type: TInterface "Atk" "Object"
-- Flags: [PropertyReadable,PropertyWritable]
getObjectAccessibleTableSummary :: (MonadIO m, ObjectK o) => o -> m Object
getObjectAccessibleTableSummary obj = liftIO $ getObjectPropertyObject obj "accessible-table-summary" Object
setObjectAccessibleTableSummary :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()
setObjectAccessibleTableSummary obj val = liftIO $ setObjectPropertyObject obj "accessible-table-summary" val
constructObjectAccessibleTableSummary :: (ObjectK a) => a -> IO ([Char], GValue)
constructObjectAccessibleTableSummary val = constructObjectPropertyObject "accessible-table-summary" val
data ObjectAccessibleTableSummaryPropertyInfo
instance AttrInfo ObjectAccessibleTableSummaryPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = ObjectK
type AttrBaseTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = ObjectK
type AttrGetType ObjectAccessibleTableSummaryPropertyInfo = Object
type AttrLabel ObjectAccessibleTableSummaryPropertyInfo = "accessible-table-summary"
attrGet _ = getObjectAccessibleTableSummary
attrSet _ = setObjectAccessibleTableSummary
attrConstruct _ = constructObjectAccessibleTableSummary
-- VVV Prop "accessible-value"
-- Type: TBasicType TDouble
-- Flags: [PropertyReadable,PropertyWritable]
getObjectAccessibleValue :: (MonadIO m, ObjectK o) => o -> m Double
getObjectAccessibleValue obj = liftIO $ getObjectPropertyDouble obj "accessible-value"
setObjectAccessibleValue :: (MonadIO m, ObjectK o) => o -> Double -> m ()
setObjectAccessibleValue obj val = liftIO $ setObjectPropertyDouble obj "accessible-value" val
constructObjectAccessibleValue :: Double -> IO ([Char], GValue)
constructObjectAccessibleValue val = constructObjectPropertyDouble "accessible-value" val
data ObjectAccessibleValuePropertyInfo
instance AttrInfo ObjectAccessibleValuePropertyInfo where
type AttrAllowedOps ObjectAccessibleValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleValuePropertyInfo = (~) Double
type AttrBaseTypeConstraint ObjectAccessibleValuePropertyInfo = ObjectK
type AttrGetType ObjectAccessibleValuePropertyInfo = Double
type AttrLabel ObjectAccessibleValuePropertyInfo = "accessible-value"
attrGet _ = getObjectAccessibleValue
attrSet _ = setObjectAccessibleValue
attrConstruct _ = constructObjectAccessibleValue
type instance AttributeList Object = ObjectAttributeList
type ObjectAttributeList = ('[ '("accessibleComponentLayer", ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", ObjectAccessibleNamePropertyInfo), '("accessibleParent", ObjectAccessibleParentPropertyInfo), '("accessibleRole", ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)])
data ObjectActiveDescendantChangedSignalInfo
instance SignalInfo ObjectActiveDescendantChangedSignalInfo where
type HaskellCallbackType ObjectActiveDescendantChangedSignalInfo = ObjectActiveDescendantChangedCallback
connectSignal _ = connectObjectActiveDescendantChanged
data ObjectChildrenChangedSignalInfo
instance SignalInfo ObjectChildrenChangedSignalInfo where
type HaskellCallbackType ObjectChildrenChangedSignalInfo = ObjectChildrenChangedCallback
connectSignal _ = connectObjectChildrenChanged
data ObjectFocusEventSignalInfo
instance SignalInfo ObjectFocusEventSignalInfo where
type HaskellCallbackType ObjectFocusEventSignalInfo = ObjectFocusEventCallback
connectSignal _ = connectObjectFocusEvent
data ObjectPropertyChangeSignalInfo
instance SignalInfo ObjectPropertyChangeSignalInfo where
type HaskellCallbackType ObjectPropertyChangeSignalInfo = ObjectPropertyChangeCallback
connectSignal _ = connectObjectPropertyChange
data ObjectStateChangeSignalInfo
instance SignalInfo ObjectStateChangeSignalInfo where
type HaskellCallbackType ObjectStateChangeSignalInfo = ObjectStateChangeCallback
connectSignal _ = connectObjectStateChange
data ObjectVisibleDataChangedSignalInfo
instance SignalInfo ObjectVisibleDataChangedSignalInfo where
type HaskellCallbackType ObjectVisibleDataChangedSignalInfo = ObjectVisibleDataChangedCallback
connectSignal _ = connectObjectVisibleDataChanged
type instance SignalList Object = ObjectSignalList
type ObjectSignalList = ('[ '("activeDescendantChanged", ObjectActiveDescendantChangedSignalInfo), '("childrenChanged", ObjectChildrenChangedSignalInfo), '("focusEvent", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", ObjectPropertyChangeSignalInfo), '("stateChange", ObjectStateChangeSignalInfo), '("visibleDataChanged", ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)])
-- method Object::add_relationship
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Atk" "Object", 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 "atk_object_add_relationship" atk_object_add_relationship ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
CUInt -> -- relationship : TInterface "Atk" "RelationType"
Ptr Object -> -- target : TInterface "Atk" "Object"
IO CInt
objectAddRelationship ::
(MonadIO m, ObjectK a, ObjectK b) =>
a -- _obj
-> RelationType -- relationship
-> b -- target
-> m Bool -- result
objectAddRelationship _obj relationship target = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let relationship' = (fromIntegral . fromEnum) relationship
let target' = unsafeManagedPtrCastPtr target
result <- atk_object_add_relationship _obj' relationship' target'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr target
return result'
data ObjectAddRelationshipMethodInfo
instance (signature ~ (RelationType -> b -> m Bool), MonadIO m, ObjectK a, ObjectK b) => MethodInfo ObjectAddRelationshipMethodInfo a signature where
overloadedMethod _ = objectAddRelationship
-- method Object::get_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TGSList (TBasicType TVoid)
-- throws : False
-- Skip return : False
foreign import ccall "atk_object_get_attributes" atk_object_get_attributes ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
IO (Ptr (GSList (Ptr ())))
objectGetAttributes ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> m [Ptr ()] -- result
objectGetAttributes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_get_attributes _obj'
checkUnexpectedReturnNULL "atk_object_get_attributes" result
result' <- unpackGSList result
g_slist_free result
touchManagedPtr _obj
return result'
data ObjectGetAttributesMethodInfo
instance (signature ~ (m [Ptr ()]), MonadIO m, ObjectK a) => MethodInfo ObjectGetAttributesMethodInfo a signature where
overloadedMethod _ = objectGetAttributes
-- method Object::get_description
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", 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 "atk_object_get_description" atk_object_get_description ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
IO CString
objectGetDescription ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> m T.Text -- result
objectGetDescription _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_get_description _obj'
checkUnexpectedReturnNULL "atk_object_get_description" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data ObjectGetDescriptionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, ObjectK a) => MethodInfo ObjectGetDescriptionMethodInfo a signature where
overloadedMethod _ = objectGetDescription
-- method Object::get_index_in_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "atk_object_get_index_in_parent" atk_object_get_index_in_parent ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
IO Int32
objectGetIndexInParent ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> m Int32 -- result
objectGetIndexInParent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_get_index_in_parent _obj'
touchManagedPtr _obj
return result
data ObjectGetIndexInParentMethodInfo
instance (signature ~ (m Int32), MonadIO m, ObjectK a) => MethodInfo ObjectGetIndexInParentMethodInfo a signature where
overloadedMethod _ = objectGetIndexInParent
-- method Object::get_layer
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Atk" "Layer"
-- throws : False
-- Skip return : False
foreign import ccall "atk_object_get_layer" atk_object_get_layer ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
IO CUInt
{-# DEPRECATED objectGetLayer ["Use atk_component_get_layer instead."]#-}
objectGetLayer ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> m Layer -- result
objectGetLayer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_get_layer _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data ObjectGetLayerMethodInfo
instance (signature ~ (m Layer), MonadIO m, ObjectK a) => MethodInfo ObjectGetLayerMethodInfo a signature where
overloadedMethod _ = objectGetLayer
-- method Object::get_mdi_zorder
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "atk_object_get_mdi_zorder" atk_object_get_mdi_zorder ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
IO Int32
{-# DEPRECATED objectGetMdiZorder ["Use atk_component_get_mdi_zorder instead."]#-}
objectGetMdiZorder ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> m Int32 -- result
objectGetMdiZorder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_get_mdi_zorder _obj'
touchManagedPtr _obj
return result
data ObjectGetMdiZorderMethodInfo
instance (signature ~ (m Int32), MonadIO m, ObjectK a) => MethodInfo ObjectGetMdiZorderMethodInfo a signature where
overloadedMethod _ = objectGetMdiZorder
-- method Object::get_n_accessible_children
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "atk_object_get_n_accessible_children" atk_object_get_n_accessible_children ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
IO Int32
objectGetNAccessibleChildren ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> m Int32 -- result
objectGetNAccessibleChildren _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_get_n_accessible_children _obj'
touchManagedPtr _obj
return result
data ObjectGetNAccessibleChildrenMethodInfo
instance (signature ~ (m Int32), MonadIO m, ObjectK a) => MethodInfo ObjectGetNAccessibleChildrenMethodInfo a signature where
overloadedMethod _ = objectGetNAccessibleChildren
-- method Object::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", 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 "atk_object_get_name" atk_object_get_name ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
IO CString
objectGetName ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> m T.Text -- result
objectGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_get_name _obj'
checkUnexpectedReturnNULL "atk_object_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data ObjectGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, ObjectK a) => MethodInfo ObjectGetNameMethodInfo a signature where
overloadedMethod _ = objectGetName
-- method Object::get_object_locale
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", 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 "atk_object_get_object_locale" atk_object_get_object_locale ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
IO CString
objectGetObjectLocale ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> m T.Text -- result
objectGetObjectLocale _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_get_object_locale _obj'
checkUnexpectedReturnNULL "atk_object_get_object_locale" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data ObjectGetObjectLocaleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, ObjectK a) => MethodInfo ObjectGetObjectLocaleMethodInfo a signature where
overloadedMethod _ = objectGetObjectLocale
-- method Object::get_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Atk" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "atk_object_get_parent" atk_object_get_parent ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
IO (Ptr Object)
objectGetParent ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> m Object -- result
objectGetParent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_get_parent _obj'
checkUnexpectedReturnNULL "atk_object_get_parent" result
result' <- (newObject Object) result
touchManagedPtr _obj
return result'
data ObjectGetParentMethodInfo
instance (signature ~ (m Object), MonadIO m, ObjectK a) => MethodInfo ObjectGetParentMethodInfo a signature where
overloadedMethod _ = objectGetParent
-- method Object::get_role
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Atk" "Role"
-- throws : False
-- Skip return : False
foreign import ccall "atk_object_get_role" atk_object_get_role ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
IO CUInt
objectGetRole ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> m Role -- result
objectGetRole _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_get_role _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data ObjectGetRoleMethodInfo
instance (signature ~ (m Role), MonadIO m, ObjectK a) => MethodInfo ObjectGetRoleMethodInfo a signature where
overloadedMethod _ = objectGetRole
-- method Object::initialize
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, 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 "atk_object_initialize" atk_object_initialize ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
Ptr () -> -- data : TBasicType TVoid
IO ()
objectInitialize ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> Ptr () -- data_
-> m () -- result
objectInitialize _obj data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
atk_object_initialize _obj' data_
touchManagedPtr _obj
return ()
data ObjectInitializeMethodInfo
instance (signature ~ (Ptr () -> m ()), MonadIO m, ObjectK a) => MethodInfo ObjectInitializeMethodInfo a signature where
overloadedMethod _ = objectInitialize
-- method Object::notify_state_change
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", 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 "atk_object_notify_state_change" atk_object_notify_state_change ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
Word64 -> -- state : TBasicType TUInt64
CInt -> -- value : TBasicType TBoolean
IO ()
objectNotifyStateChange ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> Word64 -- state
-> Bool -- value
-> m () -- result
objectNotifyStateChange _obj state value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
atk_object_notify_state_change _obj' state value'
touchManagedPtr _obj
return ()
data ObjectNotifyStateChangeMethodInfo
instance (signature ~ (Word64 -> Bool -> m ()), MonadIO m, ObjectK a) => MethodInfo ObjectNotifyStateChangeMethodInfo a signature where
overloadedMethod _ = objectNotifyStateChange
-- method Object::peek_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Atk" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "atk_object_peek_parent" atk_object_peek_parent ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
IO (Ptr Object)
objectPeekParent ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> m Object -- result
objectPeekParent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_peek_parent _obj'
checkUnexpectedReturnNULL "atk_object_peek_parent" result
result' <- (newObject Object) result
touchManagedPtr _obj
return result'
data ObjectPeekParentMethodInfo
instance (signature ~ (m Object), MonadIO m, ObjectK a) => MethodInfo ObjectPeekParentMethodInfo a signature where
overloadedMethod _ = objectPeekParent
-- method Object::ref_accessible_child
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Atk" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "atk_object_ref_accessible_child" atk_object_ref_accessible_child ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
Int32 -> -- i : TBasicType TInt32
IO (Ptr Object)
objectRefAccessibleChild ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> Int32 -- i
-> m Object -- result
objectRefAccessibleChild _obj i = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_ref_accessible_child _obj' i
checkUnexpectedReturnNULL "atk_object_ref_accessible_child" result
result' <- (wrapObject Object) result
touchManagedPtr _obj
return result'
data ObjectRefAccessibleChildMethodInfo
instance (signature ~ (Int32 -> m Object), MonadIO m, ObjectK a) => MethodInfo ObjectRefAccessibleChildMethodInfo a signature where
overloadedMethod _ = objectRefAccessibleChild
-- method Object::ref_relation_set
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Atk" "RelationSet"
-- throws : False
-- Skip return : False
foreign import ccall "atk_object_ref_relation_set" atk_object_ref_relation_set ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
IO (Ptr RelationSet)
objectRefRelationSet ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> m RelationSet -- result
objectRefRelationSet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_ref_relation_set _obj'
checkUnexpectedReturnNULL "atk_object_ref_relation_set" result
result' <- (wrapObject RelationSet) result
touchManagedPtr _obj
return result'
data ObjectRefRelationSetMethodInfo
instance (signature ~ (m RelationSet), MonadIO m, ObjectK a) => MethodInfo ObjectRefRelationSetMethodInfo a signature where
overloadedMethod _ = objectRefRelationSet
-- method Object::ref_state_set
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Atk" "StateSet"
-- throws : False
-- Skip return : False
foreign import ccall "atk_object_ref_state_set" atk_object_ref_state_set ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
IO (Ptr StateSet)
objectRefStateSet ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> m StateSet -- result
objectRefStateSet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_ref_state_set _obj'
checkUnexpectedReturnNULL "atk_object_ref_state_set" result
result' <- (wrapObject StateSet) result
touchManagedPtr _obj
return result'
data ObjectRefStateSetMethodInfo
instance (signature ~ (m StateSet), MonadIO m, ObjectK a) => MethodInfo ObjectRefStateSetMethodInfo a signature where
overloadedMethod _ = objectRefStateSet
-- method Object::remove_property_change_handler
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler_id", argType = TBasicType TUInt32, 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 "atk_object_remove_property_change_handler" atk_object_remove_property_change_handler ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
Word32 -> -- handler_id : TBasicType TUInt32
IO ()
{-# DEPRECATED objectRemovePropertyChangeHandler ["Since 2.12.","","Removes a property change handler."]#-}
objectRemovePropertyChangeHandler ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> Word32 -- handlerId
-> m () -- result
objectRemovePropertyChangeHandler _obj handlerId = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
atk_object_remove_property_change_handler _obj' handlerId
touchManagedPtr _obj
return ()
data ObjectRemovePropertyChangeHandlerMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, ObjectK a) => MethodInfo ObjectRemovePropertyChangeHandlerMethodInfo a signature where
overloadedMethod _ = objectRemovePropertyChangeHandler
-- method Object::remove_relationship
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Atk" "Object", 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 "atk_object_remove_relationship" atk_object_remove_relationship ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
CUInt -> -- relationship : TInterface "Atk" "RelationType"
Ptr Object -> -- target : TInterface "Atk" "Object"
IO CInt
objectRemoveRelationship ::
(MonadIO m, ObjectK a, ObjectK b) =>
a -- _obj
-> RelationType -- relationship
-> b -- target
-> m Bool -- result
objectRemoveRelationship _obj relationship target = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let relationship' = (fromIntegral . fromEnum) relationship
let target' = unsafeManagedPtrCastPtr target
result <- atk_object_remove_relationship _obj' relationship' target'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr target
return result'
data ObjectRemoveRelationshipMethodInfo
instance (signature ~ (RelationType -> b -> m Bool), MonadIO m, ObjectK a, ObjectK b) => MethodInfo ObjectRemoveRelationshipMethodInfo a signature where
overloadedMethod _ = objectRemoveRelationship
-- method Object::set_description
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", 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 "atk_object_set_description" atk_object_set_description ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
CString -> -- description : TBasicType TUTF8
IO ()
objectSetDescription ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> T.Text -- description
-> m () -- result
objectSetDescription _obj description = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
description' <- textToCString description
atk_object_set_description _obj' description'
touchManagedPtr _obj
freeMem description'
return ()
data ObjectSetDescriptionMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, ObjectK a) => MethodInfo ObjectSetDescriptionMethodInfo a signature where
overloadedMethod _ = objectSetDescription
-- method Object::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "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 "atk_object_set_name" atk_object_set_name ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
CString -> -- name : TBasicType TUTF8
IO ()
objectSetName ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> T.Text -- name
-> m () -- result
objectSetName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
atk_object_set_name _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
data ObjectSetNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, ObjectK a) => MethodInfo ObjectSetNameMethodInfo a signature where
overloadedMethod _ = objectSetName
-- method Object::set_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Atk" "Object", 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 "atk_object_set_parent" atk_object_set_parent ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
Ptr Object -> -- parent : TInterface "Atk" "Object"
IO ()
objectSetParent ::
(MonadIO m, ObjectK a, ObjectK b) =>
a -- _obj
-> b -- parent
-> m () -- result
objectSetParent _obj parent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let parent' = unsafeManagedPtrCastPtr parent
atk_object_set_parent _obj' parent'
touchManagedPtr _obj
touchManagedPtr parent
return ()
data ObjectSetParentMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, ObjectK a, ObjectK b) => MethodInfo ObjectSetParentMethodInfo a signature where
overloadedMethod _ = objectSetParent
-- method Object::set_role
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "role", argType = TInterface "Atk" "Role", 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 "atk_object_set_role" atk_object_set_role ::
Ptr Object -> -- _obj : TInterface "Atk" "Object"
CUInt -> -- role : TInterface "Atk" "Role"
IO ()
objectSetRole ::
(MonadIO m, ObjectK a) =>
a -- _obj
-> Role -- role
-> m () -- result
objectSetRole _obj role = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let role' = (fromIntegral . fromEnum) role
atk_object_set_role _obj' role'
touchManagedPtr _obj
return ()
data ObjectSetRoleMethodInfo
instance (signature ~ (Role -> m ()), MonadIO m, ObjectK a) => MethodInfo ObjectSetRoleMethodInfo a signature where
overloadedMethod _ = objectSetRole