--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 _FALSE]
_&r_"Sample Table"
runAndCall TSetter
run TablePrototypeImpl TSTableImpl
-- _TSExtras.FormatTiogaViewer[&v,&r,&b]
run TableToolImpl
_ViewerOps.CreateViewer[flavor: $TableTool, info: [name: "TableTool", scrollable: FALSE]]