Set correct scale with tiling window managers
This commit is contained in:
parent
0fb75af682
commit
000f7b30b7
1 changed files with 2 additions and 1 deletions
3
GLX.hs
3
GLX.hs
|
@ -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
|
||||||
|
|
Reference in a new issue