diff options
| -rw-r--r-- | XMonad/Actions/GridSelect.hs | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs index 8cc9f29..0e8951a 100644 --- a/XMonad/Actions/GridSelect.hs +++ b/XMonad/Actions/GridSelect.hs @@ -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 |