#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Atk.Interfaces.Table
(
Table(..) ,
noTable ,
IsTable ,
toTable ,
#if ENABLE_OVERLOADING
TableAddColumnSelectionMethodInfo ,
#endif
tableAddColumnSelection ,
#if ENABLE_OVERLOADING
TableAddRowSelectionMethodInfo ,
#endif
tableAddRowSelection ,
#if ENABLE_OVERLOADING
TableGetCaptionMethodInfo ,
#endif
tableGetCaption ,
#if ENABLE_OVERLOADING
TableGetColumnAtIndexMethodInfo ,
#endif
tableGetColumnAtIndex ,
#if ENABLE_OVERLOADING
TableGetColumnDescriptionMethodInfo ,
#endif
tableGetColumnDescription ,
#if ENABLE_OVERLOADING
TableGetColumnExtentAtMethodInfo ,
#endif
tableGetColumnExtentAt ,
#if ENABLE_OVERLOADING
TableGetColumnHeaderMethodInfo ,
#endif
tableGetColumnHeader ,
#if ENABLE_OVERLOADING
TableGetIndexAtMethodInfo ,
#endif
tableGetIndexAt ,
#if ENABLE_OVERLOADING
TableGetNColumnsMethodInfo ,
#endif
tableGetNColumns ,
#if ENABLE_OVERLOADING
TableGetNRowsMethodInfo ,
#endif
tableGetNRows ,
#if ENABLE_OVERLOADING
TableGetRowAtIndexMethodInfo ,
#endif
tableGetRowAtIndex ,
#if ENABLE_OVERLOADING
TableGetRowDescriptionMethodInfo ,
#endif
tableGetRowDescription ,
#if ENABLE_OVERLOADING
TableGetRowExtentAtMethodInfo ,
#endif
tableGetRowExtentAt ,
#if ENABLE_OVERLOADING
TableGetRowHeaderMethodInfo ,
#endif
tableGetRowHeader ,
#if ENABLE_OVERLOADING
TableGetSelectedColumnsMethodInfo ,
#endif
tableGetSelectedColumns ,
#if ENABLE_OVERLOADING
TableGetSelectedRowsMethodInfo ,
#endif
tableGetSelectedRows ,
#if ENABLE_OVERLOADING
TableGetSummaryMethodInfo ,
#endif
tableGetSummary ,
#if ENABLE_OVERLOADING
TableIsColumnSelectedMethodInfo ,
#endif
tableIsColumnSelected ,
#if ENABLE_OVERLOADING
TableIsRowSelectedMethodInfo ,
#endif
tableIsRowSelected ,
#if ENABLE_OVERLOADING
TableIsSelectedMethodInfo ,
#endif
tableIsSelected ,
#if ENABLE_OVERLOADING
TableRefAtMethodInfo ,
#endif
tableRefAt ,
#if ENABLE_OVERLOADING
TableRemoveColumnSelectionMethodInfo ,
#endif
tableRemoveColumnSelection ,
#if ENABLE_OVERLOADING
TableRemoveRowSelectionMethodInfo ,
#endif
tableRemoveRowSelection ,
#if ENABLE_OVERLOADING
TableSetCaptionMethodInfo ,
#endif
tableSetCaption ,
#if ENABLE_OVERLOADING
TableSetColumnDescriptionMethodInfo ,
#endif
tableSetColumnDescription ,
#if ENABLE_OVERLOADING
TableSetColumnHeaderMethodInfo ,
#endif
tableSetColumnHeader ,
#if ENABLE_OVERLOADING
TableSetRowDescriptionMethodInfo ,
#endif
tableSetRowDescription ,
#if ENABLE_OVERLOADING
TableSetRowHeaderMethodInfo ,
#endif
tableSetRowHeader ,
#if ENABLE_OVERLOADING
TableSetSummaryMethodInfo ,
#endif
tableSetSummary ,
C_TableColumnDeletedCallback ,
TableColumnDeletedCallback ,
#if ENABLE_OVERLOADING
TableColumnDeletedSignalInfo ,
#endif
afterTableColumnDeleted ,
genClosure_TableColumnDeleted ,
mk_TableColumnDeletedCallback ,
noTableColumnDeletedCallback ,
onTableColumnDeleted ,
wrap_TableColumnDeletedCallback ,
C_TableColumnInsertedCallback ,
TableColumnInsertedCallback ,
#if ENABLE_OVERLOADING
TableColumnInsertedSignalInfo ,
#endif
afterTableColumnInserted ,
genClosure_TableColumnInserted ,
mk_TableColumnInsertedCallback ,
noTableColumnInsertedCallback ,
onTableColumnInserted ,
wrap_TableColumnInsertedCallback ,
C_TableColumnReorderedCallback ,
TableColumnReorderedCallback ,
#if ENABLE_OVERLOADING
TableColumnReorderedSignalInfo ,
#endif
afterTableColumnReordered ,
genClosure_TableColumnReordered ,
mk_TableColumnReorderedCallback ,
noTableColumnReorderedCallback ,
onTableColumnReordered ,
wrap_TableColumnReorderedCallback ,
C_TableModelChangedCallback ,
TableModelChangedCallback ,
#if ENABLE_OVERLOADING
TableModelChangedSignalInfo ,
#endif
afterTableModelChanged ,
genClosure_TableModelChanged ,
mk_TableModelChangedCallback ,
noTableModelChangedCallback ,
onTableModelChanged ,
wrap_TableModelChangedCallback ,
C_TableRowDeletedCallback ,
TableRowDeletedCallback ,
#if ENABLE_OVERLOADING
TableRowDeletedSignalInfo ,
#endif
afterTableRowDeleted ,
genClosure_TableRowDeleted ,
mk_TableRowDeletedCallback ,
noTableRowDeletedCallback ,
onTableRowDeleted ,
wrap_TableRowDeletedCallback ,
C_TableRowInsertedCallback ,
TableRowInsertedCallback ,
#if ENABLE_OVERLOADING
TableRowInsertedSignalInfo ,
#endif
afterTableRowInserted ,
genClosure_TableRowInserted ,
mk_TableRowInsertedCallback ,
noTableRowInsertedCallback ,
onTableRowInserted ,
wrap_TableRowInsertedCallback ,
C_TableRowReorderedCallback ,
TableRowReorderedCallback ,
#if ENABLE_OVERLOADING
TableRowReorderedSignalInfo ,
#endif
afterTableRowReordered ,
genClosure_TableRowReordered ,
mk_TableRowReorderedCallback ,
noTableRowReorderedCallback ,
onTableRowReordered ,
wrap_TableRowReorderedCallback ,
) 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 Table = Table (ManagedPtr Table)
noTable :: Maybe Table
noTable :: Maybe Table
noTable = Maybe Table
forall a. Maybe a
Nothing
type TableColumnDeletedCallback =
Int32
-> Int32
-> IO ()
noTableColumnDeletedCallback :: Maybe TableColumnDeletedCallback
noTableColumnDeletedCallback :: Maybe TableColumnDeletedCallback
noTableColumnDeletedCallback = Maybe TableColumnDeletedCallback
forall a. Maybe a
Nothing
type C_TableColumnDeletedCallback =
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TableColumnDeletedCallback :: C_TableColumnDeletedCallback -> IO (FunPtr C_TableColumnDeletedCallback)
genClosure_TableColumnDeleted :: TableColumnDeletedCallback -> IO Closure
genClosure_TableColumnDeleted :: TableColumnDeletedCallback -> IO Closure
genClosure_TableColumnDeleted cb :: TableColumnDeletedCallback
cb = do
let cb' :: C_TableColumnDeletedCallback
cb' = TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableColumnDeletedCallback TableColumnDeletedCallback
cb
C_TableColumnDeletedCallback
-> IO (FunPtr C_TableColumnDeletedCallback)
mk_TableColumnDeletedCallback C_TableColumnDeletedCallback
cb' IO (FunPtr C_TableColumnDeletedCallback)
-> (FunPtr C_TableColumnDeletedCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TableColumnDeletedCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_TableColumnDeletedCallback ::
TableColumnDeletedCallback ->
C_TableColumnDeletedCallback
wrap_TableColumnDeletedCallback :: TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableColumnDeletedCallback _cb :: TableColumnDeletedCallback
_cb _ arg1 :: Int32
arg1 arg2 :: Int32
arg2 _ = do
TableColumnDeletedCallback
_cb Int32
arg1 Int32
arg2
onTableColumnDeleted :: (IsTable a, MonadIO m) => a -> TableColumnDeletedCallback -> m SignalHandlerId
onTableColumnDeleted :: a -> TableColumnDeletedCallback -> m SignalHandlerId
onTableColumnDeleted obj :: a
obj cb :: TableColumnDeletedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TableColumnDeletedCallback
cb' = TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableColumnDeletedCallback TableColumnDeletedCallback
cb
FunPtr C_TableColumnDeletedCallback
cb'' <- C_TableColumnDeletedCallback
-> IO (FunPtr C_TableColumnDeletedCallback)
mk_TableColumnDeletedCallback C_TableColumnDeletedCallback
cb'
a
-> String
-> FunPtr C_TableColumnDeletedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "column-deleted" FunPtr C_TableColumnDeletedCallback
cb'' SignalConnectMode
SignalConnectBefore
afterTableColumnDeleted :: (IsTable a, MonadIO m) => a -> TableColumnDeletedCallback -> m SignalHandlerId
afterTableColumnDeleted :: a -> TableColumnDeletedCallback -> m SignalHandlerId
afterTableColumnDeleted obj :: a
obj cb :: TableColumnDeletedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TableColumnDeletedCallback
cb' = TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableColumnDeletedCallback TableColumnDeletedCallback
cb
FunPtr C_TableColumnDeletedCallback
cb'' <- C_TableColumnDeletedCallback
-> IO (FunPtr C_TableColumnDeletedCallback)
mk_TableColumnDeletedCallback C_TableColumnDeletedCallback
cb'
a
-> String
-> FunPtr C_TableColumnDeletedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "column-deleted" FunPtr C_TableColumnDeletedCallback
cb'' SignalConnectMode
SignalConnectAfter
type TableColumnInsertedCallback =
Int32
-> Int32
-> IO ()
noTableColumnInsertedCallback :: Maybe TableColumnInsertedCallback
noTableColumnInsertedCallback :: Maybe TableColumnDeletedCallback
noTableColumnInsertedCallback = Maybe TableColumnDeletedCallback
forall a. Maybe a
Nothing
type C_TableColumnInsertedCallback =
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TableColumnInsertedCallback :: C_TableColumnInsertedCallback -> IO (FunPtr C_TableColumnInsertedCallback)
genClosure_TableColumnInserted :: TableColumnInsertedCallback -> IO Closure
genClosure_TableColumnInserted :: TableColumnDeletedCallback -> IO Closure
genClosure_TableColumnInserted cb :: TableColumnDeletedCallback
cb = do
let cb' :: C_TableColumnDeletedCallback
cb' = TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableColumnInsertedCallback TableColumnDeletedCallback
cb
C_TableColumnDeletedCallback
-> IO (FunPtr C_TableColumnDeletedCallback)
mk_TableColumnInsertedCallback C_TableColumnDeletedCallback
cb' IO (FunPtr C_TableColumnDeletedCallback)
-> (FunPtr C_TableColumnDeletedCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TableColumnDeletedCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_TableColumnInsertedCallback ::
TableColumnInsertedCallback ->
C_TableColumnInsertedCallback
wrap_TableColumnInsertedCallback :: TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableColumnInsertedCallback _cb :: TableColumnDeletedCallback
_cb _ arg1 :: Int32
arg1 arg2 :: Int32
arg2 _ = do
TableColumnDeletedCallback
_cb Int32
arg1 Int32
arg2
onTableColumnInserted :: (IsTable a, MonadIO m) => a -> TableColumnInsertedCallback -> m SignalHandlerId
onTableColumnInserted :: a -> TableColumnDeletedCallback -> m SignalHandlerId
onTableColumnInserted obj :: a
obj cb :: TableColumnDeletedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TableColumnDeletedCallback
cb' = TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableColumnInsertedCallback TableColumnDeletedCallback
cb
FunPtr C_TableColumnDeletedCallback
cb'' <- C_TableColumnDeletedCallback
-> IO (FunPtr C_TableColumnDeletedCallback)
mk_TableColumnInsertedCallback C_TableColumnDeletedCallback
cb'
a
-> String
-> FunPtr C_TableColumnDeletedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "column-inserted" FunPtr C_TableColumnDeletedCallback
cb'' SignalConnectMode
SignalConnectBefore
afterTableColumnInserted :: (IsTable a, MonadIO m) => a -> TableColumnInsertedCallback -> m SignalHandlerId
afterTableColumnInserted :: a -> TableColumnDeletedCallback -> m SignalHandlerId
afterTableColumnInserted obj :: a
obj cb :: TableColumnDeletedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TableColumnDeletedCallback
cb' = TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableColumnInsertedCallback TableColumnDeletedCallback
cb
FunPtr C_TableColumnDeletedCallback
cb'' <- C_TableColumnDeletedCallback
-> IO (FunPtr C_TableColumnDeletedCallback)
mk_TableColumnInsertedCallback C_TableColumnDeletedCallback
cb'
a
-> String
-> FunPtr C_TableColumnDeletedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "column-inserted" FunPtr C_TableColumnDeletedCallback
cb'' SignalConnectMode
SignalConnectAfter
type TableColumnReorderedCallback =
IO ()
noTableColumnReorderedCallback :: Maybe TableColumnReorderedCallback
noTableColumnReorderedCallback :: Maybe TableColumnReorderedCallback
noTableColumnReorderedCallback = Maybe TableColumnReorderedCallback
forall a. Maybe a
Nothing
type C_TableColumnReorderedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TableColumnReorderedCallback :: C_TableColumnReorderedCallback -> IO (FunPtr C_TableColumnReorderedCallback)
genClosure_TableColumnReordered :: TableColumnReorderedCallback -> IO Closure
genClosure_TableColumnReordered :: TableColumnReorderedCallback -> IO Closure
genClosure_TableColumnReordered cb :: TableColumnReorderedCallback
cb = do
let cb' :: C_TableColumnReorderedCallback
cb' = TableColumnReorderedCallback -> C_TableColumnReorderedCallback
wrap_TableColumnReorderedCallback TableColumnReorderedCallback
cb
C_TableColumnReorderedCallback
-> IO (FunPtr C_TableColumnReorderedCallback)
mk_TableColumnReorderedCallback C_TableColumnReorderedCallback
cb' IO (FunPtr C_TableColumnReorderedCallback)
-> (FunPtr C_TableColumnReorderedCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TableColumnReorderedCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_TableColumnReorderedCallback ::
TableColumnReorderedCallback ->
C_TableColumnReorderedCallback
wrap_TableColumnReorderedCallback :: TableColumnReorderedCallback -> C_TableColumnReorderedCallback
wrap_TableColumnReorderedCallback _cb :: TableColumnReorderedCallback
_cb _ _ = do
TableColumnReorderedCallback
_cb
onTableColumnReordered :: (IsTable a, MonadIO m) => a -> TableColumnReorderedCallback -> m SignalHandlerId
onTableColumnReordered :: a -> TableColumnReorderedCallback -> m SignalHandlerId
onTableColumnReordered obj :: a
obj cb :: TableColumnReorderedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TableColumnReorderedCallback
cb' = TableColumnReorderedCallback -> C_TableColumnReorderedCallback
wrap_TableColumnReorderedCallback TableColumnReorderedCallback
cb
FunPtr C_TableColumnReorderedCallback
cb'' <- C_TableColumnReorderedCallback
-> IO (FunPtr C_TableColumnReorderedCallback)
mk_TableColumnReorderedCallback C_TableColumnReorderedCallback
cb'
a
-> String
-> FunPtr C_TableColumnReorderedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "column-reordered" FunPtr C_TableColumnReorderedCallback
cb'' SignalConnectMode
SignalConnectBefore
afterTableColumnReordered :: (IsTable a, MonadIO m) => a -> TableColumnReorderedCallback -> m SignalHandlerId
afterTableColumnReordered :: a -> TableColumnReorderedCallback -> m SignalHandlerId
afterTableColumnReordered obj :: a
obj cb :: TableColumnReorderedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TableColumnReorderedCallback
cb' = TableColumnReorderedCallback -> C_TableColumnReorderedCallback
wrap_TableColumnReorderedCallback TableColumnReorderedCallback
cb
FunPtr C_TableColumnReorderedCallback
cb'' <- C_TableColumnReorderedCallback
-> IO (FunPtr C_TableColumnReorderedCallback)
mk_TableColumnReorderedCallback C_TableColumnReorderedCallback
cb'
a
-> String
-> FunPtr C_TableColumnReorderedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "column-reordered" FunPtr C_TableColumnReorderedCallback
cb'' SignalConnectMode
SignalConnectAfter
type TableModelChangedCallback =
IO ()
noTableModelChangedCallback :: Maybe TableModelChangedCallback
noTableModelChangedCallback :: Maybe TableColumnReorderedCallback
noTableModelChangedCallback = Maybe TableColumnReorderedCallback
forall a. Maybe a
Nothing
type C_TableModelChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TableModelChangedCallback :: C_TableModelChangedCallback -> IO (FunPtr C_TableModelChangedCallback)
genClosure_TableModelChanged :: TableModelChangedCallback -> IO Closure
genClosure_TableModelChanged :: TableColumnReorderedCallback -> IO Closure
genClosure_TableModelChanged cb :: TableColumnReorderedCallback
cb = do
let cb' :: C_TableColumnReorderedCallback
cb' = TableColumnReorderedCallback -> C_TableColumnReorderedCallback
wrap_TableModelChangedCallback TableColumnReorderedCallback
cb
C_TableColumnReorderedCallback
-> IO (FunPtr C_TableColumnReorderedCallback)
mk_TableModelChangedCallback C_TableColumnReorderedCallback
cb' IO (FunPtr C_TableColumnReorderedCallback)
-> (FunPtr C_TableColumnReorderedCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TableColumnReorderedCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_TableModelChangedCallback ::
TableModelChangedCallback ->
C_TableModelChangedCallback
wrap_TableModelChangedCallback :: TableColumnReorderedCallback -> C_TableColumnReorderedCallback
wrap_TableModelChangedCallback _cb :: TableColumnReorderedCallback
_cb _ _ = do
TableColumnReorderedCallback
_cb
onTableModelChanged :: (IsTable a, MonadIO m) => a -> TableModelChangedCallback -> m SignalHandlerId
onTableModelChanged :: a -> TableColumnReorderedCallback -> m SignalHandlerId
onTableModelChanged obj :: a
obj cb :: TableColumnReorderedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TableColumnReorderedCallback
cb' = TableColumnReorderedCallback -> C_TableColumnReorderedCallback
wrap_TableModelChangedCallback TableColumnReorderedCallback
cb
FunPtr C_TableColumnReorderedCallback
cb'' <- C_TableColumnReorderedCallback
-> IO (FunPtr C_TableColumnReorderedCallback)
mk_TableModelChangedCallback C_TableColumnReorderedCallback
cb'
a
-> String
-> FunPtr C_TableColumnReorderedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "model-changed" FunPtr C_TableColumnReorderedCallback
cb'' SignalConnectMode
SignalConnectBefore
afterTableModelChanged :: (IsTable a, MonadIO m) => a -> TableModelChangedCallback -> m SignalHandlerId
afterTableModelChanged :: a -> TableColumnReorderedCallback -> m SignalHandlerId
afterTableModelChanged obj :: a
obj cb :: TableColumnReorderedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TableColumnReorderedCallback
cb' = TableColumnReorderedCallback -> C_TableColumnReorderedCallback
wrap_TableModelChangedCallback TableColumnReorderedCallback
cb
FunPtr C_TableColumnReorderedCallback
cb'' <- C_TableColumnReorderedCallback
-> IO (FunPtr C_TableColumnReorderedCallback)
mk_TableModelChangedCallback C_TableColumnReorderedCallback
cb'
a
-> String
-> FunPtr C_TableColumnReorderedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "model-changed" FunPtr C_TableColumnReorderedCallback
cb'' SignalConnectMode
SignalConnectAfter
type TableRowDeletedCallback =
Int32
-> Int32
-> IO ()
noTableRowDeletedCallback :: Maybe TableRowDeletedCallback
noTableRowDeletedCallback :: Maybe TableColumnDeletedCallback
noTableRowDeletedCallback = Maybe TableColumnDeletedCallback
forall a. Maybe a
Nothing
type C_TableRowDeletedCallback =
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TableRowDeletedCallback :: C_TableRowDeletedCallback -> IO (FunPtr C_TableRowDeletedCallback)
genClosure_TableRowDeleted :: TableRowDeletedCallback -> IO Closure
genClosure_TableRowDeleted :: TableColumnDeletedCallback -> IO Closure
genClosure_TableRowDeleted cb :: TableColumnDeletedCallback
cb = do
let cb' :: C_TableColumnDeletedCallback
cb' = TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableRowDeletedCallback TableColumnDeletedCallback
cb
C_TableColumnDeletedCallback
-> IO (FunPtr C_TableColumnDeletedCallback)
mk_TableRowDeletedCallback C_TableColumnDeletedCallback
cb' IO (FunPtr C_TableColumnDeletedCallback)
-> (FunPtr C_TableColumnDeletedCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TableColumnDeletedCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_TableRowDeletedCallback ::
TableRowDeletedCallback ->
C_TableRowDeletedCallback
wrap_TableRowDeletedCallback :: TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableRowDeletedCallback _cb :: TableColumnDeletedCallback
_cb _ arg1 :: Int32
arg1 arg2 :: Int32
arg2 _ = do
TableColumnDeletedCallback
_cb Int32
arg1 Int32
arg2
onTableRowDeleted :: (IsTable a, MonadIO m) => a -> TableRowDeletedCallback -> m SignalHandlerId
onTableRowDeleted :: a -> TableColumnDeletedCallback -> m SignalHandlerId
onTableRowDeleted obj :: a
obj cb :: TableColumnDeletedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TableColumnDeletedCallback
cb' = TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableRowDeletedCallback TableColumnDeletedCallback
cb
FunPtr C_TableColumnDeletedCallback
cb'' <- C_TableColumnDeletedCallback
-> IO (FunPtr C_TableColumnDeletedCallback)
mk_TableRowDeletedCallback C_TableColumnDeletedCallback
cb'
a
-> String
-> FunPtr C_TableColumnDeletedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "row-deleted" FunPtr C_TableColumnDeletedCallback
cb'' SignalConnectMode
SignalConnectBefore
afterTableRowDeleted :: (IsTable a, MonadIO m) => a -> TableRowDeletedCallback -> m SignalHandlerId
afterTableRowDeleted :: a -> TableColumnDeletedCallback -> m SignalHandlerId
afterTableRowDeleted obj :: a
obj cb :: TableColumnDeletedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TableColumnDeletedCallback
cb' = TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableRowDeletedCallback TableColumnDeletedCallback
cb
FunPtr C_TableColumnDeletedCallback
cb'' <- C_TableColumnDeletedCallback
-> IO (FunPtr C_TableColumnDeletedCallback)
mk_TableRowDeletedCallback C_TableColumnDeletedCallback
cb'
a
-> String
-> FunPtr C_TableColumnDeletedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "row-deleted" FunPtr C_TableColumnDeletedCallback
cb'' SignalConnectMode
SignalConnectAfter
type TableRowInsertedCallback =
Int32
-> Int32
-> IO ()
noTableRowInsertedCallback :: Maybe TableRowInsertedCallback
noTableRowInsertedCallback :: Maybe TableColumnDeletedCallback
noTableRowInsertedCallback = Maybe TableColumnDeletedCallback
forall a. Maybe a
Nothing
type C_TableRowInsertedCallback =
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TableRowInsertedCallback :: C_TableRowInsertedCallback -> IO (FunPtr C_TableRowInsertedCallback)
genClosure_TableRowInserted :: TableRowInsertedCallback -> IO Closure
genClosure_TableRowInserted :: TableColumnDeletedCallback -> IO Closure
genClosure_TableRowInserted cb :: TableColumnDeletedCallback
cb = do
let cb' :: C_TableColumnDeletedCallback
cb' = TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableRowInsertedCallback TableColumnDeletedCallback
cb
C_TableColumnDeletedCallback
-> IO (FunPtr C_TableColumnDeletedCallback)
mk_TableRowInsertedCallback C_TableColumnDeletedCallback
cb' IO (FunPtr C_TableColumnDeletedCallback)
-> (FunPtr C_TableColumnDeletedCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TableColumnDeletedCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_TableRowInsertedCallback ::
TableRowInsertedCallback ->
C_TableRowInsertedCallback
wrap_TableRowInsertedCallback :: TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableRowInsertedCallback _cb :: TableColumnDeletedCallback
_cb _ arg1 :: Int32
arg1 arg2 :: Int32
arg2 _ = do
TableColumnDeletedCallback
_cb Int32
arg1 Int32
arg2
onTableRowInserted :: (IsTable a, MonadIO m) => a -> TableRowInsertedCallback -> m SignalHandlerId
onTableRowInserted :: a -> TableColumnDeletedCallback -> m SignalHandlerId
onTableRowInserted obj :: a
obj cb :: TableColumnDeletedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TableColumnDeletedCallback
cb' = TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableRowInsertedCallback TableColumnDeletedCallback
cb
FunPtr C_TableColumnDeletedCallback
cb'' <- C_TableColumnDeletedCallback
-> IO (FunPtr C_TableColumnDeletedCallback)
mk_TableRowInsertedCallback C_TableColumnDeletedCallback
cb'
a
-> String
-> FunPtr C_TableColumnDeletedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "row-inserted" FunPtr C_TableColumnDeletedCallback
cb'' SignalConnectMode
SignalConnectBefore
afterTableRowInserted :: (IsTable a, MonadIO m) => a -> TableRowInsertedCallback -> m SignalHandlerId
afterTableRowInserted :: a -> TableColumnDeletedCallback -> m SignalHandlerId
afterTableRowInserted obj :: a
obj cb :: TableColumnDeletedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TableColumnDeletedCallback
cb' = TableColumnDeletedCallback -> C_TableColumnDeletedCallback
wrap_TableRowInsertedCallback TableColumnDeletedCallback
cb
FunPtr C_TableColumnDeletedCallback
cb'' <- C_TableColumnDeletedCallback
-> IO (FunPtr C_TableColumnDeletedCallback)
mk_TableRowInsertedCallback C_TableColumnDeletedCallback
cb'
a
-> String
-> FunPtr C_TableColumnDeletedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "row-inserted" FunPtr C_TableColumnDeletedCallback
cb'' SignalConnectMode
SignalConnectAfter
type TableRowReorderedCallback =
IO ()
noTableRowReorderedCallback :: Maybe TableRowReorderedCallback
noTableRowReorderedCallback :: Maybe TableColumnReorderedCallback
noTableRowReorderedCallback = Maybe TableColumnReorderedCallback
forall a. Maybe a
Nothing
type C_TableRowReorderedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TableRowReorderedCallback :: C_TableRowReorderedCallback -> IO (FunPtr C_TableRowReorderedCallback)
genClosure_TableRowReordered :: TableRowReorderedCallback -> IO Closure
genClosure_TableRowReordered :: TableColumnReorderedCallback -> IO Closure
genClosure_TableRowReordered cb :: TableColumnReorderedCallback
cb = do
let cb' :: C_TableColumnReorderedCallback
cb' = TableColumnReorderedCallback -> C_TableColumnReorderedCallback
wrap_TableRowReorderedCallback TableColumnReorderedCallback
cb
C_TableColumnReorderedCallback
-> IO (FunPtr C_TableColumnReorderedCallback)
mk_TableRowReorderedCallback C_TableColumnReorderedCallback
cb' IO (FunPtr C_TableColumnReorderedCallback)
-> (FunPtr C_TableColumnReorderedCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TableColumnReorderedCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_TableRowReorderedCallback ::
TableRowReorderedCallback ->
C_TableRowReorderedCallback
wrap_TableRowReorderedCallback :: TableColumnReorderedCallback -> C_TableColumnReorderedCallback
wrap_TableRowReorderedCallback _cb :: TableColumnReorderedCallback
_cb _ _ = do
TableColumnReorderedCallback
_cb
onTableRowReordered :: (IsTable a, MonadIO m) => a -> TableRowReorderedCallback -> m SignalHandlerId
onTableRowReordered :: a -> TableColumnReorderedCallback -> m SignalHandlerId
onTableRowReordered obj :: a
obj cb :: TableColumnReorderedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TableColumnReorderedCallback
cb' = TableColumnReorderedCallback -> C_TableColumnReorderedCallback
wrap_TableRowReorderedCallback TableColumnReorderedCallback
cb
FunPtr C_TableColumnReorderedCallback
cb'' <- C_TableColumnReorderedCallback
-> IO (FunPtr C_TableColumnReorderedCallback)
mk_TableRowReorderedCallback C_TableColumnReorderedCallback
cb'
a
-> String
-> FunPtr C_TableColumnReorderedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "row-reordered" FunPtr C_TableColumnReorderedCallback
cb'' SignalConnectMode
SignalConnectBefore
afterTableRowReordered :: (IsTable a, MonadIO m) => a -> TableRowReorderedCallback -> m SignalHandlerId
afterTableRowReordered :: a -> TableColumnReorderedCallback -> m SignalHandlerId
afterTableRowReordered obj :: a
obj cb :: TableColumnReorderedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TableColumnReorderedCallback
cb' = TableColumnReorderedCallback -> C_TableColumnReorderedCallback
wrap_TableRowReorderedCallback TableColumnReorderedCallback
cb
FunPtr C_TableColumnReorderedCallback
cb'' <- C_TableColumnReorderedCallback
-> IO (FunPtr C_TableColumnReorderedCallback)
mk_TableRowReorderedCallback C_TableColumnReorderedCallback
cb'
a
-> String
-> FunPtr C_TableColumnReorderedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "row-reordered" FunPtr C_TableColumnReorderedCallback
cb'' SignalConnectMode
SignalConnectAfter
#if ENABLE_OVERLOADING
data TableColumnDeletedSignalInfo
instance SignalInfo TableColumnDeletedSignalInfo where
type HaskellCallbackType TableColumnDeletedSignalInfo = TableColumnDeletedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_TableColumnDeletedCallback cb
cb'' <- mk_TableColumnDeletedCallback cb'
connectSignalFunPtr obj "column-deleted" cb'' connectMode
data TableColumnInsertedSignalInfo
instance SignalInfo TableColumnInsertedSignalInfo where
type HaskellCallbackType TableColumnInsertedSignalInfo = TableColumnInsertedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_TableColumnInsertedCallback cb
cb'' <- mk_TableColumnInsertedCallback cb'
connectSignalFunPtr obj "column-inserted" cb'' connectMode
data TableColumnReorderedSignalInfo
instance SignalInfo TableColumnReorderedSignalInfo where
type HaskellCallbackType TableColumnReorderedSignalInfo = TableColumnReorderedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_TableColumnReorderedCallback cb
cb'' <- mk_TableColumnReorderedCallback cb'
connectSignalFunPtr obj "column-reordered" cb'' connectMode
data TableModelChangedSignalInfo
instance SignalInfo TableModelChangedSignalInfo where
type HaskellCallbackType TableModelChangedSignalInfo = TableModelChangedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_TableModelChangedCallback cb
cb'' <- mk_TableModelChangedCallback cb'
connectSignalFunPtr obj "model-changed" cb'' connectMode
data TableRowDeletedSignalInfo
instance SignalInfo TableRowDeletedSignalInfo where
type HaskellCallbackType TableRowDeletedSignalInfo = TableRowDeletedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_TableRowDeletedCallback cb
cb'' <- mk_TableRowDeletedCallback cb'
connectSignalFunPtr obj "row-deleted" cb'' connectMode
data TableRowInsertedSignalInfo
instance SignalInfo TableRowInsertedSignalInfo where
type HaskellCallbackType TableRowInsertedSignalInfo = TableRowInsertedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_TableRowInsertedCallback cb
cb'' <- mk_TableRowInsertedCallback cb'
connectSignalFunPtr obj "row-inserted" cb'' connectMode
data TableRowReorderedSignalInfo
instance SignalInfo TableRowReorderedSignalInfo where
type HaskellCallbackType TableRowReorderedSignalInfo = TableRowReorderedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_TableRowReorderedCallback cb
cb'' <- mk_TableRowReorderedCallback cb'
connectSignalFunPtr obj "row-reordered" cb'' connectMode
type instance O.SignalList Table = TableSignalList
type TableSignalList = ('[ '("columnDeleted", TableColumnDeletedSignalInfo), '("columnInserted", TableColumnInsertedSignalInfo), '("columnReordered", TableColumnReorderedSignalInfo), '("modelChanged", TableModelChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("rowDeleted", TableRowDeletedSignalInfo), '("rowInserted", TableRowInsertedSignalInfo), '("rowReordered", TableRowReorderedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "atk_table_get_type"
c_atk_table_get_type :: IO GType
instance GObject Table where
gobjectType :: Table -> IO GType
gobjectType _ = IO GType
c_atk_table_get_type
class GObject o => IsTable o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError Table a) =>
IsTable a
#endif
instance IsTable Table
instance GObject.Object.IsObject Table
toTable :: (MonadIO m, IsTable o) => o -> m Table
toTable :: o -> m Table
toTable = IO Table -> m Table
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Table -> m Table) -> (o -> IO Table) -> o -> m Table
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Table -> Table) -> o -> IO Table
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Table -> Table
Table
#if ENABLE_OVERLOADING
instance O.HasAttributeList Table
type instance O.AttributeList Table = TableAttributeList
type TableAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type family ResolveTableMethod (t :: Symbol) (o :: *) :: * where
ResolveTableMethod "addColumnSelection" o = TableAddColumnSelectionMethodInfo
ResolveTableMethod "addRowSelection" o = TableAddRowSelectionMethodInfo
ResolveTableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTableMethod "isColumnSelected" o = TableIsColumnSelectedMethodInfo
ResolveTableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTableMethod "isRowSelected" o = TableIsRowSelectedMethodInfo
ResolveTableMethod "isSelected" o = TableIsSelectedMethodInfo
ResolveTableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTableMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTableMethod "refAt" o = TableRefAtMethodInfo
ResolveTableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTableMethod "removeColumnSelection" o = TableRemoveColumnSelectionMethodInfo
ResolveTableMethod "removeRowSelection" o = TableRemoveRowSelectionMethodInfo
ResolveTableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTableMethod "getCaption" o = TableGetCaptionMethodInfo
ResolveTableMethod "getColumnAtIndex" o = TableGetColumnAtIndexMethodInfo
ResolveTableMethod "getColumnDescription" o = TableGetColumnDescriptionMethodInfo
ResolveTableMethod "getColumnExtentAt" o = TableGetColumnExtentAtMethodInfo
ResolveTableMethod "getColumnHeader" o = TableGetColumnHeaderMethodInfo
ResolveTableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTableMethod "getIndexAt" o = TableGetIndexAtMethodInfo
ResolveTableMethod "getNColumns" o = TableGetNColumnsMethodInfo
ResolveTableMethod "getNRows" o = TableGetNRowsMethodInfo
ResolveTableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTableMethod "getRowAtIndex" o = TableGetRowAtIndexMethodInfo
ResolveTableMethod "getRowDescription" o = TableGetRowDescriptionMethodInfo
ResolveTableMethod "getRowExtentAt" o = TableGetRowExtentAtMethodInfo
ResolveTableMethod "getRowHeader" o = TableGetRowHeaderMethodInfo
ResolveTableMethod "getSelectedColumns" o = TableGetSelectedColumnsMethodInfo
ResolveTableMethod "getSelectedRows" o = TableGetSelectedRowsMethodInfo
ResolveTableMethod "getSummary" o = TableGetSummaryMethodInfo
ResolveTableMethod "setCaption" o = TableSetCaptionMethodInfo
ResolveTableMethod "setColumnDescription" o = TableSetColumnDescriptionMethodInfo
ResolveTableMethod "setColumnHeader" o = TableSetColumnHeaderMethodInfo
ResolveTableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTableMethod "setRowDescription" o = TableSetRowDescriptionMethodInfo
ResolveTableMethod "setRowHeader" o = TableSetRowHeaderMethodInfo
ResolveTableMethod "setSummary" o = TableSetSummaryMethodInfo
ResolveTableMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTableMethod t Table, O.MethodInfo info Table p) => O.IsLabelProxy t (Table -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveTableMethod t Table, O.MethodInfo info Table p) => O.IsLabel t (Table -> 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_add_column_selection" atk_table_add_column_selection ::
Ptr Table ->
Int32 ->
IO CInt
tableAddColumnSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> m Bool
tableAddColumnSelection :: a -> Int32 -> m Bool
tableAddColumnSelection table :: a
table column :: Int32
column = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
CInt
result <- Ptr Table -> Int32 -> IO CInt
atk_table_add_column_selection Ptr Table
table' Int32
column
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if ENABLE_OVERLOADING
data TableAddColumnSelectionMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m, IsTable a) => O.MethodInfo TableAddColumnSelectionMethodInfo a signature where
overloadedMethod _ = tableAddColumnSelection
#endif
foreign import ccall "atk_table_add_row_selection" atk_table_add_row_selection ::
Ptr Table ->
Int32 ->
IO CInt
tableAddRowSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> m Bool
tableAddRowSelection :: a -> Int32 -> m Bool
tableAddRowSelection table :: a
table row :: Int32
row = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
CInt
result <- Ptr Table -> Int32 -> IO CInt
atk_table_add_row_selection Ptr Table
table' Int32
row
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if ENABLE_OVERLOADING
data TableAddRowSelectionMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m, IsTable a) => O.MethodInfo TableAddRowSelectionMethodInfo a signature where
overloadedMethod _ = tableAddRowSelection
#endif
foreign import ccall "atk_table_get_caption" atk_table_get_caption ::
Ptr Table ->
IO (Ptr Atk.Object.Object)
tableGetCaption ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> m (Maybe Atk.Object.Object)
tableGetCaption :: a -> m (Maybe Object)
tableGetCaption table :: a
table = IO (Maybe Object) -> m (Maybe Object)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Ptr Object
result <- Ptr Table -> IO (Ptr Object)
atk_table_get_caption Ptr Table
table'
Maybe Object
maybeResult <- Ptr Object -> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Object
result ((Ptr Object -> IO Object) -> IO (Maybe Object))
-> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr Object
result' -> do
Object
result'' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
Atk.Object.Object) Ptr Object
result'
Object -> IO Object
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result''
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Maybe Object -> IO (Maybe Object)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Object
maybeResult
#if ENABLE_OVERLOADING
data TableGetCaptionMethodInfo
instance (signature ~ (m (Maybe Atk.Object.Object)), MonadIO m, IsTable a) => O.MethodInfo TableGetCaptionMethodInfo a signature where
overloadedMethod _ = tableGetCaption
#endif
foreign import ccall "atk_table_get_column_at_index" atk_table_get_column_at_index ::
Ptr Table ->
Int32 ->
IO Int32
{-# DEPRECATED tableGetColumnAtIndex ["Since 2.12."] #-}
tableGetColumnAtIndex ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> m Int32
tableGetColumnAtIndex :: a -> Int32 -> m Int32
tableGetColumnAtIndex table :: a
table index_ :: Int32
index_ = 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 Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Int32
result <- Ptr Table -> Int32 -> IO Int32
atk_table_get_column_at_index Ptr Table
table' Int32
index_
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data TableGetColumnAtIndexMethodInfo
instance (signature ~ (Int32 -> m Int32), MonadIO m, IsTable a) => O.MethodInfo TableGetColumnAtIndexMethodInfo a signature where
overloadedMethod _ = tableGetColumnAtIndex
#endif
foreign import ccall "atk_table_get_column_description" atk_table_get_column_description ::
Ptr Table ->
Int32 ->
IO CString
tableGetColumnDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> m T.Text
tableGetColumnDescription :: a -> Int32 -> m Text
tableGetColumnDescription table :: a
table column :: Int32
column = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
CString
result <- Ptr Table -> Int32 -> IO CString
atk_table_get_column_description Ptr Table
table' Int32
column
Text -> CString -> TableColumnReorderedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> TableColumnReorderedCallback
checkUnexpectedReturnNULL "tableGetColumnDescription" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data TableGetColumnDescriptionMethodInfo
instance (signature ~ (Int32 -> m T.Text), MonadIO m, IsTable a) => O.MethodInfo TableGetColumnDescriptionMethodInfo a signature where
overloadedMethod _ = tableGetColumnDescription
#endif
foreign import ccall "atk_table_get_column_extent_at" atk_table_get_column_extent_at ::
Ptr Table ->
Int32 ->
Int32 ->
IO Int32
tableGetColumnExtentAt ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> Int32
-> m Int32
tableGetColumnExtentAt :: a -> Int32 -> Int32 -> m Int32
tableGetColumnExtentAt table :: a
table row :: Int32
row column :: Int32
column = 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 Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Int32
result <- Ptr Table -> Int32 -> Int32 -> IO Int32
atk_table_get_column_extent_at Ptr Table
table' Int32
row Int32
column
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data TableGetColumnExtentAtMethodInfo
instance (signature ~ (Int32 -> Int32 -> m Int32), MonadIO m, IsTable a) => O.MethodInfo TableGetColumnExtentAtMethodInfo a signature where
overloadedMethod _ = tableGetColumnExtentAt
#endif
foreign import ccall "atk_table_get_column_header" atk_table_get_column_header ::
Ptr Table ->
Int32 ->
IO (Ptr Atk.Object.Object)
tableGetColumnHeader ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> m (Maybe Atk.Object.Object)
tableGetColumnHeader :: a -> Int32 -> m (Maybe Object)
tableGetColumnHeader table :: a
table column :: Int32
column = IO (Maybe Object) -> m (Maybe Object)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Ptr Object
result <- Ptr Table -> Int32 -> IO (Ptr Object)
atk_table_get_column_header Ptr Table
table' Int32
column
Maybe Object
maybeResult <- Ptr Object -> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Object
result ((Ptr Object -> IO Object) -> IO (Maybe Object))
-> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr Object
result' -> do
Object
result'' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
Atk.Object.Object) Ptr Object
result'
Object -> IO Object
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result''
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Maybe Object -> IO (Maybe Object)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Object
maybeResult
#if ENABLE_OVERLOADING
data TableGetColumnHeaderMethodInfo
instance (signature ~ (Int32 -> m (Maybe Atk.Object.Object)), MonadIO m, IsTable a) => O.MethodInfo TableGetColumnHeaderMethodInfo a signature where
overloadedMethod _ = tableGetColumnHeader
#endif
foreign import ccall "atk_table_get_index_at" atk_table_get_index_at ::
Ptr Table ->
Int32 ->
Int32 ->
IO Int32
{-# DEPRECATED tableGetIndexAt ["Since 2.12. Use 'GI.Atk.Interfaces.Table.tableRefAt' in order to get the","accessible that represents the cell at (/@row@/, /@column@/)"] #-}
tableGetIndexAt ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> Int32
-> m Int32
tableGetIndexAt :: a -> Int32 -> Int32 -> m Int32
tableGetIndexAt table :: a
table row :: Int32
row column :: Int32
column = 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 Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Int32
result <- Ptr Table -> Int32 -> Int32 -> IO Int32
atk_table_get_index_at Ptr Table
table' Int32
row Int32
column
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data TableGetIndexAtMethodInfo
instance (signature ~ (Int32 -> Int32 -> m Int32), MonadIO m, IsTable a) => O.MethodInfo TableGetIndexAtMethodInfo a signature where
overloadedMethod _ = tableGetIndexAt
#endif
foreign import ccall "atk_table_get_n_columns" atk_table_get_n_columns ::
Ptr Table ->
IO Int32
tableGetNColumns ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> m Int32
tableGetNColumns :: a -> m Int32
tableGetNColumns table :: a
table = 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 Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Int32
result <- Ptr Table -> IO Int32
atk_table_get_n_columns Ptr Table
table'
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data TableGetNColumnsMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTable a) => O.MethodInfo TableGetNColumnsMethodInfo a signature where
overloadedMethod _ = tableGetNColumns
#endif
foreign import ccall "atk_table_get_n_rows" atk_table_get_n_rows ::
Ptr Table ->
IO Int32
tableGetNRows ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> m Int32
tableGetNRows :: a -> m Int32
tableGetNRows table :: a
table = 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 Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Int32
result <- Ptr Table -> IO Int32
atk_table_get_n_rows Ptr Table
table'
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data TableGetNRowsMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTable a) => O.MethodInfo TableGetNRowsMethodInfo a signature where
overloadedMethod _ = tableGetNRows
#endif
foreign import ccall "atk_table_get_row_at_index" atk_table_get_row_at_index ::
Ptr Table ->
Int32 ->
IO Int32
{-# DEPRECATED tableGetRowAtIndex ["since 2.12."] #-}
tableGetRowAtIndex ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> m Int32
tableGetRowAtIndex :: a -> Int32 -> m Int32
tableGetRowAtIndex table :: a
table index_ :: Int32
index_ = 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 Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Int32
result <- Ptr Table -> Int32 -> IO Int32
atk_table_get_row_at_index Ptr Table
table' Int32
index_
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data TableGetRowAtIndexMethodInfo
instance (signature ~ (Int32 -> m Int32), MonadIO m, IsTable a) => O.MethodInfo TableGetRowAtIndexMethodInfo a signature where
overloadedMethod _ = tableGetRowAtIndex
#endif
foreign import ccall "atk_table_get_row_description" atk_table_get_row_description ::
Ptr Table ->
Int32 ->
IO CString
tableGetRowDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> m (Maybe T.Text)
tableGetRowDescription :: a -> Int32 -> m (Maybe Text)
tableGetRowDescription table :: a
table row :: Int32
row = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
CString
result <- Ptr Table -> Int32 -> IO CString
atk_table_get_row_description Ptr Table
table' Int32
row
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if ENABLE_OVERLOADING
data TableGetRowDescriptionMethodInfo
instance (signature ~ (Int32 -> m (Maybe T.Text)), MonadIO m, IsTable a) => O.MethodInfo TableGetRowDescriptionMethodInfo a signature where
overloadedMethod _ = tableGetRowDescription
#endif
foreign import ccall "atk_table_get_row_extent_at" atk_table_get_row_extent_at ::
Ptr Table ->
Int32 ->
Int32 ->
IO Int32
tableGetRowExtentAt ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> Int32
-> m Int32
tableGetRowExtentAt :: a -> Int32 -> Int32 -> m Int32
tableGetRowExtentAt table :: a
table row :: Int32
row column :: Int32
column = 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 Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Int32
result <- Ptr Table -> Int32 -> Int32 -> IO Int32
atk_table_get_row_extent_at Ptr Table
table' Int32
row Int32
column
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data TableGetRowExtentAtMethodInfo
instance (signature ~ (Int32 -> Int32 -> m Int32), MonadIO m, IsTable a) => O.MethodInfo TableGetRowExtentAtMethodInfo a signature where
overloadedMethod _ = tableGetRowExtentAt
#endif
foreign import ccall "atk_table_get_row_header" ::
Ptr Table ->
Int32 ->
IO (Ptr Atk.Object.Object)
tableGetRowHeader ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> m (Maybe Atk.Object.Object)
table :: a
table row :: Int32
row = IO (Maybe Object) -> m (Maybe Object)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Ptr Object
result <- Ptr Table -> Int32 -> IO (Ptr Object)
atk_table_get_row_header Ptr Table
table' Int32
row
Maybe Object
maybeResult <- Ptr Object -> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Object
result ((Ptr Object -> IO Object) -> IO (Maybe Object))
-> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr Object
result' -> do
Object
result'' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
Atk.Object.Object) Ptr Object
result'
Object -> IO Object
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result''
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Maybe Object -> IO (Maybe Object)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Object
maybeResult
#if ENABLE_OVERLOADING
data TableGetRowHeaderMethodInfo
instance (signature ~ (Int32 -> m (Maybe Atk.Object.Object)), MonadIO m, IsTable a) => O.MethodInfo TableGetRowHeaderMethodInfo a signature where
overloadedMethod _ = tableGetRowHeader
#endif
foreign import ccall "atk_table_get_selected_columns" atk_table_get_selected_columns ::
Ptr Table ->
Int32 ->
IO Int32
tableGetSelectedColumns ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> m Int32
tableGetSelectedColumns :: a -> Int32 -> m Int32
tableGetSelectedColumns table :: a
table selected :: Int32
selected = 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 Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Int32
result <- Ptr Table -> Int32 -> IO Int32
atk_table_get_selected_columns Ptr Table
table' Int32
selected
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data TableGetSelectedColumnsMethodInfo
instance (signature ~ (Int32 -> m Int32), MonadIO m, IsTable a) => O.MethodInfo TableGetSelectedColumnsMethodInfo a signature where
overloadedMethod _ = tableGetSelectedColumns
#endif
foreign import ccall "atk_table_get_selected_rows" atk_table_get_selected_rows ::
Ptr Table ->
Int32 ->
IO Int32
tableGetSelectedRows ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> m Int32
tableGetSelectedRows :: a -> Int32 -> m Int32
tableGetSelectedRows table :: a
table selected :: Int32
selected = 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 Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Int32
result <- Ptr Table -> Int32 -> IO Int32
atk_table_get_selected_rows Ptr Table
table' Int32
selected
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data TableGetSelectedRowsMethodInfo
instance (signature ~ (Int32 -> m Int32), MonadIO m, IsTable a) => O.MethodInfo TableGetSelectedRowsMethodInfo a signature where
overloadedMethod _ = tableGetSelectedRows
#endif
foreign import ccall "atk_table_get_summary" atk_table_get_summary ::
Ptr Table ->
IO (Ptr Atk.Object.Object)
tableGetSummary ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> m Atk.Object.Object
tableGetSummary :: a -> m Object
tableGetSummary table :: a
table = 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 Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Ptr Object
result <- Ptr Table -> IO (Ptr Object)
atk_table_get_summary Ptr Table
table'
Text -> Ptr Object -> TableColumnReorderedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> TableColumnReorderedCallback
checkUnexpectedReturnNULL "tableGetSummary" 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 -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Object -> IO Object
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result'
#if ENABLE_OVERLOADING
data TableGetSummaryMethodInfo
instance (signature ~ (m Atk.Object.Object), MonadIO m, IsTable a) => O.MethodInfo TableGetSummaryMethodInfo a signature where
overloadedMethod _ = tableGetSummary
#endif
foreign import ccall "atk_table_is_column_selected" atk_table_is_column_selected ::
Ptr Table ->
Int32 ->
IO CInt
tableIsColumnSelected ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> m Bool
tableIsColumnSelected :: a -> Int32 -> m Bool
tableIsColumnSelected table :: a
table column :: Int32
column = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
CInt
result <- Ptr Table -> Int32 -> IO CInt
atk_table_is_column_selected Ptr Table
table' Int32
column
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if ENABLE_OVERLOADING
data TableIsColumnSelectedMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m, IsTable a) => O.MethodInfo TableIsColumnSelectedMethodInfo a signature where
overloadedMethod _ = tableIsColumnSelected
#endif
foreign import ccall "atk_table_is_row_selected" atk_table_is_row_selected ::
Ptr Table ->
Int32 ->
IO CInt
tableIsRowSelected ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> m Bool
tableIsRowSelected :: a -> Int32 -> m Bool
tableIsRowSelected table :: a
table row :: Int32
row = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
CInt
result <- Ptr Table -> Int32 -> IO CInt
atk_table_is_row_selected Ptr Table
table' Int32
row
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if ENABLE_OVERLOADING
data TableIsRowSelectedMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m, IsTable a) => O.MethodInfo TableIsRowSelectedMethodInfo a signature where
overloadedMethod _ = tableIsRowSelected
#endif
foreign import ccall "atk_table_is_selected" atk_table_is_selected ::
Ptr Table ->
Int32 ->
Int32 ->
IO CInt
tableIsSelected ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> Int32
-> m Bool
tableIsSelected :: a -> Int32 -> Int32 -> m Bool
tableIsSelected table :: a
table row :: Int32
row column :: Int32
column = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
CInt
result <- Ptr Table -> Int32 -> Int32 -> IO CInt
atk_table_is_selected Ptr Table
table' Int32
row Int32
column
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if ENABLE_OVERLOADING
data TableIsSelectedMethodInfo
instance (signature ~ (Int32 -> Int32 -> m Bool), MonadIO m, IsTable a) => O.MethodInfo TableIsSelectedMethodInfo a signature where
overloadedMethod _ = tableIsSelected
#endif
foreign import ccall "atk_table_ref_at" atk_table_ref_at ::
Ptr Table ->
Int32 ->
Int32 ->
IO (Ptr Atk.Object.Object)
tableRefAt ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> Int32
-> m Atk.Object.Object
tableRefAt :: a -> Int32 -> Int32 -> m Object
tableRefAt table :: a
table row :: Int32
row column :: Int32
column = 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 Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Ptr Object
result <- Ptr Table -> Int32 -> Int32 -> IO (Ptr Object)
atk_table_ref_at Ptr Table
table' Int32
row Int32
column
Text -> Ptr Object -> TableColumnReorderedCallback
forall a.
HasCallStack =>
Text -> Ptr a -> TableColumnReorderedCallback
checkUnexpectedReturnNULL "tableRefAt" 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 -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Object -> IO Object
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result'
#if ENABLE_OVERLOADING
data TableRefAtMethodInfo
instance (signature ~ (Int32 -> Int32 -> m Atk.Object.Object), MonadIO m, IsTable a) => O.MethodInfo TableRefAtMethodInfo a signature where
overloadedMethod _ = tableRefAt
#endif
foreign import ccall "atk_table_remove_column_selection" atk_table_remove_column_selection ::
Ptr Table ->
Int32 ->
IO CInt
tableRemoveColumnSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> m Bool
tableRemoveColumnSelection :: a -> Int32 -> m Bool
tableRemoveColumnSelection table :: a
table column :: Int32
column = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
CInt
result <- Ptr Table -> Int32 -> IO CInt
atk_table_remove_column_selection Ptr Table
table' Int32
column
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if ENABLE_OVERLOADING
data TableRemoveColumnSelectionMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m, IsTable a) => O.MethodInfo TableRemoveColumnSelectionMethodInfo a signature where
overloadedMethod _ = tableRemoveColumnSelection
#endif
foreign import ccall "atk_table_remove_row_selection" atk_table_remove_row_selection ::
Ptr Table ->
Int32 ->
IO CInt
tableRemoveRowSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> m Bool
tableRemoveRowSelection :: a -> Int32 -> m Bool
tableRemoveRowSelection table :: a
table row :: Int32
row = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
CInt
result <- Ptr Table -> Int32 -> IO CInt
atk_table_remove_row_selection Ptr Table
table' Int32
row
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if ENABLE_OVERLOADING
data TableRemoveRowSelectionMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m, IsTable a) => O.MethodInfo TableRemoveRowSelectionMethodInfo a signature where
overloadedMethod _ = tableRemoveRowSelection
#endif
foreign import ccall "atk_table_set_caption" atk_table_set_caption ::
Ptr Table ->
Ptr Atk.Object.Object ->
IO ()
tableSetCaption ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a, Atk.Object.IsObject b) =>
a
-> b
-> m ()
tableSetCaption :: a -> b -> m ()
tableSetCaption table :: a
table caption :: b
caption = TableColumnReorderedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TableColumnReorderedCallback -> m ())
-> TableColumnReorderedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Ptr Object
caption' <- b -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
caption
Ptr Table -> Ptr Object -> TableColumnReorderedCallback
atk_table_set_caption Ptr Table
table' Ptr Object
caption'
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
b -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr b
caption
() -> TableColumnReorderedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data TableSetCaptionMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTable a, Atk.Object.IsObject b) => O.MethodInfo TableSetCaptionMethodInfo a signature where
overloadedMethod _ = tableSetCaption
#endif
foreign import ccall "atk_table_set_column_description" atk_table_set_column_description ::
Ptr Table ->
Int32 ->
CString ->
IO ()
tableSetColumnDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> T.Text
-> m ()
tableSetColumnDescription :: a -> Int32 -> Text -> m ()
tableSetColumnDescription table :: a
table column :: Int32
column description :: Text
description = TableColumnReorderedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TableColumnReorderedCallback -> m ())
-> TableColumnReorderedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
CString
description' <- Text -> IO CString
textToCString Text
description
Ptr Table -> Int32 -> CString -> TableColumnReorderedCallback
atk_table_set_column_description Ptr Table
table' Int32
column CString
description'
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
CString -> TableColumnReorderedCallback
forall a. Ptr a -> TableColumnReorderedCallback
freeMem CString
description'
() -> TableColumnReorderedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data TableSetColumnDescriptionMethodInfo
instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m, IsTable a) => O.MethodInfo TableSetColumnDescriptionMethodInfo a signature where
overloadedMethod _ = tableSetColumnDescription
#endif
foreign import ccall "atk_table_set_column_header" atk_table_set_column_header ::
Ptr Table ->
Int32 ->
Ptr Atk.Object.Object ->
IO ()
tableSetColumnHeader ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a, Atk.Object.IsObject b) =>
a
-> Int32
-> b
-> m ()
tableSetColumnHeader :: a -> Int32 -> b -> m ()
tableSetColumnHeader table :: a
table column :: Int32
column header :: b
header = TableColumnReorderedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TableColumnReorderedCallback -> m ())
-> TableColumnReorderedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Ptr Object
header' <- b -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
header
Ptr Table -> Int32 -> Ptr Object -> TableColumnReorderedCallback
atk_table_set_column_header Ptr Table
table' Int32
column Ptr Object
header'
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
b -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr b
header
() -> TableColumnReorderedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data TableSetColumnHeaderMethodInfo
instance (signature ~ (Int32 -> b -> m ()), MonadIO m, IsTable a, Atk.Object.IsObject b) => O.MethodInfo TableSetColumnHeaderMethodInfo a signature where
overloadedMethod _ = tableSetColumnHeader
#endif
foreign import ccall "atk_table_set_row_description" atk_table_set_row_description ::
Ptr Table ->
Int32 ->
CString ->
IO ()
tableSetRowDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a) =>
a
-> Int32
-> T.Text
-> m ()
tableSetRowDescription :: a -> Int32 -> Text -> m ()
tableSetRowDescription table :: a
table row :: Int32
row description :: Text
description = TableColumnReorderedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TableColumnReorderedCallback -> m ())
-> TableColumnReorderedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
CString
description' <- Text -> IO CString
textToCString Text
description
Ptr Table -> Int32 -> CString -> TableColumnReorderedCallback
atk_table_set_row_description Ptr Table
table' Int32
row CString
description'
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
CString -> TableColumnReorderedCallback
forall a. Ptr a -> TableColumnReorderedCallback
freeMem CString
description'
() -> TableColumnReorderedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data TableSetRowDescriptionMethodInfo
instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m, IsTable a) => O.MethodInfo TableSetRowDescriptionMethodInfo a signature where
overloadedMethod _ = tableSetRowDescription
#endif
foreign import ccall "atk_table_set_row_header" ::
Ptr Table ->
Int32 ->
Ptr Atk.Object.Object ->
IO ()
tableSetRowHeader ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a, Atk.Object.IsObject b) =>
a
-> Int32
-> b
-> m ()
table :: a
table row :: Int32
row header :: b
header = TableColumnReorderedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TableColumnReorderedCallback -> m ())
-> TableColumnReorderedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Ptr Object
header' <- b -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
header
Ptr Table -> Int32 -> Ptr Object -> TableColumnReorderedCallback
atk_table_set_row_header Ptr Table
table' Int32
row Ptr Object
header'
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
b -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr b
header
() -> TableColumnReorderedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data TableSetRowHeaderMethodInfo
instance (signature ~ (Int32 -> b -> m ()), MonadIO m, IsTable a, Atk.Object.IsObject b) => O.MethodInfo TableSetRowHeaderMethodInfo a signature where
overloadedMethod _ = tableSetRowHeader
#endif
foreign import ccall "atk_table_set_summary" atk_table_set_summary ::
Ptr Table ->
Ptr Atk.Object.Object ->
IO ()
tableSetSummary ::
(B.CallStack.HasCallStack, MonadIO m, IsTable a, Atk.Object.IsObject b) =>
a
-> b
-> m ()
tableSetSummary :: a -> b -> m ()
tableSetSummary table :: a
table accessible :: b
accessible = TableColumnReorderedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TableColumnReorderedCallback -> m ())
-> TableColumnReorderedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Table
table' <- a -> IO (Ptr Table)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
table
Ptr Object
accessible' <- b -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
accessible
Ptr Table -> Ptr Object -> TableColumnReorderedCallback
atk_table_set_summary Ptr Table
table' Ptr Object
accessible'
a -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr a
table
b -> TableColumnReorderedCallback
forall a. ManagedPtrNewtype a => a -> TableColumnReorderedCallback
touchManagedPtr b
accessible
() -> TableColumnReorderedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data TableSetSummaryMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTable a, Atk.Object.IsObject b) => O.MethodInfo TableSetSummaryMethodInfo a signature where
overloadedMethod _ = tableSetSummary
#endif