!7

concept Cmd { S text, program; }

p-substance-thread {
  final SimpleCRUD crud = new SimpleCRUD(Cmd).show();
  awt {
    autoFrameTitle(crud.panel);
    final new JTextField tfBoom;
    final new JLabel lblAnswer;
    addToWindow(crud.panel, withLabel("Try it here:", tfBoom);
    addToWindow(crud.panel, lblAnswer);
    onEnter(tfBoom, r-thread {
      // almost-clean sync here
      setText(lblAnswer, or(pcallAnswerMethod(getText(tfBoom)), "?"));
    });
    requestFocus(tfBoom);
    hideConsole();
  }
}

answer {
  S answer = "";
  for (Cmd cmd) if (match(cmd.text, s)) {
    nohupJavax(cmd.program);
    answer += "Yo! ";
  }
  try answer trim(answer);
}