twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -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
elmap' = zip coords elmap
evalTwoD (updateAllElements >> eventLoop)
(TwoDState (head coords)
elmap'
gsconfig
font
screenWidth
screenHeight
win)
evalTwoD (updateAllElements >> eventLoop) TwoDState { td_curpos = (head coords),
td_elementmap = elmap',
td_gsconfig = gsconfig,
td_font = font,
td_paneX = screenWidth,
td_paneY = screenHeight,
td_drawingWin = win }
else
return Nothing
liftIO $ do