source ../../oo.tcl @import core.* @import gui.* wm geometry . "300x200" set table [TableBox new] $table columns: {1 2 3 4 5 6 7} for {set row 0} {$row < 1000} {incr row} { set line {} foreach column [$table columns] { lappend line "$row,$column" } $table add: $line } $table rowOfSelection: 3 $table onSelection: {puts stderr "selection row is now $rowOfSelection"} $table show