sawfish r4246 - in trunk: . lisp/sawfish/wm

[jkozicki svn gnome org]

Author: jkozicki
Date: Mon Aug  4 16:49:49 2008
New Revision: 4246
URL: http://svn.gnome.org/viewvc/sawfish?rev=4246&view=rev

Log:
lisp/sawfish/wm/viewport.jl: Keep Focus on move-window- direction by Mark Schreiber.



Modified:
   trunk/ChangeLog
   trunk/lisp/sawfish/wm/viewport.jl

Modified: trunk/lisp/sawfish/wm/viewport.jl
==============================================================================
--- trunk/lisp/sawfish/wm/viewport.jl	(original)
+++ trunk/lisp/sawfish/wm/viewport.jl	Mon Aug  4 16:49:49 2008
@@ -266,7 +266,8 @@
       (window-put window 'sticky-viewport t)
       (with-server-grabbed
        (raise-window* window)
-       (move-viewport col row))
+       (move-viewport col row)
+       (set-input-focus window))
       (unless sticky-viewport
 	(window-put window 'sticky-viewport nil))))