<> <> <> <> <<>> DIRECTORY Xl USING [Window], XTk USING [Widget, WidgetSpec]; XTkPseudoRoot: CEDAR DEFINITIONS ~ BEGIN <<>> <> <<>> <> CreatePseudoRoot: PROC [widgetSpec: XTk.WidgetSpec ¬ []] RETURNS [XTk.Widget]; <> <<>> PseudoChild: PROC [pseudoRoot: XTk.Widget] RETURNS [pseudoChild: Xl.Window]; <> newPseudoChild: READONLY ATOM; <> pseudoChildDestroyed: READONLY ATOM; <> END.