diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-02-23 20:51:30 +0100 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-02-23 20:51:30 +0100 |
commit | 366eb711dd05a7ad446f48d57f0645d89813ade4 (patch) | |
tree | 728d01ef05d9decf2631dd17b1b9266e60383889 /HTanks.hs | |
parent | 9772130708a4ed069ad00ee1652ba6d0eea81766 (diff) | |
download | htanks-366eb711dd05a7ad446f48d57f0645d89813ade4.tar htanks-366eb711dd05a7ad446f48d57f0645d89813ade4.zip |
Update viewport on resize
Diffstat (limited to 'HTanks.hs')
-rw-r--r-- | HTanks.hs | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -22,6 +22,8 @@ main = do when (initialized gl) $ do time <- getClockTime + + setup 800 600 runGame gameState $ mainLoop gl time deinitGL gl @@ -44,7 +46,7 @@ mainLoop gl time = do newTime <- liftIO getClockTime - liftIO $ print $ timeDiff newTime time + --liftIO $ print $ timeDiff newTime time when run $ mainLoop gl newTime @@ -65,4 +67,7 @@ handleEvents gl = do handleEvent :: SomeEvent -> IO Bool handleEvent ev | Just QuitEvent <- fromEvent ev = return False + | Just (ResizeEvent w h) <- fromEvent ev = do + resize w h + return True | otherwise = return True |