From: Axel S. <as...@us...> - 2005-12-09 18:35:07
|
Update of /cvsroot/gtk2hs/gtk2hs/demo/fastdraw In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8171/demo/fastdraw Modified Files: FastDraw.hs Log Message: Fixed deficiency noted by Benny Kramek. Index: FastDraw.hs =================================================================== RCS file: /cvsroot/gtk2hs/gtk2hs/demo/fastdraw/FastDraw.hs,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- FastDraw.hs 18 Oct 2005 02:46:15 -0000 1.7 +++ FastDraw.hs 9 Dec 2005 18:34:52 -0000 1.8 @@ -83,7 +83,7 @@ rects <- regionGetRectangles region -- putStrLn ("redrawing: "++show rects) (flip mapM_) rects $ \(Rectangle x y w h) -> do - drawPixbuf win gc pb x y x y (-1) (-1) RgbDitherNone 0 0 + drawPixbuf win gc pb x y x y w h RgbDitherNone 0 0 return True -- GHC is much better at opimising loops like this: |