From b84a9b875b6efe423e1cd4ed6dd91d32e5e3c9f5 Mon Sep 17 00:00:00 2001 From: Peter De Wachter Date: Mon, 18 Jun 2007 21:46:57 +0000 Subject: [PATCH] float fixed size windows --- Operations.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Operations.hs b/Operations.hs index 296f0c2..6d54c7c 100644 --- a/Operations.hs +++ b/Operations.hs @@ -55,8 +55,10 @@ manage w = withDisplay $ \d -> do -- before the call to float, because that will resize the window and -- lose the default sizing. + sh <- io $ getWMNormalHints d w + let isFixedSize = sh_min_size sh /= Nothing && sh_min_size sh == sh_max_size sh isTransient <- isJust `liftM` io (getTransientForHint d w) - if isTransient + if isFixedSize || isTransient then do modify $ \s -> s { windowset = W.insertUp w (windowset s) } float w -- \^^ now go the refresh. else windows $ W.insertUp w