<> <> <> <> <<>> <> <<>> DIRECTORY SharedCell USING [Cell], XTk USING [Widget, WidgetNotifyProc]; XTkSharedCell: CEDAR DEFINITIONS ~ BEGIN <<>> <> <<>> <> <> <<>> Cell: TYPE = SharedCell.Cell; Widget: TYPE = XTk.Widget; Bind: PROC [cell: Cell, widget: Widget, notifyProc: XTk.WidgetNotifyProc, registerData: REF, initialCall: BOOL ¬ FALSE]; <> <> <> <<>> BindText: PROC [cell: Cell, textWidget: Widget]; <> END.