aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Hooks/Minimize.hs
diff options
context:
space:
mode:
authorJan Vornberger <jan.vornberger@informatik.uni-oldenburg.de>2010-07-28 00:48:41 +0200
committerJan Vornberger <jan.vornberger@informatik.uni-oldenburg.de>2010-07-28 00:48:41 +0200
commitab0d160ac877c9719dd8112e6f06312f3cd69d6c (patch)
treeb3e9b26a52f7a1981645090e4f72eea340a9cff9 /XMonad/Hooks/Minimize.hs
parent5217c7c613b3559c65db9de11aec1b744df062cb (diff)
downloadXMonadContrib-ab0d160ac877c9719dd8112e6f06312f3cd69d6c.tar.gz
XMonadContrib-ab0d160ac877c9719dd8112e6f06312f3cd69d6c.tar.xz
XMonadContrib-ab0d160ac877c9719dd8112e6f06312f3cd69d6c.zip
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
Diffstat (limited to 'XMonad/Hooks/Minimize.hs')
-rw-r--r--XMonad/Hooks/Minimize.hs2
1 files changed, 1 insertions, 1 deletions
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)