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

[BKNR Commits]

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)
   ())