From 6237a817b70c479e328d481225612e12107b7a28 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Sat, 30 Jun 2007 04:10:26 +0200
Subject: UPGRADE X11-Extras!  Manage iconified windows

darcs-hash:20070630021026-a5988-808741074e4132930b6036826d758b362c498dfc
---
 Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Operations.hs')

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
-- 
cgit v1.2.3