!7

concept Scenario {
  S name;
  LS conditions;
  LS actions;

  toString { ret "Scenario " + quote(name); }
}

cmodule Scenarios > DynCRUD<Scenario> {
  NameBasedVoiceCRUD scenariosCRUD = new(Scenario, "scenario");
  
  !include #1027563 // Undo Manager
  
  S answer(S s) {
    ret dm_q(() -> {
      print("answering: " + s);
      try answer undoActions(s);
      ret scenariosCRUD.answer(s);
    });
  }

  afterVisualize {
    addComponent(crud.buttons, jbutton("Talk to me", rThread talkToMe));
  }

  void talkToMe enter { dm_showConversationPopupForModule(); }
}

Began life as a copy of #1027443