[Eclipse-cvs] CVS eclipse

[ihatchondo]

Update of /project/eclipse/cvsroot/eclipse
In directory cl-net:/tmp/cvs-serv27384

Modified Files:
	widgets.lisp 
Log Message:
Fix: improper handling of iconified application during migration.

--- /project/eclipse/cvsroot/eclipse/widgets.lisp	2010/04/02 09:57:53	1.60
+++ /project/eclipse/cvsroot/eclipse/widgets.lisp	2010/04/23 14:41:12	1.61
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
-;;; $Id: widgets.lisp,v 1.60 2010/04/02 09:57:53 ihatchondo Exp $
+;;; $Id: widgets.lisp,v 1.61 2010/04/23 14:41:12 ihatchondo Exp $
 ;;;
 ;;; ECLIPSE. The Common Lisp Window Manager.
 ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
@@ -444,10 +444,12 @@
 (defun migrate-application (application new-screen-number)
   "Put an application, all its related dialogs and the top-level it is
    transient-for (if any) to the a new virtual screen."
-  (with-slots (master window transient-for) application
+  (with-slots (master window transient-for iconic-p) application
     (let* ((focused-p (focused-p application))
 	   (unmap-p (/= new-screen-number +any-desktop+ (current-desk)))
-	   (operation (if unmap-p #'xlib:unmap-window #'xlib:map-window)))
+	   (operation (if (or iconic-p unmap-p)
+                          #'xlib:unmap-window
+                          #'xlib:map-window)))
       (flet ((migrate (application)
 	       (with-slots (master window) application
 		 (when (shaded-p application) (shade application))