TCL：如何列出目录中的所有文件并为每个项创建一个单选按钮

Question

我正在编写一段代码来列出目录中的所有项目，然后为每个项目创建一个单选按钮。 我无法通过以下代码实现此目的：

proc check_lib_name {} {
    global ENTRYfilename5 ENTRYfilename
    cd $ENTRYfilename/$ENTRYfilename5
    set dirnames [glob -type d *]
    foreach f $dirnames {
        radiobutton .top.d.$dirnames -text $dirnames -variable list_libs
        grid .top.d.$dirnames -sticky nsew
        puts $ENTRYfilename5
    }
}

只创建了1个radiobutton，并附加了所有名称。 另外，我对如何为每个单选按钮提供不同的列和行值感到困惑。

Answer 1

这段代码对我来说很好。因此，将其添加到其他人的未来参考中。

proc check_lib_name {} {
    global ENTRYfilename5 ENTRYfilename f
    ##cd $ENTRYfilename/$ENTRYfilename5
    cd $ENTRYfilename
    set dirnames [glob -type d *]
    ##puts $dirnames
    set b 7
    foreach f $dirnames {
        set r 2
        puts $f
        radiobutton .top.d.$f -text $f -command $f.list -value $f.abc
        grid .top.d.$f -row $b -column $r -sticky nsew
    }
}