neocturne/htanks
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Set correct scale with tiling window managers

Browse source
This commit is contained in:
Matthias Schiffer 2010-03-06 02:01:37 +01:00
parent 0fb75af682
commit 000f7b30b7
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
GLX.hs
View file

@ -83,7 +83,8 @@ instance Driver GLX where
ctx <- with visualinfo $ \vi -> createContext disp vi (Context nullPtr) True ctx <- with visualinfo $ \vi -> createContext disp vi (Context nullPtr) True
makeCurrent disp wnd ctx makeCurrent disp wnd ctx
s <- resize 800 600 wa <- getWindowAttributes disp wnd
s <- resize (fromIntegral . wa_width $ wa) (fromIntegral . wa_height $ wa)
return GLX return GLX
{ glxDisplay = disp { glxDisplay = disp