#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Gtk.Interfaces.CellAccessibleParent
(
CellAccessibleParent(..) ,
noCellAccessibleParent ,
IsCellAccessibleParent ,
#if ENABLE_OVERLOADING
CellAccessibleParentActivateMethodInfo ,
#endif
cellAccessibleParentActivate ,
#if ENABLE_OVERLOADING
CellAccessibleParentEditMethodInfo ,
#endif
cellAccessibleParentEdit ,
#if ENABLE_OVERLOADING
CellAccessibleParentExpandCollapseMethodInfo,
#endif
cellAccessibleParentExpandCollapse ,
#if ENABLE_OVERLOADING
CellAccessibleParentGetCellAreaMethodInfo,
#endif
cellAccessibleParentGetCellArea ,
#if ENABLE_OVERLOADING
CellAccessibleParentGetCellExtentsMethodInfo,
#endif
cellAccessibleParentGetCellExtents ,
#if ENABLE_OVERLOADING
CellAccessibleParentGetCellPositionMethodInfo,
#endif
cellAccessibleParentGetCellPosition ,
#if ENABLE_OVERLOADING
CellAccessibleParentGetChildIndexMethodInfo,
#endif
cellAccessibleParentGetChildIndex ,
#if ENABLE_OVERLOADING
CellAccessibleParentGetColumnHeaderCellsMethodInfo,
#endif
cellAccessibleParentGetColumnHeaderCells,
#if ENABLE_OVERLOADING
CellAccessibleParentGetRendererStateMethodInfo,
#endif
cellAccessibleParentGetRendererState ,
#if ENABLE_OVERLOADING
CellAccessibleParentGetRowHeaderCellsMethodInfo,
#endif
cellAccessibleParentGetRowHeaderCells ,
#if ENABLE_OVERLOADING
CellAccessibleParentGrabFocusMethodInfo ,
#endif
cellAccessibleParentGrabFocus ,
#if ENABLE_OVERLOADING
CellAccessibleParentUpdateRelationsetMethodInfo,
#endif
cellAccessibleParentUpdateRelationset ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Enums as Atk.Enums
import qualified GI.Atk.Objects.Object as Atk.Object
import qualified GI.Atk.Objects.RelationSet as Atk.RelationSet
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellAccessible as Gtk.CellAccessible
newtype CellAccessibleParent = CellAccessibleParent (ManagedPtr CellAccessibleParent)
noCellAccessibleParent :: Maybe CellAccessibleParent
noCellAccessibleParent = Nothing
#if ENABLE_OVERLOADING
type instance O.SignalList CellAccessibleParent = CellAccessibleParentSignalList
type CellAccessibleParentSignalList = ('[ ] :: [(Symbol, *)])
#endif
class (ManagedPtrNewtype o, O.IsDescendantOf CellAccessibleParent o) => IsCellAccessibleParent o
instance (ManagedPtrNewtype o, O.IsDescendantOf CellAccessibleParent o) => IsCellAccessibleParent o
instance WrappedPtr CellAccessibleParent where
wrappedPtrCalloc = return nullPtr
wrappedPtrCopy = return
wrappedPtrFree = Nothing
#if ENABLE_OVERLOADING
type family ResolveCellAccessibleParentMethod (t :: Symbol) (o :: *) :: * where
ResolveCellAccessibleParentMethod "activate" o = CellAccessibleParentActivateMethodInfo
ResolveCellAccessibleParentMethod "edit" o = CellAccessibleParentEditMethodInfo
ResolveCellAccessibleParentMethod "expandCollapse" o = CellAccessibleParentExpandCollapseMethodInfo
ResolveCellAccessibleParentMethod "grabFocus" o = CellAccessibleParentGrabFocusMethodInfo
ResolveCellAccessibleParentMethod "updateRelationset" o = CellAccessibleParentUpdateRelationsetMethodInfo
ResolveCellAccessibleParentMethod "getCellArea" o = CellAccessibleParentGetCellAreaMethodInfo
ResolveCellAccessibleParentMethod "getCellExtents" o = CellAccessibleParentGetCellExtentsMethodInfo
ResolveCellAccessibleParentMethod "getCellPosition" o = CellAccessibleParentGetCellPositionMethodInfo
ResolveCellAccessibleParentMethod "getChildIndex" o = CellAccessibleParentGetChildIndexMethodInfo
ResolveCellAccessibleParentMethod "getColumnHeaderCells" o = CellAccessibleParentGetColumnHeaderCellsMethodInfo
ResolveCellAccessibleParentMethod "getRendererState" o = CellAccessibleParentGetRendererStateMethodInfo
ResolveCellAccessibleParentMethod "getRowHeaderCells" o = CellAccessibleParentGetRowHeaderCellsMethodInfo
ResolveCellAccessibleParentMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCellAccessibleParentMethod t CellAccessibleParent, O.MethodInfo info CellAccessibleParent p) => OL.IsLabel t (CellAccessibleParent -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
foreign import ccall "gtk_cell_accessible_parent_activate" gtk_cell_accessible_parent_activate ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO ()
cellAccessibleParentActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m ()
cellAccessibleParentActivate parent cell = liftIO $ do
parent' <- unsafeManagedPtrCastPtr parent
cell' <- unsafeManagedPtrCastPtr cell
gtk_cell_accessible_parent_activate parent' cell'
touchManagedPtr parent
touchManagedPtr cell
return ()
#if ENABLE_OVERLOADING
data CellAccessibleParentActivateMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentActivateMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentActivate
#endif
foreign import ccall "gtk_cell_accessible_parent_edit" gtk_cell_accessible_parent_edit ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO ()
cellAccessibleParentEdit ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m ()
cellAccessibleParentEdit parent cell = liftIO $ do
parent' <- unsafeManagedPtrCastPtr parent
cell' <- unsafeManagedPtrCastPtr cell
gtk_cell_accessible_parent_edit parent' cell'
touchManagedPtr parent
touchManagedPtr cell
return ()
#if ENABLE_OVERLOADING
data CellAccessibleParentEditMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentEditMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentEdit
#endif
foreign import ccall "gtk_cell_accessible_parent_expand_collapse" gtk_cell_accessible_parent_expand_collapse ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO ()
cellAccessibleParentExpandCollapse ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m ()
cellAccessibleParentExpandCollapse parent cell = liftIO $ do
parent' <- unsafeManagedPtrCastPtr parent
cell' <- unsafeManagedPtrCastPtr cell
gtk_cell_accessible_parent_expand_collapse parent' cell'
touchManagedPtr parent
touchManagedPtr cell
return ()
#if ENABLE_OVERLOADING
data CellAccessibleParentExpandCollapseMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentExpandCollapseMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentExpandCollapse
#endif
foreign import ccall "gtk_cell_accessible_parent_get_cell_area" gtk_cell_accessible_parent_get_cell_area ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
cellAccessibleParentGetCellArea ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> Gdk.Rectangle.Rectangle
-> m ()
cellAccessibleParentGetCellArea parent cell cellRect = liftIO $ do
parent' <- unsafeManagedPtrCastPtr parent
cell' <- unsafeManagedPtrCastPtr cell
cellRect' <- unsafeManagedPtrGetPtr cellRect
gtk_cell_accessible_parent_get_cell_area parent' cell' cellRect'
touchManagedPtr parent
touchManagedPtr cell
touchManagedPtr cellRect
return ()
#if ENABLE_OVERLOADING
data CellAccessibleParentGetCellAreaMethodInfo
instance (signature ~ (b -> Gdk.Rectangle.Rectangle -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGetCellAreaMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentGetCellArea
#endif
foreign import ccall "gtk_cell_accessible_parent_get_cell_extents" gtk_cell_accessible_parent_get_cell_extents ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
CUInt ->
IO ()
cellAccessibleParentGetCellExtents ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> Int32
-> Int32
-> Int32
-> Int32
-> Atk.Enums.CoordType
-> m ()
cellAccessibleParentGetCellExtents parent cell x y width height coordType = liftIO $ do
parent' <- unsafeManagedPtrCastPtr parent
cell' <- unsafeManagedPtrCastPtr cell
let coordType' = (fromIntegral . fromEnum) coordType
gtk_cell_accessible_parent_get_cell_extents parent' cell' x y width height coordType'
touchManagedPtr parent
touchManagedPtr cell
return ()
#if ENABLE_OVERLOADING
data CellAccessibleParentGetCellExtentsMethodInfo
instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Int32 -> Atk.Enums.CoordType -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGetCellExtentsMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentGetCellExtents
#endif
foreign import ccall "gtk_cell_accessible_parent_get_cell_position" gtk_cell_accessible_parent_get_cell_position ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
Int32 ->
Int32 ->
IO ()
cellAccessibleParentGetCellPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> Int32
-> Int32
-> m ()
cellAccessibleParentGetCellPosition parent cell row column = liftIO $ do
parent' <- unsafeManagedPtrCastPtr parent
cell' <- unsafeManagedPtrCastPtr cell
gtk_cell_accessible_parent_get_cell_position parent' cell' row column
touchManagedPtr parent
touchManagedPtr cell
return ()
#if ENABLE_OVERLOADING
data CellAccessibleParentGetCellPositionMethodInfo
instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGetCellPositionMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentGetCellPosition
#endif
foreign import ccall "gtk_cell_accessible_parent_get_child_index" gtk_cell_accessible_parent_get_child_index ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO Int32
cellAccessibleParentGetChildIndex ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m Int32
cellAccessibleParentGetChildIndex parent cell = liftIO $ do
parent' <- unsafeManagedPtrCastPtr parent
cell' <- unsafeManagedPtrCastPtr cell
result <- gtk_cell_accessible_parent_get_child_index parent' cell'
touchManagedPtr parent
touchManagedPtr cell
return result
#if ENABLE_OVERLOADING
data CellAccessibleParentGetChildIndexMethodInfo
instance (signature ~ (b -> m Int32), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGetChildIndexMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentGetChildIndex
#endif
foreign import ccall "gtk_cell_accessible_parent_get_column_header_cells" gtk_cell_accessible_parent_get_column_header_cells ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO (Ptr (GPtrArray (Ptr Atk.Object.Object)))
cellAccessibleParentGetColumnHeaderCells ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m [Atk.Object.Object]
cellAccessibleParentGetColumnHeaderCells parent cell = liftIO $ do
parent' <- unsafeManagedPtrCastPtr parent
cell' <- unsafeManagedPtrCastPtr cell
result <- gtk_cell_accessible_parent_get_column_header_cells parent' cell'
checkUnexpectedReturnNULL "cellAccessibleParentGetColumnHeaderCells" result
result' <- unpackGPtrArray result
result'' <- mapM (wrapObject Atk.Object.Object) result'
unrefPtrArray result
touchManagedPtr parent
touchManagedPtr cell
return result''
#if ENABLE_OVERLOADING
data CellAccessibleParentGetColumnHeaderCellsMethodInfo
instance (signature ~ (b -> m [Atk.Object.Object]), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGetColumnHeaderCellsMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentGetColumnHeaderCells
#endif
foreign import ccall "gtk_cell_accessible_parent_get_renderer_state" gtk_cell_accessible_parent_get_renderer_state ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO CUInt
cellAccessibleParentGetRendererState ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m [Gtk.Flags.CellRendererState]
cellAccessibleParentGetRendererState parent cell = liftIO $ do
parent' <- unsafeManagedPtrCastPtr parent
cell' <- unsafeManagedPtrCastPtr cell
result <- gtk_cell_accessible_parent_get_renderer_state parent' cell'
let result' = wordToGFlags result
touchManagedPtr parent
touchManagedPtr cell
return result'
#if ENABLE_OVERLOADING
data CellAccessibleParentGetRendererStateMethodInfo
instance (signature ~ (b -> m [Gtk.Flags.CellRendererState]), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGetRendererStateMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentGetRendererState
#endif
foreign import ccall "gtk_cell_accessible_parent_get_row_header_cells" gtk_cell_accessible_parent_get_row_header_cells ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO (Ptr (GPtrArray (Ptr Atk.Object.Object)))
cellAccessibleParentGetRowHeaderCells ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m [Atk.Object.Object]
cellAccessibleParentGetRowHeaderCells parent cell = liftIO $ do
parent' <- unsafeManagedPtrCastPtr parent
cell' <- unsafeManagedPtrCastPtr cell
result <- gtk_cell_accessible_parent_get_row_header_cells parent' cell'
checkUnexpectedReturnNULL "cellAccessibleParentGetRowHeaderCells" result
result' <- unpackGPtrArray result
result'' <- mapM (wrapObject Atk.Object.Object) result'
unrefPtrArray result
touchManagedPtr parent
touchManagedPtr cell
return result''
#if ENABLE_OVERLOADING
data CellAccessibleParentGetRowHeaderCellsMethodInfo
instance (signature ~ (b -> m [Atk.Object.Object]), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGetRowHeaderCellsMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentGetRowHeaderCells
#endif
foreign import ccall "gtk_cell_accessible_parent_grab_focus" gtk_cell_accessible_parent_grab_focus ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
IO CInt
cellAccessibleParentGrabFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) =>
a
-> b
-> m Bool
cellAccessibleParentGrabFocus parent cell = liftIO $ do
parent' <- unsafeManagedPtrCastPtr parent
cell' <- unsafeManagedPtrCastPtr cell
result <- gtk_cell_accessible_parent_grab_focus parent' cell'
let result' = (/= 0) result
touchManagedPtr parent
touchManagedPtr cell
return result'
#if ENABLE_OVERLOADING
data CellAccessibleParentGrabFocusMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGrabFocusMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentGrabFocus
#endif
foreign import ccall "gtk_cell_accessible_parent_update_relationset" gtk_cell_accessible_parent_update_relationset ::
Ptr CellAccessibleParent ->
Ptr Gtk.CellAccessible.CellAccessible ->
Ptr Atk.RelationSet.RelationSet ->
IO ()
cellAccessibleParentUpdateRelationset ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b, Atk.RelationSet.IsRelationSet c) =>
a
-> b
-> c
-> m ()
cellAccessibleParentUpdateRelationset parent cell relationset = liftIO $ do
parent' <- unsafeManagedPtrCastPtr parent
cell' <- unsafeManagedPtrCastPtr cell
relationset' <- unsafeManagedPtrCastPtr relationset
gtk_cell_accessible_parent_update_relationset parent' cell' relationset'
touchManagedPtr parent
touchManagedPtr cell
touchManagedPtr relationset
return ()
#if ENABLE_OVERLOADING
data CellAccessibleParentUpdateRelationsetMethodInfo
instance (signature ~ (b -> c -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b, Atk.RelationSet.IsRelationSet c) => O.MethodInfo CellAccessibleParentUpdateRelationsetMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentUpdateRelationset
#endif