Tcl Tk Tablelist，如何在Tablelist单元格中生成红色边框

如何在“确定”按钮周围创建红色边框。我想把它扩展到整个细胞。像这样的

---

按钮不是必需的。需要红色边框来突出显示单元格中的错误

最简单的方法是将按钮（或任何包含的小部件）放入粘贴到单元格壁上的

框架

小部件中。然后，通过将框架配置为具有

-highlightthickness 1-highlightbackground red-highlightcolor red

，使其显示红色边框，这将在框架上放置一个1像素宽的纯红边框（框架默认有一个不可见的焦点高光环，但我们在这里重新调整了它的用途；您不能使用

-relief-solid

标准边框，因为这些边框使用固定颜色）。您可能还需要调整包含的小部件上的填充

---

我认为您可以通过指定

-stretchwindow 1

作为

cellconfigure

选项，使一个小部件在其tablelist单元格内展开，但我还没有尝试过这一点（这一点在细节上有点不具体；您可能需要询问tablelist的作者，如果您在让它工作时遇到问题）

谢谢回复，但我使用的是tablelist版本4.8，它没有-stretchwindow单元格配置选项。是否有其他方法可以在单元格中扩展窗口？我想在createWindow proc$w框架中已经打包，如何手动打包？

package require Tk
package require Tablelist


tablelist::addOakleyCombobox 
    ::tablelist::tablelist .tbl \
            -columns "0 A center 0 B center 0 C center" \
            -stretch all \
            -showseparators 1 

pack .tbl -side top -fill both -expand yes

.tbl insert end ""

proc createWindow {tbl row col w} {
    button $w -text OK
}

.tbl cellconfigure 0,1 -window createWindow