-- File: ModuleName.mesa -- last edited by Levin: 10-Mar-81 14:57:36 DIRECTORY ControlDefs USING [ControlLink, GlobalFrameHandle]; ModuleName: DEFINITIONS = BEGIN OPEN ControlDefs; ControlLinkToModuleName: PROCEDURE [link: ControlLink, s: STRING]; -- This procedure accepts an arbitrary control link and produces a string that -- identifies (to a human) the module name to which the link refers. If the -- module has multiple copies, a unique identifier (the gfi) is appended to -- the name string. GlobalFrameToModuleName: PROCEDURE [f: GlobalFrameHandle, s: STRING]; -- Identical to ControlLinkToModuleName, but accepts a global frame rather than -- a control link. END.