- winfo children window
To get a list of all windows in a widget heirarchy, you can use a proc like this:
proc wlist {{W .}} {
set list [list $W]
foreach w [winfo children $W] {
set list [concat $list [wlist $w]]
}
return $list
}proc wlist {{W .}} {
set list [list $W]
foreach w [winfo children $W] {
set list [concat $list [wlist $w]]
}
return $list
}