Tcl/TK 秒表 时间跟踪器

Question

我正在为我的工作开发一个任务跟踪程序。由stopwatch修改而来。

它的基本功能是直观地跟踪每个任务所花费的时间，将其记录到文本文件中并将时钟归零。 Here 是当前程序的屏幕截图。

按钮和标签使用网格放置，如下所示：

grid .laplabel .laptime .laprecord .lapzero
grid configure .laplabel      -sticky e
grid configure .laptime       -sticky ns
grid .lap2label .lap2time .lap2record .lap2zero
grid configure .lap2label      -sticky e
grid configure .lap2time       -sticky ns
grid .lap3label .lap3time .lap3record .lap3zero

等等……

每次按下记录按钮都会调用 .laprecord 和 .lapzero，如下所示：

button .laprecord -text "record" -command {
    record L TEST$time(lap)
set time(lap) [timeformat 0]
set time(lstart) [now]
}
proc lapzr {} {
    .laprecord invoke
    .lapzero invoke
}

因此，即使现在存在 12 个条目，gui 也变得笨拙，我还有大约 15 个条目要添加。我的设想是，现在使用网格排列的所有条目将被排列到一个下拉菜单中。

任何关于如何实现这一点的建议将不胜感激。

Answer 1

尝试使用tktable。它似乎是为这种表格数据设计的，而 IIRC 它可以绑定到一个数组，因此插入更多行应该很简单。