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)