twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-11 02:02:11 -07:00
Code Issues Packages Projects Releases Wiki Activity

Make use of field names when constructing TwoDState in X.A.GridSelect

Browse Source
This commit is contained in:
Clemens Fruhwirth
2010-10-16 16:41:51 +00:00
parent 96d2982c60
commit ffe08858ab
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
XMonad/Actions/GridSelect.hs
View File

@@ -439,14 +439,13 @@ gridselect gsconfig elmap =
coords = diamondRestrict restrictX restrictY originPosX originPosY coords = diamondRestrict restrictX restrictY originPosX originPosY
elmap' = zip coords elmap elmap' = zip coords elmap
evalTwoD (updateAllElements >> eventLoop) evalTwoD (updateAllElements >> eventLoop) TwoDState { td_curpos = (head coords),
(TwoDState (head coords) td_elementmap = elmap',
elmap' td_gsconfig = gsconfig,
gsconfig td_font = font,
font td_paneX = screenWidth,
screenWidth td_paneY = screenHeight,
screenHeight td_drawingWin = win }
win)
else else
return Nothing return Nothing
liftIO $ do liftIO $ do