summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorMartin Perner <martin@perner.cc>2011-08-30 21:06:57 +0200
committerMartin Perner <martin@perner.cc>2011-08-30 21:06:57 +0200
commitbba4b08bb0056d44c3d1535e08ed0a32ed060f1f (patch)
tree71a8bbe05a2dd0845c8c3aa539928dd3c2c0fee1 /src
parentd17958115fbb80d5baf58830f33390cd21acedac (diff)
downloadxmobar-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')
-rw-r--r--src/XUtil.hsc6
-rw-r--r--src/Xmobar.hs11
2 files changed, 16 insertions, 1 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 ()
diff --git a/src/Xmobar.hs b/src/Xmobar.hs
index eb7a1dd..f0c00cb 100644
--- a/src/Xmobar.hs
+++ b/src/Xmobar.hs
@@ -103,6 +103,7 @@ eventLoop xc@(XConf d _ w fs c) vs = block $ do
-- event hanlder
handle _ ct (ConfigureEvent {ev_window = win}) = do
rootw <- rootWindow d (defaultScreen d)
+ putStrLn "Configure"
when (win == rootw) $ block $ do
killThread ct
destroyWindow d w
@@ -111,7 +112,13 @@ eventLoop xc@(XConf d _ w fs c) vs = block $ do
handle tvar _ (ExposeEvent {}) = runX xc (updateWin tvar)
- handle _ _ _ = return ()
+ -- this catches the RRScreenChangeNotify
+ handle _ ct _ = block $ do
+ putStrLn "ScreenChange"
+ killThread ct
+ destroyWindow d w
+ (r',w') <- createWin d fs c
+ eventLoop (XConf d r' w' fs c) vs
-- $command
@@ -141,6 +148,8 @@ createWin d fs c = do
(r,o) = setPosition (position c) srs (fi ht)
win <- newWindow d (defaultScreenOfDisplay d) rootw r o
selectInput d win (exposureMask .|. structureNotifyMask)
+ -- RRScreenChangeNotifyMask has the same value as keyPressMask
+ xrrSelectInput d rootw (keyPressMask)
setProperties r c d win srs
when (lowerOnStart c) (lowerWindow d win)
mapWindow d win