#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Atk.Interfaces.TableCell
(
TableCell(..) ,
noTableCell ,
IsTableCell ,
toTableCell ,
#if ENABLE_OVERLOADING
TableCellGetColumnHeaderCellsMethodInfo ,
#endif
tableCellGetColumnHeaderCells ,
#if ENABLE_OVERLOADING
TableCellGetColumnSpanMethodInfo ,
#endif
tableCellGetColumnSpan ,
#if ENABLE_OVERLOADING
TableCellGetPositionMethodInfo ,
#endif
tableCellGetPosition ,
#if ENABLE_OVERLOADING
TableCellGetRowColumnSpanMethodInfo ,
#endif
tableCellGetRowColumnSpan ,
#if ENABLE_OVERLOADING
TableCellGetRowHeaderCellsMethodInfo ,
#endif
tableCellGetRowHeaderCells ,
#if ENABLE_OVERLOADING
TableCellGetRowSpanMethodInfo ,
#endif
tableCellGetRowSpan ,
#if ENABLE_OVERLOADING
TableCellGetTableMethodInfo ,
#endif
tableCellGetTable ,
) 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.Objects.Object as Atk.Object
import qualified GI.GObject.Objects.Object as GObject.Object
newtype TableCell = TableCell (ManagedPtr TableCell)
noTableCell :: Maybe TableCell
noTableCell :: Maybe TableCell
noTableCell = Maybe TableCell
forall a. Maybe a
Nothing
#if ENABLE_OVERLOADING
type instance O.SignalList TableCell = TableCellSignalList
type TableCellSignalList = ('[ '("activeDescendantChanged", Atk.Object.ObjectActiveDescendantChangedSignalInfo), '("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, *)])
#endif
foreign import ccall "atk_table_cell_get_type"
c_atk_table_cell_get_type :: IO GType
instance GObject TableCell where
gobjectType :: TableCell -> IO GType
gobjectType _ = IO GType
c_atk_table_cell_get_type
class GObject o => IsTableCell o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError TableCell a) =>
IsTableCell a
#endif
instance IsTableCell TableCell
instance Atk.Object.IsObject TableCell
instance GObject.Object.IsObject TableCell
toTableCell :: (MonadIO m, IsTableCell o) => o -> m TableCell
toTableCell :: o -> m TableCell
toTableCell = IO TableCell -> m TableCell
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TableCell -> m TableCell)
-> (o -> IO TableCell) -> o -> m TableCell
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr TableCell -> TableCell) -> o -> IO TableCell
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr TableCell -> TableCell
TableCell
#if ENABLE_OVERLOADING
instance O.HasAttributeList TableCell
type instance O.AttributeList TableCell = TableCellAttributeList
type TableCellAttributeList = ('[ '("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)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type family ResolveTableCellMethod (t :: Symbol) (o :: *) :: * where
ResolveTableCellMethod "addRelationship" o = Atk.Object.ObjectAddRelationshipMethodInfo
ResolveTableCellMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTableCellMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTableCellMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTableCellMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTableCellMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTableCellMethod "initialize" o = Atk.Object.ObjectInitializeMethodInfo
ResolveTableCellMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTableCellMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTableCellMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTableCellMethod "notifyStateChange" o = Atk.Object.ObjectNotifyStateChangeMethodInfo
ResolveTableCellMethod "peekParent" o = Atk.Object.ObjectPeekParentMethodInfo
ResolveTableCellMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTableCellMethod "refAccessibleChild" o = Atk.Object.ObjectRefAccessibleChildMethodInfo
ResolveTableCellMethod "refRelationSet" o = Atk.Object.ObjectRefRelationSetMethodInfo
ResolveTableCellMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTableCellMethod "refStateSet" o = Atk.Object.ObjectRefStateSetMethodInfo
ResolveTableCellMethod "removePropertyChangeHandler" o = Atk.Object.ObjectRemovePropertyChangeHandlerMethodInfo
ResolveTableCellMethod "removeRelationship" o = Atk.Object.ObjectRemoveRelationshipMethodInfo
ResolveTableCellMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTableCellMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTableCellMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTableCellMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTableCellMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTableCellMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTableCellMethod "getAccessibleId" o = Atk.Object.ObjectGetAccessibleIdMethodInfo
ResolveTableCellMethod "getAttributes" o = Atk.Object.ObjectGetAttributesMethodInfo
ResolveTableCellMethod "getColumnHeaderCells" o = TableCellGetColumnHeaderCellsMethodInfo
ResolveTableCellMethod "getColumnSpan" o = TableCellGetColumnSpanMethodInfo
ResolveTableCellMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTableCellMethod "getDescription" o = Atk.Object.ObjectGetDescriptionMethodInfo
ResolveTableCellMethod "getIndexInParent" o = Atk.Object.ObjectGetIndexInParentMethodInfo
ResolveTableCellMethod "getLayer" o = Atk.Object.ObjectGetLayerMethodInfo
ResolveTableCellMethod "getMdiZorder" o = Atk.Object.ObjectGetMdiZorderMethodInfo
ResolveTableCellMethod "getNAccessibleChildren" o = Atk.Object.ObjectGetNAccessibleChildrenMethodInfo
ResolveTableCellMethod "getName" o = Atk.Object.ObjectGetNameMethodInfo
ResolveTableCellMethod "getObjectLocale" o = Atk.Object.ObjectGetObjectLocaleMethodInfo
ResolveTableCellMethod "getParent" o = Atk.Object.ObjectGetParentMethodInfo
ResolveTableCellMethod "getPosition" o = TableCellGetPositionMethodInfo
ResolveTableCellMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTableCellMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTableCellMethod "getRole" o = Atk.Object.ObjectGetRoleMethodInfo
ResolveTableCellMethod "getRowColumnSpan" o = TableCellGetRowColumnSpanMethodInfo
ResolveTableCellMethod "getRowHeaderCells" o = TableCellGetRowHeaderCellsMethodInfo
ResolveTableCellMethod "getRowSpan" o = TableCellGetRowSpanMethodInfo
ResolveTableCellMethod "getTable" o = TableCellGetTableMethodInfo
ResolveTableCellMethod "setAccessibleId" o = Atk.Object.ObjectSetAccessibleIdMethodInfo
ResolveTableCellMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTableCellMethod "setDescription" o = Atk.Object.ObjectSetDescriptionMethodInfo
ResolveTableCellMethod "setName" o = Atk.Object.ObjectSetNameMethodInfo
ResolveTableCellMethod "setParent" o = Atk.Object.ObjectSetParentMethodInfo
ResolveTableCellMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTableCellMethod "setRole" o = Atk.Object.ObjectSetRoleMethodInfo
ResolveTableCellMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTableCellMethod t TableCell, O.MethodInfo info TableCell p) => O.IsLabelProxy t (TableCell -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveTableCellMethod t TableCell, O.MethodInfo info TableCell p) => O.IsLabel t (TableCell -> 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
foreign import ccall "atk_table_cell_get_column_header_cells" atk_table_cell_get_column_header_cells ::
Ptr TableCell ->
IO (Ptr (GPtrArray (Ptr Atk.Object.Object)))
tableCellGetColumnHeaderCells ::
(B.CallStack.HasCallStack, MonadIO m, IsTableCell a) =>
a
-> m [Atk.Object.Object]
tableCellGetColumnHeaderCells :: a -> m [Object]
tableCellGetColumnHeaderCells cell :: a
cell = 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 TableCell
cell' <- a -> IO (Ptr TableCell)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr (GPtrArray (Ptr Object))
result <- Ptr TableCell -> IO (Ptr (GPtrArray (Ptr Object)))
atk_table_cell_get_column_header_cells Ptr TableCell
cell'
Text -> Ptr (GPtrArray (Ptr Object)) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "tableCellGetColumnHeaderCells" 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)
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
cell
[Object] -> IO [Object]
forall (m :: * -> *) a. Monad m => a -> m a
return [Object]
result''
#if ENABLE_OVERLOADING
data TableCellGetColumnHeaderCellsMethodInfo
instance (signature ~ (m [Atk.Object.Object]), MonadIO m, IsTableCell a) => O.MethodInfo TableCellGetColumnHeaderCellsMethodInfo a signature where
overloadedMethod _ = tableCellGetColumnHeaderCells
#endif
foreign import ccall "atk_table_cell_get_column_span" atk_table_cell_get_column_span ::
Ptr TableCell ->
IO Int32
tableCellGetColumnSpan ::
(B.CallStack.HasCallStack, MonadIO m, IsTableCell a) =>
a
-> m Int32
tableCellGetColumnSpan :: a -> m Int32
tableCellGetColumnSpan cell :: a
cell = 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 TableCell
cell' <- a -> IO (Ptr TableCell)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Int32
result <- Ptr TableCell -> IO Int32
atk_table_cell_get_column_span Ptr TableCell
cell'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data TableCellGetColumnSpanMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTableCell a) => O.MethodInfo TableCellGetColumnSpanMethodInfo a signature where
overloadedMethod _ = tableCellGetColumnSpan
#endif
foreign import ccall "atk_table_cell_get_position" atk_table_cell_get_position ::
Ptr TableCell ->
Ptr Int32 ->
Ptr Int32 ->
IO CInt
tableCellGetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsTableCell a) =>
a
-> m ((Bool, Int32, Int32))
tableCellGetPosition :: a -> m (Bool, Int32, Int32)
tableCellGetPosition cell :: a
cell = IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32))
-> IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr TableCell
cell' <- a -> IO (Ptr TableCell)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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)
CInt
result <- Ptr TableCell -> Ptr Int32 -> Ptr Int32 -> IO CInt
atk_table_cell_get_position Ptr TableCell
cell' Ptr Int32
row Ptr Int32
column
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
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
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
(Bool, Int32, Int32) -> IO (Bool, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Int32
row', Int32
column')
#if ENABLE_OVERLOADING
data TableCellGetPositionMethodInfo
instance (signature ~ (m ((Bool, Int32, Int32))), MonadIO m, IsTableCell a) => O.MethodInfo TableCellGetPositionMethodInfo a signature where
overloadedMethod _ = tableCellGetPosition
#endif
foreign import ccall "atk_table_cell_get_row_column_span" atk_table_cell_get_row_column_span ::
Ptr TableCell ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO CInt
tableCellGetRowColumnSpan ::
(B.CallStack.HasCallStack, MonadIO m, IsTableCell a) =>
a
-> m ((Bool, Int32, Int32, Int32, Int32))
tableCellGetRowColumnSpan :: a -> m (Bool, Int32, Int32, Int32, Int32)
tableCellGetRowColumnSpan cell :: a
cell = IO (Bool, Int32, Int32, Int32, Int32)
-> m (Bool, Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Int32, Int32, Int32, Int32)
-> m (Bool, Int32, Int32, Int32, Int32))
-> IO (Bool, Int32, Int32, Int32, Int32)
-> m (Bool, Int32, Int32, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr TableCell
cell' <- a -> IO (Ptr TableCell)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
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 Int32
rowSpan <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
columnSpan <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
CInt
result <- Ptr TableCell
-> Ptr Int32 -> Ptr Int32 -> Ptr Int32 -> Ptr Int32 -> IO CInt
atk_table_cell_get_row_column_span Ptr TableCell
cell' Ptr Int32
row Ptr Int32
column Ptr Int32
rowSpan Ptr Int32
columnSpan
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
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
Int32
rowSpan' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
rowSpan
Int32
columnSpan' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
columnSpan
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
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
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
rowSpan
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
columnSpan
(Bool, Int32, Int32, Int32, Int32)
-> IO (Bool, Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Int32
row', Int32
column', Int32
rowSpan', Int32
columnSpan')
#if ENABLE_OVERLOADING
data TableCellGetRowColumnSpanMethodInfo
instance (signature ~ (m ((Bool, Int32, Int32, Int32, Int32))), MonadIO m, IsTableCell a) => O.MethodInfo TableCellGetRowColumnSpanMethodInfo a signature where
overloadedMethod _ = tableCellGetRowColumnSpan
#endif
foreign import ccall "atk_table_cell_get_row_header_cells" ::
Ptr TableCell ->
IO (Ptr (GPtrArray (Ptr Atk.Object.Object)))
tableCellGetRowHeaderCells ::
(B.CallStack.HasCallStack, MonadIO m, IsTableCell a) =>
a
-> m [Atk.Object.Object]
cell :: a
cell = 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 TableCell
cell' <- a -> IO (Ptr TableCell)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr (GPtrArray (Ptr Object))
result <- Ptr TableCell -> IO (Ptr (GPtrArray (Ptr Object)))
atk_table_cell_get_row_header_cells Ptr TableCell
cell'
Text -> Ptr (GPtrArray (Ptr Object)) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "tableCellGetRowHeaderCells" 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)
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
cell
[Object] -> IO [Object]
forall (m :: * -> *) a. Monad m => a -> m a
return [Object]
result''
#if ENABLE_OVERLOADING
data TableCellGetRowHeaderCellsMethodInfo
instance (signature ~ (m [Atk.Object.Object]), MonadIO m, IsTableCell a) => O.MethodInfo TableCellGetRowHeaderCellsMethodInfo a signature where
overloadedMethod _ = tableCellGetRowHeaderCells
#endif
foreign import ccall "atk_table_cell_get_row_span" atk_table_cell_get_row_span ::
Ptr TableCell ->
IO Int32
tableCellGetRowSpan ::
(B.CallStack.HasCallStack, MonadIO m, IsTableCell a) =>
a
-> m Int32
tableCellGetRowSpan :: a -> m Int32
tableCellGetRowSpan cell :: a
cell = 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 TableCell
cell' <- a -> IO (Ptr TableCell)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Int32
result <- Ptr TableCell -> IO Int32
atk_table_cell_get_row_span Ptr TableCell
cell'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data TableCellGetRowSpanMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTableCell a) => O.MethodInfo TableCellGetRowSpanMethodInfo a signature where
overloadedMethod _ = tableCellGetRowSpan
#endif
foreign import ccall "atk_table_cell_get_table" atk_table_cell_get_table ::
Ptr TableCell ->
IO (Ptr Atk.Object.Object)
tableCellGetTable ::
(B.CallStack.HasCallStack, MonadIO m, IsTableCell a) =>
a
-> m Atk.Object.Object
tableCellGetTable :: a -> m Object
tableCellGetTable cell :: a
cell = 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 TableCell
cell' <- a -> IO (Ptr TableCell)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr Object
result <- Ptr TableCell -> IO (Ptr Object)
atk_table_cell_get_table Ptr TableCell
cell'
Text -> Ptr Object -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "tableCellGetTable" 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
Atk.Object.Object) Ptr Object
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
Object -> IO Object
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result'
#if ENABLE_OVERLOADING
data TableCellGetTableMethodInfo
instance (signature ~ (m Atk.Object.Object), MonadIO m, IsTableCell a) => O.MethodInfo TableCellGetTableMethodInfo a signature where
overloadedMethod _ = tableCellGetTable
#endif