[mcclim-devel] is there a tree-panel available?

[Fred Gilham]

Alexander Ekart wrote:

> ;; added: 3.8.3009
> ;; reason: not available by default?
> (defun draw-triangle* (stream x1 y1 x2 y2 x3 y3 &key filled)
>   (declare (ignore filled))
>   (draw-line stream x1 y1 x2 y2)
>   (draw-line stream x2 y2 x3 y3)
>   (draw-line stream x3 y3 x1 y1))
>   
> 

Hi,

Apart from mailer/wrapping issues, the above should probably be

(defun draw-triangle* (stream x1 y1 x2 y2 x3 y3 &key filled)
   (clim:draw-polygon* stream (list x1 y1 x2 y2 x3 y3) :filled filled))

Your code gives me an error when I run it in Franz CLIM (which is what I 
have handy right now).

-- 
Fred Gilham                              gilham at ai.sri.com
                   Ornamental Plums
             How soon their petals depart
                 How soon they return