diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-09 03:20:16 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-09 03:20:16 +0200 |
| commit | 2ae89a5e3348fbe94b50a985de9766689c22d011 (patch) | |
| tree | f4948c3c2a29ae96cc1a4b5c37e7732c6d6b1b7c /lib/Phi/X11.hs | |
| parent | 4d519acbd48fa400f09e4705251a0dbf45c6876e (diff) | |
| download | phi-2ae89a5e3348fbe94b50a985de9766689c22d011.tar phi-2ae89a5e3348fbe94b50a985de9766689c22d011.zip | |
SystrayHelper: initialization
Diffstat (limited to 'lib/Phi/X11.hs')
| -rw-r--r-- | lib/Phi/X11.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs index 713b162..9c213e0 100644 --- a/lib/Phi/X11.hs +++ b/lib/Phi/X11.hs @@ -179,7 +179,7 @@ runPhi xconfig config widget = do 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 @@ -189,6 +189,7 @@ runPhi xconfig config widget = do message <- receiveMessage phi handleMessage message + case (fromMessage message) of Just Shutdown -> modify $ \state -> state { phiShutdown = True } |