Posted to tcl by apn at Thu Sep 02 17:05:00 GMT 2010view raw
- proc pwins {} {
- set wins [find_windows -toplevel true]
- set found {}
- foreach w $wins {
- set styles [get_window_style $w]
- if {[lsearch -exact $styles popup] >= 0} continue
- if {[lsearch -exact $styles toolwindow] >= 0} continue
- if {[lsearch -exact $styles visible] < 0} continue
- lappend found $w
- }
- foreach w $found {
- puts $w:[get_window_text $w]
- }
- }