{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.CellRenderer
(
CellRenderer(..) ,
IsCellRenderer ,
toCellRenderer ,
noCellRenderer ,
#if defined(ENABLE_OVERLOADING)
ResolveCellRendererMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CellRendererActivateMethodInfo ,
#endif
cellRendererActivate ,
#if defined(ENABLE_OVERLOADING)
CellRendererGetAlignedAreaMethodInfo ,
#endif
cellRendererGetAlignedArea ,
#if defined(ENABLE_OVERLOADING)
CellRendererGetAlignmentMethodInfo ,
#endif
cellRendererGetAlignment ,
#if defined(ENABLE_OVERLOADING)
CellRendererGetFixedSizeMethodInfo ,
#endif
cellRendererGetFixedSize ,
#if defined(ENABLE_OVERLOADING)
CellRendererGetPaddingMethodInfo ,
#endif
cellRendererGetPadding ,
#if defined(ENABLE_OVERLOADING)
CellRendererGetPreferredHeightMethodInfo,
#endif
cellRendererGetPreferredHeight ,
#if defined(ENABLE_OVERLOADING)
CellRendererGetPreferredHeightForWidthMethodInfo,
#endif
cellRendererGetPreferredHeightForWidth ,
#if defined(ENABLE_OVERLOADING)
CellRendererGetPreferredSizeMethodInfo ,
#endif
cellRendererGetPreferredSize ,
#if defined(ENABLE_OVERLOADING)
CellRendererGetPreferredWidthMethodInfo ,
#endif
cellRendererGetPreferredWidth ,
#if defined(ENABLE_OVERLOADING)
CellRendererGetPreferredWidthForHeightMethodInfo,
#endif
cellRendererGetPreferredWidthForHeight ,
#if defined(ENABLE_OVERLOADING)
CellRendererGetRequestModeMethodInfo ,
#endif
cellRendererGetRequestMode ,
#if defined(ENABLE_OVERLOADING)
CellRendererGetSensitiveMethodInfo ,
#endif
cellRendererGetSensitive ,
#if defined(ENABLE_OVERLOADING)
CellRendererGetSizeMethodInfo ,
#endif
cellRendererGetSize ,
#if defined(ENABLE_OVERLOADING)
CellRendererGetStateMethodInfo ,
#endif
cellRendererGetState ,
#if defined(ENABLE_OVERLOADING)
CellRendererGetVisibleMethodInfo ,
#endif
cellRendererGetVisible ,
#if defined(ENABLE_OVERLOADING)
CellRendererIsActivatableMethodInfo ,
#endif
cellRendererIsActivatable ,
#if defined(ENABLE_OVERLOADING)
CellRendererRenderMethodInfo ,
#endif
cellRendererRender ,
#if defined(ENABLE_OVERLOADING)
CellRendererSetAlignmentMethodInfo ,
#endif
cellRendererSetAlignment ,
#if defined(ENABLE_OVERLOADING)
CellRendererSetFixedSizeMethodInfo ,
#endif
cellRendererSetFixedSize ,
#if defined(ENABLE_OVERLOADING)
CellRendererSetPaddingMethodInfo ,
#endif
cellRendererSetPadding ,
#if defined(ENABLE_OVERLOADING)
CellRendererSetSensitiveMethodInfo ,
#endif
cellRendererSetSensitive ,
#if defined(ENABLE_OVERLOADING)
CellRendererSetVisibleMethodInfo ,
#endif
cellRendererSetVisible ,
#if defined(ENABLE_OVERLOADING)
CellRendererStartEditingMethodInfo ,
#endif
cellRendererStartEditing ,
#if defined(ENABLE_OVERLOADING)
CellRendererStopEditingMethodInfo ,
#endif
cellRendererStopEditing ,
#if defined(ENABLE_OVERLOADING)
CellRendererCellBackgroundPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererCellBackground ,
#endif
clearCellRendererCellBackground ,
constructCellRendererCellBackground ,
setCellRendererCellBackground ,
#if defined(ENABLE_OVERLOADING)
CellRendererCellBackgroundGdkPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererCellBackgroundGdk ,
#endif
clearCellRendererCellBackgroundGdk ,
constructCellRendererCellBackgroundGdk ,
getCellRendererCellBackgroundGdk ,
setCellRendererCellBackgroundGdk ,
#if defined(ENABLE_OVERLOADING)
CellRendererCellBackgroundRgbaPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererCellBackgroundRgba ,
#endif
clearCellRendererCellBackgroundRgba ,
constructCellRendererCellBackgroundRgba ,
getCellRendererCellBackgroundRgba ,
setCellRendererCellBackgroundRgba ,
#if defined(ENABLE_OVERLOADING)
CellRendererCellBackgroundSetPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererCellBackgroundSet ,
#endif
constructCellRendererCellBackgroundSet ,
getCellRendererCellBackgroundSet ,
setCellRendererCellBackgroundSet ,
#if defined(ENABLE_OVERLOADING)
CellRendererEditingPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererEditing ,
#endif
getCellRendererEditing ,
#if defined(ENABLE_OVERLOADING)
CellRendererHeightPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererHeight ,
#endif
constructCellRendererHeight ,
getCellRendererHeight ,
setCellRendererHeight ,
#if defined(ENABLE_OVERLOADING)
CellRendererIsExpandedPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererIsExpanded ,
#endif
constructCellRendererIsExpanded ,
getCellRendererIsExpanded ,
setCellRendererIsExpanded ,
#if defined(ENABLE_OVERLOADING)
CellRendererIsExpanderPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererIsExpander ,
#endif
constructCellRendererIsExpander ,
getCellRendererIsExpander ,
setCellRendererIsExpander ,
#if defined(ENABLE_OVERLOADING)
CellRendererModePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererMode ,
#endif
constructCellRendererMode ,
getCellRendererMode ,
setCellRendererMode ,
#if defined(ENABLE_OVERLOADING)
CellRendererSensitivePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererSensitive ,
#endif
constructCellRendererSensitive ,
getCellRendererSensitive ,
setCellRendererSensitive ,
#if defined(ENABLE_OVERLOADING)
CellRendererVisiblePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererVisible ,
#endif
constructCellRendererVisible ,
getCellRendererVisible ,
setCellRendererVisible ,
#if defined(ENABLE_OVERLOADING)
CellRendererWidthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererWidth ,
#endif
constructCellRendererWidth ,
getCellRendererWidth ,
setCellRendererWidth ,
#if defined(ENABLE_OVERLOADING)
CellRendererXalignPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererXalign ,
#endif
constructCellRendererXalign ,
getCellRendererXalign ,
setCellRendererXalign ,
#if defined(ENABLE_OVERLOADING)
CellRendererXpadPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererXpad ,
#endif
constructCellRendererXpad ,
getCellRendererXpad ,
setCellRendererXpad ,
#if defined(ENABLE_OVERLOADING)
CellRendererYalignPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererYalign ,
#endif
constructCellRendererYalign ,
getCellRendererYalign ,
setCellRendererYalign ,
#if defined(ENABLE_OVERLOADING)
CellRendererYpadPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererYpad ,
#endif
constructCellRendererYpad ,
getCellRendererYpad ,
setCellRendererYpad ,
C_CellRendererEditingCanceledCallback ,
CellRendererEditingCanceledCallback ,
#if defined(ENABLE_OVERLOADING)
CellRendererEditingCanceledSignalInfo ,
#endif
afterCellRendererEditingCanceled ,
genClosure_CellRendererEditingCanceled ,
mk_CellRendererEditingCanceledCallback ,
noCellRendererEditingCanceledCallback ,
onCellRendererEditingCanceled ,
wrap_CellRendererEditingCanceledCallback,
C_CellRendererEditingStartedCallback ,
CellRendererEditingStartedCallback ,
#if defined(ENABLE_OVERLOADING)
CellRendererEditingStartedSignalInfo ,
#endif
afterCellRendererEditingStarted ,
genClosure_CellRendererEditingStarted ,
mk_CellRendererEditingStartedCallback ,
noCellRendererEditingStartedCallback ,
onCellRendererEditingStarted ,
wrap_CellRendererEditingStartedCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.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 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 GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.Color as Gdk.Color
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gdk.Unions.Event as Gdk.Event
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellEditable as Gtk.CellEditable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
newtype CellRenderer = CellRenderer (ManagedPtr CellRenderer)
deriving (CellRenderer -> CellRenderer -> Bool
(CellRenderer -> CellRenderer -> Bool)
-> (CellRenderer -> CellRenderer -> Bool) -> Eq CellRenderer
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CellRenderer -> CellRenderer -> Bool
$c/= :: CellRenderer -> CellRenderer -> Bool
== :: CellRenderer -> CellRenderer -> Bool
$c== :: CellRenderer -> CellRenderer -> Bool
Eq)
foreign import ccall "gtk_cell_renderer_get_type"
c_gtk_cell_renderer_get_type :: IO GType
instance GObject CellRenderer where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_cell_renderer_get_type
instance B.GValue.IsGValue CellRenderer where
toGValue :: CellRenderer -> IO GValue
toGValue o :: CellRenderer
o = do
GType
gtype <- IO GType
c_gtk_cell_renderer_get_type
CellRenderer -> (Ptr CellRenderer -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CellRenderer
o (GType
-> (GValue -> Ptr CellRenderer -> IO ())
-> Ptr CellRenderer
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr CellRenderer -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO CellRenderer
fromGValue gv :: GValue
gv = do
Ptr CellRenderer
ptr <- GValue -> IO (Ptr CellRenderer)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr CellRenderer)
(ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr CellRenderer -> CellRenderer
CellRenderer Ptr CellRenderer
ptr
class (GObject o, O.IsDescendantOf CellRenderer o) => IsCellRenderer o
instance (GObject o, O.IsDescendantOf CellRenderer o) => IsCellRenderer o
instance O.HasParentTypes CellRenderer
type instance O.ParentTypes CellRenderer = '[GObject.Object.Object]
toCellRenderer :: (MonadIO m, IsCellRenderer o) => o -> m CellRenderer
toCellRenderer :: o -> m CellRenderer
toCellRenderer = IO CellRenderer -> m CellRenderer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CellRenderer -> m CellRenderer)
-> (o -> IO CellRenderer) -> o -> m CellRenderer
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CellRenderer -> CellRenderer) -> o -> IO CellRenderer
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr CellRenderer -> CellRenderer
CellRenderer
noCellRenderer :: Maybe CellRenderer
noCellRenderer :: Maybe CellRenderer
noCellRenderer = Maybe CellRenderer
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCellRendererMethod (t :: Symbol) (o :: *) :: * where
ResolveCellRendererMethod "activate" o = CellRendererActivateMethodInfo
ResolveCellRendererMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCellRendererMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCellRendererMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCellRendererMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCellRendererMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCellRendererMethod "isActivatable" o = CellRendererIsActivatableMethodInfo
ResolveCellRendererMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCellRendererMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCellRendererMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCellRendererMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCellRendererMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCellRendererMethod "render" o = CellRendererRenderMethodInfo
ResolveCellRendererMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCellRendererMethod "startEditing" o = CellRendererStartEditingMethodInfo
ResolveCellRendererMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCellRendererMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCellRendererMethod "stopEditing" o = CellRendererStopEditingMethodInfo
ResolveCellRendererMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCellRendererMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCellRendererMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCellRendererMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo
ResolveCellRendererMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo
ResolveCellRendererMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCellRendererMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo
ResolveCellRendererMethod "getPadding" o = CellRendererGetPaddingMethodInfo
ResolveCellRendererMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo
ResolveCellRendererMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo
ResolveCellRendererMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo
ResolveCellRendererMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo
ResolveCellRendererMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo
ResolveCellRendererMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCellRendererMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCellRendererMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo
ResolveCellRendererMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo
ResolveCellRendererMethod "getSize" o = CellRendererGetSizeMethodInfo
ResolveCellRendererMethod "getState" o = CellRendererGetStateMethodInfo
ResolveCellRendererMethod "getVisible" o = CellRendererGetVisibleMethodInfo
ResolveCellRendererMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo
ResolveCellRendererMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCellRendererMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCellRendererMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo
ResolveCellRendererMethod "setPadding" o = CellRendererSetPaddingMethodInfo
ResolveCellRendererMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCellRendererMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo
ResolveCellRendererMethod "setVisible" o = CellRendererSetVisibleMethodInfo
ResolveCellRendererMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCellRendererMethod t CellRenderer, O.MethodInfo info CellRenderer p) => OL.IsLabel t (CellRenderer -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type CellRendererEditingCanceledCallback =
IO ()
noCellRendererEditingCanceledCallback :: Maybe CellRendererEditingCanceledCallback
noCellRendererEditingCanceledCallback :: Maybe (IO ())
noCellRendererEditingCanceledCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_CellRendererEditingCanceledCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CellRendererEditingCanceledCallback :: C_CellRendererEditingCanceledCallback -> IO (FunPtr C_CellRendererEditingCanceledCallback)
genClosure_CellRendererEditingCanceled :: MonadIO m => CellRendererEditingCanceledCallback -> m (GClosure C_CellRendererEditingCanceledCallback)
genClosure_CellRendererEditingCanceled :: IO () -> m (GClosure C_CellRendererEditingCanceledCallback)
genClosure_CellRendererEditingCanceled cb :: IO ()
cb = IO (GClosure C_CellRendererEditingCanceledCallback)
-> m (GClosure C_CellRendererEditingCanceledCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CellRendererEditingCanceledCallback)
-> m (GClosure C_CellRendererEditingCanceledCallback))
-> IO (GClosure C_CellRendererEditingCanceledCallback)
-> m (GClosure C_CellRendererEditingCanceledCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellRendererEditingCanceledCallback
cb' = IO () -> C_CellRendererEditingCanceledCallback
wrap_CellRendererEditingCanceledCallback IO ()
cb
C_CellRendererEditingCanceledCallback
-> IO (FunPtr C_CellRendererEditingCanceledCallback)
mk_CellRendererEditingCanceledCallback C_CellRendererEditingCanceledCallback
cb' IO (FunPtr C_CellRendererEditingCanceledCallback)
-> (FunPtr C_CellRendererEditingCanceledCallback
-> IO (GClosure C_CellRendererEditingCanceledCallback))
-> IO (GClosure C_CellRendererEditingCanceledCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CellRendererEditingCanceledCallback
-> IO (GClosure C_CellRendererEditingCanceledCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CellRendererEditingCanceledCallback ::
CellRendererEditingCanceledCallback ->
C_CellRendererEditingCanceledCallback
wrap_CellRendererEditingCanceledCallback :: IO () -> C_CellRendererEditingCanceledCallback
wrap_CellRendererEditingCanceledCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onCellRendererEditingCanceled :: (IsCellRenderer a, MonadIO m) => a -> CellRendererEditingCanceledCallback -> m SignalHandlerId
onCellRendererEditingCanceled :: a -> IO () -> m SignalHandlerId
onCellRendererEditingCanceled obj :: a
obj cb :: IO ()
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_CellRendererEditingCanceledCallback
cb' = IO () -> C_CellRendererEditingCanceledCallback
wrap_CellRendererEditingCanceledCallback IO ()
cb
FunPtr C_CellRendererEditingCanceledCallback
cb'' <- C_CellRendererEditingCanceledCallback
-> IO (FunPtr C_CellRendererEditingCanceledCallback)
mk_CellRendererEditingCanceledCallback C_CellRendererEditingCanceledCallback
cb'
a
-> Text
-> FunPtr C_CellRendererEditingCanceledCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "editing-canceled" FunPtr C_CellRendererEditingCanceledCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCellRendererEditingCanceled :: (IsCellRenderer a, MonadIO m) => a -> CellRendererEditingCanceledCallback -> m SignalHandlerId
afterCellRendererEditingCanceled :: a -> IO () -> m SignalHandlerId
afterCellRendererEditingCanceled obj :: a
obj cb :: IO ()
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_CellRendererEditingCanceledCallback
cb' = IO () -> C_CellRendererEditingCanceledCallback
wrap_CellRendererEditingCanceledCallback IO ()
cb
FunPtr C_CellRendererEditingCanceledCallback
cb'' <- C_CellRendererEditingCanceledCallback
-> IO (FunPtr C_CellRendererEditingCanceledCallback)
mk_CellRendererEditingCanceledCallback C_CellRendererEditingCanceledCallback
cb'
a
-> Text
-> FunPtr C_CellRendererEditingCanceledCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "editing-canceled" FunPtr C_CellRendererEditingCanceledCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CellRendererEditingCanceledSignalInfo
instance SignalInfo CellRendererEditingCanceledSignalInfo where
type HaskellCallbackType CellRendererEditingCanceledSignalInfo = CellRendererEditingCanceledCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CellRendererEditingCanceledCallback cb
cb'' <- mk_CellRendererEditingCanceledCallback cb'
connectSignalFunPtr obj "editing-canceled" cb'' connectMode detail
#endif
type CellRendererEditingStartedCallback =
Gtk.CellEditable.CellEditable
-> T.Text
-> IO ()
noCellRendererEditingStartedCallback :: Maybe CellRendererEditingStartedCallback
noCellRendererEditingStartedCallback :: Maybe CellRendererEditingStartedCallback
noCellRendererEditingStartedCallback = Maybe CellRendererEditingStartedCallback
forall a. Maybe a
Nothing
type C_CellRendererEditingStartedCallback =
Ptr () ->
Ptr Gtk.CellEditable.CellEditable ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CellRendererEditingStartedCallback :: C_CellRendererEditingStartedCallback -> IO (FunPtr C_CellRendererEditingStartedCallback)
genClosure_CellRendererEditingStarted :: MonadIO m => CellRendererEditingStartedCallback -> m (GClosure C_CellRendererEditingStartedCallback)
genClosure_CellRendererEditingStarted :: CellRendererEditingStartedCallback
-> m (GClosure C_CellRendererEditingStartedCallback)
genClosure_CellRendererEditingStarted cb :: CellRendererEditingStartedCallback
cb = IO (GClosure C_CellRendererEditingStartedCallback)
-> m (GClosure C_CellRendererEditingStartedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CellRendererEditingStartedCallback)
-> m (GClosure C_CellRendererEditingStartedCallback))
-> IO (GClosure C_CellRendererEditingStartedCallback)
-> m (GClosure C_CellRendererEditingStartedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CellRendererEditingStartedCallback
cb' = CellRendererEditingStartedCallback
-> C_CellRendererEditingStartedCallback
wrap_CellRendererEditingStartedCallback CellRendererEditingStartedCallback
cb
C_CellRendererEditingStartedCallback
-> IO (FunPtr C_CellRendererEditingStartedCallback)
mk_CellRendererEditingStartedCallback C_CellRendererEditingStartedCallback
cb' IO (FunPtr C_CellRendererEditingStartedCallback)
-> (FunPtr C_CellRendererEditingStartedCallback
-> IO (GClosure C_CellRendererEditingStartedCallback))
-> IO (GClosure C_CellRendererEditingStartedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CellRendererEditingStartedCallback
-> IO (GClosure C_CellRendererEditingStartedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CellRendererEditingStartedCallback ::
CellRendererEditingStartedCallback ->
C_CellRendererEditingStartedCallback
wrap_CellRendererEditingStartedCallback :: CellRendererEditingStartedCallback
-> C_CellRendererEditingStartedCallback
wrap_CellRendererEditingStartedCallback _cb :: CellRendererEditingStartedCallback
_cb _ editable :: Ptr CellEditable
editable path :: CString
path _ = do
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
Text
path' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
path
CellRendererEditingStartedCallback
_cb CellEditable
editable' Text
path'
onCellRendererEditingStarted :: (IsCellRenderer a, MonadIO m) => a -> CellRendererEditingStartedCallback -> m SignalHandlerId
onCellRendererEditingStarted :: a -> CellRendererEditingStartedCallback -> m SignalHandlerId
onCellRendererEditingStarted obj :: a
obj cb :: CellRendererEditingStartedCallback
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_CellRendererEditingStartedCallback
cb' = CellRendererEditingStartedCallback
-> C_CellRendererEditingStartedCallback
wrap_CellRendererEditingStartedCallback CellRendererEditingStartedCallback
cb
FunPtr C_CellRendererEditingStartedCallback
cb'' <- C_CellRendererEditingStartedCallback
-> IO (FunPtr C_CellRendererEditingStartedCallback)
mk_CellRendererEditingStartedCallback C_CellRendererEditingStartedCallback
cb'
a
-> Text
-> FunPtr C_CellRendererEditingStartedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "editing-started" FunPtr C_CellRendererEditingStartedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCellRendererEditingStarted :: (IsCellRenderer a, MonadIO m) => a -> CellRendererEditingStartedCallback -> m SignalHandlerId
afterCellRendererEditingStarted :: a -> CellRendererEditingStartedCallback -> m SignalHandlerId
afterCellRendererEditingStarted obj :: a
obj cb :: CellRendererEditingStartedCallback
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_CellRendererEditingStartedCallback
cb' = CellRendererEditingStartedCallback
-> C_CellRendererEditingStartedCallback
wrap_CellRendererEditingStartedCallback CellRendererEditingStartedCallback
cb
FunPtr C_CellRendererEditingStartedCallback
cb'' <- C_CellRendererEditingStartedCallback
-> IO (FunPtr C_CellRendererEditingStartedCallback)
mk_CellRendererEditingStartedCallback C_CellRendererEditingStartedCallback
cb'
a
-> Text
-> FunPtr C_CellRendererEditingStartedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "editing-started" FunPtr C_CellRendererEditingStartedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CellRendererEditingStartedSignalInfo
instance SignalInfo CellRendererEditingStartedSignalInfo where
type HaskellCallbackType CellRendererEditingStartedSignalInfo = CellRendererEditingStartedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CellRendererEditingStartedCallback cb
cb'' <- mk_CellRendererEditingStartedCallback cb'
connectSignalFunPtr obj "editing-started" cb'' connectMode detail
#endif
setCellRendererCellBackground :: (MonadIO m, IsCellRenderer o) => o -> T.Text -> m ()
setCellRendererCellBackground :: o -> Text -> m ()
setCellRendererCellBackground obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "cell-background" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCellRendererCellBackground :: (IsCellRenderer o) => T.Text -> IO (GValueConstruct o)
constructCellRendererCellBackground :: Text -> IO (GValueConstruct o)
constructCellRendererCellBackground val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "cell-background" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearCellRendererCellBackground :: (MonadIO m, IsCellRenderer o) => o -> m ()
clearCellRendererCellBackground :: o -> m ()
clearCellRendererCellBackground obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "cell-background" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CellRendererCellBackgroundPropertyInfo
instance AttrInfo CellRendererCellBackgroundPropertyInfo where
type AttrAllowedOps CellRendererCellBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint CellRendererCellBackgroundPropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererCellBackgroundPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CellRendererCellBackgroundPropertyInfo = (~) T.Text
type AttrTransferType CellRendererCellBackgroundPropertyInfo = T.Text
type AttrGetType CellRendererCellBackgroundPropertyInfo = ()
type AttrLabel CellRendererCellBackgroundPropertyInfo = "cell-background"
type AttrOrigin CellRendererCellBackgroundPropertyInfo = CellRenderer
attrGet = undefined
attrSet = setCellRendererCellBackground
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererCellBackground
attrClear = clearCellRendererCellBackground
#endif
getCellRendererCellBackgroundGdk :: (MonadIO m, IsCellRenderer o) => o -> m (Maybe Gdk.Color.Color)
getCellRendererCellBackgroundGdk :: o -> m (Maybe Color)
getCellRendererCellBackgroundGdk obj :: o
obj = IO (Maybe Color) -> m (Maybe Color)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Color) -> m (Maybe Color))
-> IO (Maybe Color) -> m (Maybe Color)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Color -> Color) -> IO (Maybe Color)
forall a b.
(GObject a, BoxedObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj "cell-background-gdk" ManagedPtr Color -> Color
Gdk.Color.Color
setCellRendererCellBackgroundGdk :: (MonadIO m, IsCellRenderer o) => o -> Gdk.Color.Color -> m ()
setCellRendererCellBackgroundGdk :: o -> Color -> m ()
setCellRendererCellBackgroundGdk obj :: o
obj val :: Color
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Color -> IO ()
forall a b.
(GObject a, BoxedObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj "cell-background-gdk" (Color -> Maybe Color
forall a. a -> Maybe a
Just Color
val)
constructCellRendererCellBackgroundGdk :: (IsCellRenderer o) => Gdk.Color.Color -> IO (GValueConstruct o)
constructCellRendererCellBackgroundGdk :: Color -> IO (GValueConstruct o)
constructCellRendererCellBackgroundGdk val :: Color
val = String -> Maybe Color -> IO (GValueConstruct o)
forall a o.
BoxedObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed "cell-background-gdk" (Color -> Maybe Color
forall a. a -> Maybe a
Just Color
val)
clearCellRendererCellBackgroundGdk :: (MonadIO m, IsCellRenderer o) => o -> m ()
clearCellRendererCellBackgroundGdk :: o -> m ()
clearCellRendererCellBackgroundGdk obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Color -> IO ()
forall a b.
(GObject a, BoxedObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj "cell-background-gdk" (Maybe Color
forall a. Maybe a
Nothing :: Maybe Gdk.Color.Color)
#if defined(ENABLE_OVERLOADING)
data CellRendererCellBackgroundGdkPropertyInfo
instance AttrInfo CellRendererCellBackgroundGdkPropertyInfo where
type AttrAllowedOps CellRendererCellBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = (~) Gdk.Color.Color
type AttrTransferTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = (~) Gdk.Color.Color
type AttrTransferType CellRendererCellBackgroundGdkPropertyInfo = Gdk.Color.Color
type AttrGetType CellRendererCellBackgroundGdkPropertyInfo = (Maybe Gdk.Color.Color)
type AttrLabel CellRendererCellBackgroundGdkPropertyInfo = "cell-background-gdk"
type AttrOrigin CellRendererCellBackgroundGdkPropertyInfo = CellRenderer
attrGet = getCellRendererCellBackgroundGdk
attrSet = setCellRendererCellBackgroundGdk
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererCellBackgroundGdk
attrClear = clearCellRendererCellBackgroundGdk
#endif
getCellRendererCellBackgroundRgba :: (MonadIO m, IsCellRenderer o) => o -> m (Maybe Gdk.RGBA.RGBA)
getCellRendererCellBackgroundRgba :: o -> m (Maybe RGBA)
getCellRendererCellBackgroundRgba obj :: o
obj = IO (Maybe RGBA) -> m (Maybe RGBA)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe RGBA) -> m (Maybe RGBA))
-> IO (Maybe RGBA) -> m (Maybe RGBA)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr RGBA -> RGBA) -> IO (Maybe RGBA)
forall a b.
(GObject a, BoxedObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj "cell-background-rgba" ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA
setCellRendererCellBackgroundRgba :: (MonadIO m, IsCellRenderer o) => o -> Gdk.RGBA.RGBA -> m ()
setCellRendererCellBackgroundRgba :: o -> RGBA -> m ()
setCellRendererCellBackgroundRgba obj :: o
obj val :: RGBA
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe RGBA -> IO ()
forall a b.
(GObject a, BoxedObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj "cell-background-rgba" (RGBA -> Maybe RGBA
forall a. a -> Maybe a
Just RGBA
val)
constructCellRendererCellBackgroundRgba :: (IsCellRenderer o) => Gdk.RGBA.RGBA -> IO (GValueConstruct o)
constructCellRendererCellBackgroundRgba :: RGBA -> IO (GValueConstruct o)
constructCellRendererCellBackgroundRgba val :: RGBA
val = String -> Maybe RGBA -> IO (GValueConstruct o)
forall a o.
BoxedObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed "cell-background-rgba" (RGBA -> Maybe RGBA
forall a. a -> Maybe a
Just RGBA
val)
clearCellRendererCellBackgroundRgba :: (MonadIO m, IsCellRenderer o) => o -> m ()
clearCellRendererCellBackgroundRgba :: o -> m ()
clearCellRendererCellBackgroundRgba obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe RGBA -> IO ()
forall a b.
(GObject a, BoxedObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj "cell-background-rgba" (Maybe RGBA
forall a. Maybe a
Nothing :: Maybe Gdk.RGBA.RGBA)
#if defined(ENABLE_OVERLOADING)
data CellRendererCellBackgroundRgbaPropertyInfo
instance AttrInfo CellRendererCellBackgroundRgbaPropertyInfo where
type AttrAllowedOps CellRendererCellBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrTransferTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrTransferType CellRendererCellBackgroundRgbaPropertyInfo = Gdk.RGBA.RGBA
type AttrGetType CellRendererCellBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA.RGBA)
type AttrLabel CellRendererCellBackgroundRgbaPropertyInfo = "cell-background-rgba"
type AttrOrigin CellRendererCellBackgroundRgbaPropertyInfo = CellRenderer
attrGet = getCellRendererCellBackgroundRgba
attrSet = setCellRendererCellBackgroundRgba
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererCellBackgroundRgba
attrClear = clearCellRendererCellBackgroundRgba
#endif
getCellRendererCellBackgroundSet :: (MonadIO m, IsCellRenderer o) => o -> m Bool
getCellRendererCellBackgroundSet :: o -> m Bool
getCellRendererCellBackgroundSet obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "cell-background-set"
setCellRendererCellBackgroundSet :: (MonadIO m, IsCellRenderer o) => o -> Bool -> m ()
setCellRendererCellBackgroundSet :: o -> Bool -> m ()
setCellRendererCellBackgroundSet obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "cell-background-set" Bool
val
constructCellRendererCellBackgroundSet :: (IsCellRenderer o) => Bool -> IO (GValueConstruct o)
constructCellRendererCellBackgroundSet :: Bool -> IO (GValueConstruct o)
constructCellRendererCellBackgroundSet val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "cell-background-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererCellBackgroundSetPropertyInfo
instance AttrInfo CellRendererCellBackgroundSetPropertyInfo where
type AttrAllowedOps CellRendererCellBackgroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererCellBackgroundSetPropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererCellBackgroundSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererCellBackgroundSetPropertyInfo = (~) Bool
type AttrTransferType CellRendererCellBackgroundSetPropertyInfo = Bool
type AttrGetType CellRendererCellBackgroundSetPropertyInfo = Bool
type AttrLabel CellRendererCellBackgroundSetPropertyInfo = "cell-background-set"
type AttrOrigin CellRendererCellBackgroundSetPropertyInfo = CellRenderer
attrGet = getCellRendererCellBackgroundSet
attrSet = setCellRendererCellBackgroundSet
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererCellBackgroundSet
attrClear = undefined
#endif
getCellRendererEditing :: (MonadIO m, IsCellRenderer o) => o -> m Bool
getCellRendererEditing :: o -> m Bool
getCellRendererEditing obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "editing"
#if defined(ENABLE_OVERLOADING)
data CellRendererEditingPropertyInfo
instance AttrInfo CellRendererEditingPropertyInfo where
type AttrAllowedOps CellRendererEditingPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint CellRendererEditingPropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererEditingPropertyInfo = (~) ()
type AttrTransferTypeConstraint CellRendererEditingPropertyInfo = (~) ()
type AttrTransferType CellRendererEditingPropertyInfo = ()
type AttrGetType CellRendererEditingPropertyInfo = Bool
type AttrLabel CellRendererEditingPropertyInfo = "editing"
type AttrOrigin CellRendererEditingPropertyInfo = CellRenderer
attrGet = getCellRendererEditing
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getCellRendererHeight :: (MonadIO m, IsCellRenderer o) => o -> m Int32
getCellRendererHeight :: o -> m Int32
getCellRendererHeight obj :: o
obj = 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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "height"
setCellRendererHeight :: (MonadIO m, IsCellRenderer o) => o -> Int32 -> m ()
setCellRendererHeight :: o -> Int32 -> m ()
setCellRendererHeight obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "height" Int32
val
constructCellRendererHeight :: (IsCellRenderer o) => Int32 -> IO (GValueConstruct o)
constructCellRendererHeight :: Int32 -> IO (GValueConstruct o)
constructCellRendererHeight val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "height" Int32
val
#if defined(ENABLE_OVERLOADING)
data CellRendererHeightPropertyInfo
instance AttrInfo CellRendererHeightPropertyInfo where
type AttrAllowedOps CellRendererHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererHeightPropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererHeightPropertyInfo = (~) Int32
type AttrTransferTypeConstraint CellRendererHeightPropertyInfo = (~) Int32
type AttrTransferType CellRendererHeightPropertyInfo = Int32
type AttrGetType CellRendererHeightPropertyInfo = Int32
type AttrLabel CellRendererHeightPropertyInfo = "height"
type AttrOrigin CellRendererHeightPropertyInfo = CellRenderer
attrGet = getCellRendererHeight
attrSet = setCellRendererHeight
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererHeight
attrClear = undefined
#endif
getCellRendererIsExpanded :: (MonadIO m, IsCellRenderer o) => o -> m Bool
getCellRendererIsExpanded :: o -> m Bool
getCellRendererIsExpanded obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "is-expanded"
setCellRendererIsExpanded :: (MonadIO m, IsCellRenderer o) => o -> Bool -> m ()
setCellRendererIsExpanded :: o -> Bool -> m ()
setCellRendererIsExpanded obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "is-expanded" Bool
val
constructCellRendererIsExpanded :: (IsCellRenderer o) => Bool -> IO (GValueConstruct o)
constructCellRendererIsExpanded :: Bool -> IO (GValueConstruct o)
constructCellRendererIsExpanded val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "is-expanded" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererIsExpandedPropertyInfo
instance AttrInfo CellRendererIsExpandedPropertyInfo where
type AttrAllowedOps CellRendererIsExpandedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererIsExpandedPropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererIsExpandedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererIsExpandedPropertyInfo = (~) Bool
type AttrTransferType CellRendererIsExpandedPropertyInfo = Bool
type AttrGetType CellRendererIsExpandedPropertyInfo = Bool
type AttrLabel CellRendererIsExpandedPropertyInfo = "is-expanded"
type AttrOrigin CellRendererIsExpandedPropertyInfo = CellRenderer
attrGet = getCellRendererIsExpanded
attrSet = setCellRendererIsExpanded
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererIsExpanded
attrClear = undefined
#endif
getCellRendererIsExpander :: (MonadIO m, IsCellRenderer o) => o -> m Bool
getCellRendererIsExpander :: o -> m Bool
getCellRendererIsExpander obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "is-expander"
setCellRendererIsExpander :: (MonadIO m, IsCellRenderer o) => o -> Bool -> m ()
setCellRendererIsExpander :: o -> Bool -> m ()
setCellRendererIsExpander obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "is-expander" Bool
val
constructCellRendererIsExpander :: (IsCellRenderer o) => Bool -> IO (GValueConstruct o)
constructCellRendererIsExpander :: Bool -> IO (GValueConstruct o)
constructCellRendererIsExpander val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "is-expander" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererIsExpanderPropertyInfo
instance AttrInfo CellRendererIsExpanderPropertyInfo where
type AttrAllowedOps CellRendererIsExpanderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererIsExpanderPropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererIsExpanderPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererIsExpanderPropertyInfo = (~) Bool
type AttrTransferType CellRendererIsExpanderPropertyInfo = Bool
type AttrGetType CellRendererIsExpanderPropertyInfo = Bool
type AttrLabel CellRendererIsExpanderPropertyInfo = "is-expander"
type AttrOrigin CellRendererIsExpanderPropertyInfo = CellRenderer
attrGet = getCellRendererIsExpander
attrSet = setCellRendererIsExpander
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererIsExpander
attrClear = undefined
#endif
getCellRendererMode :: (MonadIO m, IsCellRenderer o) => o -> m Gtk.Enums.CellRendererMode
getCellRendererMode :: o -> m CellRendererMode
getCellRendererMode obj :: o
obj = IO CellRendererMode -> m CellRendererMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CellRendererMode -> m CellRendererMode)
-> IO CellRendererMode -> m CellRendererMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CellRendererMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "mode"
setCellRendererMode :: (MonadIO m, IsCellRenderer o) => o -> Gtk.Enums.CellRendererMode -> m ()
setCellRendererMode :: o -> CellRendererMode -> m ()
setCellRendererMode obj :: o
obj val :: CellRendererMode
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> CellRendererMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "mode" CellRendererMode
val
constructCellRendererMode :: (IsCellRenderer o) => Gtk.Enums.CellRendererMode -> IO (GValueConstruct o)
constructCellRendererMode :: CellRendererMode -> IO (GValueConstruct o)
constructCellRendererMode val :: CellRendererMode
val = String -> CellRendererMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "mode" CellRendererMode
val
#if defined(ENABLE_OVERLOADING)
data CellRendererModePropertyInfo
instance AttrInfo CellRendererModePropertyInfo where
type AttrAllowedOps CellRendererModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererModePropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererModePropertyInfo = (~) Gtk.Enums.CellRendererMode
type AttrTransferTypeConstraint CellRendererModePropertyInfo = (~) Gtk.Enums.CellRendererMode
type AttrTransferType CellRendererModePropertyInfo = Gtk.Enums.CellRendererMode
type AttrGetType CellRendererModePropertyInfo = Gtk.Enums.CellRendererMode
type AttrLabel CellRendererModePropertyInfo = "mode"
type AttrOrigin CellRendererModePropertyInfo = CellRenderer
attrGet = getCellRendererMode
attrSet = setCellRendererMode
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererMode
attrClear = undefined
#endif
getCellRendererSensitive :: (MonadIO m, IsCellRenderer o) => o -> m Bool
getCellRendererSensitive :: o -> m Bool
getCellRendererSensitive obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "sensitive"
setCellRendererSensitive :: (MonadIO m, IsCellRenderer o) => o -> Bool -> m ()
setCellRendererSensitive :: o -> Bool -> m ()
setCellRendererSensitive obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "sensitive" Bool
val
constructCellRendererSensitive :: (IsCellRenderer o) => Bool -> IO (GValueConstruct o)
constructCellRendererSensitive :: Bool -> IO (GValueConstruct o)
constructCellRendererSensitive val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "sensitive" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererSensitivePropertyInfo
instance AttrInfo CellRendererSensitivePropertyInfo where
type AttrAllowedOps CellRendererSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererSensitivePropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererSensitivePropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererSensitivePropertyInfo = (~) Bool
type AttrTransferType CellRendererSensitivePropertyInfo = Bool
type AttrGetType CellRendererSensitivePropertyInfo = Bool
type AttrLabel CellRendererSensitivePropertyInfo = "sensitive"
type AttrOrigin CellRendererSensitivePropertyInfo = CellRenderer
attrGet = getCellRendererSensitive
attrSet = setCellRendererSensitive
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererSensitive
attrClear = undefined
#endif
getCellRendererVisible :: (MonadIO m, IsCellRenderer o) => o -> m Bool
getCellRendererVisible :: o -> m Bool
getCellRendererVisible obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "visible"
setCellRendererVisible :: (MonadIO m, IsCellRenderer o) => o -> Bool -> m ()
setCellRendererVisible :: o -> Bool -> m ()
setCellRendererVisible obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "visible" Bool
val
constructCellRendererVisible :: (IsCellRenderer o) => Bool -> IO (GValueConstruct o)
constructCellRendererVisible :: Bool -> IO (GValueConstruct o)
constructCellRendererVisible val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererVisiblePropertyInfo
instance AttrInfo CellRendererVisiblePropertyInfo where
type AttrAllowedOps CellRendererVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererVisiblePropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererVisiblePropertyInfo = (~) Bool
type AttrTransferType CellRendererVisiblePropertyInfo = Bool
type AttrGetType CellRendererVisiblePropertyInfo = Bool
type AttrLabel CellRendererVisiblePropertyInfo = "visible"
type AttrOrigin CellRendererVisiblePropertyInfo = CellRenderer
attrGet = getCellRendererVisible
attrSet = setCellRendererVisible
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererVisible
attrClear = undefined
#endif
getCellRendererWidth :: (MonadIO m, IsCellRenderer o) => o -> m Int32
getCellRendererWidth :: o -> m Int32
getCellRendererWidth obj :: o
obj = 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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "width"
setCellRendererWidth :: (MonadIO m, IsCellRenderer o) => o -> Int32 -> m ()
setCellRendererWidth :: o -> Int32 -> m ()
setCellRendererWidth obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "width" Int32
val
constructCellRendererWidth :: (IsCellRenderer o) => Int32 -> IO (GValueConstruct o)
constructCellRendererWidth :: Int32 -> IO (GValueConstruct o)
constructCellRendererWidth val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "width" Int32
val
#if defined(ENABLE_OVERLOADING)
data CellRendererWidthPropertyInfo
instance AttrInfo CellRendererWidthPropertyInfo where
type AttrAllowedOps CellRendererWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererWidthPropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint CellRendererWidthPropertyInfo = (~) Int32
type AttrTransferType CellRendererWidthPropertyInfo = Int32
type AttrGetType CellRendererWidthPropertyInfo = Int32
type AttrLabel CellRendererWidthPropertyInfo = "width"
type AttrOrigin CellRendererWidthPropertyInfo = CellRenderer
attrGet = getCellRendererWidth
attrSet = setCellRendererWidth
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererWidth
attrClear = undefined
#endif
getCellRendererXalign :: (MonadIO m, IsCellRenderer o) => o -> m Float
getCellRendererXalign :: o -> m Float
getCellRendererXalign obj :: o
obj = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj "xalign"
setCellRendererXalign :: (MonadIO m, IsCellRenderer o) => o -> Float -> m ()
setCellRendererXalign :: o -> Float -> m ()
setCellRendererXalign obj :: o
obj val :: Float
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Float -> IO ()
forall a. GObject a => a -> String -> Float -> IO ()
B.Properties.setObjectPropertyFloat o
obj "xalign" Float
val
constructCellRendererXalign :: (IsCellRenderer o) => Float -> IO (GValueConstruct o)
constructCellRendererXalign :: Float -> IO (GValueConstruct o)
constructCellRendererXalign val :: Float
val = String -> Float -> IO (GValueConstruct o)
forall o. String -> Float -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFloat "xalign" Float
val
#if defined(ENABLE_OVERLOADING)
data CellRendererXalignPropertyInfo
instance AttrInfo CellRendererXalignPropertyInfo where
type AttrAllowedOps CellRendererXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererXalignPropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererXalignPropertyInfo = (~) Float
type AttrTransferTypeConstraint CellRendererXalignPropertyInfo = (~) Float
type AttrTransferType CellRendererXalignPropertyInfo = Float
type AttrGetType CellRendererXalignPropertyInfo = Float
type AttrLabel CellRendererXalignPropertyInfo = "xalign"
type AttrOrigin CellRendererXalignPropertyInfo = CellRenderer
attrGet = getCellRendererXalign
attrSet = setCellRendererXalign
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererXalign
attrClear = undefined
#endif
getCellRendererXpad :: (MonadIO m, IsCellRenderer o) => o -> m Word32
getCellRendererXpad :: o -> m Word32
getCellRendererXpad obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "xpad"
setCellRendererXpad :: (MonadIO m, IsCellRenderer o) => o -> Word32 -> m ()
setCellRendererXpad :: o -> Word32 -> m ()
setCellRendererXpad obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "xpad" Word32
val
constructCellRendererXpad :: (IsCellRenderer o) => Word32 -> IO (GValueConstruct o)
constructCellRendererXpad :: Word32 -> IO (GValueConstruct o)
constructCellRendererXpad val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "xpad" Word32
val
#if defined(ENABLE_OVERLOADING)
data CellRendererXpadPropertyInfo
instance AttrInfo CellRendererXpadPropertyInfo where
type AttrAllowedOps CellRendererXpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererXpadPropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererXpadPropertyInfo = (~) Word32
type AttrTransferTypeConstraint CellRendererXpadPropertyInfo = (~) Word32
type AttrTransferType CellRendererXpadPropertyInfo = Word32
type AttrGetType CellRendererXpadPropertyInfo = Word32
type AttrLabel CellRendererXpadPropertyInfo = "xpad"
type AttrOrigin CellRendererXpadPropertyInfo = CellRenderer
attrGet = getCellRendererXpad
attrSet = setCellRendererXpad
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererXpad
attrClear = undefined
#endif
getCellRendererYalign :: (MonadIO m, IsCellRenderer o) => o -> m Float
getCellRendererYalign :: o -> m Float
getCellRendererYalign obj :: o
obj = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj "yalign"
setCellRendererYalign :: (MonadIO m, IsCellRenderer o) => o -> Float -> m ()
setCellRendererYalign :: o -> Float -> m ()
setCellRendererYalign obj :: o
obj val :: Float
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Float -> IO ()
forall a. GObject a => a -> String -> Float -> IO ()
B.Properties.setObjectPropertyFloat o
obj "yalign" Float
val
constructCellRendererYalign :: (IsCellRenderer o) => Float -> IO (GValueConstruct o)
constructCellRendererYalign :: Float -> IO (GValueConstruct o)
constructCellRendererYalign val :: Float
val = String -> Float -> IO (GValueConstruct o)
forall o. String -> Float -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFloat "yalign" Float
val
#if defined(ENABLE_OVERLOADING)
data CellRendererYalignPropertyInfo
instance AttrInfo CellRendererYalignPropertyInfo where
type AttrAllowedOps CellRendererYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererYalignPropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererYalignPropertyInfo = (~) Float
type AttrTransferTypeConstraint CellRendererYalignPropertyInfo = (~) Float
type AttrTransferType CellRendererYalignPropertyInfo = Float
type AttrGetType CellRendererYalignPropertyInfo = Float
type AttrLabel CellRendererYalignPropertyInfo = "yalign"
type AttrOrigin CellRendererYalignPropertyInfo = CellRenderer
attrGet = getCellRendererYalign
attrSet = setCellRendererYalign
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererYalign
attrClear = undefined
#endif
getCellRendererYpad :: (MonadIO m, IsCellRenderer o) => o -> m Word32
getCellRendererYpad :: o -> m Word32
getCellRendererYpad obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "ypad"
setCellRendererYpad :: (MonadIO m, IsCellRenderer o) => o -> Word32 -> m ()
setCellRendererYpad :: o -> Word32 -> m ()
setCellRendererYpad obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "ypad" Word32
val
constructCellRendererYpad :: (IsCellRenderer o) => Word32 -> IO (GValueConstruct o)
constructCellRendererYpad :: Word32 -> IO (GValueConstruct o)
constructCellRendererYpad val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "ypad" Word32
val
#if defined(ENABLE_OVERLOADING)
data CellRendererYpadPropertyInfo
instance AttrInfo CellRendererYpadPropertyInfo where
type AttrAllowedOps CellRendererYpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererYpadPropertyInfo = IsCellRenderer
type AttrSetTypeConstraint CellRendererYpadPropertyInfo = (~) Word32
type AttrTransferTypeConstraint CellRendererYpadPropertyInfo = (~) Word32
type AttrTransferType CellRendererYpadPropertyInfo = Word32
type AttrGetType CellRendererYpadPropertyInfo = Word32
type AttrLabel CellRendererYpadPropertyInfo = "ypad"
type AttrOrigin CellRendererYpadPropertyInfo = CellRenderer
attrGet = getCellRendererYpad
attrSet = setCellRendererYpad
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererYpad
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CellRenderer
type instance O.AttributeList CellRenderer = CellRendererAttributeList
type CellRendererAttributeList = ('[ '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererCellBackground :: AttrLabelProxy "cellBackground"
cellRendererCellBackground = AttrLabelProxy
cellRendererCellBackgroundGdk :: AttrLabelProxy "cellBackgroundGdk"
cellRendererCellBackgroundGdk = AttrLabelProxy
cellRendererCellBackgroundRgba :: AttrLabelProxy "cellBackgroundRgba"
cellRendererCellBackgroundRgba = AttrLabelProxy
cellRendererCellBackgroundSet :: AttrLabelProxy "cellBackgroundSet"
cellRendererCellBackgroundSet = AttrLabelProxy
cellRendererEditing :: AttrLabelProxy "editing"
cellRendererEditing = AttrLabelProxy
cellRendererHeight :: AttrLabelProxy "height"
cellRendererHeight = AttrLabelProxy
cellRendererIsExpanded :: AttrLabelProxy "isExpanded"
cellRendererIsExpanded = AttrLabelProxy
cellRendererIsExpander :: AttrLabelProxy "isExpander"
cellRendererIsExpander = AttrLabelProxy
cellRendererMode :: AttrLabelProxy "mode"
cellRendererMode = AttrLabelProxy
cellRendererSensitive :: AttrLabelProxy "sensitive"
cellRendererSensitive = AttrLabelProxy
cellRendererVisible :: AttrLabelProxy "visible"
cellRendererVisible = AttrLabelProxy
cellRendererWidth :: AttrLabelProxy "width"
cellRendererWidth = AttrLabelProxy
cellRendererXalign :: AttrLabelProxy "xalign"
cellRendererXalign = AttrLabelProxy
cellRendererXpad :: AttrLabelProxy "xpad"
cellRendererXpad = AttrLabelProxy
cellRendererYalign :: AttrLabelProxy "yalign"
cellRendererYalign = AttrLabelProxy
cellRendererYpad :: AttrLabelProxy "ypad"
cellRendererYpad = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CellRenderer = CellRendererSignalList
type CellRendererSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_cell_renderer_activate" gtk_cell_renderer_activate ::
Ptr CellRenderer ->
Ptr Gdk.Event.Event ->
Ptr Gtk.Widget.Widget ->
CString ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Rectangle.Rectangle ->
CUInt ->
IO CInt
cellRendererActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) =>
a
-> Gdk.Event.Event
-> b
-> T.Text
-> Gdk.Rectangle.Rectangle
-> Gdk.Rectangle.Rectangle
-> [Gtk.Flags.CellRendererState]
-> m Bool
cellRendererActivate :: a
-> Event
-> b
-> Text
-> Rectangle
-> Rectangle
-> [CellRendererState]
-> m Bool
cellRendererActivate cell :: a
cell event :: Event
event widget :: b
widget path :: Text
path backgroundArea :: Rectangle
backgroundArea cellArea :: Rectangle
cellArea flags :: [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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr Event
event' <- Event -> IO (Ptr Event)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
CString
path' <- Text -> IO CString
textToCString Text
path
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
CInt
result <- Ptr CellRenderer
-> Ptr Event
-> Ptr Widget
-> CString
-> Ptr Rectangle
-> Ptr Rectangle
-> CUInt
-> IO CInt
gtk_cell_renderer_activate Ptr CellRenderer
cell' Ptr Event
event' Ptr Widget
widget' CString
path' Ptr Rectangle
backgroundArea' Ptr Rectangle
cellArea' CUInt
flags'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
Event -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
backgroundArea
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
path'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CellRendererActivateMethodInfo
instance (signature ~ (Gdk.Event.Event -> b -> T.Text -> Gdk.Rectangle.Rectangle -> Gdk.Rectangle.Rectangle -> [Gtk.Flags.CellRendererState] -> m Bool), MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) => O.MethodInfo CellRendererActivateMethodInfo a signature where
overloadedMethod = cellRendererActivate
#endif
foreign import ccall "gtk_cell_renderer_get_aligned_area" gtk_cell_renderer_get_aligned_area ::
Ptr CellRenderer ->
Ptr Gtk.Widget.Widget ->
CUInt ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
cellRendererGetAlignedArea ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> [Gtk.Flags.CellRendererState]
-> Gdk.Rectangle.Rectangle
-> m (Gdk.Rectangle.Rectangle)
cellRendererGetAlignedArea :: a -> b -> [CellRendererState] -> Rectangle -> m Rectangle
cellRendererGetAlignedArea cell :: a
cell widget :: b
widget flags :: [CellRendererState]
flags cellArea :: 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
let flags' :: CUInt
flags' = [CellRendererState] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [CellRendererState]
flags
Ptr Rectangle
cellArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
Ptr Rectangle
alignedArea <- Int -> IO (Ptr Rectangle)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
Ptr CellRenderer
-> Ptr Widget -> CUInt -> Ptr Rectangle -> Ptr Rectangle -> IO ()
gtk_cell_renderer_get_aligned_area Ptr CellRenderer
cell' Ptr Widget
widget' CUInt
flags' Ptr Rectangle
cellArea' Ptr Rectangle
alignedArea
Rectangle
alignedArea' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
alignedArea
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
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
alignedArea'
#if defined(ENABLE_OVERLOADING)
data CellRendererGetAlignedAreaMethodInfo
instance (signature ~ (b -> [Gtk.Flags.CellRendererState] -> Gdk.Rectangle.Rectangle -> m (Gdk.Rectangle.Rectangle)), MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) => O.MethodInfo CellRendererGetAlignedAreaMethodInfo a signature where
overloadedMethod = cellRendererGetAlignedArea
#endif
foreign import ccall "gtk_cell_renderer_get_alignment" gtk_cell_renderer_get_alignment ::
Ptr CellRenderer ->
Ptr CFloat ->
Ptr CFloat ->
IO ()
cellRendererGetAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a) =>
a
-> m ((Float, Float))
cellRendererGetAlignment :: a -> m (Float, Float)
cellRendererGetAlignment cell :: a
cell = IO (Float, Float) -> m (Float, Float)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Float, Float) -> m (Float, Float))
-> IO (Float, Float) -> m (Float, Float)
forall a b. (a -> b) -> a -> b
$ do
Ptr CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr CFloat
xalign <- IO (Ptr CFloat)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CFloat)
Ptr CFloat
yalign <- IO (Ptr CFloat)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CFloat)
Ptr CellRenderer -> Ptr CFloat -> Ptr CFloat -> IO ()
gtk_cell_renderer_get_alignment Ptr CellRenderer
cell' Ptr CFloat
xalign Ptr CFloat
yalign
CFloat
xalign' <- Ptr CFloat -> IO CFloat
forall a. Storable a => Ptr a -> IO a
peek Ptr CFloat
xalign
let xalign'' :: Float
xalign'' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
xalign'
CFloat
yalign' <- Ptr CFloat -> IO CFloat
forall a. Storable a => Ptr a -> IO a
peek Ptr CFloat
yalign
let yalign'' :: Float
yalign'' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
yalign'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
Ptr CFloat -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CFloat
xalign
Ptr CFloat -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CFloat
yalign
(Float, Float) -> IO (Float, Float)
forall (m :: * -> *) a. Monad m => a -> m a
return (Float
xalign'', Float
yalign'')
#if defined(ENABLE_OVERLOADING)
data CellRendererGetAlignmentMethodInfo
instance (signature ~ (m ((Float, Float))), MonadIO m, IsCellRenderer a) => O.MethodInfo CellRendererGetAlignmentMethodInfo a signature where
overloadedMethod = cellRendererGetAlignment
#endif
foreign import ccall "gtk_cell_renderer_get_fixed_size" gtk_cell_renderer_get_fixed_size ::
Ptr CellRenderer ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellRendererGetFixedSize ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a) =>
a
-> m ((Int32, Int32))
cellRendererGetFixedSize :: a -> m (Int32, Int32)
cellRendererGetFixedSize cell :: a
cell = 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr Int32
width <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
height <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr CellRenderer -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_cell_renderer_get_fixed_size Ptr CellRenderer
cell' Ptr Int32
width Ptr Int32
height
Int32
width' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
width
Int32
height' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
width
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
height
(Int32, Int32) -> IO (Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
width', Int32
height')
#if defined(ENABLE_OVERLOADING)
data CellRendererGetFixedSizeMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsCellRenderer a) => O.MethodInfo CellRendererGetFixedSizeMethodInfo a signature where
overloadedMethod = cellRendererGetFixedSize
#endif
foreign import ccall "gtk_cell_renderer_get_padding" gtk_cell_renderer_get_padding ::
Ptr CellRenderer ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellRendererGetPadding ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a) =>
a
-> m ((Int32, Int32))
cellRendererGetPadding :: a -> m (Int32, Int32)
cellRendererGetPadding cell :: a
cell = 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr Int32
xpad <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
ypad <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr CellRenderer -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_cell_renderer_get_padding Ptr CellRenderer
cell' Ptr Int32
xpad Ptr Int32
ypad
Int32
xpad' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
xpad
Int32
ypad' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
ypad
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
xpad
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
ypad
(Int32, Int32) -> IO (Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
xpad', Int32
ypad')
#if defined(ENABLE_OVERLOADING)
data CellRendererGetPaddingMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsCellRenderer a) => O.MethodInfo CellRendererGetPaddingMethodInfo a signature where
overloadedMethod = cellRendererGetPadding
#endif
foreign import ccall "gtk_cell_renderer_get_preferred_height" gtk_cell_renderer_get_preferred_height ::
Ptr CellRenderer ->
Ptr Gtk.Widget.Widget ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellRendererGetPreferredHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ((Int32, Int32))
cellRendererGetPreferredHeight :: a -> b -> m (Int32, Int32)
cellRendererGetPreferredHeight cell :: a
cell widget :: b
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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
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 CellRenderer -> Ptr Widget -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_cell_renderer_get_preferred_height Ptr CellRenderer
cell' Ptr Widget
widget' 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
cell
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
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 CellRendererGetPreferredHeightMethodInfo
instance (signature ~ (b -> m ((Int32, Int32))), MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) => O.MethodInfo CellRendererGetPreferredHeightMethodInfo a signature where
overloadedMethod = cellRendererGetPreferredHeight
#endif
foreign import ccall "gtk_cell_renderer_get_preferred_height_for_width" gtk_cell_renderer_get_preferred_height_for_width ::
Ptr CellRenderer ->
Ptr Gtk.Widget.Widget ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellRendererGetPreferredHeightForWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Int32
-> m ((Int32, Int32))
cellRendererGetPreferredHeightForWidth :: a -> b -> Int32 -> m (Int32, Int32)
cellRendererGetPreferredHeightForWidth cell :: a
cell widget :: b
widget width :: 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
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 CellRenderer
-> Ptr Widget -> Int32 -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_cell_renderer_get_preferred_height_for_width Ptr CellRenderer
cell' 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
cell
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
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 CellRendererGetPreferredHeightForWidthMethodInfo
instance (signature ~ (b -> Int32 -> m ((Int32, Int32))), MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) => O.MethodInfo CellRendererGetPreferredHeightForWidthMethodInfo a signature where
overloadedMethod = cellRendererGetPreferredHeightForWidth
#endif
foreign import ccall "gtk_cell_renderer_get_preferred_size" gtk_cell_renderer_get_preferred_size ::
Ptr CellRenderer ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Requisition.Requisition ->
Ptr Gtk.Requisition.Requisition ->
IO ()
cellRendererGetPreferredSize ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ((Gtk.Requisition.Requisition, Gtk.Requisition.Requisition))
cellRendererGetPreferredSize :: a -> b -> m (Requisition, Requisition)
cellRendererGetPreferredSize cell :: a
cell widget :: b
widget = IO (Requisition, Requisition) -> m (Requisition, Requisition)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Requisition, Requisition) -> m (Requisition, Requisition))
-> IO (Requisition, Requisition) -> m (Requisition, Requisition)
forall a b. (a -> b) -> a -> b
$ do
Ptr CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr Requisition
minimumSize <- Int -> IO (Ptr Requisition)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 8 :: IO (Ptr Gtk.Requisition.Requisition)
Ptr Requisition
naturalSize <- Int -> IO (Ptr Requisition)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 8 :: IO (Ptr Gtk.Requisition.Requisition)
Ptr CellRenderer
-> Ptr Widget -> Ptr Requisition -> Ptr Requisition -> IO ()
gtk_cell_renderer_get_preferred_size Ptr CellRenderer
cell' Ptr Widget
widget' Ptr Requisition
minimumSize Ptr Requisition
naturalSize
Requisition
minimumSize' <- ((ManagedPtr Requisition -> Requisition)
-> Ptr Requisition -> IO Requisition
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Requisition -> Requisition
Gtk.Requisition.Requisition) Ptr Requisition
minimumSize
Requisition
naturalSize' <- ((ManagedPtr Requisition -> Requisition)
-> Ptr Requisition -> IO Requisition
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Requisition -> Requisition
Gtk.Requisition.Requisition) Ptr Requisition
naturalSize
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
(Requisition, Requisition) -> IO (Requisition, Requisition)
forall (m :: * -> *) a. Monad m => a -> m a
return (Requisition
minimumSize', Requisition
naturalSize')
#if defined(ENABLE_OVERLOADING)
data CellRendererGetPreferredSizeMethodInfo
instance (signature ~ (b -> m ((Gtk.Requisition.Requisition, Gtk.Requisition.Requisition))), MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) => O.MethodInfo CellRendererGetPreferredSizeMethodInfo a signature where
overloadedMethod = cellRendererGetPreferredSize
#endif
foreign import ccall "gtk_cell_renderer_get_preferred_width" gtk_cell_renderer_get_preferred_width ::
Ptr CellRenderer ->
Ptr Gtk.Widget.Widget ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellRendererGetPreferredWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ((Int32, Int32))
cellRendererGetPreferredWidth :: a -> b -> m (Int32, Int32)
cellRendererGetPreferredWidth cell :: a
cell widget :: b
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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
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 CellRenderer -> Ptr Widget -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_cell_renderer_get_preferred_width Ptr CellRenderer
cell' Ptr Widget
widget' 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
cell
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
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 CellRendererGetPreferredWidthMethodInfo
instance (signature ~ (b -> m ((Int32, Int32))), MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) => O.MethodInfo CellRendererGetPreferredWidthMethodInfo a signature where
overloadedMethod = cellRendererGetPreferredWidth
#endif
foreign import ccall "gtk_cell_renderer_get_preferred_width_for_height" gtk_cell_renderer_get_preferred_width_for_height ::
Ptr CellRenderer ->
Ptr Gtk.Widget.Widget ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellRendererGetPreferredWidthForHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Int32
-> m ((Int32, Int32))
cellRendererGetPreferredWidthForHeight :: a -> b -> Int32 -> m (Int32, Int32)
cellRendererGetPreferredWidthForHeight cell :: a
cell widget :: b
widget height :: 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
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 CellRenderer
-> Ptr Widget -> Int32 -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_cell_renderer_get_preferred_width_for_height Ptr CellRenderer
cell' 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
cell
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
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 CellRendererGetPreferredWidthForHeightMethodInfo
instance (signature ~ (b -> Int32 -> m ((Int32, Int32))), MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) => O.MethodInfo CellRendererGetPreferredWidthForHeightMethodInfo a signature where
overloadedMethod = cellRendererGetPreferredWidthForHeight
#endif
foreign import ccall "gtk_cell_renderer_get_request_mode" gtk_cell_renderer_get_request_mode ::
Ptr CellRenderer ->
IO CUInt
cellRendererGetRequestMode ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a) =>
a
-> m Gtk.Enums.SizeRequestMode
cellRendererGetRequestMode :: a -> m SizeRequestMode
cellRendererGetRequestMode cell :: a
cell = 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
CUInt
result <- Ptr CellRenderer -> IO CUInt
gtk_cell_renderer_get_request_mode Ptr CellRenderer
cell'
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
cell
SizeRequestMode -> IO SizeRequestMode
forall (m :: * -> *) a. Monad m => a -> m a
return SizeRequestMode
result'
#if defined(ENABLE_OVERLOADING)
data CellRendererGetRequestModeMethodInfo
instance (signature ~ (m Gtk.Enums.SizeRequestMode), MonadIO m, IsCellRenderer a) => O.MethodInfo CellRendererGetRequestModeMethodInfo a signature where
overloadedMethod = cellRendererGetRequestMode
#endif
foreign import ccall "gtk_cell_renderer_get_sensitive" gtk_cell_renderer_get_sensitive ::
Ptr CellRenderer ->
IO CInt
cellRendererGetSensitive ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a) =>
a
-> m Bool
cellRendererGetSensitive :: a -> m Bool
cellRendererGetSensitive cell :: a
cell = 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
CInt
result <- Ptr CellRenderer -> IO CInt
gtk_cell_renderer_get_sensitive Ptr CellRenderer
cell'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CellRendererGetSensitiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCellRenderer a) => O.MethodInfo CellRendererGetSensitiveMethodInfo a signature where
overloadedMethod = cellRendererGetSensitive
#endif
foreign import ccall "gtk_cell_renderer_get_size" gtk_cell_renderer_get_size ::
Ptr CellRenderer ->
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
{-# DEPRECATED cellRendererGetSize ["(Since version 3.0)","Use 'GI.Gtk.Objects.CellRenderer.cellRendererGetPreferredSize' instead."] #-}
cellRendererGetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Maybe (Gdk.Rectangle.Rectangle)
-> m ((Int32, Int32, Int32, Int32))
cellRendererGetSize :: a -> b -> Maybe Rectangle -> m (Int32, Int32, Int32, Int32)
cellRendererGetSize cell :: a
cell widget :: b
widget cellArea :: Maybe Rectangle
cellArea = IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32))
-> IO (Int32, Int32, Int32, Int32)
-> m (Int32, Int32, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr Rectangle
maybeCellArea <- case Maybe Rectangle
cellArea of
Nothing -> Ptr Rectangle -> IO (Ptr Rectangle)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Rectangle
forall a. Ptr a
nullPtr
Just jCellArea :: Rectangle
jCellArea -> do
Ptr Rectangle
jCellArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
jCellArea
Ptr Rectangle -> IO (Ptr Rectangle)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Rectangle
jCellArea'
Ptr Int32
xOffset <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
yOffset <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
width <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
height <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr CellRenderer
-> Ptr Widget
-> Ptr Rectangle
-> Ptr Int32
-> Ptr Int32
-> Ptr Int32
-> Ptr Int32
-> IO ()
gtk_cell_renderer_get_size Ptr CellRenderer
cell' Ptr Widget
widget' Ptr Rectangle
maybeCellArea Ptr Int32
xOffset Ptr Int32
yOffset Ptr Int32
width Ptr Int32
height
Int32
xOffset' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
xOffset
Int32
yOffset' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
yOffset
Int32
width' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
width
Int32
height' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
Maybe Rectangle -> (Rectangle -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Rectangle
cellArea Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
xOffset
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
yOffset
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
width
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
height
(Int32, Int32, Int32, Int32) -> IO (Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
xOffset', Int32
yOffset', Int32
width', Int32
height')
#if defined(ENABLE_OVERLOADING)
data CellRendererGetSizeMethodInfo
instance (signature ~ (b -> Maybe (Gdk.Rectangle.Rectangle) -> m ((Int32, Int32, Int32, Int32))), MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) => O.MethodInfo CellRendererGetSizeMethodInfo a signature where
overloadedMethod = cellRendererGetSize
#endif
foreign import ccall "gtk_cell_renderer_get_state" gtk_cell_renderer_get_state ::
Ptr CellRenderer ->
Ptr Gtk.Widget.Widget ->
CUInt ->
IO CUInt
cellRendererGetState ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> [Gtk.Flags.CellRendererState]
-> m [Gtk.Flags.StateFlags]
cellRendererGetState :: a -> Maybe b -> [CellRendererState] -> m [StateFlags]
cellRendererGetState cell :: a
cell widget :: Maybe b
widget cellState :: [CellRendererState]
cellState = IO [StateFlags] -> m [StateFlags]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [StateFlags] -> m [StateFlags])
-> IO [StateFlags] -> m [StateFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr Widget
maybeWidget <- case Maybe b
widget of
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jWidget :: b
jWidget -> do
Ptr Widget
jWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jWidget
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jWidget'
let cellState' :: CUInt
cellState' = [CellRendererState] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [CellRendererState]
cellState
CUInt
result <- Ptr CellRenderer -> Ptr Widget -> CUInt -> IO CUInt
gtk_cell_renderer_get_state Ptr CellRenderer
cell' Ptr Widget
maybeWidget CUInt
cellState'
let result' :: [StateFlags]
result' = CUInt -> [StateFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
widget b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
[StateFlags] -> IO [StateFlags]
forall (m :: * -> *) a. Monad m => a -> m a
return [StateFlags]
result'
#if defined(ENABLE_OVERLOADING)
data CellRendererGetStateMethodInfo
instance (signature ~ (Maybe (b) -> [Gtk.Flags.CellRendererState] -> m [Gtk.Flags.StateFlags]), MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) => O.MethodInfo CellRendererGetStateMethodInfo a signature where
overloadedMethod = cellRendererGetState
#endif
foreign import ccall "gtk_cell_renderer_get_visible" gtk_cell_renderer_get_visible ::
Ptr CellRenderer ->
IO CInt
cellRendererGetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a) =>
a
-> m Bool
cellRendererGetVisible :: a -> m Bool
cellRendererGetVisible cell :: a
cell = 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
CInt
result <- Ptr CellRenderer -> IO CInt
gtk_cell_renderer_get_visible Ptr CellRenderer
cell'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CellRendererGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCellRenderer a) => O.MethodInfo CellRendererGetVisibleMethodInfo a signature where
overloadedMethod = cellRendererGetVisible
#endif
foreign import ccall "gtk_cell_renderer_is_activatable" gtk_cell_renderer_is_activatable ::
Ptr CellRenderer ->
IO CInt
cellRendererIsActivatable ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a) =>
a
-> m Bool
cellRendererIsActivatable :: a -> m Bool
cellRendererIsActivatable cell :: a
cell = 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
CInt
result <- Ptr CellRenderer -> IO CInt
gtk_cell_renderer_is_activatable Ptr CellRenderer
cell'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CellRendererIsActivatableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCellRenderer a) => O.MethodInfo CellRendererIsActivatableMethodInfo a signature where
overloadedMethod = cellRendererIsActivatable
#endif
foreign import ccall "gtk_cell_renderer_render" gtk_cell_renderer_render ::
Ptr CellRenderer ->
Ptr Cairo.Context.Context ->
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Rectangle.Rectangle ->
CUInt ->
IO ()
cellRendererRender ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) =>
a
-> Cairo.Context.Context
-> b
-> Gdk.Rectangle.Rectangle
-> Gdk.Rectangle.Rectangle
-> [Gtk.Flags.CellRendererState]
-> m ()
cellRendererRender :: a
-> Context
-> b
-> Rectangle
-> Rectangle
-> [CellRendererState]
-> m ()
cellRendererRender cell :: a
cell cr :: Context
cr widget :: b
widget backgroundArea :: Rectangle
backgroundArea cellArea :: Rectangle
cellArea flags :: [CellRendererState]
flags = 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr Context
cr' <- Context -> IO (Ptr Context)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Context
cr
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
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
Ptr CellRenderer
-> Ptr Context
-> Ptr Widget
-> Ptr Rectangle
-> Ptr Rectangle
-> CUInt
-> IO ()
gtk_cell_renderer_render Ptr CellRenderer
cell' Ptr Context
cr' Ptr Widget
widget' Ptr Rectangle
backgroundArea' Ptr Rectangle
cellArea' CUInt
flags'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
Context -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Context
cr
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
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 CellRendererRenderMethodInfo
instance (signature ~ (Cairo.Context.Context -> b -> Gdk.Rectangle.Rectangle -> Gdk.Rectangle.Rectangle -> [Gtk.Flags.CellRendererState] -> m ()), MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) => O.MethodInfo CellRendererRenderMethodInfo a signature where
overloadedMethod = cellRendererRender
#endif
foreign import ccall "gtk_cell_renderer_set_alignment" gtk_cell_renderer_set_alignment ::
Ptr CellRenderer ->
CFloat ->
CFloat ->
IO ()
cellRendererSetAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a) =>
a
-> Float
-> Float
-> m ()
cellRendererSetAlignment :: a -> Float -> Float -> m ()
cellRendererSetAlignment cell :: a
cell xalign :: Float
xalign yalign :: Float
yalign = 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
let xalign' :: CFloat
xalign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
xalign
let yalign' :: CFloat
yalign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
yalign
Ptr CellRenderer -> CFloat -> CFloat -> IO ()
gtk_cell_renderer_set_alignment Ptr CellRenderer
cell' CFloat
xalign' CFloat
yalign'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellRendererSetAlignmentMethodInfo
instance (signature ~ (Float -> Float -> m ()), MonadIO m, IsCellRenderer a) => O.MethodInfo CellRendererSetAlignmentMethodInfo a signature where
overloadedMethod = cellRendererSetAlignment
#endif
foreign import ccall "gtk_cell_renderer_set_fixed_size" gtk_cell_renderer_set_fixed_size ::
Ptr CellRenderer ->
Int32 ->
Int32 ->
IO ()
cellRendererSetFixedSize ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a) =>
a
-> Int32
-> Int32
-> m ()
cellRendererSetFixedSize :: a -> Int32 -> Int32 -> m ()
cellRendererSetFixedSize cell :: a
cell width :: Int32
width height :: Int32
height = 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr CellRenderer -> Int32 -> Int32 -> IO ()
gtk_cell_renderer_set_fixed_size Ptr CellRenderer
cell' Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellRendererSetFixedSizeMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsCellRenderer a) => O.MethodInfo CellRendererSetFixedSizeMethodInfo a signature where
overloadedMethod = cellRendererSetFixedSize
#endif
foreign import ccall "gtk_cell_renderer_set_padding" gtk_cell_renderer_set_padding ::
Ptr CellRenderer ->
Int32 ->
Int32 ->
IO ()
cellRendererSetPadding ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a) =>
a
-> Int32
-> Int32
-> m ()
cellRendererSetPadding :: a -> Int32 -> Int32 -> m ()
cellRendererSetPadding cell :: a
cell xpad :: Int32
xpad ypad :: Int32
ypad = 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr CellRenderer -> Int32 -> Int32 -> IO ()
gtk_cell_renderer_set_padding Ptr CellRenderer
cell' Int32
xpad Int32
ypad
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellRendererSetPaddingMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsCellRenderer a) => O.MethodInfo CellRendererSetPaddingMethodInfo a signature where
overloadedMethod = cellRendererSetPadding
#endif
foreign import ccall "gtk_cell_renderer_set_sensitive" gtk_cell_renderer_set_sensitive ::
Ptr CellRenderer ->
CInt ->
IO ()
cellRendererSetSensitive ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a) =>
a
-> Bool
-> m ()
cellRendererSetSensitive :: a -> Bool -> m ()
cellRendererSetSensitive cell :: a
cell sensitive :: Bool
sensitive = 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
let sensitive' :: CInt
sensitive' = (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
sensitive
Ptr CellRenderer -> CInt -> IO ()
gtk_cell_renderer_set_sensitive Ptr CellRenderer
cell' CInt
sensitive'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellRendererSetSensitiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCellRenderer a) => O.MethodInfo CellRendererSetSensitiveMethodInfo a signature where
overloadedMethod = cellRendererSetSensitive
#endif
foreign import ccall "gtk_cell_renderer_set_visible" gtk_cell_renderer_set_visible ::
Ptr CellRenderer ->
CInt ->
IO ()
cellRendererSetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a) =>
a
-> Bool
-> m ()
cellRendererSetVisible :: a -> Bool -> m ()
cellRendererSetVisible cell :: a
cell visible :: Bool
visible = 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
let visible' :: CInt
visible' = (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
visible
Ptr CellRenderer -> CInt -> IO ()
gtk_cell_renderer_set_visible Ptr CellRenderer
cell' CInt
visible'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellRendererSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCellRenderer a) => O.MethodInfo CellRendererSetVisibleMethodInfo a signature where
overloadedMethod = cellRendererSetVisible
#endif
foreign import ccall "gtk_cell_renderer_start_editing" gtk_cell_renderer_start_editing ::
Ptr CellRenderer ->
Ptr Gdk.Event.Event ->
Ptr Gtk.Widget.Widget ->
CString ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Rectangle.Rectangle ->
CUInt ->
IO (Ptr Gtk.CellEditable.CellEditable)
cellRendererStartEditing ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (Gdk.Event.Event)
-> b
-> T.Text
-> Gdk.Rectangle.Rectangle
-> Gdk.Rectangle.Rectangle
-> [Gtk.Flags.CellRendererState]
-> m (Maybe Gtk.CellEditable.CellEditable)
cellRendererStartEditing :: a
-> Maybe Event
-> b
-> Text
-> Rectangle
-> Rectangle
-> [CellRendererState]
-> m (Maybe CellEditable)
cellRendererStartEditing cell :: a
cell event :: Maybe Event
event widget :: b
widget path :: Text
path backgroundArea :: Rectangle
backgroundArea cellArea :: Rectangle
cellArea flags :: [CellRendererState]
flags = IO (Maybe CellEditable) -> m (Maybe CellEditable)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe CellEditable) -> m (Maybe CellEditable))
-> IO (Maybe CellEditable) -> m (Maybe CellEditable)
forall a b. (a -> b) -> a -> b
$ do
Ptr CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
Ptr Event
maybeEvent <- case Maybe Event
event of
Nothing -> Ptr Event -> IO (Ptr Event)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Event
forall a. Ptr a
nullPtr
Just jEvent :: Event
jEvent -> do
Ptr Event
jEvent' <- Event -> IO (Ptr Event)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
jEvent
Ptr Event -> IO (Ptr Event)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Event
jEvent'
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
CString
path' <- Text -> IO CString
textToCString Text
path
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
Ptr CellEditable
result <- Ptr CellRenderer
-> Ptr Event
-> Ptr Widget
-> CString
-> Ptr Rectangle
-> Ptr Rectangle
-> CUInt
-> IO (Ptr CellEditable)
gtk_cell_renderer_start_editing Ptr CellRenderer
cell' Ptr Event
maybeEvent Ptr Widget
widget' CString
path' Ptr Rectangle
backgroundArea' Ptr Rectangle
cellArea' CUInt
flags'
Maybe CellEditable
maybeResult <- Ptr CellEditable
-> (Ptr CellEditable -> IO CellEditable) -> IO (Maybe CellEditable)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CellEditable
result ((Ptr CellEditable -> IO CellEditable) -> IO (Maybe CellEditable))
-> (Ptr CellEditable -> IO CellEditable) -> IO (Maybe CellEditable)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr CellEditable
result' -> do
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'
CellEditable -> IO CellEditable
forall (m :: * -> *) a. Monad m => a -> m a
return CellEditable
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
Maybe Event -> (Event -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Event
event Event -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
backgroundArea
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
path'
Maybe CellEditable -> IO (Maybe CellEditable)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CellEditable
maybeResult
#if defined(ENABLE_OVERLOADING)
data CellRendererStartEditingMethodInfo
instance (signature ~ (Maybe (Gdk.Event.Event) -> b -> T.Text -> Gdk.Rectangle.Rectangle -> Gdk.Rectangle.Rectangle -> [Gtk.Flags.CellRendererState] -> m (Maybe Gtk.CellEditable.CellEditable)), MonadIO m, IsCellRenderer a, Gtk.Widget.IsWidget b) => O.MethodInfo CellRendererStartEditingMethodInfo a signature where
overloadedMethod = cellRendererStartEditing
#endif
foreign import ccall "gtk_cell_renderer_stop_editing" gtk_cell_renderer_stop_editing ::
Ptr CellRenderer ->
CInt ->
IO ()
cellRendererStopEditing ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRenderer a) =>
a
-> Bool
-> m ()
cellRendererStopEditing :: a -> Bool -> m ()
cellRendererStopEditing cell :: a
cell canceled :: 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 CellRenderer
cell' <- a -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cell
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 CellRenderer -> CInt -> IO ()
gtk_cell_renderer_stop_editing Ptr CellRenderer
cell' CInt
canceled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cell
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellRendererStopEditingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCellRenderer a) => O.MethodInfo CellRendererStopEditingMethodInfo a signature where
overloadedMethod = cellRendererStopEditing
#endif