[mcclim-cvs] CVS update: mcclim/gadgets.lisp

[Andy Hefner]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv4833

Modified Files:
	gadgets.lisp 
Log Message:
Fix gadget output records after recent coordinate changes, with help from
Anthony Juckel and Mikemac.


Date: Fri Feb 25 07:03:03 2005
Author: ahefner

Index: mcclim/gadgets.lisp
diff -u mcclim/gadgets.lisp:1.87 mcclim/gadgets.lisp:1.88
--- mcclim/gadgets.lisp:1.87	Mon Jan 31 07:09:55 2005
+++ mcclim/gadgets.lisp	Fri Feb 25 07:03:02 2005
@@ -2699,12 +2699,8 @@
          (width  (space-requirement-width sr))
          (height (space-requirement-height sr)))
     (allocate-space child width height)
-    (setf (gadget record) child)
-    (with-slots (x1 x2 y1 y2) record
-      (setf x1 x
-            y1 y
-            x2 (+ x width)
-            y2 (+ y height)))))
+    (setf (gadget record) child
+          (rectangle-edges* record) (values x y (+ x width) (+ y height)))))
 
 (defmethod note-output-record-got-sheet ((record gadget-output-record) sheet)
   (multiple-value-bind (x y)  (output-record-position record)