{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Interfaces.CellAccessibleParent
(
CellAccessibleParent(..) ,
IsCellAccessibleParent ,
#if defined(ENABLE_OVERLOADING)
ResolveCellAccessibleParentMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CellAccessibleParentActivateMethodInfo ,
#endif
cellAccessibleParentActivate ,
#if defined(ENABLE_OVERLOADING)
CellAccessibleParentEditMethodInfo ,
#endif
cellAccessibleParentEdit ,
#if defined(ENABLE_OVERLOADING)
CellAccessibleParentExpandCollapseMethodInfo,
#endif
cellAccessibleParentExpandCollapse ,
#if defined(ENABLE_OVERLOADING)
CellAccessibleParentGetCellAreaMethodInfo,
#endif
cellAccessibleParentGetCellArea ,
#if defined(ENABLE_OVERLOADING)
CellAccessibleParentGetCellExtentsMethodInfo,
#endif
cellAccessibleParentGetCellExtents ,
#if defined(ENABLE_OVERLOADING)
CellAccessibleParentGetCellPositionMethodInfo,
#endif
cellAccessibleParentGetCellPosition ,
#if defined(ENABLE_OVERLOADING)
CellAccessibleParentGetChildIndexMethodInfo,
#endif
cellAccessibleParentGetChildIndex ,
#if defined(ENABLE_OVERLOADING)
CellAccessibleParentGetColumnHeaderCellsMethodInfo,
#endif
cellAccessibleParentGetColumnHeaderCells,
#if defined(ENABLE_OVERLOADING)
CellAccessibleParentGetRendererStateMethodInfo,
#endif
cellAccessibleParentGetRendererState ,
#if defined(ENABLE_OVERLOADING)
CellAccessibleParentGetRowHeaderCellsMethodInfo,
#endif
cellAccessibleParentGetRowHeaderCells ,
#if defined(ENABLE_OVERLOADING)
CellAccessibleParentGrabFocusMethodInfo ,
#endif
cellAccessibleParentGrabFocus ,
#if defined(ENABLE_OVERLOADING)
CellAccessibleParentUpdateRelationsetMethodInfo,
#endif
cellAccessibleParentUpdateRelationset ,
) 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.Enums as Atk.Enums
import qualified GI.Atk.Objects.Object as Atk.Object
import qualified GI.Atk.Objects.RelationSet as Atk.RelationSet
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellAccessible as Gtk.CellAccessible
newtype CellAccessibleParent = CellAccessibleParent (SP.ManagedPtr CellAccessibleParent)
deriving (CellAccessibleParent -> CellAccessibleParent -> Bool
(CellAccessibleParent -> CellAccessibleParent -> Bool)
-> (CellAccessibleParent -> CellAccessibleParent -> Bool)
-> Eq CellAccessibleParent
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CellAccessibleParent -> CellAccessibleParent -> Bool
== :: CellAccessibleParent -> CellAccessibleParent -> Bool
$c/= :: CellAccessibleParent -> CellAccessibleParent -> Bool
/= :: CellAccessibleParent -> CellAccessibleParent -> Bool
Eq)
instance SP.ManagedPtrNewtype CellAccessibleParent where
toManagedPtr :: CellAccessibleParent -> ManagedPtr CellAccessibleParent
toManagedPtr (CellAccessibleParent ManagedPtr CellAccessibleParent
p) = ManagedPtr CellAccessibleParent
p
class (ManagedPtrNewtype o, O.IsDescendantOf CellAccessibleParent o) => IsCellAccessibleParent o
instance (ManagedPtrNewtype o, O.IsDescendantOf CellAccessibleParent o) => IsCellAccessibleParent o
instance BoxedPtr CellAccessibleParent where
boxedPtrCopy :: CellAccessibleParent -> IO CellAccessibleParent
boxedPtrCopy = CellAccessibleParent -> IO CellAccessibleParent
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return
boxedPtrFree :: CellAccessibleParent -> IO ()
boxedPtrFree = \CellAccessibleParent
_x -> () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
type family ResolveCellAccessibleParentMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveCellAccessibleParentMethod "activate" o = CellAccessibleParentActivateMethodInfo
ResolveCellAccessibleParentMethod "edit" o = CellAccessibleParentEditMethodInfo
ResolveCellAccessibleParentMethod "expandCollapse" o = CellAccessibleParentExpandCollapseMethodInfo
ResolveCellAccessibleParentMethod "grabFocus" o = CellAccessibleParentGrabFocusMethodInfo
ResolveCellAccessibleParentMethod "updateRelationset" o = CellAccessibleParentUpdateRelationsetMethodInfo
ResolveCellAccessibleParentMethod "getCellArea" o = CellAccessibleParentGetCellAreaMethodInfo
ResolveCellAccessibleParentMethod "getCellExtents" o = CellAccessibleParentGetCellExtentsMethodInfo
ResolveCellAccessibleParentMethod "getCellPosition" o = CellAccessibleParentGetCellPositionMethodInfo
ResolveCellAccessibleParentMethod "getChildIndex" o = CellAccessibleParentGetChildIndexMethodInfo
ResolveCellAccessibleParentMethod "getColumnHeaderCells" o = CellAccessibleParentGetColumnHeaderCellsMethodInfo
ResolveCellAccessibleParentMethod "getRendererState" o = CellAccessibleParentGetRendererStateMethodInfo
ResolveCellAccessibleParentMethod "getRowHeaderCells" o = CellAccessibleParentGetRowHeaderCellsMethodInfo
ResolveCellAccessibleParentMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCellAccessibleParentMethod t CellAccessibleParent, O.OverloadedMethod info CellAccessibleParent p) => OL.IsLabel t (CellAccessibleParent -> 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 ~ ResolveCellAccessibleParentMethod t CellAccessibleParent, O.OverloadedMethod info CellAccessibleParent p, R.HasField t CellAccessibleParent p) => R.HasField t CellAccessibleParent p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCellAccessibleParentMethod t CellAccessibleParent, O.OverloadedMethodInfo info CellAccessibleParent) => OL.IsLabel t (O.MethodProxy info CellAccessibleParent) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
foreign import ccall "gtk_cell_accessible_parent_activate" gtk_cell_accessible_parent_activate ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO ()
cellAccessibleParentActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m ()
cellAccessibleParentActivate :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellAccessibleParent a,
IsCellAccessible b) =>
a -> b -> m ()
cellAccessibleParentActivate a
parent b
cell = 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 CellAccessibleParent
parent' <- a -> IO (Ptr CellAccessibleParent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parent
Ptr CellAccessible
cell' <- b -> IO (Ptr CellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
Ptr CellAccessibleParent -> Ptr CellAccessible -> IO ()
gtk_cell_accessible_parent_activate Ptr CellAccessibleParent
parent' Ptr CellAccessible
cell'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parent
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellAccessibleParentActivateMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.OverloadedMethod CellAccessibleParentActivateMethodInfo a signature where
overloadedMethod = cellAccessibleParentActivate
instance O.OverloadedMethodInfo CellAccessibleParentActivateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.CellAccessibleParent.cellAccessibleParentActivate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Interfaces-CellAccessibleParent.html#v:cellAccessibleParentActivate"
})
#endif
foreign import ccall "gtk_cell_accessible_parent_edit" gtk_cell_accessible_parent_edit ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO ()
cellAccessibleParentEdit ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m ()
cellAccessibleParentEdit :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellAccessibleParent a,
IsCellAccessible b) =>
a -> b -> m ()
cellAccessibleParentEdit a
parent b
cell = 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 CellAccessibleParent
parent' <- a -> IO (Ptr CellAccessibleParent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parent
Ptr CellAccessible
cell' <- b -> IO (Ptr CellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
Ptr CellAccessibleParent -> Ptr CellAccessible -> IO ()
gtk_cell_accessible_parent_edit Ptr CellAccessibleParent
parent' Ptr CellAccessible
cell'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parent
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellAccessibleParentEditMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.OverloadedMethod CellAccessibleParentEditMethodInfo a signature where
overloadedMethod = cellAccessibleParentEdit
instance O.OverloadedMethodInfo CellAccessibleParentEditMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.CellAccessibleParent.cellAccessibleParentEdit",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Interfaces-CellAccessibleParent.html#v:cellAccessibleParentEdit"
})
#endif
foreign import ccall "gtk_cell_accessible_parent_expand_collapse" gtk_cell_accessible_parent_expand_collapse ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO ()
cellAccessibleParentExpandCollapse ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m ()
cellAccessibleParentExpandCollapse :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellAccessibleParent a,
IsCellAccessible b) =>
a -> b -> m ()
cellAccessibleParentExpandCollapse a
parent b
cell = 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 CellAccessibleParent
parent' <- a -> IO (Ptr CellAccessibleParent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parent
Ptr CellAccessible
cell' <- b -> IO (Ptr CellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
Ptr CellAccessibleParent -> Ptr CellAccessible -> IO ()
gtk_cell_accessible_parent_expand_collapse Ptr CellAccessibleParent
parent' Ptr CellAccessible
cell'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parent
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellAccessibleParentExpandCollapseMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.OverloadedMethod CellAccessibleParentExpandCollapseMethodInfo a signature where
overloadedMethod = cellAccessibleParentExpandCollapse
instance O.OverloadedMethodInfo CellAccessibleParentExpandCollapseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.CellAccessibleParent.cellAccessibleParentExpandCollapse",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Interfaces-CellAccessibleParent.html#v:cellAccessibleParentExpandCollapse"
})
#endif
foreign import ccall "gtk_cell_accessible_parent_get_cell_area" gtk_cell_accessible_parent_get_cell_area ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
cellAccessibleParentGetCellArea ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m (Gdk.Rectangle.Rectangle)
cellAccessibleParentGetCellArea :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellAccessibleParent a,
IsCellAccessible b) =>
a -> b -> m Rectangle
cellAccessibleParentGetCellArea a
parent b
cell = IO Rectangle -> m Rectangle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rectangle -> m Rectangle) -> IO Rectangle -> m Rectangle
forall a b. (a -> b) -> a -> b
$ do
Ptr CellAccessibleParent
parent' <- a -> IO (Ptr CellAccessibleParent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parent
Ptr CellAccessible
cell' <- b -> IO (Ptr CellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
Ptr Rectangle
cellRect <- Int -> IO (Ptr Rectangle)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Gdk.Rectangle.Rectangle)
Ptr CellAccessibleParent
-> Ptr CellAccessible -> Ptr Rectangle -> IO ()
gtk_cell_accessible_parent_get_cell_area Ptr CellAccessibleParent
parent' Ptr CellAccessible
cell' Ptr Rectangle
cellRect
Rectangle
cellRect' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
cellRect
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parent
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
Rectangle -> IO Rectangle
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Rectangle
cellRect'
#if defined(ENABLE_OVERLOADING)
data CellAccessibleParentGetCellAreaMethodInfo
instance (signature ~ (b -> m (Gdk.Rectangle.Rectangle)), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.OverloadedMethod CellAccessibleParentGetCellAreaMethodInfo a signature where
overloadedMethod = cellAccessibleParentGetCellArea
instance O.OverloadedMethodInfo CellAccessibleParentGetCellAreaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.CellAccessibleParent.cellAccessibleParentGetCellArea",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Interfaces-CellAccessibleParent.html#v:cellAccessibleParentGetCellArea"
})
#endif
foreign import ccall "gtk_cell_accessible_parent_get_cell_extents" gtk_cell_accessible_parent_get_cell_extents ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
CUInt ->
IO ()
cellAccessibleParentGetCellExtents ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> Atk.Enums.CoordType
-> m ((Int32, Int32, Int32, Int32))
cellAccessibleParentGetCellExtents :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellAccessibleParent a,
IsCellAccessible b) =>
a -> b -> CoordType -> m (Int32, Int32, Int32, Int32)
cellAccessibleParentGetCellExtents a
parent b
cell CoordType
coordType = IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32))
-> IO (Int32, Int32, Int32, Int32)
-> m (Int32, Int32, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr CellAccessibleParent
parent' <- a -> IO (Ptr CellAccessibleParent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parent
Ptr CellAccessible
cell' <- b -> IO (Ptr CellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
Ptr Int32
x <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
y <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
width <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
height <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
let coordType' :: CUInt
coordType' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (CoordType -> Int) -> CoordType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CoordType -> Int
forall a. Enum a => a -> Int
fromEnum) CoordType
coordType
Ptr CellAccessibleParent
-> Ptr CellAccessible
-> Ptr Int32
-> Ptr Int32
-> Ptr Int32
-> Ptr Int32
-> CUInt
-> IO ()
gtk_cell_accessible_parent_get_cell_extents Ptr CellAccessibleParent
parent' Ptr CellAccessible
cell' Ptr Int32
x Ptr Int32
y Ptr Int32
width Ptr Int32
height CUInt
coordType'
Int32
x' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
x
Int32
y' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
y
Int32
width' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
width
Int32
height' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parent
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
x
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
y
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
width
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
height
(Int32, Int32, Int32, Int32) -> IO (Int32, Int32, Int32, Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
x', Int32
y', Int32
width', Int32
height')
#if defined(ENABLE_OVERLOADING)
data CellAccessibleParentGetCellExtentsMethodInfo
instance (signature ~ (b -> Atk.Enums.CoordType -> m ((Int32, Int32, Int32, Int32))), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.OverloadedMethod CellAccessibleParentGetCellExtentsMethodInfo a signature where
overloadedMethod = cellAccessibleParentGetCellExtents
instance O.OverloadedMethodInfo CellAccessibleParentGetCellExtentsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.CellAccessibleParent.cellAccessibleParentGetCellExtents",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Interfaces-CellAccessibleParent.html#v:cellAccessibleParentGetCellExtents"
})
#endif
foreign import ccall "gtk_cell_accessible_parent_get_cell_position" gtk_cell_accessible_parent_get_cell_position ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellAccessibleParentGetCellPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m ((Int32, Int32))
cellAccessibleParentGetCellPosition :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellAccessibleParent a,
IsCellAccessible b) =>
a -> b -> m (Int32, Int32)
cellAccessibleParentGetCellPosition a
parent b
cell = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr CellAccessibleParent
parent' <- a -> IO (Ptr CellAccessibleParent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parent
Ptr CellAccessible
cell' <- b -> IO (Ptr CellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
Ptr Int32
row <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
column <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr CellAccessibleParent
-> Ptr CellAccessible -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_cell_accessible_parent_get_cell_position Ptr CellAccessibleParent
parent' Ptr CellAccessible
cell' Ptr Int32
row Ptr Int32
column
Int32
row' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
row
Int32
column' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
column
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parent
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
row
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
column
(Int32, Int32) -> IO (Int32, Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
row', Int32
column')
#if defined(ENABLE_OVERLOADING)
data CellAccessibleParentGetCellPositionMethodInfo
instance (signature ~ (b -> m ((Int32, Int32))), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.OverloadedMethod CellAccessibleParentGetCellPositionMethodInfo a signature where
overloadedMethod = cellAccessibleParentGetCellPosition
instance O.OverloadedMethodInfo CellAccessibleParentGetCellPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.CellAccessibleParent.cellAccessibleParentGetCellPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Interfaces-CellAccessibleParent.html#v:cellAccessibleParentGetCellPosition"
})
#endif
foreign import ccall "gtk_cell_accessible_parent_get_child_index" gtk_cell_accessible_parent_get_child_index ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO Int32
cellAccessibleParentGetChildIndex ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m Int32
cellAccessibleParentGetChildIndex :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellAccessibleParent a,
IsCellAccessible b) =>
a -> b -> m Int32
cellAccessibleParentGetChildIndex a
parent b
cell = IO Int32 -> m Int32
forall a. IO a -> m a
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 CellAccessibleParent
parent' <- a -> IO (Ptr CellAccessibleParent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parent
Ptr CellAccessible
cell' <- b -> IO (Ptr CellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
Int32
result <- Ptr CellAccessibleParent -> Ptr CellAccessible -> IO Int32
gtk_cell_accessible_parent_get_child_index Ptr CellAccessibleParent
parent' Ptr CellAccessible
cell'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parent
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data CellAccessibleParentGetChildIndexMethodInfo
instance (signature ~ (b -> m Int32), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.OverloadedMethod CellAccessibleParentGetChildIndexMethodInfo a signature where
overloadedMethod = cellAccessibleParentGetChildIndex
instance O.OverloadedMethodInfo CellAccessibleParentGetChildIndexMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.CellAccessibleParent.cellAccessibleParentGetChildIndex",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Interfaces-CellAccessibleParent.html#v:cellAccessibleParentGetChildIndex"
})
#endif
foreign import ccall "gtk_cell_accessible_parent_get_column_header_cells" gtk_cell_accessible_parent_get_column_header_cells ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO (Ptr (GPtrArray (Ptr Atk.Object.Object)))
cellAccessibleParentGetColumnHeaderCells ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m [Atk.Object.Object]
cellAccessibleParentGetColumnHeaderCells :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellAccessibleParent a,
IsCellAccessible b) =>
a -> b -> m [Object]
cellAccessibleParentGetColumnHeaderCells a
parent b
cell = IO [Object] -> m [Object]
forall a. IO a -> m a
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 CellAccessibleParent
parent' <- a -> IO (Ptr CellAccessibleParent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parent
Ptr CellAccessible
cell' <- b -> IO (Ptr CellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
Ptr (GPtrArray (Ptr Object))
result <- Ptr CellAccessibleParent
-> Ptr CellAccessible -> IO (Ptr (GPtrArray (Ptr Object)))
gtk_cell_accessible_parent_get_column_header_cells Ptr CellAccessibleParent
parent' Ptr CellAccessible
cell'
Text -> Ptr (GPtrArray (Ptr Object)) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAccessibleParentGetColumnHeaderCells" Ptr (GPtrArray (Ptr Object))
result
[Ptr Object]
result' <- Ptr (GPtrArray (Ptr Object)) -> IO [Ptr Object]
forall a. Ptr (GPtrArray (Ptr a)) -> IO [Ptr a]
unpackGPtrArray Ptr (GPtrArray (Ptr Object))
result
[Object]
result'' <- (Ptr Object -> IO Object) -> [Ptr Object] -> IO [Object]
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 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
Atk.Object.Object) [Ptr Object]
result'
Ptr (GPtrArray (Ptr Object)) -> IO ()
forall a. Ptr (GPtrArray a) -> IO ()
unrefPtrArray Ptr (GPtrArray (Ptr Object))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parent
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
[Object] -> IO [Object]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Object]
result''
#if defined(ENABLE_OVERLOADING)
data CellAccessibleParentGetColumnHeaderCellsMethodInfo
instance (signature ~ (b -> m [Atk.Object.Object]), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.OverloadedMethod CellAccessibleParentGetColumnHeaderCellsMethodInfo a signature where
overloadedMethod = cellAccessibleParentGetColumnHeaderCells
instance O.OverloadedMethodInfo CellAccessibleParentGetColumnHeaderCellsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.CellAccessibleParent.cellAccessibleParentGetColumnHeaderCells",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Interfaces-CellAccessibleParent.html#v:cellAccessibleParentGetColumnHeaderCells"
})
#endif
foreign import ccall "gtk_cell_accessible_parent_get_renderer_state" gtk_cell_accessible_parent_get_renderer_state ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO CUInt
cellAccessibleParentGetRendererState ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m [Gtk.Flags.CellRendererState]
cellAccessibleParentGetRendererState :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellAccessibleParent a,
IsCellAccessible b) =>
a -> b -> m [CellRendererState]
cellAccessibleParentGetRendererState a
parent b
cell = IO [CellRendererState] -> m [CellRendererState]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [CellRendererState] -> m [CellRendererState])
-> IO [CellRendererState] -> m [CellRendererState]
forall a b. (a -> b) -> a -> b
$ do
Ptr CellAccessibleParent
parent' <- a -> IO (Ptr CellAccessibleParent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parent
Ptr CellAccessible
cell' <- b -> IO (Ptr CellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
CUInt
result <- Ptr CellAccessibleParent -> Ptr CellAccessible -> IO CUInt
gtk_cell_accessible_parent_get_renderer_state Ptr CellAccessibleParent
parent' Ptr CellAccessible
cell'
let result' :: [CellRendererState]
result' = CUInt -> [CellRendererState]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parent
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
[CellRendererState] -> IO [CellRendererState]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [CellRendererState]
result'
#if defined(ENABLE_OVERLOADING)
data CellAccessibleParentGetRendererStateMethodInfo
instance (signature ~ (b -> m [Gtk.Flags.CellRendererState]), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.OverloadedMethod CellAccessibleParentGetRendererStateMethodInfo a signature where
overloadedMethod = cellAccessibleParentGetRendererState
instance O.OverloadedMethodInfo CellAccessibleParentGetRendererStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.CellAccessibleParent.cellAccessibleParentGetRendererState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Interfaces-CellAccessibleParent.html#v:cellAccessibleParentGetRendererState"
})
#endif
foreign import ccall "gtk_cell_accessible_parent_get_row_header_cells" ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO (Ptr (GPtrArray (Ptr Atk.Object.Object)))
cellAccessibleParentGetRowHeaderCells ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m [Atk.Object.Object]
a
parent b
cell = IO [Object] -> m [Object]
forall a. IO a -> m a
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 CellAccessibleParent
parent' <- a -> IO (Ptr CellAccessibleParent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parent
Ptr CellAccessible
cell' <- b -> IO (Ptr CellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
Ptr (GPtrArray (Ptr Object))
result <- Ptr CellAccessibleParent
-> Ptr CellAccessible -> IO (Ptr (GPtrArray (Ptr Object)))
gtk_cell_accessible_parent_get_row_header_cells Ptr CellAccessibleParent
parent' Ptr CellAccessible
cell'
Text -> Ptr (GPtrArray (Ptr Object)) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAccessibleParentGetRowHeaderCells" Ptr (GPtrArray (Ptr Object))
result
[Ptr Object]
result' <- Ptr (GPtrArray (Ptr Object)) -> IO [Ptr Object]
forall a. Ptr (GPtrArray (Ptr a)) -> IO [Ptr a]
unpackGPtrArray Ptr (GPtrArray (Ptr Object))
result
[Object]
result'' <- (Ptr Object -> IO Object) -> [Ptr Object] -> IO [Object]
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 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
Atk.Object.Object) [Ptr Object]
result'
Ptr (GPtrArray (Ptr Object)) -> IO ()
forall a. Ptr (GPtrArray a) -> IO ()
unrefPtrArray Ptr (GPtrArray (Ptr Object))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parent
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
[Object] -> IO [Object]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Object]
result''
#if defined(ENABLE_OVERLOADING)
data CellAccessibleParentGetRowHeaderCellsMethodInfo
instance (signature ~ (b -> m [Atk.Object.Object]), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.OverloadedMethod CellAccessibleParentGetRowHeaderCellsMethodInfo a signature where
overloadedMethod = cellAccessibleParentGetRowHeaderCells
instance O.OverloadedMethodInfo CellAccessibleParentGetRowHeaderCellsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.CellAccessibleParent.cellAccessibleParentGetRowHeaderCells",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Interfaces-CellAccessibleParent.html#v:cellAccessibleParentGetRowHeaderCells"
})
#endif
foreign import ccall "gtk_cell_accessible_parent_grab_focus" gtk_cell_accessible_parent_grab_focus ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO CInt
cellAccessibleParentGrabFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m Bool
cellAccessibleParentGrabFocus :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellAccessibleParent a,
IsCellAccessible b) =>
a -> b -> m Bool
cellAccessibleParentGrabFocus a
parent b
cell = IO Bool -> m Bool
forall a. IO a -> m a
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 CellAccessibleParent
parent' <- a -> IO (Ptr CellAccessibleParent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parent
Ptr CellAccessible
cell' <- b -> IO (Ptr CellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
CInt
result <- Ptr CellAccessibleParent -> Ptr CellAccessible -> IO CInt
gtk_cell_accessible_parent_grab_focus Ptr CellAccessibleParent
parent' Ptr CellAccessible
cell'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parent
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CellAccessibleParentGrabFocusMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.OverloadedMethod CellAccessibleParentGrabFocusMethodInfo a signature where
overloadedMethod = cellAccessibleParentGrabFocus
instance O.OverloadedMethodInfo CellAccessibleParentGrabFocusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.CellAccessibleParent.cellAccessibleParentGrabFocus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Interfaces-CellAccessibleParent.html#v:cellAccessibleParentGrabFocus"
})
#endif
foreign import ccall "gtk_cell_accessible_parent_update_relationset" gtk_cell_accessible_parent_update_relationset ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
Ptr Atk.RelationSet.RelationSet ->
IO ()
cellAccessibleParentUpdateRelationset ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b, Atk.RelationSet.IsRelationSet c) =>
a
-> b
-> c
-> m ()
cellAccessibleParentUpdateRelationset :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellAccessibleParent a,
IsCellAccessible b, IsRelationSet c) =>
a -> b -> c -> m ()
cellAccessibleParentUpdateRelationset a
parent b
cell c
relationset = 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 CellAccessibleParent
parent' <- a -> IO (Ptr CellAccessibleParent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
parent
Ptr CellAccessible
cell' <- b -> IO (Ptr CellAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
Ptr RelationSet
relationset' <- c -> IO (Ptr RelationSet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
relationset
Ptr CellAccessibleParent
-> Ptr CellAccessible -> Ptr RelationSet -> IO ()
gtk_cell_accessible_parent_update_relationset Ptr CellAccessibleParent
parent' Ptr CellAccessible
cell' Ptr RelationSet
relationset'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
parent
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
relationset
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellAccessibleParentUpdateRelationsetMethodInfo
instance (signature ~ (b -> c -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b, Atk.RelationSet.IsRelationSet c) => O.OverloadedMethod CellAccessibleParentUpdateRelationsetMethodInfo a signature where
overloadedMethod = cellAccessibleParentUpdateRelationset
instance O.OverloadedMethodInfo CellAccessibleParentUpdateRelationsetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Interfaces.CellAccessibleParent.cellAccessibleParentUpdateRelationset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Interfaces-CellAccessibleParent.html#v:cellAccessibleParentUpdateRelationset"
})
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CellAccessibleParent = CellAccessibleParentSignalList
type CellAccessibleParentSignalList = ('[ ] :: [(Symbol, DK.Type)])
#endif