Problem with format-graph-from-root within present

• To: clim@BBN.COM
• Subject: Problem with format-graph-from-root within present
• From: Anton Beschta <toni@l4.zfe.siemens.de>
• Date: Fri, 15 May 1992 12:11+0200
• Fcc: S2:/home/arms2/beschta/mail/fcc.babyl
• Reply-To: beschta@informatik.tu-muenchen.de

Dear CLIMers,

I'm having a problem using format-graph-from-root within a 
presentation method. Consider the following example:

(clim:define-presentation-type mr ())

(clim:define-presentation-method clim:present
				 (mr (type mr) stream view &key)
  (clim:format-graph-from-root
    mr
    #'(lambda (object stream) (print (car object) stream))
    #'second
    :stream stream)))

(clim:present '(a ((b) (c) (d))) 'mr)

Evaluating the above in a Lisp Listener (Genera 8.1, CLIM 27.0,
no ECOs) results in the node names being placed properly
but the connecting lines always being drawn at the *top* of
the listener's history.

Evaluating

(clim:format-graph-from-root
  '(a ((b) (c) (d)))
  #'(lambda (object stream) (print (car object) stream))
  #'second
  :stream stream)

results in the expected output.

Any hints/workarounds appreciated,
 
 Toni Beschta

• Problem with format-graph-from-root within present
• From: Scott McKay <SWM@stony-brook.scrc.symbolics.com>

• Prev: RE: tracking-pointer :transformp has no effect
• Next: Problem with format-graph-from-root within present
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)