Renamed binaries to lowercase

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

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)