Copyright (C) 1994, Digital Equipment Corp.File: XtE.m3
UNSAFE MODULE============================================================== The X11 R4 Interface for Modula 3 Representation Types corresponding to: X11 R4 Intrinsic X11 R4 Athena Widget Set ==============================================================; XtE
FROM M3toC IMPORT TtoS; PROCEDUREForceToLoadAnImplementation () = 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.