diff options
| author | Clemens Fruhwirth <clemens@endorphin.org> | 2010-10-16 18:41:51 +0200 |
|---|---|---|
| committer | Clemens Fruhwirth <clemens@endorphin.org> | 2010-10-16 18:41:51 +0200 |
| commit | 96a228c312a19431eac4252b58c0cfafaaf91a84 (patch) | |
| tree | e9d4945ac7090008a721381c2375438dc9ee9211 /XMonad | |
| parent | 2836dd292e18c0ec210c31446a6efa3607a35f9a (diff) | |
| download | XMonadContrib-96a228c312a19431eac4252b58c0cfafaaf91a84.tar.gz XMonadContrib-96a228c312a19431eac4252b58c0cfafaaf91a84.tar.xz XMonadContrib-96a228c312a19431eac4252b58c0cfafaaf91a84.zip | |
Make use of field names when constructing TwoDState in X.A.GridSelect
Ignore-this: 17d947c11e6cb4c64e04fd4754568337
darcs-hash:20101016164151-ed0c4-288ca4d4b5be15053a2ee2486d0e6ef80ece2ac1.gz
Diffstat (limited to 'XMonad')
| -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 |