Re: Is there a way to manually "tweak" inferior presentations

• To: Curt Eggemeyer <curt@eraserhead.jpl.nasa.gov>
• Subject: Re: Is there a way to manually "tweak" inferior presentations
• From: Chris Richardson <cer@franz.com>
• Date: Tue, 13 Oct 92 13:40:29 -0700
• Cc: clim@BBN.COM
• In-Reply-To: Your message of Tue, 13 Oct 92 08:37:45 PDT. <9210131537.AA01982@eraserhead.Jpl.Nasa.Gov>

Perhaps you need code similar to this:

  (defun replace-graph-node (graph-node stream continuation &optional left top)
    (unless (and left top) 
      ;; If the caller has not passed in the coordinates then compute them
      (multiple-value-setq (left top) 
	(convert-from-relative-to-absolute-coordinates stream graph-node)))
    (erase-output-record (car (clim::output-record-elements graph-node)) stream)
    (let ((record (with-output-to-output-record (stream)
		    (funcall continuation stream))))
      (output-record-set-position* record 0 0)
      (add-output-record-element graph-node record)
      (replay-1 record  stream +everywhere+ left top)))

In the example graph-node has a single child.  This is removed from the
output history by erase-output-record Then with-output-to-output-record is
used to create a new output record that is then added to the history The
output record is then replayed to make it visible.

In this code, CONTINUATION is some function that draws to the stream
argument.

-chris


0,,

• Is there a way to manually "tweak" inferior presentations
• From: Curt Eggemeyer <curt@eraserhead.jpl.nasa.gov>

• Prev: Re: Is there a way to manually "tweak" inferior presentations (correct arg type)
• Next: About the clim library (aperiodic posting)
• Index: CLIM Mailing list (1-Sep-92 to 31-Dec-92)
• Thread: CLIM Mailing list Index (1-Sep-92 to 31-Dec-92)