more on mouse to command presentation

[drstrip@cs.sandia.gov (David R Strip [1411])]

I guess I wasn't specific enough.
I would like to present a pretty something to stand in for a
form to be evaluated in the listener.

While (present 'form 'sys:form) works, you get the form itself
as the mouseable object.

What I would like is something like
(dw:with-output-as-presentation (:object 'form :type 'sys:form)
    (print "Pretty Name of Form"))

and have the mouse action on Pretty ... cause the form to eval.

This does not seem to work.
Strip