DIRECTORYTableBase,TableLayout,TSArtwork,TSGraphic,TSOutput,TSOutputDisplay,ViewerClasses,ViewerOps;TSTableImpl: CEDAR PROGRAMIMPORTS TableBase, TableLayout, TSArtwork, ViewerOps=BEGINTableFromBranch: TSArtwork.ObjectFromBranchProc = {object _ NEW[TSGraphic.ObjectRec];object.paintProc _ TablePaintProc;object.layoutProc _ TableLayoutProc;object.data _ TableBase.BranchToTable[node];};TableLayoutProc: TSGraphic.LayoutProc = {table: TableBase.RefTable _ NARROW[self.data];extent _ TableLayout.LayoutTable[table, maxX, maxY, suggestedX, suggestedY];};TablePaintProc: TSGraphic.PaintProc = {table: TableBase.RefTable _ NARROW[self.data];handle: TSOutput.Handle _ NARROW[context];table.originX _ originX;table.originY _ originY;TableLayout.PaintTable[table, handle, originX, originY, extent];IF ISTYPE[handle.outputState, TSOutputDisplay.DisplayState] THEN {displayState: TSOutputDisplay.DisplayState _NARROW[handle.outputState, TSOutputDisplay.DisplayState];v: ViewerClasses.Viewer _ displayState.viewer;IF v # NIL THENViewerOps.AddProp[v, $TableRef, table];};};TSArtwork.Register["Table", TableFromBranch];END.   L  TSTableImpl.MesaCreated by Rick Beach, June 13, 1984 4:54:10 pm PDT Ê_  ˜ ™J™3—J˜ šÏk	˜	Jšœ
˜
Jšœ˜Jšœ
˜
Jšœ
˜
Jšœ	˜	Jšœ˜Jšœ˜Jšœ
˜
J˜ —šœ˜Jšœ-˜4Jšœ˜—Jš˜J˜ šÏnœ$˜3Jšœ	œ˜"Jšœ"˜"Jšœ$˜$Jšœ,˜,J˜J˜ —šžœ˜)Jšœœ˜.JšœL˜LJ˜J˜ —šžœ˜'Jšœœ˜.Jšœœ
˜*J˜J˜J˜@šœœ3˜BJšœ-œ3˜fJ˜.šœœ˜Jšœ'˜'—Jšœ˜—J˜J˜ —˜-J˜ —Jšœ˜J˜ J˜ — …—    †  1  