gi-gtk-0.3.18.14: GI/Gtk/Interfaces/CellAccessibleParent.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gtk.Interfaces.CellAccessibleParent
(
-- * Exported types
CellAccessibleParent(..) ,
noCellAccessibleParent ,
CellAccessibleParentK ,
-- * Methods
-- ** cellAccessibleParentActivate
CellAccessibleParentActivateMethodInfo ,
cellAccessibleParentActivate ,
-- ** cellAccessibleParentEdit
CellAccessibleParentEditMethodInfo ,
cellAccessibleParentEdit ,
-- ** cellAccessibleParentExpandCollapse
CellAccessibleParentExpandCollapseMethodInfo,
cellAccessibleParentExpandCollapse ,
-- ** cellAccessibleParentGetCellArea
CellAccessibleParentGetCellAreaMethodInfo,
cellAccessibleParentGetCellArea ,
-- ** cellAccessibleParentGetCellExtents
CellAccessibleParentGetCellExtentsMethodInfo,
cellAccessibleParentGetCellExtents ,
-- ** cellAccessibleParentGetChildIndex
CellAccessibleParentGetChildIndexMethodInfo,
cellAccessibleParentGetChildIndex ,
-- ** cellAccessibleParentGetRendererState
CellAccessibleParentGetRendererStateMethodInfo,
cellAccessibleParentGetRendererState ,
-- ** cellAccessibleParentGrabFocus
CellAccessibleParentGrabFocusMethodInfo ,
cellAccessibleParentGrabFocus ,
-- ** cellAccessibleParentUpdateRelationset
CellAccessibleParentUpdateRelationsetMethodInfo,
cellAccessibleParentUpdateRelationset ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.Atk as Atk
import qualified GI.Gdk as Gdk
-- interface CellAccessibleParent
newtype CellAccessibleParent = CellAccessibleParent (ForeignPtr CellAccessibleParent)
noCellAccessibleParent :: Maybe CellAccessibleParent
noCellAccessibleParent = Nothing
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 = MethodResolutionFailed l o
instance (info ~ ResolveCellAccessibleParentMethod t CellAccessibleParent, MethodInfo info CellAccessibleParent p) => IsLabelProxy t (CellAccessibleParent -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveCellAccessibleParentMethod t CellAccessibleParent, MethodInfo info CellAccessibleParent p) => IsLabel t (CellAccessibleParent -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
type instance AttributeList CellAccessibleParent = CellAccessibleParentAttributeList
type CellAccessibleParentAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList CellAccessibleParent = CellAccessibleParentSignalList
type CellAccessibleParentSignalList = ('[ ] :: [(Symbol, *)])
class ForeignPtrNewtype a => CellAccessibleParentK a
instance (ForeignPtrNewtype o, IsDescendantOf CellAccessibleParent o) => CellAccessibleParentK o
type instance ParentTypes CellAccessibleParent = CellAccessibleParentParentTypes
type CellAccessibleParentParentTypes = '[]
-- method CellAccessibleParent::activate
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_activate" gtk_cell_accessible_parent_activate ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
IO ()
cellAccessibleParentActivate ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -- _obj
-> b -- cell
-> m () -- result
cellAccessibleParentActivate _obj cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
gtk_cell_accessible_parent_activate _obj' cell'
touchManagedPtr _obj
touchManagedPtr cell
return ()
data CellAccessibleParentActivateMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentActivateMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentActivate
-- method CellAccessibleParent::edit
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_edit" gtk_cell_accessible_parent_edit ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
IO ()
cellAccessibleParentEdit ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -- _obj
-> b -- cell
-> m () -- result
cellAccessibleParentEdit _obj cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
gtk_cell_accessible_parent_edit _obj' cell'
touchManagedPtr _obj
touchManagedPtr cell
return ()
data CellAccessibleParentEditMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentEditMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentEdit
-- method CellAccessibleParent::expand_collapse
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_expand_collapse" gtk_cell_accessible_parent_expand_collapse ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
IO ()
cellAccessibleParentExpandCollapse ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -- _obj
-> b -- cell
-> m () -- result
cellAccessibleParentExpandCollapse _obj cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
gtk_cell_accessible_parent_expand_collapse _obj' cell'
touchManagedPtr _obj
touchManagedPtr cell
return ()
data CellAccessibleParentExpandCollapseMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentExpandCollapseMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentExpandCollapse
-- method CellAccessibleParent::get_cell_area
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_get_cell_area" gtk_cell_accessible_parent_get_cell_area ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
Ptr Gdk.Rectangle -> -- cell_rect : TInterface "Gdk" "Rectangle"
IO ()
cellAccessibleParentGetCellArea ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -- _obj
-> b -- cell
-> Gdk.Rectangle -- cellRect
-> m () -- result
cellAccessibleParentGetCellArea _obj cell cellRect = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
let cellRect' = unsafeManagedPtrGetPtr cellRect
gtk_cell_accessible_parent_get_cell_area _obj' cell' cellRect'
touchManagedPtr _obj
touchManagedPtr cell
touchManagedPtr cellRect
return ()
data CellAccessibleParentGetCellAreaMethodInfo
instance (signature ~ (b -> Gdk.Rectangle -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentGetCellAreaMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentGetCellArea
-- method CellAccessibleParent::get_cell_extents
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_get_cell_extents" gtk_cell_accessible_parent_get_cell_extents ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
Int32 -> -- x : TBasicType TInt
Int32 -> -- y : TBasicType TInt
Int32 -> -- width : TBasicType TInt
Int32 -> -- height : TBasicType TInt
CUInt -> -- coord_type : TInterface "Atk" "CoordType"
IO ()
cellAccessibleParentGetCellExtents ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -- _obj
-> b -- cell
-> Int32 -- x
-> Int32 -- y
-> Int32 -- width
-> Int32 -- height
-> Atk.CoordType -- coordType
-> m () -- result
cellAccessibleParentGetCellExtents _obj cell x y width height coordType = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
let coordType' = (fromIntegral . fromEnum) coordType
gtk_cell_accessible_parent_get_cell_extents _obj' cell' x y width height coordType'
touchManagedPtr _obj
touchManagedPtr cell
return ()
data CellAccessibleParentGetCellExtentsMethodInfo
instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Int32 -> Atk.CoordType -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentGetCellExtentsMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentGetCellExtents
-- method CellAccessibleParent::get_child_index
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TInt)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_get_child_index" gtk_cell_accessible_parent_get_child_index ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
IO Int32
cellAccessibleParentGetChildIndex ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -- _obj
-> b -- cell
-> m Int32 -- result
cellAccessibleParentGetChildIndex _obj cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
result <- gtk_cell_accessible_parent_get_child_index _obj' cell'
touchManagedPtr _obj
touchManagedPtr cell
return result
data CellAccessibleParentGetChildIndexMethodInfo
instance (signature ~ (b -> m Int32), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentGetChildIndexMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentGetChildIndex
-- method CellAccessibleParent::get_renderer_state
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "Gtk" "CellRendererState")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_get_renderer_state" gtk_cell_accessible_parent_get_renderer_state ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
IO CUInt
cellAccessibleParentGetRendererState ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -- _obj
-> b -- cell
-> m [CellRendererState] -- result
cellAccessibleParentGetRendererState _obj cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
result <- gtk_cell_accessible_parent_get_renderer_state _obj' cell'
let result' = wordToGFlags result
touchManagedPtr _obj
touchManagedPtr cell
return result'
data CellAccessibleParentGetRendererStateMethodInfo
instance (signature ~ (b -> m [CellRendererState]), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentGetRendererStateMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentGetRendererState
-- method CellAccessibleParent::grab_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_grab_focus" gtk_cell_accessible_parent_grab_focus ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
IO CInt
cellAccessibleParentGrabFocus ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b) =>
a -- _obj
-> b -- cell
-> m Bool -- result
cellAccessibleParentGrabFocus _obj cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
result <- gtk_cell_accessible_parent_grab_focus _obj' cell'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr cell
return result'
data CellAccessibleParentGrabFocusMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentGrabFocusMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentGrabFocus
-- method CellAccessibleParent::update_relationset
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationset", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_accessible_parent_update_relationset" gtk_cell_accessible_parent_update_relationset ::
Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent"
Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible"
Ptr Atk.RelationSet -> -- relationset : TInterface "Atk" "RelationSet"
IO ()
cellAccessibleParentUpdateRelationset ::
(MonadIO m, CellAccessibleParentK a, CellAccessibleK b, Atk.RelationSetK c) =>
a -- _obj
-> b -- cell
-> c -- relationset
-> m () -- result
cellAccessibleParentUpdateRelationset _obj cell relationset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
let relationset' = unsafeManagedPtrCastPtr relationset
gtk_cell_accessible_parent_update_relationset _obj' cell' relationset'
touchManagedPtr _obj
touchManagedPtr cell
touchManagedPtr relationset
return ()
data CellAccessibleParentUpdateRelationsetMethodInfo
instance (signature ~ (b -> c -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b, Atk.RelationSetK c) => MethodInfo CellAccessibleParentUpdateRelationsetMethodInfo a signature where
overloadedMethod _ = cellAccessibleParentUpdateRelationset