[Gtk2hs-commit] gtk2hs/gtk/treeList CellRendererToggle.chs,1.8,1.9

[Duncan C. <dun...@us...>]

Update of /cvsroot/gtk2hs/gtk2hs/gtk/treeList
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10993/gtk/treeList

Modified Files:
	CellRendererToggle.chs 
Log Message:
added missing functions, or functions that were new in gtk-2.4
removed a function that is no longer needed from general/Structs.hsc


Index: CellRendererToggle.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/treeList/CellRendererToggle.chs,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- CellRendererToggle.chs	23 May 2004 16:16:43 -0000	1.8
+++ CellRendererToggle.chs	30 Jul 2004 16:38:53 -0000	1.9
@@ -27,6 +27,7 @@
   CellRendererToggleClass,
   castToCellRendererToggle,
   cellRendererToggleNew,
+  cellRendererToggleGetRadio,
   cellRendererToggleSetRadio,
   cellRendererToggleGetActive,
   cellRendererToggleSetActive,
@@ -54,16 +55,20 @@
 cellRendererToggleNew  = makeNewObject mkCellRendererToggle $
   liftM castPtr $ {#call unsafe cell_renderer_toggle_new#}
 
--- | Determine whether the button is drawn
--- as 'RadioButton' or not.
+-- | Determine whether the button is drawn as 'RadioButton' or not.
 --
 cellRendererToggleSetRadio :: CellRendererToggleClass crt => crt -> Bool ->
                               IO ()
 cellRendererToggleSetRadio crt radio = {#call cell_renderer_toggle_set_radio#}
   (toCellRendererToggle crt) (fromBool radio)
 
--- | Retrieve the current state of the
--- button.
+-- | Returns wether the button is drawn as 'RadioButton' or not.
+--
+cellRendererToggleGetRadio :: CellRendererToggleClass crt => crt -> IO Bool
+cellRendererToggleGetRadio crt = liftM toBool $
+  {#call cell_renderer_toggle_get_radio#} (toCellRendererToggle crt)
+
+-- | Retrieve the current state of the button.
 --
 cellRendererToggleGetActive :: CellRendererToggleClass crt => crt -> IO Bool
 cellRendererToggleGetActive crt = liftM toBool $
@@ -84,8 +89,7 @@
 		(return.(\x -> [x]).GVboolean)
 	        (\[GVboolean b] -> return b)
 
--- | Define the attribute that reflects the state of the
--- button.
+-- | Define the attribute that reflects the state of the button.
 --
 cellActive :: Attribute CellRendererToggle Bool
 cellActive  = binAttr ["active"]