#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
CellAccessibleParentGetChildIndexMethodInfo,
#endif
cellAccessibleParentGetChildIndex ,
#if ENABLE_OVERLOADING
CellAccessibleParentGetRendererStateMethodInfo,
#endif
cellAccessibleParentGetRendererState ,
#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.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 qualified GI.Atk.Enums as Atk.Enums
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 a => IsCellAccessibleParent a
instance IsCellAccessibleParent CellAccessibleParent
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 "getChildIndex" o = CellAccessibleParentGetChildIndexMethodInfo
ResolveCellAccessibleParentMethod "getRendererState" o = CellAccessibleParentGetRendererStateMethodInfo
ResolveCellAccessibleParentMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCellAccessibleParentMethod t CellAccessibleParent, O.MethodInfo info CellAccessibleParent p) => O.IsLabelProxy t (CellAccessibleParent -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveCellAccessibleParentMethod t CellAccessibleParent, O.MethodInfo info CellAccessibleParent p) => O.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
#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_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_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_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