From 41e31ab4d887405815b9e3cfed7431b3d52b3024 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Tue, 22 May 2007 06:02:28 +0200 Subject: Add preliminary randr support darcs-hash:20070522040228-a5988-1ae9fc6bd773b32bc4a4c43aeab556857929fef4 --- Main.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index ea6d96b..359278b 100644 --- a/Main.hs +++ b/Main.hs @@ -26,7 +26,7 @@ import Graphics.X11.Xinerama (getScreenInfo) import XMonad import Config import StackSet (new) -import Operations (manage, unmanage, focus, setFocusX, full, isClient) +import Operations (manage, unmanage, focus, setFocusX, full, isClient, rescreen) -- -- The main entry point @@ -70,7 +70,7 @@ main = do -- setup initial X environment sync dpy False selectInput dpy rootw $ substructureRedirectMask .|. substructureNotifyMask - .|. enterWindowMask .|. leaveWindowMask + .|. enterWindowMask .|. leaveWindowMask .|. structureNotifyMask grabKeys dpy rootw sync dpy False @@ -171,4 +171,9 @@ handle e@(ConfigureRequestEvent {}) = withDisplay $ \dpy -> do , wc_stack_mode = fromIntegral $ ev_detail e } io $ sync dpy False +-- the root may have configured +handle e@(ConfigureEvent {ev_window = w}) = do + r <- asks theRoot + when (r == w) rescreen + handle _ = return () -- trace (eventName e) -- ignoring -- cgit v1.2.3