[mcclim-devel] (setf bounding-rectangle-min-x)

[Raymond Toy]

In draw.lisp in scigraph, there are calls to (setf
bounding-rectangle-min-x) and friends.  These don't seem to exist in
mcclim, but there is (setf rectangle-edges*) which seems to be doing
essentially the same thing.

Here is a little patch that implements that.  Not sure it's really
right, though.

Ray

Index: draw.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph/draw.lisp,v
retrieving revision 1.3
diff -u -r1.3 draw.lisp
--- draw.lisp	17 Mar 2006 07:12:52 -0000	1.3
+++ draw.lisp	16 Dec 2006 14:58:36 -0000
@@ -134,13 +134,19 @@
 	       (slot-value .x. 'clim-utils::max-y) be)
 	 (with-drawing-options (,stream :clipping-region .x.)
 	   , at body)))
-      (:clim-2
+      ((and :clim-2 (not :mcclim))
        (let ((.x. *clim-clip-rectangle*))
 	 (setf (bounding-rectangle-min-x .x.) le
 	       (bounding-rectangle-min-y .x.) te
 	       (bounding-rectangle-max-x .x.) re
 	       (bounding-rectangle-max-y .x.) be)
 	 (with-drawing-options (,stream :clipping-region .x.)
+	   , at body)))
+      ((and :clim-2 :mcclim)
+       (let ((.x. *clim-clip-rectangle*))
+	 (setf (rectangle-edges* .x.)
+	       (values le te re be))
+	 (with-drawing-options (,stream :clipping-region .x.)
 	   , at body))))))

 (eval-when (compile load eval)