{-# 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,
cellBackgroundSet,
editingStarted,
editingCanceled,
{-# LINE 114 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
) 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.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 (Int -> CellRendererMode
CellRendererMode -> Int
CellRendererMode -> [CellRendererMode]
CellRendererMode -> CellRendererMode
CellRendererMode -> CellRendererMode -> [CellRendererMode]
CellRendererMode
-> CellRendererMode -> CellRendererMode -> [CellRendererMode]
(CellRendererMode -> CellRendererMode)
-> (CellRendererMode -> CellRendererMode)
-> (Int -> CellRendererMode)
-> (CellRendererMode -> Int)
-> (CellRendererMode -> [CellRendererMode])
-> (CellRendererMode -> CellRendererMode -> [CellRendererMode])
-> (CellRendererMode -> CellRendererMode -> [CellRendererMode])
-> (CellRendererMode
-> CellRendererMode -> CellRendererMode -> [CellRendererMode])
-> Enum CellRendererMode
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
$csucc :: CellRendererMode -> CellRendererMode
succ :: CellRendererMode -> CellRendererMode
$cpred :: CellRendererMode -> CellRendererMode
pred :: CellRendererMode -> CellRendererMode
$ctoEnum :: Int -> CellRendererMode
toEnum :: Int -> CellRendererMode
$cfromEnum :: CellRendererMode -> Int
fromEnum :: CellRendererMode -> Int
$cenumFrom :: CellRendererMode -> [CellRendererMode]
enumFrom :: CellRendererMode -> [CellRendererMode]
$cenumFromThen :: CellRendererMode -> CellRendererMode -> [CellRendererMode]
enumFromThen :: CellRendererMode -> CellRendererMode -> [CellRendererMode]
$cenumFromTo :: CellRendererMode -> CellRendererMode -> [CellRendererMode]
enumFromTo :: CellRendererMode -> CellRendererMode -> [CellRendererMode]
$cenumFromThenTo :: CellRendererMode
-> CellRendererMode -> CellRendererMode -> [CellRendererMode]
enumFromThenTo :: CellRendererMode
-> CellRendererMode -> CellRendererMode -> [CellRendererMode]
Enum,CellRendererMode -> CellRendererMode -> Bool
(CellRendererMode -> CellRendererMode -> Bool)
-> (CellRendererMode -> CellRendererMode -> Bool)
-> Eq CellRendererMode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CellRendererMode -> CellRendererMode -> Bool
== :: CellRendererMode -> CellRendererMode -> Bool
$c/= :: CellRendererMode -> CellRendererMode -> Bool
/= :: CellRendererMode -> CellRendererMode -> Bool
Eq)
{-# LINE 130 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
cellRendererStopEditing :: CellRendererClass self => self
-> Bool
-> IO ()
cellRendererStopEditing :: forall self. CellRendererClass self => self -> Bool -> IO ()
cellRendererStopEditing self
self Bool
canceled =
(\(CellRenderer ForeignPtr CellRenderer
arg1) CInt
arg2 -> ForeignPtr CellRenderer -> (Ptr CellRenderer -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr CellRenderer
arg1 ((Ptr CellRenderer -> IO ()) -> IO ())
-> (Ptr CellRenderer -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CellRenderer
argPtr1 ->Ptr CellRenderer -> CInt -> IO ()
gtk_cell_renderer_stop_editing Ptr CellRenderer
argPtr1 CInt
arg2)
{-# LINE 144 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
(toCellRenderer self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
canceled)
cellRendererGetFixedSize :: CellRendererClass self => self
-> IO (Int, Int)
cellRendererGetFixedSize :: forall self. CellRendererClass self => self -> IO (Int, Int)
cellRendererGetFixedSize self
self =
(Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Int, Int)) -> IO (Int, Int))
-> (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
widthPtr ->
(Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr CInt -> IO (Int, Int)) -> IO (Int, Int))
-> (Ptr CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. (a -> b) -> a -> b
$ \Ptr CInt
heightPtr ->
(\(CellRenderer ForeignPtr CellRenderer
arg1) Ptr CInt
arg2 Ptr CInt
arg3 -> ForeignPtr CellRenderer -> (Ptr CellRenderer -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr CellRenderer
arg1 ((Ptr CellRenderer -> IO ()) -> IO ())
-> (Ptr CellRenderer -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CellRenderer
argPtr1 ->Ptr CellRenderer -> Ptr CInt -> Ptr CInt -> IO ()
gtk_cell_renderer_get_fixed_size Ptr CellRenderer
argPtr1 Ptr CInt
arg2 Ptr CInt
arg3)
{-# LINE 158 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
(toCellRenderer self)
Ptr CInt
widthPtr
Ptr CInt
heightPtr IO () -> IO CInt -> IO CInt
forall a b. IO a -> IO b -> IO b
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
widthPtr IO CInt -> (CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= \CInt
width ->
Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
heightPtr IO CInt -> (CInt -> IO (Int, Int)) -> IO (Int, Int)
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= \CInt
height ->
(Int, Int) -> IO (Int, Int)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
width, CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
height)
cellRendererSetFixedSize :: CellRendererClass self => self
-> Int
-> Int
-> IO ()
cellRendererSetFixedSize :: forall self. CellRendererClass self => self -> Int -> Int -> IO ()
cellRendererSetFixedSize self
self Int
width Int
height =
(\(CellRenderer ForeignPtr CellRenderer
arg1) CInt
arg2 CInt
arg3 -> ForeignPtr CellRenderer -> (Ptr CellRenderer -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr CellRenderer
arg1 ((Ptr CellRenderer -> IO ()) -> IO ())
-> (Ptr CellRenderer -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CellRenderer
argPtr1 ->Ptr CellRenderer -> CInt -> CInt -> IO ()
gtk_cell_renderer_set_fixed_size Ptr CellRenderer
argPtr1 CInt
arg2 CInt
arg3)
{-# LINE 174 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
(toCellRenderer self)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
width)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
height)
cellMode :: CellRendererClass self => Attr self CellRendererMode
cellMode :: forall self. CellRendererClass self => Attr self CellRendererMode
cellMode = String -> GType -> Attr self CellRendererMode
forall gobj enum.
(GObjectClass gobj, Enum enum) =>
String -> GType -> Attr gobj enum
newAttrFromEnumProperty String
"mode"
GType
gtk_cell_renderer_mode_get_type
{-# LINE 188 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
cellVisible :: CellRendererClass self => Attr self Bool
cellVisible :: forall self. CellRendererClass self => Attr self Bool
cellVisible = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"visible"
cellSensitive :: CellRendererClass self => Attr self Bool
cellSensitive :: forall self. CellRendererClass self => Attr self Bool
cellSensitive = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"sensitive"
cellXAlign :: CellRendererClass self => Attr self Float
cellXAlign :: forall self. CellRendererClass self => Attr self Float
cellXAlign = String -> Attr self Float
forall gobj. GObjectClass gobj => String -> Attr gobj Float
newAttrFromFloatProperty String
"xalign"
cellYAlign :: CellRendererClass self => Attr self Float
cellYAlign :: forall self. CellRendererClass self => Attr self Float
cellYAlign = String -> Attr self Float
forall gobj. GObjectClass gobj => String -> Attr gobj Float
newAttrFromFloatProperty String
"yalign"
cellXPad :: CellRendererClass self => Attr self Int
cellXPad :: forall self. CellRendererClass self => Attr self Int
cellXPad = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromUIntProperty String
"xpad"
cellYPad :: CellRendererClass self => Attr self Int
cellYPad :: forall self. CellRendererClass self => Attr self Int
cellYPad = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromUIntProperty String
"ypad"
cellWidth :: CellRendererClass self => Attr self Int
cellWidth :: forall self. CellRendererClass self => Attr self Int
cellWidth = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"width"
cellHeight :: CellRendererClass self => Attr self Int
cellHeight :: forall self. CellRendererClass self => Attr self Int
cellHeight = String -> Attr self Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"height"
cellIsExpander :: CellRendererClass self => Attr self Bool
cellIsExpander :: forall self. CellRendererClass self => Attr self Bool
cellIsExpander = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"is-expander"
cellIsExpanded :: CellRendererClass self => Attr self Bool
cellIsExpanded :: forall self. CellRendererClass self => Attr self Bool
cellIsExpanded = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"is-expanded"
cellBackground :: (CellRendererClass self, GlibString string) => WriteAttr self string
cellBackground :: forall self string.
(CellRendererClass self, GlibString string) =>
WriteAttr self string
cellBackground = String -> WriteAttr self string
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> WriteAttr gobj string
writeAttrFromStringProperty String
"cell-background"
{-# LINE 283 "./Graphics/UI/Gtk/ModelView/CellRenderer.chs" #-}
cellBackgroundSet :: CellRendererClass self => Attr self Bool
cellBackgroundSet :: forall self. CellRendererClass self => Attr self Bool
cellBackgroundSet = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"cell-background-set"
editingCanceled :: CellRendererClass self => Signal self (IO ())
editingCanceled :: forall self. CellRendererClass self => Signal self (IO ())
editingCanceled = (Bool -> self -> IO () -> IO (ConnectId self))
-> Signal self (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> self -> IO () -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"editing-canceled")
editingStarted :: CellRendererClass self =>
Signal self (Widget -> TreePath -> IO ())
editingStarted :: forall self.
CellRendererClass self =>
Signal self (Widget -> TreePath -> IO ())
editingStarted = (Bool
-> self -> (Widget -> TreePath -> IO ()) -> IO (ConnectId self))
-> Signal self (Widget -> TreePath -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal Bool
-> self -> (Widget -> TreePath -> IO ()) -> IO (ConnectId self)
forall {t} {obj}.
(GObjectClass t, GObjectClass obj) =>
Bool -> obj -> (t -> TreePath -> IO ()) -> IO (ConnectId obj)
editingStartedInternal
editingStartedInternal :: Bool -> obj -> (t -> TreePath -> IO ()) -> IO (ConnectId obj)
editingStartedInternal Bool
after obj
cr t -> TreePath -> IO ()
act =
String
-> Bool
-> obj
-> (t -> DefaultGlibString -> IO ())
-> IO (ConnectId obj)
forall a' b' obj.
(GObjectClass a', GlibString b', GObjectClass obj) =>
String -> Bool -> obj -> (a' -> b' -> IO ()) -> IO (ConnectId obj)
connect_OBJECT_GLIBSTRING__NONE String
"editing-started" Bool
after obj
cr
((t -> DefaultGlibString -> IO ()) -> IO (ConnectId obj))
-> (t -> DefaultGlibString -> IO ()) -> IO (ConnectId obj)
forall a b. (a -> b) -> a -> b
$ \t
ce DefaultGlibString
path -> t -> TreePath -> IO ()
act t
ce (DefaultGlibString -> TreePath
stringToTreePath DefaultGlibString
path)
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 :: CUInt