[mcclim-cvs] CVS mcclim

[ahefner]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv20997

Modified Files:
	graph-formatting.lisp 
Log Message:
Don't replay the rendered graph on the stream if drawing is disabled, or
if we are drawing into a record which does not have the stream output
history as an ancestor.


--- /project/mcclim/cvsroot/mcclim/graph-formatting.lisp	2006/09/17 20:27:09	1.19
+++ /project/mcclim/cvsroot/mcclim/graph-formatting.lisp	2007/03/04 22:26:22	1.20
@@ -3,7 +3,7 @@
 ;;;     Title: Graph Formatting
 ;;;   Created: 2002-08-13
 ;;;   License: LGPL (See file COPYING for details).
-;;;       $Id: graph-formatting.lisp,v 1.19 2006/09/17 20:27:09 thenriksen Exp $
+;;;       $Id: graph-formatting.lisp,v 1.20 2007/03/04 22:26:22 ahefner Exp $
 ;;; ---------------------------------------------------------------------------
 
 ;;;  (c) copyright 2002 by Gilbert Baumann
@@ -175,8 +175,11 @@
 		    ))))
       (setf (output-record-position graph-output-record)
             (values cursor-old-x cursor-old-y))
-      (with-output-recording-options (stream :draw t :record nil)
-        (replay graph-output-record stream))               
+      (when (and (stream-drawing-p stream)
+                 (output-record-ancestor-p (stream-output-history stream)
+                                           graph-output-record))
+	(with-output-recording-options (stream :draw t :record nil)
+	  (replay graph-output-record stream)))
       (when move-cursor
         (setf (stream-cursor-position stream)
               (values (bounding-rectangle-max-x graph-output-record)