From f837dd93a4fc902b7d763a76d7bdc95da5dcdaee Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Sun, 28 Oct 2007 00:05:50 +0200
Subject: We must listen for ConfigureNotify events on the root window for
 xrandr

darcs-hash:20071027220550-a5988-c00d4bba8555aadea921c5bbedc16f21cc1b4672.gz
---
 Main.hs | 5 +++++
 1 file changed, 5 insertions(+)

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
-- 
cgit v1.2.3