{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.CellArea
(
CellArea(..) ,
IsCellArea ,
toCellArea ,
#if defined(ENABLE_OVERLOADING)
ResolveCellAreaMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CellAreaActivateMethodInfo ,
#endif
cellAreaActivate ,
#if defined(ENABLE_OVERLOADING)
CellAreaActivateCellMethodInfo ,
#endif
cellAreaActivateCell ,
#if defined(ENABLE_OVERLOADING)
CellAreaAddMethodInfo ,
#endif
cellAreaAdd ,
#if defined(ENABLE_OVERLOADING)
CellAreaAddFocusSiblingMethodInfo ,
#endif
cellAreaAddFocusSibling ,
#if defined(ENABLE_OVERLOADING)
CellAreaApplyAttributesMethodInfo ,
#endif
cellAreaApplyAttributes ,
#if defined(ENABLE_OVERLOADING)
CellAreaAttributeConnectMethodInfo ,
#endif
cellAreaAttributeConnect ,
#if defined(ENABLE_OVERLOADING)
CellAreaAttributeDisconnectMethodInfo ,
#endif
cellAreaAttributeDisconnect ,
#if defined(ENABLE_OVERLOADING)
CellAreaAttributeGetColumnMethodInfo ,
#endif
cellAreaAttributeGetColumn ,
#if defined(ENABLE_OVERLOADING)
CellAreaCellGetPropertyMethodInfo ,
#endif
cellAreaCellGetProperty ,
#if defined(ENABLE_OVERLOADING)
CellAreaCellSetPropertyMethodInfo ,
#endif
cellAreaCellSetProperty ,
#if defined(ENABLE_OVERLOADING)
CellAreaCopyContextMethodInfo ,
#endif
cellAreaCopyContext ,
#if defined(ENABLE_OVERLOADING)
CellAreaCreateContextMethodInfo ,
#endif
cellAreaCreateContext ,
#if defined(ENABLE_OVERLOADING)
CellAreaEventMethodInfo ,
#endif
cellAreaEvent ,
#if defined(ENABLE_OVERLOADING)
CellAreaFocusMethodInfo ,
#endif
cellAreaFocus ,
#if defined(ENABLE_OVERLOADING)
CellAreaForeachMethodInfo ,
#endif
cellAreaForeach ,
#if defined(ENABLE_OVERLOADING)
CellAreaForeachAllocMethodInfo ,
#endif
cellAreaForeachAlloc ,
#if defined(ENABLE_OVERLOADING)
CellAreaGetCellAllocationMethodInfo ,
#endif
cellAreaGetCellAllocation ,
#if defined(ENABLE_OVERLOADING)
CellAreaGetCellAtPositionMethodInfo ,
#endif
cellAreaGetCellAtPosition ,
#if defined(ENABLE_OVERLOADING)
CellAreaGetCurrentPathStringMethodInfo ,
#endif
cellAreaGetCurrentPathString ,
#if defined(ENABLE_OVERLOADING)
CellAreaGetEditWidgetMethodInfo ,
#endif
cellAreaGetEditWidget ,
#if defined(ENABLE_OVERLOADING)
CellAreaGetEditedCellMethodInfo ,
#endif
cellAreaGetEditedCell ,
#if defined(ENABLE_OVERLOADING)
CellAreaGetFocusCellMethodInfo ,
#endif
cellAreaGetFocusCell ,
#if defined(ENABLE_OVERLOADING)
CellAreaGetFocusFromSiblingMethodInfo ,
#endif
cellAreaGetFocusFromSibling ,
#if defined(ENABLE_OVERLOADING)
CellAreaGetFocusSiblingsMethodInfo ,
#endif
cellAreaGetFocusSiblings ,
#if defined(ENABLE_OVERLOADING)
CellAreaGetPreferredHeightMethodInfo ,
#endif
cellAreaGetPreferredHeight ,
#if defined(ENABLE_OVERLOADING)
CellAreaGetPreferredHeightForWidthMethodInfo,
#endif
cellAreaGetPreferredHeightForWidth ,
#if defined(ENABLE_OVERLOADING)
CellAreaGetPreferredWidthMethodInfo ,
#endif
cellAreaGetPreferredWidth ,
#if defined(ENABLE_OVERLOADING)
CellAreaGetPreferredWidthForHeightMethodInfo,
#endif
cellAreaGetPreferredWidthForHeight ,
#if defined(ENABLE_OVERLOADING)
CellAreaGetRequestModeMethodInfo ,
#endif
cellAreaGetRequestMode ,
#if defined(ENABLE_OVERLOADING)
CellAreaHasRendererMethodInfo ,
#endif
cellAreaHasRenderer ,
#if defined(ENABLE_OVERLOADING)
CellAreaInnerCellAreaMethodInfo ,
#endif
cellAreaInnerCellArea ,
#if defined(ENABLE_OVERLOADING)
CellAreaIsActivatableMethodInfo ,
#endif
cellAreaIsActivatable ,
#if defined(ENABLE_OVERLOADING)
CellAreaIsFocusSiblingMethodInfo ,
#endif
cellAreaIsFocusSibling ,
#if defined(ENABLE_OVERLOADING)
CellAreaRemoveMethodInfo ,
#endif
cellAreaRemove ,
#if defined(ENABLE_OVERLOADING)
CellAreaRemoveFocusSiblingMethodInfo ,
#endif
cellAreaRemoveFocusSibling ,
#if defined(ENABLE_OVERLOADING)
CellAreaRequestRendererMethodInfo ,
#endif
cellAreaRequestRenderer ,
#if defined(ENABLE_OVERLOADING)
CellAreaSetFocusCellMethodInfo ,
#endif
cellAreaSetFocusCell ,
#if defined(ENABLE_OVERLOADING)
CellAreaSnapshotMethodInfo ,
#endif
cellAreaSnapshot ,
#if defined(ENABLE_OVERLOADING)
CellAreaStopEditingMethodInfo ,
#endif
cellAreaStopEditing ,
#if defined(ENABLE_OVERLOADING)
CellAreaEditWidgetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellAreaEditWidget ,
#endif
getCellAreaEditWidget ,
#if defined(ENABLE_OVERLOADING)
CellAreaEditedCellPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellAreaEditedCell ,
#endif
getCellAreaEditedCell ,
#if defined(ENABLE_OVERLOADING)
CellAreaFocusCellPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellAreaFocusCell ,
#endif
clearCellAreaFocusCell ,
constructCellAreaFocusCell ,
getCellAreaFocusCell ,
setCellAreaFocusCell ,
CellAreaAddEditableCallback ,
#if defined(ENABLE_OVERLOADING)
CellAreaAddEditableSignalInfo ,
#endif
afterCellAreaAddEditable ,
onCellAreaAddEditable ,
CellAreaApplyAttributesCallback ,
#if defined(ENABLE_OVERLOADING)
CellAreaApplyAttributesSignalInfo ,
#endif
afterCellAreaApplyAttributes ,
onCellAreaApplyAttributes ,
CellAreaFocusChangedCallback ,
#if defined(ENABLE_OVERLOADING)
CellAreaFocusChangedSignalInfo ,
#endif
afterCellAreaFocusChanged ,
onCellAreaFocusChanged ,
CellAreaRemoveEditableCallback ,
#if defined(ENABLE_OVERLOADING)
CellAreaRemoveEditableSignalInfo ,
#endif
afterCellAreaRemoveEditable ,
onCellAreaRemoveEditable ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Objects.Event as Gdk.Event
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
import qualified GI.Gdk.Objects.Surface as Gdk.Surface
import qualified GI.Gdk.Objects.Texture as Gdk.Texture
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Graphene.Structs.Matrix as Graphene.Matrix
import qualified GI.Graphene.Structs.Point as Graphene.Point
import qualified GI.Graphene.Structs.Point3D as Graphene.Point3D
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import qualified GI.Graphene.Structs.Size as Graphene.Size
import qualified GI.Graphene.Structs.Vec3 as Graphene.Vec3
import qualified GI.Graphene.Structs.Vec4 as Graphene.Vec4
import qualified GI.Gsk.Enums as Gsk.Enums
import qualified GI.Gsk.Objects.GLShader as Gsk.GLShader
import qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import qualified GI.Gsk.Objects.Renderer as Gsk.Renderer
import qualified GI.Gsk.Structs.ColorStop as Gsk.ColorStop
import qualified GI.Gsk.Structs.Path as Gsk.Path
import qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
import qualified GI.Gsk.Structs.Shadow as Gsk.Shadow
import qualified GI.Gsk.Structs.Stroke as Gsk.Stroke
import qualified GI.Gsk.Structs.Transform as Gsk.Transform
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellEditable as Gtk.CellEditable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellLayout as Gtk.CellLayout
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Native as Gtk.Native
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel
import {-# SOURCE #-} qualified GI.Gtk.Objects.ATContext as Gtk.ATContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellAreaContext as Gtk.CellAreaContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutChild as Gtk.LayoutChild
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreePath as Gtk.TreePath
import qualified GI.Pango.Enums as Pango.Enums
import qualified GI.Pango.Objects.Context as Pango.Context
import qualified GI.Pango.Objects.FontMap as Pango.FontMap
import qualified GI.Pango.Objects.Layout as Pango.Layout
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Objects.Event as Gdk.Event
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellEditable as Gtk.CellEditable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellLayout as Gtk.CellLayout
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellAreaContext as Gtk.CellAreaContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter
#endif
newtype CellArea = CellArea (SP.ManagedPtr CellArea)
deriving (CellArea -> CellArea -> Bool
(CellArea -> CellArea -> Bool)
-> (CellArea -> CellArea -> Bool) -> Eq CellArea
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CellArea -> CellArea -> Bool
== :: CellArea -> CellArea -> Bool
$c/= :: CellArea -> CellArea -> Bool
/= :: CellArea -> CellArea -> Bool
Eq)
instance SP.ManagedPtrNewtype CellArea where
toManagedPtr :: CellArea -> ManagedPtr CellArea
toManagedPtr (CellArea ManagedPtr CellArea
p) = ManagedPtr CellArea
p
foreign import ccall "gtk_cell_area_get_type"
c_gtk_cell_area_get_type :: IO B.Types.GType
instance B.Types.TypedObject CellArea where
glibType :: IO GType
glibType = IO GType
c_gtk_cell_area_get_type
instance B.Types.GObject CellArea
class (SP.GObject o, O.IsDescendantOf CellArea o) => IsCellArea o
instance (SP.GObject o, O.IsDescendantOf CellArea o) => IsCellArea o
instance O.HasParentTypes CellArea
type instance O.ParentTypes CellArea = '[GObject.Object.Object, Gtk.Buildable.Buildable, Gtk.CellLayout.CellLayout]
toCellArea :: (MIO.MonadIO m, IsCellArea o) => o -> m CellArea
toCellArea :: forall (m :: * -> *) o.
(MonadIO m, IsCellArea o) =>
o -> m CellArea
toCellArea = IO CellArea -> m CellArea
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CellArea -> m CellArea)
-> (o -> IO CellArea) -> o -> m CellArea
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CellArea -> CellArea) -> o -> IO CellArea
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr CellArea -> CellArea
CellArea
instance B.GValue.IsGValue (Maybe CellArea) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_cell_area_get_type
gvalueSet_ :: Ptr GValue -> Maybe CellArea -> IO ()
gvalueSet_ Ptr GValue
gv Maybe CellArea
P.Nothing = Ptr GValue -> Ptr CellArea -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr CellArea
forall a. Ptr a
FP.nullPtr :: FP.Ptr CellArea)
gvalueSet_ Ptr GValue
gv (P.Just CellArea
obj) = CellArea -> (Ptr CellArea -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CellArea
obj (Ptr GValue -> Ptr CellArea -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe CellArea)
gvalueGet_ Ptr GValue
gv = do
ptr <- Ptr GValue -> IO (Ptr CellArea)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr CellArea)
if ptr /= FP.nullPtr
then P.Just <$> B.ManagedPtr.newObject CellArea ptr
else return P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCellAreaMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveCellAreaMethod "activate" o = CellAreaActivateMethodInfo
ResolveCellAreaMethod "activateCell" o = CellAreaActivateCellMethodInfo
ResolveCellAreaMethod "add" o = CellAreaAddMethodInfo
ResolveCellAreaMethod "addAttribute" o = Gtk.CellLayout.CellLayoutAddAttributeMethodInfo
ResolveCellAreaMethod "addFocusSibling" o = CellAreaAddFocusSiblingMethodInfo
ResolveCellAreaMethod "applyAttributes" o = CellAreaApplyAttributesMethodInfo
ResolveCellAreaMethod "attributeConnect" o = CellAreaAttributeConnectMethodInfo
ResolveCellAreaMethod "attributeDisconnect" o = CellAreaAttributeDisconnectMethodInfo
ResolveCellAreaMethod "attributeGetColumn" o = CellAreaAttributeGetColumnMethodInfo
ResolveCellAreaMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCellAreaMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCellAreaMethod "cellGetProperty" o = CellAreaCellGetPropertyMethodInfo
ResolveCellAreaMethod "cellSetProperty" o = CellAreaCellSetPropertyMethodInfo
ResolveCellAreaMethod "clear" o = Gtk.CellLayout.CellLayoutClearMethodInfo
ResolveCellAreaMethod "clearAttributes" o = Gtk.CellLayout.CellLayoutClearAttributesMethodInfo
ResolveCellAreaMethod "copyContext" o = CellAreaCopyContextMethodInfo
ResolveCellAreaMethod "createContext" o = CellAreaCreateContextMethodInfo
ResolveCellAreaMethod "event" o = CellAreaEventMethodInfo
ResolveCellAreaMethod "focus" o = CellAreaFocusMethodInfo
ResolveCellAreaMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCellAreaMethod "foreach" o = CellAreaForeachMethodInfo
ResolveCellAreaMethod "foreachAlloc" o = CellAreaForeachAllocMethodInfo
ResolveCellAreaMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCellAreaMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCellAreaMethod "hasRenderer" o = CellAreaHasRendererMethodInfo
ResolveCellAreaMethod "innerCellArea" o = CellAreaInnerCellAreaMethodInfo
ResolveCellAreaMethod "isActivatable" o = CellAreaIsActivatableMethodInfo
ResolveCellAreaMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCellAreaMethod "isFocusSibling" o = CellAreaIsFocusSiblingMethodInfo
ResolveCellAreaMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCellAreaMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCellAreaMethod "packEnd" o = Gtk.CellLayout.CellLayoutPackEndMethodInfo
ResolveCellAreaMethod "packStart" o = Gtk.CellLayout.CellLayoutPackStartMethodInfo
ResolveCellAreaMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCellAreaMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCellAreaMethod "remove" o = CellAreaRemoveMethodInfo
ResolveCellAreaMethod "removeFocusSibling" o = CellAreaRemoveFocusSiblingMethodInfo
ResolveCellAreaMethod "reorder" o = Gtk.CellLayout.CellLayoutReorderMethodInfo
ResolveCellAreaMethod "requestRenderer" o = CellAreaRequestRendererMethodInfo
ResolveCellAreaMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCellAreaMethod "snapshot" o = CellAreaSnapshotMethodInfo
ResolveCellAreaMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCellAreaMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCellAreaMethod "stopEditing" o = CellAreaStopEditingMethodInfo
ResolveCellAreaMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCellAreaMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCellAreaMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCellAreaMethod "getArea" o = Gtk.CellLayout.CellLayoutGetAreaMethodInfo
ResolveCellAreaMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveCellAreaMethod "getCellAllocation" o = CellAreaGetCellAllocationMethodInfo
ResolveCellAreaMethod "getCellAtPosition" o = CellAreaGetCellAtPositionMethodInfo
ResolveCellAreaMethod "getCells" o = Gtk.CellLayout.CellLayoutGetCellsMethodInfo
ResolveCellAreaMethod "getCurrentPathString" o = CellAreaGetCurrentPathStringMethodInfo
ResolveCellAreaMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCellAreaMethod "getEditWidget" o = CellAreaGetEditWidgetMethodInfo
ResolveCellAreaMethod "getEditedCell" o = CellAreaGetEditedCellMethodInfo
ResolveCellAreaMethod "getFocusCell" o = CellAreaGetFocusCellMethodInfo
ResolveCellAreaMethod "getFocusFromSibling" o = CellAreaGetFocusFromSiblingMethodInfo
ResolveCellAreaMethod "getFocusSiblings" o = CellAreaGetFocusSiblingsMethodInfo
ResolveCellAreaMethod "getPreferredHeight" o = CellAreaGetPreferredHeightMethodInfo
ResolveCellAreaMethod "getPreferredHeightForWidth" o = CellAreaGetPreferredHeightForWidthMethodInfo
ResolveCellAreaMethod "getPreferredWidth" o = CellAreaGetPreferredWidthMethodInfo
ResolveCellAreaMethod "getPreferredWidthForHeight" o = CellAreaGetPreferredWidthForHeightMethodInfo
ResolveCellAreaMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCellAreaMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCellAreaMethod "getRequestMode" o = CellAreaGetRequestModeMethodInfo
ResolveCellAreaMethod "setCellDataFunc" o = Gtk.CellLayout.CellLayoutSetCellDataFuncMethodInfo
ResolveCellAreaMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCellAreaMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCellAreaMethod "setFocusCell" o = CellAreaSetFocusCellMethodInfo
ResolveCellAreaMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCellAreaMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCellAreaMethod t CellArea, O.OverloadedMethod info CellArea p) => OL.IsLabel t (CellArea -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveCellAreaMethod t CellArea, O.OverloadedMethod info CellArea p, R.HasField t CellArea p) => R.HasField t CellArea p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCellAreaMethod t CellArea, O.OverloadedMethodInfo info CellArea) => OL.IsLabel t (O.MethodProxy info CellArea) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type CellAreaAddEditableCallback =
Gtk.CellRenderer.CellRenderer
-> Gtk.CellEditable.CellEditable
-> Gdk.Rectangle.Rectangle
-> T.Text
-> IO ()
type C_CellAreaAddEditableCallback =
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
Ptr Gtk.CellEditable.CellEditable ->
Ptr Gdk.Rectangle.Rectangle ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CellAreaAddEditableCallback :: C_CellAreaAddEditableCallback -> IO (FunPtr C_CellAreaAddEditableCallback)
wrap_CellAreaAddEditableCallback ::
GObject a => (a -> CellAreaAddEditableCallback) ->
C_CellAreaAddEditableCallback
wrap_CellAreaAddEditableCallback :: forall a.
GObject a =>
(a -> CellAreaAddEditableCallback) -> C_CellAreaAddEditableCallback
wrap_CellAreaAddEditableCallback a -> CellAreaAddEditableCallback
gi'cb Ptr CellArea
gi'selfPtr Ptr CellRenderer
renderer Ptr CellEditable
editable Ptr Rectangle
cellArea CString
path Ptr ()
_ = do
renderer' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
renderer
editable' <- (newObject Gtk.CellEditable.CellEditable) editable
B.ManagedPtr.withTransient cellArea $ \Rectangle
cellArea' -> do
path' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
path
B.ManagedPtr.withNewObject gi'selfPtr $ \CellArea
gi'self -> a -> CellAreaAddEditableCallback
gi'cb (CellArea -> a
forall a b. Coercible a b => a -> b
Coerce.coerce CellArea
gi'self) CellRenderer
renderer' CellEditable
editable' Rectangle
cellArea' Text
path'
onCellAreaAddEditable :: (IsCellArea a, MonadIO m) => a -> ((?self :: a) => CellAreaAddEditableCallback) -> m SignalHandlerId
onCellAreaAddEditable :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a
-> ((?self::a) => CellAreaAddEditableCallback) -> m SignalHandlerId
onCellAreaAddEditable a
obj (?self::a) => CellAreaAddEditableCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaAddEditableCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => CellAreaAddEditableCallback
CellAreaAddEditableCallback
cb
let wrapped' :: C_CellAreaAddEditableCallback
wrapped' = (a -> CellAreaAddEditableCallback) -> C_CellAreaAddEditableCallback
forall a.
GObject a =>
(a -> CellAreaAddEditableCallback) -> C_CellAreaAddEditableCallback
wrap_CellAreaAddEditableCallback a -> CellAreaAddEditableCallback
wrapped
wrapped'' <- C_CellAreaAddEditableCallback
-> IO (FunPtr C_CellAreaAddEditableCallback)
mk_CellAreaAddEditableCallback C_CellAreaAddEditableCallback
wrapped'
connectSignalFunPtr obj "add-editable" wrapped'' SignalConnectBefore Nothing
afterCellAreaAddEditable :: (IsCellArea a, MonadIO m) => a -> ((?self :: a) => CellAreaAddEditableCallback) -> m SignalHandlerId
afterCellAreaAddEditable :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a
-> ((?self::a) => CellAreaAddEditableCallback) -> m SignalHandlerId
afterCellAreaAddEditable a
obj (?self::a) => CellAreaAddEditableCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaAddEditableCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => CellAreaAddEditableCallback
CellAreaAddEditableCallback
cb
let wrapped' :: C_CellAreaAddEditableCallback
wrapped' = (a -> CellAreaAddEditableCallback) -> C_CellAreaAddEditableCallback
forall a.
GObject a =>
(a -> CellAreaAddEditableCallback) -> C_CellAreaAddEditableCallback
wrap_CellAreaAddEditableCallback a -> CellAreaAddEditableCallback
wrapped
wrapped'' <- C_CellAreaAddEditableCallback
-> IO (FunPtr C_CellAreaAddEditableCallback)
mk_CellAreaAddEditableCallback C_CellAreaAddEditableCallback
wrapped'
connectSignalFunPtr obj "add-editable" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data CellAreaAddEditableSignalInfo
instance SignalInfo CellAreaAddEditableSignalInfo where
type HaskellCallbackType CellAreaAddEditableSignalInfo = CellAreaAddEditableCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CellAreaAddEditableCallback cb
cb'' <- mk_CellAreaAddEditableCallback cb'
connectSignalFunPtr obj "add-editable" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea::add-editable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#g:signal:addEditable"})
#endif
type CellAreaApplyAttributesCallback =
Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> Bool
-> Bool
-> IO ()
type C_CellAreaApplyAttributesCallback =
Ptr CellArea ->
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
CInt ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CellAreaApplyAttributesCallback :: C_CellAreaApplyAttributesCallback -> IO (FunPtr C_CellAreaApplyAttributesCallback)
wrap_CellAreaApplyAttributesCallback ::
GObject a => (a -> CellAreaApplyAttributesCallback) ->
C_CellAreaApplyAttributesCallback
wrap_CellAreaApplyAttributesCallback :: forall a.
GObject a =>
(a -> CellAreaApplyAttributesCallback)
-> C_CellAreaApplyAttributesCallback
wrap_CellAreaApplyAttributesCallback a -> CellAreaApplyAttributesCallback
gi'cb Ptr CellArea
gi'selfPtr Ptr TreeModel
model Ptr TreeIter
iter CInt
isExpander CInt
isExpanded Ptr ()
_ = do
model' <- ((ManagedPtr TreeModel -> TreeModel)
-> Ptr TreeModel -> IO TreeModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel) Ptr TreeModel
model
B.ManagedPtr.withTransient iter $ \TreeIter
iter' -> do
let isExpander' :: Bool
isExpander' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
isExpander
let isExpanded' :: Bool
isExpanded' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
isExpanded
Ptr CellArea -> (CellArea -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr CellArea
gi'selfPtr ((CellArea -> IO ()) -> IO ()) -> (CellArea -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CellArea
gi'self -> a -> CellAreaApplyAttributesCallback
gi'cb (CellArea -> a
forall a b. Coercible a b => a -> b
Coerce.coerce CellArea
gi'self) TreeModel
model' TreeIter
iter' Bool
isExpander' Bool
isExpanded'
onCellAreaApplyAttributes :: (IsCellArea a, MonadIO m) => a -> ((?self :: a) => CellAreaApplyAttributesCallback) -> m SignalHandlerId
onCellAreaApplyAttributes :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a
-> ((?self::a) => CellAreaApplyAttributesCallback)
-> m SignalHandlerId
onCellAreaApplyAttributes a
obj (?self::a) => CellAreaApplyAttributesCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaApplyAttributesCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => CellAreaApplyAttributesCallback
CellAreaApplyAttributesCallback
cb
let wrapped' :: C_CellAreaApplyAttributesCallback
wrapped' = (a -> CellAreaApplyAttributesCallback)
-> C_CellAreaApplyAttributesCallback
forall a.
GObject a =>
(a -> CellAreaApplyAttributesCallback)
-> C_CellAreaApplyAttributesCallback
wrap_CellAreaApplyAttributesCallback a -> CellAreaApplyAttributesCallback
wrapped
wrapped'' <- C_CellAreaApplyAttributesCallback
-> IO (FunPtr C_CellAreaApplyAttributesCallback)
mk_CellAreaApplyAttributesCallback C_CellAreaApplyAttributesCallback
wrapped'
connectSignalFunPtr obj "apply-attributes" wrapped'' SignalConnectBefore Nothing
afterCellAreaApplyAttributes :: (IsCellArea a, MonadIO m) => a -> ((?self :: a) => CellAreaApplyAttributesCallback) -> m SignalHandlerId
afterCellAreaApplyAttributes :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a
-> ((?self::a) => CellAreaApplyAttributesCallback)
-> m SignalHandlerId
afterCellAreaApplyAttributes a
obj (?self::a) => CellAreaApplyAttributesCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaApplyAttributesCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => CellAreaApplyAttributesCallback
CellAreaApplyAttributesCallback
cb
let wrapped' :: C_CellAreaApplyAttributesCallback
wrapped' = (a -> CellAreaApplyAttributesCallback)
-> C_CellAreaApplyAttributesCallback
forall a.
GObject a =>
(a -> CellAreaApplyAttributesCallback)
-> C_CellAreaApplyAttributesCallback
wrap_CellAreaApplyAttributesCallback a -> CellAreaApplyAttributesCallback
wrapped
wrapped'' <- C_CellAreaApplyAttributesCallback
-> IO (FunPtr C_CellAreaApplyAttributesCallback)
mk_CellAreaApplyAttributesCallback C_CellAreaApplyAttributesCallback
wrapped'
connectSignalFunPtr obj "apply-attributes" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data CellAreaApplyAttributesSignalInfo
instance SignalInfo CellAreaApplyAttributesSignalInfo where
type HaskellCallbackType CellAreaApplyAttributesSignalInfo = CellAreaApplyAttributesCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CellAreaApplyAttributesCallback cb
cb'' <- mk_CellAreaApplyAttributesCallback cb'
connectSignalFunPtr obj "apply-attributes" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea::apply-attributes"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#g:signal:applyAttributes"})
#endif
type CellAreaFocusChangedCallback =
Gtk.CellRenderer.CellRenderer
-> T.Text
-> IO ()
type C_CellAreaFocusChangedCallback =
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CellAreaFocusChangedCallback :: C_CellAreaFocusChangedCallback -> IO (FunPtr C_CellAreaFocusChangedCallback)
wrap_CellAreaFocusChangedCallback ::
GObject a => (a -> CellAreaFocusChangedCallback) ->
C_CellAreaFocusChangedCallback
wrap_CellAreaFocusChangedCallback :: forall a.
GObject a =>
(a -> CellAreaFocusChangedCallback)
-> C_CellAreaFocusChangedCallback
wrap_CellAreaFocusChangedCallback a -> CellAreaFocusChangedCallback
gi'cb Ptr CellArea
gi'selfPtr Ptr CellRenderer
renderer CString
path Ptr ()
_ = do
renderer' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
renderer
path' <- cstringToText path
B.ManagedPtr.withNewObject gi'selfPtr $ \CellArea
gi'self -> a -> CellAreaFocusChangedCallback
gi'cb (CellArea -> a
forall a b. Coercible a b => a -> b
Coerce.coerce CellArea
gi'self) CellRenderer
renderer' Text
path'
onCellAreaFocusChanged :: (IsCellArea a, MonadIO m) => a -> ((?self :: a) => CellAreaFocusChangedCallback) -> m SignalHandlerId
onCellAreaFocusChanged :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a
-> ((?self::a) => CellAreaFocusChangedCallback)
-> m SignalHandlerId
onCellAreaFocusChanged a
obj (?self::a) => CellAreaFocusChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaFocusChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => CellAreaFocusChangedCallback
CellAreaFocusChangedCallback
cb
let wrapped' :: C_CellAreaFocusChangedCallback
wrapped' = (a -> CellAreaFocusChangedCallback)
-> C_CellAreaFocusChangedCallback
forall a.
GObject a =>
(a -> CellAreaFocusChangedCallback)
-> C_CellAreaFocusChangedCallback
wrap_CellAreaFocusChangedCallback a -> CellAreaFocusChangedCallback
wrapped
wrapped'' <- C_CellAreaFocusChangedCallback
-> IO (FunPtr C_CellAreaFocusChangedCallback)
mk_CellAreaFocusChangedCallback C_CellAreaFocusChangedCallback
wrapped'
connectSignalFunPtr obj "focus-changed" wrapped'' SignalConnectBefore Nothing
afterCellAreaFocusChanged :: (IsCellArea a, MonadIO m) => a -> ((?self :: a) => CellAreaFocusChangedCallback) -> m SignalHandlerId
afterCellAreaFocusChanged :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a
-> ((?self::a) => CellAreaFocusChangedCallback)
-> m SignalHandlerId
afterCellAreaFocusChanged a
obj (?self::a) => CellAreaFocusChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaFocusChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => CellAreaFocusChangedCallback
CellAreaFocusChangedCallback
cb
let wrapped' :: C_CellAreaFocusChangedCallback
wrapped' = (a -> CellAreaFocusChangedCallback)
-> C_CellAreaFocusChangedCallback
forall a.
GObject a =>
(a -> CellAreaFocusChangedCallback)
-> C_CellAreaFocusChangedCallback
wrap_CellAreaFocusChangedCallback a -> CellAreaFocusChangedCallback
wrapped
wrapped'' <- C_CellAreaFocusChangedCallback
-> IO (FunPtr C_CellAreaFocusChangedCallback)
mk_CellAreaFocusChangedCallback C_CellAreaFocusChangedCallback
wrapped'
connectSignalFunPtr obj "focus-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data CellAreaFocusChangedSignalInfo
instance SignalInfo CellAreaFocusChangedSignalInfo where
type HaskellCallbackType CellAreaFocusChangedSignalInfo = CellAreaFocusChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CellAreaFocusChangedCallback cb
cb'' <- mk_CellAreaFocusChangedCallback cb'
connectSignalFunPtr obj "focus-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea::focus-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#g:signal:focusChanged"})
#endif
type CellAreaRemoveEditableCallback =
Gtk.CellRenderer.CellRenderer
-> Gtk.CellEditable.CellEditable
-> IO ()
type C_CellAreaRemoveEditableCallback =
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
Ptr Gtk.CellEditable.CellEditable ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CellAreaRemoveEditableCallback :: C_CellAreaRemoveEditableCallback -> IO (FunPtr C_CellAreaRemoveEditableCallback)
wrap_CellAreaRemoveEditableCallback ::
GObject a => (a -> CellAreaRemoveEditableCallback) ->
C_CellAreaRemoveEditableCallback
wrap_CellAreaRemoveEditableCallback :: forall a.
GObject a =>
(a -> CellAreaRemoveEditableCallback)
-> C_CellAreaRemoveEditableCallback
wrap_CellAreaRemoveEditableCallback a -> CellAreaRemoveEditableCallback
gi'cb Ptr CellArea
gi'selfPtr Ptr CellRenderer
renderer Ptr CellEditable
editable Ptr ()
_ = do
renderer' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
renderer
editable' <- (newObject Gtk.CellEditable.CellEditable) editable
B.ManagedPtr.withNewObject gi'selfPtr $ \CellArea
gi'self -> a -> CellAreaRemoveEditableCallback
gi'cb (CellArea -> a
forall a b. Coercible a b => a -> b
Coerce.coerce CellArea
gi'self) CellRenderer
renderer' CellEditable
editable'
onCellAreaRemoveEditable :: (IsCellArea a, MonadIO m) => a -> ((?self :: a) => CellAreaRemoveEditableCallback) -> m SignalHandlerId
onCellAreaRemoveEditable :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a
-> ((?self::a) => CellAreaRemoveEditableCallback)
-> m SignalHandlerId
onCellAreaRemoveEditable a
obj (?self::a) => CellAreaRemoveEditableCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaRemoveEditableCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => CellAreaRemoveEditableCallback
CellAreaRemoveEditableCallback
cb
let wrapped' :: C_CellAreaRemoveEditableCallback
wrapped' = (a -> CellAreaRemoveEditableCallback)
-> C_CellAreaRemoveEditableCallback
forall a.
GObject a =>
(a -> CellAreaRemoveEditableCallback)
-> C_CellAreaRemoveEditableCallback
wrap_CellAreaRemoveEditableCallback a -> CellAreaRemoveEditableCallback
wrapped
wrapped'' <- C_CellAreaRemoveEditableCallback
-> IO (FunPtr C_CellAreaRemoveEditableCallback)
mk_CellAreaRemoveEditableCallback C_CellAreaRemoveEditableCallback
wrapped'
connectSignalFunPtr obj "remove-editable" wrapped'' SignalConnectBefore Nothing
afterCellAreaRemoveEditable :: (IsCellArea a, MonadIO m) => a -> ((?self :: a) => CellAreaRemoveEditableCallback) -> m SignalHandlerId
afterCellAreaRemoveEditable :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a
-> ((?self::a) => CellAreaRemoveEditableCallback)
-> m SignalHandlerId
afterCellAreaRemoveEditable a
obj (?self::a) => CellAreaRemoveEditableCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaRemoveEditableCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => CellAreaRemoveEditableCallback
CellAreaRemoveEditableCallback
cb
let wrapped' :: C_CellAreaRemoveEditableCallback
wrapped' = (a -> CellAreaRemoveEditableCallback)
-> C_CellAreaRemoveEditableCallback
forall a.
GObject a =>
(a -> CellAreaRemoveEditableCallback)
-> C_CellAreaRemoveEditableCallback
wrap_CellAreaRemoveEditableCallback a -> CellAreaRemoveEditableCallback
wrapped
wrapped'' <- C_CellAreaRemoveEditableCallback
-> IO (FunPtr C_CellAreaRemoveEditableCallback)
mk_CellAreaRemoveEditableCallback C_CellAreaRemoveEditableCallback
wrapped'
connectSignalFunPtr obj "remove-editable" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data CellAreaRemoveEditableSignalInfo
instance SignalInfo CellAreaRemoveEditableSignalInfo where
type HaskellCallbackType CellAreaRemoveEditableSignalInfo = CellAreaRemoveEditableCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CellAreaRemoveEditableCallback cb
cb'' <- mk_CellAreaRemoveEditableCallback cb'
connectSignalFunPtr obj "remove-editable" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea::remove-editable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#g:signal:removeEditable"})
#endif
getCellAreaEditWidget :: (MonadIO m, IsCellArea o) => o -> m (Maybe Gtk.CellEditable.CellEditable)
getCellAreaEditWidget :: forall (m :: * -> *) o.
(MonadIO m, IsCellArea o) =>
o -> m (Maybe CellEditable)
getCellAreaEditWidget o
obj = IO (Maybe CellEditable) -> m (Maybe CellEditable)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe CellEditable) -> m (Maybe CellEditable))
-> IO (Maybe CellEditable) -> m (Maybe CellEditable)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr CellEditable -> CellEditable)
-> IO (Maybe CellEditable)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"edit-widget" ManagedPtr CellEditable -> CellEditable
Gtk.CellEditable.CellEditable
#if defined(ENABLE_OVERLOADING)
data CellAreaEditWidgetPropertyInfo
instance AttrInfo CellAreaEditWidgetPropertyInfo where
type AttrAllowedOps CellAreaEditWidgetPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellAreaEditWidgetPropertyInfo = IsCellArea
type AttrSetTypeConstraint CellAreaEditWidgetPropertyInfo = (~) ()
type AttrTransferTypeConstraint CellAreaEditWidgetPropertyInfo = (~) ()
type AttrTransferType CellAreaEditWidgetPropertyInfo = ()
type AttrGetType CellAreaEditWidgetPropertyInfo = (Maybe Gtk.CellEditable.CellEditable)
type AttrLabel CellAreaEditWidgetPropertyInfo = "edit-widget"
type AttrOrigin CellAreaEditWidgetPropertyInfo = CellArea
attrGet = getCellAreaEditWidget
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.editWidget"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#g:attr:editWidget"
})
#endif
getCellAreaEditedCell :: (MonadIO m, IsCellArea o) => o -> m (Maybe Gtk.CellRenderer.CellRenderer)
getCellAreaEditedCell :: forall (m :: * -> *) o.
(MonadIO m, IsCellArea o) =>
o -> m (Maybe CellRenderer)
getCellAreaEditedCell o
obj = IO (Maybe CellRenderer) -> m (Maybe CellRenderer)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe CellRenderer) -> m (Maybe CellRenderer))
-> IO (Maybe CellRenderer) -> m (Maybe CellRenderer)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr CellRenderer -> CellRenderer)
-> IO (Maybe CellRenderer)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"edited-cell" ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer
#if defined(ENABLE_OVERLOADING)
data CellAreaEditedCellPropertyInfo
instance AttrInfo CellAreaEditedCellPropertyInfo where
type AttrAllowedOps CellAreaEditedCellPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellAreaEditedCellPropertyInfo = IsCellArea
type AttrSetTypeConstraint CellAreaEditedCellPropertyInfo = (~) ()
type AttrTransferTypeConstraint CellAreaEditedCellPropertyInfo = (~) ()
type AttrTransferType CellAreaEditedCellPropertyInfo = ()
type AttrGetType CellAreaEditedCellPropertyInfo = (Maybe Gtk.CellRenderer.CellRenderer)
type AttrLabel CellAreaEditedCellPropertyInfo = "edited-cell"
type AttrOrigin CellAreaEditedCellPropertyInfo = CellArea
attrGet = getCellAreaEditedCell
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.editedCell"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#g:attr:editedCell"
})
#endif
getCellAreaFocusCell :: (MonadIO m, IsCellArea o) => o -> m (Maybe Gtk.CellRenderer.CellRenderer)
getCellAreaFocusCell :: forall (m :: * -> *) o.
(MonadIO m, IsCellArea o) =>
o -> m (Maybe CellRenderer)
getCellAreaFocusCell o
obj = IO (Maybe CellRenderer) -> m (Maybe CellRenderer)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe CellRenderer) -> m (Maybe CellRenderer))
-> IO (Maybe CellRenderer) -> m (Maybe CellRenderer)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr CellRenderer -> CellRenderer)
-> IO (Maybe CellRenderer)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"focus-cell" ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer
setCellAreaFocusCell :: (MonadIO m, IsCellArea o, Gtk.CellRenderer.IsCellRenderer a) => o -> a -> m ()
setCellAreaFocusCell :: forall (m :: * -> *) o a.
(MonadIO m, IsCellArea o, IsCellRenderer a) =>
o -> a -> m ()
setCellAreaFocusCell o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"focus-cell" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructCellAreaFocusCell :: (IsCellArea o, MIO.MonadIO m, Gtk.CellRenderer.IsCellRenderer a) => a -> m (GValueConstruct o)
constructCellAreaFocusCell :: forall o (m :: * -> *) a.
(IsCellArea o, MonadIO m, IsCellRenderer a) =>
a -> m (GValueConstruct o)
constructCellAreaFocusCell a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"focus-cell" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearCellAreaFocusCell :: (MonadIO m, IsCellArea o) => o -> m ()
clearCellAreaFocusCell :: forall (m :: * -> *) o. (MonadIO m, IsCellArea o) => o -> m ()
clearCellAreaFocusCell o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe CellRenderer -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"focus-cell" (Maybe CellRenderer
forall a. Maybe a
Nothing :: Maybe Gtk.CellRenderer.CellRenderer)
#if defined(ENABLE_OVERLOADING)
data CellAreaFocusCellPropertyInfo
instance AttrInfo CellAreaFocusCellPropertyInfo where
type AttrAllowedOps CellAreaFocusCellPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellAreaFocusCellPropertyInfo = IsCellArea
type AttrSetTypeConstraint CellAreaFocusCellPropertyInfo = Gtk.CellRenderer.IsCellRenderer
type AttrTransferTypeConstraint CellAreaFocusCellPropertyInfo = Gtk.CellRenderer.IsCellRenderer
type AttrTransferType CellAreaFocusCellPropertyInfo = Gtk.CellRenderer.CellRenderer
type AttrGetType CellAreaFocusCellPropertyInfo = (Maybe Gtk.CellRenderer.CellRenderer)
type AttrLabel CellAreaFocusCellPropertyInfo = "focus-cell"
type AttrOrigin CellAreaFocusCellPropertyInfo = CellArea
attrGet = getCellAreaFocusCell
attrSet = setCellAreaFocusCell
attrTransfer _ v = do
unsafeCastTo Gtk.CellRenderer.CellRenderer v
attrConstruct = constructCellAreaFocusCell
attrClear = clearCellAreaFocusCell
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.focusCell"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#g:attr:focusCell"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CellArea
type instance O.AttributeList CellArea = CellAreaAttributeList
type CellAreaAttributeList = ('[ '("editWidget", CellAreaEditWidgetPropertyInfo), '("editedCell", CellAreaEditedCellPropertyInfo), '("focusCell", CellAreaFocusCellPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
cellAreaEditWidget :: AttrLabelProxy "editWidget"
cellAreaEditWidget = AttrLabelProxy
cellAreaEditedCell :: AttrLabelProxy "editedCell"
cellAreaEditedCell = AttrLabelProxy
cellAreaFocusCell :: AttrLabelProxy "focusCell"
cellAreaFocusCell = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CellArea = CellAreaSignalList
type CellAreaSignalList = ('[ '("addEditable", CellAreaAddEditableSignalInfo), '("applyAttributes", CellAreaApplyAttributesSignalInfo), '("focusChanged", CellAreaFocusChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("removeEditable", CellAreaRemoveEditableSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_cell_area_activate" gtk_cell_area_activate ::
Ptr CellArea ->
Ptr Gtk.CellAreaContext.CellAreaContext ->
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Rectangle.Rectangle ->
CUInt ->
CInt ->
IO CInt
{-# DEPRECATED cellAreaActivate ["(Since version 4.10)"] #-}
cellAreaActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) =>
a
-> b
-> c
-> Gdk.Rectangle.Rectangle
-> [Gtk.Flags.CellRendererState]
-> Bool
-> m Bool
cellAreaActivate :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellArea a, IsCellAreaContext b,
IsWidget c) =>
a -> b -> c -> Rectangle -> [CellRendererState] -> Bool -> m Bool
cellAreaActivate a
area b
context c
widget Rectangle
cellArea [CellRendererState]
flags Bool
editOnly = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
context' <- unsafeManagedPtrCastPtr context
widget' <- unsafeManagedPtrCastPtr widget
cellArea' <- unsafeManagedPtrGetPtr cellArea
let flags' = [CellRendererState] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [CellRendererState]
flags
let editOnly' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
editOnly
result <- gtk_cell_area_activate area' context' widget' cellArea' flags' editOnly'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr area
touchManagedPtr context
touchManagedPtr widget
touchManagedPtr cellArea
return result'
#if defined(ENABLE_OVERLOADING)
data CellAreaActivateMethodInfo
instance (signature ~ (b -> c -> Gdk.Rectangle.Rectangle -> [Gtk.Flags.CellRendererState] -> Bool -> m Bool), MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) => O.OverloadedMethod CellAreaActivateMethodInfo a signature where
overloadedMethod = cellAreaActivate
instance O.OverloadedMethodInfo CellAreaActivateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaActivate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaActivate"
})
#endif
foreign import ccall "gtk_cell_area_activate_cell" gtk_cell_area_activate_cell ::
Ptr CellArea ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.CellRenderer.CellRenderer ->
Ptr Gdk.Event.Event ->
Ptr Gdk.Rectangle.Rectangle ->
CUInt ->
IO CInt
{-# DEPRECATED cellAreaActivateCell ["(Since version 4.10)"] #-}
cellAreaActivateCell ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.Widget.IsWidget b, Gtk.CellRenderer.IsCellRenderer c, Gdk.Event.IsEvent d) =>
a
-> b
-> c
-> d
-> Gdk.Rectangle.Rectangle
-> [Gtk.Flags.CellRendererState]
-> m Bool
cellAreaActivateCell :: forall (m :: * -> *) a b c d.
(HasCallStack, MonadIO m, IsCellArea a, IsWidget b,
IsCellRenderer c, IsEvent d) =>
a -> b -> c -> d -> Rectangle -> [CellRendererState] -> m Bool
cellAreaActivateCell a
area b
widget c
renderer d
event Rectangle
cellArea [CellRendererState]
flags = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
widget' <- unsafeManagedPtrCastPtr widget
renderer' <- unsafeManagedPtrCastPtr renderer
event' <- unsafeManagedPtrCastPtr event
cellArea' <- unsafeManagedPtrGetPtr cellArea
let flags' = [CellRendererState] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [CellRendererState]
flags
result <- gtk_cell_area_activate_cell area' widget' renderer' event' cellArea' flags'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr area
touchManagedPtr widget
touchManagedPtr renderer
touchManagedPtr event
touchManagedPtr cellArea
return result'
#if defined(ENABLE_OVERLOADING)
data CellAreaActivateCellMethodInfo
instance (signature ~ (b -> c -> d -> Gdk.Rectangle.Rectangle -> [Gtk.Flags.CellRendererState] -> m Bool), MonadIO m, IsCellArea a, Gtk.Widget.IsWidget b, Gtk.CellRenderer.IsCellRenderer c, Gdk.Event.IsEvent d) => O.OverloadedMethod CellAreaActivateCellMethodInfo a signature where
overloadedMethod = cellAreaActivateCell
instance O.OverloadedMethodInfo CellAreaActivateCellMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaActivateCell",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaActivateCell"
})
#endif
foreign import ccall "gtk_cell_area_add" gtk_cell_area_add ::
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO ()
{-# DEPRECATED cellAreaAdd ["(Since version 4.10)"] #-}
cellAreaAdd ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> m ()
cellAreaAdd :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b) =>
a -> b -> m ()
cellAreaAdd a
area b
renderer = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
renderer' <- unsafeManagedPtrCastPtr renderer
gtk_cell_area_add area' renderer'
touchManagedPtr area
touchManagedPtr renderer
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaAddMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod CellAreaAddMethodInfo a signature where
overloadedMethod = cellAreaAdd
instance O.OverloadedMethodInfo CellAreaAddMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaAdd",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaAdd"
})
#endif
foreign import ccall "gtk_cell_area_add_focus_sibling" gtk_cell_area_add_focus_sibling ::
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO ()
{-# DEPRECATED cellAreaAddFocusSibling ["(Since version 4.10)"] #-}
cellAreaAddFocusSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b, Gtk.CellRenderer.IsCellRenderer c) =>
a
-> b
-> c
-> m ()
cellAreaAddFocusSibling :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b,
IsCellRenderer c) =>
a -> b -> c -> m ()
cellAreaAddFocusSibling a
area b
renderer c
sibling = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
renderer' <- unsafeManagedPtrCastPtr renderer
sibling' <- unsafeManagedPtrCastPtr sibling
gtk_cell_area_add_focus_sibling area' renderer' sibling'
touchManagedPtr area
touchManagedPtr renderer
touchManagedPtr sibling
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaAddFocusSiblingMethodInfo
instance (signature ~ (b -> c -> m ()), MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b, Gtk.CellRenderer.IsCellRenderer c) => O.OverloadedMethod CellAreaAddFocusSiblingMethodInfo a signature where
overloadedMethod = cellAreaAddFocusSibling
instance O.OverloadedMethodInfo CellAreaAddFocusSiblingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaAddFocusSibling",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaAddFocusSibling"
})
#endif
foreign import ccall "gtk_cell_area_apply_attributes" gtk_cell_area_apply_attributes ::
Ptr CellArea ->
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
CInt ->
CInt ->
IO ()
{-# DEPRECATED cellAreaApplyAttributes ["(Since version 4.10)"] #-}
cellAreaApplyAttributes ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.TreeModel.IsTreeModel b) =>
a
-> b
-> Gtk.TreeIter.TreeIter
-> Bool
-> Bool
-> m ()
cellAreaApplyAttributes :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellArea a, IsTreeModel b) =>
a -> b -> TreeIter -> Bool -> Bool -> m ()
cellAreaApplyAttributes a
area b
treeModel TreeIter
iter Bool
isExpander Bool
isExpanded = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
treeModel' <- unsafeManagedPtrCastPtr treeModel
iter' <- unsafeManagedPtrGetPtr iter
let isExpander' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
isExpander
let isExpanded' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
isExpanded
gtk_cell_area_apply_attributes area' treeModel' iter' isExpander' isExpanded'
touchManagedPtr area
touchManagedPtr treeModel
touchManagedPtr iter
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaApplyAttributesMethodInfo
instance (signature ~ (b -> Gtk.TreeIter.TreeIter -> Bool -> Bool -> m ()), MonadIO m, IsCellArea a, Gtk.TreeModel.IsTreeModel b) => O.OverloadedMethod CellAreaApplyAttributesMethodInfo a signature where
overloadedMethod = cellAreaApplyAttributes
instance O.OverloadedMethodInfo CellAreaApplyAttributesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaApplyAttributes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaApplyAttributes"
})
#endif
foreign import ccall "gtk_cell_area_attribute_connect" gtk_cell_area_attribute_connect ::
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
CString ->
Int32 ->
IO ()
{-# DEPRECATED cellAreaAttributeConnect ["(Since version 4.10)"] #-}
cellAreaAttributeConnect ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> T.Text
-> Int32
-> m ()
cellAreaAttributeConnect :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b) =>
a -> b -> Text -> Int32 -> m ()
cellAreaAttributeConnect a
area b
renderer Text
attribute Int32
column = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
renderer' <- unsafeManagedPtrCastPtr renderer
attribute' <- textToCString attribute
gtk_cell_area_attribute_connect area' renderer' attribute' column
touchManagedPtr area
touchManagedPtr renderer
freeMem attribute'
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaAttributeConnectMethodInfo
instance (signature ~ (b -> T.Text -> Int32 -> m ()), MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod CellAreaAttributeConnectMethodInfo a signature where
overloadedMethod = cellAreaAttributeConnect
instance O.OverloadedMethodInfo CellAreaAttributeConnectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaAttributeConnect",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaAttributeConnect"
})
#endif
foreign import ccall "gtk_cell_area_attribute_disconnect" gtk_cell_area_attribute_disconnect ::
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
CString ->
IO ()
{-# DEPRECATED cellAreaAttributeDisconnect ["(Since version 4.10)"] #-}
cellAreaAttributeDisconnect ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> T.Text
-> m ()
cellAreaAttributeDisconnect :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b) =>
a -> b -> Text -> m ()
cellAreaAttributeDisconnect a
area b
renderer Text
attribute = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
renderer' <- unsafeManagedPtrCastPtr renderer
attribute' <- textToCString attribute
gtk_cell_area_attribute_disconnect area' renderer' attribute'
touchManagedPtr area
touchManagedPtr renderer
freeMem attribute'
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaAttributeDisconnectMethodInfo
instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod CellAreaAttributeDisconnectMethodInfo a signature where
overloadedMethod = cellAreaAttributeDisconnect
instance O.OverloadedMethodInfo CellAreaAttributeDisconnectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaAttributeDisconnect",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaAttributeDisconnect"
})
#endif
foreign import ccall "gtk_cell_area_attribute_get_column" gtk_cell_area_attribute_get_column ::
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
CString ->
IO Int32
{-# DEPRECATED cellAreaAttributeGetColumn ["(Since version 4.10)"] #-}
cellAreaAttributeGetColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> T.Text
-> m Int32
cellAreaAttributeGetColumn :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b) =>
a -> b -> Text -> m Int32
cellAreaAttributeGetColumn a
area b
renderer Text
attribute = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
renderer' <- unsafeManagedPtrCastPtr renderer
attribute' <- textToCString attribute
result <- gtk_cell_area_attribute_get_column area' renderer' attribute'
touchManagedPtr area
touchManagedPtr renderer
freeMem attribute'
return result
#if defined(ENABLE_OVERLOADING)
data CellAreaAttributeGetColumnMethodInfo
instance (signature ~ (b -> T.Text -> m Int32), MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod CellAreaAttributeGetColumnMethodInfo a signature where
overloadedMethod = cellAreaAttributeGetColumn
instance O.OverloadedMethodInfo CellAreaAttributeGetColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaAttributeGetColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaAttributeGetColumn"
})
#endif
foreign import ccall "gtk_cell_area_cell_get_property" gtk_cell_area_cell_get_property ::
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
CString ->
Ptr GValue ->
IO ()
{-# DEPRECATED cellAreaCellGetProperty ["(Since version 4.10)"] #-}
cellAreaCellGetProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> T.Text
-> GValue
-> m ()
cellAreaCellGetProperty :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b) =>
a -> b -> Text -> GValue -> m ()
cellAreaCellGetProperty a
area b
renderer Text
propertyName GValue
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
renderer' <- unsafeManagedPtrCastPtr renderer
propertyName' <- textToCString propertyName
value' <- unsafeManagedPtrGetPtr value
gtk_cell_area_cell_get_property area' renderer' propertyName' value'
touchManagedPtr area
touchManagedPtr renderer
touchManagedPtr value
freeMem propertyName'
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaCellGetPropertyMethodInfo
instance (signature ~ (b -> T.Text -> GValue -> m ()), MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod CellAreaCellGetPropertyMethodInfo a signature where
overloadedMethod = cellAreaCellGetProperty
instance O.OverloadedMethodInfo CellAreaCellGetPropertyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaCellGetProperty",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaCellGetProperty"
})
#endif
foreign import ccall "gtk_cell_area_cell_set_property" gtk_cell_area_cell_set_property ::
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
CString ->
Ptr GValue ->
IO ()
{-# DEPRECATED cellAreaCellSetProperty ["(Since version 4.10)"] #-}
cellAreaCellSetProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> T.Text
-> GValue
-> m ()
cellAreaCellSetProperty :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b) =>
a -> b -> Text -> GValue -> m ()
cellAreaCellSetProperty a
area b
renderer Text
propertyName GValue
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
renderer' <- unsafeManagedPtrCastPtr renderer
propertyName' <- textToCString propertyName
value' <- unsafeManagedPtrGetPtr value
gtk_cell_area_cell_set_property area' renderer' propertyName' value'
touchManagedPtr area
touchManagedPtr renderer
touchManagedPtr value
freeMem propertyName'
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaCellSetPropertyMethodInfo
instance (signature ~ (b -> T.Text -> GValue -> m ()), MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod CellAreaCellSetPropertyMethodInfo a signature where
overloadedMethod = cellAreaCellSetProperty
instance O.OverloadedMethodInfo CellAreaCellSetPropertyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaCellSetProperty",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaCellSetProperty"
})
#endif
foreign import ccall "gtk_cell_area_copy_context" gtk_cell_area_copy_context ::
Ptr CellArea ->
Ptr Gtk.CellAreaContext.CellAreaContext ->
IO (Ptr Gtk.CellAreaContext.CellAreaContext)
{-# DEPRECATED cellAreaCopyContext ["(Since version 4.10)"] #-}
cellAreaCopyContext ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b) =>
a
-> b
-> m Gtk.CellAreaContext.CellAreaContext
cellAreaCopyContext :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellArea a, IsCellAreaContext b) =>
a -> b -> m CellAreaContext
cellAreaCopyContext a
area b
context = IO CellAreaContext -> m CellAreaContext
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CellAreaContext -> m CellAreaContext)
-> IO CellAreaContext -> m CellAreaContext
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
context' <- unsafeManagedPtrCastPtr context
result <- gtk_cell_area_copy_context area' context'
checkUnexpectedReturnNULL "cellAreaCopyContext" result
result' <- (wrapObject Gtk.CellAreaContext.CellAreaContext) result
touchManagedPtr area
touchManagedPtr context
return result'
#if defined(ENABLE_OVERLOADING)
data CellAreaCopyContextMethodInfo
instance (signature ~ (b -> m Gtk.CellAreaContext.CellAreaContext), MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b) => O.OverloadedMethod CellAreaCopyContextMethodInfo a signature where
overloadedMethod = cellAreaCopyContext
instance O.OverloadedMethodInfo CellAreaCopyContextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaCopyContext",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaCopyContext"
})
#endif
foreign import ccall "gtk_cell_area_create_context" gtk_cell_area_create_context ::
Ptr CellArea ->
IO (Ptr Gtk.CellAreaContext.CellAreaContext)
{-# DEPRECATED cellAreaCreateContext ["(Since version 4.10)"] #-}
cellAreaCreateContext ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a) =>
a
-> m Gtk.CellAreaContext.CellAreaContext
cellAreaCreateContext :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> m CellAreaContext
cellAreaCreateContext a
area = IO CellAreaContext -> m CellAreaContext
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CellAreaContext -> m CellAreaContext)
-> IO CellAreaContext -> m CellAreaContext
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
result <- gtk_cell_area_create_context area'
checkUnexpectedReturnNULL "cellAreaCreateContext" result
result' <- (wrapObject Gtk.CellAreaContext.CellAreaContext) result
touchManagedPtr area
return result'
#if defined(ENABLE_OVERLOADING)
data CellAreaCreateContextMethodInfo
instance (signature ~ (m Gtk.CellAreaContext.CellAreaContext), MonadIO m, IsCellArea a) => O.OverloadedMethod CellAreaCreateContextMethodInfo a signature where
overloadedMethod = cellAreaCreateContext
instance O.OverloadedMethodInfo CellAreaCreateContextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaCreateContext",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaCreateContext"
})
#endif
foreign import ccall "gtk_cell_area_event" gtk_cell_area_event ::
Ptr CellArea ->
Ptr Gtk.CellAreaContext.CellAreaContext ->
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Event.Event ->
Ptr Gdk.Rectangle.Rectangle ->
CUInt ->
IO Int32
{-# DEPRECATED cellAreaEvent ["(Since version 4.10)"] #-}
cellAreaEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c, Gdk.Event.IsEvent d) =>
a
-> b
-> c
-> d
-> Gdk.Rectangle.Rectangle
-> [Gtk.Flags.CellRendererState]
-> m Int32
cellAreaEvent :: forall (m :: * -> *) a b c d.
(HasCallStack, MonadIO m, IsCellArea a, IsCellAreaContext b,
IsWidget c, IsEvent d) =>
a -> b -> c -> d -> Rectangle -> [CellRendererState] -> m Int32
cellAreaEvent a
area b
context c
widget d
event Rectangle
cellArea [CellRendererState]
flags = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
context' <- unsafeManagedPtrCastPtr context
widget' <- unsafeManagedPtrCastPtr widget
event' <- unsafeManagedPtrCastPtr event
cellArea' <- unsafeManagedPtrGetPtr cellArea
let flags' = [CellRendererState] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [CellRendererState]
flags
result <- gtk_cell_area_event area' context' widget' event' cellArea' flags'
touchManagedPtr area
touchManagedPtr context
touchManagedPtr widget
touchManagedPtr event
touchManagedPtr cellArea
return result
#if defined(ENABLE_OVERLOADING)
data CellAreaEventMethodInfo
instance (signature ~ (b -> c -> d -> Gdk.Rectangle.Rectangle -> [Gtk.Flags.CellRendererState] -> m Int32), MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c, Gdk.Event.IsEvent d) => O.OverloadedMethod CellAreaEventMethodInfo a signature where
overloadedMethod = cellAreaEvent
instance O.OverloadedMethodInfo CellAreaEventMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaEvent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaEvent"
})
#endif
foreign import ccall "gtk_cell_area_focus" gtk_cell_area_focus ::
Ptr CellArea ->
CUInt ->
IO CInt
{-# DEPRECATED cellAreaFocus ["(Since version 4.10)"] #-}
cellAreaFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a) =>
a
-> Gtk.Enums.DirectionType
-> m Bool
cellAreaFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> DirectionType -> m Bool
cellAreaFocus a
area DirectionType
direction = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
let direction' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (DirectionType -> Int) -> DirectionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DirectionType -> Int
forall a. Enum a => a -> Int
fromEnum) DirectionType
direction
result <- gtk_cell_area_focus area' direction'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr area
return result'
#if defined(ENABLE_OVERLOADING)
data CellAreaFocusMethodInfo
instance (signature ~ (Gtk.Enums.DirectionType -> m Bool), MonadIO m, IsCellArea a) => O.OverloadedMethod CellAreaFocusMethodInfo a signature where
overloadedMethod = cellAreaFocus
instance O.OverloadedMethodInfo CellAreaFocusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaFocus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaFocus"
})
#endif
foreign import ccall "gtk_cell_area_foreach" gtk_cell_area_foreach ::
Ptr CellArea ->
FunPtr Gtk.Callbacks.C_CellCallback ->
Ptr () ->
IO ()
{-# DEPRECATED cellAreaForeach ["(Since version 4.10)"] #-}
cellAreaForeach ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a) =>
a
-> Gtk.Callbacks.CellCallback
-> m ()
cellAreaForeach :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> CellCallback -> m ()
cellAreaForeach a
area CellCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
callback' <- Gtk.Callbacks.mk_CellCallback (Gtk.Callbacks.wrap_CellCallback Nothing (Gtk.Callbacks.drop_closures_CellCallback callback))
let callbackData = Ptr a
forall a. Ptr a
nullPtr
gtk_cell_area_foreach area' callback' callbackData
safeFreeFunPtr $ castFunPtrToPtr callback'
touchManagedPtr area
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaForeachMethodInfo
instance (signature ~ (Gtk.Callbacks.CellCallback -> m ()), MonadIO m, IsCellArea a) => O.OverloadedMethod CellAreaForeachMethodInfo a signature where
overloadedMethod = cellAreaForeach
instance O.OverloadedMethodInfo CellAreaForeachMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaForeach",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaForeach"
})
#endif
foreign import ccall "gtk_cell_area_foreach_alloc" gtk_cell_area_foreach_alloc ::
Ptr CellArea ->
Ptr Gtk.CellAreaContext.CellAreaContext ->
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Rectangle.Rectangle ->
FunPtr Gtk.Callbacks.C_CellAllocCallback ->
Ptr () ->
IO ()
cellAreaForeachAlloc ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) =>
a
-> b
-> c
-> Gdk.Rectangle.Rectangle
-> Gdk.Rectangle.Rectangle
-> Gtk.Callbacks.CellAllocCallback
-> m ()
cellAreaForeachAlloc :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellArea a, IsCellAreaContext b,
IsWidget c) =>
a -> b -> c -> Rectangle -> Rectangle -> CellAllocCallback -> m ()
cellAreaForeachAlloc a
area b
context c
widget Rectangle
cellArea Rectangle
backgroundArea CellAllocCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
context' <- unsafeManagedPtrCastPtr context
widget' <- unsafeManagedPtrCastPtr widget
cellArea' <- unsafeManagedPtrGetPtr cellArea
backgroundArea' <- unsafeManagedPtrGetPtr backgroundArea
callback' <- Gtk.Callbacks.mk_CellAllocCallback (Gtk.Callbacks.wrap_CellAllocCallback Nothing (Gtk.Callbacks.drop_closures_CellAllocCallback callback))
let callbackData = Ptr a
forall a. Ptr a
nullPtr
gtk_cell_area_foreach_alloc area' context' widget' cellArea' backgroundArea' callback' callbackData
safeFreeFunPtr $ castFunPtrToPtr callback'
touchManagedPtr area
touchManagedPtr context
touchManagedPtr widget
touchManagedPtr cellArea
touchManagedPtr backgroundArea
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaForeachAllocMethodInfo
instance (signature ~ (b -> c -> Gdk.Rectangle.Rectangle -> Gdk.Rectangle.Rectangle -> Gtk.Callbacks.CellAllocCallback -> m ()), MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) => O.OverloadedMethod CellAreaForeachAllocMethodInfo a signature where
overloadedMethod = cellAreaForeachAlloc
instance O.OverloadedMethodInfo CellAreaForeachAllocMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaForeachAlloc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaForeachAlloc"
})
#endif
foreign import ccall "gtk_cell_area_get_cell_allocation" gtk_cell_area_get_cell_allocation ::
Ptr CellArea ->
Ptr Gtk.CellAreaContext.CellAreaContext ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.CellRenderer.CellRenderer ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
{-# DEPRECATED cellAreaGetCellAllocation ["(Since version 4.10)"] #-}
cellAreaGetCellAllocation ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c, Gtk.CellRenderer.IsCellRenderer d) =>
a
-> b
-> c
-> d
-> Gdk.Rectangle.Rectangle
-> m (Gdk.Rectangle.Rectangle)
cellAreaGetCellAllocation :: forall (m :: * -> *) a b c d.
(HasCallStack, MonadIO m, IsCellArea a, IsCellAreaContext b,
IsWidget c, IsCellRenderer d) =>
a -> b -> c -> d -> Rectangle -> m Rectangle
cellAreaGetCellAllocation a
area b
context c
widget d
renderer Rectangle
cellArea = IO Rectangle -> m Rectangle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rectangle -> m Rectangle) -> IO Rectangle -> m Rectangle
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
context' <- unsafeManagedPtrCastPtr context
widget' <- unsafeManagedPtrCastPtr widget
renderer' <- unsafeManagedPtrCastPtr renderer
cellArea' <- unsafeManagedPtrGetPtr cellArea
allocation <- SP.callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
gtk_cell_area_get_cell_allocation area' context' widget' renderer' cellArea' allocation
allocation' <- (wrapBoxed Gdk.Rectangle.Rectangle) allocation
touchManagedPtr area
touchManagedPtr context
touchManagedPtr widget
touchManagedPtr renderer
touchManagedPtr cellArea
return allocation'
#if defined(ENABLE_OVERLOADING)
data CellAreaGetCellAllocationMethodInfo
instance (signature ~ (b -> c -> d -> Gdk.Rectangle.Rectangle -> m (Gdk.Rectangle.Rectangle)), MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c, Gtk.CellRenderer.IsCellRenderer d) => O.OverloadedMethod CellAreaGetCellAllocationMethodInfo a signature where
overloadedMethod = cellAreaGetCellAllocation
instance O.OverloadedMethodInfo CellAreaGetCellAllocationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaGetCellAllocation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaGetCellAllocation"
})
#endif
foreign import ccall "gtk_cell_area_get_cell_at_position" gtk_cell_area_get_cell_at_position ::
Ptr CellArea ->
Ptr Gtk.CellAreaContext.CellAreaContext ->
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Rectangle.Rectangle ->
Int32 ->
Int32 ->
Ptr Gdk.Rectangle.Rectangle ->
IO (Ptr Gtk.CellRenderer.CellRenderer)
{-# DEPRECATED cellAreaGetCellAtPosition ["(Since version 4.10)"] #-}
cellAreaGetCellAtPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) =>
a
-> b
-> c
-> Gdk.Rectangle.Rectangle
-> Int32
-> Int32
-> m ((Gtk.CellRenderer.CellRenderer, Gdk.Rectangle.Rectangle))
cellAreaGetCellAtPosition :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellArea a, IsCellAreaContext b,
IsWidget c) =>
a
-> b
-> c
-> Rectangle
-> Int32
-> Int32
-> m (CellRenderer, Rectangle)
cellAreaGetCellAtPosition a
area b
context c
widget Rectangle
cellArea Int32
x Int32
y = IO (CellRenderer, Rectangle) -> m (CellRenderer, Rectangle)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (CellRenderer, Rectangle) -> m (CellRenderer, Rectangle))
-> IO (CellRenderer, Rectangle) -> m (CellRenderer, Rectangle)
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
context' <- unsafeManagedPtrCastPtr context
widget' <- unsafeManagedPtrCastPtr widget
cellArea' <- unsafeManagedPtrGetPtr cellArea
allocArea <- SP.callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
result <- gtk_cell_area_get_cell_at_position area' context' widget' cellArea' x y allocArea
checkUnexpectedReturnNULL "cellAreaGetCellAtPosition" result
result' <- (newObject Gtk.CellRenderer.CellRenderer) result
allocArea' <- (wrapBoxed Gdk.Rectangle.Rectangle) allocArea
touchManagedPtr area
touchManagedPtr context
touchManagedPtr widget
touchManagedPtr cellArea
return (result', allocArea')
#if defined(ENABLE_OVERLOADING)
data CellAreaGetCellAtPositionMethodInfo
instance (signature ~ (b -> c -> Gdk.Rectangle.Rectangle -> Int32 -> Int32 -> m ((Gtk.CellRenderer.CellRenderer, Gdk.Rectangle.Rectangle))), MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) => O.OverloadedMethod CellAreaGetCellAtPositionMethodInfo a signature where
overloadedMethod = cellAreaGetCellAtPosition
instance O.OverloadedMethodInfo CellAreaGetCellAtPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaGetCellAtPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaGetCellAtPosition"
})
#endif
foreign import ccall "gtk_cell_area_get_current_path_string" gtk_cell_area_get_current_path_string ::
Ptr CellArea ->
IO CString
cellAreaGetCurrentPathString ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a) =>
a
-> m T.Text
cellAreaGetCurrentPathString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> m Text
cellAreaGetCurrentPathString a
area = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
result <- gtk_cell_area_get_current_path_string area'
checkUnexpectedReturnNULL "cellAreaGetCurrentPathString" result
result' <- cstringToText result
touchManagedPtr area
return result'
#if defined(ENABLE_OVERLOADING)
data CellAreaGetCurrentPathStringMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsCellArea a) => O.OverloadedMethod CellAreaGetCurrentPathStringMethodInfo a signature where
overloadedMethod = cellAreaGetCurrentPathString
instance O.OverloadedMethodInfo CellAreaGetCurrentPathStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaGetCurrentPathString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaGetCurrentPathString"
})
#endif
foreign import ccall "gtk_cell_area_get_edit_widget" gtk_cell_area_get_edit_widget ::
Ptr CellArea ->
IO (Ptr Gtk.CellEditable.CellEditable)
{-# DEPRECATED cellAreaGetEditWidget ["(Since version 4.10)"] #-}
cellAreaGetEditWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a) =>
a
-> m (Maybe Gtk.CellEditable.CellEditable)
cellAreaGetEditWidget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> m (Maybe CellEditable)
cellAreaGetEditWidget a
area = IO (Maybe CellEditable) -> m (Maybe CellEditable)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe CellEditable) -> m (Maybe CellEditable))
-> IO (Maybe CellEditable) -> m (Maybe CellEditable)
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
result <- gtk_cell_area_get_edit_widget area'
maybeResult <- convertIfNonNull result $ \Ptr CellEditable
result' -> do
result'' <- ((ManagedPtr CellEditable -> CellEditable)
-> Ptr CellEditable -> IO CellEditable
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellEditable -> CellEditable
Gtk.CellEditable.CellEditable) Ptr CellEditable
result'
return result''
touchManagedPtr area
return maybeResult
#if defined(ENABLE_OVERLOADING)
data CellAreaGetEditWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.CellEditable.CellEditable)), MonadIO m, IsCellArea a) => O.OverloadedMethod CellAreaGetEditWidgetMethodInfo a signature where
overloadedMethod = cellAreaGetEditWidget
instance O.OverloadedMethodInfo CellAreaGetEditWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaGetEditWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaGetEditWidget"
})
#endif
foreign import ccall "gtk_cell_area_get_edited_cell" gtk_cell_area_get_edited_cell ::
Ptr CellArea ->
IO (Ptr Gtk.CellRenderer.CellRenderer)
{-# DEPRECATED cellAreaGetEditedCell ["(Since version 4.10)"] #-}
cellAreaGetEditedCell ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a) =>
a
-> m (Maybe Gtk.CellRenderer.CellRenderer)
cellAreaGetEditedCell :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> m (Maybe CellRenderer)
cellAreaGetEditedCell a
area = IO (Maybe CellRenderer) -> m (Maybe CellRenderer)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe CellRenderer) -> m (Maybe CellRenderer))
-> IO (Maybe CellRenderer) -> m (Maybe CellRenderer)
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
result <- gtk_cell_area_get_edited_cell area'
maybeResult <- convertIfNonNull result $ \Ptr CellRenderer
result' -> do
result'' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
result'
return result''
touchManagedPtr area
return maybeResult
#if defined(ENABLE_OVERLOADING)
data CellAreaGetEditedCellMethodInfo
instance (signature ~ (m (Maybe Gtk.CellRenderer.CellRenderer)), MonadIO m, IsCellArea a) => O.OverloadedMethod CellAreaGetEditedCellMethodInfo a signature where
overloadedMethod = cellAreaGetEditedCell
instance O.OverloadedMethodInfo CellAreaGetEditedCellMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaGetEditedCell",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaGetEditedCell"
})
#endif
foreign import ccall "gtk_cell_area_get_focus_cell" gtk_cell_area_get_focus_cell ::
Ptr CellArea ->
IO (Ptr Gtk.CellRenderer.CellRenderer)
{-# DEPRECATED cellAreaGetFocusCell ["(Since version 4.10)"] #-}
cellAreaGetFocusCell ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a) =>
a
-> m (Maybe Gtk.CellRenderer.CellRenderer)
cellAreaGetFocusCell :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> m (Maybe CellRenderer)
cellAreaGetFocusCell a
area = IO (Maybe CellRenderer) -> m (Maybe CellRenderer)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe CellRenderer) -> m (Maybe CellRenderer))
-> IO (Maybe CellRenderer) -> m (Maybe CellRenderer)
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
result <- gtk_cell_area_get_focus_cell area'
maybeResult <- convertIfNonNull result $ \Ptr CellRenderer
result' -> do
result'' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
result'
return result''
touchManagedPtr area
return maybeResult
#if defined(ENABLE_OVERLOADING)
data CellAreaGetFocusCellMethodInfo
instance (signature ~ (m (Maybe Gtk.CellRenderer.CellRenderer)), MonadIO m, IsCellArea a) => O.OverloadedMethod CellAreaGetFocusCellMethodInfo a signature where
overloadedMethod = cellAreaGetFocusCell
instance O.OverloadedMethodInfo CellAreaGetFocusCellMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaGetFocusCell",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaGetFocusCell"
})
#endif
foreign import ccall "gtk_cell_area_get_focus_from_sibling" gtk_cell_area_get_focus_from_sibling ::
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO (Ptr Gtk.CellRenderer.CellRenderer)
{-# DEPRECATED cellAreaGetFocusFromSibling ["(Since version 4.10)"] #-}
cellAreaGetFocusFromSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> m (Maybe Gtk.CellRenderer.CellRenderer)
cellAreaGetFocusFromSibling :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b) =>
a -> b -> m (Maybe CellRenderer)
cellAreaGetFocusFromSibling a
area b
renderer = IO (Maybe CellRenderer) -> m (Maybe CellRenderer)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe CellRenderer) -> m (Maybe CellRenderer))
-> IO (Maybe CellRenderer) -> m (Maybe CellRenderer)
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
renderer' <- unsafeManagedPtrCastPtr renderer
result <- gtk_cell_area_get_focus_from_sibling area' renderer'
maybeResult <- convertIfNonNull result $ \Ptr CellRenderer
result' -> do
result'' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
result'
return result''
touchManagedPtr area
touchManagedPtr renderer
return maybeResult
#if defined(ENABLE_OVERLOADING)
data CellAreaGetFocusFromSiblingMethodInfo
instance (signature ~ (b -> m (Maybe Gtk.CellRenderer.CellRenderer)), MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod CellAreaGetFocusFromSiblingMethodInfo a signature where
overloadedMethod = cellAreaGetFocusFromSibling
instance O.OverloadedMethodInfo CellAreaGetFocusFromSiblingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaGetFocusFromSibling",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaGetFocusFromSibling"
})
#endif
foreign import ccall "gtk_cell_area_get_focus_siblings" gtk_cell_area_get_focus_siblings ::
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO (Ptr (GList (Ptr Gtk.CellRenderer.CellRenderer)))
{-# DEPRECATED cellAreaGetFocusSiblings ["(Since version 4.10)"] #-}
cellAreaGetFocusSiblings ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> m [Gtk.CellRenderer.CellRenderer]
cellAreaGetFocusSiblings :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b) =>
a -> b -> m [CellRenderer]
cellAreaGetFocusSiblings a
area b
renderer = IO [CellRenderer] -> m [CellRenderer]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [CellRenderer] -> m [CellRenderer])
-> IO [CellRenderer] -> m [CellRenderer]
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
renderer' <- unsafeManagedPtrCastPtr renderer
result <- gtk_cell_area_get_focus_siblings area' renderer'
result' <- unpackGList result
result'' <- mapM (newObject Gtk.CellRenderer.CellRenderer) result'
touchManagedPtr area
touchManagedPtr renderer
return result''
#if defined(ENABLE_OVERLOADING)
data CellAreaGetFocusSiblingsMethodInfo
instance (signature ~ (b -> m [Gtk.CellRenderer.CellRenderer]), MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod CellAreaGetFocusSiblingsMethodInfo a signature where
overloadedMethod = cellAreaGetFocusSiblings
instance O.OverloadedMethodInfo CellAreaGetFocusSiblingsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaGetFocusSiblings",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaGetFocusSiblings"
})
#endif
foreign import ccall "gtk_cell_area_get_preferred_height" gtk_cell_area_get_preferred_height ::
Ptr CellArea ->
Ptr Gtk.CellAreaContext.CellAreaContext ->
Ptr Gtk.Widget.Widget ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
{-# DEPRECATED cellAreaGetPreferredHeight ["(Since version 4.10)"] #-}
cellAreaGetPreferredHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) =>
a
-> b
-> c
-> m ((Int32, Int32))
cellAreaGetPreferredHeight :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellArea a, IsCellAreaContext b,
IsWidget c) =>
a -> b -> c -> m (Int32, Int32)
cellAreaGetPreferredHeight a
area b
context c
widget = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
context' <- unsafeManagedPtrCastPtr context
widget' <- unsafeManagedPtrCastPtr widget
minimumHeight <- allocMem :: IO (Ptr Int32)
naturalHeight <- allocMem :: IO (Ptr Int32)
gtk_cell_area_get_preferred_height area' context' widget' minimumHeight naturalHeight
minimumHeight' <- peek minimumHeight
naturalHeight' <- peek naturalHeight
touchManagedPtr area
touchManagedPtr context
touchManagedPtr widget
freeMem minimumHeight
freeMem naturalHeight
return (minimumHeight', naturalHeight')
#if defined(ENABLE_OVERLOADING)
data CellAreaGetPreferredHeightMethodInfo
instance (signature ~ (b -> c -> m ((Int32, Int32))), MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) => O.OverloadedMethod CellAreaGetPreferredHeightMethodInfo a signature where
overloadedMethod = cellAreaGetPreferredHeight
instance O.OverloadedMethodInfo CellAreaGetPreferredHeightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaGetPreferredHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaGetPreferredHeight"
})
#endif
foreign import ccall "gtk_cell_area_get_preferred_height_for_width" gtk_cell_area_get_preferred_height_for_width ::
Ptr CellArea ->
Ptr Gtk.CellAreaContext.CellAreaContext ->
Ptr Gtk.Widget.Widget ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
{-# DEPRECATED cellAreaGetPreferredHeightForWidth ["(Since version 4.10)"] #-}
cellAreaGetPreferredHeightForWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) =>
a
-> b
-> c
-> Int32
-> m ((Int32, Int32))
cellAreaGetPreferredHeightForWidth :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellArea a, IsCellAreaContext b,
IsWidget c) =>
a -> b -> c -> Int32 -> m (Int32, Int32)
cellAreaGetPreferredHeightForWidth a
area b
context c
widget Int32
width = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
context' <- unsafeManagedPtrCastPtr context
widget' <- unsafeManagedPtrCastPtr widget
minimumHeight <- allocMem :: IO (Ptr Int32)
naturalHeight <- allocMem :: IO (Ptr Int32)
gtk_cell_area_get_preferred_height_for_width area' context' widget' width minimumHeight naturalHeight
minimumHeight' <- peek minimumHeight
naturalHeight' <- peek naturalHeight
touchManagedPtr area
touchManagedPtr context
touchManagedPtr widget
freeMem minimumHeight
freeMem naturalHeight
return (minimumHeight', naturalHeight')
#if defined(ENABLE_OVERLOADING)
data CellAreaGetPreferredHeightForWidthMethodInfo
instance (signature ~ (b -> c -> Int32 -> m ((Int32, Int32))), MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) => O.OverloadedMethod CellAreaGetPreferredHeightForWidthMethodInfo a signature where
overloadedMethod = cellAreaGetPreferredHeightForWidth
instance O.OverloadedMethodInfo CellAreaGetPreferredHeightForWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaGetPreferredHeightForWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaGetPreferredHeightForWidth"
})
#endif
foreign import ccall "gtk_cell_area_get_preferred_width" gtk_cell_area_get_preferred_width ::
Ptr CellArea ->
Ptr Gtk.CellAreaContext.CellAreaContext ->
Ptr Gtk.Widget.Widget ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
{-# DEPRECATED cellAreaGetPreferredWidth ["(Since version 4.10)"] #-}
cellAreaGetPreferredWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) =>
a
-> b
-> c
-> m ((Int32, Int32))
cellAreaGetPreferredWidth :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellArea a, IsCellAreaContext b,
IsWidget c) =>
a -> b -> c -> m (Int32, Int32)
cellAreaGetPreferredWidth a
area b
context c
widget = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
context' <- unsafeManagedPtrCastPtr context
widget' <- unsafeManagedPtrCastPtr widget
minimumWidth <- allocMem :: IO (Ptr Int32)
naturalWidth <- allocMem :: IO (Ptr Int32)
gtk_cell_area_get_preferred_width area' context' widget' minimumWidth naturalWidth
minimumWidth' <- peek minimumWidth
naturalWidth' <- peek naturalWidth
touchManagedPtr area
touchManagedPtr context
touchManagedPtr widget
freeMem minimumWidth
freeMem naturalWidth
return (minimumWidth', naturalWidth')
#if defined(ENABLE_OVERLOADING)
data CellAreaGetPreferredWidthMethodInfo
instance (signature ~ (b -> c -> m ((Int32, Int32))), MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) => O.OverloadedMethod CellAreaGetPreferredWidthMethodInfo a signature where
overloadedMethod = cellAreaGetPreferredWidth
instance O.OverloadedMethodInfo CellAreaGetPreferredWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaGetPreferredWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaGetPreferredWidth"
})
#endif
foreign import ccall "gtk_cell_area_get_preferred_width_for_height" gtk_cell_area_get_preferred_width_for_height ::
Ptr CellArea ->
Ptr Gtk.CellAreaContext.CellAreaContext ->
Ptr Gtk.Widget.Widget ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
{-# DEPRECATED cellAreaGetPreferredWidthForHeight ["(Since version 4.10)"] #-}
cellAreaGetPreferredWidthForHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) =>
a
-> b
-> c
-> Int32
-> m ((Int32, Int32))
cellAreaGetPreferredWidthForHeight :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellArea a, IsCellAreaContext b,
IsWidget c) =>
a -> b -> c -> Int32 -> m (Int32, Int32)
cellAreaGetPreferredWidthForHeight a
area b
context c
widget Int32
height = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
context' <- unsafeManagedPtrCastPtr context
widget' <- unsafeManagedPtrCastPtr widget
minimumWidth <- allocMem :: IO (Ptr Int32)
naturalWidth <- allocMem :: IO (Ptr Int32)
gtk_cell_area_get_preferred_width_for_height area' context' widget' height minimumWidth naturalWidth
minimumWidth' <- peek minimumWidth
naturalWidth' <- peek naturalWidth
touchManagedPtr area
touchManagedPtr context
touchManagedPtr widget
freeMem minimumWidth
freeMem naturalWidth
return (minimumWidth', naturalWidth')
#if defined(ENABLE_OVERLOADING)
data CellAreaGetPreferredWidthForHeightMethodInfo
instance (signature ~ (b -> c -> Int32 -> m ((Int32, Int32))), MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) => O.OverloadedMethod CellAreaGetPreferredWidthForHeightMethodInfo a signature where
overloadedMethod = cellAreaGetPreferredWidthForHeight
instance O.OverloadedMethodInfo CellAreaGetPreferredWidthForHeightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaGetPreferredWidthForHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaGetPreferredWidthForHeight"
})
#endif
foreign import ccall "gtk_cell_area_get_request_mode" gtk_cell_area_get_request_mode ::
Ptr CellArea ->
IO CUInt
cellAreaGetRequestMode ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a) =>
a
-> m Gtk.Enums.SizeRequestMode
cellAreaGetRequestMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> m SizeRequestMode
cellAreaGetRequestMode a
area = IO SizeRequestMode -> m SizeRequestMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SizeRequestMode -> m SizeRequestMode)
-> IO SizeRequestMode -> m SizeRequestMode
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
result <- gtk_cell_area_get_request_mode area'
let result' = (Int -> SizeRequestMode
forall a. Enum a => Int -> a
toEnum (Int -> SizeRequestMode)
-> (CUInt -> Int) -> CUInt -> SizeRequestMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
touchManagedPtr area
return result'
#if defined(ENABLE_OVERLOADING)
data CellAreaGetRequestModeMethodInfo
instance (signature ~ (m Gtk.Enums.SizeRequestMode), MonadIO m, IsCellArea a) => O.OverloadedMethod CellAreaGetRequestModeMethodInfo a signature where
overloadedMethod = cellAreaGetRequestMode
instance O.OverloadedMethodInfo CellAreaGetRequestModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaGetRequestMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaGetRequestMode"
})
#endif
foreign import ccall "gtk_cell_area_has_renderer" gtk_cell_area_has_renderer ::
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO CInt
{-# DEPRECATED cellAreaHasRenderer ["(Since version 4.10)"] #-}
cellAreaHasRenderer ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> m Bool
cellAreaHasRenderer :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b) =>
a -> b -> m Bool
cellAreaHasRenderer a
area b
renderer = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
renderer' <- unsafeManagedPtrCastPtr renderer
result <- gtk_cell_area_has_renderer area' renderer'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr area
touchManagedPtr renderer
return result'
#if defined(ENABLE_OVERLOADING)
data CellAreaHasRendererMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod CellAreaHasRendererMethodInfo a signature where
overloadedMethod = cellAreaHasRenderer
instance O.OverloadedMethodInfo CellAreaHasRendererMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaHasRenderer",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaHasRenderer"
})
#endif
foreign import ccall "gtk_cell_area_inner_cell_area" gtk_cell_area_inner_cell_area ::
Ptr CellArea ->
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
{-# DEPRECATED cellAreaInnerCellArea ["(Since version 4.10)"] #-}
cellAreaInnerCellArea ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Gdk.Rectangle.Rectangle
-> m (Gdk.Rectangle.Rectangle)
cellAreaInnerCellArea :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellArea a, IsWidget b) =>
a -> b -> Rectangle -> m Rectangle
cellAreaInnerCellArea a
area b
widget Rectangle
cellArea = IO Rectangle -> m Rectangle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rectangle -> m Rectangle) -> IO Rectangle -> m Rectangle
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
widget' <- unsafeManagedPtrCastPtr widget
cellArea' <- unsafeManagedPtrGetPtr cellArea
innerArea <- SP.callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
gtk_cell_area_inner_cell_area area' widget' cellArea' innerArea
innerArea' <- (wrapBoxed Gdk.Rectangle.Rectangle) innerArea
touchManagedPtr area
touchManagedPtr widget
touchManagedPtr cellArea
return innerArea'
#if defined(ENABLE_OVERLOADING)
data CellAreaInnerCellAreaMethodInfo
instance (signature ~ (b -> Gdk.Rectangle.Rectangle -> m (Gdk.Rectangle.Rectangle)), MonadIO m, IsCellArea a, Gtk.Widget.IsWidget b) => O.OverloadedMethod CellAreaInnerCellAreaMethodInfo a signature where
overloadedMethod = cellAreaInnerCellArea
instance O.OverloadedMethodInfo CellAreaInnerCellAreaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaInnerCellArea",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaInnerCellArea"
})
#endif
foreign import ccall "gtk_cell_area_is_activatable" gtk_cell_area_is_activatable ::
Ptr CellArea ->
IO CInt
{-# DEPRECATED cellAreaIsActivatable ["(Since version 4.10)"] #-}
cellAreaIsActivatable ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a) =>
a
-> m Bool
cellAreaIsActivatable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> m Bool
cellAreaIsActivatable a
area = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
result <- gtk_cell_area_is_activatable area'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr area
return result'
#if defined(ENABLE_OVERLOADING)
data CellAreaIsActivatableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCellArea a) => O.OverloadedMethod CellAreaIsActivatableMethodInfo a signature where
overloadedMethod = cellAreaIsActivatable
instance O.OverloadedMethodInfo CellAreaIsActivatableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaIsActivatable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaIsActivatable"
})
#endif
foreign import ccall "gtk_cell_area_is_focus_sibling" gtk_cell_area_is_focus_sibling ::
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO CInt
{-# DEPRECATED cellAreaIsFocusSibling ["(Since version 4.10)"] #-}
cellAreaIsFocusSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b, Gtk.CellRenderer.IsCellRenderer c) =>
a
-> b
-> c
-> m Bool
cellAreaIsFocusSibling :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b,
IsCellRenderer c) =>
a -> b -> c -> m Bool
cellAreaIsFocusSibling a
area b
renderer c
sibling = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
renderer' <- unsafeManagedPtrCastPtr renderer
sibling' <- unsafeManagedPtrCastPtr sibling
result <- gtk_cell_area_is_focus_sibling area' renderer' sibling'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr area
touchManagedPtr renderer
touchManagedPtr sibling
return result'
#if defined(ENABLE_OVERLOADING)
data CellAreaIsFocusSiblingMethodInfo
instance (signature ~ (b -> c -> m Bool), MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b, Gtk.CellRenderer.IsCellRenderer c) => O.OverloadedMethod CellAreaIsFocusSiblingMethodInfo a signature where
overloadedMethod = cellAreaIsFocusSibling
instance O.OverloadedMethodInfo CellAreaIsFocusSiblingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaIsFocusSibling",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaIsFocusSibling"
})
#endif
foreign import ccall "gtk_cell_area_remove" gtk_cell_area_remove ::
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO ()
{-# DEPRECATED cellAreaRemove ["(Since version 4.10)"] #-}
cellAreaRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> m ()
cellAreaRemove :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b) =>
a -> b -> m ()
cellAreaRemove a
area b
renderer = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
renderer' <- unsafeManagedPtrCastPtr renderer
gtk_cell_area_remove area' renderer'
touchManagedPtr area
touchManagedPtr renderer
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaRemoveMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod CellAreaRemoveMethodInfo a signature where
overloadedMethod = cellAreaRemove
instance O.OverloadedMethodInfo CellAreaRemoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaRemove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaRemove"
})
#endif
foreign import ccall "gtk_cell_area_remove_focus_sibling" gtk_cell_area_remove_focus_sibling ::
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO ()
{-# DEPRECATED cellAreaRemoveFocusSibling ["(Since version 4.10)"] #-}
cellAreaRemoveFocusSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b, Gtk.CellRenderer.IsCellRenderer c) =>
a
-> b
-> c
-> m ()
cellAreaRemoveFocusSibling :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b,
IsCellRenderer c) =>
a -> b -> c -> m ()
cellAreaRemoveFocusSibling a
area b
renderer c
sibling = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
renderer' <- unsafeManagedPtrCastPtr renderer
sibling' <- unsafeManagedPtrCastPtr sibling
gtk_cell_area_remove_focus_sibling area' renderer' sibling'
touchManagedPtr area
touchManagedPtr renderer
touchManagedPtr sibling
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaRemoveFocusSiblingMethodInfo
instance (signature ~ (b -> c -> m ()), MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b, Gtk.CellRenderer.IsCellRenderer c) => O.OverloadedMethod CellAreaRemoveFocusSiblingMethodInfo a signature where
overloadedMethod = cellAreaRemoveFocusSibling
instance O.OverloadedMethodInfo CellAreaRemoveFocusSiblingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaRemoveFocusSibling",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaRemoveFocusSibling"
})
#endif
foreign import ccall "gtk_cell_area_request_renderer" gtk_cell_area_request_renderer ::
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
CUInt ->
Ptr Gtk.Widget.Widget ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
{-# DEPRECATED cellAreaRequestRenderer ["(Since version 4.10)"] #-}
cellAreaRequestRenderer ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b, Gtk.Widget.IsWidget c) =>
a
-> b
-> Gtk.Enums.Orientation
-> c
-> Int32
-> m ((Int32, Int32))
cellAreaRequestRenderer :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b,
IsWidget c) =>
a -> b -> Orientation -> c -> Int32 -> m (Int32, Int32)
cellAreaRequestRenderer a
area b
renderer Orientation
orientation c
widget Int32
forSize = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
renderer' <- unsafeManagedPtrCastPtr renderer
let orientation' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Orientation -> Int) -> Orientation -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Orientation -> Int
forall a. Enum a => a -> Int
fromEnum) Orientation
orientation
widget' <- unsafeManagedPtrCastPtr widget
minimumSize <- allocMem :: IO (Ptr Int32)
naturalSize <- allocMem :: IO (Ptr Int32)
gtk_cell_area_request_renderer area' renderer' orientation' widget' forSize minimumSize naturalSize
minimumSize' <- peek minimumSize
naturalSize' <- peek naturalSize
touchManagedPtr area
touchManagedPtr renderer
touchManagedPtr widget
freeMem minimumSize
freeMem naturalSize
return (minimumSize', naturalSize')
#if defined(ENABLE_OVERLOADING)
data CellAreaRequestRendererMethodInfo
instance (signature ~ (b -> Gtk.Enums.Orientation -> c -> Int32 -> m ((Int32, Int32))), MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b, Gtk.Widget.IsWidget c) => O.OverloadedMethod CellAreaRequestRendererMethodInfo a signature where
overloadedMethod = cellAreaRequestRenderer
instance O.OverloadedMethodInfo CellAreaRequestRendererMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaRequestRenderer",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaRequestRenderer"
})
#endif
foreign import ccall "gtk_cell_area_set_focus_cell" gtk_cell_area_set_focus_cell ::
Ptr CellArea ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO ()
{-# DEPRECATED cellAreaSetFocusCell ["(Since version 4.10)"] #-}
cellAreaSetFocusCell ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> Maybe (b)
-> m ()
cellAreaSetFocusCell :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b) =>
a -> Maybe b -> m ()
cellAreaSetFocusCell a
area Maybe b
renderer = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
maybeRenderer <- case renderer of
Maybe b
Nothing -> Ptr CellRenderer -> IO (Ptr CellRenderer)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
forall a. Ptr a
FP.nullPtr
Just b
jRenderer -> do
jRenderer' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jRenderer
return jRenderer'
gtk_cell_area_set_focus_cell area' maybeRenderer
touchManagedPtr area
whenJust renderer touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaSetFocusCellMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod CellAreaSetFocusCellMethodInfo a signature where
overloadedMethod = cellAreaSetFocusCell
instance O.OverloadedMethodInfo CellAreaSetFocusCellMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaSetFocusCell",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaSetFocusCell"
})
#endif
foreign import ccall "gtk_cell_area_snapshot" gtk_cell_area_snapshot ::
Ptr CellArea ->
Ptr Gtk.CellAreaContext.CellAreaContext ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Snapshot.Snapshot ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Rectangle.Rectangle ->
CUInt ->
CInt ->
IO ()
{-# DEPRECATED cellAreaSnapshot ["(Since version 4.10)"] #-}
cellAreaSnapshot ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c, Gtk.Snapshot.IsSnapshot d) =>
a
-> b
-> c
-> d
-> Gdk.Rectangle.Rectangle
-> Gdk.Rectangle.Rectangle
-> [Gtk.Flags.CellRendererState]
-> Bool
-> m ()
cellAreaSnapshot :: forall (m :: * -> *) a b c d.
(HasCallStack, MonadIO m, IsCellArea a, IsCellAreaContext b,
IsWidget c, IsSnapshot d) =>
a
-> b
-> c
-> d
-> Rectangle
-> Rectangle
-> [CellRendererState]
-> Bool
-> m ()
cellAreaSnapshot a
area b
context c
widget d
snapshot Rectangle
backgroundArea Rectangle
cellArea [CellRendererState]
flags Bool
paintFocus = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
context' <- unsafeManagedPtrCastPtr context
widget' <- unsafeManagedPtrCastPtr widget
snapshot' <- unsafeManagedPtrCastPtr snapshot
backgroundArea' <- unsafeManagedPtrGetPtr backgroundArea
cellArea' <- unsafeManagedPtrGetPtr cellArea
let flags' = [CellRendererState] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [CellRendererState]
flags
let paintFocus' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
paintFocus
gtk_cell_area_snapshot area' context' widget' snapshot' backgroundArea' cellArea' flags' paintFocus'
touchManagedPtr area
touchManagedPtr context
touchManagedPtr widget
touchManagedPtr snapshot
touchManagedPtr backgroundArea
touchManagedPtr cellArea
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaSnapshotMethodInfo
instance (signature ~ (b -> c -> d -> Gdk.Rectangle.Rectangle -> Gdk.Rectangle.Rectangle -> [Gtk.Flags.CellRendererState] -> Bool -> m ()), MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c, Gtk.Snapshot.IsSnapshot d) => O.OverloadedMethod CellAreaSnapshotMethodInfo a signature where
overloadedMethod = cellAreaSnapshot
instance O.OverloadedMethodInfo CellAreaSnapshotMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaSnapshot",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaSnapshot"
})
#endif
foreign import ccall "gtk_cell_area_stop_editing" gtk_cell_area_stop_editing ::
Ptr CellArea ->
CInt ->
IO ()
{-# DEPRECATED cellAreaStopEditing ["(Since version 4.10)"] #-}
cellAreaStopEditing ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a) =>
a
-> Bool
-> m ()
cellAreaStopEditing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> Bool -> m ()
cellAreaStopEditing a
area Bool
canceled = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
let canceled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
canceled
gtk_cell_area_stop_editing area' canceled'
touchManagedPtr area
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaStopEditingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCellArea a) => O.OverloadedMethod CellAreaStopEditingMethodInfo a signature where
overloadedMethod = cellAreaStopEditing
instance O.OverloadedMethodInfo CellAreaStopEditingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaStopEditing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaStopEditing"
})
#endif