[Gtk2hs-commit] gtk2hs/gtk/scrolling HScrollbar.chs,1.5,1.6 VScrollbar.chs,1.5,1.6

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

Update of /cvsroot/gtk2hs/gtk2hs/gtk/scrolling
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5882/d/scrolling

Modified Files:
	HScrollbar.chs VScrollbar.chs 
Log Message:
Add some more functions for better scrollbar support.


Index: VScrollbar.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/scrolling/VScrollbar.chs,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- VScrollbar.chs	23 May 2004 16:14:09 -0000	1.5
+++ VScrollbar.chs	12 Dec 2004 18:09:50 -0000	1.6
@@ -29,7 +29,8 @@
   VScrollbar,
   VScrollbarClass,
   castToVScrollbar,
-  vScrollbarNew
+  vScrollbarNew,
+  vScrollbarNewDefaults
   ) where
 
 import Monad	(liftM)
@@ -48,3 +49,12 @@
 vScrollbarNew :: Adjustment -> IO VScrollbar
 vScrollbarNew adj = makeNewObject mkVScrollbar $ liftM castPtr $
   {#call unsafe vscrollbar_new#} adj
+
+-- | Create a new HScrollbar with a default 'Adjustment'.
+--
+vScrollbarNewDefaults :: IO VScrollbar
+vScrollbarNewDefaults = makeNewObject mkVScrollbar $ liftM castPtr $
+  {#call unsafe vscrollbar_new#} (mkAdjustment nullForeignPtr)
+
+
+

Index: HScrollbar.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/scrolling/HScrollbar.chs,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- HScrollbar.chs	23 May 2004 16:14:09 -0000	1.5
+++ HScrollbar.chs	12 Dec 2004 18:09:50 -0000	1.6
@@ -29,7 +29,8 @@
   HScrollbar,
   HScrollbarClass,
   castToHScrollbar,
-  hScrollbarNew
+  hScrollbarNew,
+  hScrollbarNewDefaults
   ) where
 
 import Monad	(liftM)
@@ -48,3 +49,11 @@
 hScrollbarNew :: Adjustment -> IO HScrollbar
 hScrollbarNew adj = makeNewObject mkHScrollbar $ liftM castPtr $
   {#call unsafe hscrollbar_new#} adj
+
+-- | Create a new HScrollbar without an 'Adjustment'.
+--
+hScrollbarNewDefaults :: IO HScrollbar
+hScrollbarNewDefaults = makeNewObject mkHScrollbar $ liftM castPtr $
+  {#call unsafe hscrollbar_new#} (mkAdjustment nullForeignPtr)
+
+