From 6746d60e3f23a2abe4abe8bb0d26821b8faef8bd Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Wed, 7 Sep 2011 19:35:59 +0200 Subject: Use new XHB backend for Taskbar --- lib/Phi/X11.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lib/Phi/X11.hs') diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs index cc53cea..c66fa54 100644 --- a/lib/Phi/X11.hs +++ b/lib/Phi/X11.hs @@ -191,7 +191,7 @@ handleMessage conn xcb m = do return () handleEvent :: (Widget w s c) => Connection -> XCB.Connection -> SomeEvent -> PhiX w s c () -handleEvent conn xcb event = do +handleEvent conn xcb event = case (fromEvent event) of Just e -> handlePropertyNotifyEvent conn xcb e Nothing -> case (fromEvent event) of @@ -253,6 +253,7 @@ handleConfigureNotifyEvent conn MkConfigureNotifyEvent { window_ConfigureNotifyE sendMessage phi $ UpdateScreens $ map (panelScreenArea &&& panelWindow) panels' sendMessage phi Repaint +handleConfigureNotifyEvent _ _ = return () receiveEvents :: Phi -> Connection -> IO () receiveEvents phi conn = do -- cgit v1.2.3