Posted to tcl by mjanssen at Tue Dec 06 13:29:52 GMT 2011view raw

  1. proc log {widget line} {
  2. set lines [.t count -lines 1.0 end]
  3. puts $lines
  4. if {$lines > 10} {
  5. # delete first line
  6. .t delete 1.0 2.0
  7. }
  8. # add next line
  9. .t insert end \n$line
  10. }
  11. text .t
  12. pack .t
  13.  
  14. proc every {ms body} {eval $body; after $ms [info level 0]}
  15.  
  16. every 500 {incr ::num ; log .t "line $::num"}