[mcclim-devel] Reposting gadgets.patch

[Andy Hefner]

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 at mikemac.com
<mikemac at 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 at mikemac.com
> _______________________________________________
> mcclim-devel mailing list
> mcclim-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel
>