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

proc log {widget line} {
   set lines [.t count -lines 1.0 end]
   puts $lines
   if {$lines > 10} {
      # delete first line
      .t delete 1.0 2.0
   }	 
      # add next line
      .t insert end \n$line
}
text .t
pack .t

proc every {ms body} {eval $body; after $ms [info level 0]}

every 500 {incr ::num ; log .t "line $::num"}