Update of /project/eclipse/cvsroot/eclipse In directory common-lisp.net:/tmp/cvs-serv19500

Modified Files: widgets.lisp Log Message: fix focus loss problem when switching into fullscreen.

Date: Sat Nov 1 04:41:49 2003 Author: ihatchondo

Index: eclipse/widgets.lisp diff -u eclipse/widgets.lisp:1.17 eclipse/widgets.lisp:1.18 --- eclipse/widgets.lisp:1.17 Thu Oct 9 07:37:08 2003 +++ eclipse/widgets.lisp Sat Nov 1 04:41:49 2003 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*- -;;; $Id: widgets.lisp,v 1.17 2003/10/09 11:37:08 ihatchondo Exp $ +;;; $Id: widgets.lisp,v 1.18 2003/11/01 09:41:49 ihatchondo Exp $ ;;; ;;; ECLIPSE. The Common Lisp Window Manager. ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO @@ -249,7 +249,8 @@ (setf x 0 y 0 w (screen-width) h (screen-height))) (xlib:with-state (window) (setf (window-position window) (values x y) - (drawable-sizes window) (values w h))))) + (drawable-sizes window) (values w h)))) + (focus-widget application 0)) (with-event-mask (*root-window*) (setf (window-position window) (geometry-coordinates fgeometry) (drawable-sizes window) (geometry-sizes fgeometry))