diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-21 17:27:59 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-21 17:27:59 +0200 |
| commit | 4c5cce8383eda80ffe686d93dcac57b84e4fa29f (patch) | |
| tree | 95b5fc6d4a3f727cc583c6b209211db0a6ad9fe5 /Operations.hs | |
| parent | 747b8666a6176082177d4a32f5fe201f133826d2 (diff) | |
| download | metatile-4c5cce8383eda80ffe686d93dcac57b84e4fa29f.tar metatile-4c5cce8383eda80ffe686d93dcac57b84e4fa29f.zip | |
Make screen info dynamic: first step to supporting randr
darcs-hash:20070521152759-a5988-736e7caea5252a77bb01d7631cce0db4287ff6f2
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Operations.hs b/Operations.hs index 37dbafe..c438528 100644 --- a/Operations.hs +++ b/Operations.hs @@ -100,7 +100,7 @@ windows f = modify (\s -> s { windowset = f (windowset s) }) >> refresh -- | hide. Hide a window by moving it off screen. hide :: Window -> X () hide w = withDisplay $ \d -> do - (sw,sh) <- asks dimensions + (sw,sh) <- gets dimensions io $ moveWindow d w (2*fromIntegral sw) (2*fromIntegral sh) -- | refresh. Render the currently visible workspaces, as determined by @@ -111,8 +111,8 @@ hide w = withDisplay $ \d -> do -- refresh :: X () refresh = do - XState { windowset = ws, layouts = fls } <- get - XConf { xineScreens = xinesc, display = d } <- ask + XState { windowset = ws, layouts = fls, xineScreens = xinesc } <- get + d <- asks display -- for each workspace, layout the currently visible workspaces (`mapM_` (W.current ws : W.visible ws)) $ \w -> do |