[Gtk2hs-commit] gtk2hs/gtk/abstract Box.chs,1.8,1.9

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

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

Modified Files:
	Box.chs 
Log Message:
implement missing functions or ones that are new in gtk-2.4


Index: Box.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/abstract/Box.chs,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Box.chs	23 May 2004 15:46:02 -0000	1.8
+++ Box.chs	29 Jul 2004 12:15:55 -0000	1.9
@@ -34,6 +34,7 @@
   boxPackEnd,
   boxPackStartDefaults,
   boxPackEndDefaults,
+  boxGetHomogeneous,
   boxSetHomogeneous,
   boxGetSpacing,
   boxSetSpacing,
@@ -100,12 +101,18 @@
   {#call box_pack_end_defaults#} (toBox b) (toWidget w)
 
 -- | Set if all children should be spread homogeneous
--- withing the box.
+-- within the box.
 --
 boxSetHomogeneous :: BoxClass b => b -> Bool -> IO ()
 boxSetHomogeneous b homo = 
   {#call box_set_homogeneous#} (toBox b) (fromBool homo)
 
+-- | Get whether the box is homogeneous.
+--
+boxGetHomogeneous :: BoxClass b => b -> IO Bool
+boxGetHomogeneous b =
+  liftM toBool $ {#call box_get_homogeneous#} (toBox b)
+
 -- | Set the standard spacing between two children.
 --
 -- * This space is in addition to the padding parameter that is given for each