Posted to tcl by apn at Thu Sep 02 17:05:00 GMT 2010view pretty
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] } }