twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-05 14:41:56 -07:00
Code Issues Packages Projects Releases Wiki Activity

float fixed size windows

Browse Source
This commit is contained in:
Peter De Wachter
2007-06-18 21:46:57 +00:00
parent 33bb745880
commit b84a9b875b
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Operations.hs
View File

@@ -55,8 +55,10 @@ manage w = withDisplay $ \d -> do
-- before the call to float, because that will resize the window and -- before the call to float, because that will resize the window and
-- lose the default sizing. -- 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) isTransient <- isJust `liftM` io (getTransientForHint d w)
if isTransient if isFixedSize || isTransient
then do modify $ \s -> s { windowset = W.insertUp w (windowset s) } then do modify $ \s -> s { windowset = W.insertUp w (windowset s) }
float w -- \^^ now go the refresh. float w -- \^^ now go the refresh.
else windows $ W.insertUp w else windows $ W.insertUp w