From 3e1ca8091269fcd30a7d89cbe2f9d68d7447b0fc Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Mon, 17 Oct 2011 21:16:01 +0200
Subject: Renamed binaries to lowercase

---
 lib/Phi/X11.hs          | 10 ++++++++--
 lib/Phi/X11/AtomList.hs |  1 +
 2 files changed, 9 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs
index af4cb0b..7a673c3 100644
--- a/lib/Phi/X11.hs
+++ b/lib/Phi/X11.hs
@@ -167,12 +167,14 @@ runPhi xconfig config widget = do
     
     forM_ panels $ liftIO . mapWindow conn . panelWindow
     
-    liftIO $ forkIO $ receiveEvents phi conn
+    liftIO $ do
+      forkIO $ receiveEvents phi conn
+      forkIO $ receiveErrors phi conn
     
     forever $ do
       available <- messageAvailable phi
       repaint <- gets phiRepaint
-      when (not available && repaint) $ liftIO $ threadDelay 30000
+      when (not available && repaint) $ liftIO $ threadDelay 20000
       
       available <- messageAvailable phi
       when (not available && repaint) $ do
@@ -311,6 +313,10 @@ receiveEvents :: Phi -> Connection -> IO ()
 receiveEvents phi conn =
   forever $ receiveEvents' conn >>= sendMessages phi
 
+receiveErrors :: Phi -> Connection -> IO ()
+receiveErrors phi conn =
+  forever $ waitForError conn >>= putStrLn . ("XHB error: " ++) . show
+
 updatePanels :: (Widget w s c X11) => PhiX w s c ()
 updatePanels = do
   X11 conn _ screen <- asks phiX11
diff --git a/lib/Phi/X11/AtomList.hs b/lib/Phi/X11/AtomList.hs
index cad753a..bc91efa 100644
--- a/lib/Phi/X11/AtomList.hs
+++ b/lib/Phi/X11/AtomList.hs
@@ -48,6 +48,7 @@ atoms = [ "ATOM"
         , "_XEMBED"
         , "_XROOTPMAP_ID"
         , "_XROOTMAP_ID"
+        , "PHI_SYSTRAY_HELPER"
         ]
 
 -- the expression must have the type (ConnectionClass c => c -> String)
-- 
cgit v1.2.3