[Gtk2hs-commit] gtk2hs/gtkglext/Graphics/UI/Gtk/OpenGL Drawable.chs,1.1,1.2 Context.chs,1.1,1.2

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

Update of /cvsroot/gtk2hs/gtk2hs/gtkglext/Graphics/UI/Gtk/OpenGL
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4133/gtkglext/Graphics/UI/Gtk/OpenGL

Modified Files:
	Drawable.chs Context.chs 
Log Message:
Documentations fixes.


Index: Drawable.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtkglext/Graphics/UI/Gtk/OpenGL/Drawable.chs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- Drawable.chs	9 Nov 2005 13:40:29 -0000	1.1
+++ Drawable.chs	16 Nov 2005 13:21:07 -0000	1.2
@@ -126,10 +126,9 @@
   {# call gdk_gl_drawable_gl_end #}
     (toGLDrawable self)
 
--- | Gets 'GLConfig' with which the @gldrawable@ is configured.
+-- | Gets 'GLConfig' with which the GL drawable is configured.
 --
-glDrawableGetGLConfig :: GLDrawableClass self => self
- -> IO GLConfig -- ^ returns the 'Config'.
+glDrawableGetGLConfig :: GLDrawableClass self => self -> IO GLConfig
 glDrawableGetGLConfig self =
   makeNewGObject mkGLConfig $
   {# call gdk_gl_drawable_get_gl_config #}

Index: Context.chs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gtkglext/Graphics/UI/Gtk/OpenGL/Context.chs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- Context.chs	9 Nov 2005 13:40:29 -0000	1.1
+++ Context.chs	16 Nov 2005 13:21:07 -0000	1.2
@@ -74,9 +74,9 @@
 --
 glContextNew :: GLDrawableClass gldrawable => 
     gldrawable       -- ^ @gldrawable@ - a 'GLDrawable'.
- -> Maybe GLContext  -- ^ @shareList@ - the 'Context' with which to share
-                     -- display lists and texture objects. A value of @Nothing@
-                     -- indicates that no sharing is to take place.
+ -> Maybe GLContext  -- ^ @shareList@ - the 'GLContext' with which to share
+                     -- display lists and texture objects. A value of
+		     -- @Nothing@ indicates that no sharing is to take place.
  -> Bool             -- ^ @direct@ - whether rendering is to be done with a
                      -- direct connection to the graphics system.
  -> GLRenderType     -- ^ @renderType@ - 'RGBAType' or 'ColorIndexType'
@@ -117,7 +117,7 @@
   {# call gdk_gl_context_get_gl_drawable #}
     (toGLContext self)
 
--- | Gets 'Config' with which the 'GLContext' is configured.
+-- | Gets the 'GLConfig' with which the 'GLContext' is configured.
 --
 glContextGetGLConfig :: GLContext -> IO GLConfig
 glContextGetGLConfig self =
@@ -125,8 +125,8 @@
   {# call gdk_gl_context_get_gl_config #}
     (toGLContext self)
 
--- | Gets 'Context' with which the @glcontext@ shares the display lists and
--- texture objects.
+-- | Gets the other 'GLContext' with which the 'GLContext' shares the display
+-- lists and texture objects.
 --
 glContextGetShareList :: GLContext -> IO GLContext
 glContextGetShareList self =
@@ -142,10 +142,9 @@
   {# call gdk_gl_context_is_direct #}
     (toGLContext self)
 
--- | Gets the 'RenderType' of the 'GLContext'.
+-- | Gets the 'GLRenderType' of the 'GLContext'.
 --
-glContextGetRenderType :: GLContext
- -> IO GLRenderType
+glContextGetRenderType :: GLContext -> IO GLRenderType
 glContextGetRenderType self =
   liftM (toEnum.fromIntegral) $
   {# call gdk_gl_context_get_render_type #}