[Gtk2hs-commit] (0.9.12 branch): Fix ball soe demo to work with newer soe api

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

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'