Texaner  <texaner82@web.de> wrote:
+---------------
| (defun hello-1 ()
|   (with-ltk ()
|     (let ((b (make-instance 'button :master nil :text "Press Me"
| 			      :command (lambda ()
| 				         (format t "Hello World!~&")))))
|       (pack b))))
| 
| Starting hello-1 then resulted in:
| There is no class named BUTTON.
|    [Condition of type SIMPLE-ERROR]
+---------------

Did you remember to (USE-PACKAGE :LTK)?

Or alternatively, try running the following instead,
which should also work for you:

    (defun hello-1 ()
      (ltk:with-ltk ()
	(let ((b (make-instance 'ltk:button :master nil :text "Press Me"
				:command (lambda ()
					   (format t "Hello World!~&")))))
	  (ltk:pack b))))


-Rob

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