[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp

[BKNR Commits]

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)