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

[BKNR Commits]

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)