[Gtk2hs-commit] gtk2hs/gtk/entry HScale.chs,1.4,1.5 VScale.chs,1.4,1.5

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

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

Modified Files:
	HScale.chs VScale.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: VScale.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/entry/VScale.chs,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- VScale.chs	23 May 2004 15:51:53 -0000	1.4
+++ VScale.chs	30 Jul 2004 16:38:54 -0000	1.5
@@ -31,7 +31,8 @@
   VScale,
   VScaleClass,
   castToVScale,
-  vScaleNew
+  vScaleNew,
+  vScaleNewWithRange
   ) where
 
 import Monad	(liftM)
@@ -51,3 +52,15 @@
 vScaleNew adj = makeNewObject mkVScale $ liftM castPtr $
   {#call unsafe vscale_new#} adj
 
+-- | Create a new VScale widget with @min@, @max@ and @step@ values rather than
+-- an "Adjustment" object.
+--
+vScaleNewWithRange :: Double -- ^ Minimum value
+                   -> Double -- ^ Maximum value
+                   -> Double -- ^ Step increment (tick size) used with keyboard
+                             --   shortcuts. Must be nonzero.
+                   -> IO VScale
+vScaleNewWithRange min max step =
+  makeNewObject mkVScale $ liftM castPtr $
+  {#call unsafe vscale_new_with_range#} (realToFrac min) (realToFrac max)
+    (realToFrac step)

Index: HScale.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/entry/HScale.chs,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- HScale.chs	23 May 2004 15:51:53 -0000	1.4
+++ HScale.chs	30 Jul 2004 16:38:54 -0000	1.5
@@ -31,7 +31,8 @@
   HScale,
   HScaleClass,
   castToHScale,
-  hScaleNew
+  hScaleNew,
+  hScaleNewWithRange
   ) where
 
 import Monad	(liftM)
@@ -51,3 +52,15 @@
 hScaleNew adj = makeNewObject mkHScale $ liftM castPtr $
   {#call unsafe hscale_new#} adj
 
+-- | Create a new HScale widget with @min@, @max@ and @step@ values rather than
+-- an "Adjustment" object.
+--
+hScaleNewWithRange :: Double -- ^ Minimum value 
+                   -> Double -- ^ Maximum value
+                   -> Double -- ^ Step increment (tick size) used with keyboard
+		             --   shortcuts. Must be nonzero.
+                   -> IO HScale
+hScaleNewWithRange min max step =
+  makeNewObject mkHScale $ liftM castPtr $
+  {#call unsafe hscale_new_with_range#} (realToFrac min) (realToFrac max)
+    (realToFrac step)