{-# LANGUAGE 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 ,
C_CellAreaAddEditableCallback ,
CellAreaAddEditableCallback ,
#if defined(ENABLE_OVERLOADING)
CellAreaAddEditableSignalInfo ,
#endif
afterCellAreaAddEditable ,
genClosure_CellAreaAddEditable ,
mk_CellAreaAddEditableCallback ,
noCellAreaAddEditableCallback ,
onCellAreaAddEditable ,
wrap_CellAreaAddEditableCallback ,
C_CellAreaApplyAttributesCallback ,
CellAreaApplyAttributesCallback ,
#if defined(ENABLE_OVERLOADING)
CellAreaApplyAttributesSignalInfo ,
#endif
afterCellAreaApplyAttributes ,
genClosure_CellAreaApplyAttributes ,
mk_CellAreaApplyAttributesCallback ,
noCellAreaApplyAttributesCallback ,
onCellAreaApplyAttributes ,
wrap_CellAreaApplyAttributesCallback ,
C_CellAreaFocusChangedCallback ,
CellAreaFocusChangedCallback ,
#if defined(ENABLE_OVERLOADING)
CellAreaFocusChangedSignalInfo ,
#endif
afterCellAreaFocusChanged ,
genClosure_CellAreaFocusChanged ,
mk_CellAreaFocusChangedCallback ,
noCellAreaFocusChangedCallback ,
onCellAreaFocusChanged ,
wrap_CellAreaFocusChangedCallback ,
C_CellAreaRemoveEditableCallback ,
CellAreaRemoveEditableCallback ,
#if defined(ENABLE_OVERLOADING)
CellAreaRemoveEditableSignalInfo ,
#endif
afterCellAreaRemoveEditable ,
genClosure_CellAreaRemoveEditable ,
mk_CellAreaRemoveEditableCallback ,
noCellAreaRemoveEditableCallback ,
onCellAreaRemoveEditable ,
wrap_CellAreaRemoveEditableCallback ,
) 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.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.Text as T
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
(CellArea -> CellArea -> Bool)
-> (CellArea -> CellArea -> Bool) -> Eq CellArea
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 = IO CellArea -> m CellArea
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CellArea -> m CellArea)
-> (o -> IO CellArea) -> o -> m CellArea
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CellArea -> CellArea) -> o -> IO CellArea
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr CellArea -> CellArea
CellArea
instance B.GValue.IsGValue (Maybe CellArea) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_cell_area_get_type
gvalueSet_ :: Ptr GValue -> Maybe CellArea -> IO ()
gvalueSet_ Ptr GValue
gv Maybe CellArea
P.Nothing = Ptr GValue -> Ptr CellArea -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr CellArea
forall a. Ptr a
FP.nullPtr :: FP.Ptr CellArea)
gvalueSet_ Ptr GValue
gv (P.Just CellArea
obj) = CellArea -> (Ptr CellArea -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CellArea
obj (Ptr GValue -> Ptr CellArea -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe CellArea)
gvalueGet_ Ptr GValue
gv = do
Ptr CellArea
ptr <- Ptr GValue -> IO (Ptr CellArea)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr CellArea)
if Ptr CellArea
ptr Ptr CellArea -> Ptr CellArea -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr CellArea
forall a. Ptr a
FP.nullPtr
then CellArea -> Maybe CellArea
forall a. a -> Maybe a
P.Just (CellArea -> Maybe CellArea) -> IO CellArea -> IO (Maybe CellArea)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr CellArea -> CellArea) -> Ptr CellArea -> IO CellArea
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 Maybe CellArea -> IO (Maybe CellArea)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CellArea
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCellAreaMethod (t :: Symbol) (o :: *) :: * 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 ()
noCellAreaAddEditableCallback :: Maybe CellAreaAddEditableCallback
noCellAreaAddEditableCallback :: Maybe CellAreaAddEditableCallback
noCellAreaAddEditableCallback = Maybe CellAreaAddEditableCallback
forall a. Maybe a
Nothing
type C_CellAreaAddEditableCallback =
Ptr () ->
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)
genClosure_CellAreaAddEditable :: MonadIO m => CellAreaAddEditableCallback -> m (GClosure C_CellAreaAddEditableCallback)
genClosure_CellAreaAddEditable :: forall (m :: * -> *).
MonadIO m =>
CellAreaAddEditableCallback
-> m (GClosure C_CellAreaAddEditableCallback)
genClosure_CellAreaAddEditable CellAreaAddEditableCallback
cb = IO (GClosure C_CellAreaAddEditableCallback)
-> m (GClosure C_CellAreaAddEditableCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CellAreaAddEditableCallback)
-> m (GClosure C_CellAreaAddEditableCallback))
-> IO (GClosure C_CellAreaAddEditableCallback)
-> m (GClosure C_CellAreaAddEditableCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellAreaAddEditableCallback
cb' = CellAreaAddEditableCallback -> C_CellAreaAddEditableCallback
wrap_CellAreaAddEditableCallback CellAreaAddEditableCallback
cb
C_CellAreaAddEditableCallback
-> IO (FunPtr C_CellAreaAddEditableCallback)
mk_CellAreaAddEditableCallback C_CellAreaAddEditableCallback
cb' IO (FunPtr C_CellAreaAddEditableCallback)
-> (FunPtr C_CellAreaAddEditableCallback
-> IO (GClosure C_CellAreaAddEditableCallback))
-> IO (GClosure C_CellAreaAddEditableCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CellAreaAddEditableCallback
-> IO (GClosure C_CellAreaAddEditableCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CellAreaAddEditableCallback ::
CellAreaAddEditableCallback ->
C_CellAreaAddEditableCallback
wrap_CellAreaAddEditableCallback :: CellAreaAddEditableCallback -> C_CellAreaAddEditableCallback
wrap_CellAreaAddEditableCallback CellAreaAddEditableCallback
_cb Ptr ()
_ Ptr CellRenderer
renderer Ptr CellEditable
editable Ptr Rectangle
cellArea CString
path Ptr ()
_ = do
CellRenderer
renderer' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
renderer
CellEditable
editable' <- ((ManagedPtr CellEditable -> CellEditable)
-> Ptr CellEditable -> IO CellEditable
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellEditable -> CellEditable
Gtk.CellEditable.CellEditable) Ptr CellEditable
editable
(ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> (Rectangle -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle Ptr Rectangle
cellArea ((Rectangle -> IO ()) -> IO ()) -> (Rectangle -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Rectangle
cellArea' -> do
Text
path' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
path
CellAreaAddEditableCallback
_cb CellRenderer
renderer' CellEditable
editable' Rectangle
cellArea' Text
path'
onCellAreaAddEditable :: (IsCellArea a, MonadIO m) => a -> CellAreaAddEditableCallback -> m SignalHandlerId
onCellAreaAddEditable :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a -> CellAreaAddEditableCallback -> m SignalHandlerId
onCellAreaAddEditable a
obj CellAreaAddEditableCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellAreaAddEditableCallback
cb' = CellAreaAddEditableCallback -> C_CellAreaAddEditableCallback
wrap_CellAreaAddEditableCallback CellAreaAddEditableCallback
cb
FunPtr C_CellAreaAddEditableCallback
cb'' <- C_CellAreaAddEditableCallback
-> IO (FunPtr C_CellAreaAddEditableCallback)
mk_CellAreaAddEditableCallback C_CellAreaAddEditableCallback
cb'
a
-> Text
-> FunPtr C_CellAreaAddEditableCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"add-editable" FunPtr C_CellAreaAddEditableCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCellAreaAddEditable :: (IsCellArea a, MonadIO m) => a -> CellAreaAddEditableCallback -> m SignalHandlerId
afterCellAreaAddEditable :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a -> CellAreaAddEditableCallback -> m SignalHandlerId
afterCellAreaAddEditable a
obj CellAreaAddEditableCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellAreaAddEditableCallback
cb' = CellAreaAddEditableCallback -> C_CellAreaAddEditableCallback
wrap_CellAreaAddEditableCallback CellAreaAddEditableCallback
cb
FunPtr C_CellAreaAddEditableCallback
cb'' <- C_CellAreaAddEditableCallback
-> IO (FunPtr C_CellAreaAddEditableCallback)
mk_CellAreaAddEditableCallback C_CellAreaAddEditableCallback
cb'
a
-> Text
-> FunPtr C_CellAreaAddEditableCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"add-editable" FunPtr C_CellAreaAddEditableCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
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
#endif
type CellAreaApplyAttributesCallback =
Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> Bool
-> Bool
-> IO ()
noCellAreaApplyAttributesCallback :: Maybe CellAreaApplyAttributesCallback
noCellAreaApplyAttributesCallback :: Maybe CellAreaApplyAttributesCallback
noCellAreaApplyAttributesCallback = Maybe CellAreaApplyAttributesCallback
forall a. Maybe a
Nothing
type C_CellAreaApplyAttributesCallback =
Ptr () ->
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
CInt ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CellAreaApplyAttributesCallback :: C_CellAreaApplyAttributesCallback -> IO (FunPtr C_CellAreaApplyAttributesCallback)
genClosure_CellAreaApplyAttributes :: MonadIO m => CellAreaApplyAttributesCallback -> m (GClosure C_CellAreaApplyAttributesCallback)
genClosure_CellAreaApplyAttributes :: forall (m :: * -> *).
MonadIO m =>
CellAreaApplyAttributesCallback
-> m (GClosure C_CellAreaApplyAttributesCallback)
genClosure_CellAreaApplyAttributes CellAreaApplyAttributesCallback
cb = IO (GClosure C_CellAreaApplyAttributesCallback)
-> m (GClosure C_CellAreaApplyAttributesCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CellAreaApplyAttributesCallback)
-> m (GClosure C_CellAreaApplyAttributesCallback))
-> IO (GClosure C_CellAreaApplyAttributesCallback)
-> m (GClosure C_CellAreaApplyAttributesCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellAreaApplyAttributesCallback
cb' = CellAreaApplyAttributesCallback
-> C_CellAreaApplyAttributesCallback
wrap_CellAreaApplyAttributesCallback CellAreaApplyAttributesCallback
cb
C_CellAreaApplyAttributesCallback
-> IO (FunPtr C_CellAreaApplyAttributesCallback)
mk_CellAreaApplyAttributesCallback C_CellAreaApplyAttributesCallback
cb' IO (FunPtr C_CellAreaApplyAttributesCallback)
-> (FunPtr C_CellAreaApplyAttributesCallback
-> IO (GClosure C_CellAreaApplyAttributesCallback))
-> IO (GClosure C_CellAreaApplyAttributesCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CellAreaApplyAttributesCallback
-> IO (GClosure C_CellAreaApplyAttributesCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CellAreaApplyAttributesCallback ::
CellAreaApplyAttributesCallback ->
C_CellAreaApplyAttributesCallback
wrap_CellAreaApplyAttributesCallback :: CellAreaApplyAttributesCallback
-> C_CellAreaApplyAttributesCallback
wrap_CellAreaApplyAttributesCallback CellAreaApplyAttributesCallback
_cb Ptr ()
_ Ptr TreeModel
model Ptr TreeIter
iter CInt
isExpander CInt
isExpanded Ptr ()
_ = do
TreeModel
model' <- ((ManagedPtr TreeModel -> TreeModel)
-> Ptr TreeModel -> IO TreeModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel) Ptr TreeModel
model
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
iter ((TreeIter -> IO ()) -> IO ()) -> (TreeIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TreeIter
iter' -> do
let isExpander' :: Bool
isExpander' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
isExpander
let isExpanded' :: Bool
isExpanded' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
isExpanded
CellAreaApplyAttributesCallback
_cb TreeModel
model' TreeIter
iter' Bool
isExpander' Bool
isExpanded'
onCellAreaApplyAttributes :: (IsCellArea a, MonadIO m) => a -> CellAreaApplyAttributesCallback -> m SignalHandlerId
onCellAreaApplyAttributes :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a -> CellAreaApplyAttributesCallback -> m SignalHandlerId
onCellAreaApplyAttributes a
obj CellAreaApplyAttributesCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellAreaApplyAttributesCallback
cb' = CellAreaApplyAttributesCallback
-> C_CellAreaApplyAttributesCallback
wrap_CellAreaApplyAttributesCallback CellAreaApplyAttributesCallback
cb
FunPtr C_CellAreaApplyAttributesCallback
cb'' <- C_CellAreaApplyAttributesCallback
-> IO (FunPtr C_CellAreaApplyAttributesCallback)
mk_CellAreaApplyAttributesCallback C_CellAreaApplyAttributesCallback
cb'
a
-> Text
-> FunPtr C_CellAreaApplyAttributesCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"apply-attributes" FunPtr C_CellAreaApplyAttributesCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCellAreaApplyAttributes :: (IsCellArea a, MonadIO m) => a -> CellAreaApplyAttributesCallback -> m SignalHandlerId
afterCellAreaApplyAttributes :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a -> CellAreaApplyAttributesCallback -> m SignalHandlerId
afterCellAreaApplyAttributes a
obj CellAreaApplyAttributesCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellAreaApplyAttributesCallback
cb' = CellAreaApplyAttributesCallback
-> C_CellAreaApplyAttributesCallback
wrap_CellAreaApplyAttributesCallback CellAreaApplyAttributesCallback
cb
FunPtr C_CellAreaApplyAttributesCallback
cb'' <- C_CellAreaApplyAttributesCallback
-> IO (FunPtr C_CellAreaApplyAttributesCallback)
mk_CellAreaApplyAttributesCallback C_CellAreaApplyAttributesCallback
cb'
a
-> Text
-> FunPtr C_CellAreaApplyAttributesCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"apply-attributes" FunPtr C_CellAreaApplyAttributesCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
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
#endif
type CellAreaFocusChangedCallback =
Gtk.CellRenderer.CellRenderer
-> T.Text
-> IO ()
noCellAreaFocusChangedCallback :: Maybe CellAreaFocusChangedCallback
noCellAreaFocusChangedCallback :: Maybe CellAreaFocusChangedCallback
noCellAreaFocusChangedCallback = Maybe CellAreaFocusChangedCallback
forall a. Maybe a
Nothing
type C_CellAreaFocusChangedCallback =
Ptr () ->
Ptr Gtk.CellRenderer.CellRenderer ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CellAreaFocusChangedCallback :: C_CellAreaFocusChangedCallback -> IO (FunPtr C_CellAreaFocusChangedCallback)
genClosure_CellAreaFocusChanged :: MonadIO m => CellAreaFocusChangedCallback -> m (GClosure C_CellAreaFocusChangedCallback)
genClosure_CellAreaFocusChanged :: forall (m :: * -> *).
MonadIO m =>
CellAreaFocusChangedCallback
-> m (GClosure C_CellAreaFocusChangedCallback)
genClosure_CellAreaFocusChanged CellAreaFocusChangedCallback
cb = IO (GClosure C_CellAreaFocusChangedCallback)
-> m (GClosure C_CellAreaFocusChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CellAreaFocusChangedCallback)
-> m (GClosure C_CellAreaFocusChangedCallback))
-> IO (GClosure C_CellAreaFocusChangedCallback)
-> m (GClosure C_CellAreaFocusChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellAreaFocusChangedCallback
cb' = CellAreaFocusChangedCallback -> C_CellAreaFocusChangedCallback
wrap_CellAreaFocusChangedCallback CellAreaFocusChangedCallback
cb
C_CellAreaFocusChangedCallback
-> IO (FunPtr C_CellAreaFocusChangedCallback)
mk_CellAreaFocusChangedCallback C_CellAreaFocusChangedCallback
cb' IO (FunPtr C_CellAreaFocusChangedCallback)
-> (FunPtr C_CellAreaFocusChangedCallback
-> IO (GClosure C_CellAreaFocusChangedCallback))
-> IO (GClosure C_CellAreaFocusChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CellAreaFocusChangedCallback
-> IO (GClosure C_CellAreaFocusChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CellAreaFocusChangedCallback ::
CellAreaFocusChangedCallback ->
C_CellAreaFocusChangedCallback
wrap_CellAreaFocusChangedCallback :: CellAreaFocusChangedCallback -> C_CellAreaFocusChangedCallback
wrap_CellAreaFocusChangedCallback CellAreaFocusChangedCallback
_cb Ptr ()
_ Ptr CellRenderer
renderer CString
path Ptr ()
_ = do
CellRenderer
renderer' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
renderer
Text
path' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
path
CellAreaFocusChangedCallback
_cb CellRenderer
renderer' Text
path'
onCellAreaFocusChanged :: (IsCellArea a, MonadIO m) => a -> CellAreaFocusChangedCallback -> m SignalHandlerId
onCellAreaFocusChanged :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a -> CellAreaFocusChangedCallback -> m SignalHandlerId
onCellAreaFocusChanged a
obj CellAreaFocusChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellAreaFocusChangedCallback
cb' = CellAreaFocusChangedCallback -> C_CellAreaFocusChangedCallback
wrap_CellAreaFocusChangedCallback CellAreaFocusChangedCallback
cb
FunPtr C_CellAreaFocusChangedCallback
cb'' <- C_CellAreaFocusChangedCallback
-> IO (FunPtr C_CellAreaFocusChangedCallback)
mk_CellAreaFocusChangedCallback C_CellAreaFocusChangedCallback
cb'
a
-> Text
-> FunPtr C_CellAreaFocusChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"focus-changed" FunPtr C_CellAreaFocusChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCellAreaFocusChanged :: (IsCellArea a, MonadIO m) => a -> CellAreaFocusChangedCallback -> m SignalHandlerId
afterCellAreaFocusChanged :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a -> CellAreaFocusChangedCallback -> m SignalHandlerId
afterCellAreaFocusChanged a
obj CellAreaFocusChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellAreaFocusChangedCallback
cb' = CellAreaFocusChangedCallback -> C_CellAreaFocusChangedCallback
wrap_CellAreaFocusChangedCallback CellAreaFocusChangedCallback
cb
FunPtr C_CellAreaFocusChangedCallback
cb'' <- C_CellAreaFocusChangedCallback
-> IO (FunPtr C_CellAreaFocusChangedCallback)
mk_CellAreaFocusChangedCallback C_CellAreaFocusChangedCallback
cb'
a
-> Text
-> FunPtr C_CellAreaFocusChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"focus-changed" FunPtr C_CellAreaFocusChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
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
#endif
type CellAreaRemoveEditableCallback =
Gtk.CellRenderer.CellRenderer
-> Gtk.CellEditable.CellEditable
-> IO ()
noCellAreaRemoveEditableCallback :: Maybe CellAreaRemoveEditableCallback
noCellAreaRemoveEditableCallback :: Maybe CellAreaRemoveEditableCallback
noCellAreaRemoveEditableCallback = Maybe CellAreaRemoveEditableCallback
forall a. Maybe a
Nothing
type C_CellAreaRemoveEditableCallback =
Ptr () ->
Ptr Gtk.CellRenderer.CellRenderer ->
Ptr Gtk.CellEditable.CellEditable ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CellAreaRemoveEditableCallback :: C_CellAreaRemoveEditableCallback -> IO (FunPtr C_CellAreaRemoveEditableCallback)
genClosure_CellAreaRemoveEditable :: MonadIO m => CellAreaRemoveEditableCallback -> m (GClosure C_CellAreaRemoveEditableCallback)
genClosure_CellAreaRemoveEditable :: forall (m :: * -> *).
MonadIO m =>
CellAreaRemoveEditableCallback
-> m (GClosure C_CellAreaRemoveEditableCallback)
genClosure_CellAreaRemoveEditable CellAreaRemoveEditableCallback
cb = IO (GClosure C_CellAreaRemoveEditableCallback)
-> m (GClosure C_CellAreaRemoveEditableCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CellAreaRemoveEditableCallback)
-> m (GClosure C_CellAreaRemoveEditableCallback))
-> IO (GClosure C_CellAreaRemoveEditableCallback)
-> m (GClosure C_CellAreaRemoveEditableCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellAreaRemoveEditableCallback
cb' = CellAreaRemoveEditableCallback -> C_CellAreaRemoveEditableCallback
wrap_CellAreaRemoveEditableCallback CellAreaRemoveEditableCallback
cb
C_CellAreaRemoveEditableCallback
-> IO (FunPtr C_CellAreaRemoveEditableCallback)
mk_CellAreaRemoveEditableCallback C_CellAreaRemoveEditableCallback
cb' IO (FunPtr C_CellAreaRemoveEditableCallback)
-> (FunPtr C_CellAreaRemoveEditableCallback
-> IO (GClosure C_CellAreaRemoveEditableCallback))
-> IO (GClosure C_CellAreaRemoveEditableCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CellAreaRemoveEditableCallback
-> IO (GClosure C_CellAreaRemoveEditableCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CellAreaRemoveEditableCallback ::
CellAreaRemoveEditableCallback ->
C_CellAreaRemoveEditableCallback
wrap_CellAreaRemoveEditableCallback :: CellAreaRemoveEditableCallback -> C_CellAreaRemoveEditableCallback
wrap_CellAreaRemoveEditableCallback CellAreaRemoveEditableCallback
_cb Ptr ()
_ Ptr CellRenderer
renderer Ptr CellEditable
editable Ptr ()
_ = do
CellRenderer
renderer' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
renderer
CellEditable
editable' <- ((ManagedPtr CellEditable -> CellEditable)
-> Ptr CellEditable -> IO CellEditable
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellEditable -> CellEditable
Gtk.CellEditable.CellEditable) Ptr CellEditable
editable
CellAreaRemoveEditableCallback
_cb CellRenderer
renderer' CellEditable
editable'
onCellAreaRemoveEditable :: (IsCellArea a, MonadIO m) => a -> CellAreaRemoveEditableCallback -> m SignalHandlerId
onCellAreaRemoveEditable :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a -> CellAreaRemoveEditableCallback -> m SignalHandlerId
onCellAreaRemoveEditable a
obj CellAreaRemoveEditableCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellAreaRemoveEditableCallback
cb' = CellAreaRemoveEditableCallback -> C_CellAreaRemoveEditableCallback
wrap_CellAreaRemoveEditableCallback CellAreaRemoveEditableCallback
cb
FunPtr C_CellAreaRemoveEditableCallback
cb'' <- C_CellAreaRemoveEditableCallback
-> IO (FunPtr C_CellAreaRemoveEditableCallback)
mk_CellAreaRemoveEditableCallback C_CellAreaRemoveEditableCallback
cb'
a
-> Text
-> FunPtr C_CellAreaRemoveEditableCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"remove-editable" FunPtr C_CellAreaRemoveEditableCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCellAreaRemoveEditable :: (IsCellArea a, MonadIO m) => a -> CellAreaRemoveEditableCallback -> m SignalHandlerId
afterCellAreaRemoveEditable :: forall a (m :: * -> *).
(IsCellArea a, MonadIO m) =>
a -> CellAreaRemoveEditableCallback -> m SignalHandlerId
afterCellAreaRemoveEditable a
obj CellAreaRemoveEditableCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellAreaRemoveEditableCallback
cb' = CellAreaRemoveEditableCallback -> C_CellAreaRemoveEditableCallback
wrap_CellAreaRemoveEditableCallback CellAreaRemoveEditableCallback
cb
FunPtr C_CellAreaRemoveEditableCallback
cb'' <- C_CellAreaRemoveEditableCallback
-> IO (FunPtr C_CellAreaRemoveEditableCallback)
mk_CellAreaRemoveEditableCallback C_CellAreaRemoveEditableCallback
cb'
a
-> Text
-> FunPtr C_CellAreaRemoveEditableCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"remove-editable" FunPtr C_CellAreaRemoveEditableCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
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
#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 = IO CellEditable -> m CellEditable
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CellEditable -> m CellEditable)
-> IO CellEditable -> m CellEditable
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe CellEditable) -> IO CellEditable
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getCellAreaEditWidget" (IO (Maybe CellEditable) -> IO CellEditable)
-> IO (Maybe CellEditable) -> IO CellEditable
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr CellEditable -> CellEditable)
-> IO (Maybe CellEditable)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"edit-widget" ManagedPtr CellEditable -> CellEditable
Gtk.CellEditable.CellEditable
#if defined(ENABLE_OVERLOADING)
data CellAreaEditWidgetPropertyInfo
instance AttrInfo CellAreaEditWidgetPropertyInfo where
type AttrAllowedOps CellAreaEditWidgetPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellAreaEditWidgetPropertyInfo = IsCellArea
type AttrSetTypeConstraint CellAreaEditWidgetPropertyInfo = (~) ()
type AttrTransferTypeConstraint CellAreaEditWidgetPropertyInfo = (~) ()
type AttrTransferType CellAreaEditWidgetPropertyInfo = ()
type AttrGetType CellAreaEditWidgetPropertyInfo = Gtk.CellEditable.CellEditable
type AttrLabel CellAreaEditWidgetPropertyInfo = "edit-widget"
type AttrOrigin CellAreaEditWidgetPropertyInfo = CellArea
attrGet = getCellAreaEditWidget
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#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 = IO CellRenderer -> m CellRenderer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CellRenderer -> m CellRenderer)
-> IO CellRenderer -> m CellRenderer
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe CellRenderer) -> IO CellRenderer
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getCellAreaEditedCell" (IO (Maybe CellRenderer) -> IO CellRenderer)
-> IO (Maybe CellRenderer) -> IO CellRenderer
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr CellRenderer -> CellRenderer)
-> IO (Maybe CellRenderer)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"edited-cell" ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer
#if defined(ENABLE_OVERLOADING)
data CellAreaEditedCellPropertyInfo
instance AttrInfo CellAreaEditedCellPropertyInfo where
type AttrAllowedOps CellAreaEditedCellPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellAreaEditedCellPropertyInfo = IsCellArea
type AttrSetTypeConstraint CellAreaEditedCellPropertyInfo = (~) ()
type AttrTransferTypeConstraint CellAreaEditedCellPropertyInfo = (~) ()
type AttrTransferType CellAreaEditedCellPropertyInfo = ()
type AttrGetType CellAreaEditedCellPropertyInfo = Gtk.CellRenderer.CellRenderer
type AttrLabel CellAreaEditedCellPropertyInfo = "edited-cell"
type AttrOrigin CellAreaEditedCellPropertyInfo = CellArea
attrGet = getCellAreaEditedCell
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#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 = IO CellRenderer -> m CellRenderer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CellRenderer -> m CellRenderer)
-> IO CellRenderer -> m CellRenderer
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe CellRenderer) -> IO CellRenderer
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getCellAreaFocusCell" (IO (Maybe CellRenderer) -> IO CellRenderer)
-> IO (Maybe CellRenderer) -> IO CellRenderer
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr CellRenderer -> CellRenderer)
-> IO (Maybe CellRenderer)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"focus-cell" ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer
setCellAreaFocusCell :: (MonadIO m, IsCellArea o, Gtk.CellRenderer.IsCellRenderer a) => o -> a -> m ()
setCellAreaFocusCell :: forall (m :: * -> *) o a.
(MonadIO m, IsCellArea o, IsCellRenderer a) =>
o -> a -> m ()
setCellAreaFocusCell o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"focus-cell" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructCellAreaFocusCell :: (IsCellArea o, MIO.MonadIO m, Gtk.CellRenderer.IsCellRenderer a) => a -> m (GValueConstruct o)
constructCellAreaFocusCell :: forall o (m :: * -> *) a.
(IsCellArea o, MonadIO m, IsCellRenderer a) =>
a -> m (GValueConstruct o)
constructCellAreaFocusCell a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"focus-cell" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#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
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CellArea
type instance O.AttributeList CellArea = CellAreaAttributeList
type CellAreaAttributeList = ('[ '("editWidget", CellAreaEditWidgetPropertyInfo), '("editedCell", CellAreaEditedCellPropertyInfo), '("focusCell", CellAreaFocusCellPropertyInfo)] :: [(Symbol, *)])
#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, *)])
#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 = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- b -> IO (Ptr CellAreaContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Rectangle
cellArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
let flags' :: CUInt
flags' = [CellRendererState] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [CellRendererState]
flags
let editOnly' :: CInt
editOnly' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
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' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
Bool -> IO Bool
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaActivate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr CellRenderer
renderer' <- c -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
renderer
Ptr Event
event' <- Event -> IO (Ptr Event)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Rectangle
cellArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
let flags' :: CUInt
flags' = [CellRendererState] -> CUInt
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' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
renderer
Event -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
Bool -> IO Bool
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaActivateCell",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- b -> IO (Ptr CellRenderer)
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
() -> IO ()
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaAdd",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
Ptr CellRenderer
sibling' <- c -> IO (Ptr CellRenderer)
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
sibling
() -> IO ()
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaAddFocusSibling",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr TreeModel
treeModel' <- b -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
treeModel
Ptr TreeIter
iter' <- TreeIter -> IO (Ptr TreeIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
iter
let isExpander' :: CInt
isExpander' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
isExpander
let isExpanded' :: CInt
isExpanded' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
treeModel
TreeIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreeIter
iter
() -> IO ()
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaApplyAttributes",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- b -> IO (Ptr CellRenderer)
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
attribute'
() -> IO ()
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaAttributeConnect",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- b -> IO (Ptr CellRenderer)
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
attribute'
() -> IO ()
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaAttributeDisconnect",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- b -> IO (Ptr CellRenderer)
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
attribute'
Int32 -> IO Int32
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaAttributeGetColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
Ptr GValue
value' <- GValue -> IO (Ptr GValue)
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
() -> IO ()
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaCellGetProperty",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
Ptr GValue
value' <- GValue -> IO (Ptr GValue)
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
() -> IO ()
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaCellSetProperty",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO CellAreaContext -> m CellAreaContext
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CellAreaContext -> m CellAreaContext)
-> IO CellAreaContext -> m CellAreaContext
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- b -> IO (Ptr CellAreaContext)
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'
Text -> Ptr CellAreaContext -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAreaCopyContext" Ptr CellAreaContext
result
CellAreaContext
result' <- ((ManagedPtr CellAreaContext -> CellAreaContext)
-> Ptr CellAreaContext -> IO CellAreaContext
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
CellAreaContext -> IO CellAreaContext
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaCopyContext",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO CellAreaContext -> m CellAreaContext
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CellAreaContext -> m CellAreaContext)
-> IO CellAreaContext -> m CellAreaContext
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
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'
Text -> Ptr CellAreaContext -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAreaCreateContext" Ptr CellAreaContext
result
CellAreaContext
result' <- ((ManagedPtr CellAreaContext -> CellAreaContext)
-> Ptr CellAreaContext -> IO CellAreaContext
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
CellAreaContext -> IO CellAreaContext
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaCreateContext",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- b -> IO (Ptr CellAreaContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Event
event' <- Event -> IO (Ptr Event)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Rectangle
cellArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
let flags' :: CUInt
flags' = [CellRendererState] -> CUInt
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
Event -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
Int32 -> IO Int32
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaEvent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
let direction' :: CUInt
direction' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (DirectionType -> Int) -> DirectionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DirectionType -> Int
forall a. Enum a => a -> Int
fromEnum) DirectionType
direction
CInt
result <- Ptr CellArea -> CUInt -> IO CInt
gtk_cell_area_focus Ptr CellArea
area' CUInt
direction'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
Bool -> IO Bool
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaFocus",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
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 Maybe (Ptr (FunPtr C_CellCallback))
forall a. Maybe a
Nothing (CellCallback -> CellCallback_WithClosures
Gtk.Callbacks.drop_closures_CellCallback CellCallback
callback))
let callbackData :: Ptr a
callbackData = Ptr a
forall a. Ptr a
nullPtr
Ptr CellArea -> FunPtr C_CellCallback -> Ptr () -> IO ()
gtk_cell_area_foreach Ptr CellArea
area' FunPtr C_CellCallback
callback' Ptr ()
forall a. Ptr a
callbackData
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_CellCallback -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_CellCallback
callback'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
() -> IO ()
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaForeach",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaForeach"
}
#endif
foreign import ccall "gtk_cell_area_foreach_alloc" gtk_cell_area_foreach_alloc ::
Ptr CellArea ->
Ptr Gtk.CellAreaContext.CellAreaContext ->
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Rectangle.Rectangle ->
FunPtr Gtk.Callbacks.C_CellAllocCallback ->
Ptr () ->
IO ()
cellAreaForeachAlloc ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a, Gtk.CellAreaContext.IsCellAreaContext b, Gtk.Widget.IsWidget c) =>
a
-> b
-> c
-> Gdk.Rectangle.Rectangle
-> Gdk.Rectangle.Rectangle
-> Gtk.Callbacks.CellAllocCallback
-> m ()
cellAreaForeachAlloc :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsCellArea a, IsCellAreaContext b,
IsWidget c) =>
a -> b -> c -> Rectangle -> Rectangle -> CellAllocCallback -> m ()
cellAreaForeachAlloc a
area b
context c
widget Rectangle
cellArea Rectangle
backgroundArea CellAllocCallback
callback = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- b -> IO (Ptr CellAreaContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Rectangle
cellArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
Ptr Rectangle
backgroundArea' <- Rectangle -> IO (Ptr Rectangle)
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 Maybe (Ptr (FunPtr C_CellAllocCallback))
forall a. Maybe a
Nothing (CellAllocCallback -> CellAllocCallback_WithClosures
Gtk.Callbacks.drop_closures_CellAllocCallback CellAllocCallback
callback))
let callbackData :: Ptr a
callbackData = Ptr a
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' Ptr ()
forall a. Ptr a
callbackData
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_CellAllocCallback -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_CellAllocCallback
callback'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
backgroundArea
() -> IO ()
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaForeachAlloc",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO Rectangle -> m Rectangle
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rectangle -> m Rectangle) -> IO Rectangle -> m Rectangle
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- b -> IO (Ptr CellAreaContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr CellRenderer
renderer' <- d -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr d
renderer
Ptr Rectangle
cellArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
Ptr Rectangle
allocation <- Int -> IO (Ptr Rectangle)
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' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
allocation
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
d -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr d
renderer
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
Rectangle -> IO Rectangle
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaGetCellAllocation",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO (CellRenderer, Rectangle) -> m (CellRenderer, Rectangle)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (CellRenderer, Rectangle) -> m (CellRenderer, Rectangle))
-> IO (CellRenderer, Rectangle) -> m (CellRenderer, Rectangle)
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- b -> IO (Ptr CellAreaContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Rectangle
cellArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
Ptr Rectangle
allocArea <- Int -> IO (Ptr Rectangle)
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
Text -> Ptr CellRenderer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAreaGetCellAtPosition" Ptr CellRenderer
result
CellRenderer
result' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
result
Rectangle
allocArea' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
allocArea
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
(CellRenderer, Rectangle) -> IO (CellRenderer, Rectangle)
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaGetCellAtPosition",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaGetCellAtPosition"
}
#endif
foreign import ccall "gtk_cell_area_get_current_path_string" gtk_cell_area_get_current_path_string ::
Ptr CellArea ->
IO CString
cellAreaGetCurrentPathString ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a) =>
a
-> m T.Text
cellAreaGetCurrentPathString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> m Text
cellAreaGetCurrentPathString a
area = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
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'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAreaGetCurrentPathString" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
Text -> IO Text
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaGetCurrentPathString",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO CellEditable -> m CellEditable
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CellEditable -> m CellEditable)
-> IO CellEditable -> m CellEditable
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
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'
Text -> Ptr CellEditable -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAreaGetEditWidget" Ptr CellEditable
result
CellEditable
result' <- ((ManagedPtr CellEditable -> CellEditable)
-> Ptr CellEditable -> IO CellEditable
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellEditable -> CellEditable
Gtk.CellEditable.CellEditable) Ptr CellEditable
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
CellEditable -> IO CellEditable
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaGetEditWidget",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO CellRenderer -> m CellRenderer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CellRenderer -> m CellRenderer)
-> IO CellRenderer -> m CellRenderer
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
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'
Text -> Ptr CellRenderer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAreaGetEditedCell" Ptr CellRenderer
result
CellRenderer
result' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
CellRenderer -> IO CellRenderer
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaGetEditedCell",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO CellRenderer -> m CellRenderer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CellRenderer -> m CellRenderer)
-> IO CellRenderer -> m CellRenderer
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
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'
Text -> Ptr CellRenderer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellAreaGetFocusCell" Ptr CellRenderer
result
CellRenderer
result' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
CellRenderer -> IO CellRenderer
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaGetFocusCell",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO (Maybe CellRenderer) -> m (Maybe CellRenderer)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe CellRenderer) -> m (Maybe CellRenderer))
-> IO (Maybe CellRenderer) -> m (Maybe CellRenderer)
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- b -> IO (Ptr CellRenderer)
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 <- Ptr CellRenderer
-> (Ptr CellRenderer -> IO CellRenderer) -> IO (Maybe CellRenderer)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CellRenderer
result ((Ptr CellRenderer -> IO CellRenderer) -> IO (Maybe CellRenderer))
-> (Ptr CellRenderer -> IO CellRenderer) -> IO (Maybe CellRenderer)
forall a b. (a -> b) -> a -> b
$ \Ptr CellRenderer
result' -> do
CellRenderer
result'' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
result'
CellRenderer -> IO CellRenderer
forall (m :: * -> *) a. Monad m => a -> m a
return CellRenderer
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
Maybe CellRenderer -> IO (Maybe CellRenderer)
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaGetFocusFromSibling",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO [CellRenderer] -> m [CellRenderer]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [CellRenderer] -> m [CellRenderer])
-> IO [CellRenderer] -> m [CellRenderer]
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- b -> IO (Ptr CellRenderer)
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' <- Ptr (GList (Ptr CellRenderer)) -> IO [Ptr CellRenderer]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr CellRenderer))
result
[CellRenderer]
result'' <- (Ptr CellRenderer -> IO CellRenderer)
-> [Ptr CellRenderer] -> IO [CellRenderer]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) [Ptr CellRenderer]
result'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
[CellRenderer] -> IO [CellRenderer]
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaGetFocusSiblings",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO (Int32, Int32) -> m (Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- b -> IO (Ptr CellAreaContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Int32
minimumHeight <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
naturalHeight <- IO (Ptr Int32)
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' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minimumHeight
Int32
naturalHeight' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
naturalHeight
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minimumHeight
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
naturalHeight
(Int32, Int32) -> IO (Int32, Int32)
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaGetPreferredHeight",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO (Int32, Int32) -> m (Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- b -> IO (Ptr CellAreaContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Int32
minimumHeight <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
naturalHeight <- IO (Ptr Int32)
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' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minimumHeight
Int32
naturalHeight' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
naturalHeight
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minimumHeight
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
naturalHeight
(Int32, Int32) -> IO (Int32, Int32)
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaGetPreferredHeightForWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO (Int32, Int32) -> m (Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- b -> IO (Ptr CellAreaContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Int32
minimumWidth <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
naturalWidth <- IO (Ptr Int32)
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' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minimumWidth
Int32
naturalWidth' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
naturalWidth
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minimumWidth
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
naturalWidth
(Int32, Int32) -> IO (Int32, Int32)
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaGetPreferredWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO (Int32, Int32) -> m (Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- b -> IO (Ptr CellAreaContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Int32
minimumWidth <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
naturalWidth <- IO (Ptr Int32)
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' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minimumWidth
Int32
naturalWidth' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
naturalWidth
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minimumWidth
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
naturalWidth
(Int32, Int32) -> IO (Int32, Int32)
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaGetPreferredWidthForHeight",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaGetPreferredWidthForHeight"
}
#endif
foreign import ccall "gtk_cell_area_get_request_mode" gtk_cell_area_get_request_mode ::
Ptr CellArea ->
IO CUInt
cellAreaGetRequestMode ::
(B.CallStack.HasCallStack, MonadIO m, IsCellArea a) =>
a
-> m Gtk.Enums.SizeRequestMode
cellAreaGetRequestMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> m SizeRequestMode
cellAreaGetRequestMode a
area = IO SizeRequestMode -> m SizeRequestMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SizeRequestMode -> m SizeRequestMode)
-> IO SizeRequestMode -> m SizeRequestMode
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
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' = (Int -> SizeRequestMode
forall a. Enum a => Int -> a
toEnum (Int -> SizeRequestMode)
-> (CUInt -> Int) -> CUInt -> SizeRequestMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
SizeRequestMode -> IO SizeRequestMode
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaGetRequestMode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- b -> IO (Ptr CellRenderer)
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' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
Bool -> IO Bool
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaHasRenderer",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO Rectangle -> m Rectangle
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rectangle -> m Rectangle) -> IO Rectangle -> m Rectangle
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr Rectangle
cellArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
Ptr Rectangle
innerArea <- Int -> IO (Ptr Rectangle)
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' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
innerArea
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
Rectangle -> IO Rectangle
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaInnerCellArea",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
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' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
Bool -> IO Bool
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaIsActivatable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
Ptr CellRenderer
sibling' <- c -> IO (Ptr CellRenderer)
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' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
sibling
Bool -> IO Bool
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaIsFocusSibling",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- b -> IO (Ptr CellRenderer)
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
() -> IO ()
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaRemove",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
Ptr CellRenderer
sibling' <- c -> IO (Ptr CellRenderer)
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
sibling
() -> IO ()
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaRemoveFocusSibling",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellAreaContext
context' <- b -> IO (Ptr CellAreaContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
context
Ptr Widget
widget' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Context
cr' <- Context -> IO (Ptr Context)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Context
cr
Ptr Rectangle
backgroundArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
backgroundArea
Ptr Rectangle
cellArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
let flags' :: CUInt
flags' = [CellRendererState] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [CellRendererState]
flags
let paintFocus' :: CInt
paintFocus' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
context
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
Context -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Context
cr
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
backgroundArea
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
() -> IO ()
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaRender",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO (Int32, Int32) -> m (Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
let orientation' :: CUInt
orientation' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Orientation -> Int) -> Orientation -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Orientation -> Int
forall a. Enum a => a -> Int
fromEnum) Orientation
orientation
Ptr Widget
widget' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
widget
Ptr Int32
minimumSize <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
naturalSize <- IO (Ptr Int32)
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' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minimumSize
Int32
naturalSize' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
naturalSize
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
widget
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minimumSize
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
naturalSize
(Int32, Int32) -> IO (Int32, Int32)
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaRequestRenderer",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr CellRenderer
renderer' <- b -> IO (Ptr CellRenderer)
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
() -> IO ()
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaSetFocusCell",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/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 = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
let canceled' :: CInt
canceled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
canceled
Ptr CellArea -> CInt -> IO ()
gtk_cell_area_stop_editing Ptr CellArea
area' CInt
canceled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
() -> IO ()
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CellArea.cellAreaStopEditing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-CellArea.html#v:cellAreaStopEditing"
}
#endif