Re: more on mouse to command presentation

[ssmith@ruffles.nrtc.northrop.com (Stephen P. Smith)]

(dw:with-output-as-presentation (:object '(car '(a b c))
				:type 'sys:form)
	(present "hi guy" 'string))

works for me in a Lisp Listener.  If you want the form evaled
*before* you give it back to the listener, then one way to do it
is to define a presentation translator mapping sys:forms into 
sys:forms, a la:

(define-presentation-translator evalit (sys:form sys:form)
	(form)
  (eval form))


  --Steve