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