[Eclipse-cvs] CVS update: eclipse/widgets.lisp

[Iban Hatchondo]

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))