Tk Source Code: Artifact [9468004e]

Artifact 9468004e7e7df7e0e6dd8c0848fde8d2cf228c33:

Attachment "tl-test.tcl" to ticket [2f78c7c5] added by aspect 2015-12-17 05:10:06. (unpublished)

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