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)
+
+
|
