- 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 }