Posted to tcl by mjanssen at Mon Feb 02 17:35:12 GMT 2009view raw

  1. package require Tk
  2. pack [text .t]
  3. set f [open "|ls" r]
  4. fconfigure $f -buffering line
  5. fileevent $f readable [list getLine $f]
  6.  
  7. proc getLine sock {
  8. gets $sock line
  9. if {[eof $sock]} {
  10. close $sock
  11. } else {
  12. .t insert end $line\n
  13. }
  14. }