LTK Scrolled Frame 滚动条未调整大小答案

【问题标题】：LTK Scrolled Frame Scrollbars Not ResizingLTK Scrolled Frame 滚动条未调整大小
【发布时间】：2020-07-09 08:37:05
【问题描述】：

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

【问题讨论】：

标签： common-lisp tk sbcl ltk

【解决方案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))))

【讨论】：