Drawing xpm-icons to an accepting-values-steram

[Christophe Rhodes]

Report from Max-Gerd Retzlaff

 affects mcclim
 status confirmed
 importance low
 tag accepting-values pattern
 done

Hello,

This:

(defun test (&key (stream *query-io*))
  (accepting-values (stream)
    (clim-listener::draw-icon stream (clim-listener::icon-of #p"/non-existing"))))

does not work. It only draws a black box in the size of the icon. Any ideas?

Regards,
Max