[Eclipse-cvs] CVS eclipse

[ihatchondo]

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

Modified Files:
	move-resize.lisp 
Log Message:
Fix: cosmetic.

--- /project/eclipse/cvsroot/eclipse/move-resize.lisp	2008/04/25 16:02:49	1.19
+++ /project/eclipse/cvsroot/eclipse/move-resize.lisp	2009/11/17 09:32:27	1.20
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
-;;; $Id: move-resize.lisp,v 1.19 2008/04/25 16:02:49 ihatchondo Exp $
+;;; $Id: move-resize.lisp,v 1.20 2009/11/17 09:32:27 ihatchondo Exp $
 ;;;
 ;;; ECLIPSE. The Common Lisp Window Manager.
 ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
@@ -428,7 +428,7 @@
   (with-slots (window active-p) widget
     (setf (window-priority window) :above)
     (unless (widget-position-fix-p widget)
-      (setf active-p  t
+      (setf active-p t
 	    *delta-x* (- (event-root-x event) (xlib:drawable-x window))
 	    *delta-y* (- (event-root-y event) (xlib:drawable-y window))
 	    *screen-windows* (screen-content (current-desk)
@@ -442,4 +442,4 @@
   (send-configuration-notify (get-child master :application :window t)))
 
 (defmethod finalize-move ((application application))
-  (send-configuration-notify (widget-window application)))
\ No newline at end of file
+  (send-configuration-notify (widget-window application)))