diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-30 04:10:26 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-30 04:10:26 +0200 |
| commit | 6237a817b70c479e328d481225612e12107b7a28 (patch) | |
| tree | 35ff168ab5cfd8fc91a095e9bbf749079ec5a919 /Operations.hs | |
| parent | ccc8377b43ca258b30d37402bdcf881e9acab7d9 (diff) | |
| download | metatile-6237a817b70c479e328d481225612e12107b7a28.tar metatile-6237a817b70c479e328d481225612e12107b7a28.zip | |
UPGRADE X11-Extras! Manage iconified windows
darcs-hash:20070630021026-a5988-808741074e4132930b6036826d758b362c498dfc
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs index ee5a5bc..5a1d1b5 100644 --- a/Operations.hs +++ b/Operations.hs @@ -48,7 +48,7 @@ import qualified Data.Traversable as T -- border set, and its event mask set. -- manage :: Window -> X () -manage w = withDisplay $ \d -> do +manage w = whenX (fmap not $ isClient w) $ withDisplay $ \d -> do setInitialProperties w >> reveal w -- FIXME: This is pretty awkward. We can't can't let "refresh" happen |