diff options
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 () |