Ltk:新規にウィンドウを表示する - lisp-cookbook-ja/common-lisp GitHub Wiki

• 新規ウィンドウ作成

;;;; 新しいウィンドウを作成する
(ql:quickload :ltk)

(in-package :ltk)

(with-ltk ()
  (wm-title *tk* "新しいウィンドウを作る")
  (minsize *tk* 300 300)                ; 300px X 300px

  (let* ((b (make-instance 'button 
                          :master nil
                          :text "Press Me"
                          :command (lambda () (format t "Hello World!~%")))))
    (pack b)))