!7

sclass NounNotANoun > DynModule {
  InputChooser inputChooser = new(this);
  transient SingleComponentPanel form;
  
  visualize {
    ret northAndCenter(wrap(inputChooser), jscroll_trackWidth(form = singleComponentPanel()));
  }
  
  void update {
    if (!inputChooser.update()) ret;
    L<S> words = words(inputChooser.input());
    form.setComponent(makeForm(pairsToParams(map(words,
      func(S word) -> Pair {
        pair(word, jradiobuttons("Noun", "Not a noun"))
      }))));
  }
}