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