Posted to tcl by apn at Thu Sep 02 17:05:00 GMT 2010view raw

  1. proc pwins {} {
  2. set wins [find_windows -toplevel true]
  3. set found {}
  4. foreach w $wins {
  5. set styles [get_window_style $w]
  6. if {[lsearch -exact $styles popup] >= 0} continue
  7. if {[lsearch -exact $styles toolwindow] >= 0} continue
  8. if {[lsearch -exact $styles visible] < 0} continue
  9. lappend found $w
  10. }
  11. foreach w $found {
  12. puts $w:[get_window_text $w]
  13. }
  14. }
  15.