!7

sclass ButtonsForParser extends DynSCP {
  start {
    dm_useLocallyCopiedMechLists();
    doEveryAndNow(5000, r actualUpdate);
  }
  
  void actualUpdate {
    temp enter();
    O parser = dm_moduleOfType("EnglishParser");
    //print("Parser: " + parser);
    if (parser == null) ret;
    Pair<S, L<ParseResult1>> p = (Pair) quickImport(
    getOpt(parser, 'lastResults));
    if (p == null) ret;
    Container stack = dynamicVStack2();
    new Set<PairS> seen;
    for (ParseResult1 r : p.b)
      for (final PairS a : r.assumptions) {
        if (!isAngleBracketed(a.a)) continue;
        if (!seen.add(a)) continue;
        //print("Got assumption: " + a);
        add(stack, centerAndEastWithMargins(jlabel("Assumption: "+ a), jbutton("Confirm", r {
          Set<S> listNames = ai_mechListNamesForAngleBracketCategory(a.a);
          print("Should add " + quote(a.b) + " to " + listNames);
        })));
      }
    setComponent(stack);
  }
}