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. ΰ XTkBasics.mesa Copyright Σ 1992 by Xerox Corporation. All rights reserved. Created by Christian Jacobi, March 25, 1992 8:59 am PST Christian Jacobi, April 7, 1992 11:43 am PDT Implements a few trivial widget classes. Creates a widget with no other semantics as just being an X window Usefull to have a bare X window for applications wanting to paint directly. Could even be used to pass to an other application... Creates a widget with no other semantics as just using up space Short cuts for CreateSpace Creates a black rectangle widget. A quite heavy weight method of painting rectangles. Define the geometry field! a defaulted value means all the way if the parent supports that. Short cuts for CreateRuler Κ§•NewlineDelimiter ™codešœ™Kšœ Οeœ1™