3 lines
58 B
Tcl
3 lines
58 B
Tcl
foreach name [array names dat] {
|
|
myfunc $dat($name)
|
|
}
|
foreach name [array names dat] {
|
|
myfunc $dat($name)
|
|
}
|