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

[BKNR Commits]

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

contract-tree nodes are no more transparent if there are on the last layer
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-18 16:08:27 UTC (rev 3507)
+++ trunk/projects/bos/web/contract-tree.lisp	2008-07-18 16:11:06 UTC (rev 3508)
@@ -241,7 +241,9 @@
   (labels ((find-contract-color (contract)
              (destructuring-bind (r g b)
                  (contract-color contract)
-               (cl-gd:find-color r g b :alpha 40))))
+               (cl-gd:find-color r g b :alpha (if (node-has-children-p node)
+						  40
+						  0)))))
     (let ((box (geo-box node))
           (image-size *contract-tree-images-size*))
       ;; (warn "will update image for ~a" node)