Copyright (C) 1994, Digital Equipment Corp.
File: XtE.m3
UNSAFE MODULE XtE;
==============================================================
The X11 R4 Interface for Modula 3
Representation Types corresponding to:
X11 R4 Intrinsic
X11 R4 Athena Widget Set
==============================================================
FROM M3toC IMPORT TtoS;
PROCEDURE ForceToLoadAnImplementation () =
BEGIN
END ForceToLoadAnImplementation;
BEGIN
Ellipse := TtoS("Ellipse");
Oval := TtoS("Oval");
Rectangle := TtoS("Rectangle");
RoundedRectangle := TtoS("RoundedRectangle");
always := TtoS("always");
center := TtoS("center");
default := TtoS("default");
file := TtoS("file");
left := TtoS("left");
notUseful := TtoS("notUseful");
right := TtoS("right");
string := TtoS("string");
textScrollNever := TtoS("never");
textScrollWhenNeeded := TtoS("whenneeded");
textScrollAlways := TtoS("always");
textWrapNever := TtoS("never");
textWrapLine := TtoS("line");
textWrapWord := TtoS("word");
textResizeNever := TtoS("never");
textResizeWidth := TtoS("width");
textResizeHeight := TtoS("height");
textResizeBoth := TtoS("both");
whenMapped := TtoS("whenMapped");
END XtE.