!7

sS background = #1009946;
static IVar<S> text;
static JTextField tf;
static JDesktopPane desktop;
static Q q = startQ();

p-nimbus {
  text = persistentVar("Text", "Show me a window!");
  
  onEnter(tf = bindTextFieldToVar(text, jcenteredtextfield(text!)), f go);
  desktop = jTiledBackgroundDesktopPane(background);
  autoFixDesktopPane(desktop);
  addFullSizeComponent(desktop, jtransparent_recursive(jTopCenter(hstackWithSpacing(withTopMargin(60,
    hstackWithSpacing(jMinWidth(400, setFontSize(30, tf)),
      jbutton("OK", f go)/*,
      jbutton("Exit", f cleanKill)*/))))));
  cleanExitOnFrameClose(showFrame/*MaximizedFrame*/(desktop));
  focus(tf);
}

svoid go { callStaticAnswerMethod(getText(tf)); }

answer {
  fS _s = s;
  q.add(r { answer_impl(_s) });
}

svoid answer_impl(S s) {
  new Matches m;
  
  Web web = webFromTriples("User typed", "", quote(s));
  postSoftwareMadeWeb(web);
  
  if "show me a window"
    swing {
      addInternalFrame(desktop, "Here it is.", random(100, desktop.getWidth()-100-300), 400, 300, 200);
    }
    
  L<WebNode> nodes = web_allOperands(indexedNodes("Things to do on user input"));
  for (WebNode node : nodes) {
    S fname = "action_" + camelCase(web_text(node));
    if (isStandardFunction(fname)) {
      print("Can call: " + fname);
      infoBox("Calling " + fname);
      Class c = loadFunctions_cached('action_text, fname);
      call(c, 'action_text, s);
      call(c, fname);
    } else
      print("Can't call: " + web_text(node) + " / " + fname);
  }
}

Began life as a copy of #1009955