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)