OUTPUT BUFFER:
#!/home/moumou/TclTk-8.5/bin/wish8.5 set Nc 500 set Nl 500 set toto [string repeat "[string repeat X $Nc]\n" $Nl] pack [text .t] .t insert end $toto for {set l 0 ; set il 1} {$l < $Nl} {incr l; incr il} { for {set c 0} {$c < $Nc} {incr c 3} { lappend LT "$il.$c" } } .t tag configure Tex -foreground white -background green update idletasks puts "N tags [llength $LT]" puts "[time {eval [list .t tag add Tex] $LT}]" .t tag remove Tex 1.0 end update idletasks puts "[time {.t tag add Tex {*}$LT}]" exit