Wed Nov 7 09:13:49 PST 2007 Duncan Coutts <du...@ha...>
* Fix ball soe demo to work with newer soe api
hunk ./demo/soe/BouncingBall.hs 9
- do w <- openWindowEx "Bouncing Ball" Nothing (Just (300, 300)) drawBufferedGraphic (Just 30)
+ do w <- openWindowEx "Bouncing Ball" Nothing (Just (300, 300)) drawBufferedGraphic
hunk ./demo/soe/BouncingBall.hs 26
- e <- maybeGetWindowEvent w
- case e of Just Closed -> return ()
- _ -> do getWindowTick w
- loop x''' y''' xd' yd'
+ e <- getWindowEvent w
+ case e of Closed -> return ()
+ _ -> loop x''' y''' xd' yd'
|
