diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-19 12:25:08 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-19 12:25:08 +0200 |
commit | 387613b2f0752836524ccd6d9d8001694bd219fb (patch) | |
tree | 7975b133db20a36865eff4f5b1e90415d963b023 /lib/Phi/Widgets/Taskbar.hs | |
parent | 19c4bb35212b422ce0c3d8808357e0edf8728218 (diff) | |
download | phi-387613b2f0752836524ccd6d9d8001694bd219fb.tar phi-387613b2f0752836524ccd6d9d8001694bd219fb.zip |
Gracefully shut down systray
Diffstat (limited to 'lib/Phi/Widgets/Taskbar.hs')
-rw-r--r-- | lib/Phi/Widgets/Taskbar.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Phi/Widgets/Taskbar.hs b/lib/Phi/Widgets/Taskbar.hs index f8b61f0..24f6611 100644 --- a/lib/Phi/Widgets/Taskbar.hs +++ b/lib/Phi/Widgets/Taskbar.hs @@ -530,7 +530,7 @@ premultiply c = a .|. r .|. g .|. b getWindowScreen :: Xlib.Display -> [Xlib.Rectangle] -> Window -> IO Xlib.Rectangle -getWindowScreen disp screens window = do +getWindowScreen disp screens window = flip catch (\_ -> return $ head screens) $ do (_, _, _, width, height, _, _) <- Xlib.getGeometry disp window (ret, x, y, _) <- Xlib.translateCoordinates disp window (Xlib.defaultRootWindow disp) 0 0 |