17 lines
322 B
Common Lisp
17 lines
322 B
Common Lisp
(defpackage :hello-world
|
|
(:use :common-lisp 'ltk)
|
|
(:export #:main))
|
|
|
|
(in-package :hello-world)
|
|
|
|
(defun main ()
|
|
(setf *debug-tk* nil)
|
|
(with-ltk ()
|
|
(let ((b (make-instance
|
|
`button
|
|
:text "Hello World!"
|
|
:command (lambda ()
|
|
(do-msg "Bye!")
|
|
(setf *exit-mainloop* t)))))
|
|
(pack b))))
|