#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !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.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import {-# SOURCE #-} qualified GI.Atk.Objects.Object as Atk.Object
import qualified GI.GObject.Objects.Object as GObject.Object
newtype TableCell = TableCell (ManagedPtr TableCell)
noTableCell :: Maybe TableCell
noTableCell = 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 = c_atk_table_cell_get_type
class (GObject o, O.IsDescendantOf TableCell o) => IsTableCell o
instance (GObject o, O.IsDescendantOf TableCell o) => IsTableCell o
instance O.HasParentTypes TableCell
type instance O.ParentTypes TableCell = '[Atk.Object.Object, GObject.Object.Object]
toTableCell :: (MonadIO m, IsTableCell o) => o -> m TableCell
toTableCell = liftIO . unsafeCastTo 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 "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 "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTableCellMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
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) => OL.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
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 cell = liftIO $ do
cell' <- unsafeManagedPtrCastPtr cell
result <- atk_table_cell_get_column_header_cells cell'
checkUnexpectedReturnNULL "tableCellGetColumnHeaderCells" result
result' <- unpackGPtrArray result
result'' <- mapM (wrapObject Atk.Object.Object) result'
unrefPtrArray result
touchManagedPtr cell
return 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 cell = liftIO $ do
cell' <- unsafeManagedPtrCastPtr cell
result <- atk_table_cell_get_column_span cell'
touchManagedPtr cell
return 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 cell = liftIO $ do
cell' <- unsafeManagedPtrCastPtr cell
row <- allocMem :: IO (Ptr Int32)
column <- allocMem :: IO (Ptr Int32)
result <- atk_table_cell_get_position cell' row column
let result' = (/= 0) result
row' <- peek row
column' <- peek column
touchManagedPtr cell
freeMem row
freeMem column
return (result', row', 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 cell = liftIO $ do
cell' <- unsafeManagedPtrCastPtr cell
row <- allocMem :: IO (Ptr Int32)
column <- allocMem :: IO (Ptr Int32)
rowSpan <- allocMem :: IO (Ptr Int32)
columnSpan <- allocMem :: IO (Ptr Int32)
result <- atk_table_cell_get_row_column_span cell' row column rowSpan columnSpan
let result' = (/= 0) result
row' <- peek row
column' <- peek column
rowSpan' <- peek rowSpan
columnSpan' <- peek columnSpan
touchManagedPtr cell
freeMem row
freeMem column
freeMem rowSpan
freeMem columnSpan
return (result', row', column', rowSpan', 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" 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]
tableCellGetRowHeaderCells cell = liftIO $ do
cell' <- unsafeManagedPtrCastPtr cell
result <- atk_table_cell_get_row_header_cells cell'
checkUnexpectedReturnNULL "tableCellGetRowHeaderCells" result
result' <- unpackGPtrArray result
result'' <- mapM (wrapObject Atk.Object.Object) result'
unrefPtrArray result
touchManagedPtr cell
return 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 cell = liftIO $ do
cell' <- unsafeManagedPtrCastPtr cell
result <- atk_table_cell_get_row_span cell'
touchManagedPtr cell
return 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 cell = liftIO $ do
cell' <- unsafeManagedPtrCastPtr cell
result <- atk_table_cell_get_table cell'
checkUnexpectedReturnNULL "tableCellGetTable" result
result' <- (wrapObject Atk.Object.Object) result
touchManagedPtr cell
return 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