<<>> <> <> <> <> <<>> DIRECTORY TEdit, XTk; XTkTioga: CEDAR DEFINITIONS ~ BEGIN tiogaWidgetClass: READONLY XTk.Class; <> CreateTiogaWidget: PROC [widgetSpec: XTk.WidgetSpec ¬ [], doc: TEdit.Doc ¬ NIL, scrollbar, menu: BOOL ¬ TRUE] RETURNS [tiogaWidget: XTk.Widget]; SetDocument: PROC [tiogaWidget: XTk.Widget, doc: TEdit.Doc]; END.