TableBox sample





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