{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Atk.Objects.Object
(
Object(..) ,
IsObject ,
toObject ,
noObject ,
#if defined(ENABLE_OVERLOADING)
ResolveObjectMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ObjectAddRelationshipMethodInfo ,
#endif
objectAddRelationship ,
#if defined(ENABLE_OVERLOADING)
ObjectGetAccessibleIdMethodInfo ,
#endif
objectGetAccessibleId ,
#if defined(ENABLE_OVERLOADING)
ObjectGetAttributesMethodInfo ,
#endif
objectGetAttributes ,
#if defined(ENABLE_OVERLOADING)
ObjectGetDescriptionMethodInfo ,
#endif
objectGetDescription ,
#if defined(ENABLE_OVERLOADING)
ObjectGetIndexInParentMethodInfo ,
#endif
objectGetIndexInParent ,
#if defined(ENABLE_OVERLOADING)
ObjectGetLayerMethodInfo ,
#endif
objectGetLayer ,
#if defined(ENABLE_OVERLOADING)
ObjectGetMdiZorderMethodInfo ,
#endif
objectGetMdiZorder ,
#if defined(ENABLE_OVERLOADING)
ObjectGetNAccessibleChildrenMethodInfo ,
#endif
objectGetNAccessibleChildren ,
#if defined(ENABLE_OVERLOADING)
ObjectGetNameMethodInfo ,
#endif
objectGetName ,
#if defined(ENABLE_OVERLOADING)
ObjectGetObjectLocaleMethodInfo ,
#endif
objectGetObjectLocale ,
#if defined(ENABLE_OVERLOADING)
ObjectGetParentMethodInfo ,
#endif
objectGetParent ,
#if defined(ENABLE_OVERLOADING)
ObjectGetRoleMethodInfo ,
#endif
objectGetRole ,
#if defined(ENABLE_OVERLOADING)
ObjectInitializeMethodInfo ,
#endif
objectInitialize ,
#if defined(ENABLE_OVERLOADING)
ObjectNotifyStateChangeMethodInfo ,
#endif
objectNotifyStateChange ,
#if defined(ENABLE_OVERLOADING)
ObjectPeekParentMethodInfo ,
#endif
objectPeekParent ,
#if defined(ENABLE_OVERLOADING)
ObjectRefAccessibleChildMethodInfo ,
#endif
objectRefAccessibleChild ,
#if defined(ENABLE_OVERLOADING)
ObjectRefRelationSetMethodInfo ,
#endif
objectRefRelationSet ,
#if defined(ENABLE_OVERLOADING)
ObjectRefStateSetMethodInfo ,
#endif
objectRefStateSet ,
#if defined(ENABLE_OVERLOADING)
ObjectRemovePropertyChangeHandlerMethodInfo,
#endif
objectRemovePropertyChangeHandler ,
#if defined(ENABLE_OVERLOADING)
ObjectRemoveRelationshipMethodInfo ,
#endif
objectRemoveRelationship ,
#if defined(ENABLE_OVERLOADING)
ObjectSetAccessibleIdMethodInfo ,
#endif
objectSetAccessibleId ,
#if defined(ENABLE_OVERLOADING)
ObjectSetDescriptionMethodInfo ,
#endif
objectSetDescription ,
#if defined(ENABLE_OVERLOADING)
ObjectSetNameMethodInfo ,
#endif
objectSetName ,
#if defined(ENABLE_OVERLOADING)
ObjectSetParentMethodInfo ,
#endif
objectSetParent ,
#if defined(ENABLE_OVERLOADING)
ObjectSetRoleMethodInfo ,
#endif
objectSetRole ,
#if defined(ENABLE_OVERLOADING)
ObjectAccessibleComponentLayerPropertyInfo,
#endif
getObjectAccessibleComponentLayer ,
#if defined(ENABLE_OVERLOADING)
objectAccessibleComponentLayer ,
#endif
#if defined(ENABLE_OVERLOADING)
ObjectAccessibleComponentMdiZorderPropertyInfo,
#endif
getObjectAccessibleComponentMdiZorder ,
#if defined(ENABLE_OVERLOADING)
objectAccessibleComponentMdiZorder ,
#endif
#if defined(ENABLE_OVERLOADING)
ObjectAccessibleDescriptionPropertyInfo ,
#endif
clearObjectAccessibleDescription ,
constructObjectAccessibleDescription ,
getObjectAccessibleDescription ,
#if defined(ENABLE_OVERLOADING)
objectAccessibleDescription ,
#endif
setObjectAccessibleDescription ,
#if defined(ENABLE_OVERLOADING)
ObjectAccessibleHypertextNlinksPropertyInfo,
#endif
getObjectAccessibleHypertextNlinks ,
#if defined(ENABLE_OVERLOADING)
objectAccessibleHypertextNlinks ,
#endif
#if defined(ENABLE_OVERLOADING)
ObjectAccessibleNamePropertyInfo ,
#endif
clearObjectAccessibleName ,
constructObjectAccessibleName ,
getObjectAccessibleName ,
#if defined(ENABLE_OVERLOADING)
objectAccessibleName ,
#endif
setObjectAccessibleName ,
#if defined(ENABLE_OVERLOADING)
ObjectAccessibleParentPropertyInfo ,
#endif
clearObjectAccessibleParent ,
constructObjectAccessibleParent ,
getObjectAccessibleParent ,
#if defined(ENABLE_OVERLOADING)
objectAccessibleParent ,
#endif
setObjectAccessibleParent ,
#if defined(ENABLE_OVERLOADING)
ObjectAccessibleRolePropertyInfo ,
#endif
constructObjectAccessibleRole ,
getObjectAccessibleRole ,
#if defined(ENABLE_OVERLOADING)
objectAccessibleRole ,
#endif
setObjectAccessibleRole ,
#if defined(ENABLE_OVERLOADING)
ObjectAccessibleTableCaptionPropertyInfo,
#endif
clearObjectAccessibleTableCaption ,
constructObjectAccessibleTableCaption ,
getObjectAccessibleTableCaption ,
#if defined(ENABLE_OVERLOADING)
objectAccessibleTableCaption ,
#endif
setObjectAccessibleTableCaption ,
#if defined(ENABLE_OVERLOADING)
ObjectAccessibleTableCaptionObjectPropertyInfo,
#endif
clearObjectAccessibleTableCaptionObject ,
constructObjectAccessibleTableCaptionObject,
getObjectAccessibleTableCaptionObject ,
#if defined(ENABLE_OVERLOADING)
objectAccessibleTableCaptionObject ,
#endif
setObjectAccessibleTableCaptionObject ,
#if defined(ENABLE_OVERLOADING)
ObjectAccessibleTableColumnDescriptionPropertyInfo,
#endif
clearObjectAccessibleTableColumnDescription,
constructObjectAccessibleTableColumnDescription,
getObjectAccessibleTableColumnDescription,
#if defined(ENABLE_OVERLOADING)
objectAccessibleTableColumnDescription ,
#endif
setObjectAccessibleTableColumnDescription,
#if defined(ENABLE_OVERLOADING)
ObjectAccessibleTableColumnHeaderPropertyInfo,
#endif
clearObjectAccessibleTableColumnHeader ,
constructObjectAccessibleTableColumnHeader,
getObjectAccessibleTableColumnHeader ,
#if defined(ENABLE_OVERLOADING)
objectAccessibleTableColumnHeader ,
#endif
setObjectAccessibleTableColumnHeader ,
#if defined(ENABLE_OVERLOADING)
ObjectAccessibleTableRowDescriptionPropertyInfo,
#endif
clearObjectAccessibleTableRowDescription,
constructObjectAccessibleTableRowDescription,
getObjectAccessibleTableRowDescription ,
#if defined(ENABLE_OVERLOADING)
objectAccessibleTableRowDescription ,
#endif
setObjectAccessibleTableRowDescription ,
#if defined(ENABLE_OVERLOADING)
ObjectAccessibleTableRowHeaderPropertyInfo,
#endif
clearObjectAccessibleTableRowHeader ,
constructObjectAccessibleTableRowHeader ,
getObjectAccessibleTableRowHeader ,
#if defined(ENABLE_OVERLOADING)
objectAccessibleTableRowHeader ,
#endif
setObjectAccessibleTableRowHeader ,
#if defined(ENABLE_OVERLOADING)
ObjectAccessibleTableSummaryPropertyInfo,
#endif
clearObjectAccessibleTableSummary ,
constructObjectAccessibleTableSummary ,
getObjectAccessibleTableSummary ,
#if defined(ENABLE_OVERLOADING)
objectAccessibleTableSummary ,
#endif
setObjectAccessibleTableSummary ,
#if defined(ENABLE_OVERLOADING)
ObjectAccessibleValuePropertyInfo ,
#endif
constructObjectAccessibleValue ,
getObjectAccessibleValue ,
#if defined(ENABLE_OVERLOADING)
objectAccessibleValue ,
#endif
setObjectAccessibleValue ,
C_ObjectActiveDescendantChangedCallback ,
ObjectActiveDescendantChangedCallback ,
#if defined(ENABLE_OVERLOADING)
ObjectActiveDescendantChangedSignalInfo ,
#endif
afterObjectActiveDescendantChanged ,
genClosure_ObjectActiveDescendantChanged,
mk_ObjectActiveDescendantChangedCallback,
noObjectActiveDescendantChangedCallback ,
onObjectActiveDescendantChanged ,
wrap_ObjectActiveDescendantChangedCallback,
C_ObjectChildrenChangedCallback ,
ObjectChildrenChangedCallback ,
#if defined(ENABLE_OVERLOADING)
ObjectChildrenChangedSignalInfo ,
#endif
afterObjectChildrenChanged ,
genClosure_ObjectChildrenChanged ,
mk_ObjectChildrenChangedCallback ,
noObjectChildrenChangedCallback ,
onObjectChildrenChanged ,
wrap_ObjectChildrenChangedCallback ,
C_ObjectFocusEventCallback ,
ObjectFocusEventCallback ,
#if defined(ENABLE_OVERLOADING)
ObjectFocusEventSignalInfo ,
#endif
afterObjectFocusEvent ,
genClosure_ObjectFocusEvent ,
mk_ObjectFocusEventCallback ,
noObjectFocusEventCallback ,
onObjectFocusEvent ,
wrap_ObjectFocusEventCallback ,
C_ObjectPropertyChangeCallback ,
ObjectPropertyChangeCallback ,
#if defined(ENABLE_OVERLOADING)
ObjectPropertyChangeSignalInfo ,
#endif
afterObjectPropertyChange ,
genClosure_ObjectPropertyChange ,
mk_ObjectPropertyChangeCallback ,
noObjectPropertyChangeCallback ,
onObjectPropertyChange ,
wrap_ObjectPropertyChangeCallback ,
C_ObjectStateChangeCallback ,
ObjectStateChangeCallback ,
#if defined(ENABLE_OVERLOADING)
ObjectStateChangeSignalInfo ,
#endif
afterObjectStateChange ,
genClosure_ObjectStateChange ,
mk_ObjectStateChangeCallback ,
noObjectStateChangeCallback ,
onObjectStateChange ,
wrap_ObjectStateChangeCallback ,
C_ObjectVisibleDataChangedCallback ,
ObjectVisibleDataChangedCallback ,
#if defined(ENABLE_OVERLOADING)
ObjectVisibleDataChangedSignalInfo ,
#endif
afterObjectVisibleDataChanged ,
genClosure_ObjectVisibleDataChanged ,
mk_ObjectVisibleDataChangedCallback ,
noObjectVisibleDataChangedCallback ,
onObjectVisibleDataChanged ,
wrap_ObjectVisibleDataChangedCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import {-# SOURCE #-} qualified GI.Atk.Enums as Atk.Enums
import {-# SOURCE #-} qualified GI.Atk.Objects.RelationSet as Atk.RelationSet
import {-# SOURCE #-} qualified GI.Atk.Objects.StateSet as Atk.StateSet
import {-# SOURCE #-} qualified GI.Atk.Structs.PropertyValues as Atk.PropertyValues
import qualified GI.GObject.Objects.Object as GObject.Object
newtype Object = Object (ManagedPtr Object)
deriving (Eq)
foreign import ccall "atk_object_get_type"
c_atk_object_get_type :: IO GType
instance GObject Object where
gobjectType = c_atk_object_get_type
instance B.GValue.IsGValue Object where
toGValue o = do
gtype <- c_atk_object_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr Object)
B.ManagedPtr.newObject Object ptr
class (GObject o, O.IsDescendantOf Object o) => IsObject o
instance (GObject o, O.IsDescendantOf Object o) => IsObject o
instance O.HasParentTypes Object
type instance O.ParentTypes Object = '[GObject.Object.Object]
toObject :: (MonadIO m, IsObject o) => o -> m Object
toObject = liftIO . unsafeCastTo Object
noObject :: Maybe Object
noObject = Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveObjectMethod (t :: Symbol) (o :: *) :: * where
ResolveObjectMethod "addRelationship" o = ObjectAddRelationshipMethodInfo
ResolveObjectMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveObjectMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveObjectMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveObjectMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveObjectMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveObjectMethod "initialize" o = ObjectInitializeMethodInfo
ResolveObjectMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveObjectMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveObjectMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveObjectMethod "notifyStateChange" o = ObjectNotifyStateChangeMethodInfo
ResolveObjectMethod "peekParent" o = ObjectPeekParentMethodInfo
ResolveObjectMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveObjectMethod "refAccessibleChild" o = ObjectRefAccessibleChildMethodInfo
ResolveObjectMethod "refRelationSet" o = ObjectRefRelationSetMethodInfo
ResolveObjectMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveObjectMethod "refStateSet" o = ObjectRefStateSetMethodInfo
ResolveObjectMethod "removePropertyChangeHandler" o = ObjectRemovePropertyChangeHandlerMethodInfo
ResolveObjectMethod "removeRelationship" o = ObjectRemoveRelationshipMethodInfo
ResolveObjectMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveObjectMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveObjectMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveObjectMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveObjectMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveObjectMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveObjectMethod "getAccessibleId" o = ObjectGetAccessibleIdMethodInfo
ResolveObjectMethod "getAttributes" o = ObjectGetAttributesMethodInfo
ResolveObjectMethod "getData" o = GObject.Object.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.Object.ObjectGetPropertyMethodInfo
ResolveObjectMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveObjectMethod "getRole" o = ObjectGetRoleMethodInfo
ResolveObjectMethod "setAccessibleId" o = ObjectSetAccessibleIdMethodInfo
ResolveObjectMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveObjectMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveObjectMethod "setDescription" o = ObjectSetDescriptionMethodInfo
ResolveObjectMethod "setName" o = ObjectSetNameMethodInfo
ResolveObjectMethod "setParent" o = ObjectSetParentMethodInfo
ResolveObjectMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveObjectMethod "setRole" o = ObjectSetRoleMethodInfo
ResolveObjectMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveObjectMethod t Object, O.MethodInfo info Object p) => OL.IsLabel t (Object -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type ObjectActiveDescendantChangedCallback =
Maybe Object
-> IO ()
noObjectActiveDescendantChangedCallback :: Maybe ObjectActiveDescendantChangedCallback
noObjectActiveDescendantChangedCallback = Nothing
type C_ObjectActiveDescendantChangedCallback =
Ptr () ->
Ptr Object ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ObjectActiveDescendantChangedCallback :: C_ObjectActiveDescendantChangedCallback -> IO (FunPtr C_ObjectActiveDescendantChangedCallback)
genClosure_ObjectActiveDescendantChanged :: MonadIO m => ObjectActiveDescendantChangedCallback -> m (GClosure C_ObjectActiveDescendantChangedCallback)
genClosure_ObjectActiveDescendantChanged cb = liftIO $ do
let cb' = wrap_ObjectActiveDescendantChangedCallback cb
mk_ObjectActiveDescendantChangedCallback cb' >>= B.GClosure.newGClosure
wrap_ObjectActiveDescendantChangedCallback ::
ObjectActiveDescendantChangedCallback ->
C_ObjectActiveDescendantChangedCallback
wrap_ObjectActiveDescendantChangedCallback _cb _ arg1 _ = do
maybeArg1 <-
if arg1 == nullPtr
then return Nothing
else do
arg1' <- (newObject Object) arg1
return $ Just arg1'
_cb maybeArg1
onObjectActiveDescendantChanged :: (IsObject a, MonadIO m) => a -> P.Maybe T.Text -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId
onObjectActiveDescendantChanged obj detail cb = liftIO $ do
let cb' = wrap_ObjectActiveDescendantChangedCallback cb
cb'' <- mk_ObjectActiveDescendantChangedCallback cb'
connectSignalFunPtr obj "active-descendant-changed" cb'' SignalConnectBefore detail
afterObjectActiveDescendantChanged :: (IsObject a, MonadIO m) => a -> P.Maybe T.Text -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId
afterObjectActiveDescendantChanged obj detail cb = liftIO $ do
let cb' = wrap_ObjectActiveDescendantChangedCallback cb
cb'' <- mk_ObjectActiveDescendantChangedCallback cb'
connectSignalFunPtr obj "active-descendant-changed" cb'' SignalConnectAfter detail
#if defined(ENABLE_OVERLOADING)
data ObjectActiveDescendantChangedSignalInfo
instance SignalInfo ObjectActiveDescendantChangedSignalInfo where
type HaskellCallbackType ObjectActiveDescendantChangedSignalInfo = ObjectActiveDescendantChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ObjectActiveDescendantChangedCallback cb
cb'' <- mk_ObjectActiveDescendantChangedCallback cb'
connectSignalFunPtr obj "active-descendant-changed" cb'' connectMode detail
#endif
type ObjectChildrenChangedCallback =
Word32
-> Maybe Object
-> IO ()
noObjectChildrenChangedCallback :: Maybe ObjectChildrenChangedCallback
noObjectChildrenChangedCallback = Nothing
type C_ObjectChildrenChangedCallback =
Ptr () ->
Word32 ->
Ptr Object ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ObjectChildrenChangedCallback :: C_ObjectChildrenChangedCallback -> IO (FunPtr C_ObjectChildrenChangedCallback)
genClosure_ObjectChildrenChanged :: MonadIO m => ObjectChildrenChangedCallback -> m (GClosure C_ObjectChildrenChangedCallback)
genClosure_ObjectChildrenChanged cb = liftIO $ do
let cb' = wrap_ObjectChildrenChangedCallback cb
mk_ObjectChildrenChangedCallback cb' >>= B.GClosure.newGClosure
wrap_ObjectChildrenChangedCallback ::
ObjectChildrenChangedCallback ->
C_ObjectChildrenChangedCallback
wrap_ObjectChildrenChangedCallback _cb _ arg1 arg2 _ = do
maybeArg2 <-
if arg2 == nullPtr
then return Nothing
else do
arg2' <- (newObject Object) arg2
return $ Just arg2'
_cb arg1 maybeArg2
onObjectChildrenChanged :: (IsObject a, MonadIO m) => a -> P.Maybe T.Text -> ObjectChildrenChangedCallback -> m SignalHandlerId
onObjectChildrenChanged obj detail cb = liftIO $ do
let cb' = wrap_ObjectChildrenChangedCallback cb
cb'' <- mk_ObjectChildrenChangedCallback cb'
connectSignalFunPtr obj "children-changed" cb'' SignalConnectBefore detail
afterObjectChildrenChanged :: (IsObject a, MonadIO m) => a -> P.Maybe T.Text -> ObjectChildrenChangedCallback -> m SignalHandlerId
afterObjectChildrenChanged obj detail cb = liftIO $ do
let cb' = wrap_ObjectChildrenChangedCallback cb
cb'' <- mk_ObjectChildrenChangedCallback cb'
connectSignalFunPtr obj "children-changed" cb'' SignalConnectAfter detail
#if defined(ENABLE_OVERLOADING)
data ObjectChildrenChangedSignalInfo
instance SignalInfo ObjectChildrenChangedSignalInfo where
type HaskellCallbackType ObjectChildrenChangedSignalInfo = ObjectChildrenChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ObjectChildrenChangedCallback cb
cb'' <- mk_ObjectChildrenChangedCallback cb'
connectSignalFunPtr obj "children-changed" cb'' connectMode detail
#endif
{-# DEPRECATED ObjectFocusEventCallback ["(Since version 2.9.4)","Use the [stateChange](\"GI.Atk.Objects.Object#signal:stateChange\") signal instead."] #-}
type ObjectFocusEventCallback =
Bool
-> IO ()
noObjectFocusEventCallback :: Maybe ObjectFocusEventCallback
noObjectFocusEventCallback = Nothing
type C_ObjectFocusEventCallback =
Ptr () ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ObjectFocusEventCallback :: C_ObjectFocusEventCallback -> IO (FunPtr C_ObjectFocusEventCallback)
genClosure_ObjectFocusEvent :: MonadIO m => ObjectFocusEventCallback -> m (GClosure C_ObjectFocusEventCallback)
genClosure_ObjectFocusEvent cb = liftIO $ do
let cb' = wrap_ObjectFocusEventCallback cb
mk_ObjectFocusEventCallback cb' >>= B.GClosure.newGClosure
wrap_ObjectFocusEventCallback ::
ObjectFocusEventCallback ->
C_ObjectFocusEventCallback
wrap_ObjectFocusEventCallback _cb _ arg1 _ = do
let arg1' = (/= 0) arg1
_cb arg1'
onObjectFocusEvent :: (IsObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId
onObjectFocusEvent obj cb = liftIO $ do
let cb' = wrap_ObjectFocusEventCallback cb
cb'' <- mk_ObjectFocusEventCallback cb'
connectSignalFunPtr obj "focus-event" cb'' SignalConnectBefore Nothing
afterObjectFocusEvent :: (IsObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId
afterObjectFocusEvent obj cb = liftIO $ do
let cb' = wrap_ObjectFocusEventCallback cb
cb'' <- mk_ObjectFocusEventCallback cb'
connectSignalFunPtr obj "focus-event" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data ObjectFocusEventSignalInfo
instance SignalInfo ObjectFocusEventSignalInfo where
type HaskellCallbackType ObjectFocusEventSignalInfo = ObjectFocusEventCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ObjectFocusEventCallback cb
cb'' <- mk_ObjectFocusEventCallback cb'
connectSignalFunPtr obj "focus-event" cb'' connectMode detail
#endif
type ObjectPropertyChangeCallback =
Maybe Atk.PropertyValues.PropertyValues
-> IO ()
noObjectPropertyChangeCallback :: Maybe ObjectPropertyChangeCallback
noObjectPropertyChangeCallback = Nothing
type C_ObjectPropertyChangeCallback =
Ptr () ->
Ptr Atk.PropertyValues.PropertyValues ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ObjectPropertyChangeCallback :: C_ObjectPropertyChangeCallback -> IO (FunPtr C_ObjectPropertyChangeCallback)
genClosure_ObjectPropertyChange :: MonadIO m => ObjectPropertyChangeCallback -> m (GClosure C_ObjectPropertyChangeCallback)
genClosure_ObjectPropertyChange cb = liftIO $ do
let cb' = wrap_ObjectPropertyChangeCallback cb
mk_ObjectPropertyChangeCallback cb' >>= B.GClosure.newGClosure
wrap_ObjectPropertyChangeCallback ::
ObjectPropertyChangeCallback ->
C_ObjectPropertyChangeCallback
wrap_ObjectPropertyChangeCallback _cb _ arg1 _ = do
maybeArg1 <-
if arg1 == nullPtr
then return Nothing
else do
arg1' <- (newPtr Atk.PropertyValues.PropertyValues) arg1
return $ Just arg1'
_cb maybeArg1
onObjectPropertyChange :: (IsObject a, MonadIO m) => a -> P.Maybe T.Text -> ObjectPropertyChangeCallback -> m SignalHandlerId
onObjectPropertyChange obj detail cb = liftIO $ do
let cb' = wrap_ObjectPropertyChangeCallback cb
cb'' <- mk_ObjectPropertyChangeCallback cb'
connectSignalFunPtr obj "property-change" cb'' SignalConnectBefore detail
afterObjectPropertyChange :: (IsObject a, MonadIO m) => a -> P.Maybe T.Text -> ObjectPropertyChangeCallback -> m SignalHandlerId
afterObjectPropertyChange obj detail cb = liftIO $ do
let cb' = wrap_ObjectPropertyChangeCallback cb
cb'' <- mk_ObjectPropertyChangeCallback cb'
connectSignalFunPtr obj "property-change" cb'' SignalConnectAfter detail
#if defined(ENABLE_OVERLOADING)
data ObjectPropertyChangeSignalInfo
instance SignalInfo ObjectPropertyChangeSignalInfo where
type HaskellCallbackType ObjectPropertyChangeSignalInfo = ObjectPropertyChangeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ObjectPropertyChangeCallback cb
cb'' <- mk_ObjectPropertyChangeCallback cb'
connectSignalFunPtr obj "property-change" cb'' connectMode detail
#endif
type ObjectStateChangeCallback =
T.Text
-> Bool
-> IO ()
noObjectStateChangeCallback :: Maybe ObjectStateChangeCallback
noObjectStateChangeCallback = Nothing
type C_ObjectStateChangeCallback =
Ptr () ->
CString ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ObjectStateChangeCallback :: C_ObjectStateChangeCallback -> IO (FunPtr C_ObjectStateChangeCallback)
genClosure_ObjectStateChange :: MonadIO m => ObjectStateChangeCallback -> m (GClosure C_ObjectStateChangeCallback)
genClosure_ObjectStateChange cb = liftIO $ do
let cb' = wrap_ObjectStateChangeCallback cb
mk_ObjectStateChangeCallback cb' >>= B.GClosure.newGClosure
wrap_ObjectStateChangeCallback ::
ObjectStateChangeCallback ->
C_ObjectStateChangeCallback
wrap_ObjectStateChangeCallback _cb _ arg1 arg2 _ = do
arg1' <- cstringToText arg1
let arg2' = (/= 0) arg2
_cb arg1' arg2'
onObjectStateChange :: (IsObject a, MonadIO m) => a -> P.Maybe T.Text -> ObjectStateChangeCallback -> m SignalHandlerId
onObjectStateChange obj detail cb = liftIO $ do
let cb' = wrap_ObjectStateChangeCallback cb
cb'' <- mk_ObjectStateChangeCallback cb'
connectSignalFunPtr obj "state-change" cb'' SignalConnectBefore detail
afterObjectStateChange :: (IsObject a, MonadIO m) => a -> P.Maybe T.Text -> ObjectStateChangeCallback -> m SignalHandlerId
afterObjectStateChange obj detail cb = liftIO $ do
let cb' = wrap_ObjectStateChangeCallback cb
cb'' <- mk_ObjectStateChangeCallback cb'
connectSignalFunPtr obj "state-change" cb'' SignalConnectAfter detail
#if defined(ENABLE_OVERLOADING)
data ObjectStateChangeSignalInfo
instance SignalInfo ObjectStateChangeSignalInfo where
type HaskellCallbackType ObjectStateChangeSignalInfo = ObjectStateChangeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ObjectStateChangeCallback cb
cb'' <- mk_ObjectStateChangeCallback cb'
connectSignalFunPtr obj "state-change" cb'' connectMode detail
#endif
type ObjectVisibleDataChangedCallback =
IO ()
noObjectVisibleDataChangedCallback :: Maybe ObjectVisibleDataChangedCallback
noObjectVisibleDataChangedCallback = Nothing
type C_ObjectVisibleDataChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ObjectVisibleDataChangedCallback :: C_ObjectVisibleDataChangedCallback -> IO (FunPtr C_ObjectVisibleDataChangedCallback)
genClosure_ObjectVisibleDataChanged :: MonadIO m => ObjectVisibleDataChangedCallback -> m (GClosure C_ObjectVisibleDataChangedCallback)
genClosure_ObjectVisibleDataChanged cb = liftIO $ do
let cb' = wrap_ObjectVisibleDataChangedCallback cb
mk_ObjectVisibleDataChangedCallback cb' >>= B.GClosure.newGClosure
wrap_ObjectVisibleDataChangedCallback ::
ObjectVisibleDataChangedCallback ->
C_ObjectVisibleDataChangedCallback
wrap_ObjectVisibleDataChangedCallback _cb _ _ = do
_cb
onObjectVisibleDataChanged :: (IsObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId
onObjectVisibleDataChanged obj cb = liftIO $ do
let cb' = wrap_ObjectVisibleDataChangedCallback cb
cb'' <- mk_ObjectVisibleDataChangedCallback cb'
connectSignalFunPtr obj "visible-data-changed" cb'' SignalConnectBefore Nothing
afterObjectVisibleDataChanged :: (IsObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId
afterObjectVisibleDataChanged obj cb = liftIO $ do
let cb' = wrap_ObjectVisibleDataChangedCallback cb
cb'' <- mk_ObjectVisibleDataChangedCallback cb'
connectSignalFunPtr obj "visible-data-changed" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data ObjectVisibleDataChangedSignalInfo
instance SignalInfo ObjectVisibleDataChangedSignalInfo where
type HaskellCallbackType ObjectVisibleDataChangedSignalInfo = ObjectVisibleDataChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ObjectVisibleDataChangedCallback cb
cb'' <- mk_ObjectVisibleDataChangedCallback cb'
connectSignalFunPtr obj "visible-data-changed" cb'' connectMode detail
#endif
getObjectAccessibleComponentLayer :: (MonadIO m, IsObject o) => o -> m Int32
getObjectAccessibleComponentLayer obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "accessible-component-layer"
#if defined(ENABLE_OVERLOADING)
data ObjectAccessibleComponentLayerPropertyInfo
instance AttrInfo ObjectAccessibleComponentLayerPropertyInfo where
type AttrAllowedOps ObjectAccessibleComponentLayerPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = IsObject
type AttrSetTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = (~) ()
type AttrTransferTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = (~) ()
type AttrTransferType ObjectAccessibleComponentLayerPropertyInfo = ()
type AttrGetType ObjectAccessibleComponentLayerPropertyInfo = Int32
type AttrLabel ObjectAccessibleComponentLayerPropertyInfo = "accessible-component-layer"
type AttrOrigin ObjectAccessibleComponentLayerPropertyInfo = Object
attrGet = getObjectAccessibleComponentLayer
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getObjectAccessibleComponentMdiZorder :: (MonadIO m, IsObject o) => o -> m Int32
getObjectAccessibleComponentMdiZorder obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "accessible-component-mdi-zorder"
#if defined(ENABLE_OVERLOADING)
data ObjectAccessibleComponentMdiZorderPropertyInfo
instance AttrInfo ObjectAccessibleComponentMdiZorderPropertyInfo where
type AttrAllowedOps ObjectAccessibleComponentMdiZorderPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = IsObject
type AttrSetTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = (~) ()
type AttrTransferTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = (~) ()
type AttrTransferType ObjectAccessibleComponentMdiZorderPropertyInfo = ()
type AttrGetType ObjectAccessibleComponentMdiZorderPropertyInfo = Int32
type AttrLabel ObjectAccessibleComponentMdiZorderPropertyInfo = "accessible-component-mdi-zorder"
type AttrOrigin ObjectAccessibleComponentMdiZorderPropertyInfo = Object
attrGet = getObjectAccessibleComponentMdiZorder
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getObjectAccessibleDescription :: (MonadIO m, IsObject o) => o -> m (Maybe T.Text)
getObjectAccessibleDescription obj = liftIO $ B.Properties.getObjectPropertyString obj "accessible-description"
setObjectAccessibleDescription :: (MonadIO m, IsObject o) => o -> T.Text -> m ()
setObjectAccessibleDescription obj val = liftIO $ B.Properties.setObjectPropertyString obj "accessible-description" (Just val)
constructObjectAccessibleDescription :: (IsObject o) => T.Text -> IO (GValueConstruct o)
constructObjectAccessibleDescription val = B.Properties.constructObjectPropertyString "accessible-description" (Just val)
clearObjectAccessibleDescription :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleDescription obj = liftIO $ B.Properties.setObjectPropertyString obj "accessible-description" (Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ObjectAccessibleDescriptionPropertyInfo
instance AttrInfo ObjectAccessibleDescriptionPropertyInfo where
type AttrAllowedOps ObjectAccessibleDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ObjectAccessibleDescriptionPropertyInfo = IsObject
type AttrSetTypeConstraint ObjectAccessibleDescriptionPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ObjectAccessibleDescriptionPropertyInfo = (~) T.Text
type AttrTransferType ObjectAccessibleDescriptionPropertyInfo = T.Text
type AttrGetType ObjectAccessibleDescriptionPropertyInfo = (Maybe T.Text)
type AttrLabel ObjectAccessibleDescriptionPropertyInfo = "accessible-description"
type AttrOrigin ObjectAccessibleDescriptionPropertyInfo = Object
attrGet = getObjectAccessibleDescription
attrSet = setObjectAccessibleDescription
attrTransfer _ v = do
return v
attrConstruct = constructObjectAccessibleDescription
attrClear = clearObjectAccessibleDescription
#endif
getObjectAccessibleHypertextNlinks :: (MonadIO m, IsObject o) => o -> m Int32
getObjectAccessibleHypertextNlinks obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "accessible-hypertext-nlinks"
#if defined(ENABLE_OVERLOADING)
data ObjectAccessibleHypertextNlinksPropertyInfo
instance AttrInfo ObjectAccessibleHypertextNlinksPropertyInfo where
type AttrAllowedOps ObjectAccessibleHypertextNlinksPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = IsObject
type AttrSetTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = (~) ()
type AttrTransferTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = (~) ()
type AttrTransferType ObjectAccessibleHypertextNlinksPropertyInfo = ()
type AttrGetType ObjectAccessibleHypertextNlinksPropertyInfo = Int32
type AttrLabel ObjectAccessibleHypertextNlinksPropertyInfo = "accessible-hypertext-nlinks"
type AttrOrigin ObjectAccessibleHypertextNlinksPropertyInfo = Object
attrGet = getObjectAccessibleHypertextNlinks
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getObjectAccessibleName :: (MonadIO m, IsObject o) => o -> m (Maybe T.Text)
getObjectAccessibleName obj = liftIO $ B.Properties.getObjectPropertyString obj "accessible-name"
setObjectAccessibleName :: (MonadIO m, IsObject o) => o -> T.Text -> m ()
setObjectAccessibleName obj val = liftIO $ B.Properties.setObjectPropertyString obj "accessible-name" (Just val)
constructObjectAccessibleName :: (IsObject o) => T.Text -> IO (GValueConstruct o)
constructObjectAccessibleName val = B.Properties.constructObjectPropertyString "accessible-name" (Just val)
clearObjectAccessibleName :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleName obj = liftIO $ B.Properties.setObjectPropertyString obj "accessible-name" (Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ObjectAccessibleNamePropertyInfo
instance AttrInfo ObjectAccessibleNamePropertyInfo where
type AttrAllowedOps ObjectAccessibleNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ObjectAccessibleNamePropertyInfo = IsObject
type AttrSetTypeConstraint ObjectAccessibleNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ObjectAccessibleNamePropertyInfo = (~) T.Text
type AttrTransferType ObjectAccessibleNamePropertyInfo = T.Text
type AttrGetType ObjectAccessibleNamePropertyInfo = (Maybe T.Text)
type AttrLabel ObjectAccessibleNamePropertyInfo = "accessible-name"
type AttrOrigin ObjectAccessibleNamePropertyInfo = Object
attrGet = getObjectAccessibleName
attrSet = setObjectAccessibleName
attrTransfer _ v = do
return v
attrConstruct = constructObjectAccessibleName
attrClear = clearObjectAccessibleName
#endif
getObjectAccessibleParent :: (MonadIO m, IsObject o) => o -> m (Maybe Object)
getObjectAccessibleParent obj = liftIO $ B.Properties.getObjectPropertyObject obj "accessible-parent" Object
setObjectAccessibleParent :: (MonadIO m, IsObject o, IsObject a) => o -> a -> m ()
setObjectAccessibleParent obj val = liftIO $ B.Properties.setObjectPropertyObject obj "accessible-parent" (Just val)
constructObjectAccessibleParent :: (IsObject o, IsObject a) => a -> IO (GValueConstruct o)
constructObjectAccessibleParent val = B.Properties.constructObjectPropertyObject "accessible-parent" (Just val)
clearObjectAccessibleParent :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleParent obj = liftIO $ B.Properties.setObjectPropertyObject obj "accessible-parent" (Nothing :: Maybe Object)
#if defined(ENABLE_OVERLOADING)
data ObjectAccessibleParentPropertyInfo
instance AttrInfo ObjectAccessibleParentPropertyInfo where
type AttrAllowedOps ObjectAccessibleParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ObjectAccessibleParentPropertyInfo = IsObject
type AttrSetTypeConstraint ObjectAccessibleParentPropertyInfo = IsObject
type AttrTransferTypeConstraint ObjectAccessibleParentPropertyInfo = IsObject
type AttrTransferType ObjectAccessibleParentPropertyInfo = Object
type AttrGetType ObjectAccessibleParentPropertyInfo = (Maybe Object)
type AttrLabel ObjectAccessibleParentPropertyInfo = "accessible-parent"
type AttrOrigin ObjectAccessibleParentPropertyInfo = Object
attrGet = getObjectAccessibleParent
attrSet = setObjectAccessibleParent
attrTransfer _ v = do
unsafeCastTo Object v
attrConstruct = constructObjectAccessibleParent
attrClear = clearObjectAccessibleParent
#endif
getObjectAccessibleRole :: (MonadIO m, IsObject o) => o -> m Atk.Enums.Role
getObjectAccessibleRole obj = liftIO $ B.Properties.getObjectPropertyEnum obj "accessible-role"
setObjectAccessibleRole :: (MonadIO m, IsObject o) => o -> Atk.Enums.Role -> m ()
setObjectAccessibleRole obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "accessible-role" val
constructObjectAccessibleRole :: (IsObject o) => Atk.Enums.Role -> IO (GValueConstruct o)
constructObjectAccessibleRole val = B.Properties.constructObjectPropertyEnum "accessible-role" val
#if defined(ENABLE_OVERLOADING)
data ObjectAccessibleRolePropertyInfo
instance AttrInfo ObjectAccessibleRolePropertyInfo where
type AttrAllowedOps ObjectAccessibleRolePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ObjectAccessibleRolePropertyInfo = IsObject
type AttrSetTypeConstraint ObjectAccessibleRolePropertyInfo = (~) Atk.Enums.Role
type AttrTransferTypeConstraint ObjectAccessibleRolePropertyInfo = (~) Atk.Enums.Role
type AttrTransferType ObjectAccessibleRolePropertyInfo = Atk.Enums.Role
type AttrGetType ObjectAccessibleRolePropertyInfo = Atk.Enums.Role
type AttrLabel ObjectAccessibleRolePropertyInfo = "accessible-role"
type AttrOrigin ObjectAccessibleRolePropertyInfo = Object
attrGet = getObjectAccessibleRole
attrSet = setObjectAccessibleRole
attrTransfer _ v = do
return v
attrConstruct = constructObjectAccessibleRole
attrClear = undefined
#endif
getObjectAccessibleTableCaption :: (MonadIO m, IsObject o) => o -> m (Maybe T.Text)
getObjectAccessibleTableCaption obj = liftIO $ B.Properties.getObjectPropertyString obj "accessible-table-caption"
setObjectAccessibleTableCaption :: (MonadIO m, IsObject o) => o -> T.Text -> m ()
setObjectAccessibleTableCaption obj val = liftIO $ B.Properties.setObjectPropertyString obj "accessible-table-caption" (Just val)
constructObjectAccessibleTableCaption :: (IsObject o) => T.Text -> IO (GValueConstruct o)
constructObjectAccessibleTableCaption val = B.Properties.constructObjectPropertyString "accessible-table-caption" (Just val)
clearObjectAccessibleTableCaption :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleTableCaption obj = liftIO $ B.Properties.setObjectPropertyString obj "accessible-table-caption" (Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ObjectAccessibleTableCaptionPropertyInfo
instance AttrInfo ObjectAccessibleTableCaptionPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableCaptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = IsObject
type AttrSetTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = (~) T.Text
type AttrTransferType ObjectAccessibleTableCaptionPropertyInfo = T.Text
type AttrGetType ObjectAccessibleTableCaptionPropertyInfo = (Maybe T.Text)
type AttrLabel ObjectAccessibleTableCaptionPropertyInfo = "accessible-table-caption"
type AttrOrigin ObjectAccessibleTableCaptionPropertyInfo = Object
attrGet = getObjectAccessibleTableCaption
attrSet = setObjectAccessibleTableCaption
attrTransfer _ v = do
return v
attrConstruct = constructObjectAccessibleTableCaption
attrClear = clearObjectAccessibleTableCaption
#endif
getObjectAccessibleTableCaptionObject :: (MonadIO m, IsObject o) => o -> m (Maybe Object)
getObjectAccessibleTableCaptionObject obj = liftIO $ B.Properties.getObjectPropertyObject obj "accessible-table-caption-object" Object
setObjectAccessibleTableCaptionObject :: (MonadIO m, IsObject o, IsObject a) => o -> a -> m ()
setObjectAccessibleTableCaptionObject obj val = liftIO $ B.Properties.setObjectPropertyObject obj "accessible-table-caption-object" (Just val)
constructObjectAccessibleTableCaptionObject :: (IsObject o, IsObject a) => a -> IO (GValueConstruct o)
constructObjectAccessibleTableCaptionObject val = B.Properties.constructObjectPropertyObject "accessible-table-caption-object" (Just val)
clearObjectAccessibleTableCaptionObject :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleTableCaptionObject obj = liftIO $ B.Properties.setObjectPropertyObject obj "accessible-table-caption-object" (Nothing :: Maybe Object)
#if defined(ENABLE_OVERLOADING)
data ObjectAccessibleTableCaptionObjectPropertyInfo
instance AttrInfo ObjectAccessibleTableCaptionObjectPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableCaptionObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = IsObject
type AttrSetTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = IsObject
type AttrTransferTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = IsObject
type AttrTransferType ObjectAccessibleTableCaptionObjectPropertyInfo = Object
type AttrGetType ObjectAccessibleTableCaptionObjectPropertyInfo = (Maybe Object)
type AttrLabel ObjectAccessibleTableCaptionObjectPropertyInfo = "accessible-table-caption-object"
type AttrOrigin ObjectAccessibleTableCaptionObjectPropertyInfo = Object
attrGet = getObjectAccessibleTableCaptionObject
attrSet = setObjectAccessibleTableCaptionObject
attrTransfer _ v = do
unsafeCastTo Object v
attrConstruct = constructObjectAccessibleTableCaptionObject
attrClear = clearObjectAccessibleTableCaptionObject
#endif
getObjectAccessibleTableColumnDescription :: (MonadIO m, IsObject o) => o -> m (Maybe T.Text)
getObjectAccessibleTableColumnDescription obj = liftIO $ B.Properties.getObjectPropertyString obj "accessible-table-column-description"
setObjectAccessibleTableColumnDescription :: (MonadIO m, IsObject o) => o -> T.Text -> m ()
setObjectAccessibleTableColumnDescription obj val = liftIO $ B.Properties.setObjectPropertyString obj "accessible-table-column-description" (Just val)
constructObjectAccessibleTableColumnDescription :: (IsObject o) => T.Text -> IO (GValueConstruct o)
constructObjectAccessibleTableColumnDescription val = B.Properties.constructObjectPropertyString "accessible-table-column-description" (Just val)
clearObjectAccessibleTableColumnDescription :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleTableColumnDescription obj = liftIO $ B.Properties.setObjectPropertyString obj "accessible-table-column-description" (Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ObjectAccessibleTableColumnDescriptionPropertyInfo
instance AttrInfo ObjectAccessibleTableColumnDescriptionPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableColumnDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = IsObject
type AttrSetTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = (~) T.Text
type AttrTransferType ObjectAccessibleTableColumnDescriptionPropertyInfo = T.Text
type AttrGetType ObjectAccessibleTableColumnDescriptionPropertyInfo = (Maybe T.Text)
type AttrLabel ObjectAccessibleTableColumnDescriptionPropertyInfo = "accessible-table-column-description"
type AttrOrigin ObjectAccessibleTableColumnDescriptionPropertyInfo = Object
attrGet = getObjectAccessibleTableColumnDescription
attrSet = setObjectAccessibleTableColumnDescription
attrTransfer _ v = do
return v
attrConstruct = constructObjectAccessibleTableColumnDescription
attrClear = clearObjectAccessibleTableColumnDescription
#endif
getObjectAccessibleTableColumnHeader :: (MonadIO m, IsObject o) => o -> m (Maybe Object)
getObjectAccessibleTableColumnHeader obj = liftIO $ B.Properties.getObjectPropertyObject obj "accessible-table-column-header" Object
setObjectAccessibleTableColumnHeader :: (MonadIO m, IsObject o, IsObject a) => o -> a -> m ()
setObjectAccessibleTableColumnHeader obj val = liftIO $ B.Properties.setObjectPropertyObject obj "accessible-table-column-header" (Just val)
constructObjectAccessibleTableColumnHeader :: (IsObject o, IsObject a) => a -> IO (GValueConstruct o)
constructObjectAccessibleTableColumnHeader val = B.Properties.constructObjectPropertyObject "accessible-table-column-header" (Just val)
clearObjectAccessibleTableColumnHeader :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleTableColumnHeader obj = liftIO $ B.Properties.setObjectPropertyObject obj "accessible-table-column-header" (Nothing :: Maybe Object)
#if defined(ENABLE_OVERLOADING)
data ObjectAccessibleTableColumnHeaderPropertyInfo
instance AttrInfo ObjectAccessibleTableColumnHeaderPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableColumnHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = IsObject
type AttrSetTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = IsObject
type AttrTransferTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = IsObject
type AttrTransferType ObjectAccessibleTableColumnHeaderPropertyInfo = Object
type AttrGetType ObjectAccessibleTableColumnHeaderPropertyInfo = (Maybe Object)
type AttrLabel ObjectAccessibleTableColumnHeaderPropertyInfo = "accessible-table-column-header"
type AttrOrigin ObjectAccessibleTableColumnHeaderPropertyInfo = Object
attrGet = getObjectAccessibleTableColumnHeader
attrSet = setObjectAccessibleTableColumnHeader
attrTransfer _ v = do
unsafeCastTo Object v
attrConstruct = constructObjectAccessibleTableColumnHeader
attrClear = clearObjectAccessibleTableColumnHeader
#endif
getObjectAccessibleTableRowDescription :: (MonadIO m, IsObject o) => o -> m (Maybe T.Text)
getObjectAccessibleTableRowDescription obj = liftIO $ B.Properties.getObjectPropertyString obj "accessible-table-row-description"
setObjectAccessibleTableRowDescription :: (MonadIO m, IsObject o) => o -> T.Text -> m ()
setObjectAccessibleTableRowDescription obj val = liftIO $ B.Properties.setObjectPropertyString obj "accessible-table-row-description" (Just val)
constructObjectAccessibleTableRowDescription :: (IsObject o) => T.Text -> IO (GValueConstruct o)
constructObjectAccessibleTableRowDescription val = B.Properties.constructObjectPropertyString "accessible-table-row-description" (Just val)
clearObjectAccessibleTableRowDescription :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleTableRowDescription obj = liftIO $ B.Properties.setObjectPropertyString obj "accessible-table-row-description" (Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ObjectAccessibleTableRowDescriptionPropertyInfo
instance AttrInfo ObjectAccessibleTableRowDescriptionPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableRowDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = IsObject
type AttrSetTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = (~) T.Text
type AttrTransferType ObjectAccessibleTableRowDescriptionPropertyInfo = T.Text
type AttrGetType ObjectAccessibleTableRowDescriptionPropertyInfo = (Maybe T.Text)
type AttrLabel ObjectAccessibleTableRowDescriptionPropertyInfo = "accessible-table-row-description"
type AttrOrigin ObjectAccessibleTableRowDescriptionPropertyInfo = Object
attrGet = getObjectAccessibleTableRowDescription
attrSet = setObjectAccessibleTableRowDescription
attrTransfer _ v = do
return v
attrConstruct = constructObjectAccessibleTableRowDescription
attrClear = clearObjectAccessibleTableRowDescription
#endif
getObjectAccessibleTableRowHeader :: (MonadIO m, IsObject o) => o -> m (Maybe Object)
getObjectAccessibleTableRowHeader obj = liftIO $ B.Properties.getObjectPropertyObject obj "accessible-table-row-header" Object
setObjectAccessibleTableRowHeader :: (MonadIO m, IsObject o, IsObject a) => o -> a -> m ()
setObjectAccessibleTableRowHeader obj val = liftIO $ B.Properties.setObjectPropertyObject obj "accessible-table-row-header" (Just val)
constructObjectAccessibleTableRowHeader :: (IsObject o, IsObject a) => a -> IO (GValueConstruct o)
constructObjectAccessibleTableRowHeader val = B.Properties.constructObjectPropertyObject "accessible-table-row-header" (Just val)
clearObjectAccessibleTableRowHeader :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleTableRowHeader obj = liftIO $ B.Properties.setObjectPropertyObject obj "accessible-table-row-header" (Nothing :: Maybe Object)
#if defined(ENABLE_OVERLOADING)
data ObjectAccessibleTableRowHeaderPropertyInfo
instance AttrInfo ObjectAccessibleTableRowHeaderPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableRowHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = IsObject
type AttrSetTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = IsObject
type AttrTransferTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = IsObject
type AttrTransferType ObjectAccessibleTableRowHeaderPropertyInfo = Object
type AttrGetType ObjectAccessibleTableRowHeaderPropertyInfo = (Maybe Object)
type AttrLabel ObjectAccessibleTableRowHeaderPropertyInfo = "accessible-table-row-header"
type AttrOrigin ObjectAccessibleTableRowHeaderPropertyInfo = Object
attrGet = getObjectAccessibleTableRowHeader
attrSet = setObjectAccessibleTableRowHeader
attrTransfer _ v = do
unsafeCastTo Object v
attrConstruct = constructObjectAccessibleTableRowHeader
attrClear = clearObjectAccessibleTableRowHeader
#endif
getObjectAccessibleTableSummary :: (MonadIO m, IsObject o) => o -> m (Maybe Object)
getObjectAccessibleTableSummary obj = liftIO $ B.Properties.getObjectPropertyObject obj "accessible-table-summary" Object
setObjectAccessibleTableSummary :: (MonadIO m, IsObject o, IsObject a) => o -> a -> m ()
setObjectAccessibleTableSummary obj val = liftIO $ B.Properties.setObjectPropertyObject obj "accessible-table-summary" (Just val)
constructObjectAccessibleTableSummary :: (IsObject o, IsObject a) => a -> IO (GValueConstruct o)
constructObjectAccessibleTableSummary val = B.Properties.constructObjectPropertyObject "accessible-table-summary" (Just val)
clearObjectAccessibleTableSummary :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleTableSummary obj = liftIO $ B.Properties.setObjectPropertyObject obj "accessible-table-summary" (Nothing :: Maybe Object)
#if defined(ENABLE_OVERLOADING)
data ObjectAccessibleTableSummaryPropertyInfo
instance AttrInfo ObjectAccessibleTableSummaryPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = IsObject
type AttrSetTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = IsObject
type AttrTransferTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = IsObject
type AttrTransferType ObjectAccessibleTableSummaryPropertyInfo = Object
type AttrGetType ObjectAccessibleTableSummaryPropertyInfo = (Maybe Object)
type AttrLabel ObjectAccessibleTableSummaryPropertyInfo = "accessible-table-summary"
type AttrOrigin ObjectAccessibleTableSummaryPropertyInfo = Object
attrGet = getObjectAccessibleTableSummary
attrSet = setObjectAccessibleTableSummary
attrTransfer _ v = do
unsafeCastTo Object v
attrConstruct = constructObjectAccessibleTableSummary
attrClear = clearObjectAccessibleTableSummary
#endif
getObjectAccessibleValue :: (MonadIO m, IsObject o) => o -> m Double
getObjectAccessibleValue obj = liftIO $ B.Properties.getObjectPropertyDouble obj "accessible-value"
setObjectAccessibleValue :: (MonadIO m, IsObject o) => o -> Double -> m ()
setObjectAccessibleValue obj val = liftIO $ B.Properties.setObjectPropertyDouble obj "accessible-value" val
constructObjectAccessibleValue :: (IsObject o) => Double -> IO (GValueConstruct o)
constructObjectAccessibleValue val = B.Properties.constructObjectPropertyDouble "accessible-value" val
#if defined(ENABLE_OVERLOADING)
data ObjectAccessibleValuePropertyInfo
instance AttrInfo ObjectAccessibleValuePropertyInfo where
type AttrAllowedOps ObjectAccessibleValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ObjectAccessibleValuePropertyInfo = IsObject
type AttrSetTypeConstraint ObjectAccessibleValuePropertyInfo = (~) Double
type AttrTransferTypeConstraint ObjectAccessibleValuePropertyInfo = (~) Double
type AttrTransferType ObjectAccessibleValuePropertyInfo = Double
type AttrGetType ObjectAccessibleValuePropertyInfo = Double
type AttrLabel ObjectAccessibleValuePropertyInfo = "accessible-value"
type AttrOrigin ObjectAccessibleValuePropertyInfo = Object
attrGet = getObjectAccessibleValue
attrSet = setObjectAccessibleValue
attrTransfer _ v = do
return v
attrConstruct = constructObjectAccessibleValue
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Object
type instance O.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, *)])
#endif
#if defined(ENABLE_OVERLOADING)
objectAccessibleComponentLayer :: AttrLabelProxy "accessibleComponentLayer"
objectAccessibleComponentLayer = AttrLabelProxy
objectAccessibleComponentMdiZorder :: AttrLabelProxy "accessibleComponentMdiZorder"
objectAccessibleComponentMdiZorder = AttrLabelProxy
objectAccessibleDescription :: AttrLabelProxy "accessibleDescription"
objectAccessibleDescription = AttrLabelProxy
objectAccessibleHypertextNlinks :: AttrLabelProxy "accessibleHypertextNlinks"
objectAccessibleHypertextNlinks = AttrLabelProxy
objectAccessibleName :: AttrLabelProxy "accessibleName"
objectAccessibleName = AttrLabelProxy
objectAccessibleParent :: AttrLabelProxy "accessibleParent"
objectAccessibleParent = AttrLabelProxy
objectAccessibleRole :: AttrLabelProxy "accessibleRole"
objectAccessibleRole = AttrLabelProxy
objectAccessibleTableCaption :: AttrLabelProxy "accessibleTableCaption"
objectAccessibleTableCaption = AttrLabelProxy
objectAccessibleTableCaptionObject :: AttrLabelProxy "accessibleTableCaptionObject"
objectAccessibleTableCaptionObject = AttrLabelProxy
objectAccessibleTableColumnDescription :: AttrLabelProxy "accessibleTableColumnDescription"
objectAccessibleTableColumnDescription = AttrLabelProxy
objectAccessibleTableColumnHeader :: AttrLabelProxy "accessibleTableColumnHeader"
objectAccessibleTableColumnHeader = AttrLabelProxy
objectAccessibleTableRowDescription :: AttrLabelProxy "accessibleTableRowDescription"
objectAccessibleTableRowDescription = AttrLabelProxy
objectAccessibleTableRowHeader :: AttrLabelProxy "accessibleTableRowHeader"
objectAccessibleTableRowHeader = AttrLabelProxy
objectAccessibleTableSummary :: AttrLabelProxy "accessibleTableSummary"
objectAccessibleTableSummary = AttrLabelProxy
objectAccessibleValue :: AttrLabelProxy "accessibleValue"
objectAccessibleValue = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Object = ObjectSignalList
type ObjectSignalList = ('[ '("activeDescendantChanged", ObjectActiveDescendantChangedSignalInfo), '("childrenChanged", ObjectChildrenChangedSignalInfo), '("focusEvent", ObjectFocusEventSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("propertyChange", ObjectPropertyChangeSignalInfo), '("stateChange", ObjectStateChangeSignalInfo), '("visibleDataChanged", ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "atk_object_add_relationship" atk_object_add_relationship ::
Ptr Object ->
CUInt ->
Ptr Object ->
IO CInt
objectAddRelationship ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a, IsObject b) =>
a
-> Atk.Enums.RelationType
-> b
-> m Bool
objectAddRelationship object relationship target = liftIO $ do
object' <- unsafeManagedPtrCastPtr object
let relationship' = (fromIntegral . fromEnum) relationship
target' <- unsafeManagedPtrCastPtr target
result <- atk_object_add_relationship object' relationship' target'
let result' = (/= 0) result
touchManagedPtr object
touchManagedPtr target
return result'
#if defined(ENABLE_OVERLOADING)
data ObjectAddRelationshipMethodInfo
instance (signature ~ (Atk.Enums.RelationType -> b -> m Bool), MonadIO m, IsObject a, IsObject b) => O.MethodInfo ObjectAddRelationshipMethodInfo a signature where
overloadedMethod = objectAddRelationship
#endif
foreign import ccall "atk_object_get_accessible_id" atk_object_get_accessible_id ::
Ptr Object ->
IO CString
objectGetAccessibleId ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m T.Text
objectGetAccessibleId accessible = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
result <- atk_object_get_accessible_id accessible'
checkUnexpectedReturnNULL "objectGetAccessibleId" result
result' <- cstringToText result
touchManagedPtr accessible
return result'
#if defined(ENABLE_OVERLOADING)
data ObjectGetAccessibleIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsObject a) => O.MethodInfo ObjectGetAccessibleIdMethodInfo a signature where
overloadedMethod = objectGetAccessibleId
#endif
foreign import ccall "atk_object_get_attributes" atk_object_get_attributes ::
Ptr Object ->
IO (Ptr (GSList (Ptr ())))
objectGetAttributes ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m ([Ptr ()])
objectGetAttributes accessible = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
result <- atk_object_get_attributes accessible'
result' <- unpackGSList result
g_slist_free result
touchManagedPtr accessible
return result'
#if defined(ENABLE_OVERLOADING)
data ObjectGetAttributesMethodInfo
instance (signature ~ (m ([Ptr ()])), MonadIO m, IsObject a) => O.MethodInfo ObjectGetAttributesMethodInfo a signature where
overloadedMethod = objectGetAttributes
#endif
foreign import ccall "atk_object_get_description" atk_object_get_description ::
Ptr Object ->
IO CString
objectGetDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m T.Text
objectGetDescription accessible = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
result <- atk_object_get_description accessible'
checkUnexpectedReturnNULL "objectGetDescription" result
result' <- cstringToText result
touchManagedPtr accessible
return result'
#if defined(ENABLE_OVERLOADING)
data ObjectGetDescriptionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsObject a) => O.MethodInfo ObjectGetDescriptionMethodInfo a signature where
overloadedMethod = objectGetDescription
#endif
foreign import ccall "atk_object_get_index_in_parent" atk_object_get_index_in_parent ::
Ptr Object ->
IO Int32
objectGetIndexInParent ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m Int32
objectGetIndexInParent accessible = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
result <- atk_object_get_index_in_parent accessible'
touchManagedPtr accessible
return result
#if defined(ENABLE_OVERLOADING)
data ObjectGetIndexInParentMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsObject a) => O.MethodInfo ObjectGetIndexInParentMethodInfo a signature where
overloadedMethod = objectGetIndexInParent
#endif
foreign import ccall "atk_object_get_layer" atk_object_get_layer ::
Ptr Object ->
IO CUInt
{-# DEPRECATED objectGetLayer ["Use atk_component_get_layer instead."] #-}
objectGetLayer ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m Atk.Enums.Layer
objectGetLayer accessible = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
result <- atk_object_get_layer accessible'
let result' = (toEnum . fromIntegral) result
touchManagedPtr accessible
return result'
#if defined(ENABLE_OVERLOADING)
data ObjectGetLayerMethodInfo
instance (signature ~ (m Atk.Enums.Layer), MonadIO m, IsObject a) => O.MethodInfo ObjectGetLayerMethodInfo a signature where
overloadedMethod = objectGetLayer
#endif
foreign import ccall "atk_object_get_mdi_zorder" atk_object_get_mdi_zorder ::
Ptr Object ->
IO Int32
{-# DEPRECATED objectGetMdiZorder ["Use atk_component_get_mdi_zorder instead."] #-}
objectGetMdiZorder ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m Int32
objectGetMdiZorder accessible = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
result <- atk_object_get_mdi_zorder accessible'
touchManagedPtr accessible
return result
#if defined(ENABLE_OVERLOADING)
data ObjectGetMdiZorderMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsObject a) => O.MethodInfo ObjectGetMdiZorderMethodInfo a signature where
overloadedMethod = objectGetMdiZorder
#endif
foreign import ccall "atk_object_get_n_accessible_children" atk_object_get_n_accessible_children ::
Ptr Object ->
IO Int32
objectGetNAccessibleChildren ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m Int32
objectGetNAccessibleChildren accessible = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
result <- atk_object_get_n_accessible_children accessible'
touchManagedPtr accessible
return result
#if defined(ENABLE_OVERLOADING)
data ObjectGetNAccessibleChildrenMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsObject a) => O.MethodInfo ObjectGetNAccessibleChildrenMethodInfo a signature where
overloadedMethod = objectGetNAccessibleChildren
#endif
foreign import ccall "atk_object_get_name" atk_object_get_name ::
Ptr Object ->
IO CString
objectGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m T.Text
objectGetName accessible = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
result <- atk_object_get_name accessible'
checkUnexpectedReturnNULL "objectGetName" result
result' <- cstringToText result
touchManagedPtr accessible
return result'
#if defined(ENABLE_OVERLOADING)
data ObjectGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsObject a) => O.MethodInfo ObjectGetNameMethodInfo a signature where
overloadedMethod = objectGetName
#endif
foreign import ccall "atk_object_get_object_locale" atk_object_get_object_locale ::
Ptr Object ->
IO CString
objectGetObjectLocale ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m T.Text
objectGetObjectLocale accessible = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
result <- atk_object_get_object_locale accessible'
checkUnexpectedReturnNULL "objectGetObjectLocale" result
result' <- cstringToText result
touchManagedPtr accessible
return result'
#if defined(ENABLE_OVERLOADING)
data ObjectGetObjectLocaleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsObject a) => O.MethodInfo ObjectGetObjectLocaleMethodInfo a signature where
overloadedMethod = objectGetObjectLocale
#endif
foreign import ccall "atk_object_get_parent" atk_object_get_parent ::
Ptr Object ->
IO (Ptr Object)
objectGetParent ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m Object
objectGetParent accessible = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
result <- atk_object_get_parent accessible'
checkUnexpectedReturnNULL "objectGetParent" result
result' <- (newObject Object) result
touchManagedPtr accessible
return result'
#if defined(ENABLE_OVERLOADING)
data ObjectGetParentMethodInfo
instance (signature ~ (m Object), MonadIO m, IsObject a) => O.MethodInfo ObjectGetParentMethodInfo a signature where
overloadedMethod = objectGetParent
#endif
foreign import ccall "atk_object_get_role" atk_object_get_role ::
Ptr Object ->
IO CUInt
objectGetRole ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m Atk.Enums.Role
objectGetRole accessible = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
result <- atk_object_get_role accessible'
let result' = (toEnum . fromIntegral) result
touchManagedPtr accessible
return result'
#if defined(ENABLE_OVERLOADING)
data ObjectGetRoleMethodInfo
instance (signature ~ (m Atk.Enums.Role), MonadIO m, IsObject a) => O.MethodInfo ObjectGetRoleMethodInfo a signature where
overloadedMethod = objectGetRole
#endif
foreign import ccall "atk_object_initialize" atk_object_initialize ::
Ptr Object ->
Ptr () ->
IO ()
objectInitialize ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> Ptr ()
-> m ()
objectInitialize accessible data_ = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
atk_object_initialize accessible' data_
touchManagedPtr accessible
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectInitializeMethodInfo
instance (signature ~ (Ptr () -> m ()), MonadIO m, IsObject a) => O.MethodInfo ObjectInitializeMethodInfo a signature where
overloadedMethod = objectInitialize
#endif
foreign import ccall "atk_object_notify_state_change" atk_object_notify_state_change ::
Ptr Object ->
Word64 ->
CInt ->
IO ()
objectNotifyStateChange ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> Word64
-> Bool
-> m ()
objectNotifyStateChange accessible state value = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
let value' = (fromIntegral . fromEnum) value
atk_object_notify_state_change accessible' state value'
touchManagedPtr accessible
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectNotifyStateChangeMethodInfo
instance (signature ~ (Word64 -> Bool -> m ()), MonadIO m, IsObject a) => O.MethodInfo ObjectNotifyStateChangeMethodInfo a signature where
overloadedMethod = objectNotifyStateChange
#endif
foreign import ccall "atk_object_peek_parent" atk_object_peek_parent ::
Ptr Object ->
IO (Ptr Object)
objectPeekParent ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m Object
objectPeekParent accessible = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
result <- atk_object_peek_parent accessible'
checkUnexpectedReturnNULL "objectPeekParent" result
result' <- (newObject Object) result
touchManagedPtr accessible
return result'
#if defined(ENABLE_OVERLOADING)
data ObjectPeekParentMethodInfo
instance (signature ~ (m Object), MonadIO m, IsObject a) => O.MethodInfo ObjectPeekParentMethodInfo a signature where
overloadedMethod = objectPeekParent
#endif
foreign import ccall "atk_object_ref_accessible_child" atk_object_ref_accessible_child ::
Ptr Object ->
Int32 ->
IO (Ptr Object)
objectRefAccessibleChild ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> Int32
-> m Object
objectRefAccessibleChild accessible i = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
result <- atk_object_ref_accessible_child accessible' i
checkUnexpectedReturnNULL "objectRefAccessibleChild" result
result' <- (wrapObject Object) result
touchManagedPtr accessible
return result'
#if defined(ENABLE_OVERLOADING)
data ObjectRefAccessibleChildMethodInfo
instance (signature ~ (Int32 -> m Object), MonadIO m, IsObject a) => O.MethodInfo ObjectRefAccessibleChildMethodInfo a signature where
overloadedMethod = objectRefAccessibleChild
#endif
foreign import ccall "atk_object_ref_relation_set" atk_object_ref_relation_set ::
Ptr Object ->
IO (Ptr Atk.RelationSet.RelationSet)
objectRefRelationSet ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m Atk.RelationSet.RelationSet
objectRefRelationSet accessible = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
result <- atk_object_ref_relation_set accessible'
checkUnexpectedReturnNULL "objectRefRelationSet" result
result' <- (wrapObject Atk.RelationSet.RelationSet) result
touchManagedPtr accessible
return result'
#if defined(ENABLE_OVERLOADING)
data ObjectRefRelationSetMethodInfo
instance (signature ~ (m Atk.RelationSet.RelationSet), MonadIO m, IsObject a) => O.MethodInfo ObjectRefRelationSetMethodInfo a signature where
overloadedMethod = objectRefRelationSet
#endif
foreign import ccall "atk_object_ref_state_set" atk_object_ref_state_set ::
Ptr Object ->
IO (Ptr Atk.StateSet.StateSet)
objectRefStateSet ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m Atk.StateSet.StateSet
objectRefStateSet accessible = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
result <- atk_object_ref_state_set accessible'
checkUnexpectedReturnNULL "objectRefStateSet" result
result' <- (wrapObject Atk.StateSet.StateSet) result
touchManagedPtr accessible
return result'
#if defined(ENABLE_OVERLOADING)
data ObjectRefStateSetMethodInfo
instance (signature ~ (m Atk.StateSet.StateSet), MonadIO m, IsObject a) => O.MethodInfo ObjectRefStateSetMethodInfo a signature where
overloadedMethod = objectRefStateSet
#endif
foreign import ccall "atk_object_remove_property_change_handler" atk_object_remove_property_change_handler ::
Ptr Object ->
Word32 ->
IO ()
{-# DEPRECATED objectRemovePropertyChangeHandler ["(Since version 2.12)","See @/atk_object_connect_property_change_handler()/@"] #-}
objectRemovePropertyChangeHandler ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> Word32
-> m ()
objectRemovePropertyChangeHandler accessible handlerId = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
atk_object_remove_property_change_handler accessible' handlerId
touchManagedPtr accessible
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectRemovePropertyChangeHandlerMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsObject a) => O.MethodInfo ObjectRemovePropertyChangeHandlerMethodInfo a signature where
overloadedMethod = objectRemovePropertyChangeHandler
#endif
foreign import ccall "atk_object_remove_relationship" atk_object_remove_relationship ::
Ptr Object ->
CUInt ->
Ptr Object ->
IO CInt
objectRemoveRelationship ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a, IsObject b) =>
a
-> Atk.Enums.RelationType
-> b
-> m Bool
objectRemoveRelationship object relationship target = liftIO $ do
object' <- unsafeManagedPtrCastPtr object
let relationship' = (fromIntegral . fromEnum) relationship
target' <- unsafeManagedPtrCastPtr target
result <- atk_object_remove_relationship object' relationship' target'
let result' = (/= 0) result
touchManagedPtr object
touchManagedPtr target
return result'
#if defined(ENABLE_OVERLOADING)
data ObjectRemoveRelationshipMethodInfo
instance (signature ~ (Atk.Enums.RelationType -> b -> m Bool), MonadIO m, IsObject a, IsObject b) => O.MethodInfo ObjectRemoveRelationshipMethodInfo a signature where
overloadedMethod = objectRemoveRelationship
#endif
foreign import ccall "atk_object_set_accessible_id" atk_object_set_accessible_id ::
Ptr Object ->
CString ->
IO ()
objectSetAccessibleId ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> T.Text
-> m ()
objectSetAccessibleId accessible name = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
name' <- textToCString name
atk_object_set_accessible_id accessible' name'
touchManagedPtr accessible
freeMem name'
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectSetAccessibleIdMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsObject a) => O.MethodInfo ObjectSetAccessibleIdMethodInfo a signature where
overloadedMethod = objectSetAccessibleId
#endif
foreign import ccall "atk_object_set_description" atk_object_set_description ::
Ptr Object ->
CString ->
IO ()
objectSetDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> T.Text
-> m ()
objectSetDescription accessible description = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
description' <- textToCString description
atk_object_set_description accessible' description'
touchManagedPtr accessible
freeMem description'
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectSetDescriptionMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsObject a) => O.MethodInfo ObjectSetDescriptionMethodInfo a signature where
overloadedMethod = objectSetDescription
#endif
foreign import ccall "atk_object_set_name" atk_object_set_name ::
Ptr Object ->
CString ->
IO ()
objectSetName ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> T.Text
-> m ()
objectSetName accessible name = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
name' <- textToCString name
atk_object_set_name accessible' name'
touchManagedPtr accessible
freeMem name'
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectSetNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsObject a) => O.MethodInfo ObjectSetNameMethodInfo a signature where
overloadedMethod = objectSetName
#endif
foreign import ccall "atk_object_set_parent" atk_object_set_parent ::
Ptr Object ->
Ptr Object ->
IO ()
objectSetParent ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a, IsObject b) =>
a
-> b
-> m ()
objectSetParent accessible parent = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
parent' <- unsafeManagedPtrCastPtr parent
atk_object_set_parent accessible' parent'
touchManagedPtr accessible
touchManagedPtr parent
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectSetParentMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsObject a, IsObject b) => O.MethodInfo ObjectSetParentMethodInfo a signature where
overloadedMethod = objectSetParent
#endif
foreign import ccall "atk_object_set_role" atk_object_set_role ::
Ptr Object ->
CUInt ->
IO ()
objectSetRole ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> Atk.Enums.Role
-> m ()
objectSetRole accessible role = liftIO $ do
accessible' <- unsafeManagedPtrCastPtr accessible
let role' = (fromIntegral . fromEnum) role
atk_object_set_role accessible' role'
touchManagedPtr accessible
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectSetRoleMethodInfo
instance (signature ~ (Atk.Enums.Role -> m ()), MonadIO m, IsObject a) => O.MethodInfo ObjectSetRoleMethodInfo a signature where
overloadedMethod = objectSetRole
#endif