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