From 203b48d3cd264e85233d0f198fd8eec85e72c39d Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Fri, 28 Sep 2007 03:15:10 +0200 Subject: setLayout should not call sendMessage, because sendMessage calls windows darcs-hash:20070928011510-a5988-1f7a4c6cabb0d7318044fd3da40dce2d5482c41a --- Operations.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Operations.hs b/Operations.hs index ee1fd80..3deb4ad 100644 --- a/Operations.hs +++ b/Operations.hs @@ -329,9 +329,9 @@ instance Message Event -- | Set the layout of the currently viewed workspace setLayout :: SomeLayout Window -> X () setLayout l = do - sendMessage ReleaseResources - windows $ \ss@(W.StackSet { W.current = c@(W.Screen { W.workspace = ws })}) - -> ss {W.current = c { W.workspace = ws { W.layout = l } } } + ss@(W.StackSet { W.current = c@(W.Screen { W.workspace = ws })}) <- gets windowset + handleMessage (W.layout ws) (SomeMessage ReleaseResources) + windows $ const $ ss {W.current = c { W.workspace = ws { W.layout = l } } } -- Layout selection manager -- cgit v1.2.3