We must listen for ConfigureNotify events on the root window for xrandr

darcs-hash:20071027220550-a5988-c00d4bba8555aadea921c5bbedc16f21cc1b4672.gz

1 files changed, 5 insertions, 0 deletions

diff --git a/Main.hs b/Main.hs
index 7f9da13..c86ebe7 100644
--- a/Main.hs
+++ b/Main.hs
@@ -41,6 +41,11 @@ main = do
   c        <- case file of
                 [cfgfile] -> readConfig cfgfile
                 _         -> readDefaultConfig
+
+  -- listen for ConfigureEvents on the root window, for xrandr support:
+  rootw <- rootWindow d (defaultScreen d)
+  selectInput d rootw structureNotifyMask
+
   civ      <- newIORef c
   doOpts civ o
   conf     <- readIORef civ