TixScrolledWindow
Cheap spreadsheet example:
tixScrolledWindow .swin -scrollbar auto
set w [.swin subwidget window]
for {set x 0} {$x < 10} {incr x} {
pack [frame $w.f$x] -side left -fill y -expand yes
for {set y 0} {$y < 10} {incr y} {
pack [entry $w.f$x.e$y] -fill x -expand yes
}
}