WireIcons.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Created by Bertrand Serlet, August 4, 1986 6:31:47 pm PDT
Bertrand Serlet, August 4, 1986 6:40:14 pm PDT
Allows creation by program of wire icons.
DIRECTORY CD, Core;
WireIcons:
CEDAR
DEFINITIONS ~
BEGIN
Types and constants
ROPE: TYPE = Core.ROPE;
Wire: TYPE = Core.Wire;
CellType: TYPE = Core.CellType;
Icons creation
MakeComposer: PROC [size: NAT] RETURNS [wire: Wire, obj: CD.Object];
MakeSlash: PROC [] RETURNS [obj: CD.Object];
MakeExtractor: PROC [index, size: NAT] RETURNS [wire: Wire, obj: CD.Object];
MakeRangeExtractor: PROC [index, subSize, size: NAT] RETURNS [wire: Wire, obj: CD.Object];
END.