[bknr-cvs] ksprotte changed trunk/projects/bos/m2/allocation.lisp

[BKNR Commits]

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

use with-transaction around setf allocation-area bounding-box

U   trunk/projects/bos/m2/allocation.lisp

Modified: trunk/projects/bos/m2/allocation.lisp
===================================================================
--- trunk/projects/bos/m2/allocation.lisp	2008-07-16 14:41:37 UTC (rev 3468)
+++ trunk/projects/bos/m2/allocation.lisp	2008-07-16 14:50:25 UTC (rev 3469)
@@ -164,11 +164,12 @@
 (defmethod allocation-area-bounding-box ((allocation-area allocation-area))
   (with-slots (left top width height bounding-box) allocation-area
     (unless (slot-boundp allocation-area 'bounding-box)
-      (setf bounding-box (coerce (list (cons left top)
-				       (cons (+ left width) top)
-				       (cons (+ left width) (+ top height))
-				       (cons left (+ top height)))
-				 'vector)))
+      (with-transaction ("setf allocation-area bounding-box")
+	(setf bounding-box (coerce (list (cons left top)
+					 (cons (+ left width) top)
+					 (cons (+ left width) (+ top height))
+					 (cons left (+ top height)))
+				   'vector))))
     bounding-box))
 
 (defmethod allocation-area-bounding-box2 ((allocation-area allocation-area))