~ubuntu-branches/ubuntu/lucid/sawfish/lucid-updates

« back to all changes in this revision

Viewing changes to lisp/sawfish/wm/focus.jl

  • Committer: Bazaar Package Importer
  • Author(s): Luis Rodrigo Gallardo Cruz
  • Date: 2009-03-05 11:53:27 UTC
  • mfrom: (1.2.8 upstream) (3.1.3 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090305115327-1r4yg4eeodiyzu6z
Tags: 1:1.3.4-1
* New upstream release (Closes: #501092).
 - Includes patch from upstream BTS to fix focus handling after move-window-*
 (Closes: #132236).
 - Bump build dependency on GTK+ to 2.6.
* Loosen quilt dependency.
* Add README.source. Bump Standards-Version to 3.8.0.

Show diffs side-by-side

added added

removed removed

Lines of Context:
213
213
                     (eq w (input-focus)))
214
214
           (focus-push-map w click-to-focus-map))))))
215
215
 
 
216
  (define-focus-mode 'enter-click
 
217
    (lambda (w action . args)
 
218
      (case action
 
219
        ((pointer-in warp-if-necessary)
 
220
         (apply (focus-mode-ref 'enter-only) w action args))
 
221
        ((focus-in focus-out add-window before-mode-change after-mode-change)
 
222
         (apply (focus-mode-ref 'click) w action args)))))
 
223
 
216
224
 
217
225
;;; hooks
218
226