!7

srecord Entry(S text, S annotation) {}

cmodule QuickAnnotator > DynObjectTable<Entry> {
  start { addCountToName(); }
  
  // API
  
  void fillData(Collection<PairS> l) {
    setList(map(l, p -> nu Entry(text := p.a, annotation := p.b)));
  }
  
  void fillData(SS map) {
    fillData(mapToPairs(map));
  }
  
  void setItems(Collection<S> l) {
    fillData(map(l, s -> pair(s, "")));
  }
}