[mcclim-cvs] CVS update: mcclim/incremental-redisplay.lisp

[Timothy Moore]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv15125

Modified Files:
	incremental-redisplay.lisp 
Log Message:

In COMPUTE-DIFFERENCE-SET fix null visible-region case. Thanks to
Christophe Rhodes.


Date: Fri Feb 11 13:55:49 2005
Author: tmoore

Index: mcclim/incremental-redisplay.lisp
diff -u mcclim/incremental-redisplay.lisp:1.43 mcclim/incremental-redisplay.lisp:1.44
--- mcclim/incremental-redisplay.lisp:1.43	Fri Feb 11 12:50:22 2005
+++ mcclim/incremental-redisplay.lisp	Fri Feb 11 13:55:49 2005
@@ -453,10 +453,9 @@
 
 (defmethod print-object ((obj standard-updating-output-record) stream)
   (print-unreadable-object (obj stream :type t :identity t)
-    (when (slot-boundp obj 'x1)
-      (with-slots (x1 y1 x2 y2) obj
-	(format stream "X ~S:~S Y ~S:~S " x1 x2 y1 y2))
-      (format stream "~S" (output-record-dirty obj)))
+    (with-standard-rectangle (x1 y1 x2 y2)
+	obj
+      (format stream "X ~S:~S Y ~S:~S " x1 x2 y1 y2))
     (when (slot-boundp obj 'unique-id)
       (let ((*print-length* 10)
 	    (*print-level* 3))
@@ -726,6 +725,7 @@
       rect
     (make-bounding-rectangle min-x min-y max-x max-y)))
 
+;;; work in progress
 (defvar *existing-output-records* nil)
 
 (defmethod compute-difference-set ((record standard-updating-output-record)
@@ -746,7 +746,8 @@
 	 (old-children (if (slot-boundp record 'old-children)
 			   (old-children record)
 			   nil)))
-    (unless (or (region-intersects-region-p visible-region record)
+    (unless (or (null visible-region)
+		(region-intersects-region-p visible-region record)
 		(and old-children
 		     (region-intersects-region-p visible-region old-children)))
       (return-from compute-difference-set (values nil nil nil nil nil)))