Revision: 3616 Author: ksprotte URL: http://bknr.net/trac/changeset/3616

lets again have only 9 contract-tree layers U trunk/projects/bos/web/contract-tree.lisp

Modified: trunk/projects/bos/web/contract-tree.lisp =================================================================== --- trunk/projects/bos/web/contract-tree.lisp 2008-07-24 11:42:29 UTC (rev 3615) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-24 12:46:58 UTC (rev 3616) @@ -39,7 +39,7 @@ (defparameter *contract-tree-images-size* 128) ; was 256

(defmethod leaf-node-p ((node contract-node)) - (= 10 (depth node))) + (= 9 (depth node)))

(defun contract-geo-box (contract) (destructuring-bind (x y width height)