From 000f7b30b74e0d64c8c33c3617a249061ce4eb21 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <matthias@gamezock.de>
Date: Sat, 6 Mar 2010 02:01:37 +0100
Subject: Set correct scale with tiling window managers

---
 GLX.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/GLX.hs b/GLX.hs
index affc185..0548bec 100644
--- a/GLX.hs
+++ b/GLX.hs
@@ -83,7 +83,8 @@ instance Driver GLX where
       ctx <- with visualinfo $ \vi -> createContext disp vi (Context nullPtr) True
       makeCurrent disp wnd ctx
       
-      s <- resize 800 600
+      wa <- getWindowAttributes disp wnd
+      s <- resize (fromIntegral . wa_width $ wa) (fromIntegral . wa_height $ wa)
       
       return GLX
                  { glxDisplay = disp
-- 
cgit v1.2.3