[mcclim-devel] Reposting gadgets.patch

[mikemac at mikemac.com]

>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