Ensure reparented windows get focus when resized or moved in the tiny…

…wm module
mwitmer · Sep 27, 2013 · aab6d77 · aab6d77
1 parent e4a4b76
commit aab6d77
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/module/guile-wm/module/tinywm.scm b/module/guile-wm/module/tinywm.scm
@@ -68,7 +68,7 @@
 
 (define (on-button-press button-press)
   (win (xref button-press 'child))
-  (set-focus (win))
+  (set-focus (assv-ref (reverse-reparents) (xid->integer (win))))
   (if (not (= (xid->integer (win)) 0))
       (on-window-click (win) button-press)))