[cells-cvs] CVS cells/gui-geometry

[ktilton]

Update of /project/cells/cvsroot/cells/gui-geometry
In directory clnet:/tmp/cvs-serv31873/gui-geometry

Modified Files:
	geo-family.lisp geometer.lisp 
Log Message:


--- /project/cells/cvsroot/cells/gui-geometry/geo-family.lisp	2006/07/06 22:10:02	1.6
+++ /project/cells/cvsroot/cells/gui-geometry/geo-family.lisp	2006/10/11 22:16:22	1.7
@@ -38,8 +38,9 @@
                                  (pr lk) 0)))))
     :lb (c? (+ (- (^outset))
               (ecase (orientation self)
-                (:vertical (bif (lk (last1 (^kids)))
-                             (pb lk) 0))
+                (:vertical (loop for k in (^kids)
+                                 unless (collapsed k)
+                                 maximizing (pb k)))
                 (:horizontal (downs (loop for k in (^kids)
                                         maximizing (l-height k)))))))
     :kid-slots (lambda (self)
--- /project/cells/cvsroot/cells/gui-geometry/geometer.lisp	2006/08/21 04:29:31	1.8
+++ /project/cells/cvsroot/cells/gui-geometry/geometer.lisp	2006/10/11 22:16:22	1.9
@@ -224,6 +224,8 @@
 
 ;----------------------------------
 
+(export! geo-kid-wrap)
+
 (defun geo-kid-wrap (self bound)
   (funcall (ecase bound ((pl pb) '-)((pr pt) '+))
     (funcall (ecase bound