<> <> <> <> <<>> DIRECTORY CD, Rope, CDGenerate, CDGenerateBackdoor, CDDynamicObs, CDCommandOps, CDMenuSpecials, CDSequencer, CDValue, CDPanel, CDProperties, TerminalIO; CDDynamicObsCommands: CEDAR PROGRAM IMPORTS CDCommandOps, CDDynamicObs, CDGenerateBackdoor, 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.publicContexts, "dynamicize generator"]; IF Rope.IsEmpty[key] THEN TerminalIO.PutRope["not done\n"] ELSE { key _ CDDynamicObs.GetContext[key].name; TerminalIO.PutRopes["created (and now uses) [", key, "]\n"]; CDProperties.PutDesignProp[design, $GeneratorProc, key]; CDValue.Store[design, $GeneratorProc, key]; [] _ CDPanel.ToDisplay[design, $GeneratorProc]; } END; CDSequencer.ImplementCommand[$DynamicGenerators, DynamicGeneratorsComm]; CDCommandOps.RegisterWithMenu[menu: $GeneratorMenu, entry: "create dynamic generator", doc: "crazy object class", key: $DynamicGenerators, proc: DynamicGeneratorsComm]; END.