From ab0d160ac877c9719dd8112e6f06312f3cd69d6c Mon Sep 17 00:00:00 2001 From: Jan Vornberger Date: Wed, 28 Jul 2010 00:48:41 +0200 Subject: Minimize: Replaced calls to 'sendMessage' (BW.focusDown) and 'windows' with alternative methods Ignore-this: 67257480b7b93181967a806fedf6fbc5 Calling these functions during message handling results in the loss of layout state. This fixes a number of bugs related to the combination of X.L.Minimize with a decoration. darcs-hash:20100727224841-594c5-c8ddec3ae634ec96103e332433066b5173a0002a.gz --- XMonad/Hooks/Minimize.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad/Hooks/Minimize.hs') diff --git a/XMonad/Hooks/Minimize.hs b/XMonad/Hooks/Minimize.hs index e293e6d..dd9567c 100644 --- a/XMonad/Hooks/Minimize.hs +++ b/XMonad/Hooks/Minimize.hs @@ -47,7 +47,7 @@ minimizeEventHook (ClientMessageEvent {ev_window = w, when (mt == a_cs) $ do let message = fromIntegral . head $ dt when (message == normalState) $ sendMessage (RestoreMinimizedWin w) - when (message == iconicState) $ sendMessage (MinimizeWin w) + when (message == iconicState) $ minimizeWindow w return (All True) minimizeEventHook _ = return (All True) -- cgit v1.2.3