sawfish r4237 - trunk/lisp/sawfish/wm

[jkozicki svn gnome org]

Author: jkozicki
Date: Mon Aug  4 11:02:08 2008
New Revision: 4237
URL: http://svn.gnome.org/viewvc/sawfish?rev=4237&view=rev

Log:
Enter-Click Focus Mode by Dagfinn I. MannsÃÂÃËke (Original Author),
Christopher Bratusek and Timo Korvola (Simplyfied Code)



Modified:
   trunk/lisp/sawfish/wm/focus.jl

Modified: trunk/lisp/sawfish/wm/focus.jl
==============================================================================
--- trunk/lisp/sawfish/wm/focus.jl	(original)
+++ trunk/lisp/sawfish/wm/focus.jl	Mon Aug  4 11:02:08 2008
@@ -213,6 +213,14 @@
 		     (eq w (input-focus)))
 	   (focus-push-map w click-to-focus-map))))))
 
+  (define-focus-mode 'enter-click
+    (lambda (w action . args)
+      (case action
+        ((pointer-in warp-if-necessary)
+         (apply (focus-mode-ref 'enter-only) w action args))
+        ((focus-in focus-out add-window before-mode-change after-mode-change)
+         (apply (focus-mode-ref 'click) w action args)))))
+
 
 ;;; hooks