about summary refs log blame commit diff stats
path: root/cbutton.lisp
blob: d94052b685081e043e1edb43e984461ce03d0dc7 (plain) (tree)
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))))