{- | 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 , IsCellAccessibleParent , -- * Methods -- ** activate #method:activate# CellAccessibleParentActivateMethodInfo , cellAccessibleParentActivate , -- ** edit #method:edit# CellAccessibleParentEditMethodInfo , cellAccessibleParentEdit , -- ** expandCollapse #method:expandCollapse# CellAccessibleParentExpandCollapseMethodInfo, cellAccessibleParentExpandCollapse , -- ** getCellArea #method:getCellArea# CellAccessibleParentGetCellAreaMethodInfo, cellAccessibleParentGetCellArea , -- ** getCellExtents #method:getCellExtents# CellAccessibleParentGetCellExtentsMethodInfo, cellAccessibleParentGetCellExtents , -- ** getChildIndex #method:getChildIndex# CellAccessibleParentGetChildIndexMethodInfo, cellAccessibleParentGetChildIndex , -- ** getRendererState #method:getRendererState# CellAccessibleParentGetRendererStateMethodInfo, cellAccessibleParentGetRendererState , -- ** grabFocus #method:grabFocus# CellAccessibleParentGrabFocusMethodInfo , cellAccessibleParentGrabFocus , -- ** updateRelationset #method:updateRelationset# CellAccessibleParentUpdateRelationsetMethodInfo, 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 {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags import {-# SOURCE #-} qualified GI.Gtk.Objects.CellAccessible as Gtk.CellAccessible -- interface CellAccessibleParent newtype CellAccessibleParent = CellAccessibleParent (ManagedPtr 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 = 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 fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) #endif instance O.HasAttributeList CellAccessibleParent type instance O.AttributeList CellAccessibleParent = CellAccessibleParentAttributeList type CellAccessibleParentAttributeList = ('[ ] :: [(Symbol, *)]) type instance O.SignalList CellAccessibleParent = CellAccessibleParentSignalList type CellAccessibleParentSignalList = ('[ ] :: [(Symbol, *)]) class ManagedPtrNewtype a => IsCellAccessibleParent a instance IsCellAccessibleParent CellAccessibleParent -- XXX Wrapping a foreign struct/union with no known destructor or size, leak? instance WrappedPtr CellAccessibleParent where wrappedPtrCalloc = return nullPtr wrappedPtrCopy = return wrappedPtrFree = Nothing -- method CellAccessibleParent::activate -- method type : OrdinaryMethod -- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) IO () {- | /No description available in the introspection data./ -} 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 () data CellAccessibleParentActivateMethodInfo instance (signature ~ (b -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentActivateMethodInfo a signature where overloadedMethod _ = cellAccessibleParentActivate -- method CellAccessibleParent::edit -- method type : OrdinaryMethod -- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) IO () {- | /No description available in the introspection data./ -} 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 () data CellAccessibleParentEditMethodInfo instance (signature ~ (b -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentEditMethodInfo a signature where overloadedMethod _ = cellAccessibleParentEdit -- method CellAccessibleParent::expand_collapse -- method type : OrdinaryMethod -- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) IO () {- | /No description available in the introspection data./ -} 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 () data CellAccessibleParentExpandCollapseMethodInfo instance (signature ~ (b -> m ()), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentExpandCollapseMethodInfo a signature where overloadedMethod _ = cellAccessibleParentExpandCollapse -- method CellAccessibleParent::get_cell_area -- method type : OrdinaryMethod -- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_rect", argType = TInterface (Name {namespace = "Gdk", name = "Rectangle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) Ptr Gdk.Rectangle.Rectangle -> -- cell_rect : TInterface (Name {namespace = "Gdk", name = "Rectangle"}) IO () {- | /No description available in the introspection data./ -} 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 () 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 -- method CellAccessibleParent::get_cell_extents -- method type : OrdinaryMethod -- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface (Name {namespace = "Atk", name = "CoordType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) Int32 -> -- x : TBasicType TInt Int32 -> -- y : TBasicType TInt Int32 -> -- width : TBasicType TInt Int32 -> -- height : TBasicType TInt CUInt -> -- coord_type : TInterface (Name {namespace = "Atk", name = "CoordType"}) IO () {- | /No description available in the introspection data./ -} 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 () 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 -- method CellAccessibleParent::get_child_index -- method type : OrdinaryMethod -- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) IO Int32 {- | /No description available in the introspection data./ -} 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 data CellAccessibleParentGetChildIndexMethodInfo instance (signature ~ (b -> m Int32), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGetChildIndexMethodInfo a signature where overloadedMethod _ = cellAccessibleParentGetChildIndex -- method CellAccessibleParent::get_renderer_state -- method type : OrdinaryMethod -- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "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 -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) IO CUInt {- | /No description available in the introspection data./ -} 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' 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 -- method CellAccessibleParent::grab_focus -- method type : OrdinaryMethod -- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) IO CInt {- | /No description available in the introspection data./ -} 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' data CellAccessibleParentGrabFocusMethodInfo instance (signature ~ (b -> m Bool), MonadIO m, IsCellAccessibleParent a, Gtk.CellAccessible.IsCellAccessible b) => O.MethodInfo CellAccessibleParentGrabFocusMethodInfo a signature where overloadedMethod _ = cellAccessibleParentGrabFocus -- method CellAccessibleParent::update_relationset -- method type : OrdinaryMethod -- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface (Name {namespace = "Gtk", name = "CellAccessible"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationset", argType = TInterface (Name {namespace = "Atk", name = "RelationSet"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 -> -- parent : TInterface (Name {namespace = "Gtk", name = "CellAccessibleParent"}) Ptr Gtk.CellAccessible.CellAccessible -> -- cell : TInterface (Name {namespace = "Gtk", name = "CellAccessible"}) Ptr Atk.RelationSet.RelationSet -> -- relationset : TInterface (Name {namespace = "Atk", name = "RelationSet"}) IO () {- | /No description available in the introspection data./ -} 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 () 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