<> <> <> <<>> DIRECTORY Rope USING [ROPE] ; TajoMenus: CEDAR DEFINITIONS = BEGIN ROPE: TYPE ~ Rope.ROPE; TajoEntry: TYPE ~ RECORD [ rope: ROPE, action: REF _ NIL ]; TajoMenu: TYPE ~ RECORD [ title: ROPE, options: LIST OF TajoEntry ]; TajoSystem: TYPE ~ REF TajoSystemRec; TajoSystemRec: TYPE; --Opaque DuplicateName: ERROR; CreateTajoSystem: PROC [menus: LIST OF TajoMenu] RETURNS [ts: TajoSystem]; < A title used twice>> <> <<>> Select: PROC [ts: TajoSystem, title: ROPE _ NIL] RETURNS [action: REF]; <> <> <> <<>> <<>> END.