foreach tcl tk
foreach m {file edit view} {
puts $m
}
file
edit
view
set aa [list ab te se]
foreach g $aa {
puts $g
}
ab
te
se
foreach m {file edit view} {
puts $m
}
file
edit
view
set aa [list ab te se]
foreach g $aa {
puts $g
}
ab
te
se