module GI.Atk.Objects.Object
(
Object(..) ,
ObjectK ,
toObject ,
noObject ,
objectAddRelationship ,
objectGetAttributes ,
objectGetDescription ,
objectGetIndexInParent ,
objectGetLayer ,
objectGetMdiZorder ,
objectGetNAccessibleChildren ,
objectGetName ,
objectGetObjectLocale ,
objectGetParent ,
objectGetRole ,
objectInitialize ,
objectNotifyStateChange ,
objectPeekParent ,
objectRefAccessibleChild ,
objectRefRelationSet ,
objectRefStateSet ,
objectRemovePropertyChangeHandler ,
objectRemoveRelationship ,
objectSetDescription ,
objectSetName ,
objectSetParent ,
objectSetRole ,
ObjectAccessibleComponentLayerPropertyInfo,
getObjectAccessibleComponentLayer ,
ObjectAccessibleComponentMdiZorderPropertyInfo,
getObjectAccessibleComponentMdiZorder ,
ObjectAccessibleDescriptionPropertyInfo ,
constructObjectAccessibleDescription ,
getObjectAccessibleDescription ,
setObjectAccessibleDescription ,
ObjectAccessibleHypertextNlinksPropertyInfo,
getObjectAccessibleHypertextNlinks ,
ObjectAccessibleNamePropertyInfo ,
constructObjectAccessibleName ,
getObjectAccessibleName ,
setObjectAccessibleName ,
ObjectAccessibleParentPropertyInfo ,
constructObjectAccessibleParent ,
getObjectAccessibleParent ,
setObjectAccessibleParent ,
ObjectAccessibleRolePropertyInfo ,
constructObjectAccessibleRole ,
getObjectAccessibleRole ,
setObjectAccessibleRole ,
ObjectAccessibleTableCaptionPropertyInfo,
constructObjectAccessibleTableCaption ,
getObjectAccessibleTableCaption ,
setObjectAccessibleTableCaption ,
ObjectAccessibleTableCaptionObjectPropertyInfo,
constructObjectAccessibleTableCaptionObject,
getObjectAccessibleTableCaptionObject ,
setObjectAccessibleTableCaptionObject ,
ObjectAccessibleTableColumnDescriptionPropertyInfo,
constructObjectAccessibleTableColumnDescription,
getObjectAccessibleTableColumnDescription,
setObjectAccessibleTableColumnDescription,
ObjectAccessibleTableColumnHeaderPropertyInfo,
constructObjectAccessibleTableColumnHeader,
getObjectAccessibleTableColumnHeader ,
setObjectAccessibleTableColumnHeader ,
ObjectAccessibleTableRowDescriptionPropertyInfo,
constructObjectAccessibleTableRowDescription,
getObjectAccessibleTableRowDescription ,
setObjectAccessibleTableRowDescription ,
ObjectAccessibleTableRowHeaderPropertyInfo,
constructObjectAccessibleTableRowHeader ,
getObjectAccessibleTableRowHeader ,
setObjectAccessibleTableRowHeader ,
ObjectAccessibleTableSummaryPropertyInfo,
constructObjectAccessibleTableSummary ,
getObjectAccessibleTableSummary ,
setObjectAccessibleTableSummary ,
ObjectAccessibleValuePropertyInfo ,
constructObjectAccessibleValue ,
getObjectAccessibleValue ,
setObjectAccessibleValue ,
ObjectActiveDescendantChangedCallback ,
ObjectActiveDescendantChangedCallbackC ,
ObjectActiveDescendantChangedSignalInfo ,
afterObjectActiveDescendantChanged ,
mkObjectActiveDescendantChangedCallback ,
noObjectActiveDescendantChangedCallback ,
objectActiveDescendantChangedCallbackWrapper,
objectActiveDescendantChangedClosure ,
onObjectActiveDescendantChanged ,
ObjectChildrenChangedCallback ,
ObjectChildrenChangedCallbackC ,
ObjectChildrenChangedSignalInfo ,
afterObjectChildrenChanged ,
mkObjectChildrenChangedCallback ,
noObjectChildrenChangedCallback ,
objectChildrenChangedCallbackWrapper ,
objectChildrenChangedClosure ,
onObjectChildrenChanged ,
ObjectFocusEventCallback ,
ObjectFocusEventCallbackC ,
ObjectFocusEventSignalInfo ,
afterObjectFocusEvent ,
mkObjectFocusEventCallback ,
noObjectFocusEventCallback ,
objectFocusEventCallbackWrapper ,
objectFocusEventClosure ,
onObjectFocusEvent ,
ObjectPropertyChangeCallback ,
ObjectPropertyChangeCallbackC ,
ObjectPropertyChangeSignalInfo ,
afterObjectPropertyChange ,
mkObjectPropertyChangeCallback ,
noObjectPropertyChangeCallback ,
objectPropertyChangeCallbackWrapper ,
objectPropertyChangeClosure ,
onObjectPropertyChange ,
ObjectStateChangeCallback ,
ObjectStateChangeCallbackC ,
ObjectStateChangeSignalInfo ,
afterObjectStateChange ,
mkObjectStateChangeCallback ,
noObjectStateChangeCallback ,
objectStateChangeCallbackWrapper ,
objectStateChangeClosure ,
onObjectStateChange ,
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 ObjectActiveDescendantChangedCallback =
Ptr () ->
IO ()
noObjectActiveDescendantChangedCallback :: Maybe ObjectActiveDescendantChangedCallback
noObjectActiveDescendantChangedCallback = Nothing
type ObjectActiveDescendantChangedCallbackC =
Ptr () ->
Ptr () ->
Ptr () ->
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
type ObjectChildrenChangedCallback =
Word32 ->
Ptr () ->
IO ()
noObjectChildrenChangedCallback :: Maybe ObjectChildrenChangedCallback
noObjectChildrenChangedCallback = Nothing
type ObjectChildrenChangedCallbackC =
Ptr () ->
Word32 ->
Ptr () ->
Ptr () ->
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
type ObjectFocusEventCallback =
Bool ->
IO ()
noObjectFocusEventCallback :: Maybe ObjectFocusEventCallback
noObjectFocusEventCallback = Nothing
type ObjectFocusEventCallbackC =
Ptr () ->
CInt ->
Ptr () ->
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
type ObjectPropertyChangeCallback =
Ptr () ->
IO ()
noObjectPropertyChangeCallback :: Maybe ObjectPropertyChangeCallback
noObjectPropertyChangeCallback = Nothing
type ObjectPropertyChangeCallbackC =
Ptr () ->
Ptr () ->
Ptr () ->
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
type ObjectStateChangeCallback =
T.Text ->
Bool ->
IO ()
noObjectStateChangeCallback :: Maybe ObjectStateChangeCallback
noObjectStateChangeCallback = Nothing
type ObjectStateChangeCallbackC =
Ptr () ->
CString ->
CInt ->
Ptr () ->
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
type ObjectVisibleDataChangedCallback =
IO ()
noObjectVisibleDataChangedCallback :: Maybe ObjectVisibleDataChangedCallback
noObjectVisibleDataChangedCallback = Nothing
type ObjectVisibleDataChangedCallbackC =
Ptr () ->
Ptr () ->
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
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 = "Object::accessible-component-layer"
attrGet _ = getObjectAccessibleComponentLayer
attrSet _ = undefined
attrConstruct _ = undefined
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 = "Object::accessible-component-mdi-zorder"
attrGet _ = getObjectAccessibleComponentMdiZorder
attrSet _ = undefined
attrConstruct _ = undefined
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 = "Object::accessible-description"
attrGet _ = getObjectAccessibleDescription
attrSet _ = setObjectAccessibleDescription
attrConstruct _ = constructObjectAccessibleDescription
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 = "Object::accessible-hypertext-nlinks"
attrGet _ = getObjectAccessibleHypertextNlinks
attrSet _ = undefined
attrConstruct _ = undefined
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 = "Object::accessible-name"
attrGet _ = getObjectAccessibleName
attrSet _ = setObjectAccessibleName
attrConstruct _ = constructObjectAccessibleName
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 = "Object::accessible-parent"
attrGet _ = getObjectAccessibleParent
attrSet _ = setObjectAccessibleParent
attrConstruct _ = constructObjectAccessibleParent
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 = "Object::accessible-role"
attrGet _ = getObjectAccessibleRole
attrSet _ = setObjectAccessibleRole
attrConstruct _ = constructObjectAccessibleRole
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 = "Object::accessible-table-caption"
attrGet _ = getObjectAccessibleTableCaption
attrSet _ = setObjectAccessibleTableCaption
attrConstruct _ = constructObjectAccessibleTableCaption
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 = "Object::accessible-table-caption-object"
attrGet _ = getObjectAccessibleTableCaptionObject
attrSet _ = setObjectAccessibleTableCaptionObject
attrConstruct _ = constructObjectAccessibleTableCaptionObject
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 = "Object::accessible-table-column-description"
attrGet _ = getObjectAccessibleTableColumnDescription
attrSet _ = setObjectAccessibleTableColumnDescription
attrConstruct _ = constructObjectAccessibleTableColumnDescription
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 = "Object::accessible-table-column-header"
attrGet _ = getObjectAccessibleTableColumnHeader
attrSet _ = setObjectAccessibleTableColumnHeader
attrConstruct _ = constructObjectAccessibleTableColumnHeader
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 = "Object::accessible-table-row-description"
attrGet _ = getObjectAccessibleTableRowDescription
attrSet _ = setObjectAccessibleTableRowDescription
attrConstruct _ = constructObjectAccessibleTableRowDescription
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 = "Object::accessible-table-row-header"
attrGet _ = getObjectAccessibleTableRowHeader
attrSet _ = setObjectAccessibleTableRowHeader
attrConstruct _ = constructObjectAccessibleTableRowHeader
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 = "Object::accessible-table-summary"
attrGet _ = getObjectAccessibleTableSummary
attrSet _ = setObjectAccessibleTableSummary
attrConstruct _ = constructObjectAccessibleTableSummary
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 = "Object::accessible-value"
attrGet _ = getObjectAccessibleValue
attrSet _ = setObjectAccessibleValue
attrConstruct _ = constructObjectAccessibleValue
type instance AttributeList Object = ObjectAttributeList
type ObjectAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", 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 = ('[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "atk_object_add_relationship" atk_object_add_relationship ::
Ptr Object ->
CUInt ->
Ptr Object ->
IO CInt
objectAddRelationship ::
(MonadIO m, ObjectK a, ObjectK b) =>
a ->
RelationType ->
b ->
m Bool
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'
foreign import ccall "atk_object_get_attributes" atk_object_get_attributes ::
Ptr Object ->
IO (Ptr (GSList (Ptr ())))
objectGetAttributes ::
(MonadIO m, ObjectK a) =>
a ->
m [Ptr ()]
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'
foreign import ccall "atk_object_get_description" atk_object_get_description ::
Ptr Object ->
IO CString
objectGetDescription ::
(MonadIO m, ObjectK a) =>
a ->
m T.Text
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'
foreign import ccall "atk_object_get_index_in_parent" atk_object_get_index_in_parent ::
Ptr Object ->
IO Int32
objectGetIndexInParent ::
(MonadIO m, ObjectK a) =>
a ->
m Int32
objectGetIndexInParent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_get_index_in_parent _obj'
touchManagedPtr _obj
return result
foreign import ccall "atk_object_get_layer" atk_object_get_layer ::
Ptr Object ->
IO CUInt
objectGetLayer ::
(MonadIO m, ObjectK a) =>
a ->
m Layer
objectGetLayer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_get_layer _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "atk_object_get_mdi_zorder" atk_object_get_mdi_zorder ::
Ptr Object ->
IO Int32
objectGetMdiZorder ::
(MonadIO m, ObjectK a) =>
a ->
m Int32
objectGetMdiZorder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_get_mdi_zorder _obj'
touchManagedPtr _obj
return result
foreign import ccall "atk_object_get_n_accessible_children" atk_object_get_n_accessible_children ::
Ptr Object ->
IO Int32
objectGetNAccessibleChildren ::
(MonadIO m, ObjectK a) =>
a ->
m Int32
objectGetNAccessibleChildren _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_get_n_accessible_children _obj'
touchManagedPtr _obj
return result
foreign import ccall "atk_object_get_name" atk_object_get_name ::
Ptr Object ->
IO CString
objectGetName ::
(MonadIO m, ObjectK a) =>
a ->
m T.Text
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'
foreign import ccall "atk_object_get_object_locale" atk_object_get_object_locale ::
Ptr Object ->
IO CString
objectGetObjectLocale ::
(MonadIO m, ObjectK a) =>
a ->
m T.Text
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'
foreign import ccall "atk_object_get_parent" atk_object_get_parent ::
Ptr Object ->
IO (Ptr Object)
objectGetParent ::
(MonadIO m, ObjectK a) =>
a ->
m Object
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'
foreign import ccall "atk_object_get_role" atk_object_get_role ::
Ptr Object ->
IO CUInt
objectGetRole ::
(MonadIO m, ObjectK a) =>
a ->
m Role
objectGetRole _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_object_get_role _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "atk_object_initialize" atk_object_initialize ::
Ptr Object ->
Ptr () ->
IO ()
objectInitialize ::
(MonadIO m, ObjectK a) =>
a ->
Ptr () ->
m ()
objectInitialize _obj data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
atk_object_initialize _obj' data_
touchManagedPtr _obj
return ()
foreign import ccall "atk_object_notify_state_change" atk_object_notify_state_change ::
Ptr Object ->
Word64 ->
CInt ->
IO ()
objectNotifyStateChange ::
(MonadIO m, ObjectK a) =>
a ->
Word64 ->
Bool ->
m ()
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 ()
foreign import ccall "atk_object_peek_parent" atk_object_peek_parent ::
Ptr Object ->
IO (Ptr Object)
objectPeekParent ::
(MonadIO m, ObjectK a) =>
a ->
m Object
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'
foreign import ccall "atk_object_ref_accessible_child" atk_object_ref_accessible_child ::
Ptr Object ->
Int32 ->
IO (Ptr Object)
objectRefAccessibleChild ::
(MonadIO m, ObjectK a) =>
a ->
Int32 ->
m Object
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'
foreign import ccall "atk_object_ref_relation_set" atk_object_ref_relation_set ::
Ptr Object ->
IO (Ptr RelationSet)
objectRefRelationSet ::
(MonadIO m, ObjectK a) =>
a ->
m RelationSet
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'
foreign import ccall "atk_object_ref_state_set" atk_object_ref_state_set ::
Ptr Object ->
IO (Ptr StateSet)
objectRefStateSet ::
(MonadIO m, ObjectK a) =>
a ->
m StateSet
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'
foreign import ccall "atk_object_remove_property_change_handler" atk_object_remove_property_change_handler ::
Ptr Object ->
Word32 ->
IO ()
objectRemovePropertyChangeHandler ::
(MonadIO m, ObjectK a) =>
a ->
Word32 ->
m ()
objectRemovePropertyChangeHandler _obj handler_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
atk_object_remove_property_change_handler _obj' handler_id
touchManagedPtr _obj
return ()
foreign import ccall "atk_object_remove_relationship" atk_object_remove_relationship ::
Ptr Object ->
CUInt ->
Ptr Object ->
IO CInt
objectRemoveRelationship ::
(MonadIO m, ObjectK a, ObjectK b) =>
a ->
RelationType ->
b ->
m Bool
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'
foreign import ccall "atk_object_set_description" atk_object_set_description ::
Ptr Object ->
CString ->
IO ()
objectSetDescription ::
(MonadIO m, ObjectK a) =>
a ->
T.Text ->
m ()
objectSetDescription _obj description = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
description' <- textToCString description
atk_object_set_description _obj' description'
touchManagedPtr _obj
freeMem description'
return ()
foreign import ccall "atk_object_set_name" atk_object_set_name ::
Ptr Object ->
CString ->
IO ()
objectSetName ::
(MonadIO m, ObjectK a) =>
a ->
T.Text ->
m ()
objectSetName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
atk_object_set_name _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
foreign import ccall "atk_object_set_parent" atk_object_set_parent ::
Ptr Object ->
Ptr Object ->
IO ()
objectSetParent ::
(MonadIO m, ObjectK a, ObjectK b) =>
a ->
b ->
m ()
objectSetParent _obj parent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let parent' = unsafeManagedPtrCastPtr parent
atk_object_set_parent _obj' parent'
touchManagedPtr _obj
touchManagedPtr parent
return ()
foreign import ccall "atk_object_set_role" atk_object_set_role ::
Ptr Object ->
CUInt ->
IO ()
objectSetRole ::
(MonadIO m, ObjectK a) =>
a ->
Role ->
m ()
objectSetRole _obj role = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let role' = (fromIntegral . fromEnum) role
atk_object_set_role _obj' role'
touchManagedPtr _obj
return ()