[Gtk2hs-commit] gtk2hs/gtk/misc Adjustment.chs,1.6,1.7

[Axel S. <as...@us...>]

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

Modified Files:
	Adjustment.chs 
Log Message:
Changed comments in Toolbar, removed duplicated entry in Adjustment.


Index: Adjustment.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/misc/Adjustment.chs,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- Adjustment.chs	12 Dec 2004 18:09:50 -0000	1.6
+++ Adjustment.chs	12 Dec 2004 18:23:59 -0000	1.7
@@ -143,13 +143,7 @@
 adjustmentGetValue adj =
   liftM realToFrac $ {#call adjustment_get_value#} adj
 
--- | Retrieve the current value.
-adjustmentGetValue :: Adjustment -> IO Double
-adjustmentGetValue a =
-  liftM realToFrac $ {#call adjustment_get_value#} (toAdjustment a)
-
--- | Ensure that the alignment is within these
--- bounds.
+-- | Ensure that the alignment is within these bounds.
 --
 -- * Updates the Adjustment value to ensure that the range between lower and
 --   upper is in the current page (i.e. between value and value + page_size).