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