Update of /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Misc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4767/gtk/Graphics/UI/Gtk/Misc
Modified Files:
DrawingArea.chs
Log Message:
oops, missed one: Documentation changes and code formatting changes.
Index: DrawingArea.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Misc/DrawingArea.chs,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- DrawingArea.chs 25 Feb 2005 22:53:41 -0000 1.4
+++ DrawingArea.chs 16 Mar 2005 02:32:27 -0000 1.5
@@ -24,10 +24,10 @@
-- Stability : provisional
-- Portability : portable (depends on GHC)
--
--- A widget for custom user interface elements.
+-- A widget for custom user interface elements
--
module Graphics.UI.Gtk.Misc.DrawingArea (
--- * Description
+-- * Detail
--
-- | The 'DrawingArea' widget is used for creating custom user interface
-- elements. It's essentially a blank widget; you can draw on
@@ -99,8 +99,9 @@
--------------------
-- Constructors
--- | Create a new custom widget.
+-- | Creates a new drawing area.
--
drawingAreaNew :: IO DrawingArea
-drawingAreaNew = makeNewObject mkDrawingArea $
- liftM castPtr {#call unsafe drawing_area_new#}
+drawingAreaNew =
+ makeNewObject mkDrawingArea $ liftM castPtr $
+ {# call unsafe drawing_area_new #}
|
