added a manager-focused message

src/split-wm.scm

@@ -91,7 +91,12 @@
 	  ((fit-client-window)
 	   ;; client changed it's size ??
 	   #t)
-	  
+
+	  ((manager-focused)
+	   (let ((time (second msg))
+		 (cc (wm-current-client wm)))
+	     (if cc (wm-select-client wm cc time))))
+
 	  ((update-client-state) #t)
 
 	  ;; Shortcuts

src/switch-wm.scm

@@ -85,6 +85,11 @@
 			    'focused
 			    'active)))
 	     (set-titlebar-state! empty-titlebar state)))
+
+	  ((manager-focused)
+	   (let ((time (second msg))
+		 (cc (wm-current-client wm)))
+	     (if cc (wm-select-client wm cc time))))
 	  
 	  ((update-client-state)
 	   (let* ((client (second msg))