!7

sS concepts = [[
  xdzeaxtmkazaxncy - Set object to string X
  ocipgkzuhonmxyxp - Run standard function X on object
]];

sO object;
sS text;
static JTextArea taObject;
static JTextField tfCmd;

p-substance {
  useConcepts(concepts);
  object = 5;
  text = struct(object);
  taObject = wrappedTextArea(text);
  tfCmd = jtextfield("ocipgkzuhonmxyxp plus1");
  showFrame(
    centerAndSouth(taObject,
    withLabel("Command:", textFieldWithButton("Go", tfCmd))));
  onEnter(tfCmd, f go);
  requestFocus(tfCmd);
  hideConsole();
}

svoid go {
  final Lisp cmd = clParse(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));
  }}}
}

svoid setObject(fO o) swing {
  object = o;
  try {
    text = struct(o);
  } catch e {
    text = getStackTrace(e);
  }
  taObject.setText(text);
}