From 4f5d2769cbf308f17a33ca6576d95b4b3478ca72 Mon Sep 17 00:00:00 2001
From: Marc Sunet <jeannekamikaze@gmail.com>
Date: Thu, 30 Aug 2012 12:53:13 +0200
Subject: Application now triggers an initial window resize

---
 Spear.lkshw              | 2 +-
 Spear/App/Application.hs | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Spear.lkshw b/Spear.lkshw
index 0f8f6de..24a6e94 100644
--- a/Spear.lkshw
+++ b/Spear.lkshw
@@ -1,7 +1,7 @@
 Version of workspace file format:
                1
 Time of storage:
-               "Thu Aug 30 12:40:21 CEST 2012"
+               "Thu Aug 30 12:51:30 CEST 2012"
 Name of the workspace:
                "Spear"
 File paths of contained packages:
diff --git a/Spear/App/Application.hs b/Spear/App/Application.hs
index a547c37..8bab9d4 100644
--- a/Spear/App/Application.hs
+++ b/Spear/App/Application.hs
@@ -65,6 +65,7 @@ setup (w, h) displayBits windowMode (major, minor) onResize' = do
         GL.viewport $= (Position 0 0, Size (fromIntegral w) (fromIntegral h))
         
         windowSizeCallback $= (onResize onResize')
+        onResize' (Size (fromIntegral w) (fromIntegral h))
         
         initialiseTimingSubsystem
     
-- 
cgit v1.2.3