sawfish r4288 - in branches/sawfish-experimental: . lisp/sawfish/wm/state

[jkozicki svn gnome org]

Author: jkozicki
Date: Wed Sep 17 16:23:54 2008
New Revision: 4288
URL: http://svn.gnome.org/viewvc/sawfish?rev=4288&view=rev

Log:
Warp-if-necessary when unmaximizing by Fernando Carmona Varo. When window is unmaximized it doesn't lose focus now, even if mouse pointer is outside the unmaximized window. But instead the mouse pointer is wrapped to this window.



Modified:
   branches/sawfish-experimental/ChangeLog
   branches/sawfish-experimental/lisp/sawfish/wm/state/maximize.jl

Modified: branches/sawfish-experimental/lisp/sawfish/wm/state/maximize.jl
==============================================================================
--- branches/sawfish-experimental/lisp/sawfish/wm/state/maximize.jl	(original)
+++ branches/sawfish-experimental/lisp/sawfish/wm/state/maximize.jl	Wed Sep 17 16:23:54 2008
@@ -65,7 +65,8 @@
 	  sawfish.wm.util.display-window
 	  sawfish.wm.util.stacking
 	  sawfish.wm.frames
-	  sawfish.wm.misc)
+	  sawfish.wm.misc
+	  sawfish.wm.focus)
 
   (define-structure-alias maximize sawfish.wm.state.maximize)
 
@@ -406,6 +407,7 @@
 		  (not (window-maximized-horizontally-p w))
 		  (not (window-maximized-fullscreen-p w)))
 	 (discard-unmaximized-geometry w))))
+    (warp-pointer-if-necessary w)
     (call-window-hook 'window-unmaximized-hook w (list direction))
     (call-window-hook 'window-state-change-hook w (list '(maximized))))