Ltk:複数行テキストを表示する - lisp-cookbook-ja/common-lisp GitHub Wiki

• 複数行テキスト

;;; LTKで複数行テキスト表示

(ql:quickload :ltk)


;; パッケージの作成
(defpackage :ex4-17
  (:use :common-lisp
        :ltk)
  (:export :main))

(in-package :ex4-17)

(defun main ()
  (with-ltk ()
    (wm-title *tk* "複数行テキスト表示(message)")
    (minsize *tk* 600 500)

    (let* ((msg (make-instance
                 'message
                 :text "ああああああああああああああああああああああ日本語日本語日本語日本語感じaaaaaaaaaaaabbbbbbbbbcdefgいいいいいいいいいいいいいいいいいいいいいいいううううううううううううううううううええええええええええええええええええええおおおおおおおおおおおおおおおおおおおおっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっ"
                 :width 1000
                 :background "#FFFFFF"))


           (b1 (make-instance
                'button
                :text "Close"
                :command (lambda ()
                           (format t "終了")
                           (setf *exit-mainloop* t)))))

      (pack msg
            :side :top
            :fill :x) ; fillを指定すると、Wiindowのハシをドラッグして伸ばしてもボタンが大きくなる。
      (pack b1
            :side :bottom
            :fill :x) ; fillを指定すると、Wiindowのハシをドラッグして伸ばしてもボタンが大きくなる。

      (configure msg
                 :anchor :w
                 )

      )))

(main)