!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);
      new Matches m;

      // undo actions
      
      if "undo" ret singleUndo();
      if "anything to undo"
        ret empty(undoList) ? "Nothing to undo" : n2(undoList, "undoable action");
      if "clear undos" ret "OK" with clearUndos();

      ret scenariosCRUD.answer(s);
    });
  }

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

  void talkToMe enter { dm_showConversationPopupForModule(); }
}