gi-gtk-0.3.18.13: GI/Gtk/Objects/CellRenderer.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gtk.Objects.CellRenderer
(
-- * Exported types
CellRenderer(..) ,
CellRendererK ,
toCellRenderer ,
noCellRenderer ,
-- * Methods
-- ** cellRendererActivate
CellRendererActivateMethodInfo ,
cellRendererActivate ,
-- ** cellRendererGetAlignedArea
CellRendererGetAlignedAreaMethodInfo ,
cellRendererGetAlignedArea ,
-- ** cellRendererGetAlignment
CellRendererGetAlignmentMethodInfo ,
cellRendererGetAlignment ,
-- ** cellRendererGetFixedSize
CellRendererGetFixedSizeMethodInfo ,
cellRendererGetFixedSize ,
-- ** cellRendererGetPadding
CellRendererGetPaddingMethodInfo ,
cellRendererGetPadding ,
-- ** cellRendererGetPreferredHeight
CellRendererGetPreferredHeightMethodInfo,
cellRendererGetPreferredHeight ,
-- ** cellRendererGetPreferredHeightForWidth
CellRendererGetPreferredHeightForWidthMethodInfo,
cellRendererGetPreferredHeightForWidth ,
-- ** cellRendererGetPreferredSize
CellRendererGetPreferredSizeMethodInfo ,
cellRendererGetPreferredSize ,
-- ** cellRendererGetPreferredWidth
CellRendererGetPreferredWidthMethodInfo ,
cellRendererGetPreferredWidth ,
-- ** cellRendererGetPreferredWidthForHeight
CellRendererGetPreferredWidthForHeightMethodInfo,
cellRendererGetPreferredWidthForHeight ,
-- ** cellRendererGetRequestMode
CellRendererGetRequestModeMethodInfo ,
cellRendererGetRequestMode ,
-- ** cellRendererGetSensitive
CellRendererGetSensitiveMethodInfo ,
cellRendererGetSensitive ,
-- ** cellRendererGetSize
CellRendererGetSizeMethodInfo ,
cellRendererGetSize ,
-- ** cellRendererGetState
CellRendererGetStateMethodInfo ,
cellRendererGetState ,
-- ** cellRendererGetVisible
CellRendererGetVisibleMethodInfo ,
cellRendererGetVisible ,
-- ** cellRendererIsActivatable
CellRendererIsActivatableMethodInfo ,
cellRendererIsActivatable ,
-- ** cellRendererRender
CellRendererRenderMethodInfo ,
cellRendererRender ,
-- ** cellRendererSetAlignment
CellRendererSetAlignmentMethodInfo ,
cellRendererSetAlignment ,
-- ** cellRendererSetFixedSize
CellRendererSetFixedSizeMethodInfo ,
cellRendererSetFixedSize ,
-- ** cellRendererSetPadding
CellRendererSetPaddingMethodInfo ,
cellRendererSetPadding ,
-- ** cellRendererSetSensitive
CellRendererSetSensitiveMethodInfo ,
cellRendererSetSensitive ,
-- ** cellRendererSetVisible
CellRendererSetVisibleMethodInfo ,
cellRendererSetVisible ,
-- ** cellRendererStartEditing
CellRendererStartEditingMethodInfo ,
cellRendererStartEditing ,
-- ** cellRendererStopEditing
CellRendererStopEditingMethodInfo ,
cellRendererStopEditing ,
-- * Properties
-- ** CellBackground
CellRendererCellBackgroundPropertyInfo ,
constructCellRendererCellBackground ,
setCellRendererCellBackground ,
-- ** CellBackgroundGdk
CellRendererCellBackgroundGdkPropertyInfo,
constructCellRendererCellBackgroundGdk ,
getCellRendererCellBackgroundGdk ,
setCellRendererCellBackgroundGdk ,
-- ** CellBackgroundRgba
CellRendererCellBackgroundRgbaPropertyInfo,
constructCellRendererCellBackgroundRgba ,
getCellRendererCellBackgroundRgba ,
setCellRendererCellBackgroundRgba ,
-- ** CellBackgroundSet
CellRendererCellBackgroundSetPropertyInfo,
constructCellRendererCellBackgroundSet ,
getCellRendererCellBackgroundSet ,
setCellRendererCellBackgroundSet ,
-- ** Editing
CellRendererEditingPropertyInfo ,
getCellRendererEditing ,
-- ** Height
CellRendererHeightPropertyInfo ,
constructCellRendererHeight ,
getCellRendererHeight ,
setCellRendererHeight ,
-- ** IsExpanded
CellRendererIsExpandedPropertyInfo ,
constructCellRendererIsExpanded ,
getCellRendererIsExpanded ,
setCellRendererIsExpanded ,
-- ** IsExpander
CellRendererIsExpanderPropertyInfo ,
constructCellRendererIsExpander ,
getCellRendererIsExpander ,
setCellRendererIsExpander ,
-- ** Mode
CellRendererModePropertyInfo ,
constructCellRendererMode ,
getCellRendererMode ,
setCellRendererMode ,
-- ** Sensitive
CellRendererSensitivePropertyInfo ,
constructCellRendererSensitive ,
getCellRendererSensitive ,
setCellRendererSensitive ,
-- ** Visible
CellRendererVisiblePropertyInfo ,
constructCellRendererVisible ,
getCellRendererVisible ,
setCellRendererVisible ,
-- ** Width
CellRendererWidthPropertyInfo ,
constructCellRendererWidth ,
getCellRendererWidth ,
setCellRendererWidth ,
-- ** Xalign
CellRendererXalignPropertyInfo ,
constructCellRendererXalign ,
getCellRendererXalign ,
setCellRendererXalign ,
-- ** Xpad
CellRendererXpadPropertyInfo ,
constructCellRendererXpad ,
getCellRendererXpad ,
setCellRendererXpad ,
-- ** Yalign
CellRendererYalignPropertyInfo ,
constructCellRendererYalign ,
getCellRendererYalign ,
setCellRendererYalign ,
-- ** Ypad
CellRendererYpadPropertyInfo ,
constructCellRendererYpad ,
getCellRendererYpad ,
setCellRendererYpad ,
-- * Signals
-- ** EditingCanceled
CellRendererEditingCanceledCallback ,
CellRendererEditingCanceledCallbackC ,
CellRendererEditingCanceledSignalInfo ,
afterCellRendererEditingCanceled ,
cellRendererEditingCanceledCallbackWrapper,
cellRendererEditingCanceledClosure ,
mkCellRendererEditingCanceledCallback ,
noCellRendererEditingCanceledCallback ,
onCellRendererEditingCanceled ,
-- ** EditingStarted
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 family ResolveCellRendererMethod (t :: Symbol) (o :: *) :: * where
ResolveCellRendererMethod "activate" o = CellRendererActivateMethodInfo
ResolveCellRendererMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveCellRendererMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveCellRendererMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveCellRendererMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveCellRendererMethod "isActivatable" o = CellRendererIsActivatableMethodInfo
ResolveCellRendererMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveCellRendererMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveCellRendererMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveCellRendererMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveCellRendererMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveCellRendererMethod "render" o = CellRendererRenderMethodInfo
ResolveCellRendererMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveCellRendererMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveCellRendererMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveCellRendererMethod "startEditing" o = CellRendererStartEditingMethodInfo
ResolveCellRendererMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveCellRendererMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveCellRendererMethod "stopEditing" o = CellRendererStopEditingMethodInfo
ResolveCellRendererMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveCellRendererMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveCellRendererMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveCellRendererMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo
ResolveCellRendererMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo
ResolveCellRendererMethod "getData" o = GObject.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.ObjectGetPropertyMethodInfo
ResolveCellRendererMethod "getQdata" o = GObject.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.ObjectSetDataMethodInfo
ResolveCellRendererMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo
ResolveCellRendererMethod "setPadding" o = CellRendererSetPaddingMethodInfo
ResolveCellRendererMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveCellRendererMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo
ResolveCellRendererMethod "setVisible" o = CellRendererSetVisibleMethodInfo
ResolveCellRendererMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveCellRendererMethod t CellRenderer, MethodInfo info CellRenderer p) => IsLabelProxy t (CellRenderer -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveCellRendererMethod t CellRenderer, MethodInfo info CellRenderer p) => IsLabel t (CellRenderer -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- signal CellRenderer::editing-canceled
type CellRendererEditingCanceledCallback =
IO ()
noCellRendererEditingCanceledCallback :: Maybe CellRendererEditingCanceledCallback
noCellRendererEditingCanceledCallback = Nothing
type CellRendererEditingCanceledCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
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
-- signal CellRenderer::editing-started
type CellRendererEditingStartedCallback =
CellEditable ->
T.Text ->
IO ()
noCellRendererEditingStartedCallback :: Maybe CellRendererEditingStartedCallback
noCellRendererEditingStartedCallback = Nothing
type CellRendererEditingStartedCallbackC =
Ptr () -> -- object
Ptr CellEditable ->
CString ->
Ptr () -> -- user_data
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
-- VVV Prop "cell-background"
-- Type: TBasicType TUTF8
-- Flags: [PropertyWritable]
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 = "cell-background"
attrGet _ = undefined
attrSet _ = setCellRendererCellBackground
attrConstruct _ = constructCellRendererCellBackground
-- VVV Prop "cell-background-gdk"
-- Type: TInterface "Gdk" "Color"
-- Flags: [PropertyReadable,PropertyWritable]
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 = "cell-background-gdk"
attrGet _ = getCellRendererCellBackgroundGdk
attrSet _ = setCellRendererCellBackgroundGdk
attrConstruct _ = constructCellRendererCellBackgroundGdk
-- VVV Prop "cell-background-rgba"
-- Type: TInterface "Gdk" "RGBA"
-- Flags: [PropertyReadable,PropertyWritable]
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 = "cell-background-rgba"
attrGet _ = getCellRendererCellBackgroundRgba
attrSet _ = setCellRendererCellBackgroundRgba
attrConstruct _ = constructCellRendererCellBackgroundRgba
-- VVV Prop "cell-background-set"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
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 = "cell-background-set"
attrGet _ = getCellRendererCellBackgroundSet
attrSet _ = setCellRendererCellBackgroundSet
attrConstruct _ = constructCellRendererCellBackgroundSet
-- VVV Prop "editing"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable]
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 = "editing"
attrGet _ = getCellRendererEditing
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "height"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
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 = "height"
attrGet _ = getCellRendererHeight
attrSet _ = setCellRendererHeight
attrConstruct _ = constructCellRendererHeight
-- VVV Prop "is-expanded"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
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 = "is-expanded"
attrGet _ = getCellRendererIsExpanded
attrSet _ = setCellRendererIsExpanded
attrConstruct _ = constructCellRendererIsExpanded
-- VVV Prop "is-expander"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
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 = "is-expander"
attrGet _ = getCellRendererIsExpander
attrSet _ = setCellRendererIsExpander
attrConstruct _ = constructCellRendererIsExpander
-- VVV Prop "mode"
-- Type: TInterface "Gtk" "CellRendererMode"
-- Flags: [PropertyReadable,PropertyWritable]
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 = "mode"
attrGet _ = getCellRendererMode
attrSet _ = setCellRendererMode
attrConstruct _ = constructCellRendererMode
-- VVV Prop "sensitive"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
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 = "sensitive"
attrGet _ = getCellRendererSensitive
attrSet _ = setCellRendererSensitive
attrConstruct _ = constructCellRendererSensitive
-- VVV Prop "visible"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
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 = "visible"
attrGet _ = getCellRendererVisible
attrSet _ = setCellRendererVisible
attrConstruct _ = constructCellRendererVisible
-- VVV Prop "width"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
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 = "width"
attrGet _ = getCellRendererWidth
attrSet _ = setCellRendererWidth
attrConstruct _ = constructCellRendererWidth
-- VVV Prop "xalign"
-- Type: TBasicType TFloat
-- Flags: [PropertyReadable,PropertyWritable]
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 = "xalign"
attrGet _ = getCellRendererXalign
attrSet _ = setCellRendererXalign
attrConstruct _ = constructCellRendererXalign
-- VVV Prop "xpad"
-- Type: TBasicType TUInt32
-- Flags: [PropertyReadable,PropertyWritable]
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 = "xpad"
attrGet _ = getCellRendererXpad
attrSet _ = setCellRendererXpad
attrConstruct _ = constructCellRendererXpad
-- VVV Prop "yalign"
-- Type: TBasicType TFloat
-- Flags: [PropertyReadable,PropertyWritable]
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 = "yalign"
attrGet _ = getCellRendererYalign
attrSet _ = setCellRendererYalign
attrConstruct _ = constructCellRendererYalign
-- VVV Prop "ypad"
-- Type: TBasicType TUInt32
-- Flags: [PropertyReadable,PropertyWritable]
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 = "ypad"
attrGet _ = getCellRendererYpad
attrSet _ = setCellRendererYpad
attrConstruct _ = constructCellRendererYpad
type instance 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, *)])
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 = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method CellRenderer::activate
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_activate" gtk_cell_renderer_activate ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- path : TBasicType TUTF8
Ptr Gdk.Rectangle -> -- background_area : TInterface "Gdk" "Rectangle"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
CUInt -> -- flags : TInterface "Gtk" "CellRendererState"
IO CInt
cellRendererActivate ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -- _obj
-> Gdk.Event -- event
-> b -- widget
-> T.Text -- path
-> Gdk.Rectangle -- backgroundArea
-> Gdk.Rectangle -- cellArea
-> [CellRendererState] -- flags
-> m Bool -- result
cellRendererActivate _obj event widget path backgroundArea cellArea flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
let widget' = unsafeManagedPtrCastPtr widget
path' <- textToCString path
let backgroundArea' = unsafeManagedPtrGetPtr backgroundArea
let cellArea' = unsafeManagedPtrGetPtr cellArea
let flags' = gflagsToWord flags
result <- gtk_cell_renderer_activate _obj' event' widget' path' backgroundArea' cellArea' flags'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
touchManagedPtr widget
touchManagedPtr backgroundArea
touchManagedPtr cellArea
freeMem path'
return result'
data CellRendererActivateMethodInfo
instance (signature ~ (Gdk.Event -> b -> T.Text -> Gdk.Rectangle -> Gdk.Rectangle -> [CellRendererState] -> m Bool), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererActivateMethodInfo a signature where
overloadedMethod _ = cellRendererActivate
-- method CellRenderer::get_aligned_area
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "aligned_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_aligned_area" gtk_cell_renderer_get_aligned_area ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CUInt -> -- flags : TInterface "Gtk" "CellRendererState"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
Ptr Gdk.Rectangle -> -- aligned_area : TInterface "Gdk" "Rectangle"
IO ()
cellRendererGetAlignedArea ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -- _obj
-> b -- widget
-> [CellRendererState] -- flags
-> Gdk.Rectangle -- cellArea
-> m (Gdk.Rectangle) -- result
cellRendererGetAlignedArea _obj widget flags cellArea = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
let flags' = gflagsToWord flags
let cellArea' = unsafeManagedPtrGetPtr cellArea
alignedArea <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_cell_renderer_get_aligned_area _obj' widget' flags' cellArea' alignedArea
alignedArea' <- (wrapBoxed Gdk.Rectangle) alignedArea
touchManagedPtr _obj
touchManagedPtr widget
touchManagedPtr cellArea
return alignedArea'
data CellRendererGetAlignedAreaMethodInfo
instance (signature ~ (b -> [CellRendererState] -> Gdk.Rectangle -> m (Gdk.Rectangle)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetAlignedAreaMethodInfo a signature where
overloadedMethod _ = cellRendererGetAlignedArea
-- method CellRenderer::get_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_alignment" gtk_cell_renderer_get_alignment ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr CFloat -> -- xalign : TBasicType TFloat
Ptr CFloat -> -- yalign : TBasicType TFloat
IO ()
cellRendererGetAlignment ::
(MonadIO m, CellRendererK a) =>
a -- _obj
-> m (Float,Float) -- result
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'')
data CellRendererGetAlignmentMethodInfo
instance (signature ~ (m (Float,Float)), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetAlignmentMethodInfo a signature where
overloadedMethod _ = cellRendererGetAlignment
-- method CellRenderer::get_fixed_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_fixed_size" gtk_cell_renderer_get_fixed_size ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO ()
cellRendererGetFixedSize ::
(MonadIO m, CellRendererK a) =>
a -- _obj
-> m (Int32,Int32) -- result
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')
data CellRendererGetFixedSizeMethodInfo
instance (signature ~ (m (Int32,Int32)), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetFixedSizeMethodInfo a signature where
overloadedMethod _ = cellRendererGetFixedSize
-- method CellRenderer::get_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ypad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_padding" gtk_cell_renderer_get_padding ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Int32 -> -- xpad : TBasicType TInt32
Ptr Int32 -> -- ypad : TBasicType TInt32
IO ()
cellRendererGetPadding ::
(MonadIO m, CellRendererK a) =>
a -- _obj
-> m (Int32,Int32) -- result
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')
data CellRendererGetPaddingMethodInfo
instance (signature ~ (m (Int32,Int32)), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetPaddingMethodInfo a signature where
overloadedMethod _ = cellRendererGetPadding
-- method CellRenderer::get_preferred_height
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_preferred_height" gtk_cell_renderer_get_preferred_height ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Int32 -> -- minimum_size : TBasicType TInt32
Ptr Int32 -> -- natural_size : TBasicType TInt32
IO ()
cellRendererGetPreferredHeight ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -- _obj
-> b -- widget
-> m (Int32,Int32) -- result
cellRendererGetPreferredHeight _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
minimumSize <- allocMem :: IO (Ptr Int32)
naturalSize <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_preferred_height _obj' widget' minimumSize naturalSize
minimumSize' <- peek minimumSize
naturalSize' <- peek naturalSize
touchManagedPtr _obj
touchManagedPtr widget
freeMem minimumSize
freeMem naturalSize
return (minimumSize', naturalSize')
data CellRendererGetPreferredHeightMethodInfo
instance (signature ~ (b -> m (Int32,Int32)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetPreferredHeightMethodInfo a signature where
overloadedMethod _ = cellRendererGetPreferredHeight
-- method CellRenderer::get_preferred_height_for_width
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_preferred_height_for_width" gtk_cell_renderer_get_preferred_height_for_width ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- minimum_height : TBasicType TInt32
Ptr Int32 -> -- natural_height : TBasicType TInt32
IO ()
cellRendererGetPreferredHeightForWidth ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -- _obj
-> b -- widget
-> Int32 -- width
-> m (Int32,Int32) -- result
cellRendererGetPreferredHeightForWidth _obj widget width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
minimumHeight <- allocMem :: IO (Ptr Int32)
naturalHeight <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_preferred_height_for_width _obj' widget' width minimumHeight naturalHeight
minimumHeight' <- peek minimumHeight
naturalHeight' <- peek naturalHeight
touchManagedPtr _obj
touchManagedPtr widget
freeMem minimumHeight
freeMem naturalHeight
return (minimumHeight', naturalHeight')
data CellRendererGetPreferredHeightForWidthMethodInfo
instance (signature ~ (b -> Int32 -> m (Int32,Int32)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetPreferredHeightForWidthMethodInfo a signature where
overloadedMethod _ = cellRendererGetPreferredHeightForWidth
-- method CellRenderer::get_preferred_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "natural_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_preferred_size" gtk_cell_renderer_get_preferred_size ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Requisition -> -- minimum_size : TInterface "Gtk" "Requisition"
Ptr Requisition -> -- natural_size : TInterface "Gtk" "Requisition"
IO ()
cellRendererGetPreferredSize ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -- _obj
-> b -- widget
-> m (Requisition,Requisition) -- result
cellRendererGetPreferredSize _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
minimumSize <- callocBoxedBytes 8 :: IO (Ptr Requisition)
naturalSize <- callocBoxedBytes 8 :: IO (Ptr Requisition)
gtk_cell_renderer_get_preferred_size _obj' widget' minimumSize naturalSize
minimumSize' <- (wrapBoxed Requisition) minimumSize
naturalSize' <- (wrapBoxed Requisition) naturalSize
touchManagedPtr _obj
touchManagedPtr widget
return (minimumSize', naturalSize')
data CellRendererGetPreferredSizeMethodInfo
instance (signature ~ (b -> m (Requisition,Requisition)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetPreferredSizeMethodInfo a signature where
overloadedMethod _ = cellRendererGetPreferredSize
-- method CellRenderer::get_preferred_width
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_preferred_width" gtk_cell_renderer_get_preferred_width ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Int32 -> -- minimum_size : TBasicType TInt32
Ptr Int32 -> -- natural_size : TBasicType TInt32
IO ()
cellRendererGetPreferredWidth ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -- _obj
-> b -- widget
-> m (Int32,Int32) -- result
cellRendererGetPreferredWidth _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
minimumSize <- allocMem :: IO (Ptr Int32)
naturalSize <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_preferred_width _obj' widget' minimumSize naturalSize
minimumSize' <- peek minimumSize
naturalSize' <- peek naturalSize
touchManagedPtr _obj
touchManagedPtr widget
freeMem minimumSize
freeMem naturalSize
return (minimumSize', naturalSize')
data CellRendererGetPreferredWidthMethodInfo
instance (signature ~ (b -> m (Int32,Int32)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetPreferredWidthMethodInfo a signature where
overloadedMethod _ = cellRendererGetPreferredWidth
-- method CellRenderer::get_preferred_width_for_height
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_preferred_width_for_height" gtk_cell_renderer_get_preferred_width_for_height ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Int32 -> -- height : TBasicType TInt32
Ptr Int32 -> -- minimum_width : TBasicType TInt32
Ptr Int32 -> -- natural_width : TBasicType TInt32
IO ()
cellRendererGetPreferredWidthForHeight ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -- _obj
-> b -- widget
-> Int32 -- height
-> m (Int32,Int32) -- result
cellRendererGetPreferredWidthForHeight _obj widget height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
minimumWidth <- allocMem :: IO (Ptr Int32)
naturalWidth <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_preferred_width_for_height _obj' widget' height minimumWidth naturalWidth
minimumWidth' <- peek minimumWidth
naturalWidth' <- peek naturalWidth
touchManagedPtr _obj
touchManagedPtr widget
freeMem minimumWidth
freeMem naturalWidth
return (minimumWidth', naturalWidth')
data CellRendererGetPreferredWidthForHeightMethodInfo
instance (signature ~ (b -> Int32 -> m (Int32,Int32)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetPreferredWidthForHeightMethodInfo a signature where
overloadedMethod _ = cellRendererGetPreferredWidthForHeight
-- method CellRenderer::get_request_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "SizeRequestMode"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_request_mode" gtk_cell_renderer_get_request_mode ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
IO CUInt
cellRendererGetRequestMode ::
(MonadIO m, CellRendererK a) =>
a -- _obj
-> m SizeRequestMode -- result
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'
data CellRendererGetRequestModeMethodInfo
instance (signature ~ (m SizeRequestMode), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetRequestModeMethodInfo a signature where
overloadedMethod _ = cellRendererGetRequestMode
-- method CellRenderer::get_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_sensitive" gtk_cell_renderer_get_sensitive ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
IO CInt
cellRendererGetSensitive ::
(MonadIO m, CellRendererK a) =>
a -- _obj
-> m Bool -- result
cellRendererGetSensitive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_renderer_get_sensitive _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data CellRendererGetSensitiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetSensitiveMethodInfo a signature where
overloadedMethod _ = cellRendererGetSensitive
-- method CellRenderer::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_size" gtk_cell_renderer_get_size ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
Ptr Int32 -> -- x_offset : TBasicType TInt32
Ptr Int32 -> -- y_offset : TBasicType TInt32
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED cellRendererGetSize ["(Since version 3.0)","Use gtk_cell_renderer_get_preferred_size() instead."]#-}
cellRendererGetSize ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -- _obj
-> b -- widget
-> Maybe (Gdk.Rectangle) -- cellArea
-> m (Int32,Int32,Int32,Int32) -- result
cellRendererGetSize _obj widget cellArea = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
maybeCellArea <- case cellArea of
Nothing -> return nullPtr
Just jCellArea -> do
let jCellArea' = unsafeManagedPtrGetPtr jCellArea
return jCellArea'
xOffset <- allocMem :: IO (Ptr Int32)
yOffset <- allocMem :: IO (Ptr Int32)
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_cell_renderer_get_size _obj' widget' maybeCellArea xOffset yOffset width height
xOffset' <- peek xOffset
yOffset' <- peek yOffset
width' <- peek width
height' <- peek height
touchManagedPtr _obj
touchManagedPtr widget
whenJust cellArea touchManagedPtr
freeMem xOffset
freeMem yOffset
freeMem width
freeMem height
return (xOffset', yOffset', width', height')
data CellRendererGetSizeMethodInfo
instance (signature ~ (b -> Maybe (Gdk.Rectangle) -> m (Int32,Int32,Int32,Int32)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetSizeMethodInfo a signature where
overloadedMethod _ = cellRendererGetSize
-- method CellRenderer::get_state
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_state", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "StateFlags"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_state" gtk_cell_renderer_get_state ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CUInt -> -- cell_state : TInterface "Gtk" "CellRendererState"
IO CUInt
cellRendererGetState ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -- _obj
-> b -- widget
-> [CellRendererState] -- cellState
-> m [StateFlags] -- result
cellRendererGetState _obj widget cellState = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
let cellState' = gflagsToWord cellState
result <- gtk_cell_renderer_get_state _obj' widget' cellState'
let result' = wordToGFlags result
touchManagedPtr _obj
touchManagedPtr widget
return result'
data CellRendererGetStateMethodInfo
instance (signature ~ (b -> [CellRendererState] -> m [StateFlags]), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetStateMethodInfo a signature where
overloadedMethod _ = cellRendererGetState
-- method CellRenderer::get_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_get_visible" gtk_cell_renderer_get_visible ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
IO CInt
cellRendererGetVisible ::
(MonadIO m, CellRendererK a) =>
a -- _obj
-> m Bool -- result
cellRendererGetVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_renderer_get_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data CellRendererGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetVisibleMethodInfo a signature where
overloadedMethod _ = cellRendererGetVisible
-- method CellRenderer::is_activatable
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_is_activatable" gtk_cell_renderer_is_activatable ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
IO CInt
cellRendererIsActivatable ::
(MonadIO m, CellRendererK a) =>
a -- _obj
-> m Bool -- result
cellRendererIsActivatable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_cell_renderer_is_activatable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data CellRendererIsActivatableMethodInfo
instance (signature ~ (m Bool), MonadIO m, CellRendererK a) => MethodInfo CellRendererIsActivatableMethodInfo a signature where
overloadedMethod _ = cellRendererIsActivatable
-- method CellRenderer::render
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_render" gtk_cell_renderer_render ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Rectangle -> -- background_area : TInterface "Gdk" "Rectangle"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
CUInt -> -- flags : TInterface "Gtk" "CellRendererState"
IO ()
cellRendererRender ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -- _obj
-> Cairo.Context -- cr
-> b -- widget
-> Gdk.Rectangle -- backgroundArea
-> Gdk.Rectangle -- cellArea
-> [CellRendererState] -- flags
-> m () -- result
cellRendererRender _obj cr widget backgroundArea cellArea flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cr' = unsafeManagedPtrGetPtr cr
let widget' = unsafeManagedPtrCastPtr widget
let backgroundArea' = unsafeManagedPtrGetPtr backgroundArea
let cellArea' = unsafeManagedPtrGetPtr cellArea
let flags' = gflagsToWord flags
gtk_cell_renderer_render _obj' cr' widget' backgroundArea' cellArea' flags'
touchManagedPtr _obj
touchManagedPtr cr
touchManagedPtr widget
touchManagedPtr backgroundArea
touchManagedPtr cellArea
return ()
data CellRendererRenderMethodInfo
instance (signature ~ (Cairo.Context -> b -> Gdk.Rectangle -> Gdk.Rectangle -> [CellRendererState] -> m ()), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererRenderMethodInfo a signature where
overloadedMethod _ = cellRendererRender
-- method CellRenderer::set_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_set_alignment" gtk_cell_renderer_set_alignment ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
CFloat -> -- xalign : TBasicType TFloat
CFloat -> -- yalign : TBasicType TFloat
IO ()
cellRendererSetAlignment ::
(MonadIO m, CellRendererK a) =>
a -- _obj
-> Float -- xalign
-> Float -- yalign
-> m () -- result
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 ()
data CellRendererSetAlignmentMethodInfo
instance (signature ~ (Float -> Float -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererSetAlignmentMethodInfo a signature where
overloadedMethod _ = cellRendererSetAlignment
-- method CellRenderer::set_fixed_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_set_fixed_size" gtk_cell_renderer_set_fixed_size ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
cellRendererSetFixedSize ::
(MonadIO m, CellRendererK a) =>
a -- _obj
-> Int32 -- width
-> Int32 -- height
-> m () -- result
cellRendererSetFixedSize _obj width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_cell_renderer_set_fixed_size _obj' width height
touchManagedPtr _obj
return ()
data CellRendererSetFixedSizeMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererSetFixedSizeMethodInfo a signature where
overloadedMethod _ = cellRendererSetFixedSize
-- method CellRenderer::set_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_set_padding" gtk_cell_renderer_set_padding ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Int32 -> -- xpad : TBasicType TInt32
Int32 -> -- ypad : TBasicType TInt32
IO ()
cellRendererSetPadding ::
(MonadIO m, CellRendererK a) =>
a -- _obj
-> Int32 -- xpad
-> Int32 -- ypad
-> m () -- result
cellRendererSetPadding _obj xpad ypad = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_cell_renderer_set_padding _obj' xpad ypad
touchManagedPtr _obj
return ()
data CellRendererSetPaddingMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererSetPaddingMethodInfo a signature where
overloadedMethod _ = cellRendererSetPadding
-- method CellRenderer::set_sensitive
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_set_sensitive" gtk_cell_renderer_set_sensitive ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
CInt -> -- sensitive : TBasicType TBoolean
IO ()
cellRendererSetSensitive ::
(MonadIO m, CellRendererK a) =>
a -- _obj
-> Bool -- sensitive
-> m () -- result
cellRendererSetSensitive _obj sensitive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sensitive' = (fromIntegral . fromEnum) sensitive
gtk_cell_renderer_set_sensitive _obj' sensitive'
touchManagedPtr _obj
return ()
data CellRendererSetSensitiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererSetSensitiveMethodInfo a signature where
overloadedMethod _ = cellRendererSetSensitive
-- method CellRenderer::set_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_set_visible" gtk_cell_renderer_set_visible ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
CInt -> -- visible : TBasicType TBoolean
IO ()
cellRendererSetVisible ::
(MonadIO m, CellRendererK a) =>
a -- _obj
-> Bool -- visible
-> m () -- result
cellRendererSetVisible _obj visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible' = (fromIntegral . fromEnum) visible
gtk_cell_renderer_set_visible _obj' visible'
touchManagedPtr _obj
return ()
data CellRendererSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererSetVisibleMethodInfo a signature where
overloadedMethod _ = cellRendererSetVisible
-- method CellRenderer::start_editing
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gtk" "CellEditable"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_start_editing" gtk_cell_renderer_start_editing ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- path : TBasicType TUTF8
Ptr Gdk.Rectangle -> -- background_area : TInterface "Gdk" "Rectangle"
Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle"
CUInt -> -- flags : TInterface "Gtk" "CellRendererState"
IO (Ptr CellEditable)
cellRendererStartEditing ::
(MonadIO m, CellRendererK a, WidgetK b) =>
a -- _obj
-> Gdk.Event -- event
-> b -- widget
-> T.Text -- path
-> Gdk.Rectangle -- backgroundArea
-> Gdk.Rectangle -- cellArea
-> [CellRendererState] -- flags
-> m CellEditable -- result
cellRendererStartEditing _obj event widget path backgroundArea cellArea flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
let widget' = unsafeManagedPtrCastPtr widget
path' <- textToCString path
let backgroundArea' = unsafeManagedPtrGetPtr backgroundArea
let cellArea' = unsafeManagedPtrGetPtr cellArea
let flags' = gflagsToWord flags
result <- gtk_cell_renderer_start_editing _obj' event' widget' path' backgroundArea' cellArea' flags'
checkUnexpectedReturnNULL "gtk_cell_renderer_start_editing" result
result' <- (newObject CellEditable) result
touchManagedPtr _obj
touchManagedPtr event
touchManagedPtr widget
touchManagedPtr backgroundArea
touchManagedPtr cellArea
freeMem path'
return result'
data CellRendererStartEditingMethodInfo
instance (signature ~ (Gdk.Event -> b -> T.Text -> Gdk.Rectangle -> Gdk.Rectangle -> [CellRendererState] -> m CellEditable), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererStartEditingMethodInfo a signature where
overloadedMethod _ = cellRendererStartEditing
-- method CellRenderer::stop_editing
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cell_renderer_stop_editing" gtk_cell_renderer_stop_editing ::
Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer"
CInt -> -- canceled : TBasicType TBoolean
IO ()
cellRendererStopEditing ::
(MonadIO m, CellRendererK a) =>
a -- _obj
-> Bool -- canceled
-> m () -- result
cellRendererStopEditing _obj canceled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let canceled' = (fromIntegral . fromEnum) canceled
gtk_cell_renderer_stop_editing _obj' canceled'
touchManagedPtr _obj
return ()
data CellRendererStopEditingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererStopEditingMethodInfo a signature where
overloadedMethod _ = cellRendererStopEditing