use prefixed record names in latest X11-extras

This commit is contained in:
Jason Creighton
2007-04-19 03:22:44 +00:00
parent 2b6a5d25b6
commit 0d47f6299f
2 changed files with 25 additions and 25 deletions

View File

@@ -146,7 +146,7 @@ setButtonGrab False w = withDisplay $ \d -> io $
-- rectangle, including its border.
moveWindowInside :: Display -> Window -> Rectangle -> IO ()
moveWindowInside d w r = do
bw <- (fromIntegral . waBorderWidth) `liftM` getWindowAttributes d w
bw <- (fromIntegral . wa_border_width) `liftM` getWindowAttributes d w
moveResizeWindow d w (rect_x r) (rect_y r)
(rect_width r - bw*2)
(rect_height r - bw*2)