<> <> <> <> <<>> <> <<>> DIRECTORY Rope USING [ROPE], XTk USING [Widget, WidgetSpec]; XTkCredentialsWidget: CEDAR DEFINITIONS ~ BEGIN <<>> Create: PROC [widgetSpec: XTk.WidgetSpec ¬ []] RETURNS [XTk.Widget]; <> <> Contents: PROC [w: XTk.Widget] RETURNS [Rope.ROPE]; <> Clear: PROC [w: XTk.Widget]; <> END.