LTK 滾動幀滾動條不調整大小

Question

由於缺少文檔，有時文檔不正確，Ltk 被證明非常令人沮喪。 （您會發現按鈕樣式選項不起作用）

我正在嘗試制作一個包含 NxN 多個按鈕的簡單滾動框架。 不幸的是，滾動條似乎永遠不會“明白”。 當您在容器中放入太多東西時，它會自動提供滾動機制，這似乎是毫無道理的。 我們已經在 TUI 和 GUI 中這樣做了很長時間。

任何人都可以修復下面給出的代碼嗎？ 如果您能弄清楚如何將按鈕着色為混合顏色，則可以加分。

<code>
(defun run-demo ()
  (with-ltk ()
    (wm-title *tk* "NxN Button Tray")
    (set-geometry *tk* 480 320 0 0)
    (let* ((sw (make-instance 'scrolled-frame :master *tk*)))
      (dotimes (y 20)
        (dotimes (x 20)
          (let* ((b (make-instance 'button
                                   :master (canvas sw)
                                   :text (format nil "(~a,~a)" x y))))
               (grid b x y))))
      (pack sw))))
</code>

這是問題的屏幕截圖。 滾動條拒絕查看需要滾動的內部小部件。

非常感謝你對它的重擊......真誠的，Pixel_Outlaw

Answer 1

我相信其他人會遇到同樣的問題。 答案是使用以下（內部 w）訪問器。 我只是通過瀏覽郵件列表的檔案找到了這個。 不過，陪審團仍在討論配色方案。

(defun run-demo ()
  (with-ltk ()
    (wm-title *tk* "NxN Button Tray")
    (set-geometry *tk* 480 320 0 0)
    (let* ((sw (make-instance 'scrolled-frame :master *tk*)))
      (dotimes (y 20)
        (dotimes (x 20)
          (let* ((b (make-instance 'button
                                   :master (interior sw) ;push inside here!
                                   :text (format nil "(~a,~a)" x y))))
               (grid b x y))))
      (pack sw))))