!7

sclass CheckJDKPath > DynPrintLog {
  S cmd;
  Bool found, ok;
  S output;
  
  JComponent visualize() {
    ret withCenteredButtons(super.visualize(), "Do it", rThread doIt);
  }
  
  void doIt {
    setFields(found := null, ok := null, output := null);
    setField(cmd := _javaCommand());
    print("Current Java command: " + cmd);
    setField(found := isAbsolutePath(cmd) ? fileExists(cmd) : isOnPATH(cmd));
    print("File found: " + yesno(found));
    set backtick_verbose;
    setField(output := backtick(cmd + " -version"));
    setField(ok := !cic(output, "Error:"));
    print();
    setModuleName(print(ok ? "OK!" : "Not OK.") + " - " + programTitleWithoutBracketStuff());
  }
}