Peter Herth  <herth@netcologne.de> wrote:
+---------------
| (defun gr-unit ()
|   (with-ltk
|    (let* ((win (make-instance 'unit-win))
|           (c (make-instance 'canvas :width 300 :height 30))
|           (x 0)
|           (text (make-instance 'text :width 20 :height 10))
|           (r (create-rectangle c 0 0 x 33))
|           ... )
|    ... )))
+---------------

Uh... Is there a definition missing for CREATE-RECTANGLE somewhere?
I couldn't find it even in the latest snapshot of Ltk...


-Rob

-----
Rob Warnock			<rpw3@rpw3.org>
627 26th Avenue			<URL:http://rpw3.org/>
San Mateo, CA 94403		(650)572-2607