<> <> <> <> <<>> DIRECTORY CD, Rope, CDGenerate, CDGenerateBackdoor, CDDynamicObs, CDMenus, CDMenuSpecials, CDSequencer, CDValue, CDPanel, CDProperties, TerminalIO; CDDynamicObsCommands: CEDAR PROGRAM IMPORTS CDDynamicObs, CDGenerateBackdoor, CDMenus, CDMenuSpecials, CDSequencer, CDValue, CDPanel, CDProperties, TerminalIO, Rope = BEGIN DynamicGeneratorsComm: PROC [comm: CDSequencer.Command] = BEGIN key: Rope.ROPE; design: CD.Design _ comm.design; key _ CDMenuSpecials.SelectOneOf[CDGenerateBackdoor.publicTables, "dynamicize generator"]; IF Rope.IsEmpty[key] THEN TerminalIO.WriteRope["not done\n"] ELSE { key _ CDDynamicObs.GetTable[key].name; TerminalIO.WriteRopes["created (and now uses) [", key, "]\n"]; CDProperties.PutDesignProp[design, $GeneratorProc, key]; CDValue.Store[design, $GeneratorProc, key]; CDPanel.RedisplayLabels[design]; } END; CDMenus.CreateEntry[$GeneratorMenu, "create dynamic generator", $DynamicGenerators]; CDSequencer.ImplementCommand[$DynamicGenerators, DynamicGeneratorsComm]; END.