added a manager-focused message

src/split-wm.scm

@@ -92,6 +92,11 @@
 	   ;; 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

@@ -86,6 +86,11 @@
 			    '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))
 		  (dpy (wm:dpy wm))