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

added CONTRACT-TREE-NEEDS-UPDATE-P

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-22 09:48:51 UTC (rev 3548) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-22 10:42:59 UTC (rev 3549) @@ -298,6 +298,13 @@ (defun contract-tree-force-update-images () (map-nodes #'contract-node-update-image *contract-tree*))

+(defun contract-tree-needs-update-p () + (map-nodes (lambda (node) (when (contract-node-update-image-needed-p node) + (return-from contract-tree-needs-update-p t))) + *contract-tree* + :order :breadth-first) + nil) + ;;; image handler (defclass contract-tree-image-handler (page-handler) ())