{-# LINE 2 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
module Graphics.UI.Gtk.ModelView.CellRenderer (
CellRenderer,
CellRendererClass,
castToCellRenderer, gTypeCellRenderer,
toCellRenderer,
CellRendererMode(..),
cellRendererStopEditing,
cellRendererGetFixedSize,
cellRendererSetFixedSize,
cellMode,
cellVisible,
cellSensitive,
cellXAlign,
cellYAlign,
cellXPad,
cellYPad,
cellWidth,
cellHeight,
cellIsExpander,
cellIsExpanded,
cellBackground,
cellBackgroundColor,
cellBackgroundSet,
editingStarted,
editingCanceled,
onEditingStarted,
afterEditingStarted,
onEditingCanceled,
afterEditingCanceled,
) where
import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.Attributes ( Attr, WriteAttr )
import System.Glib.Properties
import Graphics.UI.Gtk.Types
{-# LINE 121 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
import Graphics.UI.Gtk.Gdk.GC (Color)
import Graphics.UI.Gtk.Signals
{-# LINE 125 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
import Graphics.UI.Gtk.ModelView.Types
{-# LINE 126 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
{-# LINE 128 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
data CellRendererMode = CellRendererModeInert
| CellRendererModeActivatable
| CellRendererModeEditable
deriving (Enum,Eq)
{-# LINE 130 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
cellRendererStopEditing :: CellRendererClass self => self
-> Bool
-> IO ()
cellRendererStopEditing self canceled =
(\(CellRenderer arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_cell_renderer_stop_editing argPtr1 arg2)
{-# LINE 144 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
(toCellRenderer self)
(fromBool canceled)
cellRendererGetFixedSize :: CellRendererClass self => self
-> IO (Int, Int)
cellRendererGetFixedSize self =
alloca $ \widthPtr ->
alloca $ \heightPtr ->
(\(CellRenderer arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->gtk_cell_renderer_get_fixed_size argPtr1 arg2 arg3)
{-# LINE 158 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
(toCellRenderer self)
widthPtr
heightPtr >>
peek widthPtr >>= \width ->
peek heightPtr >>= \height ->
return (fromIntegral width, fromIntegral height)
cellRendererSetFixedSize :: CellRendererClass self => self
-> Int
-> Int
-> IO ()
cellRendererSetFixedSize self width height =
(\(CellRenderer arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->gtk_cell_renderer_set_fixed_size argPtr1 arg2 arg3)
{-# LINE 174 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
(toCellRenderer self)
(fromIntegral width)
(fromIntegral height)
cellMode :: CellRendererClass self => Attr self CellRendererMode
cellMode = newAttrFromEnumProperty "mode"
gtk_cell_renderer_mode_get_type
{-# LINE 188 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
cellVisible :: CellRendererClass self => Attr self Bool
cellVisible = newAttrFromBoolProperty "visible"
cellSensitive :: CellRendererClass self => Attr self Bool
cellSensitive = newAttrFromBoolProperty "sensitive"
cellXAlign :: CellRendererClass self => Attr self Float
cellXAlign = newAttrFromFloatProperty "xalign"
cellYAlign :: CellRendererClass self => Attr self Float
cellYAlign = newAttrFromFloatProperty "yalign"
cellXPad :: CellRendererClass self => Attr self Int
cellXPad = newAttrFromUIntProperty "xpad"
cellYPad :: CellRendererClass self => Attr self Int
cellYPad = newAttrFromUIntProperty "ypad"
cellWidth :: CellRendererClass self => Attr self Int
cellWidth = newAttrFromIntProperty "width"
cellHeight :: CellRendererClass self => Attr self Int
cellHeight = newAttrFromIntProperty "height"
cellIsExpander :: CellRendererClass self => Attr self Bool
cellIsExpander = newAttrFromBoolProperty "is-expander"
cellIsExpanded :: CellRendererClass self => Attr self Bool
cellIsExpanded = newAttrFromBoolProperty "is-expanded"
cellBackground :: (CellRendererClass self, GlibString string) => WriteAttr self string
cellBackground = writeAttrFromStringProperty "cell-background"
cellBackgroundColor :: CellRendererClass self => Attr self Color
cellBackgroundColor = newAttrFromBoxedStorableProperty "cell-background-gdk"
gdk_color_get_type
{-# LINE 281 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
cellBackgroundSet :: CellRendererClass self => Attr self Bool
cellBackgroundSet = newAttrFromBoolProperty "cell-background-set"
editingCanceled :: CellRendererClass self => Signal self (IO ())
editingCanceled = Signal (connect_NONE__NONE "editing-canceled")
editingStarted :: CellRendererClass self =>
Signal self (Widget -> TreePath -> IO ())
editingStarted = Signal editingStartedInternal
editingStartedInternal after cr act =
connect_OBJECT_GLIBSTRING__NONE "editing-started" after cr
$ \ce path -> act ce (stringToTreePath path)
onEditingCanceled :: CellRendererClass self => self
-> IO ()
-> IO (ConnectId self)
onEditingCanceled = connect_NONE__NONE "editing-canceled" False
{-# DEPRECATED onEditingCanceled "instead of 'onEditingCanceled obj' use 'on obj editingCanceled'" #-}
afterEditingCanceled :: CellRendererClass self => self
-> IO ()
-> IO (ConnectId self)
afterEditingCanceled = connect_NONE__NONE "editing-canceled" True
{-# DEPRECATED afterEditingCanceled "instead of 'afterEditingCanceled obj' use 'after obj editingCanceled'" #-}
onEditingStarted :: CellRendererClass self => self
-> (Widget -> TreePath -> IO ())
-> IO (ConnectId self)
onEditingStarted = editingStartedInternal False
{-# DEPRECATED onEditingStarted "instead of 'onEditingStarted obj' use 'on obj editingStarted'" #-}
afterEditingStarted :: CellRendererClass self => self
-> (Widget -> TreePath -> IO ())
-> IO (ConnectId self)
afterEditingStarted = editingStartedInternal True
{-# DEPRECATED afterEditingStarted "instead of 'afterEditingStarted obj' use 'after obj editingStarted'" #-}
foreign import ccall safe "gtk_cell_renderer_stop_editing"
gtk_cell_renderer_stop_editing :: ((Ptr CellRenderer) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_cell_renderer_get_fixed_size"
gtk_cell_renderer_get_fixed_size :: ((Ptr CellRenderer) -> ((Ptr CInt) -> ((Ptr CInt) -> (IO ()))))
foreign import ccall safe "gtk_cell_renderer_set_fixed_size"
gtk_cell_renderer_set_fixed_size :: ((Ptr CellRenderer) -> (CInt -> (CInt -> (IO ()))))
foreign import ccall unsafe "gtk_cell_renderer_mode_get_type"
gtk_cell_renderer_mode_get_type :: CULong
foreign import ccall unsafe "gdk_color_get_type"
gdk_color_get_type :: CULong