{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.ContainerCellAccessible
(
ContainerCellAccessible(..) ,
IsContainerCellAccessible ,
toContainerCellAccessible ,
#if defined(ENABLE_OVERLOADING)
ResolveContainerCellAccessibleMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ContainerCellAccessibleAddChildMethodInfo,
#endif
containerCellAccessibleAddChild ,
#if defined(ENABLE_OVERLOADING)
ContainerCellAccessibleGetChildrenMethodInfo,
#endif
containerCellAccessibleGetChildren ,
containerCellAccessibleNew ,
#if defined(ENABLE_OVERLOADING)
ContainerCellAccessibleRemoveChildMethodInfo,
#endif
containerCellAccessibleRemoveChild ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.Atk.Interfaces.Action as Atk.Action
import qualified GI.Atk.Interfaces.Component as Atk.Component
import qualified GI.Atk.Interfaces.TableCell as Atk.TableCell
import qualified GI.Atk.Objects.Object as Atk.Object
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Objects.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellAccessible as Gtk.CellAccessible
newtype ContainerCellAccessible = ContainerCellAccessible (SP.ManagedPtr ContainerCellAccessible)
deriving (ContainerCellAccessible -> ContainerCellAccessible -> Bool
(ContainerCellAccessible -> ContainerCellAccessible -> Bool)
-> (ContainerCellAccessible -> ContainerCellAccessible -> Bool)
-> Eq ContainerCellAccessible
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ContainerCellAccessible -> ContainerCellAccessible -> Bool
== :: ContainerCellAccessible -> ContainerCellAccessible -> Bool
$c/= :: ContainerCellAccessible -> ContainerCellAccessible -> Bool
/= :: ContainerCellAccessible -> ContainerCellAccessible -> Bool
Eq)
instance SP.ManagedPtrNewtype ContainerCellAccessible where
toManagedPtr :: ContainerCellAccessible -> ManagedPtr ContainerCellAccessible
toManagedPtr (ContainerCellAccessible ManagedPtr ContainerCellAccessible
p) = ManagedPtr ContainerCellAccessible
p
foreign import ccall "gtk_container_cell_accessible_get_type"
c_gtk_container_cell_accessible_get_type :: IO B.Types.GType
instance B.Types.TypedObject ContainerCellAccessible where
glibType :: IO GType
glibType = IO GType
c_gtk_container_cell_accessible_get_type
instance B.Types.GObject ContainerCellAccessible
class (SP.GObject o, O.IsDescendantOf ContainerCellAccessible o) => IsContainerCellAccessible o
instance (SP.GObject o, O.IsDescendantOf ContainerCellAccessible o) => IsContainerCellAccessible o
instance O.HasParentTypes ContainerCellAccessible
type instance O.ParentTypes ContainerCellAccessible = '[Gtk.CellAccessible.CellAccessible, Gtk.Accessible.Accessible, Atk.Object.Object, GObject.Object.Object, Atk.Action.Action, Atk.Component.Component, Atk.TableCell.TableCell]
toContainerCellAccessible :: (MIO.MonadIO m, IsContainerCellAccessible o) => o -> m ContainerCellAccessible
toContainerCellAccessible :: forall (m :: * -> *) o.
(MonadIO m, IsContainerCellAccessible o) =>
o -> m ContainerCellAccessible
toContainerCellAccessible = IO ContainerCellAccessible -> m ContainerCellAccessible
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ContainerCellAccessible -> m ContainerCellAccessible)
-> (o -> IO ContainerCellAccessible)
-> o
-> m ContainerCellAccessible
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ContainerCellAccessible -> ContainerCellAccessible)
-> o -> IO ContainerCellAccessible
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ContainerCellAccessible -> ContainerCellAccessible
ContainerCellAccessible
instance B.GValue.IsGValue (Maybe ContainerCellAccessible) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_container_cell_accessible_get_type
gvalueSet_ :: Ptr GValue -> Maybe ContainerCellAccessible -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ContainerCellAccessible
P.Nothing = Ptr GValue -> Ptr ContainerCellAccessible -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ContainerCellAccessible
forall a. Ptr a
FP.nullPtr :: FP.Ptr ContainerCellAccessible)
gvalueSet_ Ptr GValue
gv (P.Just ContainerCellAccessible
obj) = ContainerCellAccessible
-> (Ptr ContainerCellAccessible -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ContainerCellAccessible
obj (Ptr GValue -> Ptr ContainerCellAccessible -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ContainerCellAccessible)
gvalueGet_ Ptr GValue
gv = do
Ptr ContainerCellAccessible
ptr <- Ptr GValue -> IO (Ptr ContainerCellAccessible)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ContainerCellAccessible)
if Ptr ContainerCellAccessible
ptr Ptr ContainerCellAccessible -> Ptr ContainerCellAccessible -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ContainerCellAccessible
forall a. Ptr a
FP.nullPtr
then ContainerCellAccessible -> Maybe ContainerCellAccessible
forall a. a -> Maybe a
P.Just (ContainerCellAccessible -> Maybe ContainerCellAccessible)
-> IO ContainerCellAccessible -> IO (Maybe ContainerCellAccessible)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ContainerCellAccessible -> ContainerCellAccessible)
-> Ptr ContainerCellAccessible -> IO ContainerCellAccessible
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ContainerCellAccessible -> ContainerCellAccessible
ContainerCellAccessible Ptr ContainerCellAccessible
ptr
else Maybe ContainerCellAccessible -> IO (Maybe ContainerCellAccessible)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ContainerCellAccessible
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveContainerCellAccessibleMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveContainerCellAccessibleMethod "addChild" o = ContainerCellAccessibleAddChildMethodInfo
ResolveContainerCellAccessibleMethod "addRelationship" o = Atk.Object.ObjectAddRelationshipMethodInfo
ResolveContainerCellAccessibleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveContainerCellAccessibleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveContainerCellAccessibleMethod "connectWidgetDestroyed" o = Gtk.Accessible.AccessibleConnectWidgetDestroyedMethodInfo
ResolveContainerCellAccessibleMethod "contains" o = Atk.Component.ComponentContainsMethodInfo
ResolveContainerCellAccessibleMethod "doAction" o = Atk.Action.ActionDoActionMethodInfo
ResolveContainerCellAccessibleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveContainerCellAccessibleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveContainerCellAccessibleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveContainerCellAccessibleMethod "grabFocus" o = Atk.Component.ComponentGrabFocusMethodInfo
ResolveContainerCellAccessibleMethod "initialize" o = Atk.Object.ObjectInitializeMethodInfo
ResolveContainerCellAccessibleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveContainerCellAccessibleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveContainerCellAccessibleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveContainerCellAccessibleMethod "notifyStateChange" o = Atk.Object.ObjectNotifyStateChangeMethodInfo
ResolveContainerCellAccessibleMethod "peekParent" o = Atk.Object.ObjectPeekParentMethodInfo
ResolveContainerCellAccessibleMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveContainerCellAccessibleMethod "refAccessibleAtPoint" o = Atk.Component.ComponentRefAccessibleAtPointMethodInfo
ResolveContainerCellAccessibleMethod "refAccessibleChild" o = Atk.Object.ObjectRefAccessibleChildMethodInfo
ResolveContainerCellAccessibleMethod "refRelationSet" o = Atk.Object.ObjectRefRelationSetMethodInfo
ResolveContainerCellAccessibleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveContainerCellAccessibleMethod "refStateSet" o = Atk.Object.ObjectRefStateSetMethodInfo
ResolveContainerCellAccessibleMethod "removeChild" o = ContainerCellAccessibleRemoveChildMethodInfo
ResolveContainerCellAccessibleMethod "removeFocusHandler" o = Atk.Component.ComponentRemoveFocusHandlerMethodInfo
ResolveContainerCellAccessibleMethod "removePropertyChangeHandler" o = Atk.Object.ObjectRemovePropertyChangeHandlerMethodInfo
ResolveContainerCellAccessibleMethod "removeRelationship" o = Atk.Object.ObjectRemoveRelationshipMethodInfo
ResolveContainerCellAccessibleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveContainerCellAccessibleMethod "scrollTo" o = Atk.Component.ComponentScrollToMethodInfo
ResolveContainerCellAccessibleMethod "scrollToPoint" o = Atk.Component.ComponentScrollToPointMethodInfo
ResolveContainerCellAccessibleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveContainerCellAccessibleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveContainerCellAccessibleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveContainerCellAccessibleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveContainerCellAccessibleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveContainerCellAccessibleMethod "getAccessibleId" o = Atk.Object.ObjectGetAccessibleIdMethodInfo
ResolveContainerCellAccessibleMethod "getAlpha" o = Atk.Component.ComponentGetAlphaMethodInfo
ResolveContainerCellAccessibleMethod "getAttributes" o = Atk.Object.ObjectGetAttributesMethodInfo
ResolveContainerCellAccessibleMethod "getChildren" o = ContainerCellAccessibleGetChildrenMethodInfo
ResolveContainerCellAccessibleMethod "getColumnHeaderCells" o = Atk.TableCell.TableCellGetColumnHeaderCellsMethodInfo
ResolveContainerCellAccessibleMethod "getColumnSpan" o = Atk.TableCell.TableCellGetColumnSpanMethodInfo
ResolveContainerCellAccessibleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveContainerCellAccessibleMethod "getDescription" o = Atk.Object.ObjectGetDescriptionMethodInfo
ResolveContainerCellAccessibleMethod "getExtents" o = Atk.Component.ComponentGetExtentsMethodInfo
ResolveContainerCellAccessibleMethod "getIndexInParent" o = Atk.Object.ObjectGetIndexInParentMethodInfo
ResolveContainerCellAccessibleMethod "getKeybinding" o = Atk.Action.ActionGetKeybindingMethodInfo
ResolveContainerCellAccessibleMethod "getLayer" o = Atk.Object.ObjectGetLayerMethodInfo
ResolveContainerCellAccessibleMethod "getLocalizedName" o = Atk.Action.ActionGetLocalizedNameMethodInfo
ResolveContainerCellAccessibleMethod "getMdiZorder" o = Atk.Object.ObjectGetMdiZorderMethodInfo
ResolveContainerCellAccessibleMethod "getNAccessibleChildren" o = Atk.Object.ObjectGetNAccessibleChildrenMethodInfo
ResolveContainerCellAccessibleMethod "getNActions" o = Atk.Action.ActionGetNActionsMethodInfo
ResolveContainerCellAccessibleMethod "getName" o = Atk.Object.ObjectGetNameMethodInfo
ResolveContainerCellAccessibleMethod "getObjectLocale" o = Atk.Object.ObjectGetObjectLocaleMethodInfo
ResolveContainerCellAccessibleMethod "getParent" o = Atk.Object.ObjectGetParentMethodInfo
ResolveContainerCellAccessibleMethod "getPosition" o = Atk.Component.ComponentGetPositionMethodInfo
ResolveContainerCellAccessibleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveContainerCellAccessibleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveContainerCellAccessibleMethod "getRole" o = Atk.Object.ObjectGetRoleMethodInfo
ResolveContainerCellAccessibleMethod "getRowColumnSpan" o = Atk.TableCell.TableCellGetRowColumnSpanMethodInfo
ResolveContainerCellAccessibleMethod "getRowHeaderCells" o = Atk.TableCell.TableCellGetRowHeaderCellsMethodInfo
ResolveContainerCellAccessibleMethod "getRowSpan" o = Atk.TableCell.TableCellGetRowSpanMethodInfo
ResolveContainerCellAccessibleMethod "getSize" o = Atk.Component.ComponentGetSizeMethodInfo
ResolveContainerCellAccessibleMethod "getTable" o = Atk.TableCell.TableCellGetTableMethodInfo
ResolveContainerCellAccessibleMethod "getWidget" o = Gtk.Accessible.AccessibleGetWidgetMethodInfo
ResolveContainerCellAccessibleMethod "setAccessibleId" o = Atk.Object.ObjectSetAccessibleIdMethodInfo
ResolveContainerCellAccessibleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveContainerCellAccessibleMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveContainerCellAccessibleMethod "setDescription" o = Atk.Object.ObjectSetDescriptionMethodInfo
ResolveContainerCellAccessibleMethod "setExtents" o = Atk.Component.ComponentSetExtentsMethodInfo
ResolveContainerCellAccessibleMethod "setName" o = Atk.Object.ObjectSetNameMethodInfo
ResolveContainerCellAccessibleMethod "setParent" o = Atk.Object.ObjectSetParentMethodInfo
ResolveContainerCellAccessibleMethod "setPosition" o = Atk.Component.ComponentSetPositionMethodInfo
ResolveContainerCellAccessibleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveContainerCellAccessibleMethod "setRole" o = Atk.Object.ObjectSetRoleMethodInfo
ResolveContainerCellAccessibleMethod "setSize" o = Atk.Component.ComponentSetSizeMethodInfo
ResolveContainerCellAccessibleMethod "setWidget" o = Gtk.Accessible.AccessibleSetWidgetMethodInfo
ResolveContainerCellAccessibleMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveContainerCellAccessibleMethod t ContainerCellAccessible, O.OverloadedMethod info ContainerCellAccessible p) => OL.IsLabel t (ContainerCellAccessible -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveContainerCellAccessibleMethod t ContainerCellAccessible, O.OverloadedMethod info ContainerCellAccessible p, R.HasField t ContainerCellAccessible p) => R.HasField t ContainerCellAccessible p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveContainerCellAccessibleMethod t ContainerCellAccessible, O.OverloadedMethodInfo info ContainerCellAccessible) => OL.IsLabel t (O.MethodProxy info ContainerCellAccessible) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ContainerCellAccessible
type instance O.AttributeList ContainerCellAccessible = ContainerCellAccessibleAttributeList
type ContainerCellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.Object.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.Object.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.Object.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.Object.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.Object.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.Object.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.Object.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.Object.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.Object.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.Object.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.Object.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.Object.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.Object.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.Object.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.Object.ObjectAccessibleValuePropertyInfo), '("widget", Gtk.Accessible.AccessibleWidgetPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ContainerCellAccessible = ContainerCellAccessibleSignalList
type ContainerCellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.Object.ObjectActiveDescendantChangedSignalInfo), '("announcement", Atk.Object.ObjectAnnouncementSignalInfo), '("boundsChanged", Atk.Component.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.Object.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.Object.ObjectFocusEventSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("propertyChange", Atk.Object.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.Object.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.Object.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_container_cell_accessible_new" gtk_container_cell_accessible_new ::
IO (Ptr ContainerCellAccessible)
containerCellAccessibleNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ContainerCellAccessible
containerCellAccessibleNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m ContainerCellAccessible
containerCellAccessibleNew = IO ContainerCellAccessible -> m ContainerCellAccessible
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ContainerCellAccessible -> m ContainerCellAccessible)
-> IO ContainerCellAccessible -> m ContainerCellAccessible
forall a b. (a -> b) -> a -> b
$ do
Ptr ContainerCellAccessible
result <- IO (Ptr ContainerCellAccessible)
gtk_container_cell_accessible_new
Text -> Ptr ContainerCellAccessible -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"containerCellAccessibleNew" Ptr ContainerCellAccessible
result
ContainerCellAccessible
result' <- ((ManagedPtr ContainerCellAccessible -> ContainerCellAccessible)
-> Ptr ContainerCellAccessible -> IO ContainerCellAccessible
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr ContainerCellAccessible -> ContainerCellAccessible
ContainerCellAccessible) Ptr ContainerCellAccessible
result
ContainerCellAccessible -> IO ContainerCellAccessible
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ContainerCellAccessible
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_container_cell_accessible_add_child" gtk_container_cell_accessible_add_child ::
Ptr ContainerCellAccessible ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO ()
containerCellAccessibleAddChild ::
(B.CallStack.HasCallStack, MonadIO m, IsContainerCellAccessible a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m ()
containerCellAccessibleAddChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsContainerCellAccessible a,
IsCellAccessible b) =>
a -> b -> m ()
containerCellAccessibleAddChild a
container b
child = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ContainerCellAccessible
container' <- a -> IO (Ptr ContainerCellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr CellAccessible
child' <- b -> IO (Ptr CellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr ContainerCellAccessible -> Ptr CellAccessible -> IO ()
gtk_container_cell_accessible_add_child Ptr ContainerCellAccessible
container' Ptr CellAccessible
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerCellAccessibleAddChildMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsContainerCellAccessible a, Gtk.CellAccessible.IsCellAccessible b) => O.OverloadedMethod ContainerCellAccessibleAddChildMethodInfo a signature where
overloadedMethod = containerCellAccessibleAddChild
instance O.OverloadedMethodInfo ContainerCellAccessibleAddChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ContainerCellAccessible.containerCellAccessibleAddChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-ContainerCellAccessible.html#v:containerCellAccessibleAddChild"
})
#endif
foreign import ccall "gtk_container_cell_accessible_get_children" gtk_container_cell_accessible_get_children ::
Ptr ContainerCellAccessible ->
IO (Ptr (GList (Ptr Gtk.CellAccessible.CellAccessible)))
containerCellAccessibleGetChildren ::
(B.CallStack.HasCallStack, MonadIO m, IsContainerCellAccessible a) =>
a
-> m [Gtk.CellAccessible.CellAccessible]
containerCellAccessibleGetChildren :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainerCellAccessible a) =>
a -> m [CellAccessible]
containerCellAccessibleGetChildren a
container = IO [CellAccessible] -> m [CellAccessible]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [CellAccessible] -> m [CellAccessible])
-> IO [CellAccessible] -> m [CellAccessible]
forall a b. (a -> b) -> a -> b
$ do
Ptr ContainerCellAccessible
container' <- a -> IO (Ptr ContainerCellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr (GList (Ptr CellAccessible))
result <- Ptr ContainerCellAccessible
-> IO (Ptr (GList (Ptr CellAccessible)))
gtk_container_cell_accessible_get_children Ptr ContainerCellAccessible
container'
[Ptr CellAccessible]
result' <- Ptr (GList (Ptr CellAccessible)) -> IO [Ptr CellAccessible]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr CellAccessible))
result
[CellAccessible]
result'' <- (Ptr CellAccessible -> IO CellAccessible)
-> [Ptr CellAccessible] -> IO [CellAccessible]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr CellAccessible -> CellAccessible)
-> Ptr CellAccessible -> IO CellAccessible
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellAccessible -> CellAccessible
Gtk.CellAccessible.CellAccessible) [Ptr CellAccessible]
result'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
[CellAccessible] -> IO [CellAccessible]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [CellAccessible]
result''
#if defined(ENABLE_OVERLOADING)
data ContainerCellAccessibleGetChildrenMethodInfo
instance (signature ~ (m [Gtk.CellAccessible.CellAccessible]), MonadIO m, IsContainerCellAccessible a) => O.OverloadedMethod ContainerCellAccessibleGetChildrenMethodInfo a signature where
overloadedMethod = containerCellAccessibleGetChildren
instance O.OverloadedMethodInfo ContainerCellAccessibleGetChildrenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ContainerCellAccessible.containerCellAccessibleGetChildren",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-ContainerCellAccessible.html#v:containerCellAccessibleGetChildren"
})
#endif
foreign import ccall "gtk_container_cell_accessible_remove_child" gtk_container_cell_accessible_remove_child ::
Ptr ContainerCellAccessible ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO ()
containerCellAccessibleRemoveChild ::
(B.CallStack.HasCallStack, MonadIO m, IsContainerCellAccessible a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m ()
containerCellAccessibleRemoveChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsContainerCellAccessible a,
IsCellAccessible b) =>
a -> b -> m ()
containerCellAccessibleRemoveChild a
container b
child = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ContainerCellAccessible
container' <- a -> IO (Ptr ContainerCellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr CellAccessible
child' <- b -> IO (Ptr CellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr ContainerCellAccessible -> Ptr CellAccessible -> IO ()
gtk_container_cell_accessible_remove_child Ptr ContainerCellAccessible
container' Ptr CellAccessible
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerCellAccessibleRemoveChildMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsContainerCellAccessible a, Gtk.CellAccessible.IsCellAccessible b) => O.OverloadedMethod ContainerCellAccessibleRemoveChildMethodInfo a signature where
overloadedMethod = containerCellAccessibleRemoveChild
instance O.OverloadedMethodInfo ContainerCellAccessibleRemoveChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ContainerCellAccessible.containerCellAccessibleRemoveChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-ContainerCellAccessible.html#v:containerCellAccessibleRemoveChild"
})
#endif