--TableTest.cm
-- Last Edited by: Beach, November 7, 1983 3:29 pm
open TSTableImpl
open TablePrototypeImpl
open LargeTable.table
open SampleSpanBug.table
open TwoByTwo.table
open Sample.table
←&v←&
←&b←NEW[BOOLEAN �LSE]
←&r←"Sample Table"
runAndCall TSetter
run TablePrototypeImpl TSTableImpl
-- ←TSExtras.FormatTiogaViewer[&v,&r,&b]
run TableToolImpl
←ViewerOps.CreateViewer[flavor: $TableTool, info: [name: "TableTool", scrollable: FALSE]]