module GI.Gtk.Objects.CellRenderer
(
CellRenderer(..) ,
CellRendererK ,
toCellRenderer ,
noCellRenderer ,
cellRendererActivate ,
cellRendererGetAlignedArea ,
cellRendererGetAlignment ,
cellRendererGetFixedSize ,
cellRendererGetPadding ,
cellRendererGetPreferredHeight ,
cellRendererGetPreferredHeightForWidth ,
cellRendererGetPreferredSize ,
cellRendererGetPreferredWidth ,
cellRendererGetPreferredWidthForHeight ,
cellRendererGetRequestMode ,
cellRendererGetSensitive ,
cellRendererGetSize ,
cellRendererGetState ,
cellRendererGetVisible ,
cellRendererIsActivatable ,
cellRendererRender ,
cellRendererSetAlignment ,
cellRendererSetFixedSize ,
cellRendererSetPadding ,
cellRendererSetSensitive ,
cellRendererSetVisible ,
cellRendererStartEditing ,
cellRendererStopEditing ,
CellRendererCellBackgroundPropertyInfo ,
constructCellRendererCellBackground ,
setCellRendererCellBackground ,
CellRendererCellBackgroundGdkPropertyInfo,
constructCellRendererCellBackgroundGdk ,
getCellRendererCellBackgroundGdk ,
setCellRendererCellBackgroundGdk ,
CellRendererCellBackgroundRgbaPropertyInfo,
constructCellRendererCellBackgroundRgba ,
getCellRendererCellBackgroundRgba ,
setCellRendererCellBackgroundRgba ,
CellRendererCellBackgroundSetPropertyInfo,
constructCellRendererCellBackgroundSet ,
getCellRendererCellBackgroundSet ,
setCellRendererCellBackgroundSet ,
CellRendererEditingPropertyInfo ,
getCellRendererEditing ,
CellRendererHeightPropertyInfo ,
constructCellRendererHeight ,
getCellRendererHeight ,
setCellRendererHeight ,
CellRendererIsExpandedPropertyInfo ,
constructCellRendererIsExpanded ,
getCellRendererIsExpanded ,
setCellRendererIsExpanded ,
CellRendererIsExpanderPropertyInfo ,
constructCellRendererIsExpander ,
getCellRendererIsExpander ,
setCellRendererIsExpander ,
CellRendererModePropertyInfo ,
constructCellRendererMode ,
getCellRendererMode ,
setCellRendererMode ,
CellRendererSensitivePropertyInfo ,
constructCellRendererSensitive ,
getCellRendererSensitive ,
setCellRendererSensitive ,
CellRendererVisiblePropertyInfo ,
constructCellRendererVisible ,
getCellRendererVisible ,
setCellRendererVisible ,
CellRendererWidthPropertyInfo ,
constructCellRendererWidth ,
getCellRendererWidth ,
setCellRendererWidth ,
CellRendererXalignPropertyInfo ,
constructCellRendererXalign ,
getCellRendererXalign ,
setCellRendererXalign ,
CellRendererXpadPropertyInfo ,
constructCellRendererXpad ,
getCellRendererXpad ,
setCellRendererXpad ,
CellRendererYalignPropertyInfo ,
constructCellRendererYalign ,
getCellRendererYalign ,
setCellRendererYalign ,
CellRendererYpadPropertyInfo ,
constructCellRendererYpad ,
getCellRendererYpad ,
setCellRendererYpad ,
CellRendererEditingCanceledCallback ,
CellRendererEditingCanceledCallbackC ,
CellRendererEditingCanceledSignalInfo ,
afterCellRendererEditingCanceled ,
cellRendererEditingCanceledCallbackWrapper,
cellRendererEditingCanceledClosure ,
mkCellRendererEditingCanceledCallback ,
noCellRendererEditingCanceledCallback ,
onCellRendererEditingCanceled ,
CellRendererEditingStartedCallback ,
CellRendererEditingStartedCallbackC ,
CellRendererEditingStartedSignalInfo ,
afterCellRendererEditingStarted ,
cellRendererEditingStartedCallbackWrapper,
cellRendererEditingStartedClosure ,
mkCellRendererEditingStartedCallback ,
noCellRendererEditingStartedCallback ,
onCellRendererEditingStarted ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.GObject as GObject
import qualified GI.Gdk as Gdk
import qualified GI.Cairo as Cairo
newtype CellRenderer = CellRenderer (ForeignPtr CellRenderer)
foreign import ccall "gtk_cell_renderer_get_type"
c_gtk_cell_renderer_get_type :: IO GType
type instance ParentTypes CellRenderer = CellRendererParentTypes
type CellRendererParentTypes = '[GObject.Object]
instance GObject CellRenderer where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_cell_renderer_get_type
class GObject o => CellRendererK o
instance (GObject o, IsDescendantOf CellRenderer o) => CellRendererK o
toCellRenderer :: CellRendererK o => o -> IO CellRenderer
toCellRenderer = unsafeCastTo CellRenderer
noCellRenderer :: Maybe CellRenderer
noCellRenderer = Nothing
type CellRendererEditingCanceledCallback =
IO ()
noCellRendererEditingCanceledCallback :: Maybe CellRendererEditingCanceledCallback
noCellRendererEditingCanceledCallback = Nothing
type CellRendererEditingCanceledCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkCellRendererEditingCanceledCallback :: CellRendererEditingCanceledCallbackC -> IO (FunPtr CellRendererEditingCanceledCallbackC)
cellRendererEditingCanceledClosure :: CellRendererEditingCanceledCallback -> IO Closure
cellRendererEditingCanceledClosure cb = newCClosure =<< mkCellRendererEditingCanceledCallback wrapped
where wrapped = cellRendererEditingCanceledCallbackWrapper cb
cellRendererEditingCanceledCallbackWrapper ::
CellRendererEditingCanceledCallback ->
Ptr () ->
Ptr () ->
IO ()
cellRendererEditingCanceledCallbackWrapper _cb _ _ = do
_cb
onCellRendererEditingCanceled :: (GObject a, MonadIO m) => a -> CellRendererEditingCanceledCallback -> m SignalHandlerId
onCellRendererEditingCanceled obj cb = liftIO $ connectCellRendererEditingCanceled obj cb SignalConnectBefore
afterCellRendererEditingCanceled :: (GObject a, MonadIO m) => a -> CellRendererEditingCanceledCallback -> m SignalHandlerId
afterCellRendererEditingCanceled obj cb = connectCellRendererEditingCanceled obj cb SignalConnectAfter
connectCellRendererEditingCanceled :: (GObject a, MonadIO m) =>
a -> CellRendererEditingCanceledCallback -> SignalConnectMode -> m SignalHandlerId
connectCellRendererEditingCanceled obj cb after = liftIO $ do
cb' <- mkCellRendererEditingCanceledCallback (cellRendererEditingCanceledCallbackWrapper cb)
connectSignalFunPtr obj "editing-canceled" cb' after
type CellRendererEditingStartedCallback =
CellEditable ->
T.Text ->
IO ()
noCellRendererEditingStartedCallback :: Maybe CellRendererEditingStartedCallback
noCellRendererEditingStartedCallback = Nothing
type CellRendererEditingStartedCallbackC =
Ptr () ->
Ptr CellEditable ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkCellRendererEditingStartedCallback :: CellRendererEditingStartedCallbackC -> IO (FunPtr CellRendererEditingStartedCallbackC)
cellRendererEditingStartedClosure :: CellRendererEditingStartedCallback -> IO Closure
cellRendererEditingStartedClosure cb = newCClosure =<< mkCellRendererEditingStartedCallback wrapped
where wrapped = cellRendererEditingStartedCallbackWrapper cb
cellRendererEditingStartedCallbackWrapper ::
CellRendererEditingStartedCallback ->
Ptr () ->
Ptr CellEditable ->
CString ->
Ptr () ->
IO ()
cellRendererEditingStartedCallbackWrapper _cb _ editable path _ = do
editable' <- (newObject CellEditable) editable
path' <- cstringToText path
_cb editable' path'
onCellRendererEditingStarted :: (GObject a, MonadIO m) => a -> CellRendererEditingStartedCallback -> m SignalHandlerId
onCellRendererEditingStarted obj cb = liftIO $ connectCellRendererEditingStarted obj cb SignalConnectBefore
afterCellRendererEditingStarted :: (GObject a, MonadIO m) => a -> CellRendererEditingStartedCallback -> m SignalHandlerId
afterCellRendererEditingStarted obj cb = connectCellRendererEditingStarted obj cb SignalConnectAfter
connectCellRendererEditingStarted :: (GObject a, MonadIO m) =>
a -> CellRendererEditingStartedCallback -> SignalConnectMode -> m SignalHandlerId
connectCellRendererEditingStarted obj cb after = liftIO $ do
cb' <- mkCellRendererEditingStartedCallback (cellRendererEditingStartedCallbackWrapper cb)
connectSignalFunPtr obj "editing-started" cb' after
setCellRendererCellBackground :: (MonadIO m, CellRendererK o) => o -> T.Text -> m ()
setCellRendererCellBackground obj val = liftIO $ setObjectPropertyString obj "cell-background" val
constructCellRendererCellBackground :: T.Text -> IO ([Char], GValue)
constructCellRendererCellBackground val = constructObjectPropertyString "cell-background" val
data CellRendererCellBackgroundPropertyInfo
instance AttrInfo CellRendererCellBackgroundPropertyInfo where
type AttrAllowedOps CellRendererCellBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct]
type AttrSetTypeConstraint CellRendererCellBackgroundPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint CellRendererCellBackgroundPropertyInfo = CellRendererK
type AttrGetType CellRendererCellBackgroundPropertyInfo = ()
type AttrLabel CellRendererCellBackgroundPropertyInfo = "CellRenderer::cell-background"
attrGet _ = undefined
attrSet _ = setCellRendererCellBackground
attrConstruct _ = constructCellRendererCellBackground
getCellRendererCellBackgroundGdk :: (MonadIO m, CellRendererK o) => o -> m Gdk.Color
getCellRendererCellBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "cell-background-gdk" Gdk.Color
setCellRendererCellBackgroundGdk :: (MonadIO m, CellRendererK o) => o -> Gdk.Color -> m ()
setCellRendererCellBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "cell-background-gdk" val
constructCellRendererCellBackgroundGdk :: Gdk.Color -> IO ([Char], GValue)
constructCellRendererCellBackgroundGdk val = constructObjectPropertyBoxed "cell-background-gdk" val
data CellRendererCellBackgroundGdkPropertyInfo
instance AttrInfo CellRendererCellBackgroundGdkPropertyInfo where
type AttrAllowedOps CellRendererCellBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = (~) Gdk.Color
type AttrBaseTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = CellRendererK
type AttrGetType CellRendererCellBackgroundGdkPropertyInfo = Gdk.Color
type AttrLabel CellRendererCellBackgroundGdkPropertyInfo = "CellRenderer::cell-background-gdk"
attrGet _ = getCellRendererCellBackgroundGdk
attrSet _ = setCellRendererCellBackgroundGdk
attrConstruct _ = constructCellRendererCellBackgroundGdk
getCellRendererCellBackgroundRgba :: (MonadIO m, CellRendererK o) => o -> m Gdk.RGBA
getCellRendererCellBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "cell-background-rgba" Gdk.RGBA
setCellRendererCellBackgroundRgba :: (MonadIO m, CellRendererK o) => o -> Gdk.RGBA -> m ()
setCellRendererCellBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "cell-background-rgba" val
constructCellRendererCellBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue)
constructCellRendererCellBackgroundRgba val = constructObjectPropertyBoxed "cell-background-rgba" val
data CellRendererCellBackgroundRgbaPropertyInfo
instance AttrInfo CellRendererCellBackgroundRgbaPropertyInfo where
type AttrAllowedOps CellRendererCellBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = (~) Gdk.RGBA
type AttrBaseTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = CellRendererK
type AttrGetType CellRendererCellBackgroundRgbaPropertyInfo = Gdk.RGBA
type AttrLabel CellRendererCellBackgroundRgbaPropertyInfo = "CellRenderer::cell-background-rgba"
attrGet _ = getCellRendererCellBackgroundRgba
attrSet _ = setCellRendererCellBackgroundRgba
attrConstruct _ = constructCellRendererCellBackgroundRgba
getCellRendererCellBackgroundSet :: (MonadIO m, CellRendererK o) => o -> m Bool
getCellRendererCellBackgroundSet obj = liftIO $ getObjectPropertyBool obj "cell-background-set"
setCellRendererCellBackgroundSet :: (MonadIO m, CellRendererK o) => o -> Bool -> m ()
setCellRendererCellBackgroundSet obj val = liftIO $ setObjectPropertyBool obj "cell-background-set" val
constructCellRendererCellBackgroundSet :: Bool -> IO ([Char], GValue)
constructCellRendererCellBackgroundSet val = constructObjectPropertyBool "cell-background-set" val
data CellRendererCellBackgroundSetPropertyInfo
instance AttrInfo CellRendererCellBackgroundSetPropertyInfo where
type AttrAllowedOps CellRendererCellBackgroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererCellBackgroundSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint CellRendererCellBackgroundSetPropertyInfo = CellRendererK
type AttrGetType CellRendererCellBackgroundSetPropertyInfo = Bool
type AttrLabel CellRendererCellBackgroundSetPropertyInfo = "CellRenderer::cell-background-set"
attrGet _ = getCellRendererCellBackgroundSet
attrSet _ = setCellRendererCellBackgroundSet
attrConstruct _ = constructCellRendererCellBackgroundSet
getCellRendererEditing :: (MonadIO m, CellRendererK o) => o -> m Bool
getCellRendererEditing obj = liftIO $ getObjectPropertyBool obj "editing"
data CellRendererEditingPropertyInfo
instance AttrInfo CellRendererEditingPropertyInfo where
type AttrAllowedOps CellRendererEditingPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint CellRendererEditingPropertyInfo = (~) ()
type AttrBaseTypeConstraint CellRendererEditingPropertyInfo = CellRendererK
type AttrGetType CellRendererEditingPropertyInfo = Bool
type AttrLabel CellRendererEditingPropertyInfo = "CellRenderer::editing"
attrGet _ = getCellRendererEditing
attrSet _ = undefined
attrConstruct _ = undefined
getCellRendererHeight :: (MonadIO m, CellRendererK o) => o -> m Int32
getCellRendererHeight obj = liftIO $ getObjectPropertyCInt obj "height"
setCellRendererHeight :: (MonadIO m, CellRendererK o) => o -> Int32 -> m ()
setCellRendererHeight obj val = liftIO $ setObjectPropertyCInt obj "height" val
constructCellRendererHeight :: Int32 -> IO ([Char], GValue)
constructCellRendererHeight val = constructObjectPropertyCInt "height" val
data CellRendererHeightPropertyInfo
instance AttrInfo CellRendererHeightPropertyInfo where
type AttrAllowedOps CellRendererHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererHeightPropertyInfo = (~) Int32
type AttrBaseTypeConstraint CellRendererHeightPropertyInfo = CellRendererK
type AttrGetType CellRendererHeightPropertyInfo = Int32
type AttrLabel CellRendererHeightPropertyInfo = "CellRenderer::height"
attrGet _ = getCellRendererHeight
attrSet _ = setCellRendererHeight
attrConstruct _ = constructCellRendererHeight
getCellRendererIsExpanded :: (MonadIO m, CellRendererK o) => o -> m Bool
getCellRendererIsExpanded obj = liftIO $ getObjectPropertyBool obj "is-expanded"
setCellRendererIsExpanded :: (MonadIO m, CellRendererK o) => o -> Bool -> m ()
setCellRendererIsExpanded obj val = liftIO $ setObjectPropertyBool obj "is-expanded" val
constructCellRendererIsExpanded :: Bool -> IO ([Char], GValue)
constructCellRendererIsExpanded val = constructObjectPropertyBool "is-expanded" val
data CellRendererIsExpandedPropertyInfo
instance AttrInfo CellRendererIsExpandedPropertyInfo where
type AttrAllowedOps CellRendererIsExpandedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererIsExpandedPropertyInfo = (~) Bool
type AttrBaseTypeConstraint CellRendererIsExpandedPropertyInfo = CellRendererK
type AttrGetType CellRendererIsExpandedPropertyInfo = Bool
type AttrLabel CellRendererIsExpandedPropertyInfo = "CellRenderer::is-expanded"
attrGet _ = getCellRendererIsExpanded
attrSet _ = setCellRendererIsExpanded
attrConstruct _ = constructCellRendererIsExpanded
getCellRendererIsExpander :: (MonadIO m, CellRendererK o) => o -> m Bool
getCellRendererIsExpander obj = liftIO $ getObjectPropertyBool obj "is-expander"
setCellRendererIsExpander :: (MonadIO m, CellRendererK o) => o -> Bool -> m ()
setCellRendererIsExpander obj val = liftIO $ setObjectPropertyBool obj "is-expander" val
constructCellRendererIsExpander :: Bool -> IO ([Char], GValue)
constructCellRendererIsExpander val = constructObjectPropertyBool "is-expander" val
data CellRendererIsExpanderPropertyInfo
instance AttrInfo CellRendererIsExpanderPropertyInfo where
type AttrAllowedOps CellRendererIsExpanderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererIsExpanderPropertyInfo = (~) Bool
type AttrBaseTypeConstraint CellRendererIsExpanderPropertyInfo = CellRendererK
type AttrGetType CellRendererIsExpanderPropertyInfo = Bool
type AttrLabel CellRendererIsExpanderPropertyInfo = "CellRenderer::is-expander"
attrGet _ = getCellRendererIsExpander
attrSet _ = setCellRendererIsExpander
attrConstruct _ = constructCellRendererIsExpander
getCellRendererMode :: (MonadIO m, CellRendererK o) => o -> m CellRendererMode
getCellRendererMode obj = liftIO $ getObjectPropertyEnum obj "mode"
setCellRendererMode :: (MonadIO m, CellRendererK o) => o -> CellRendererMode -> m ()
setCellRendererMode obj val = liftIO $ setObjectPropertyEnum obj "mode" val
constructCellRendererMode :: CellRendererMode -> IO ([Char], GValue)
constructCellRendererMode val = constructObjectPropertyEnum "mode" val
data CellRendererModePropertyInfo
instance AttrInfo CellRendererModePropertyInfo where
type AttrAllowedOps CellRendererModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererModePropertyInfo = (~) CellRendererMode
type AttrBaseTypeConstraint CellRendererModePropertyInfo = CellRendererK
type AttrGetType CellRendererModePropertyInfo = CellRendererMode
type AttrLabel CellRendererModePropertyInfo = "CellRenderer::mode"
attrGet _ = getCellRendererMode
attrSet _ = setCellRendererMode
attrConstruct _ = constructCellRendererMode
getCellRendererSensitive :: (MonadIO m, CellRendererK o) => o -> m Bool
getCellRendererSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive"
setCellRendererSensitive :: (MonadIO m, CellRendererK o) => o -> Bool -> m ()
setCellRendererSensitive obj val = liftIO $ setObjectPropertyBool obj "sensitive" val
constructCellRendererSensitive :: Bool -> IO ([Char], GValue)
constructCellRendererSensitive val = constructObjectPropertyBool "sensitive" val
data CellRendererSensitivePropertyInfo
instance AttrInfo CellRendererSensitivePropertyInfo where
type AttrAllowedOps CellRendererSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererSensitivePropertyInfo = (~) Bool
type AttrBaseTypeConstraint CellRendererSensitivePropertyInfo = CellRendererK
type AttrGetType CellRendererSensitivePropertyInfo = Bool
type AttrLabel CellRendererSensitivePropertyInfo = "CellRenderer::sensitive"
attrGet _ = getCellRendererSensitive
attrSet _ = setCellRendererSensitive
attrConstruct _ = constructCellRendererSensitive
getCellRendererVisible :: (MonadIO m, CellRendererK o) => o -> m Bool
getCellRendererVisible obj = liftIO $ getObjectPropertyBool obj "visible"
setCellRendererVisible :: (MonadIO m, CellRendererK o) => o -> Bool -> m ()
setCellRendererVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val
constructCellRendererVisible :: Bool -> IO ([Char], GValue)
constructCellRendererVisible val = constructObjectPropertyBool "visible" val
data CellRendererVisiblePropertyInfo
instance AttrInfo CellRendererVisiblePropertyInfo where
type AttrAllowedOps CellRendererVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererVisiblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint CellRendererVisiblePropertyInfo = CellRendererK
type AttrGetType CellRendererVisiblePropertyInfo = Bool
type AttrLabel CellRendererVisiblePropertyInfo = "CellRenderer::visible"
attrGet _ = getCellRendererVisible
attrSet _ = setCellRendererVisible
attrConstruct _ = constructCellRendererVisible
getCellRendererWidth :: (MonadIO m, CellRendererK o) => o -> m Int32
getCellRendererWidth obj = liftIO $ getObjectPropertyCInt obj "width"
setCellRendererWidth :: (MonadIO m, CellRendererK o) => o -> Int32 -> m ()
setCellRendererWidth obj val = liftIO $ setObjectPropertyCInt obj "width" val
constructCellRendererWidth :: Int32 -> IO ([Char], GValue)
constructCellRendererWidth val = constructObjectPropertyCInt "width" val
data CellRendererWidthPropertyInfo
instance AttrInfo CellRendererWidthPropertyInfo where
type AttrAllowedOps CellRendererWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererWidthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint CellRendererWidthPropertyInfo = CellRendererK
type AttrGetType CellRendererWidthPropertyInfo = Int32
type AttrLabel CellRendererWidthPropertyInfo = "CellRenderer::width"
attrGet _ = getCellRendererWidth
attrSet _ = setCellRendererWidth
attrConstruct _ = constructCellRendererWidth
getCellRendererXalign :: (MonadIO m, CellRendererK o) => o -> m Float
getCellRendererXalign obj = liftIO $ getObjectPropertyFloat obj "xalign"
setCellRendererXalign :: (MonadIO m, CellRendererK o) => o -> Float -> m ()
setCellRendererXalign obj val = liftIO $ setObjectPropertyFloat obj "xalign" val
constructCellRendererXalign :: Float -> IO ([Char], GValue)
constructCellRendererXalign val = constructObjectPropertyFloat "xalign" val
data CellRendererXalignPropertyInfo
instance AttrInfo CellRendererXalignPropertyInfo where
type AttrAllowedOps CellRendererXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererXalignPropertyInfo = (~) Float
type AttrBaseTypeConstraint CellRendererXalignPropertyInfo = CellRendererK
type AttrGetType CellRendererXalignPropertyInfo = Float
type AttrLabel CellRendererXalignPropertyInfo = "CellRenderer::xalign"
attrGet _ = getCellRendererXalign
attrSet _ = setCellRendererXalign
attrConstruct _ = constructCellRendererXalign
getCellRendererXpad :: (MonadIO m, CellRendererK o) => o -> m Word32
getCellRendererXpad obj = liftIO $ getObjectPropertyCUInt obj "xpad"
setCellRendererXpad :: (MonadIO m, CellRendererK o) => o -> Word32 -> m ()
setCellRendererXpad obj val = liftIO $ setObjectPropertyCUInt obj "xpad" val
constructCellRendererXpad :: Word32 -> IO ([Char], GValue)
constructCellRendererXpad val = constructObjectPropertyCUInt "xpad" val
data CellRendererXpadPropertyInfo
instance AttrInfo CellRendererXpadPropertyInfo where
type AttrAllowedOps CellRendererXpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererXpadPropertyInfo = (~) Word32
type AttrBaseTypeConstraint CellRendererXpadPropertyInfo = CellRendererK
type AttrGetType CellRendererXpadPropertyInfo = Word32
type AttrLabel CellRendererXpadPropertyInfo = "CellRenderer::xpad"
attrGet _ = getCellRendererXpad
attrSet _ = setCellRendererXpad
attrConstruct _ = constructCellRendererXpad
getCellRendererYalign :: (MonadIO m, CellRendererK o) => o -> m Float
getCellRendererYalign obj = liftIO $ getObjectPropertyFloat obj "yalign"
setCellRendererYalign :: (MonadIO m, CellRendererK o) => o -> Float -> m ()
setCellRendererYalign obj val = liftIO $ setObjectPropertyFloat obj "yalign" val
constructCellRendererYalign :: Float -> IO ([Char], GValue)
constructCellRendererYalign val = constructObjectPropertyFloat "yalign" val
data CellRendererYalignPropertyInfo
instance AttrInfo CellRendererYalignPropertyInfo where
type AttrAllowedOps CellRendererYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererYalignPropertyInfo = (~) Float
type AttrBaseTypeConstraint CellRendererYalignPropertyInfo = CellRendererK
type AttrGetType CellRendererYalignPropertyInfo = Float
type AttrLabel CellRendererYalignPropertyInfo = "CellRenderer::yalign"
attrGet _ = getCellRendererYalign
attrSet _ = setCellRendererYalign
attrConstruct _ = constructCellRendererYalign
getCellRendererYpad :: (MonadIO m, CellRendererK o) => o -> m Word32
getCellRendererYpad obj = liftIO $ getObjectPropertyCUInt obj "ypad"
setCellRendererYpad :: (MonadIO m, CellRendererK o) => o -> Word32 -> m ()
setCellRendererYpad obj val = liftIO $ setObjectPropertyCUInt obj "ypad" val
constructCellRendererYpad :: Word32 -> IO ([Char], GValue)
constructCellRendererYpad val = constructObjectPropertyCUInt "ypad" val
data CellRendererYpadPropertyInfo
instance AttrInfo CellRendererYpadPropertyInfo where
type AttrAllowedOps CellRendererYpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererYpadPropertyInfo = (~) Word32
type AttrBaseTypeConstraint CellRendererYpadPropertyInfo = CellRendererK
type AttrGetType CellRendererYpadPropertyInfo = Word32
type AttrLabel CellRendererYpadPropertyInfo = "CellRenderer::ypad"
attrGet _ = getCellRendererYpad
attrSet _ = setCellRendererYpad
attrConstruct _ = constructCellRendererYpad
type instance AttributeList CellRenderer = CellRendererAttributeList
type CellRendererAttributeList = ('[ '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)])
data CellRendererEditingCanceledSignalInfo
instance SignalInfo CellRendererEditingCanceledSignalInfo where
type HaskellCallbackType CellRendererEditingCanceledSignalInfo = CellRendererEditingCanceledCallback
connectSignal _ = connectCellRendererEditingCanceled
data CellRendererEditingStartedSignalInfo
instance SignalInfo CellRendererEditingStartedSignalInfo where
type HaskellCallbackType CellRendererEditingStartedSignalInfo = CellRendererEditingStartedCallback
connectSignal _ = connectCellRendererEditingStarted
type instance SignalList CellRenderer = CellRendererSignalList
type CellRendererSignalList = ('[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_cell_renderer_activate" gtk_cell_renderer_activate ::
Ptr CellRenderer ->
Ptr Gdk.Event ->
Ptr Widget ->
CString ->
Ptr Cairo.RectangleInt ->
Ptr Cairo.RectangleInt ->
CUInt ->
IO CInt
cellRendererActivate ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a ->
Gdk.Event ->
b ->
T.Text ->
Cairo.RectangleInt ->
Cairo.RectangleInt ->
[CellRendererState] ->
m Bool
cellRendererActivate _obj event widget path background_area cell_area flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
let widget' = unsafeManagedPtrCastPtr widget
path' <- textToCString path
let background_area' = unsafeManagedPtrGetPtr background_area
let cell_area' = unsafeManagedPtrGetPtr cell_area
let flags' = gflagsToWord flags
result <- gtk_cell_renderer_activate _obj' event' widget' path' background_area' cell_area' flags'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
touchManagedPtr widget
touchManagedPtr background_area
touchManagedPtr cell_area
freeMem path'
return result'
foreign import ccall "gtk_cell_renderer_get_aligned_area" gtk_cell_renderer_get_aligned_area ::
Ptr CellRenderer ->
Ptr Widget ->
CUInt ->
Ptr Cairo.RectangleInt ->
Ptr Cairo.RectangleInt ->
IO ()
cellRendererGetAlignedArea ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a ->
b ->
[CellRendererState] ->
Cairo.RectangleInt ->
m (Cairo.RectangleInt)
cellRendererGetAlignedArea _obj widget flags cell_area = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
let flags' = gflagsToWord flags
let cell_area' = unsafeManagedPtrGetPtr cell_area
aligned_area <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt)
gtk_cell_renderer_get_aligned_area _obj' widget' flags' cell_area' aligned_area
aligned_area' <- (wrapBoxed Cairo.RectangleInt) aligned_area
touchManagedPtr _obj
touchManagedPtr widget
touchManagedPtr cell_area
return aligned_area'
foreign import ccall "gtk_cell_renderer_get_alignment" gtk_cell_renderer_get_alignment ::
Ptr CellRenderer ->
Ptr CFloat ->
Ptr CFloat ->
IO ()
cellRendererGetAlignment ::
(MonadIO m, CellRendererK a) =>
a ->
m (Float,Float)
cellRendererGetAlignment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
xalign <- allocMem :: IO (Ptr CFloat)
yalign <- allocMem :: IO (Ptr CFloat)
gtk_cell_renderer_get_alignment _obj' xalign yalign
xalign' <- peek xalign
let xalign'' = realToFrac xalign'
yalign' <- peek yalign
let yalign'' = realToFrac yalign'
touchManagedPtr _obj
freeMem xalign
freeMem yalign
return (xalign'', yalign'')
foreign import ccall "gtk_cell_renderer_get_fixed_size" gtk_cell_renderer_get_fixed_size ::
Ptr CellRenderer ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellRendererGetFixedSize ::
(MonadIO m, CellRendererK a) =>
a ->
m (Int32,Int32)
cellRendererGetFixedSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_fixed_size _obj' width height
width' <- peek width
height' <- peek height
touchManagedPtr _obj
freeMem width
freeMem height
return (width', height')
foreign import ccall "gtk_cell_renderer_get_padding" gtk_cell_renderer_get_padding ::
Ptr CellRenderer ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellRendererGetPadding ::
(MonadIO m, CellRendererK a) =>
a ->
m (Int32,Int32)
cellRendererGetPadding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
xpad <- allocMem :: IO (Ptr Int32)
ypad <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_padding _obj' xpad ypad
xpad' <- peek xpad
ypad' <- peek ypad
touchManagedPtr _obj
freeMem xpad
freeMem ypad
return (xpad', ypad')
foreign import ccall "gtk_cell_renderer_get_preferred_height" gtk_cell_renderer_get_preferred_height ::
Ptr CellRenderer ->
Ptr Widget ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellRendererGetPreferredHeight ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a ->
b ->
m (Int32,Int32)
cellRendererGetPreferredHeight _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
minimum_size <- allocMem :: IO (Ptr Int32)
natural_size <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_preferred_height _obj' widget' minimum_size natural_size
minimum_size' <- peek minimum_size
natural_size' <- peek natural_size
touchManagedPtr _obj
touchManagedPtr widget
freeMem minimum_size
freeMem natural_size
return (minimum_size', natural_size')
foreign import ccall "gtk_cell_renderer_get_preferred_height_for_width" gtk_cell_renderer_get_preferred_height_for_width ::
Ptr CellRenderer ->
Ptr Widget ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellRendererGetPreferredHeightForWidth ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a ->
b ->
Int32 ->
m (Int32,Int32)
cellRendererGetPreferredHeightForWidth _obj widget width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
minimum_height <- allocMem :: IO (Ptr Int32)
natural_height <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_preferred_height_for_width _obj' widget' width minimum_height natural_height
minimum_height' <- peek minimum_height
natural_height' <- peek natural_height
touchManagedPtr _obj
touchManagedPtr widget
freeMem minimum_height
freeMem natural_height
return (minimum_height', natural_height')
foreign import ccall "gtk_cell_renderer_get_preferred_size" gtk_cell_renderer_get_preferred_size ::
Ptr CellRenderer ->
Ptr Widget ->
Ptr Requisition ->
Ptr Requisition ->
IO ()
cellRendererGetPreferredSize ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a ->
b ->
m (Requisition,Requisition)
cellRendererGetPreferredSize _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
minimum_size <- callocBoxedBytes 8 :: IO (Ptr Requisition)
natural_size <- callocBoxedBytes 8 :: IO (Ptr Requisition)
gtk_cell_renderer_get_preferred_size _obj' widget' minimum_size natural_size
minimum_size' <- (wrapBoxed Requisition) minimum_size
natural_size' <- (wrapBoxed Requisition) natural_size
touchManagedPtr _obj
touchManagedPtr widget
return (minimum_size', natural_size')
foreign import ccall "gtk_cell_renderer_get_preferred_width" gtk_cell_renderer_get_preferred_width ::
Ptr CellRenderer ->
Ptr Widget ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellRendererGetPreferredWidth ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a ->
b ->
m (Int32,Int32)
cellRendererGetPreferredWidth _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
minimum_size <- allocMem :: IO (Ptr Int32)
natural_size <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_preferred_width _obj' widget' minimum_size natural_size
minimum_size' <- peek minimum_size
natural_size' <- peek natural_size
touchManagedPtr _obj
touchManagedPtr widget
freeMem minimum_size
freeMem natural_size
return (minimum_size', natural_size')
foreign import ccall "gtk_cell_renderer_get_preferred_width_for_height" gtk_cell_renderer_get_preferred_width_for_height ::
Ptr CellRenderer ->
Ptr Widget ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellRendererGetPreferredWidthForHeight ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a ->
b ->
Int32 ->
m (Int32,Int32)
cellRendererGetPreferredWidthForHeight _obj widget height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
minimum_width <- allocMem :: IO (Ptr Int32)
natural_width <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_preferred_width_for_height _obj' widget' height minimum_width natural_width
minimum_width' <- peek minimum_width
natural_width' <- peek natural_width
touchManagedPtr _obj
touchManagedPtr widget
freeMem minimum_width
freeMem natural_width
return (minimum_width', natural_width')
foreign import ccall "gtk_cell_renderer_get_request_mode" gtk_cell_renderer_get_request_mode ::
Ptr CellRenderer ->
IO CUInt
cellRendererGetRequestMode ::
(MonadIO m, CellRendererK a) =>
a ->
m SizeRequestMode
cellRendererGetRequestMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_renderer_get_request_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_cell_renderer_get_sensitive" gtk_cell_renderer_get_sensitive ::
Ptr CellRenderer ->
IO CInt
cellRendererGetSensitive ::
(MonadIO m, CellRendererK a) =>
a ->
m Bool
cellRendererGetSensitive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_renderer_get_sensitive _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_cell_renderer_get_size" gtk_cell_renderer_get_size ::
Ptr CellRenderer ->
Ptr Widget ->
Ptr Cairo.RectangleInt ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellRendererGetSize ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a ->
b ->
Maybe (Cairo.RectangleInt) ->
m (Int32,Int32,Int32,Int32)
cellRendererGetSize _obj widget cell_area = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
maybeCell_area <- case cell_area of
Nothing -> return nullPtr
Just jCell_area -> do
let jCell_area' = unsafeManagedPtrGetPtr jCell_area
return jCell_area'
x_offset <- allocMem :: IO (Ptr Int32)
y_offset <- allocMem :: IO (Ptr Int32)
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_size _obj' widget' maybeCell_area x_offset y_offset width height
x_offset' <- peek x_offset
y_offset' <- peek y_offset
width' <- peek width
height' <- peek height
touchManagedPtr _obj
touchManagedPtr widget
whenJust cell_area touchManagedPtr
freeMem x_offset
freeMem y_offset
freeMem width
freeMem height
return (x_offset', y_offset', width', height')
foreign import ccall "gtk_cell_renderer_get_state" gtk_cell_renderer_get_state ::
Ptr CellRenderer ->
Ptr Widget ->
CUInt ->
IO CUInt
cellRendererGetState ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a ->
b ->
[CellRendererState] ->
m [StateFlags]
cellRendererGetState _obj widget cell_state = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
let cell_state' = gflagsToWord cell_state
result <- gtk_cell_renderer_get_state _obj' widget' cell_state'
let result' = wordToGFlags result
touchManagedPtr _obj
touchManagedPtr widget
return result'
foreign import ccall "gtk_cell_renderer_get_visible" gtk_cell_renderer_get_visible ::
Ptr CellRenderer ->
IO CInt
cellRendererGetVisible ::
(MonadIO m, CellRendererK a) =>
a ->
m Bool
cellRendererGetVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_renderer_get_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_cell_renderer_is_activatable" gtk_cell_renderer_is_activatable ::
Ptr CellRenderer ->
IO CInt
cellRendererIsActivatable ::
(MonadIO m, CellRendererK a) =>
a ->
m Bool
cellRendererIsActivatable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_renderer_is_activatable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_cell_renderer_render" gtk_cell_renderer_render ::
Ptr CellRenderer ->
Ptr Cairo.Context ->
Ptr Widget ->
Ptr Cairo.RectangleInt ->
Ptr Cairo.RectangleInt ->
CUInt ->
IO ()
cellRendererRender ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a ->
Cairo.Context ->
b ->
Cairo.RectangleInt ->
Cairo.RectangleInt ->
[CellRendererState] ->
m ()
cellRendererRender _obj cr widget background_area cell_area flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cr' = unsafeManagedPtrGetPtr cr
let widget' = unsafeManagedPtrCastPtr widget
let background_area' = unsafeManagedPtrGetPtr background_area
let cell_area' = unsafeManagedPtrGetPtr cell_area
let flags' = gflagsToWord flags
gtk_cell_renderer_render _obj' cr' widget' background_area' cell_area' flags'
touchManagedPtr _obj
touchManagedPtr cr
touchManagedPtr widget
touchManagedPtr background_area
touchManagedPtr cell_area
return ()
foreign import ccall "gtk_cell_renderer_set_alignment" gtk_cell_renderer_set_alignment ::
Ptr CellRenderer ->
CFloat ->
CFloat ->
IO ()
cellRendererSetAlignment ::
(MonadIO m, CellRendererK a) =>
a ->
Float ->
Float ->
m ()
cellRendererSetAlignment _obj xalign yalign = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let xalign' = realToFrac xalign
let yalign' = realToFrac yalign
gtk_cell_renderer_set_alignment _obj' xalign' yalign'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_cell_renderer_set_fixed_size" gtk_cell_renderer_set_fixed_size ::
Ptr CellRenderer ->
Int32 ->
Int32 ->
IO ()
cellRendererSetFixedSize ::
(MonadIO m, CellRendererK a) =>
a ->
Int32 ->
Int32 ->
m ()
cellRendererSetFixedSize _obj width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_cell_renderer_set_fixed_size _obj' width height
touchManagedPtr _obj
return ()
foreign import ccall "gtk_cell_renderer_set_padding" gtk_cell_renderer_set_padding ::
Ptr CellRenderer ->
Int32 ->
Int32 ->
IO ()
cellRendererSetPadding ::
(MonadIO m, CellRendererK a) =>
a ->
Int32 ->
Int32 ->
m ()
cellRendererSetPadding _obj xpad ypad = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_cell_renderer_set_padding _obj' xpad ypad
touchManagedPtr _obj
return ()
foreign import ccall "gtk_cell_renderer_set_sensitive" gtk_cell_renderer_set_sensitive ::
Ptr CellRenderer ->
CInt ->
IO ()
cellRendererSetSensitive ::
(MonadIO m, CellRendererK a) =>
a ->
Bool ->
m ()
cellRendererSetSensitive _obj sensitive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sensitive' = (fromIntegral . fromEnum) sensitive
gtk_cell_renderer_set_sensitive _obj' sensitive'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_cell_renderer_set_visible" gtk_cell_renderer_set_visible ::
Ptr CellRenderer ->
CInt ->
IO ()
cellRendererSetVisible ::
(MonadIO m, CellRendererK a) =>
a ->
Bool ->
m ()
cellRendererSetVisible _obj visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible' = (fromIntegral . fromEnum) visible
gtk_cell_renderer_set_visible _obj' visible'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_cell_renderer_start_editing" gtk_cell_renderer_start_editing ::
Ptr CellRenderer ->
Ptr Gdk.Event ->
Ptr Widget ->
CString ->
Ptr Cairo.RectangleInt ->
Ptr Cairo.RectangleInt ->
CUInt ->
IO (Ptr CellEditable)
cellRendererStartEditing ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a ->
Gdk.Event ->
b ->
T.Text ->
Cairo.RectangleInt ->
Cairo.RectangleInt ->
[CellRendererState] ->
m CellEditable
cellRendererStartEditing _obj event widget path background_area cell_area flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
let widget' = unsafeManagedPtrCastPtr widget
path' <- textToCString path
let background_area' = unsafeManagedPtrGetPtr background_area
let cell_area' = unsafeManagedPtrGetPtr cell_area
let flags' = gflagsToWord flags
result <- gtk_cell_renderer_start_editing _obj' event' widget' path' background_area' cell_area' flags'
checkUnexpectedReturnNULL "gtk_cell_renderer_start_editing" result
result' <- (newObject CellEditable) result
touchManagedPtr _obj
touchManagedPtr event
touchManagedPtr widget
touchManagedPtr background_area
touchManagedPtr cell_area
freeMem path'
return result'
foreign import ccall "gtk_cell_renderer_stop_editing" gtk_cell_renderer_stop_editing ::
Ptr CellRenderer ->
CInt ->
IO ()
cellRendererStopEditing ::
(MonadIO m, CellRendererK a) =>
a ->
Bool ->
m ()
cellRendererStopEditing _obj canceled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let canceled' = (fromIntegral . fromEnum) canceled
gtk_cell_renderer_stop_editing _obj' canceled'
touchManagedPtr _obj
return ()