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