From 92b8549db8bdb7a6dafe5aa16e34e989693dd589 Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Wed, 5 Nov 2003 10:46:02 +0000
Subject: [PATCH] saving the focus when a split-wm is being destroyed

---
 src/manager.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/manager.scm b/src/manager.scm
index 1d80606..c3faa55 100644
--- a/src/manager.scm
+++ b/src/manager.scm
@@ -390,7 +390,8 @@
 	  (send-message+wait internal-out-channel (list 'fit-client client))
 	  (send internal-out-channel
 		(list 'update-client-name client (client-name dpy client)))
-	  (map-window (wm:dpy wm) new-window))
+	  (map-window (wm:dpy wm) new-window)
+	  (set-input-focus dpy new-window (revert-to parent) current-time))
 	#f)))
 
 (define (handle-client-window-xevent wm exit client xevent)