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