!7

sS concepts = [[

  xdzeaxtmkazaxncy - Set object to string X

  ocipgkzuhonmxyxp - Run standard function X on object

  rkaqgiahlhpqcsfb - Cool!

]];

sO object;

sS text;

static JTextArea taObject;

static JTextField tfCmd;

p-awt {

  blueSteel();

  useConcepts(concepts);

  object = 5;

  text = struct(object);

  taObject = wrappedTextArea(text);

  setFontSize(taObject, 15);

  tfCmd = jtextfield("ocipgkzuhonmxyxp plus1");

  showFrame(

    centerAndSouth(jSection("Object", taObject),

    jSection("Command", textFieldWithButton("Go", tfCmd))));

  onEnter(tfCmd, f go);

  requestFocus(tfCmd);

  hideConsole();

}

svoid go {

  tfCmd.selectAll();

  final Lisp cmd = englishToLisp(getTextTrim(tfCmd));

  thread { pcall-messagebox { loading {

    if (cmd.is("ocipgkzuhonmxyxp", 1)) // Run standard function X on object

      setObject(makeAndCall_cached(cmd.raw(0), object);

    if (cmd.is("xdzeaxtmkazaxncy", 1)) // Set object to string X

      setObject(cmd.raw(0));

    if (cmd.is("rkaqgiahlhpqcsfb"))

      infoBox("Thanks!");

  }}}

}

svoid setObject(fO o) swing {

  object = o;

  try {

    text = struct(o);

  } catch e {

    text = getStackTrace(e);

  }

  taObject.setText(text);

}