25 Feb
2005
25 Feb
'05
5:57 a.m.
Actually neither of these patches are correct, the intent is to modify the value of the slots.
:)
On Thu, 24 Feb 2005 23:23:54 -0600, mikemac@mikemac.com mikemac@mikemac.com wrote:
Index: gadgets.lisp
@@ -2700,7 +2700,7 @@ (height (space-requirement-height sr))) (allocate-space child width height) (setf (gadget record) child)
- (with-slots (x1 x2 y1 y2) record
- (multiple-value-bind (x1 y1 x2 y2) (slot-value record 'coordinates)
Try this instead:
(multiple-value-bind (x1 y1 x2 y2) (rectangle-edges* record)Using internal state of classes is a no-no. Use the interfaces provided by the spec.
Mike McDonald mikemac@mikemac.com _______________________________________________ mcclim-devel mailing list mcclim-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel