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.
DIRECTORY
XTk USING [Class, Widget, WidgetSpec];
XTkBasics: CEDAR DEFINITIONS ~
BEGIN
bareClass:
READONLY XTk.Class;
CreateBare:
PROC [widgetSpec: XTk.WidgetSpec ¬ []]
RETURNS [XTk.Widget];
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...
spaceClass:
READONLY XTk.Class;
CreateSpace:
PROC [widgetSpec: XTk.WidgetSpec ¬ []]
RETURNS [XTk.Widget];
Creates a widget with no other semantics as just using up space
HSpace: PROC [width: INT ← 1] RETURNS [XTk.Widget];
VSpace:
PROC [height:
INT ← 1]
RETURNS [XTk.Widget];
Short cuts for CreateSpace
rulerClass:
READONLY XTk.Class;
CreateRuler:
PROC [widgetSpec: XTk.WidgetSpec ¬ []]
RETURNS [XTk.Widget];
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.
HRule: PROC [height: INT ← 1] RETURNS [XTk.Widget];
VRule:
PROC [width:
INT ← 1]
RETURNS [XTk.Widget];
Short cuts for CreateRuler
END.