# 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