tcl - Tk Tablelist、テーブルリストのセルに赤い枠線を付ける方法

Question

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

OKボタンの周りに赤い枠を付ける方法。セル全体に展開したい。このようなもの

ボタンは不要です。セル内のエラーを強調表示するには、赤い境界線が必要です。