<> <> <> <> DIRECTORY CD USING [Technology], PopUpMenus USING [Menu], Rope USING [ROPE]; CDPopUpMenus: CEDAR DEFINITIONS = BEGIN <<>> <> <> <> <> <> <> <<>> <> <> UnknownMenu: SIGNAL; <<--can be resumed>> GetMenu: PROC [key: REF, check: BOOL_FALSE] RETURNS [menu: PopUpMenus.Menu]; <<--Returns a ChipNDale global menu for some atoms>> <<--if menu is not known, returns the "garbage" menu, >> <<-- but raises UnknownMenu first if check=TRUE>> MakeMenu: PRIVATE PROC [key: ATOM, header, doc: Rope.ROPE, tech: CD.Technology_NIL] RETURNS [menu: PopUpMenus.Menu]; <<--defines a menu and registers it as CDSequencer command>> <<--key is used for both: the name of the menu, and the name of the command>> <<--tech: (NIL for all technologies); used for command registration but not for GetMenu>> END.