From ccec28ce8b5c44fcc39bd647acc7d506ac7e22d2 Mon Sep 17 00:00:00 2001 From: Dmitri Iouchtchenko Date: Mon, 21 Jan 2013 07:13:24 +0100 Subject: Give a name to the initial state in X.A.GridSelect Ignore-this: 989ae20ccc3d5b1392f0694d5c62e759 darcs-hash:20130121061324-7d114-34eccd0ee4c75b38d6203f4a2ee083cbdeab110e.gz --- XMonad/Actions/GridSelect.hs | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'XMonad') diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs index 1543644..bb392d9 100644 --- a/XMonad/Actions/GridSelect.hs +++ b/XMonad/Actions/GridSelect.hs @@ -628,16 +628,16 @@ gridselect _ [] = return Nothing gridselect gsconfig elements = withDisplay $ \dpy -> do rootw <- asks theRoot - s <- gets $ screenRect . W.screenDetail . W.current . windowset + scr <- gets $ screenRect . W.screenDetail . W.current . windowset win <- liftIO $ mkUnmanagedWindow dpy (defaultScreenOfDisplay dpy) rootw - (rect_x s) (rect_y s) (rect_width s) (rect_height s) + (rect_x scr) (rect_y scr) (rect_width scr) (rect_height scr) liftIO $ mapWindow dpy win liftIO $ selectInput dpy win (exposureMask .|. keyPressMask .|. buttonReleaseMask) status <- io $ grabKeyboard dpy win True grabModeAsync grabModeAsync currentTime io $ grabButton dpy button1 anyModifier win True buttonReleaseMask grabModeAsync grabModeAsync none none font <- initXMF (gs_font gsconfig) - let screenWidth = toInteger $ rect_width s; - screenHeight = toInteger $ rect_height s; + let screenWidth = toInteger $ rect_width scr + screenHeight = toInteger $ rect_height scr selectedElement <- if (status == grabSuccess) then do let restriction ss cs = (fromInteger ss/fromInteger (cs gsconfig)-1)/2 :: Double restrictX = floor $ restriction screenWidth gs_cellwidth @@ -645,16 +645,16 @@ gridselect gsconfig elements = originPosX = floor $ ((gs_originFractX gsconfig) - (1/2)) * 2 * fromIntegral restrictX originPosY = floor $ ((gs_originFractY gsconfig) - (1/2)) * 2 * fromIntegral restrictY coords = diamondRestrict restrictX restrictY originPosX originPosY - - evalTwoD (updateAllElements >> (gs_navigate gsconfig)) TwoDState { td_curpos = (head coords), - td_availSlots = coords, - td_elements = elements, - td_gsconfig = gsconfig, - td_font = font, - td_paneX = screenWidth, - td_paneY = screenHeight, - td_drawingWin = win, - td_searchString = "" } + s = TwoDState { td_curpos = (head coords), + td_availSlots = coords, + td_elements = elements, + td_gsconfig = gsconfig, + td_font = font, + td_paneX = screenWidth, + td_paneY = screenHeight, + td_drawingWin = win, + td_searchString = "" } + evalTwoD (updateAllElements >> (gs_navigate gsconfig)) s else return Nothing liftIO $ do -- cgit v1.2.3