!7

cmodule SalvageCurlyPhrases > DynBigInputAndList {
  visual withRightAlignedButtons(super, "Save phrases", rThread savePhrases);
  
  JComponent wrapListComponent(JComponent component) {
    ret jSection("Phrases found", component);
  }
  
  void makeList_impl {
    setList(map curlyOpt(uniquifyCI(allCurlyBracketPhrases(text))));
  }
  
  void savePhrases enter {
    addToMechCISet("General phrases (long list)", map uncurly(list()));
  }
}