From: Duncan C. <dun...@us...> - 2005-03-16 02:32:54
|
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 #} |