Tcl/TK Stopwatch Time tracker
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

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
}