From bba4b08bb0056d44c3d1535e08ed0a32ed060f1f Mon Sep 17 00:00:00 2001
From: Martin Perner <martin@perner.cc>
Date: Tue, 30 Aug 2011 21:06:57 +0200
Subject: Init commit

handle doesn't get all events.
simple c program and simple haskell program are getting all of them.

there must be something in xmobar which catches about 3 of the
screenchange events ...
---
 src/XUtil.hsc | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/XUtil.hsc')

diff --git a/src/XUtil.hsc b/src/XUtil.hsc
index d5bb591..6511b10 100644
--- a/src/XUtil.hsc
+++ b/src/XUtil.hsc
@@ -28,6 +28,7 @@ module XUtil
     , fi
     , withColors
     , DynPixel(..)
+	, xrrSelectInput
     ) where
 
 import Control.Concurrent
@@ -257,3 +258,8 @@ setupLocale = withCString "" (setlocale $ #const LC_ALL) >> return ()
 setupLocale :: IO ()
 setupLocale = return ()
 #endif
+
+--  XRRSelectInput
+#include <X11/extensions/Xrandr.h>
+foreign import ccall unsafe "X11/extensions/Xrandr.h XRRSelectInput"
+  xrrSelectInput :: Display -> Window -> EventMask -> IO ()
-- 
cgit v1.2.3