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

contract-tree small change 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 10:53:38 UTC (rev 3499) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-18 11:03:33 UTC (rev 3500) @@ -247,6 +247,7 @@ (cl-gd:find-color r g b :alpha 40)))) (let ((box (geo-box node)) (image-size *contract-tree-images-size*)) + ;; (warn "will update image for ~a" node) (cl-gd:with-image (cl-gd:*default-image* image-size image-size t) (setf (cl-gd:save-alpha-p) t (cl-gd:alpha-blending-p) nil)