<<>> <> <> <> <> <<>> <> <<>> DIRECTORY XTk USING [Class, Widget, WidgetSpec]; XTkBasics: CEDAR DEFINITIONS ~ BEGIN <<>> bareClass: READONLY XTk.Class; CreateBare: PROC [widgetSpec: XTk.WidgetSpec ¬ []] RETURNS [XTk.Widget]; <> <> <<>> <<>> spaceClass: READONLY XTk.Class; CreateSpace: PROC [widgetSpec: XTk.WidgetSpec ¬ []] RETURNS [XTk.Widget]; <> <<>> HSpace: PROC [width: INT _ 1] RETURNS [XTk.Widget]; VSpace: PROC [height: INT _ 1] RETURNS [XTk.Widget]; <> <<>> <<>> rulerClass: READONLY XTk.Class; CreateRuler: PROC [widgetSpec: XTk.WidgetSpec ¬ []] RETURNS [XTk.Widget]; <> <> HRule: PROC [height: INT _ 1] RETURNS [XTk.Widget]; VRule: PROC [width: INT _ 1] RETURNS [XTk.Widget]; <> END.