From c4630dfd41c7ee2bdb2cc9f75a139b51e28ea9e4 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Mon, 9 Sep 2013 02:18:28 +0200 Subject: Remove concept of floating windows They will be re-introduced later as a layout modifier --- XMonad/Main.hsc | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'XMonad/Main.hsc') diff --git a/XMonad/Main.hsc b/XMonad/Main.hsc index 75cb94c..c038ecb 100644 --- a/XMonad/Main.hsc +++ b/XMonad/Main.hsc @@ -36,7 +36,7 @@ import Graphics.X11.Xlib.Extras import XMonad.Core import qualified XMonad.Config as Default -import XMonad.StackSet (new, floating, member) +import XMonad.StackSet (new, member) import qualified XMonad.StackSet as W import XMonad.Operations @@ -277,8 +277,7 @@ handle e@(ConfigureRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do bw <- asks (borderWidth . config) - if M.member w (floating ws) - || not (member w ws) + if not (member w ws) then do io $ configureWindow dpy w (ev_value_mask e) $ WindowChanges { wc_x = ev_x e , wc_y = ev_y e @@ -287,7 +286,6 @@ handle e@(ConfigureRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do , wc_border_width = fromIntegral bw , wc_sibling = ev_above e , wc_stack_mode = ev_detail e } - when (member w ws) (float w) else io $ allocaXEvent $ \ev -> do setEventType ev configureNotify setConfigureEvent ev w w -- cgit v1.2.3