diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-22 06:02:28 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-22 06:02:28 +0200 |
commit | 395b934efb901fa5bdca4046e047b9592e9771ce (patch) | |
tree | ff1ff4028a82ed82ed7abe0f33854c1971bad93b /Main.hs | |
parent | c3ab2c0a325feccaac280dabd324be2ba84fb506 (diff) | |
download | xmonad-395b934efb901fa5bdca4046e047b9592e9771ce.tar.gz xmonad-395b934efb901fa5bdca4046e047b9592e9771ce.tar.xz xmonad-395b934efb901fa5bdca4046e047b9592e9771ce.zip |
Add preliminary randr support
darcs-hash:20070522040228-a5988-1ae9fc6bd773b32bc4a4c43aeab556857929fef4.gz
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -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 |