module GI.Gtk.Interfaces.CellAccessibleParent
(
CellAccessibleParent(..) ,
noCellAccessibleParent ,
IsCellAccessibleParent ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAccessibleParentActivateMethodInfo ,
#endif
cellAccessibleParentActivate ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAccessibleParentEditMethodInfo ,
#endif
cellAccessibleParentEdit ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAccessibleParentExpandCollapseMethodInfo,
#endif
cellAccessibleParentExpandCollapse ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAccessibleParentGetCellAreaMethodInfo,
#endif
cellAccessibleParentGetCellArea ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAccessibleParentGetCellExtentsMethodInfo,
#endif
cellAccessibleParentGetCellExtents ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAccessibleParentGetChildIndexMethodInfo,
#endif
cellAccessibleParentGetChildIndex ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAccessibleParentGetRendererStateMethodInfo,
#endif
cellAccessibleParentGetRendererState ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAccessibleParentGrabFocusMethodInfo ,
#endif
cellAccessibleParentGrabFocus ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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.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 qualified GI.Gtk.Flags as Gtk.Flags
import qualified GI.Gtk.Objects.CellAccessible as Gtk.CellAccessible
newtype CellAccessibleParent = CellAccessibleParent (ManagedPtr CellAccessibleParent)
noCellAccessibleParent :: Maybe CellAccessibleParent
noCellAccessibleParent = Nothing
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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