blob: d94052b685081e043e1edb43e984461ce03d0dc7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(ql:quickload "ltk")
(defpackage :cbutton
(:use :common-lisp :ltk)
(:export #:main))
(in-package :cbutton)
(defun main ()
(setf *debug-tk* nil)
(with-ltk ()
(wm-title *tk* "Test1")
(let ((b (make-instance 'button
:master nil
:text "Push here"
:command (lambda ()
(format *standard-output* "Pushbutton activated; normal termination.~%")
(setf *exit-mainloop* t)))))
(pack b))))
|