{-# 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)
CellAreaRenderMethodInfo ,
#endif
cellAreaRender ,
#if defined(ENABLE_OVERLOADING)
CellAreaRequestRendererMethodInfo ,
#endif
cellAreaRequestRenderer ,
#if defined(ENABLE_OVERLOADING)
CellAreaSetFocusCellMethodInfo ,
#endif
cellAreaSetFocusCell ,
#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
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 GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gdk.Unions.Event as Gdk.Event
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.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter
newtype CellArea = CellArea (SP.ManagedPtr CellArea)
deriving (CellArea -> CellArea -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CellArea -> CellArea -> Bool
$c/= :: CellArea -> CellArea -> Bool
== :: CellArea -> CellArea -> Bool
$c== :: 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. 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 = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr CellArea)
gvalueSet_ Ptr GValue
gv (P.Just CellArea
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CellArea
obj (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 CellArea
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr CellArea)
if Ptr CellArea
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr CellArea -> CellArea
CellArea Ptr CellArea
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
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 "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
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 "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveCellAreaMethod "copyContext" o = CellAreaCopyContextMethodInfo
ResolveCellAreaMethod "createContext" o = CellAreaCreateContextMethodInfo
ResolveCellAreaMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveCellAreaMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveCellAreaMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
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 "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveCellAreaMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCellAreaMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCellAreaMethod "remove" o = CellAreaRemoveMethodInfo
ResolveCellAreaMethod "removeFocusSibling" o = CellAreaRemoveFocusSiblingMethodInfo
ResolveCellAreaMethod "render" o = CellAreaRenderMethodInfo
ResolveCellAreaMethod "reorder" o = Gtk.CellLayout.CellLayoutReorderMethodInfo
ResolveCellAreaMethod "requestRenderer" o = CellAreaRequestRendererMethodInfo
ResolveCellAreaMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
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 "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 "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveCellAreaMethod "getName" o = Gtk.Buildable.BuildableGetNameMethodInfo
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 "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveCellAreaMethod "setCellDataFunc" o = Gtk.CellLayout.CellLayoutSetCellDataFuncMethodInfo
ResolveCellAreaMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCellAreaMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCellAreaMethod "setFocusCell" o = CellAreaSetFocusCellMethodInfo
ResolveCellAreaMethod "setName" o = Gtk.Buildable.BuildableSetNameMethodInfo
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
CellRenderer
renderer' <- (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
CellEditable
editable' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellEditable -> CellEditable
Gtk.CellEditable.CellEditable) Ptr CellEditable
editable
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Rectangle
cellArea forall a b. (a -> b) -> a -> b
$ \Rectangle
cellArea' -> do
Text
path' <- HasCallStack => CString -> IO Text
cstringToText CString
path
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr CellArea
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \CellArea
gi'self -> a -> CellAreaAddEditableCallback
gi'cb (coerce :: 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaAddEditableCallback
wrapped a
self = let ?self = a
self in (?self::a) => CellAreaAddEditableCallback
cb
let wrapped' :: C_CellAreaAddEditableCallback
wrapped' = forall a.
GObject a =>
(a -> CellAreaAddEditableCallback) -> C_CellAreaAddEditableCallback
wrap_CellAreaAddEditableCallback a -> CellAreaAddEditableCallback
wrapped
FunPtr C_CellAreaAddEditableCallback
wrapped'' <- C_CellAreaAddEditableCallback
-> IO (FunPtr C_CellAreaAddEditableCallback)
mk_CellAreaAddEditableCallback C_CellAreaAddEditableCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"add-editable" FunPtr C_CellAreaAddEditableCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaAddEditableCallback
wrapped a
self = let ?self = a
self in (?self::a) => CellAreaAddEditableCallback
cb
let wrapped' :: C_CellAreaAddEditableCallback
wrapped' = forall a.
GObject a =>
(a -> CellAreaAddEditableCallback) -> C_CellAreaAddEditableCallback
wrap_CellAreaAddEditableCallback a -> CellAreaAddEditableCallback
wrapped
FunPtr C_CellAreaAddEditableCallback
wrapped'' <- C_CellAreaAddEditableCallback
-> IO (FunPtr C_CellAreaAddEditableCallback)
mk_CellAreaAddEditableCallback C_CellAreaAddEditableCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"add-editable" FunPtr C_CellAreaAddEditableCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
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-gtk-3.0.39/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
TreeModel
model' <- (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
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TreeIter
iter forall a b. (a -> b) -> a -> b
$ \TreeIter
iter' -> do
let isExpander' :: Bool
isExpander' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
isExpander
let isExpanded' :: Bool
isExpanded' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
isExpanded
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr CellArea
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \CellArea
gi'self -> a -> CellAreaApplyAttributesCallback
gi'cb (coerce :: 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaApplyAttributesCallback
wrapped a
self = let ?self = a
self in (?self::a) => CellAreaApplyAttributesCallback
cb
let wrapped' :: C_CellAreaApplyAttributesCallback
wrapped' = forall a.
GObject a =>
(a -> CellAreaApplyAttributesCallback)
-> C_CellAreaApplyAttributesCallback
wrap_CellAreaApplyAttributesCallback a -> CellAreaApplyAttributesCallback
wrapped
FunPtr C_CellAreaApplyAttributesCallback
wrapped'' <- C_CellAreaApplyAttributesCallback
-> IO (FunPtr C_CellAreaApplyAttributesCallback)
mk_CellAreaApplyAttributesCallback C_CellAreaApplyAttributesCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"apply-attributes" FunPtr C_CellAreaApplyAttributesCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaApplyAttributesCallback
wrapped a
self = let ?self = a
self in (?self::a) => CellAreaApplyAttributesCallback
cb
let wrapped' :: C_CellAreaApplyAttributesCallback
wrapped' = forall a.
GObject a =>
(a -> CellAreaApplyAttributesCallback)
-> C_CellAreaApplyAttributesCallback
wrap_CellAreaApplyAttributesCallback a -> CellAreaApplyAttributesCallback
wrapped
FunPtr C_CellAreaApplyAttributesCallback
wrapped'' <- C_CellAreaApplyAttributesCallback
-> IO (FunPtr C_CellAreaApplyAttributesCallback)
mk_CellAreaApplyAttributesCallback C_CellAreaApplyAttributesCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"apply-attributes" FunPtr C_CellAreaApplyAttributesCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
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-gtk-3.0.39/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
CellRenderer
renderer' <- (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
Text
path' <- HasCallStack => CString -> IO Text
cstringToText CString
path
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr CellArea
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \CellArea
gi'self -> a -> CellAreaFocusChangedCallback
gi'cb (coerce :: 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaFocusChangedCallback
wrapped a
self = let ?self = a
self in (?self::a) => CellAreaFocusChangedCallback
cb
let wrapped' :: C_CellAreaFocusChangedCallback
wrapped' = forall a.
GObject a =>
(a -> CellAreaFocusChangedCallback)
-> C_CellAreaFocusChangedCallback
wrap_CellAreaFocusChangedCallback a -> CellAreaFocusChangedCallback
wrapped
FunPtr C_CellAreaFocusChangedCallback
wrapped'' <- C_CellAreaFocusChangedCallback
-> IO (FunPtr C_CellAreaFocusChangedCallback)
mk_CellAreaFocusChangedCallback C_CellAreaFocusChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"focus-changed" FunPtr C_CellAreaFocusChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaFocusChangedCallback
wrapped a
self = let ?self = a
self in (?self::a) => CellAreaFocusChangedCallback
cb
let wrapped' :: C_CellAreaFocusChangedCallback
wrapped' = forall a.
GObject a =>
(a -> CellAreaFocusChangedCallback)
-> C_CellAreaFocusChangedCallback
wrap_CellAreaFocusChangedCallback a -> CellAreaFocusChangedCallback
wrapped
FunPtr C_CellAreaFocusChangedCallback
wrapped'' <- C_CellAreaFocusChangedCallback
-> IO (FunPtr C_CellAreaFocusChangedCallback)
mk_CellAreaFocusChangedCallback C_CellAreaFocusChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"focus-changed" FunPtr C_CellAreaFocusChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
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-gtk-3.0.39/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
CellRenderer
renderer' <- (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
CellEditable
editable' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellEditable -> CellEditable
Gtk.CellEditable.CellEditable) Ptr CellEditable
editable
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr CellArea
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \CellArea
gi'self -> a -> CellAreaRemoveEditableCallback
gi'cb (coerce :: 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaRemoveEditableCallback
wrapped a
self = let ?self = a
self in (?self::a) => CellAreaRemoveEditableCallback
cb
let wrapped' :: C_CellAreaRemoveEditableCallback
wrapped' = forall a.
GObject a =>
(a -> CellAreaRemoveEditableCallback)
-> C_CellAreaRemoveEditableCallback
wrap_CellAreaRemoveEditableCallback a -> CellAreaRemoveEditableCallback
wrapped
FunPtr C_CellAreaRemoveEditableCallback
wrapped'' <- C_CellAreaRemoveEditableCallback
-> IO (FunPtr C_CellAreaRemoveEditableCallback)
mk_CellAreaRemoveEditableCallback C_CellAreaRemoveEditableCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"remove-editable" FunPtr C_CellAreaRemoveEditableCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellAreaRemoveEditableCallback
wrapped a
self = let ?self = a
self in (?self::a) => CellAreaRemoveEditableCallback
cb
let wrapped' :: C_CellAreaRemoveEditableCallback
wrapped' = forall a.
GObject a =>
(a -> CellAreaRemoveEditableCallback)
-> C_CellAreaRemoveEditableCallback
wrap_CellAreaRemoveEditableCallback a -> CellAreaRemoveEditableCallback
wrapped
FunPtr C_CellAreaRemoveEditableCallback
wrapped'' <- C_CellAreaRemoveEditableCallback
-> IO (FunPtr C_CellAreaRemoveEditableCallback)
mk_CellAreaRemoveEditableCallback C_CellAreaRemoveEditableCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"remove-editable" FunPtr C_CellAreaRemoveEditableCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
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-gtk-3.0.39/docs/GI-Gtk-Objects-CellArea.html#g:signal:removeEditable"})
#endif
getCellAreaEditWidget :: (MonadIO m, IsCellArea o) => o -> m Gtk.CellEditable.CellEditable
getCellAreaEditWidget :: forall (m :: * -> *) o.
(MonadIO m, IsCellArea o) =>
o -> m CellEditable
getCellAreaEditWidget o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getCellAreaEditWidget" forall a b. (a -> b) -> a -> b
$ 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 = 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-gtk-3.0.39/docs/GI-Gtk-Objects-CellArea.html#g:attr:editWidget"
})
#endif
getCellAreaEditedCell :: (MonadIO m, IsCellArea o) => o -> m Gtk.CellRenderer.CellRenderer
getCellAreaEditedCell :: forall (m :: * -> *) o.
(MonadIO m, IsCellArea o) =>
o -> m CellRenderer
getCellAreaEditedCell o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getCellAreaEditedCell" forall a b. (a -> b) -> a -> b
$ 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 = 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-gtk-3.0.39/docs/GI-Gtk-Objects-CellArea.html#g:attr:editedCell"
})
#endif
getCellAreaFocusCell :: (MonadIO m, IsCellArea o) => o -> m Gtk.CellRenderer.CellRenderer
getCellAreaFocusCell :: forall (m :: * -> *) o.
(MonadIO m, IsCellArea o) =>
o -> m CellRenderer
getCellAreaFocusCell o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getCellAreaFocusCell" forall a b. (a -> b) -> a -> b
$ 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"focus-cell" (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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"focus-cell" (forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data CellAreaFocusCellPropertyInfo
instance AttrInfo CellAreaFocusCellPropertyInfo where
type AttrAllowedOps CellAreaFocusCellPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
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 = 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 = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.focusCell"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/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
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Rectangle
cellArea' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [CellRendererState]
flags
let editOnly' :: CInt
editOnly' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
editOnly
CInt
result <- Ptr CellArea
-> Ptr CellAreaContext
-> Ptr Widget
-> Ptr Rectangle
-> CUInt
-> CInt
-> IO CInt
gtk_cell_area_activate Ptr CellArea
area' Ptr CellAreaContext
context' Ptr Widget
widget' Ptr Rectangle
cellArea' CUInt
flags' CInt
editOnly'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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-gtk-3.0.39/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
cellAreaActivateCell ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.Widget.IsWidget b, Gtk.CellRenderer.IsCellRenderer c) =>
a
-> b
-> c
-> Gdk.Event.Event
-> Gdk.Rectangle.Rectangle
-> [Gtk.Flags.CellRendererState]
-> m Bool
cellAreaActivateCell :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellArea a, IsWidget b,
IsCellRenderer c) =>
a -> b -> c -> Event -> Rectangle -> [CellRendererState] -> m Bool
cellAreaActivateCell a
area b
widget c
renderer Event
event Rectangle
cellArea [CellRendererState]
flags = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr Widget
widget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
renderer
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Rectangle
cellArea' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [CellRendererState]
flags
CInt
result <- Ptr CellArea
-> Ptr Widget
-> Ptr CellRenderer
-> Ptr Event
-> Ptr Rectangle
-> CUInt
-> IO CInt
gtk_cell_area_activate_cell Ptr CellArea
area' Ptr Widget
widget' Ptr CellRenderer
renderer' Ptr Event
event' Ptr Rectangle
cellArea' CUInt
flags'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
renderer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CellAreaActivateCellMethodInfo
instance (signature ~ (b -> c -> Gdk.Event.Event -> Gdk.Rectangle.Rectangle -> [Gtk.Flags.CellRendererState] -> m Bool), MonadIO m, IsCellArea a, Gtk.Widget.IsWidget b, Gtk.CellRenderer.IsCellRenderer c) => 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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
Ptr CellArea -> Ptr CellRenderer -> IO ()
gtk_cell_area_add Ptr CellArea
area' Ptr CellRenderer
renderer'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
Ptr CellRenderer
sibling' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
sibling
Ptr CellArea -> Ptr CellRenderer -> Ptr CellRenderer -> IO ()
gtk_cell_area_add_focus_sibling Ptr CellArea
area' Ptr CellRenderer
renderer' Ptr CellRenderer
sibling'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
sibling
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr TreeModel
treeModel' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
treeModel
Ptr TreeIter
iter' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
iter
let isExpander' :: CInt
isExpander' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
isExpander
let isExpanded' :: CInt
isExpanded' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
isExpanded
Ptr CellArea
-> Ptr TreeModel -> Ptr TreeIter -> CInt -> CInt -> IO ()
gtk_cell_area_apply_attributes Ptr CellArea
area' Ptr TreeModel
treeModel' Ptr TreeIter
iter' CInt
isExpander' CInt
isExpanded'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
treeModel
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreeIter
iter
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
CString
attribute' <- Text -> IO CString
textToCString Text
attribute
Ptr CellArea -> Ptr CellRenderer -> CString -> Int32 -> IO ()
gtk_cell_area_attribute_connect Ptr CellArea
area' Ptr CellRenderer
renderer' CString
attribute' Int32
column
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
forall a. Ptr a -> IO ()
freeMem CString
attribute'
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
CString
attribute' <- Text -> IO CString
textToCString Text
attribute
Ptr CellArea -> Ptr CellRenderer -> CString -> IO ()
gtk_cell_area_attribute_disconnect Ptr CellArea
area' Ptr CellRenderer
renderer' CString
attribute'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
forall a. Ptr a -> IO ()
freeMem CString
attribute'
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.39/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
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
CString
attribute' <- Text -> IO CString
textToCString Text
attribute
Int32
result <- Ptr CellArea -> Ptr CellRenderer -> CString -> IO Int32
gtk_cell_area_attribute_get_column Ptr CellArea
area' Ptr CellRenderer
renderer' CString
attribute'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
forall a. Ptr a -> IO ()
freeMem CString
attribute'
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
Ptr GValue
value' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
Ptr CellArea -> Ptr CellRenderer -> CString -> Ptr GValue -> IO ()
gtk_cell_area_cell_get_property Ptr CellArea
area' Ptr CellRenderer
renderer' CString
propertyName' Ptr GValue
value'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
Ptr GValue
value' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
Ptr CellArea -> Ptr CellRenderer -> CString -> Ptr GValue -> IO ()
gtk_cell_area_cell_set_property Ptr CellArea
area' Ptr CellRenderer
renderer' CString
propertyName' Ptr GValue
value'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.39/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)
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr CellAreaContext
result <- Ptr CellArea -> Ptr CellAreaContext -> IO (Ptr CellAreaContext)
gtk_cell_area_copy_context Ptr CellArea
area' Ptr CellAreaContext
context'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAreaCopyContext" Ptr CellAreaContext
result
CellAreaContext
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr CellAreaContext -> CellAreaContext
Gtk.CellAreaContext.CellAreaContext) Ptr CellAreaContext
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
forall (m :: * -> *) a. Monad m => a -> m a
return CellAreaContext
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-gtk-3.0.39/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)
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
result <- Ptr CellArea -> IO (Ptr CellAreaContext)
gtk_cell_area_create_context Ptr CellArea
area'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAreaCreateContext" Ptr CellAreaContext
result
CellAreaContext
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr CellAreaContext -> CellAreaContext
Gtk.CellAreaContext.CellAreaContext) Ptr CellAreaContext
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall (m :: * -> *) a. Monad m => a -> m a
return CellAreaContext
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-gtk-3.0.39/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
cellAreaEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) =>
a
-> b
-> c
-> Gdk.Event.Event
-> Gdk.Rectangle.Rectangle
-> [Gtk.Flags.CellRendererState]
-> m Int32
cellAreaEvent :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellArea a, IsCellAreaContext b,
IsWidget c) =>
a -> b -> c -> Event -> Rectangle -> [CellRendererState] -> m Int32
cellAreaEvent a
area b
context c
widget Event
event Rectangle
cellArea [CellRendererState]
flags = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Rectangle
cellArea' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [CellRendererState]
flags
Int32
result <- Ptr CellArea
-> Ptr CellAreaContext
-> Ptr Widget
-> Ptr Event
-> Ptr Rectangle
-> CUInt
-> IO Int32
gtk_cell_area_event Ptr CellArea
area' Ptr CellAreaContext
context' Ptr Widget
widget' Ptr Event
event' Ptr Rectangle
cellArea' CUInt
flags'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data CellAreaEventMethodInfo
instance (signature ~ (b -> c -> Gdk.Event.Event -> Gdk.Rectangle.Rectangle -> [Gtk.Flags.CellRendererState] -> m Int32), MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) => 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-gtk-3.0.39/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
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
let direction' :: CUInt
direction' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) DirectionType
direction
CInt
result <- Ptr CellArea -> CUInt -> IO CInt
gtk_cell_area_focus Ptr CellArea
area' CUInt
direction'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
FunPtr C_CellCallback
callback' <- C_CellCallback -> IO (FunPtr C_CellCallback)
Gtk.Callbacks.mk_CellCallback (Maybe (Ptr (FunPtr C_CellCallback))
-> CellCallback_WithClosures -> C_CellCallback
Gtk.Callbacks.wrap_CellCallback forall a. Maybe a
Nothing (CellCallback -> CellCallback_WithClosures
Gtk.Callbacks.drop_closures_CellCallback CellCallback
callback))
let callbackData :: Ptr a
callbackData = forall a. Ptr a
nullPtr
Ptr CellArea -> FunPtr C_CellCallback -> Ptr () -> IO ()
gtk_cell_area_foreach Ptr CellArea
area' FunPtr C_CellCallback
callback' forall a. Ptr a
callbackData
forall a. Ptr a -> IO ()
safeFreeFunPtr forall a b. (a -> b) -> a -> b
$ forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_CellCallback
callback'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Rectangle
cellArea' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
Ptr Rectangle
backgroundArea' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
backgroundArea
FunPtr C_CellAllocCallback
callback' <- C_CellAllocCallback -> IO (FunPtr C_CellAllocCallback)
Gtk.Callbacks.mk_CellAllocCallback (Maybe (Ptr (FunPtr C_CellAllocCallback))
-> CellAllocCallback_WithClosures -> C_CellAllocCallback
Gtk.Callbacks.wrap_CellAllocCallback forall a. Maybe a
Nothing (CellAllocCallback -> CellAllocCallback_WithClosures
Gtk.Callbacks.drop_closures_CellAllocCallback CellAllocCallback
callback))
let callbackData :: Ptr a
callbackData = forall a. Ptr a
nullPtr
Ptr CellArea
-> Ptr CellAreaContext
-> Ptr Widget
-> Ptr Rectangle
-> Ptr Rectangle
-> FunPtr C_CellAllocCallback
-> Ptr ()
-> IO ()
gtk_cell_area_foreach_alloc Ptr CellArea
area' Ptr CellAreaContext
context' Ptr Widget
widget' Ptr Rectangle
cellArea' Ptr Rectangle
backgroundArea' FunPtr C_CellAllocCallback
callback' forall a. Ptr a
callbackData
forall a. Ptr a -> IO ()
safeFreeFunPtr forall a b. (a -> b) -> a -> b
$ forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_CellAllocCallback
callback'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
backgroundArea
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr d
renderer
Ptr Rectangle
cellArea' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
Ptr Rectangle
allocation <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Gdk.Rectangle.Rectangle)
Ptr CellArea
-> Ptr CellAreaContext
-> Ptr Widget
-> Ptr CellRenderer
-> Ptr Rectangle
-> Ptr Rectangle
-> IO ()
gtk_cell_area_get_cell_allocation Ptr CellArea
area' Ptr CellAreaContext
context' Ptr Widget
widget' Ptr CellRenderer
renderer' Ptr Rectangle
cellArea' Ptr Rectangle
allocation
Rectangle
allocation' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
allocation
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr d
renderer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
forall (m :: * -> *) a. Monad m => a -> m a
return Rectangle
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-gtk-3.0.39/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)
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Rectangle
cellArea' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
Ptr Rectangle
allocArea <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Gdk.Rectangle.Rectangle)
Ptr CellRenderer
result <- Ptr CellArea
-> Ptr CellAreaContext
-> Ptr Widget
-> Ptr Rectangle
-> Int32
-> Int32
-> Ptr Rectangle
-> IO (Ptr CellRenderer)
gtk_cell_area_get_cell_at_position Ptr CellArea
area' Ptr CellAreaContext
context' Ptr Widget
widget' Ptr Rectangle
cellArea' Int32
x Int32
y Ptr Rectangle
allocArea
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAreaGetCellAtPosition" Ptr CellRenderer
result
CellRenderer
result' <- (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
Rectangle
allocArea' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
allocArea
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
forall (m :: * -> *) a. Monad m => a -> m a
return (CellRenderer
result', Rectangle
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-gtk-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
CString
result <- Ptr CellArea -> IO CString
gtk_cell_area_get_current_path_string Ptr CellArea
area'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAreaGetCurrentPathString" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall (m :: * -> *) a. Monad m => a -> m a
return Text
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-gtk-3.0.39/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)
cellAreaGetEditWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a) =>
a
-> m Gtk.CellEditable.CellEditable
cellAreaGetEditWidget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> m CellEditable
cellAreaGetEditWidget a
area = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellEditable
result <- Ptr CellArea -> IO (Ptr CellEditable)
gtk_cell_area_get_edit_widget Ptr CellArea
area'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAreaGetEditWidget" Ptr CellEditable
result
CellEditable
result' <- (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
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall (m :: * -> *) a. Monad m => a -> m a
return CellEditable
result'
#if defined(ENABLE_OVERLOADING)
data CellAreaGetEditWidgetMethodInfo
instance (signature ~ (m 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-gtk-3.0.39/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)
cellAreaGetEditedCell ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a) =>
a
-> m Gtk.CellRenderer.CellRenderer
cellAreaGetEditedCell :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> m CellRenderer
cellAreaGetEditedCell a
area = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
result <- Ptr CellArea -> IO (Ptr CellRenderer)
gtk_cell_area_get_edited_cell Ptr CellArea
area'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAreaGetEditedCell" Ptr CellRenderer
result
CellRenderer
result' <- (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
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall (m :: * -> *) a. Monad m => a -> m a
return CellRenderer
result'
#if defined(ENABLE_OVERLOADING)
data CellAreaGetEditedCellMethodInfo
instance (signature ~ (m 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-gtk-3.0.39/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)
cellAreaGetFocusCell ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a) =>
a
-> m Gtk.CellRenderer.CellRenderer
cellAreaGetFocusCell :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> m CellRenderer
cellAreaGetFocusCell a
area = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
result <- Ptr CellArea -> IO (Ptr CellRenderer)
gtk_cell_area_get_focus_cell Ptr CellArea
area'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAreaGetFocusCell" Ptr CellRenderer
result
CellRenderer
result' <- (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
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall (m :: * -> *) a. Monad m => a -> m a
return CellRenderer
result'
#if defined(ENABLE_OVERLOADING)
data CellAreaGetFocusCellMethodInfo
instance (signature ~ (m 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-gtk-3.0.39/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)
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
Ptr CellRenderer
result <- Ptr CellArea -> Ptr CellRenderer -> IO (Ptr CellRenderer)
gtk_cell_area_get_focus_from_sibling Ptr CellArea
area' Ptr CellRenderer
renderer'
Maybe CellRenderer
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CellRenderer
result forall a b. (a -> b) -> a -> b
$ \Ptr CellRenderer
result' -> do
CellRenderer
result'' <- (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'
forall (m :: * -> *) a. Monad m => a -> m a
return CellRenderer
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CellRenderer
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-gtk-3.0.39/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)))
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
Ptr (GList (Ptr CellRenderer))
result <- Ptr CellArea
-> Ptr CellRenderer -> IO (Ptr (GList (Ptr CellRenderer)))
gtk_cell_area_get_focus_siblings Ptr CellArea
area' Ptr CellRenderer
renderer'
[Ptr CellRenderer]
result' <- forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr CellRenderer))
result
[CellRenderer]
result'' <- forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM (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'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
forall (m :: * -> *) a. Monad m => a -> m a
return [CellRenderer]
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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Int32
minimumHeight <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
naturalHeight <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr CellArea
-> Ptr CellAreaContext
-> Ptr Widget
-> Ptr Int32
-> Ptr Int32
-> IO ()
gtk_cell_area_get_preferred_height Ptr CellArea
area' Ptr CellAreaContext
context' Ptr Widget
widget' Ptr Int32
minimumHeight Ptr Int32
naturalHeight
Int32
minimumHeight' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minimumHeight
Int32
naturalHeight' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
naturalHeight
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minimumHeight
forall a. Ptr a -> IO ()
freeMem Ptr Int32
naturalHeight
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
minimumHeight', Int32
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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Int32
minimumHeight <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
naturalHeight <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr CellArea
-> Ptr CellAreaContext
-> Ptr Widget
-> Int32
-> Ptr Int32
-> Ptr Int32
-> IO ()
gtk_cell_area_get_preferred_height_for_width Ptr CellArea
area' Ptr CellAreaContext
context' Ptr Widget
widget' Int32
width Ptr Int32
minimumHeight Ptr Int32
naturalHeight
Int32
minimumHeight' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minimumHeight
Int32
naturalHeight' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
naturalHeight
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minimumHeight
forall a. Ptr a -> IO ()
freeMem Ptr Int32
naturalHeight
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
minimumHeight', Int32
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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Int32
minimumWidth <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
naturalWidth <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr CellArea
-> Ptr CellAreaContext
-> Ptr Widget
-> Ptr Int32
-> Ptr Int32
-> IO ()
gtk_cell_area_get_preferred_width Ptr CellArea
area' Ptr CellAreaContext
context' Ptr Widget
widget' Ptr Int32
minimumWidth Ptr Int32
naturalWidth
Int32
minimumWidth' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minimumWidth
Int32
naturalWidth' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
naturalWidth
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minimumWidth
forall a. Ptr a -> IO ()
freeMem Ptr Int32
naturalWidth
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
minimumWidth', Int32
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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Int32
minimumWidth <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
naturalWidth <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr CellArea
-> Ptr CellAreaContext
-> Ptr Widget
-> Int32
-> Ptr Int32
-> Ptr Int32
-> IO ()
gtk_cell_area_get_preferred_width_for_height Ptr CellArea
area' Ptr CellAreaContext
context' Ptr Widget
widget' Int32
height Ptr Int32
minimumWidth Ptr Int32
naturalWidth
Int32
minimumWidth' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minimumWidth
Int32
naturalWidth' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
naturalWidth
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minimumWidth
forall a. Ptr a -> IO ()
freeMem Ptr Int32
naturalWidth
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
minimumWidth', Int32
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-gtk-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
CUInt
result <- Ptr CellArea -> IO CUInt
gtk_cell_area_get_request_mode Ptr CellArea
area'
let result' :: SizeRequestMode
result' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall (m :: * -> *) a. Monad m => a -> m a
return SizeRequestMode
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-gtk-3.0.39/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
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
CInt
result <- Ptr CellArea -> Ptr CellRenderer -> IO CInt
gtk_cell_area_has_renderer Ptr CellArea
area' Ptr CellRenderer
renderer'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr Widget
widget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr Rectangle
cellArea' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
Ptr Rectangle
innerArea <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Gdk.Rectangle.Rectangle)
Ptr CellArea
-> Ptr Widget -> Ptr Rectangle -> Ptr Rectangle -> IO ()
gtk_cell_area_inner_cell_area Ptr CellArea
area' Ptr Widget
widget' Ptr Rectangle
cellArea' Ptr Rectangle
innerArea
Rectangle
innerArea' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
innerArea
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
forall (m :: * -> *) a. Monad m => a -> m a
return Rectangle
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-gtk-3.0.39/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
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
CInt
result <- Ptr CellArea -> IO CInt
gtk_cell_area_is_activatable Ptr CellArea
area'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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-gtk-3.0.39/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
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
Ptr CellRenderer
sibling' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
sibling
CInt
result <- Ptr CellArea -> Ptr CellRenderer -> Ptr CellRenderer -> IO CInt
gtk_cell_area_is_focus_sibling Ptr CellArea
area' Ptr CellRenderer
renderer' Ptr CellRenderer
sibling'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
sibling
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
Ptr CellArea -> Ptr CellRenderer -> IO ()
gtk_cell_area_remove Ptr CellArea
area' Ptr CellRenderer
renderer'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.39/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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
Ptr CellRenderer
sibling' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
sibling
Ptr CellArea -> Ptr CellRenderer -> Ptr CellRenderer -> IO ()
gtk_cell_area_remove_focus_sibling Ptr CellArea
area' Ptr CellRenderer
renderer' Ptr CellRenderer
sibling'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
sibling
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.39/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaRemoveFocusSibling"
})
#endif
foreign import ccall "gtk_cell_area_render" gtk_cell_area_render ::
Ptr CellArea ->
Ptr Gtk.CellAreaContext.CellAreaContext ->
Ptr Gtk.Widget.Widget ->
Ptr Cairo.Context.Context ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Rectangle.Rectangle ->
CUInt ->
CInt ->
IO ()
cellAreaRender ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) =>
a
-> b
-> c
-> Cairo.Context.Context
-> Gdk.Rectangle.Rectangle
-> Gdk.Rectangle.Rectangle
-> [Gtk.Flags.CellRendererState]
-> Bool
-> m ()
cellAreaRender :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellArea a, IsCellAreaContext b,
IsWidget c) =>
a
-> b
-> c
-> Context
-> Rectangle
-> Rectangle
-> [CellRendererState]
-> Bool
-> m ()
cellAreaRender a
area b
context c
widget Context
cr Rectangle
backgroundArea Rectangle
cellArea [CellRendererState]
flags Bool
paintFocus = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Context
cr' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Context
cr
Ptr Rectangle
backgroundArea' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
backgroundArea
Ptr Rectangle
cellArea' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [CellRendererState]
flags
let paintFocus' :: CInt
paintFocus' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
paintFocus
Ptr CellArea
-> Ptr CellAreaContext
-> Ptr Widget
-> Ptr Context
-> Ptr Rectangle
-> Ptr Rectangle
-> CUInt
-> CInt
-> IO ()
gtk_cell_area_render Ptr CellArea
area' Ptr CellAreaContext
context' Ptr Widget
widget' Ptr Context
cr' Ptr Rectangle
backgroundArea' Ptr Rectangle
cellArea' CUInt
flags' CInt
paintFocus'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Context
cr
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
backgroundArea
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaRenderMethodInfo
instance (signature ~ (b -> c -> Cairo.Context.Context -> Gdk.Rectangle.Rectangle -> Gdk.Rectangle.Rectangle -> [Gtk.Flags.CellRendererState] -> Bool -> m ()), MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) => O.OverloadedMethod CellAreaRenderMethodInfo a signature where
overloadedMethod = cellAreaRender
instance O.OverloadedMethodInfo CellAreaRenderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellArea.cellAreaRender",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaRender"
})
#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 ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
let orientation' :: CUInt
orientation' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Orientation
orientation
Ptr Widget
widget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Int32
minimumSize <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
naturalSize <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr CellArea
-> Ptr CellRenderer
-> CUInt
-> Ptr Widget
-> Int32
-> Ptr Int32
-> Ptr Int32
-> IO ()
gtk_cell_area_request_renderer Ptr CellArea
area' Ptr CellRenderer
renderer' CUInt
orientation' Ptr Widget
widget' Int32
forSize Ptr Int32
minimumSize Ptr Int32
naturalSize
Int32
minimumSize' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minimumSize
Int32
naturalSize' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
naturalSize
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minimumSize
forall a. Ptr a -> IO ()
freeMem Ptr Int32
naturalSize
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
minimumSize', Int32
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-gtk-3.0.39/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 ()
cellAreaSetFocusCell ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> m ()
cellAreaSetFocusCell :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCellArea a, IsCellRenderer b) =>
a -> b -> m ()
cellAreaSetFocusCell a
area b
renderer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
Ptr CellArea -> Ptr CellRenderer -> IO ()
gtk_cell_area_set_focus_cell Ptr CellArea
area' Ptr CellRenderer
renderer'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellAreaSetFocusCellMethodInfo
instance (signature ~ (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-gtk-3.0.39/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaSetFocusCell"
})
#endif
foreign import ccall "gtk_cell_area_stop_editing" gtk_cell_area_stop_editing ::
Ptr CellArea ->
CInt ->
IO ()
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
let canceled' :: CInt
canceled' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
canceled
Ptr CellArea -> CInt -> IO ()
gtk_cell_area_stop_editing Ptr CellArea
area' CInt
canceled'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.39/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaStopEditing"
})
#endif