set ::argv0 tclsh
lappend auto_path ../fvv-linux-x86_64.vfs/lib
package require tablelist
namespace import tablelist::tablelist

tablelist .t -columns {0 text}
pack .t

set N 7

for {set i 1} {$i < $::N} {incr i} {
    .t insert end [list "foo"]
}


.t activate 3
focus .t
update
.t insert end [list "foo"]
.t delete 0 0
