!7

set flag hotwire_here.
sS osID = #1016478;
sbool standalone = true;

mainClassName DialogKit p-pcall {
  ret if standalone && javaXStandalone_init(args);
  
  Component c = selectJavaXVirtualSpace(vf<File> select);
  JButton useDefault = jbutton("Use default directory", r {
    thread { select(javaxVirtualDir("default")); }
    disposePIFrame(c);
  });
  addToWindow(c, withMargin(useDefault));
  focus(useDefault);
  hideConsole();
}

svoid select(File virtualHome) {
  showConsole();
  File mainJar = getMainJarLocation();
  File unpackDir = newFile(virtualHome, "unpacked");
  if (standalone)
    ret if standalone_start(null, "DialogKit instance", virtualHome, mainJar, unpackDir);
  else
    setUserDir(virtualHome);
  
  saveTextFile(stefansOS_backgroundFile(), #1101626);
  standalone_runOSWithInitialModules(osID, tlftj([[
    #1018866/SystemPrintLog
    #1019954/TaskBar_dev
    // TODO
  ]]));
}