Update of /project/eclipse/cvsroot/eclipse In directory clnet:/tmp/cvs-serv32135

Modified Files: widgets.lisp Log Message: Fix: focusing bug in application like citrix meta frame.

--- /project/eclipse/cvsroot/eclipse/widgets.lisp 2007/05/11 12:28:40 1.49 +++ /project/eclipse/cvsroot/eclipse/widgets.lisp 2007/11/02 09:11:42 1.50 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*- -;;; $Id: widgets.lisp,v 1.49 2007/05/11 12:28:40 ihatchondo Exp $ +;;; $Id: widgets.lisp,v 1.50 2007/11/02 09:11:42 ihatchondo Exp $ ;;; ;;; ECLIPSE. The Common Lisp Window Manager. ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO @@ -472,6 +472,11 @@ (protocols (ignore-errors (xlib:wm-protocols window))) (input-p (and hint (logbitp 0 (first hint)) (= 1 (second hint)))) (take-focus-p (ignore-errors (member :wm_take_focus protocols)))) + (when (or (not hint) (not (logbitp 0 (first hint)))) + ;; The input model is not set in the property. For some application + ;; that forgot to precise it we'll act as if it was (otherwise they + ;; can't get focused). + (setf input-p t)) (cond ((and (not input-p) (not take-focus-p)) :no-input) ((and (not input-p) take-focus-p) :globally-active) ((and input-p (not take-focus-p)) :passive)