From: Axel S. <as...@us...> - 2004-06-04 16:31:18
|
Update of /cvsroot/gtk2hs/gtk2hs/gtk/gdk In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21401/gtk/gdk Modified Files: Drawable.chs Log Message: Fixed typo in drawLine. Index: Drawable.chs =================================================================== RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/gdk/Drawable.chs,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- Drawable.chs 23 May 2004 15:55:36 -0000 1.8 +++ Drawable.chs 4 Jun 2004 16:31:00 -0000 1.9 @@ -154,7 +154,7 @@ drawLine :: DrawableClass d => d -> GC -> Point -> Point -> IO () drawLine d gc (x1,y1) (x2,y2) = {#call unsafe draw_line#} (toDrawable d) (toGC gc) (fromIntegral x1) (fromIntegral y1) (fromIntegral x2) - (fromIntegral x2) + (fromIntegral y2) -- | Draw several lines. -- |