From 2efe3291b8b3db7b2c3c729297760ebd7677a8f4 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Sun, 10 Jun 2007 03:35:31 +0200
Subject: send message when "windows" is called.

darcs-hash:20070610013531-72aca-9f6807aed050b85a00bd11a69d05843c1cbedbaa
---
 Operations.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index eb3a871..7405ce7 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -123,9 +123,13 @@ kill = withDisplay $ \d -> withFocused $ \w -> do
 -- ---------------------------------------------------------------------
 -- Managing windows
 
+data ModifyWindows = ModifyWindows deriving Typeable
+instance Message ModifyWindows
+
 -- | windows. Modify the current window list with a pure function, and refresh
 windows :: (WindowSet -> WindowSet) -> X ()
 windows f = do
+    sendMessage ModifyWindows
     XState { windowset = old, layouts = fls, xineScreens = xinesc, statusGaps = gaps } <- get
     let ws = f old
     modify (\s -> s { windowset = ws })
-- 
cgit v1.2.3