aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPeter De Wachter <pdewacht@gmail.com>2007-06-18 23:46:57 +0200
committerPeter De Wachter <pdewacht@gmail.com>2007-06-18 23:46:57 +0200
commita1131013b194ed268594c06ce29784166471c64c (patch)
tree2955e60e61f05f7de9e39c6cbc69b14755bd1e26
parent03e9c2ce97e59737f1effd08eb12b9f613a9df93 (diff)
downloadxmonad-a1131013b194ed268594c06ce29784166471c64c.tar.gz
xmonad-a1131013b194ed268594c06ce29784166471c64c.tar.xz
xmonad-a1131013b194ed268594c06ce29784166471c64c.zip
float fixed size windows
darcs-hash:20070618214657-06a25-25676598a5d064293620b8e02741964e158b1763.gz
-rw-r--r--Operations.hs4
1 files changed, 3 insertions, 1 deletions
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