path: root/cbutton.lisp

(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))))