17 lines
321 B
Common Lisp
17 lines
321 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))))
|