LTK ウィンドウの最大ウィンドウ サイズを設定するにはどうすればよいですか?
(ql:quickload "ltk")
(defpackage :pub-quiz
(:use :ltk :cl))
(in-package :pub-quiz)
(defun pub-quiz-window ()
(with-ltk ()
(let* ((f (make-instance 'frame :relief :groove :height 500 :width 300))
(pub (make-instance 'label :master f :text "Pub Quiz"))
(outtext (make-instance 'text :font "monospaced" :wrap :word))
(tf (make-instance 'text :font "monospaced")))
(pack f)
(pack pub :side :left)
(pack outtext :ipady 100)
(pack tf))))
上記のコード サンプルのようにフレーム サイズを高さと幅に設定すると、ウィンドウ wm はこれらの値をまったく尊重しません。
Tkドキュメントにはこれがあります
wm maxsize .window 500 500
しかし、これをLTKが理解できるものに変換する方法がわかりません。