X11R4/src/Common/XtE.m3


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.