setLayout should not call sendMessage, because sendMessage calls windows

This commit is contained in:
Spencer Janssen
2007-09-28 01:15:10 +00:00
parent 4fd7353d8e
commit 34bbbf59c4

View File

@@ -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