!7

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