!7

static JList lRelBots;
static RelBot bot;

PersistentLister > MyLister {
  S name;
}

p {
  subst(); ttWordWrap(); centerHigherConsole(); saveConceptsQuietly();
  lRelBots = jlist(sorted(collect(MyLister, 'name)));
  addToWindowSplitRight_aggressive(consoleFrame(),
    withTitle("Rel Bots", 
      centerAndSouth(lRelBots,
        jline(jbutton("New Bot...", f newBot)))));
  setAll(botIfMain2(), newLineAboveAnswer := true, newLineBelowAnswer := true);
}

answer { try answer callAnswerMethod(bot, s); }

svoid newBot {
  final JTextField tfName = jtextfield();
  showFormTitled("New Bot",
    'Name, tfName,
    r {
      setBot(uniq(MyLister, name := getTextTrim(tfName)))
    });
}

svoid setBot(MyLister bot) {
  main.bot = new RelBot(bot);
  setTitleStatus(bot.name);
}