From e8f3d5f0e6898e0b48d709267d83b2d4c8c2869f Mon Sep 17 00:00:00 2001 From: Martin Perner Date: Wed, 31 Aug 2011 10:40:47 +0200 Subject: Update on Screen change works But I'm not sure if something is broken now... --- src/Xmobar.hs | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/src/Xmobar.hs b/src/Xmobar.hs index f0c00cb..462de14 100644 --- a/src/Xmobar.hs +++ b/src/Xmobar.hs @@ -101,20 +101,12 @@ eventLoop xc@(XConf d _ w fs c) vs = block $ do go tv ct -- event hanlder - handle _ ct (ConfigureEvent {ev_window = win}) = do - rootw <- rootWindow d (defaultScreen d) - putStrLn "Configure" - when (win == rootw) $ block $ do - killThread ct - destroyWindow d w - (r',w') <- createWin d fs c - eventLoop (XConf d r' w' fs c) vs + handle _ _ (ConfigureEvent {}) = return () handle tvar _ (ExposeEvent {}) = runX xc (updateWin tvar) -- this catches the RRScreenChangeNotify handle _ ct _ = block $ do - putStrLn "ScreenChange" killThread ct destroyWindow d w (r',w') <- createWin d fs c @@ -147,9 +139,8 @@ createWin d fs c = do let ht = as + ds + 4 (r,o) = setPosition (position c) srs (fi ht) win <- newWindow d (defaultScreenOfDisplay d) rootw r o - selectInput d win (exposureMask .|. structureNotifyMask) -- RRScreenChangeNotifyMask has the same value as keyPressMask - xrrSelectInput d rootw (keyPressMask) + xrrSelectInput d rootw keyPressMask setProperties r c d win srs when (lowerOnStart c) (lowerWindow d win) mapWindow d win -- cgit v1.2.3