#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Atk.Objects.Object
(
Object(..) ,
IsObject ,
toObject ,
noObject ,
#if ENABLE_OVERLOADING
ObjectAddRelationshipMethodInfo ,
#endif
objectAddRelationship ,
#if ENABLE_OVERLOADING
ObjectGetAccessibleIdMethodInfo ,
#endif
objectGetAccessibleId ,
#if ENABLE_OVERLOADING
ObjectGetAttributesMethodInfo ,
#endif
objectGetAttributes ,
#if ENABLE_OVERLOADING
ObjectGetDescriptionMethodInfo ,
#endif
objectGetDescription ,
#if ENABLE_OVERLOADING
ObjectGetIndexInParentMethodInfo ,
#endif
objectGetIndexInParent ,
#if ENABLE_OVERLOADING
ObjectGetLayerMethodInfo ,
#endif
objectGetLayer ,
#if ENABLE_OVERLOADING
ObjectGetMdiZorderMethodInfo ,
#endif
objectGetMdiZorder ,
#if ENABLE_OVERLOADING
ObjectGetNAccessibleChildrenMethodInfo ,
#endif
objectGetNAccessibleChildren ,
#if ENABLE_OVERLOADING
ObjectGetNameMethodInfo ,
#endif
objectGetName ,
#if ENABLE_OVERLOADING
ObjectGetObjectLocaleMethodInfo ,
#endif
objectGetObjectLocale ,
#if ENABLE_OVERLOADING
ObjectGetParentMethodInfo ,
#endif
objectGetParent ,
#if ENABLE_OVERLOADING
ObjectGetRoleMethodInfo ,
#endif
objectGetRole ,
#if ENABLE_OVERLOADING
ObjectInitializeMethodInfo ,
#endif
objectInitialize ,
#if ENABLE_OVERLOADING
ObjectNotifyStateChangeMethodInfo ,
#endif
objectNotifyStateChange ,
#if ENABLE_OVERLOADING
ObjectPeekParentMethodInfo ,
#endif
objectPeekParent ,
#if ENABLE_OVERLOADING
ObjectRefAccessibleChildMethodInfo ,
#endif
objectRefAccessibleChild ,
#if ENABLE_OVERLOADING
ObjectRefRelationSetMethodInfo ,
#endif
objectRefRelationSet ,
#if ENABLE_OVERLOADING
ObjectRefStateSetMethodInfo ,
#endif
objectRefStateSet ,
#if ENABLE_OVERLOADING
ObjectRemovePropertyChangeHandlerMethodInfo,
#endif
objectRemovePropertyChangeHandler ,
#if ENABLE_OVERLOADING
ObjectRemoveRelationshipMethodInfo ,
#endif
objectRemoveRelationship ,
#if ENABLE_OVERLOADING
ObjectSetAccessibleIdMethodInfo ,
#endif
objectSetAccessibleId ,
#if ENABLE_OVERLOADING
ObjectSetDescriptionMethodInfo ,
#endif
objectSetDescription ,
#if ENABLE_OVERLOADING
ObjectSetNameMethodInfo ,
#endif
objectSetName ,
#if ENABLE_OVERLOADING
ObjectSetParentMethodInfo ,
#endif
objectSetParent ,
#if ENABLE_OVERLOADING
ObjectSetRoleMethodInfo ,
#endif
objectSetRole ,
#if ENABLE_OVERLOADING
ObjectAccessibleComponentLayerPropertyInfo,
#endif
getObjectAccessibleComponentLayer ,
#if ENABLE_OVERLOADING
objectAccessibleComponentLayer ,
#endif
#if ENABLE_OVERLOADING
ObjectAccessibleComponentMdiZorderPropertyInfo,
#endif
getObjectAccessibleComponentMdiZorder ,
#if ENABLE_OVERLOADING
objectAccessibleComponentMdiZorder ,
#endif
#if ENABLE_OVERLOADING
ObjectAccessibleDescriptionPropertyInfo ,
#endif
clearObjectAccessibleDescription ,
constructObjectAccessibleDescription ,
getObjectAccessibleDescription ,
#if ENABLE_OVERLOADING
objectAccessibleDescription ,
#endif
setObjectAccessibleDescription ,
#if ENABLE_OVERLOADING
ObjectAccessibleHypertextNlinksPropertyInfo,
#endif
getObjectAccessibleHypertextNlinks ,
#if ENABLE_OVERLOADING
objectAccessibleHypertextNlinks ,
#endif
#if ENABLE_OVERLOADING
ObjectAccessibleNamePropertyInfo ,
#endif
clearObjectAccessibleName ,
constructObjectAccessibleName ,
getObjectAccessibleName ,
#if ENABLE_OVERLOADING
objectAccessibleName ,
#endif
setObjectAccessibleName ,
#if ENABLE_OVERLOADING
ObjectAccessibleParentPropertyInfo ,
#endif
clearObjectAccessibleParent ,
constructObjectAccessibleParent ,
getObjectAccessibleParent ,
#if ENABLE_OVERLOADING
objectAccessibleParent ,
#endif
setObjectAccessibleParent ,
#if ENABLE_OVERLOADING
ObjectAccessibleRolePropertyInfo ,
#endif
constructObjectAccessibleRole ,
getObjectAccessibleRole ,
#if ENABLE_OVERLOADING
objectAccessibleRole ,
#endif
setObjectAccessibleRole ,
#if ENABLE_OVERLOADING
ObjectAccessibleTableCaptionPropertyInfo,
#endif
clearObjectAccessibleTableCaption ,
constructObjectAccessibleTableCaption ,
getObjectAccessibleTableCaption ,
#if ENABLE_OVERLOADING
objectAccessibleTableCaption ,
#endif
setObjectAccessibleTableCaption ,
#if ENABLE_OVERLOADING
ObjectAccessibleTableCaptionObjectPropertyInfo,
#endif
clearObjectAccessibleTableCaptionObject ,
constructObjectAccessibleTableCaptionObject,
getObjectAccessibleTableCaptionObject ,
#if ENABLE_OVERLOADING
objectAccessibleTableCaptionObject ,
#endif
setObjectAccessibleTableCaptionObject ,
#if ENABLE_OVERLOADING
ObjectAccessibleTableColumnDescriptionPropertyInfo,
#endif
clearObjectAccessibleTableColumnDescription,
constructObjectAccessibleTableColumnDescription,
getObjectAccessibleTableColumnDescription,
#if ENABLE_OVERLOADING
objectAccessibleTableColumnDescription ,
#endif
setObjectAccessibleTableColumnDescription,
#if ENABLE_OVERLOADING
ObjectAccessibleTableColumnHeaderPropertyInfo,
#endif
clearObjectAccessibleTableColumnHeader ,
constructObjectAccessibleTableColumnHeader,
getObjectAccessibleTableColumnHeader ,
#if ENABLE_OVERLOADING
objectAccessibleTableColumnHeader ,
#endif
setObjectAccessibleTableColumnHeader ,
#if ENABLE_OVERLOADING
ObjectAccessibleTableRowDescriptionPropertyInfo,
#endif
clearObjectAccessibleTableRowDescription,
constructObjectAccessibleTableRowDescription,
getObjectAccessibleTableRowDescription ,
#if ENABLE_OVERLOADING
objectAccessibleTableRowDescription ,
#endif
setObjectAccessibleTableRowDescription ,
#if ENABLE_OVERLOADING
ObjectAccessibleTableRowHeaderPropertyInfo,
#endif
clearObjectAccessibleTableRowHeader ,
constructObjectAccessibleTableRowHeader ,
getObjectAccessibleTableRowHeader ,
#if ENABLE_OVERLOADING
objectAccessibleTableRowHeader ,
#endif
setObjectAccessibleTableRowHeader ,
#if ENABLE_OVERLOADING
ObjectAccessibleTableSummaryPropertyInfo,
#endif
clearObjectAccessibleTableSummary ,
constructObjectAccessibleTableSummary ,
getObjectAccessibleTableSummary ,
#if ENABLE_OVERLOADING
objectAccessibleTableSummary ,
#endif
setObjectAccessibleTableSummary ,
#if ENABLE_OVERLOADING
ObjectAccessibleValuePropertyInfo ,
#endif
constructObjectAccessibleValue ,
getObjectAccessibleValue ,
#if ENABLE_OVERLOADING
objectAccessibleValue ,
#endif
setObjectAccessibleValue ,
C_ObjectActiveDescendantChangedCallback ,
ObjectActiveDescendantChangedCallback ,
#if ENABLE_OVERLOADING
ObjectActiveDescendantChangedSignalInfo ,
#endif
afterObjectActiveDescendantChanged ,
genClosure_ObjectActiveDescendantChanged,
mk_ObjectActiveDescendantChangedCallback,
noObjectActiveDescendantChangedCallback ,
onObjectActiveDescendantChanged ,
wrap_ObjectActiveDescendantChangedCallback,
C_ObjectChildrenChangedCallback ,
ObjectChildrenChangedCallback ,
#if ENABLE_OVERLOADING
ObjectChildrenChangedSignalInfo ,
#endif
afterObjectChildrenChanged ,
genClosure_ObjectChildrenChanged ,
mk_ObjectChildrenChangedCallback ,
noObjectChildrenChangedCallback ,
onObjectChildrenChanged ,
wrap_ObjectChildrenChangedCallback ,
C_ObjectFocusEventCallback ,
ObjectFocusEventCallback ,
#if ENABLE_OVERLOADING
ObjectFocusEventSignalInfo ,
#endif
afterObjectFocusEvent ,
genClosure_ObjectFocusEvent ,
mk_ObjectFocusEventCallback ,
noObjectFocusEventCallback ,
onObjectFocusEvent ,
wrap_ObjectFocusEventCallback ,
C_ObjectPropertyChangeCallback ,
ObjectPropertyChangeCallback ,
#if ENABLE_OVERLOADING
ObjectPropertyChangeSignalInfo ,
#endif
afterObjectPropertyChange ,
genClosure_ObjectPropertyChange ,
mk_ObjectPropertyChangeCallback ,
noObjectPropertyChangeCallback ,
onObjectPropertyChange ,
wrap_ObjectPropertyChangeCallback ,
C_ObjectStateChangeCallback ,
ObjectStateChangeCallback ,
#if ENABLE_OVERLOADING
ObjectStateChangeSignalInfo ,
#endif
afterObjectStateChange ,
genClosure_ObjectStateChange ,
mk_ObjectStateChangeCallback ,
noObjectStateChangeCallback ,
onObjectStateChange ,
wrap_ObjectStateChangeCallback ,
C_ObjectVisibleDataChangedCallback ,
ObjectVisibleDataChangedCallback ,
#if 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
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)
foreign import ccall "atk_object_get_type"
c_atk_object_get_type :: IO GType
instance GObject Object where
gobjectType :: Object -> IO GType
gobjectType _ = IO GType
c_atk_object_get_type
class GObject o => IsObject o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError Object a) =>
IsObject a
#endif
instance IsObject Object
instance GObject.Object.IsObject Object
toObject :: (MonadIO m, IsObject o) => o -> m Object
toObject :: o -> m Object
toObject = IO Object -> m Object
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Object -> m Object) -> (o -> IO Object) -> o -> m Object
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Object -> Object) -> o -> IO Object
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Object -> Object
Object
noObject :: Maybe Object
noObject :: Maybe Object
noObject = Maybe Object
forall a. Maybe a
Nothing
#if 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 "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) => O.IsLabelProxy t (Object -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveObjectMethod t Object, O.MethodInfo info Object p) => O.IsLabel t (Object -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
type ObjectActiveDescendantChangedCallback =
Maybe Object
-> IO ()
noObjectActiveDescendantChangedCallback :: Maybe ObjectActiveDescendantChangedCallback
noObjectActiveDescendantChangedCallback :: Maybe ObjectActiveDescendantChangedCallback
noObjectActiveDescendantChangedCallback = Maybe ObjectActiveDescendantChangedCallback
forall a. Maybe a
Nothing
type C_ObjectActiveDescendantChangedCallback =
Ptr () ->
Ptr Object ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ObjectActiveDescendantChangedCallback :: C_ObjectActiveDescendantChangedCallback -> IO (FunPtr C_ObjectActiveDescendantChangedCallback)
genClosure_ObjectActiveDescendantChanged :: ObjectActiveDescendantChangedCallback -> IO Closure
genClosure_ObjectActiveDescendantChanged :: ObjectActiveDescendantChangedCallback -> IO Closure
genClosure_ObjectActiveDescendantChanged cb :: ObjectActiveDescendantChangedCallback
cb = do
let cb' :: C_ObjectActiveDescendantChangedCallback
cb' = ObjectActiveDescendantChangedCallback
-> C_ObjectActiveDescendantChangedCallback
wrap_ObjectActiveDescendantChangedCallback ObjectActiveDescendantChangedCallback
cb
C_ObjectActiveDescendantChangedCallback
-> IO (FunPtr C_ObjectActiveDescendantChangedCallback)
mk_ObjectActiveDescendantChangedCallback C_ObjectActiveDescendantChangedCallback
cb' IO (FunPtr C_ObjectActiveDescendantChangedCallback)
-> (FunPtr C_ObjectActiveDescendantChangedCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ObjectActiveDescendantChangedCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_ObjectActiveDescendantChangedCallback ::
ObjectActiveDescendantChangedCallback ->
C_ObjectActiveDescendantChangedCallback
wrap_ObjectActiveDescendantChangedCallback :: ObjectActiveDescendantChangedCallback
-> C_ObjectActiveDescendantChangedCallback
wrap_ObjectActiveDescendantChangedCallback _cb :: ObjectActiveDescendantChangedCallback
_cb _ arg1 :: Ptr Object
arg1 _ = do
Maybe Object
maybeArg1 <-
if Ptr Object
arg1 Ptr Object -> Ptr Object -> Bool
forall a. Eq a => a -> a -> Bool
== Ptr Object
forall a. Ptr a
nullPtr
then Maybe Object -> IO (Maybe Object)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Object
forall a. Maybe a
Nothing
else do
Object
arg1' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
Object) Ptr Object
arg1
Maybe Object -> IO (Maybe Object)
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Object -> IO (Maybe Object))
-> Maybe Object -> IO (Maybe Object)
forall a b. (a -> b) -> a -> b
$ Object -> Maybe Object
forall a. a -> Maybe a
Just Object
arg1'
ObjectActiveDescendantChangedCallback
_cb Maybe Object
maybeArg1
onObjectActiveDescendantChanged :: (IsObject a, MonadIO m) => a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId
onObjectActiveDescendantChanged :: a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId
onObjectActiveDescendantChanged obj :: a
obj cb :: ObjectActiveDescendantChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ObjectActiveDescendantChangedCallback
cb' = ObjectActiveDescendantChangedCallback
-> C_ObjectActiveDescendantChangedCallback
wrap_ObjectActiveDescendantChangedCallback ObjectActiveDescendantChangedCallback
cb
FunPtr C_ObjectActiveDescendantChangedCallback
cb'' <- C_ObjectActiveDescendantChangedCallback
-> IO (FunPtr C_ObjectActiveDescendantChangedCallback)
mk_ObjectActiveDescendantChangedCallback C_ObjectActiveDescendantChangedCallback
cb'
a
-> String
-> FunPtr C_ObjectActiveDescendantChangedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "active-descendant-changed" FunPtr C_ObjectActiveDescendantChangedCallback
cb'' SignalConnectMode
SignalConnectBefore
afterObjectActiveDescendantChanged :: (IsObject a, MonadIO m) => a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId
afterObjectActiveDescendantChanged :: a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId
afterObjectActiveDescendantChanged obj :: a
obj cb :: ObjectActiveDescendantChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ObjectActiveDescendantChangedCallback
cb' = ObjectActiveDescendantChangedCallback
-> C_ObjectActiveDescendantChangedCallback
wrap_ObjectActiveDescendantChangedCallback ObjectActiveDescendantChangedCallback
cb
FunPtr C_ObjectActiveDescendantChangedCallback
cb'' <- C_ObjectActiveDescendantChangedCallback
-> IO (FunPtr C_ObjectActiveDescendantChangedCallback)
mk_ObjectActiveDescendantChangedCallback C_ObjectActiveDescendantChangedCallback
cb'
a
-> String
-> FunPtr C_ObjectActiveDescendantChangedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "active-descendant-changed" FunPtr C_ObjectActiveDescendantChangedCallback
cb'' SignalConnectMode
SignalConnectAfter
type ObjectChildrenChangedCallback =
Word32
-> Maybe Object
-> IO ()
noObjectChildrenChangedCallback :: Maybe ObjectChildrenChangedCallback
noObjectChildrenChangedCallback :: Maybe ObjectChildrenChangedCallback
noObjectChildrenChangedCallback = Maybe ObjectChildrenChangedCallback
forall a. Maybe a
Nothing
type C_ObjectChildrenChangedCallback =
Ptr () ->
Word32 ->
Ptr Object ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ObjectChildrenChangedCallback :: C_ObjectChildrenChangedCallback -> IO (FunPtr C_ObjectChildrenChangedCallback)
genClosure_ObjectChildrenChanged :: ObjectChildrenChangedCallback -> IO Closure
genClosure_ObjectChildrenChanged :: ObjectChildrenChangedCallback -> IO Closure
genClosure_ObjectChildrenChanged cb :: ObjectChildrenChangedCallback
cb = do
let cb' :: C_ObjectChildrenChangedCallback
cb' = ObjectChildrenChangedCallback -> C_ObjectChildrenChangedCallback
wrap_ObjectChildrenChangedCallback ObjectChildrenChangedCallback
cb
C_ObjectChildrenChangedCallback
-> IO (FunPtr C_ObjectChildrenChangedCallback)
mk_ObjectChildrenChangedCallback C_ObjectChildrenChangedCallback
cb' IO (FunPtr C_ObjectChildrenChangedCallback)
-> (FunPtr C_ObjectChildrenChangedCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ObjectChildrenChangedCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_ObjectChildrenChangedCallback ::
ObjectChildrenChangedCallback ->
C_ObjectChildrenChangedCallback
wrap_ObjectChildrenChangedCallback :: ObjectChildrenChangedCallback -> C_ObjectChildrenChangedCallback
wrap_ObjectChildrenChangedCallback _cb :: ObjectChildrenChangedCallback
_cb _ arg1 :: Word32
arg1 arg2 :: Ptr Object
arg2 _ = do
Maybe Object
maybeArg2 <-
if Ptr Object
arg2 Ptr Object -> Ptr Object -> Bool
forall a. Eq a => a -> a -> Bool
== Ptr Object
forall a. Ptr a
nullPtr
then Maybe Object -> IO (Maybe Object)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Object
forall a. Maybe a
Nothing
else do
Object
arg2' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
Object) Ptr Object
arg2
Maybe Object -> IO (Maybe Object)
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Object -> IO (Maybe Object))
-> Maybe Object -> IO (Maybe Object)
forall a b. (a -> b) -> a -> b
$ Object -> Maybe Object
forall a. a -> Maybe a
Just Object
arg2'
ObjectChildrenChangedCallback
_cb Word32
arg1 Maybe Object
maybeArg2
onObjectChildrenChanged :: (IsObject a, MonadIO m) => a -> ObjectChildrenChangedCallback -> m SignalHandlerId
onObjectChildrenChanged :: a -> ObjectChildrenChangedCallback -> m SignalHandlerId
onObjectChildrenChanged obj :: a
obj cb :: ObjectChildrenChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ObjectChildrenChangedCallback
cb' = ObjectChildrenChangedCallback -> C_ObjectChildrenChangedCallback
wrap_ObjectChildrenChangedCallback ObjectChildrenChangedCallback
cb
FunPtr C_ObjectChildrenChangedCallback
cb'' <- C_ObjectChildrenChangedCallback
-> IO (FunPtr C_ObjectChildrenChangedCallback)
mk_ObjectChildrenChangedCallback C_ObjectChildrenChangedCallback
cb'
a
-> String
-> FunPtr C_ObjectChildrenChangedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "children-changed" FunPtr C_ObjectChildrenChangedCallback
cb'' SignalConnectMode
SignalConnectBefore
afterObjectChildrenChanged :: (IsObject a, MonadIO m) => a -> ObjectChildrenChangedCallback -> m SignalHandlerId
afterObjectChildrenChanged :: a -> ObjectChildrenChangedCallback -> m SignalHandlerId
afterObjectChildrenChanged obj :: a
obj cb :: ObjectChildrenChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ObjectChildrenChangedCallback
cb' = ObjectChildrenChangedCallback -> C_ObjectChildrenChangedCallback
wrap_ObjectChildrenChangedCallback ObjectChildrenChangedCallback
cb
FunPtr C_ObjectChildrenChangedCallback
cb'' <- C_ObjectChildrenChangedCallback
-> IO (FunPtr C_ObjectChildrenChangedCallback)
mk_ObjectChildrenChangedCallback C_ObjectChildrenChangedCallback
cb'
a
-> String
-> FunPtr C_ObjectChildrenChangedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "children-changed" FunPtr C_ObjectChildrenChangedCallback
cb'' SignalConnectMode
SignalConnectAfter
{-# DEPRECATED ObjectFocusEventCallback ["(Since version 2.9.4)","Use the 'GI.Atk.Objects.Object.Object'::@/state-change/@ signal instead."] #-}
type ObjectFocusEventCallback =
Bool
-> IO ()
noObjectFocusEventCallback :: Maybe ObjectFocusEventCallback
noObjectFocusEventCallback :: Maybe ObjectFocusEventCallback
noObjectFocusEventCallback = Maybe ObjectFocusEventCallback
forall a. Maybe a
Nothing
type C_ObjectFocusEventCallback =
Ptr () ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ObjectFocusEventCallback :: C_ObjectFocusEventCallback -> IO (FunPtr C_ObjectFocusEventCallback)
genClosure_ObjectFocusEvent :: ObjectFocusEventCallback -> IO Closure
genClosure_ObjectFocusEvent :: ObjectFocusEventCallback -> IO Closure
genClosure_ObjectFocusEvent cb :: ObjectFocusEventCallback
cb = do
let cb' :: C_ObjectFocusEventCallback
cb' = ObjectFocusEventCallback -> C_ObjectFocusEventCallback
wrap_ObjectFocusEventCallback ObjectFocusEventCallback
cb
C_ObjectFocusEventCallback
-> IO (FunPtr C_ObjectFocusEventCallback)
mk_ObjectFocusEventCallback C_ObjectFocusEventCallback
cb' IO (FunPtr C_ObjectFocusEventCallback)
-> (FunPtr C_ObjectFocusEventCallback -> IO Closure) -> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ObjectFocusEventCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_ObjectFocusEventCallback ::
ObjectFocusEventCallback ->
C_ObjectFocusEventCallback
wrap_ObjectFocusEventCallback :: ObjectFocusEventCallback -> C_ObjectFocusEventCallback
wrap_ObjectFocusEventCallback _cb :: ObjectFocusEventCallback
_cb _ arg1 :: CInt
arg1 _ = do
let arg1' :: Bool
arg1' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
arg1
ObjectFocusEventCallback
_cb Bool
arg1'
onObjectFocusEvent :: (IsObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId
onObjectFocusEvent :: a -> ObjectFocusEventCallback -> m SignalHandlerId
onObjectFocusEvent obj :: a
obj cb :: ObjectFocusEventCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ObjectFocusEventCallback
cb' = ObjectFocusEventCallback -> C_ObjectFocusEventCallback
wrap_ObjectFocusEventCallback ObjectFocusEventCallback
cb
FunPtr C_ObjectFocusEventCallback
cb'' <- C_ObjectFocusEventCallback
-> IO (FunPtr C_ObjectFocusEventCallback)
mk_ObjectFocusEventCallback C_ObjectFocusEventCallback
cb'
a
-> String
-> FunPtr C_ObjectFocusEventCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "focus-event" FunPtr C_ObjectFocusEventCallback
cb'' SignalConnectMode
SignalConnectBefore
afterObjectFocusEvent :: (IsObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId
afterObjectFocusEvent :: a -> ObjectFocusEventCallback -> m SignalHandlerId
afterObjectFocusEvent obj :: a
obj cb :: ObjectFocusEventCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ObjectFocusEventCallback
cb' = ObjectFocusEventCallback -> C_ObjectFocusEventCallback
wrap_ObjectFocusEventCallback ObjectFocusEventCallback
cb
FunPtr C_ObjectFocusEventCallback
cb'' <- C_ObjectFocusEventCallback
-> IO (FunPtr C_ObjectFocusEventCallback)
mk_ObjectFocusEventCallback C_ObjectFocusEventCallback
cb'
a
-> String
-> FunPtr C_ObjectFocusEventCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "focus-event" FunPtr C_ObjectFocusEventCallback
cb'' SignalConnectMode
SignalConnectAfter
type ObjectPropertyChangeCallback =
Maybe Atk.PropertyValues.PropertyValues
-> IO ()
noObjectPropertyChangeCallback :: Maybe ObjectPropertyChangeCallback
noObjectPropertyChangeCallback :: Maybe ObjectPropertyChangeCallback
noObjectPropertyChangeCallback = Maybe ObjectPropertyChangeCallback
forall a. Maybe a
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 :: ObjectPropertyChangeCallback -> IO Closure
genClosure_ObjectPropertyChange :: ObjectPropertyChangeCallback -> IO Closure
genClosure_ObjectPropertyChange cb :: ObjectPropertyChangeCallback
cb = do
let cb' :: C_ObjectPropertyChangeCallback
cb' = ObjectPropertyChangeCallback -> C_ObjectPropertyChangeCallback
wrap_ObjectPropertyChangeCallback ObjectPropertyChangeCallback
cb
C_ObjectPropertyChangeCallback
-> IO (FunPtr C_ObjectPropertyChangeCallback)
mk_ObjectPropertyChangeCallback C_ObjectPropertyChangeCallback
cb' IO (FunPtr C_ObjectPropertyChangeCallback)
-> (FunPtr C_ObjectPropertyChangeCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ObjectPropertyChangeCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_ObjectPropertyChangeCallback ::
ObjectPropertyChangeCallback ->
C_ObjectPropertyChangeCallback
wrap_ObjectPropertyChangeCallback :: ObjectPropertyChangeCallback -> C_ObjectPropertyChangeCallback
wrap_ObjectPropertyChangeCallback _cb :: ObjectPropertyChangeCallback
_cb _ arg1 :: Ptr PropertyValues
arg1 _ = do
Maybe PropertyValues
maybeArg1 <-
if Ptr PropertyValues
arg1 Ptr PropertyValues -> Ptr PropertyValues -> Bool
forall a. Eq a => a -> a -> Bool
== Ptr PropertyValues
forall a. Ptr a
nullPtr
then Maybe PropertyValues -> IO (Maybe PropertyValues)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PropertyValues
forall a. Maybe a
Nothing
else do
PropertyValues
arg1' <- ((ManagedPtr PropertyValues -> PropertyValues)
-> Ptr PropertyValues -> IO PropertyValues
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr PropertyValues -> PropertyValues
Atk.PropertyValues.PropertyValues) Ptr PropertyValues
arg1
Maybe PropertyValues -> IO (Maybe PropertyValues)
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe PropertyValues -> IO (Maybe PropertyValues))
-> Maybe PropertyValues -> IO (Maybe PropertyValues)
forall a b. (a -> b) -> a -> b
$ PropertyValues -> Maybe PropertyValues
forall a. a -> Maybe a
Just PropertyValues
arg1'
ObjectPropertyChangeCallback
_cb Maybe PropertyValues
maybeArg1
onObjectPropertyChange :: (IsObject a, MonadIO m) => a -> ObjectPropertyChangeCallback -> m SignalHandlerId
onObjectPropertyChange :: a -> ObjectPropertyChangeCallback -> m SignalHandlerId
onObjectPropertyChange obj :: a
obj cb :: ObjectPropertyChangeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ObjectPropertyChangeCallback
cb' = ObjectPropertyChangeCallback -> C_ObjectPropertyChangeCallback
wrap_ObjectPropertyChangeCallback ObjectPropertyChangeCallback
cb
FunPtr C_ObjectPropertyChangeCallback
cb'' <- C_ObjectPropertyChangeCallback
-> IO (FunPtr C_ObjectPropertyChangeCallback)
mk_ObjectPropertyChangeCallback C_ObjectPropertyChangeCallback
cb'
a
-> String
-> FunPtr C_ObjectPropertyChangeCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "property-change" FunPtr C_ObjectPropertyChangeCallback
cb'' SignalConnectMode
SignalConnectBefore
afterObjectPropertyChange :: (IsObject a, MonadIO m) => a -> ObjectPropertyChangeCallback -> m SignalHandlerId
afterObjectPropertyChange :: a -> ObjectPropertyChangeCallback -> m SignalHandlerId
afterObjectPropertyChange obj :: a
obj cb :: ObjectPropertyChangeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ObjectPropertyChangeCallback
cb' = ObjectPropertyChangeCallback -> C_ObjectPropertyChangeCallback
wrap_ObjectPropertyChangeCallback ObjectPropertyChangeCallback
cb
FunPtr C_ObjectPropertyChangeCallback
cb'' <- C_ObjectPropertyChangeCallback
-> IO (FunPtr C_ObjectPropertyChangeCallback)
mk_ObjectPropertyChangeCallback C_ObjectPropertyChangeCallback
cb'
a
-> String
-> FunPtr C_ObjectPropertyChangeCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "property-change" FunPtr C_ObjectPropertyChangeCallback
cb'' SignalConnectMode
SignalConnectAfter
type ObjectStateChangeCallback =
T.Text
-> Bool
-> IO ()
noObjectStateChangeCallback :: Maybe ObjectStateChangeCallback
noObjectStateChangeCallback :: Maybe ObjectStateChangeCallback
noObjectStateChangeCallback = Maybe ObjectStateChangeCallback
forall a. Maybe a
Nothing
type C_ObjectStateChangeCallback =
Ptr () ->
CString ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ObjectStateChangeCallback :: C_ObjectStateChangeCallback -> IO (FunPtr C_ObjectStateChangeCallback)
genClosure_ObjectStateChange :: ObjectStateChangeCallback -> IO Closure
genClosure_ObjectStateChange :: ObjectStateChangeCallback -> IO Closure
genClosure_ObjectStateChange cb :: ObjectStateChangeCallback
cb = do
let cb' :: C_ObjectStateChangeCallback
cb' = ObjectStateChangeCallback -> C_ObjectStateChangeCallback
wrap_ObjectStateChangeCallback ObjectStateChangeCallback
cb
C_ObjectStateChangeCallback
-> IO (FunPtr C_ObjectStateChangeCallback)
mk_ObjectStateChangeCallback C_ObjectStateChangeCallback
cb' IO (FunPtr C_ObjectStateChangeCallback)
-> (FunPtr C_ObjectStateChangeCallback -> IO Closure) -> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ObjectStateChangeCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_ObjectStateChangeCallback ::
ObjectStateChangeCallback ->
C_ObjectStateChangeCallback
wrap_ObjectStateChangeCallback :: ObjectStateChangeCallback -> C_ObjectStateChangeCallback
wrap_ObjectStateChangeCallback _cb :: ObjectStateChangeCallback
_cb _ arg1 :: CString
arg1 arg2 :: CInt
arg2 _ = do
Text
arg1' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
arg1
let arg2' :: Bool
arg2' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
arg2
ObjectStateChangeCallback
_cb Text
arg1' Bool
arg2'
onObjectStateChange :: (IsObject a, MonadIO m) => a -> ObjectStateChangeCallback -> m SignalHandlerId
onObjectStateChange :: a -> ObjectStateChangeCallback -> m SignalHandlerId
onObjectStateChange obj :: a
obj cb :: ObjectStateChangeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ObjectStateChangeCallback
cb' = ObjectStateChangeCallback -> C_ObjectStateChangeCallback
wrap_ObjectStateChangeCallback ObjectStateChangeCallback
cb
FunPtr C_ObjectStateChangeCallback
cb'' <- C_ObjectStateChangeCallback
-> IO (FunPtr C_ObjectStateChangeCallback)
mk_ObjectStateChangeCallback C_ObjectStateChangeCallback
cb'
a
-> String
-> FunPtr C_ObjectStateChangeCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "state-change" FunPtr C_ObjectStateChangeCallback
cb'' SignalConnectMode
SignalConnectBefore
afterObjectStateChange :: (IsObject a, MonadIO m) => a -> ObjectStateChangeCallback -> m SignalHandlerId
afterObjectStateChange :: a -> ObjectStateChangeCallback -> m SignalHandlerId
afterObjectStateChange obj :: a
obj cb :: ObjectStateChangeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ObjectStateChangeCallback
cb' = ObjectStateChangeCallback -> C_ObjectStateChangeCallback
wrap_ObjectStateChangeCallback ObjectStateChangeCallback
cb
FunPtr C_ObjectStateChangeCallback
cb'' <- C_ObjectStateChangeCallback
-> IO (FunPtr C_ObjectStateChangeCallback)
mk_ObjectStateChangeCallback C_ObjectStateChangeCallback
cb'
a
-> String
-> FunPtr C_ObjectStateChangeCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "state-change" FunPtr C_ObjectStateChangeCallback
cb'' SignalConnectMode
SignalConnectAfter
type ObjectVisibleDataChangedCallback =
IO ()
noObjectVisibleDataChangedCallback :: Maybe ObjectVisibleDataChangedCallback
noObjectVisibleDataChangedCallback :: Maybe ObjectVisibleDataChangedCallback
noObjectVisibleDataChangedCallback = Maybe ObjectVisibleDataChangedCallback
forall a. Maybe a
Nothing
type C_ObjectVisibleDataChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ObjectVisibleDataChangedCallback :: C_ObjectVisibleDataChangedCallback -> IO (FunPtr C_ObjectVisibleDataChangedCallback)
genClosure_ObjectVisibleDataChanged :: ObjectVisibleDataChangedCallback -> IO Closure
genClosure_ObjectVisibleDataChanged :: ObjectVisibleDataChangedCallback -> IO Closure
genClosure_ObjectVisibleDataChanged cb :: ObjectVisibleDataChangedCallback
cb = do
let cb' :: C_ObjectVisibleDataChangedCallback
cb' = ObjectVisibleDataChangedCallback
-> C_ObjectVisibleDataChangedCallback
wrap_ObjectVisibleDataChangedCallback ObjectVisibleDataChangedCallback
cb
C_ObjectVisibleDataChangedCallback
-> IO (FunPtr C_ObjectVisibleDataChangedCallback)
mk_ObjectVisibleDataChangedCallback C_ObjectVisibleDataChangedCallback
cb' IO (FunPtr C_ObjectVisibleDataChangedCallback)
-> (FunPtr C_ObjectVisibleDataChangedCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ObjectVisibleDataChangedCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_ObjectVisibleDataChangedCallback ::
ObjectVisibleDataChangedCallback ->
C_ObjectVisibleDataChangedCallback
wrap_ObjectVisibleDataChangedCallback :: ObjectVisibleDataChangedCallback
-> C_ObjectVisibleDataChangedCallback
wrap_ObjectVisibleDataChangedCallback _cb :: ObjectVisibleDataChangedCallback
_cb _ _ = do
ObjectVisibleDataChangedCallback
_cb
onObjectVisibleDataChanged :: (IsObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId
onObjectVisibleDataChanged :: a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId
onObjectVisibleDataChanged obj :: a
obj cb :: ObjectVisibleDataChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ObjectVisibleDataChangedCallback
cb' = ObjectVisibleDataChangedCallback
-> C_ObjectVisibleDataChangedCallback
wrap_ObjectVisibleDataChangedCallback ObjectVisibleDataChangedCallback
cb
FunPtr C_ObjectVisibleDataChangedCallback
cb'' <- C_ObjectVisibleDataChangedCallback
-> IO (FunPtr C_ObjectVisibleDataChangedCallback)
mk_ObjectVisibleDataChangedCallback C_ObjectVisibleDataChangedCallback
cb'
a
-> String
-> FunPtr C_ObjectVisibleDataChangedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "visible-data-changed" FunPtr C_ObjectVisibleDataChangedCallback
cb'' SignalConnectMode
SignalConnectBefore
afterObjectVisibleDataChanged :: (IsObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId
afterObjectVisibleDataChanged :: a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId
afterObjectVisibleDataChanged obj :: a
obj cb :: ObjectVisibleDataChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ObjectVisibleDataChangedCallback
cb' = ObjectVisibleDataChangedCallback
-> C_ObjectVisibleDataChangedCallback
wrap_ObjectVisibleDataChangedCallback ObjectVisibleDataChangedCallback
cb
FunPtr C_ObjectVisibleDataChangedCallback
cb'' <- C_ObjectVisibleDataChangedCallback
-> IO (FunPtr C_ObjectVisibleDataChangedCallback)
mk_ObjectVisibleDataChangedCallback C_ObjectVisibleDataChangedCallback
cb'
a
-> String
-> FunPtr C_ObjectVisibleDataChangedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "visible-data-changed" FunPtr C_ObjectVisibleDataChangedCallback
cb'' SignalConnectMode
SignalConnectAfter
getObjectAccessibleComponentLayer :: (MonadIO m, IsObject o) => o -> m Int32
getObjectAccessibleComponentLayer :: o -> m Int32
getObjectAccessibleComponentLayer obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
getObjectPropertyInt32 o
obj "accessible-component-layer"
#if ENABLE_OVERLOADING
data ObjectAccessibleComponentLayerPropertyInfo
instance AttrInfo ObjectAccessibleComponentLayerPropertyInfo where
type AttrAllowedOps ObjectAccessibleComponentLayerPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = (~) ()
type AttrBaseTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = IsObject
type AttrGetType ObjectAccessibleComponentLayerPropertyInfo = Int32
type AttrLabel ObjectAccessibleComponentLayerPropertyInfo = "accessible-component-layer"
type AttrOrigin ObjectAccessibleComponentLayerPropertyInfo = Object
attrGet _ = getObjectAccessibleComponentLayer
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getObjectAccessibleComponentMdiZorder :: (MonadIO m, IsObject o) => o -> m Int32
getObjectAccessibleComponentMdiZorder :: o -> m Int32
getObjectAccessibleComponentMdiZorder obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
getObjectPropertyInt32 o
obj "accessible-component-mdi-zorder"
#if ENABLE_OVERLOADING
data ObjectAccessibleComponentMdiZorderPropertyInfo
instance AttrInfo ObjectAccessibleComponentMdiZorderPropertyInfo where
type AttrAllowedOps ObjectAccessibleComponentMdiZorderPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = (~) ()
type AttrBaseTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = IsObject
type AttrGetType ObjectAccessibleComponentMdiZorderPropertyInfo = Int32
type AttrLabel ObjectAccessibleComponentMdiZorderPropertyInfo = "accessible-component-mdi-zorder"
type AttrOrigin ObjectAccessibleComponentMdiZorderPropertyInfo = Object
attrGet _ = getObjectAccessibleComponentMdiZorder
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getObjectAccessibleDescription :: (MonadIO m, IsObject o) => o -> m (Maybe T.Text)
getObjectAccessibleDescription :: o -> m (Maybe Text)
getObjectAccessibleDescription obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
getObjectPropertyString o
obj "accessible-description"
setObjectAccessibleDescription :: (MonadIO m, IsObject o) => o -> T.Text -> m ()
setObjectAccessibleDescription :: o -> Text -> m ()
setObjectAccessibleDescription obj :: o
obj val :: Text
val = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
forall a.
GObject a =>
a -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
setObjectPropertyString o
obj "accessible-description" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructObjectAccessibleDescription :: (IsObject o) => T.Text -> IO (GValueConstruct o)
constructObjectAccessibleDescription :: Text -> IO (GValueConstruct o)
constructObjectAccessibleDescription val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
constructObjectPropertyString "accessible-description" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearObjectAccessibleDescription :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleDescription :: o -> m ()
clearObjectAccessibleDescription obj :: o
obj = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
forall a.
GObject a =>
a -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
setObjectPropertyString o
obj "accessible-description" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if ENABLE_OVERLOADING
data ObjectAccessibleDescriptionPropertyInfo
instance AttrInfo ObjectAccessibleDescriptionPropertyInfo where
type AttrAllowedOps ObjectAccessibleDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectAccessibleDescriptionPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ObjectAccessibleDescriptionPropertyInfo = IsObject
type AttrGetType ObjectAccessibleDescriptionPropertyInfo = (Maybe T.Text)
type AttrLabel ObjectAccessibleDescriptionPropertyInfo = "accessible-description"
type AttrOrigin ObjectAccessibleDescriptionPropertyInfo = Object
attrGet _ = getObjectAccessibleDescription
attrSet _ = setObjectAccessibleDescription
attrConstruct _ = constructObjectAccessibleDescription
attrClear _ = clearObjectAccessibleDescription
#endif
getObjectAccessibleHypertextNlinks :: (MonadIO m, IsObject o) => o -> m Int32
getObjectAccessibleHypertextNlinks :: o -> m Int32
getObjectAccessibleHypertextNlinks obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
getObjectPropertyInt32 o
obj "accessible-hypertext-nlinks"
#if ENABLE_OVERLOADING
data ObjectAccessibleHypertextNlinksPropertyInfo
instance AttrInfo ObjectAccessibleHypertextNlinksPropertyInfo where
type AttrAllowedOps ObjectAccessibleHypertextNlinksPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = (~) ()
type AttrBaseTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = IsObject
type AttrGetType ObjectAccessibleHypertextNlinksPropertyInfo = Int32
type AttrLabel ObjectAccessibleHypertextNlinksPropertyInfo = "accessible-hypertext-nlinks"
type AttrOrigin ObjectAccessibleHypertextNlinksPropertyInfo = Object
attrGet _ = getObjectAccessibleHypertextNlinks
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getObjectAccessibleName :: (MonadIO m, IsObject o) => o -> m (Maybe T.Text)
getObjectAccessibleName :: o -> m (Maybe Text)
getObjectAccessibleName obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
getObjectPropertyString o
obj "accessible-name"
setObjectAccessibleName :: (MonadIO m, IsObject o) => o -> T.Text -> m ()
setObjectAccessibleName :: o -> Text -> m ()
setObjectAccessibleName obj :: o
obj val :: Text
val = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
forall a.
GObject a =>
a -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
setObjectPropertyString o
obj "accessible-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructObjectAccessibleName :: (IsObject o) => T.Text -> IO (GValueConstruct o)
constructObjectAccessibleName :: Text -> IO (GValueConstruct o)
constructObjectAccessibleName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
constructObjectPropertyString "accessible-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearObjectAccessibleName :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleName :: o -> m ()
clearObjectAccessibleName obj :: o
obj = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
forall a.
GObject a =>
a -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
setObjectPropertyString o
obj "accessible-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if ENABLE_OVERLOADING
data ObjectAccessibleNamePropertyInfo
instance AttrInfo ObjectAccessibleNamePropertyInfo where
type AttrAllowedOps ObjectAccessibleNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectAccessibleNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ObjectAccessibleNamePropertyInfo = IsObject
type AttrGetType ObjectAccessibleNamePropertyInfo = (Maybe T.Text)
type AttrLabel ObjectAccessibleNamePropertyInfo = "accessible-name"
type AttrOrigin ObjectAccessibleNamePropertyInfo = Object
attrGet _ = getObjectAccessibleName
attrSet _ = setObjectAccessibleName
attrConstruct _ = constructObjectAccessibleName
attrClear _ = clearObjectAccessibleName
#endif
getObjectAccessibleParent :: (MonadIO m, IsObject o) => o -> m (Maybe Object)
getObjectAccessibleParent :: o -> m (Maybe Object)
getObjectAccessibleParent obj :: o
obj = IO (Maybe Object) -> m (Maybe Object)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Object -> Object) -> IO (Maybe Object)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
getObjectPropertyObject o
obj "accessible-parent" ManagedPtr Object -> Object
Object
setObjectAccessibleParent :: (MonadIO m, IsObject o, IsObject a) => o -> a -> m ()
setObjectAccessibleParent :: o -> a -> m ()
setObjectAccessibleParent obj :: o
obj val :: a
val = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> ObjectVisibleDataChangedCallback
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> ObjectVisibleDataChangedCallback
setObjectPropertyObject o
obj "accessible-parent" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructObjectAccessibleParent :: (IsObject o, IsObject a) => a -> IO (GValueConstruct o)
constructObjectAccessibleParent :: a -> IO (GValueConstruct o)
constructObjectAccessibleParent val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
constructObjectPropertyObject "accessible-parent" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearObjectAccessibleParent :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleParent :: o -> m ()
clearObjectAccessibleParent obj :: o
obj = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> ObjectActiveDescendantChangedCallback
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> ObjectVisibleDataChangedCallback
setObjectPropertyObject o
obj "accessible-parent" (Maybe Object
forall a. Maybe a
Nothing :: Maybe Object)
#if ENABLE_OVERLOADING
data ObjectAccessibleParentPropertyInfo
instance AttrInfo ObjectAccessibleParentPropertyInfo where
type AttrAllowedOps ObjectAccessibleParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectAccessibleParentPropertyInfo = IsObject
type AttrBaseTypeConstraint ObjectAccessibleParentPropertyInfo = IsObject
type AttrGetType ObjectAccessibleParentPropertyInfo = (Maybe Object)
type AttrLabel ObjectAccessibleParentPropertyInfo = "accessible-parent"
type AttrOrigin ObjectAccessibleParentPropertyInfo = Object
attrGet _ = getObjectAccessibleParent
attrSet _ = setObjectAccessibleParent
attrConstruct _ = constructObjectAccessibleParent
attrClear _ = clearObjectAccessibleParent
#endif
getObjectAccessibleRole :: (MonadIO m, IsObject o) => o -> m Atk.Enums.Role
getObjectAccessibleRole :: o -> m Role
getObjectAccessibleRole obj :: o
obj = IO Role -> m Role
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Role -> m Role) -> IO Role -> m Role
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Role
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
getObjectPropertyEnum o
obj "accessible-role"
setObjectAccessibleRole :: (MonadIO m, IsObject o) => o -> Atk.Enums.Role -> m ()
setObjectAccessibleRole :: o -> Role -> m ()
setObjectAccessibleRole obj :: o
obj val :: Role
val = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Role -> ObjectVisibleDataChangedCallback
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> ObjectVisibleDataChangedCallback
setObjectPropertyEnum o
obj "accessible-role" Role
val
constructObjectAccessibleRole :: (IsObject o) => Atk.Enums.Role -> IO (GValueConstruct o)
constructObjectAccessibleRole :: Role -> IO (GValueConstruct o)
constructObjectAccessibleRole val :: Role
val = String -> Role -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
constructObjectPropertyEnum "accessible-role" Role
val
#if ENABLE_OVERLOADING
data ObjectAccessibleRolePropertyInfo
instance AttrInfo ObjectAccessibleRolePropertyInfo where
type AttrAllowedOps ObjectAccessibleRolePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleRolePropertyInfo = (~) Atk.Enums.Role
type AttrBaseTypeConstraint ObjectAccessibleRolePropertyInfo = IsObject
type AttrGetType ObjectAccessibleRolePropertyInfo = Atk.Enums.Role
type AttrLabel ObjectAccessibleRolePropertyInfo = "accessible-role"
type AttrOrigin ObjectAccessibleRolePropertyInfo = Object
attrGet _ = getObjectAccessibleRole
attrSet _ = setObjectAccessibleRole
attrConstruct _ = constructObjectAccessibleRole
attrClear _ = undefined
#endif
getObjectAccessibleTableCaption :: (MonadIO m, IsObject o) => o -> m (Maybe T.Text)
getObjectAccessibleTableCaption :: o -> m (Maybe Text)
getObjectAccessibleTableCaption obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
getObjectPropertyString o
obj "accessible-table-caption"
setObjectAccessibleTableCaption :: (MonadIO m, IsObject o) => o -> T.Text -> m ()
setObjectAccessibleTableCaption :: o -> Text -> m ()
setObjectAccessibleTableCaption obj :: o
obj val :: Text
val = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
forall a.
GObject a =>
a -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
setObjectPropertyString o
obj "accessible-table-caption" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructObjectAccessibleTableCaption :: (IsObject o) => T.Text -> IO (GValueConstruct o)
constructObjectAccessibleTableCaption :: Text -> IO (GValueConstruct o)
constructObjectAccessibleTableCaption val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
constructObjectPropertyString "accessible-table-caption" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearObjectAccessibleTableCaption :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleTableCaption :: o -> m ()
clearObjectAccessibleTableCaption obj :: o
obj = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
forall a.
GObject a =>
a -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
setObjectPropertyString o
obj "accessible-table-caption" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if ENABLE_OVERLOADING
data ObjectAccessibleTableCaptionPropertyInfo
instance AttrInfo ObjectAccessibleTableCaptionPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableCaptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = IsObject
type AttrGetType ObjectAccessibleTableCaptionPropertyInfo = (Maybe T.Text)
type AttrLabel ObjectAccessibleTableCaptionPropertyInfo = "accessible-table-caption"
type AttrOrigin ObjectAccessibleTableCaptionPropertyInfo = Object
attrGet _ = getObjectAccessibleTableCaption
attrSet _ = setObjectAccessibleTableCaption
attrConstruct _ = constructObjectAccessibleTableCaption
attrClear _ = clearObjectAccessibleTableCaption
#endif
getObjectAccessibleTableCaptionObject :: (MonadIO m, IsObject o) => o -> m (Maybe Object)
getObjectAccessibleTableCaptionObject :: o -> m (Maybe Object)
getObjectAccessibleTableCaptionObject obj :: o
obj = IO (Maybe Object) -> m (Maybe Object)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Object -> Object) -> IO (Maybe Object)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
getObjectPropertyObject o
obj "accessible-table-caption-object" ManagedPtr Object -> Object
Object
setObjectAccessibleTableCaptionObject :: (MonadIO m, IsObject o, IsObject a) => o -> a -> m ()
setObjectAccessibleTableCaptionObject :: o -> a -> m ()
setObjectAccessibleTableCaptionObject obj :: o
obj val :: a
val = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> ObjectVisibleDataChangedCallback
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> ObjectVisibleDataChangedCallback
setObjectPropertyObject o
obj "accessible-table-caption-object" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructObjectAccessibleTableCaptionObject :: (IsObject o, IsObject a) => a -> IO (GValueConstruct o)
constructObjectAccessibleTableCaptionObject :: a -> IO (GValueConstruct o)
constructObjectAccessibleTableCaptionObject val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
constructObjectPropertyObject "accessible-table-caption-object" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearObjectAccessibleTableCaptionObject :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleTableCaptionObject :: o -> m ()
clearObjectAccessibleTableCaptionObject obj :: o
obj = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> ObjectActiveDescendantChangedCallback
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> ObjectVisibleDataChangedCallback
setObjectPropertyObject o
obj "accessible-table-caption-object" (Maybe Object
forall a. Maybe a
Nothing :: Maybe Object)
#if ENABLE_OVERLOADING
data ObjectAccessibleTableCaptionObjectPropertyInfo
instance AttrInfo ObjectAccessibleTableCaptionObjectPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableCaptionObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = IsObject
type AttrBaseTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = IsObject
type AttrGetType ObjectAccessibleTableCaptionObjectPropertyInfo = (Maybe Object)
type AttrLabel ObjectAccessibleTableCaptionObjectPropertyInfo = "accessible-table-caption-object"
type AttrOrigin ObjectAccessibleTableCaptionObjectPropertyInfo = Object
attrGet _ = getObjectAccessibleTableCaptionObject
attrSet _ = setObjectAccessibleTableCaptionObject
attrConstruct _ = constructObjectAccessibleTableCaptionObject
attrClear _ = clearObjectAccessibleTableCaptionObject
#endif
getObjectAccessibleTableColumnDescription :: (MonadIO m, IsObject o) => o -> m (Maybe T.Text)
getObjectAccessibleTableColumnDescription :: o -> m (Maybe Text)
getObjectAccessibleTableColumnDescription obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
getObjectPropertyString o
obj "accessible-table-column-description"
setObjectAccessibleTableColumnDescription :: (MonadIO m, IsObject o) => o -> T.Text -> m ()
setObjectAccessibleTableColumnDescription :: o -> Text -> m ()
setObjectAccessibleTableColumnDescription obj :: o
obj val :: Text
val = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
forall a.
GObject a =>
a -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
setObjectPropertyString o
obj "accessible-table-column-description" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructObjectAccessibleTableColumnDescription :: (IsObject o) => T.Text -> IO (GValueConstruct o)
constructObjectAccessibleTableColumnDescription :: Text -> IO (GValueConstruct o)
constructObjectAccessibleTableColumnDescription val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
constructObjectPropertyString "accessible-table-column-description" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearObjectAccessibleTableColumnDescription :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleTableColumnDescription :: o -> m ()
clearObjectAccessibleTableColumnDescription obj :: o
obj = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
forall a.
GObject a =>
a -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
setObjectPropertyString o
obj "accessible-table-column-description" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if ENABLE_OVERLOADING
data ObjectAccessibleTableColumnDescriptionPropertyInfo
instance AttrInfo ObjectAccessibleTableColumnDescriptionPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableColumnDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = IsObject
type AttrGetType ObjectAccessibleTableColumnDescriptionPropertyInfo = (Maybe T.Text)
type AttrLabel ObjectAccessibleTableColumnDescriptionPropertyInfo = "accessible-table-column-description"
type AttrOrigin ObjectAccessibleTableColumnDescriptionPropertyInfo = Object
attrGet _ = getObjectAccessibleTableColumnDescription
attrSet _ = setObjectAccessibleTableColumnDescription
attrConstruct _ = constructObjectAccessibleTableColumnDescription
attrClear _ = clearObjectAccessibleTableColumnDescription
#endif
getObjectAccessibleTableColumnHeader :: (MonadIO m, IsObject o) => o -> m (Maybe Object)
getObjectAccessibleTableColumnHeader :: o -> m (Maybe Object)
getObjectAccessibleTableColumnHeader obj :: o
obj = IO (Maybe Object) -> m (Maybe Object)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Object -> Object) -> IO (Maybe Object)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
getObjectPropertyObject o
obj "accessible-table-column-header" ManagedPtr Object -> Object
Object
setObjectAccessibleTableColumnHeader :: (MonadIO m, IsObject o, IsObject a) => o -> a -> m ()
setObjectAccessibleTableColumnHeader :: o -> a -> m ()
setObjectAccessibleTableColumnHeader obj :: o
obj val :: a
val = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> ObjectVisibleDataChangedCallback
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> ObjectVisibleDataChangedCallback
setObjectPropertyObject o
obj "accessible-table-column-header" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructObjectAccessibleTableColumnHeader :: (IsObject o, IsObject a) => a -> IO (GValueConstruct o)
constructObjectAccessibleTableColumnHeader :: a -> IO (GValueConstruct o)
constructObjectAccessibleTableColumnHeader val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
constructObjectPropertyObject "accessible-table-column-header" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearObjectAccessibleTableColumnHeader :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleTableColumnHeader :: o -> m ()
clearObjectAccessibleTableColumnHeader obj :: o
obj = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> ObjectActiveDescendantChangedCallback
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> ObjectVisibleDataChangedCallback
setObjectPropertyObject o
obj "accessible-table-column-header" (Maybe Object
forall a. Maybe a
Nothing :: Maybe Object)
#if ENABLE_OVERLOADING
data ObjectAccessibleTableColumnHeaderPropertyInfo
instance AttrInfo ObjectAccessibleTableColumnHeaderPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableColumnHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = IsObject
type AttrBaseTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = IsObject
type AttrGetType ObjectAccessibleTableColumnHeaderPropertyInfo = (Maybe Object)
type AttrLabel ObjectAccessibleTableColumnHeaderPropertyInfo = "accessible-table-column-header"
type AttrOrigin ObjectAccessibleTableColumnHeaderPropertyInfo = Object
attrGet _ = getObjectAccessibleTableColumnHeader
attrSet _ = setObjectAccessibleTableColumnHeader
attrConstruct _ = constructObjectAccessibleTableColumnHeader
attrClear _ = clearObjectAccessibleTableColumnHeader
#endif
getObjectAccessibleTableRowDescription :: (MonadIO m, IsObject o) => o -> m (Maybe T.Text)
getObjectAccessibleTableRowDescription :: o -> m (Maybe Text)
getObjectAccessibleTableRowDescription obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
getObjectPropertyString o
obj "accessible-table-row-description"
setObjectAccessibleTableRowDescription :: (MonadIO m, IsObject o) => o -> T.Text -> m ()
setObjectAccessibleTableRowDescription :: o -> Text -> m ()
setObjectAccessibleTableRowDescription obj :: o
obj val :: Text
val = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
forall a.
GObject a =>
a -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
setObjectPropertyString o
obj "accessible-table-row-description" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructObjectAccessibleTableRowDescription :: (IsObject o) => T.Text -> IO (GValueConstruct o)
constructObjectAccessibleTableRowDescription :: Text -> IO (GValueConstruct o)
constructObjectAccessibleTableRowDescription val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
constructObjectPropertyString "accessible-table-row-description" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearObjectAccessibleTableRowDescription :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleTableRowDescription :: o -> m ()
clearObjectAccessibleTableRowDescription obj :: o
obj = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
forall a.
GObject a =>
a -> String -> Maybe Text -> ObjectVisibleDataChangedCallback
setObjectPropertyString o
obj "accessible-table-row-description" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if ENABLE_OVERLOADING
data ObjectAccessibleTableRowDescriptionPropertyInfo
instance AttrInfo ObjectAccessibleTableRowDescriptionPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableRowDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = IsObject
type AttrGetType ObjectAccessibleTableRowDescriptionPropertyInfo = (Maybe T.Text)
type AttrLabel ObjectAccessibleTableRowDescriptionPropertyInfo = "accessible-table-row-description"
type AttrOrigin ObjectAccessibleTableRowDescriptionPropertyInfo = Object
attrGet _ = getObjectAccessibleTableRowDescription
attrSet _ = setObjectAccessibleTableRowDescription
attrConstruct _ = constructObjectAccessibleTableRowDescription
attrClear _ = clearObjectAccessibleTableRowDescription
#endif
getObjectAccessibleTableRowHeader :: (MonadIO m, IsObject o) => o -> m (Maybe Object)
obj :: o
obj = IO (Maybe Object) -> m (Maybe Object)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Object -> Object) -> IO (Maybe Object)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
getObjectPropertyObject o
obj "accessible-table-row-header" ManagedPtr Object -> Object
Object
setObjectAccessibleTableRowHeader :: (MonadIO m, IsObject o, IsObject a) => o -> a -> m ()
obj :: o
obj val :: a
val = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> ObjectVisibleDataChangedCallback
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> ObjectVisibleDataChangedCallback
setObjectPropertyObject o
obj "accessible-table-row-header" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructObjectAccessibleTableRowHeader :: (IsObject o, IsObject a) => a -> IO (GValueConstruct o)
val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
constructObjectPropertyObject "accessible-table-row-header" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearObjectAccessibleTableRowHeader :: (MonadIO m, IsObject o) => o -> m ()
obj :: o
obj = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> ObjectActiveDescendantChangedCallback
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> ObjectVisibleDataChangedCallback
setObjectPropertyObject o
obj "accessible-table-row-header" (Maybe Object
forall a. Maybe a
Nothing :: Maybe Object)
#if ENABLE_OVERLOADING
data ObjectAccessibleTableRowHeaderPropertyInfo
instance AttrInfo ObjectAccessibleTableRowHeaderPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableRowHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = IsObject
type AttrBaseTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = IsObject
type AttrGetType ObjectAccessibleTableRowHeaderPropertyInfo = (Maybe Object)
type AttrLabel ObjectAccessibleTableRowHeaderPropertyInfo = "accessible-table-row-header"
type AttrOrigin ObjectAccessibleTableRowHeaderPropertyInfo = Object
attrGet _ = getObjectAccessibleTableRowHeader
attrSet _ = setObjectAccessibleTableRowHeader
attrConstruct _ = constructObjectAccessibleTableRowHeader
attrClear _ = clearObjectAccessibleTableRowHeader
#endif
getObjectAccessibleTableSummary :: (MonadIO m, IsObject o) => o -> m (Maybe Object)
getObjectAccessibleTableSummary :: o -> m (Maybe Object)
getObjectAccessibleTableSummary obj :: o
obj = IO (Maybe Object) -> m (Maybe Object)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Object -> Object) -> IO (Maybe Object)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
getObjectPropertyObject o
obj "accessible-table-summary" ManagedPtr Object -> Object
Object
setObjectAccessibleTableSummary :: (MonadIO m, IsObject o, IsObject a) => o -> a -> m ()
setObjectAccessibleTableSummary :: o -> a -> m ()
setObjectAccessibleTableSummary obj :: o
obj val :: a
val = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> ObjectVisibleDataChangedCallback
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> ObjectVisibleDataChangedCallback
setObjectPropertyObject o
obj "accessible-table-summary" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructObjectAccessibleTableSummary :: (IsObject o, IsObject a) => a -> IO (GValueConstruct o)
constructObjectAccessibleTableSummary :: a -> IO (GValueConstruct o)
constructObjectAccessibleTableSummary val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
constructObjectPropertyObject "accessible-table-summary" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearObjectAccessibleTableSummary :: (MonadIO m, IsObject o) => o -> m ()
clearObjectAccessibleTableSummary :: o -> m ()
clearObjectAccessibleTableSummary obj :: o
obj = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> ObjectActiveDescendantChangedCallback
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> ObjectVisibleDataChangedCallback
setObjectPropertyObject o
obj "accessible-table-summary" (Maybe Object
forall a. Maybe a
Nothing :: Maybe Object)
#if ENABLE_OVERLOADING
data ObjectAccessibleTableSummaryPropertyInfo
instance AttrInfo ObjectAccessibleTableSummaryPropertyInfo where
type AttrAllowedOps ObjectAccessibleTableSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = IsObject
type AttrBaseTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = IsObject
type AttrGetType ObjectAccessibleTableSummaryPropertyInfo = (Maybe Object)
type AttrLabel ObjectAccessibleTableSummaryPropertyInfo = "accessible-table-summary"
type AttrOrigin ObjectAccessibleTableSummaryPropertyInfo = Object
attrGet _ = getObjectAccessibleTableSummary
attrSet _ = setObjectAccessibleTableSummary
attrConstruct _ = constructObjectAccessibleTableSummary
attrClear _ = clearObjectAccessibleTableSummary
#endif
getObjectAccessibleValue :: (MonadIO m, IsObject o) => o -> m Double
getObjectAccessibleValue :: o -> m Double
getObjectAccessibleValue obj :: o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
getObjectPropertyDouble o
obj "accessible-value"
setObjectAccessibleValue :: (MonadIO m, IsObject o) => o -> Double -> m ()
setObjectAccessibleValue :: o -> Double -> m ()
setObjectAccessibleValue obj :: o
obj val :: Double
val = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Double -> ObjectVisibleDataChangedCallback
forall a.
GObject a =>
a -> String -> Double -> ObjectVisibleDataChangedCallback
setObjectPropertyDouble o
obj "accessible-value" Double
val
constructObjectAccessibleValue :: (IsObject o) => Double -> IO (GValueConstruct o)
constructObjectAccessibleValue :: Double -> IO (GValueConstruct o)
constructObjectAccessibleValue val :: Double
val = String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
constructObjectPropertyDouble "accessible-value" Double
val
#if ENABLE_OVERLOADING
data ObjectAccessibleValuePropertyInfo
instance AttrInfo ObjectAccessibleValuePropertyInfo where
type AttrAllowedOps ObjectAccessibleValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ObjectAccessibleValuePropertyInfo = (~) Double
type AttrBaseTypeConstraint ObjectAccessibleValuePropertyInfo = IsObject
type AttrGetType ObjectAccessibleValuePropertyInfo = Double
type AttrLabel ObjectAccessibleValuePropertyInfo = "accessible-value"
type AttrOrigin ObjectAccessibleValuePropertyInfo = Object
attrGet _ = getObjectAccessibleValue
attrSet _ = setObjectAccessibleValue
attrConstruct _ = constructObjectAccessibleValue
attrClear _ = undefined
#endif
#if 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 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 ENABLE_OVERLOADING
data ObjectActiveDescendantChangedSignalInfo
instance SignalInfo ObjectActiveDescendantChangedSignalInfo where
type HaskellCallbackType ObjectActiveDescendantChangedSignalInfo = ObjectActiveDescendantChangedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ObjectActiveDescendantChangedCallback cb
cb'' <- mk_ObjectActiveDescendantChangedCallback cb'
connectSignalFunPtr obj "active-descendant-changed" cb'' connectMode
data ObjectChildrenChangedSignalInfo
instance SignalInfo ObjectChildrenChangedSignalInfo where
type HaskellCallbackType ObjectChildrenChangedSignalInfo = ObjectChildrenChangedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ObjectChildrenChangedCallback cb
cb'' <- mk_ObjectChildrenChangedCallback cb'
connectSignalFunPtr obj "children-changed" cb'' connectMode
data ObjectFocusEventSignalInfo
instance SignalInfo ObjectFocusEventSignalInfo where
type HaskellCallbackType ObjectFocusEventSignalInfo = ObjectFocusEventCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ObjectFocusEventCallback cb
cb'' <- mk_ObjectFocusEventCallback cb'
connectSignalFunPtr obj "focus-event" cb'' connectMode
data ObjectPropertyChangeSignalInfo
instance SignalInfo ObjectPropertyChangeSignalInfo where
type HaskellCallbackType ObjectPropertyChangeSignalInfo = ObjectPropertyChangeCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ObjectPropertyChangeCallback cb
cb'' <- mk_ObjectPropertyChangeCallback cb'
connectSignalFunPtr obj "property-change" cb'' connectMode
data ObjectStateChangeSignalInfo
instance SignalInfo ObjectStateChangeSignalInfo where
type HaskellCallbackType ObjectStateChangeSignalInfo = ObjectStateChangeCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ObjectStateChangeCallback cb
cb'' <- mk_ObjectStateChangeCallback cb'
connectSignalFunPtr obj "state-change" cb'' connectMode
data ObjectVisibleDataChangedSignalInfo
instance SignalInfo ObjectVisibleDataChangedSignalInfo where
type HaskellCallbackType ObjectVisibleDataChangedSignalInfo = ObjectVisibleDataChangedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ObjectVisibleDataChangedCallback cb
cb'' <- mk_ObjectVisibleDataChangedCallback cb'
connectSignalFunPtr obj "visible-data-changed" cb'' connectMode
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 :: a -> RelationType -> b -> m Bool
objectAddRelationship object :: a
object relationship :: RelationType
relationship target :: b
target = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
let relationship' :: CUInt
relationship' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (RelationType -> Int) -> RelationType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. RelationType -> Int
forall a. Enum a => a -> Int
fromEnum) RelationType
relationship
Ptr Object
target' <- b -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
target
CInt
result <- Ptr Object -> CUInt -> Ptr Object -> IO CInt
atk_object_add_relationship Ptr Object
object' CUInt
relationship' Ptr Object
target'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
object
b -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr b
target
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if 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 :: a -> m Text
objectGetAccessibleId accessible :: a
accessible = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
CString
result <- Ptr Object -> IO CString
atk_object_get_accessible_id Ptr Object
accessible'
Text -> CString -> ObjectVisibleDataChangedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> ObjectVisibleDataChangedCallback
checkUnexpectedReturnNULL "objectGetAccessibleId" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if 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 :: a -> m [Ptr ()]
objectGetAttributes accessible :: a
accessible = IO [Ptr ()] -> m [Ptr ()]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Ptr ()] -> m [Ptr ()]) -> IO [Ptr ()] -> m [Ptr ()]
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
Ptr (GSList (Ptr ()))
result <- Ptr Object -> IO (Ptr (GSList (Ptr ())))
atk_object_get_attributes Ptr Object
accessible'
[Ptr ()]
result' <- Ptr (GSList (Ptr ())) -> IO [Ptr ()]
forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr ()))
result
Ptr (GSList (Ptr ())) -> ObjectVisibleDataChangedCallback
forall a. Ptr (GSList a) -> ObjectVisibleDataChangedCallback
g_slist_free Ptr (GSList (Ptr ()))
result
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
[Ptr ()] -> IO [Ptr ()]
forall (m :: * -> *) a. Monad m => a -> m a
return [Ptr ()]
result'
#if 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 :: a -> m Text
objectGetDescription accessible :: a
accessible = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
CString
result <- Ptr Object -> IO CString
atk_object_get_description Ptr Object
accessible'
Text -> CString -> ObjectVisibleDataChangedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> ObjectVisibleDataChangedCallback
checkUnexpectedReturnNULL "objectGetDescription" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if 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 :: a -> m Int32
objectGetIndexInParent accessible :: a
accessible = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
Int32
result <- Ptr Object -> IO Int32
atk_object_get_index_in_parent Ptr Object
accessible'
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if 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 :: a -> m Layer
objectGetLayer accessible :: a
accessible = IO Layer -> m Layer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Layer -> m Layer) -> IO Layer -> m Layer
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
CUInt
result <- Ptr Object -> IO CUInt
atk_object_get_layer Ptr Object
accessible'
let result' :: Layer
result' = (Int -> Layer
forall a. Enum a => Int -> a
toEnum (Int -> Layer) -> (CUInt -> Int) -> CUInt -> Layer
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
Layer -> IO Layer
forall (m :: * -> *) a. Monad m => a -> m a
return Layer
result'
#if 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 :: a -> m Int32
objectGetMdiZorder accessible :: a
accessible = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
Int32
result <- Ptr Object -> IO Int32
atk_object_get_mdi_zorder Ptr Object
accessible'
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if 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 :: a -> m Int32
objectGetNAccessibleChildren accessible :: a
accessible = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
Int32
result <- Ptr Object -> IO Int32
atk_object_get_n_accessible_children Ptr Object
accessible'
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if 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 :: a -> m Text
objectGetName accessible :: a
accessible = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
CString
result <- Ptr Object -> IO CString
atk_object_get_name Ptr Object
accessible'
Text -> CString -> ObjectVisibleDataChangedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> ObjectVisibleDataChangedCallback
checkUnexpectedReturnNULL "objectGetName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if 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 :: a -> m Text
objectGetObjectLocale accessible :: a
accessible = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
CString
result <- Ptr Object -> IO CString
atk_object_get_object_locale Ptr Object
accessible'
Text -> CString -> ObjectVisibleDataChangedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> ObjectVisibleDataChangedCallback
checkUnexpectedReturnNULL "objectGetObjectLocale" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if 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 :: a -> m Object
objectGetParent accessible :: a
accessible = IO Object -> m Object
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Object -> m Object) -> IO Object -> m Object
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
Ptr Object
result <- Ptr Object -> IO (Ptr Object)
atk_object_get_parent Ptr Object
accessible'
Text -> Ptr Object -> ObjectVisibleDataChangedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> ObjectVisibleDataChangedCallback
checkUnexpectedReturnNULL "objectGetParent" Ptr Object
result
Object
result' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
Object) Ptr Object
result
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
Object -> IO Object
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result'
#if 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 :: a -> m Role
objectGetRole accessible :: a
accessible = IO Role -> m Role
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Role -> m Role) -> IO Role -> m Role
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
CUInt
result <- Ptr Object -> IO CUInt
atk_object_get_role Ptr Object
accessible'
let result' :: Role
result' = (Int -> Role
forall a. Enum a => Int -> a
toEnum (Int -> Role) -> (CUInt -> Int) -> CUInt -> Role
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
Role -> IO Role
forall (m :: * -> *) a. Monad m => a -> m a
return Role
result'
#if 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 :: a -> Ptr () -> m ()
objectInitialize accessible :: a
accessible data_ :: Ptr ()
data_ = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
Ptr Object -> Ptr () -> ObjectVisibleDataChangedCallback
atk_object_initialize Ptr Object
accessible' Ptr ()
data_
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
() -> ObjectVisibleDataChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if 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 :: a -> Word64 -> Bool -> m ()
objectNotifyStateChange accessible :: a
accessible state :: Word64
state value :: Bool
value = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
let value' :: CInt
value' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
value
Ptr Object -> Word64 -> CInt -> ObjectVisibleDataChangedCallback
atk_object_notify_state_change Ptr Object
accessible' Word64
state CInt
value'
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
() -> ObjectVisibleDataChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if 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 :: a -> m Object
objectPeekParent accessible :: a
accessible = IO Object -> m Object
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Object -> m Object) -> IO Object -> m Object
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
Ptr Object
result <- Ptr Object -> IO (Ptr Object)
atk_object_peek_parent Ptr Object
accessible'
Text -> Ptr Object -> ObjectVisibleDataChangedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> ObjectVisibleDataChangedCallback
checkUnexpectedReturnNULL "objectPeekParent" Ptr Object
result
Object
result' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
Object) Ptr Object
result
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
Object -> IO Object
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result'
#if 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 :: a -> Int32 -> m Object
objectRefAccessibleChild accessible :: a
accessible i :: Int32
i = IO Object -> m Object
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Object -> m Object) -> IO Object -> m Object
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
Ptr Object
result <- Ptr Object -> Int32 -> IO (Ptr Object)
atk_object_ref_accessible_child Ptr Object
accessible' Int32
i
Text -> Ptr Object -> ObjectVisibleDataChangedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> ObjectVisibleDataChangedCallback
checkUnexpectedReturnNULL "objectRefAccessibleChild" Ptr Object
result
Object
result' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Object -> Object
Object) Ptr Object
result
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
Object -> IO Object
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result'
#if 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 :: a -> m RelationSet
objectRefRelationSet accessible :: a
accessible = IO RelationSet -> m RelationSet
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RelationSet -> m RelationSet)
-> IO RelationSet -> m RelationSet
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
Ptr RelationSet
result <- Ptr Object -> IO (Ptr RelationSet)
atk_object_ref_relation_set Ptr Object
accessible'
Text -> Ptr RelationSet -> ObjectVisibleDataChangedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> ObjectVisibleDataChangedCallback
checkUnexpectedReturnNULL "objectRefRelationSet" Ptr RelationSet
result
RelationSet
result' <- ((ManagedPtr RelationSet -> RelationSet)
-> Ptr RelationSet -> IO RelationSet
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr RelationSet -> RelationSet
Atk.RelationSet.RelationSet) Ptr RelationSet
result
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
RelationSet -> IO RelationSet
forall (m :: * -> *) a. Monad m => a -> m a
return RelationSet
result'
#if 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 :: a -> m StateSet
objectRefStateSet accessible :: a
accessible = IO StateSet -> m StateSet
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StateSet -> m StateSet) -> IO StateSet -> m StateSet
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
Ptr StateSet
result <- Ptr Object -> IO (Ptr StateSet)
atk_object_ref_state_set Ptr Object
accessible'
Text -> Ptr StateSet -> ObjectVisibleDataChangedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> ObjectVisibleDataChangedCallback
checkUnexpectedReturnNULL "objectRefStateSet" Ptr StateSet
result
StateSet
result' <- ((ManagedPtr StateSet -> StateSet) -> Ptr StateSet -> IO StateSet
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr StateSet -> StateSet
Atk.StateSet.StateSet) Ptr StateSet
result
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
StateSet -> IO StateSet
forall (m :: * -> *) a. Monad m => a -> m a
return StateSet
result'
#if 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 :: a -> Word32 -> m ()
objectRemovePropertyChangeHandler accessible :: a
accessible handlerId :: Word32
handlerId = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
Ptr Object -> Word32 -> ObjectVisibleDataChangedCallback
atk_object_remove_property_change_handler Ptr Object
accessible' Word32
handlerId
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
() -> ObjectVisibleDataChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if 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 :: a -> RelationType -> b -> m Bool
objectRemoveRelationship object :: a
object relationship :: RelationType
relationship target :: b
target = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
let relationship' :: CUInt
relationship' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (RelationType -> Int) -> RelationType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. RelationType -> Int
forall a. Enum a => a -> Int
fromEnum) RelationType
relationship
Ptr Object
target' <- b -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
target
CInt
result <- Ptr Object -> CUInt -> Ptr Object -> IO CInt
atk_object_remove_relationship Ptr Object
object' CUInt
relationship' Ptr Object
target'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
object
b -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr b
target
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if 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 :: a -> Text -> m ()
objectSetAccessibleId accessible :: a
accessible name :: Text
name = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr Object -> CString -> ObjectVisibleDataChangedCallback
atk_object_set_accessible_id Ptr Object
accessible' CString
name'
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
CString -> ObjectVisibleDataChangedCallback
forall a. Ptr a -> ObjectVisibleDataChangedCallback
freeMem CString
name'
() -> ObjectVisibleDataChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if 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 :: a -> Text -> m ()
objectSetDescription accessible :: a
accessible description :: Text
description = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
CString
description' <- Text -> IO CString
textToCString Text
description
Ptr Object -> CString -> ObjectVisibleDataChangedCallback
atk_object_set_description Ptr Object
accessible' CString
description'
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
CString -> ObjectVisibleDataChangedCallback
forall a. Ptr a -> ObjectVisibleDataChangedCallback
freeMem CString
description'
() -> ObjectVisibleDataChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if 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 :: a -> Text -> m ()
objectSetName accessible :: a
accessible name :: Text
name = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr Object -> CString -> ObjectVisibleDataChangedCallback
atk_object_set_name Ptr Object
accessible' CString
name'
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
CString -> ObjectVisibleDataChangedCallback
forall a. Ptr a -> ObjectVisibleDataChangedCallback
freeMem CString
name'
() -> ObjectVisibleDataChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if 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 :: a -> b -> m ()
objectSetParent accessible :: a
accessible parent :: b
parent = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
Ptr Object
parent' <- b -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
parent
Ptr Object -> Ptr Object -> ObjectVisibleDataChangedCallback
atk_object_set_parent Ptr Object
accessible' Ptr Object
parent'
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
b -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr b
parent
() -> ObjectVisibleDataChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if 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 :: a -> Role -> m ()
objectSetRole accessible :: a
accessible role :: Role
role = ObjectVisibleDataChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectVisibleDataChangedCallback -> m ())
-> ObjectVisibleDataChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
accessible' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
accessible
let role' :: CUInt
role' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Role -> Int) -> Role -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Role -> Int
forall a. Enum a => a -> Int
fromEnum) Role
role
Ptr Object -> CUInt -> ObjectVisibleDataChangedCallback
atk_object_set_role Ptr Object
accessible' CUInt
role'
a -> ObjectVisibleDataChangedCallback
forall a.
ManagedPtrNewtype a =>
a -> ObjectVisibleDataChangedCallback
touchManagedPtr a
accessible
() -> ObjectVisibleDataChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data ObjectSetRoleMethodInfo
instance (signature ~ (Atk.Enums.Role -> m ()), MonadIO m, IsObject a) => O.MethodInfo ObjectSetRoleMethodInfo a signature where
overloadedMethod _ = objectSetRole
#endif