diff options
| author | Martin Perner <martin@perner.cc> | 2011-08-30 21:06:57 +0200 |
|---|---|---|
| committer | Martin Perner <martin@perner.cc> | 2011-08-30 21:06:57 +0200 |
| commit | bba4b08bb0056d44c3d1535e08ed0a32ed060f1f (patch) | |
| tree | 71a8bbe05a2dd0845c8c3aa539928dd3c2c0fee1 /src/XUtil.hsc | |
| parent | d17958115fbb80d5baf58830f33390cd21acedac (diff) | |
| download | xmobar-bba4b08bb0056d44c3d1535e08ed0a32ed060f1f.tar.gz xmobar-bba4b08bb0056d44c3d1535e08ed0a32ed060f1f.tar.bz2 | |
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 ...
Diffstat (limited to 'src/XUtil.hsc')
| -rw-r--r-- | src/XUtil.hsc | 6 |
1 files changed, 6 insertions, 0 deletions
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 () |