!7

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

cmodule Scenarios > DynCRUD<Scenario> {
  transient Scenario selected;
  
  S answer(S s) null {
    print("answering: " + s);
    new Matches m;
    if "how many scenarios"
      ret str(countConcepts(Scenario));
    if "delete scenario *" {
      S name = $1;
      setField(selected := null);
      if (nempty(deleteConceptsWhereCI Scenario(+name)))
        ret format("Scenario * deleted", name);
      else
        ret format("Scenario * not found", name);
    }
    if "new scenario *" {
      S name = $1;
      Scenario sc = conceptWhereCI Scenario(+name);
      if (sc != null)
        ret format("Scenario * exists", name);
      setField(selected := uniqCI Scenario(+name));
      ret format("Scenario * created", name);
    }
    if "list scenarios"
      ret or2(joinWithComma(collect name(list(Scenario))), "No scenarios defined");
    if "rename scenario * to *" {
      S name1 = $1, name2 = $2;
      if (!eqic(name1, name2)
        && conceptWhereCI Scenario(name := name2) != null)
        ret format("A scenario named * exists", name2);
      Scenario sc = conceptWhereCI Scenario(name := name1);
      if (sc == null)
        ret format("Scenario * not found", name1);
      cset(sc, name := name2);
      ret format("Scenario * renamed to *", name1, name2);
    }
  }

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

  void talkToMe enter { dm_showConversationPopupForModule(); }
}