From 242b06df642f135f1b4e849d49a18099cf71d0e9 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Sun, 10 Jun 2007 17:38:36 +0200
Subject: a few modifications to event-sending to make Tabbed layout work.

darcs-hash:20070610153836-72aca-75025ca798e1b8c2c5d9f95257aef2bca0803749
---
 Operations.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index 7405ce7..b4c33cf 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -123,7 +123,7 @@ kill = withDisplay $ \d -> withFocused $ \w -> do
 -- ---------------------------------------------------------------------
 -- Managing windows
 
-data ModifyWindows = ModifyWindows deriving Typeable
+data ModifyWindows = ModifyWindows deriving ( Typeable, Eq )
 instance Message ModifyWindows
 
 -- | windows. Modify the current window list with a pure function, and refresh
@@ -345,6 +345,8 @@ sendMessage a = do n <- (W.tag . W.workspace . W.current) `fmap` gets windowset
                    whenJust ml' $ \l' -> do modify $ \s -> s { layouts = M.insert n (l',ls) (layouts s) }
                                             refresh
 
+instance Message Event
+
 --
 -- Builtin layout algorithms:
 --
@@ -436,6 +438,7 @@ splitVerticallyBy f = (mirrorRect *** mirrorRect) . splitHorizontallyBy f . mirr
 -- function and refresh.
 layout :: ((Layout, [Layout]) -> (Layout, [Layout])) -> X ()
 layout f = do
+    sendMessage ModifyWindows
     modify $ \s ->
         let n          = W.tag . W.workspace . W.current . windowset $ s
             (Just fl)  = M.lookup n $ layouts s
-- 
cgit v1.2.3