gi-atk-0.2.18.12: GI/Atk/Interfaces/Table.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Atk.Interfaces.Table
(
-- * Exported types
Table(..) ,
noTable ,
TableK ,
-- * Methods
-- ** tableAddColumnSelection
tableAddColumnSelection ,
-- ** tableAddRowSelection
tableAddRowSelection ,
-- ** tableGetCaption
tableGetCaption ,
-- ** tableGetColumnAtIndex
tableGetColumnAtIndex ,
-- ** tableGetColumnDescription
tableGetColumnDescription ,
-- ** tableGetColumnExtentAt
tableGetColumnExtentAt ,
-- ** tableGetColumnHeader
tableGetColumnHeader ,
-- ** tableGetIndexAt
tableGetIndexAt ,
-- ** tableGetNColumns
tableGetNColumns ,
-- ** tableGetNRows
tableGetNRows ,
-- ** tableGetRowAtIndex
tableGetRowAtIndex ,
-- ** tableGetRowDescription
tableGetRowDescription ,
-- ** tableGetRowExtentAt
tableGetRowExtentAt ,
-- ** tableGetRowHeader
tableGetRowHeader ,
-- ** tableGetSelectedColumns
tableGetSelectedColumns ,
-- ** tableGetSelectedRows
tableGetSelectedRows ,
-- ** tableGetSummary
tableGetSummary ,
-- ** tableIsColumnSelected
tableIsColumnSelected ,
-- ** tableIsRowSelected
tableIsRowSelected ,
-- ** tableIsSelected
tableIsSelected ,
-- ** tableRefAt
tableRefAt ,
-- ** tableRemoveColumnSelection
tableRemoveColumnSelection ,
-- ** tableRemoveRowSelection
tableRemoveRowSelection ,
-- ** tableSetCaption
tableSetCaption ,
-- ** tableSetColumnDescription
tableSetColumnDescription ,
-- ** tableSetColumnHeader
tableSetColumnHeader ,
-- ** tableSetRowDescription
tableSetRowDescription ,
-- ** tableSetRowHeader
tableSetRowHeader ,
-- ** tableSetSummary
tableSetSummary ,
-- * Signals
-- ** ColumnDeleted
TableColumnDeletedCallback ,
TableColumnDeletedCallbackC ,
TableColumnDeletedSignalInfo ,
afterTableColumnDeleted ,
mkTableColumnDeletedCallback ,
noTableColumnDeletedCallback ,
onTableColumnDeleted ,
tableColumnDeletedCallbackWrapper ,
tableColumnDeletedClosure ,
-- ** ColumnInserted
TableColumnInsertedCallback ,
TableColumnInsertedCallbackC ,
TableColumnInsertedSignalInfo ,
afterTableColumnInserted ,
mkTableColumnInsertedCallback ,
noTableColumnInsertedCallback ,
onTableColumnInserted ,
tableColumnInsertedCallbackWrapper ,
tableColumnInsertedClosure ,
-- ** ColumnReordered
TableColumnReorderedCallback ,
TableColumnReorderedCallbackC ,
TableColumnReorderedSignalInfo ,
afterTableColumnReordered ,
mkTableColumnReorderedCallback ,
noTableColumnReorderedCallback ,
onTableColumnReordered ,
tableColumnReorderedCallbackWrapper ,
tableColumnReorderedClosure ,
-- ** ModelChanged
TableModelChangedCallback ,
TableModelChangedCallbackC ,
TableModelChangedSignalInfo ,
afterTableModelChanged ,
mkTableModelChangedCallback ,
noTableModelChangedCallback ,
onTableModelChanged ,
tableModelChangedCallbackWrapper ,
tableModelChangedClosure ,
-- ** RowDeleted
TableRowDeletedCallback ,
TableRowDeletedCallbackC ,
TableRowDeletedSignalInfo ,
afterTableRowDeleted ,
mkTableRowDeletedCallback ,
noTableRowDeletedCallback ,
onTableRowDeleted ,
tableRowDeletedCallbackWrapper ,
tableRowDeletedClosure ,
-- ** RowInserted
TableRowInsertedCallback ,
TableRowInsertedCallbackC ,
TableRowInsertedSignalInfo ,
afterTableRowInserted ,
mkTableRowInsertedCallback ,
noTableRowInsertedCallback ,
onTableRowInserted ,
tableRowInsertedCallbackWrapper ,
tableRowInsertedClosure ,
-- ** RowReordered
TableRowReorderedCallback ,
TableRowReorderedCallbackC ,
TableRowReorderedSignalInfo ,
afterTableRowReordered ,
mkTableRowReorderedCallback ,
noTableRowReorderedCallback ,
onTableRowReordered ,
tableRowReorderedCallbackWrapper ,
tableRowReorderedClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Atk.Types
import GI.Atk.Callbacks
-- interface Table
newtype Table = Table (ForeignPtr Table)
noTable :: Maybe Table
noTable = Nothing
-- signal Table::column-deleted
type TableColumnDeletedCallback =
Int32 ->
Int32 ->
IO ()
noTableColumnDeletedCallback :: Maybe TableColumnDeletedCallback
noTableColumnDeletedCallback = Nothing
type TableColumnDeletedCallbackC =
Ptr () -> -- object
Int32 ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTableColumnDeletedCallback :: TableColumnDeletedCallbackC -> IO (FunPtr TableColumnDeletedCallbackC)
tableColumnDeletedClosure :: TableColumnDeletedCallback -> IO Closure
tableColumnDeletedClosure cb = newCClosure =<< mkTableColumnDeletedCallback wrapped
where wrapped = tableColumnDeletedCallbackWrapper cb
tableColumnDeletedCallbackWrapper ::
TableColumnDeletedCallback ->
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
tableColumnDeletedCallbackWrapper _cb _ arg1 arg2 _ = do
_cb arg1 arg2
onTableColumnDeleted :: (GObject a, MonadIO m) => a -> TableColumnDeletedCallback -> m SignalHandlerId
onTableColumnDeleted obj cb = liftIO $ connectTableColumnDeleted obj cb SignalConnectBefore
afterTableColumnDeleted :: (GObject a, MonadIO m) => a -> TableColumnDeletedCallback -> m SignalHandlerId
afterTableColumnDeleted obj cb = connectTableColumnDeleted obj cb SignalConnectAfter
connectTableColumnDeleted :: (GObject a, MonadIO m) =>
a -> TableColumnDeletedCallback -> SignalConnectMode -> m SignalHandlerId
connectTableColumnDeleted obj cb after = liftIO $ do
cb' <- mkTableColumnDeletedCallback (tableColumnDeletedCallbackWrapper cb)
connectSignalFunPtr obj "column-deleted" cb' after
-- signal Table::column-inserted
type TableColumnInsertedCallback =
Int32 ->
Int32 ->
IO ()
noTableColumnInsertedCallback :: Maybe TableColumnInsertedCallback
noTableColumnInsertedCallback = Nothing
type TableColumnInsertedCallbackC =
Ptr () -> -- object
Int32 ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTableColumnInsertedCallback :: TableColumnInsertedCallbackC -> IO (FunPtr TableColumnInsertedCallbackC)
tableColumnInsertedClosure :: TableColumnInsertedCallback -> IO Closure
tableColumnInsertedClosure cb = newCClosure =<< mkTableColumnInsertedCallback wrapped
where wrapped = tableColumnInsertedCallbackWrapper cb
tableColumnInsertedCallbackWrapper ::
TableColumnInsertedCallback ->
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
tableColumnInsertedCallbackWrapper _cb _ arg1 arg2 _ = do
_cb arg1 arg2
onTableColumnInserted :: (GObject a, MonadIO m) => a -> TableColumnInsertedCallback -> m SignalHandlerId
onTableColumnInserted obj cb = liftIO $ connectTableColumnInserted obj cb SignalConnectBefore
afterTableColumnInserted :: (GObject a, MonadIO m) => a -> TableColumnInsertedCallback -> m SignalHandlerId
afterTableColumnInserted obj cb = connectTableColumnInserted obj cb SignalConnectAfter
connectTableColumnInserted :: (GObject a, MonadIO m) =>
a -> TableColumnInsertedCallback -> SignalConnectMode -> m SignalHandlerId
connectTableColumnInserted obj cb after = liftIO $ do
cb' <- mkTableColumnInsertedCallback (tableColumnInsertedCallbackWrapper cb)
connectSignalFunPtr obj "column-inserted" cb' after
-- signal Table::column-reordered
type TableColumnReorderedCallback =
IO ()
noTableColumnReorderedCallback :: Maybe TableColumnReorderedCallback
noTableColumnReorderedCallback = Nothing
type TableColumnReorderedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTableColumnReorderedCallback :: TableColumnReorderedCallbackC -> IO (FunPtr TableColumnReorderedCallbackC)
tableColumnReorderedClosure :: TableColumnReorderedCallback -> IO Closure
tableColumnReorderedClosure cb = newCClosure =<< mkTableColumnReorderedCallback wrapped
where wrapped = tableColumnReorderedCallbackWrapper cb
tableColumnReorderedCallbackWrapper ::
TableColumnReorderedCallback ->
Ptr () ->
Ptr () ->
IO ()
tableColumnReorderedCallbackWrapper _cb _ _ = do
_cb
onTableColumnReordered :: (GObject a, MonadIO m) => a -> TableColumnReorderedCallback -> m SignalHandlerId
onTableColumnReordered obj cb = liftIO $ connectTableColumnReordered obj cb SignalConnectBefore
afterTableColumnReordered :: (GObject a, MonadIO m) => a -> TableColumnReorderedCallback -> m SignalHandlerId
afterTableColumnReordered obj cb = connectTableColumnReordered obj cb SignalConnectAfter
connectTableColumnReordered :: (GObject a, MonadIO m) =>
a -> TableColumnReorderedCallback -> SignalConnectMode -> m SignalHandlerId
connectTableColumnReordered obj cb after = liftIO $ do
cb' <- mkTableColumnReorderedCallback (tableColumnReorderedCallbackWrapper cb)
connectSignalFunPtr obj "column-reordered" cb' after
-- signal Table::model-changed
type TableModelChangedCallback =
IO ()
noTableModelChangedCallback :: Maybe TableModelChangedCallback
noTableModelChangedCallback = Nothing
type TableModelChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTableModelChangedCallback :: TableModelChangedCallbackC -> IO (FunPtr TableModelChangedCallbackC)
tableModelChangedClosure :: TableModelChangedCallback -> IO Closure
tableModelChangedClosure cb = newCClosure =<< mkTableModelChangedCallback wrapped
where wrapped = tableModelChangedCallbackWrapper cb
tableModelChangedCallbackWrapper ::
TableModelChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
tableModelChangedCallbackWrapper _cb _ _ = do
_cb
onTableModelChanged :: (GObject a, MonadIO m) => a -> TableModelChangedCallback -> m SignalHandlerId
onTableModelChanged obj cb = liftIO $ connectTableModelChanged obj cb SignalConnectBefore
afterTableModelChanged :: (GObject a, MonadIO m) => a -> TableModelChangedCallback -> m SignalHandlerId
afterTableModelChanged obj cb = connectTableModelChanged obj cb SignalConnectAfter
connectTableModelChanged :: (GObject a, MonadIO m) =>
a -> TableModelChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectTableModelChanged obj cb after = liftIO $ do
cb' <- mkTableModelChangedCallback (tableModelChangedCallbackWrapper cb)
connectSignalFunPtr obj "model-changed" cb' after
-- signal Table::row-deleted
type TableRowDeletedCallback =
Int32 ->
Int32 ->
IO ()
noTableRowDeletedCallback :: Maybe TableRowDeletedCallback
noTableRowDeletedCallback = Nothing
type TableRowDeletedCallbackC =
Ptr () -> -- object
Int32 ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTableRowDeletedCallback :: TableRowDeletedCallbackC -> IO (FunPtr TableRowDeletedCallbackC)
tableRowDeletedClosure :: TableRowDeletedCallback -> IO Closure
tableRowDeletedClosure cb = newCClosure =<< mkTableRowDeletedCallback wrapped
where wrapped = tableRowDeletedCallbackWrapper cb
tableRowDeletedCallbackWrapper ::
TableRowDeletedCallback ->
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
tableRowDeletedCallbackWrapper _cb _ arg1 arg2 _ = do
_cb arg1 arg2
onTableRowDeleted :: (GObject a, MonadIO m) => a -> TableRowDeletedCallback -> m SignalHandlerId
onTableRowDeleted obj cb = liftIO $ connectTableRowDeleted obj cb SignalConnectBefore
afterTableRowDeleted :: (GObject a, MonadIO m) => a -> TableRowDeletedCallback -> m SignalHandlerId
afterTableRowDeleted obj cb = connectTableRowDeleted obj cb SignalConnectAfter
connectTableRowDeleted :: (GObject a, MonadIO m) =>
a -> TableRowDeletedCallback -> SignalConnectMode -> m SignalHandlerId
connectTableRowDeleted obj cb after = liftIO $ do
cb' <- mkTableRowDeletedCallback (tableRowDeletedCallbackWrapper cb)
connectSignalFunPtr obj "row-deleted" cb' after
-- signal Table::row-inserted
type TableRowInsertedCallback =
Int32 ->
Int32 ->
IO ()
noTableRowInsertedCallback :: Maybe TableRowInsertedCallback
noTableRowInsertedCallback = Nothing
type TableRowInsertedCallbackC =
Ptr () -> -- object
Int32 ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTableRowInsertedCallback :: TableRowInsertedCallbackC -> IO (FunPtr TableRowInsertedCallbackC)
tableRowInsertedClosure :: TableRowInsertedCallback -> IO Closure
tableRowInsertedClosure cb = newCClosure =<< mkTableRowInsertedCallback wrapped
where wrapped = tableRowInsertedCallbackWrapper cb
tableRowInsertedCallbackWrapper ::
TableRowInsertedCallback ->
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
tableRowInsertedCallbackWrapper _cb _ arg1 arg2 _ = do
_cb arg1 arg2
onTableRowInserted :: (GObject a, MonadIO m) => a -> TableRowInsertedCallback -> m SignalHandlerId
onTableRowInserted obj cb = liftIO $ connectTableRowInserted obj cb SignalConnectBefore
afterTableRowInserted :: (GObject a, MonadIO m) => a -> TableRowInsertedCallback -> m SignalHandlerId
afterTableRowInserted obj cb = connectTableRowInserted obj cb SignalConnectAfter
connectTableRowInserted :: (GObject a, MonadIO m) =>
a -> TableRowInsertedCallback -> SignalConnectMode -> m SignalHandlerId
connectTableRowInserted obj cb after = liftIO $ do
cb' <- mkTableRowInsertedCallback (tableRowInsertedCallbackWrapper cb)
connectSignalFunPtr obj "row-inserted" cb' after
-- signal Table::row-reordered
type TableRowReorderedCallback =
IO ()
noTableRowReorderedCallback :: Maybe TableRowReorderedCallback
noTableRowReorderedCallback = Nothing
type TableRowReorderedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTableRowReorderedCallback :: TableRowReorderedCallbackC -> IO (FunPtr TableRowReorderedCallbackC)
tableRowReorderedClosure :: TableRowReorderedCallback -> IO Closure
tableRowReorderedClosure cb = newCClosure =<< mkTableRowReorderedCallback wrapped
where wrapped = tableRowReorderedCallbackWrapper cb
tableRowReorderedCallbackWrapper ::
TableRowReorderedCallback ->
Ptr () ->
Ptr () ->
IO ()
tableRowReorderedCallbackWrapper _cb _ _ = do
_cb
onTableRowReordered :: (GObject a, MonadIO m) => a -> TableRowReorderedCallback -> m SignalHandlerId
onTableRowReordered obj cb = liftIO $ connectTableRowReordered obj cb SignalConnectBefore
afterTableRowReordered :: (GObject a, MonadIO m) => a -> TableRowReorderedCallback -> m SignalHandlerId
afterTableRowReordered obj cb = connectTableRowReordered obj cb SignalConnectAfter
connectTableRowReordered :: (GObject a, MonadIO m) =>
a -> TableRowReorderedCallback -> SignalConnectMode -> m SignalHandlerId
connectTableRowReordered obj cb after = liftIO $ do
cb' <- mkTableRowReorderedCallback (tableRowReorderedCallbackWrapper cb)
connectSignalFunPtr obj "row-reordered" cb' after
type instance AttributeList Table = TableAttributeList
type TableAttributeList = ('[ ] :: [(Symbol, *)])
data TableColumnDeletedSignalInfo
instance SignalInfo TableColumnDeletedSignalInfo where
type HaskellCallbackType TableColumnDeletedSignalInfo = TableColumnDeletedCallback
connectSignal _ = connectTableColumnDeleted
data TableColumnInsertedSignalInfo
instance SignalInfo TableColumnInsertedSignalInfo where
type HaskellCallbackType TableColumnInsertedSignalInfo = TableColumnInsertedCallback
connectSignal _ = connectTableColumnInserted
data TableColumnReorderedSignalInfo
instance SignalInfo TableColumnReorderedSignalInfo where
type HaskellCallbackType TableColumnReorderedSignalInfo = TableColumnReorderedCallback
connectSignal _ = connectTableColumnReordered
data TableModelChangedSignalInfo
instance SignalInfo TableModelChangedSignalInfo where
type HaskellCallbackType TableModelChangedSignalInfo = TableModelChangedCallback
connectSignal _ = connectTableModelChanged
data TableRowDeletedSignalInfo
instance SignalInfo TableRowDeletedSignalInfo where
type HaskellCallbackType TableRowDeletedSignalInfo = TableRowDeletedCallback
connectSignal _ = connectTableRowDeleted
data TableRowInsertedSignalInfo
instance SignalInfo TableRowInsertedSignalInfo where
type HaskellCallbackType TableRowInsertedSignalInfo = TableRowInsertedCallback
connectSignal _ = connectTableRowInserted
data TableRowReorderedSignalInfo
instance SignalInfo TableRowReorderedSignalInfo where
type HaskellCallbackType TableRowReorderedSignalInfo = TableRowReorderedCallback
connectSignal _ = connectTableRowReordered
type instance SignalList Table = TableSignalList
type TableSignalList = ('[ '("column-deleted", TableColumnDeletedSignalInfo), '("column-inserted", TableColumnInsertedSignalInfo), '("column-reordered", TableColumnReorderedSignalInfo), '("model-changed", TableModelChangedSignalInfo), '("row-deleted", TableRowDeletedSignalInfo), '("row-inserted", TableRowInsertedSignalInfo), '("row-reordered", TableRowReorderedSignalInfo)] :: [(Symbol, *)])
class ForeignPtrNewtype a => TableK a
instance (ForeignPtrNewtype o, IsDescendantOf Table o) => TableK o
type instance ParentTypes Table = TableParentTypes
type TableParentTypes = '[]
-- method Table::add_column_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_add_column_selection" atk_table_add_column_selection ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- column : TBasicType TInt32
IO CInt
tableAddColumnSelection ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- column
m Bool
tableAddColumnSelection _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_add_column_selection _obj' column
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Table::add_row_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_add_row_selection" atk_table_add_row_selection ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- row : TBasicType TInt32
IO CInt
tableAddRowSelection ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- row
m Bool
tableAddRowSelection _obj row = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_add_row_selection _obj' row
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Table::get_caption
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Atk" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_get_caption" atk_table_get_caption ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
IO (Ptr Object)
tableGetCaption ::
(MonadIO m, TableK a) =>
a -> -- _obj
m Object
tableGetCaption _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_get_caption _obj'
checkUnexpectedReturnNULL "atk_table_get_caption" result
result' <- (newObject Object) result
touchManagedPtr _obj
return result'
-- method Table::get_column_at_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_get_column_at_index" atk_table_get_column_at_index ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- index_ : TBasicType TInt32
IO Int32
{-# DEPRECATED tableGetColumnAtIndex ["Since 2.12."]#-}
tableGetColumnAtIndex ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- index_
m Int32
tableGetColumnAtIndex _obj index_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_get_column_at_index _obj' index_
touchManagedPtr _obj
return result
-- method Table::get_column_description
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_get_column_description" atk_table_get_column_description ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- column : TBasicType TInt32
IO CString
tableGetColumnDescription ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- column
m T.Text
tableGetColumnDescription _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_get_column_description _obj' column
checkUnexpectedReturnNULL "atk_table_get_column_description" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Table::get_column_extent_at
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_get_column_extent_at" atk_table_get_column_extent_at ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- row : TBasicType TInt32
Int32 -> -- column : TBasicType TInt32
IO Int32
tableGetColumnExtentAt ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- row
Int32 -> -- column
m Int32
tableGetColumnExtentAt _obj row column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_get_column_extent_at _obj' row column
touchManagedPtr _obj
return result
-- method Table::get_column_header
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Atk" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_get_column_header" atk_table_get_column_header ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- column : TBasicType TInt32
IO (Ptr Object)
tableGetColumnHeader ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- column
m Object
tableGetColumnHeader _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_get_column_header _obj' column
checkUnexpectedReturnNULL "atk_table_get_column_header" result
result' <- (newObject Object) result
touchManagedPtr _obj
return result'
-- method Table::get_index_at
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_get_index_at" atk_table_get_index_at ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- row : TBasicType TInt32
Int32 -> -- column : TBasicType TInt32
IO Int32
{-# DEPRECATED tableGetIndexAt ["Since 2.12. Use atk_table_ref_at() in order to get the","accessible that represents the cell at (@row, @column)"]#-}
tableGetIndexAt ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- row
Int32 -> -- column
m Int32
tableGetIndexAt _obj row column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_get_index_at _obj' row column
touchManagedPtr _obj
return result
-- method Table::get_n_columns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_get_n_columns" atk_table_get_n_columns ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
IO Int32
tableGetNColumns ::
(MonadIO m, TableK a) =>
a -> -- _obj
m Int32
tableGetNColumns _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_get_n_columns _obj'
touchManagedPtr _obj
return result
-- method Table::get_n_rows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_get_n_rows" atk_table_get_n_rows ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
IO Int32
tableGetNRows ::
(MonadIO m, TableK a) =>
a -> -- _obj
m Int32
tableGetNRows _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_get_n_rows _obj'
touchManagedPtr _obj
return result
-- method Table::get_row_at_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_get_row_at_index" atk_table_get_row_at_index ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- index_ : TBasicType TInt32
IO Int32
{-# DEPRECATED tableGetRowAtIndex ["since 2.12."]#-}
tableGetRowAtIndex ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- index_
m Int32
tableGetRowAtIndex _obj index_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_get_row_at_index _obj' index_
touchManagedPtr _obj
return result
-- method Table::get_row_description
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_get_row_description" atk_table_get_row_description ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- row : TBasicType TInt32
IO CString
tableGetRowDescription ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- row
m T.Text
tableGetRowDescription _obj row = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_get_row_description _obj' row
checkUnexpectedReturnNULL "atk_table_get_row_description" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Table::get_row_extent_at
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_get_row_extent_at" atk_table_get_row_extent_at ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- row : TBasicType TInt32
Int32 -> -- column : TBasicType TInt32
IO Int32
tableGetRowExtentAt ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- row
Int32 -> -- column
m Int32
tableGetRowExtentAt _obj row column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_get_row_extent_at _obj' row column
touchManagedPtr _obj
return result
-- method Table::get_row_header
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Atk" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_get_row_header" atk_table_get_row_header ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- row : TBasicType TInt32
IO (Ptr Object)
tableGetRowHeader ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- row
m Object
tableGetRowHeader _obj row = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_get_row_header _obj' row
checkUnexpectedReturnNULL "atk_table_get_row_header" result
result' <- (newObject Object) result
touchManagedPtr _obj
return result'
-- method Table::get_selected_columns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_get_selected_columns" atk_table_get_selected_columns ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- selected : TBasicType TInt32
IO Int32
tableGetSelectedColumns ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- selected
m Int32
tableGetSelectedColumns _obj selected = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_get_selected_columns _obj' selected
touchManagedPtr _obj
return result
-- method Table::get_selected_rows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_get_selected_rows" atk_table_get_selected_rows ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- selected : TBasicType TInt32
IO Int32
tableGetSelectedRows ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- selected
m Int32
tableGetSelectedRows _obj selected = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_get_selected_rows _obj' selected
touchManagedPtr _obj
return result
-- method Table::get_summary
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Atk" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_get_summary" atk_table_get_summary ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
IO (Ptr Object)
tableGetSummary ::
(MonadIO m, TableK a) =>
a -> -- _obj
m Object
tableGetSummary _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_get_summary _obj'
checkUnexpectedReturnNULL "atk_table_get_summary" result
result' <- (wrapObject Object) result
touchManagedPtr _obj
return result'
-- method Table::is_column_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_is_column_selected" atk_table_is_column_selected ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- column : TBasicType TInt32
IO CInt
tableIsColumnSelected ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- column
m Bool
tableIsColumnSelected _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_is_column_selected _obj' column
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Table::is_row_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_is_row_selected" atk_table_is_row_selected ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- row : TBasicType TInt32
IO CInt
tableIsRowSelected ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- row
m Bool
tableIsRowSelected _obj row = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_is_row_selected _obj' row
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Table::is_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_is_selected" atk_table_is_selected ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- row : TBasicType TInt32
Int32 -> -- column : TBasicType TInt32
IO CInt
tableIsSelected ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- row
Int32 -> -- column
m Bool
tableIsSelected _obj row column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_is_selected _obj' row column
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Table::ref_at
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Atk" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_ref_at" atk_table_ref_at ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- row : TBasicType TInt32
Int32 -> -- column : TBasicType TInt32
IO (Ptr Object)
tableRefAt ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- row
Int32 -> -- column
m Object
tableRefAt _obj row column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_ref_at _obj' row column
checkUnexpectedReturnNULL "atk_table_ref_at" result
result' <- (wrapObject Object) result
touchManagedPtr _obj
return result'
-- method Table::remove_column_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_remove_column_selection" atk_table_remove_column_selection ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- column : TBasicType TInt32
IO CInt
tableRemoveColumnSelection ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- column
m Bool
tableRemoveColumnSelection _obj column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_remove_column_selection _obj' column
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Table::remove_row_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_remove_row_selection" atk_table_remove_row_selection ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- row : TBasicType TInt32
IO CInt
tableRemoveRowSelection ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- row
m Bool
tableRemoveRowSelection _obj row = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_table_remove_row_selection _obj' row
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Table::set_caption
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caption", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caption", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_set_caption" atk_table_set_caption ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Ptr Object -> -- caption : TInterface "Atk" "Object"
IO ()
tableSetCaption ::
(MonadIO m, TableK a, ObjectK b) =>
a -> -- _obj
b -> -- caption
m ()
tableSetCaption _obj caption = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let caption' = unsafeManagedPtrCastPtr caption
atk_table_set_caption _obj' caption'
touchManagedPtr _obj
touchManagedPtr caption
return ()
-- method Table::set_column_description
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_set_column_description" atk_table_set_column_description ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- column : TBasicType TInt32
CString -> -- description : TBasicType TUTF8
IO ()
tableSetColumnDescription ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- column
T.Text -> -- description
m ()
tableSetColumnDescription _obj column description = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
description' <- textToCString description
atk_table_set_column_description _obj' column description'
touchManagedPtr _obj
freeMem description'
return ()
-- method Table::set_column_header
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_set_column_header" atk_table_set_column_header ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- column : TBasicType TInt32
Ptr Object -> -- header : TInterface "Atk" "Object"
IO ()
tableSetColumnHeader ::
(MonadIO m, TableK a, ObjectK b) =>
a -> -- _obj
Int32 -> -- column
b -> -- header
m ()
tableSetColumnHeader _obj column header = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let header' = unsafeManagedPtrCastPtr header
atk_table_set_column_header _obj' column header'
touchManagedPtr _obj
touchManagedPtr header
return ()
-- method Table::set_row_description
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_set_row_description" atk_table_set_row_description ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- row : TBasicType TInt32
CString -> -- description : TBasicType TUTF8
IO ()
tableSetRowDescription ::
(MonadIO m, TableK a) =>
a -> -- _obj
Int32 -> -- row
T.Text -> -- description
m ()
tableSetRowDescription _obj row description = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
description' <- textToCString description
atk_table_set_row_description _obj' row description'
touchManagedPtr _obj
freeMem description'
return ()
-- method Table::set_row_header
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_set_row_header" atk_table_set_row_header ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Int32 -> -- row : TBasicType TInt32
Ptr Object -> -- header : TInterface "Atk" "Object"
IO ()
tableSetRowHeader ::
(MonadIO m, TableK a, ObjectK b) =>
a -> -- _obj
Int32 -> -- row
b -> -- header
m ()
tableSetRowHeader _obj row header = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let header' = unsafeManagedPtrCastPtr header
atk_table_set_row_header _obj' row header'
touchManagedPtr _obj
touchManagedPtr header
return ()
-- method Table::set_summary
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accessible", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accessible", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "atk_table_set_summary" atk_table_set_summary ::
Ptr Table -> -- _obj : TInterface "Atk" "Table"
Ptr Object -> -- accessible : TInterface "Atk" "Object"
IO ()
tableSetSummary ::
(MonadIO m, TableK a, ObjectK b) =>
a -> -- _obj
b -> -- accessible
m ()
tableSetSummary _obj accessible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let accessible' = unsafeManagedPtrCastPtr accessible
atk_table_set_summary _obj' accessible'
touchManagedPtr _obj
touchManagedPtr accessible
return ()