twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-04 06:01:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

Honor configure requests from unmanaged windows

Browse Source
This commit is contained in:
Spencer Janssen
2007-06-03 23:47:30 +00:00
parent 27b7cccd3a
commit 29a32bc146
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Main.hs
View File

@@ -26,7 +26,7 @@ import Graphics.X11.Xinerama (getScreenInfo)
import XMonad import XMonad
import Config import Config
import StackSet (new, floating) import StackSet (new, floating, member)
import Operations import Operations
-- --
@@ -183,10 +183,10 @@ handle e@(CrossingEvent {ev_event_type = t})
-- configure a window -- configure a window
handle e@(ConfigureRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do handle e@(ConfigureRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do
f <- gets $ M.member w . floating . windowset ws <- gets windowset
wa <- io $ getWindowAttributes dpy w wa <- io $ getWindowAttributes dpy w
if f if M.member w (floating ws) || not (member w ws)
then do io $ configureWindow dpy w (ev_value_mask e) $ WindowChanges then do io $ configureWindow dpy w (ev_value_mask e) $ WindowChanges
{ wc_x = ev_x e { wc_x = ev_x e
, wc_y = ev_y e , wc_y = ev_y e
@@ -195,7 +195,7 @@ handle e@(ConfigureRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do
, wc_border_width = fromIntegral borderWidth , wc_border_width = fromIntegral borderWidth
, wc_sibling = ev_above e , wc_sibling = ev_above e
, wc_stack_mode = ev_detail e } , wc_stack_mode = ev_detail e }
float w when (member w ws) (float w)
else io $ allocaXEvent $ \ev -> do else io $ allocaXEvent $ \ev -> do
setEventType ev configureNotify setEventType ev configureNotify
setConfigureEvent ev w w setConfigureEvent ev w w