lib 1400521 // FlatLAF

set flag PingV3.

set flag NotifyingPrintLog.

set flag SymbolAsString.

// Do the JavaX init

svoid standaloneInit {

  __javax = x30.class;

  x30.__javax = x30.class; // for hotwire

  x30_pkg.x30_util.__setJavaX(x30.class);

  x30.cleanKillMsg = "";

  callOnLoadMethods(mc());

}

concept PrintLogModule > DynPrintLog {

  start { setModuleName("Log"); }

  S getPrintLog() {

    ret printLog();

  }

  bool useErrorHandling() { false; }

}

concept Stem extends ConceptWithChangeListeners is AutoCloseable {

  transient GazelleHost host;

  transient LoadedDB db;

  DynModule module;

  settableWithVar Rect frameRect;

  bool minimized, maximized, alwaysOnTop, minimizeToTray;

  transient gettable JFrame window;

  transient JButton btnMax;

  transient JLabel titleComponent;

  transient gettable JButton compileButton;

  //transient bool autoUpdateDisabled;

  transient bool started;

  transient settable long startedWhen; // sys time

  *() {}

  *(LoadedDB *db) { host = db.host; }

  *(LoadedDB db, DynModule *module) { this(db); }

  transient Component selfVis; // how the module visualized itself

  // Not sure why we use LazyVar here instead of simplyCached

  transient LazyVar<SingleComponentPanel> scpMainWindowContents = new(-> scp());

  SingleComponentPanel scpMainWindowContents() { ret scpMainWindowContents!; }

  transient LazyVar<SingleComponentPanel> scpMainWindowWithTitle = new(-> scp());

  SingleComponentPanel scpMainWindowWithTitle() { ret scpMainWindowWithTitle!; }

  transient LazyVar<SingleComponentPanel> scpFrameIcon = new(-> scp());

  SingleComponentPanel scpFrameIcon() { ret scpFrameIcon!; }

  Rect grabFrameRect() {

    ret toRect(getBounds(window));

  }

  void saveFrameRect {

    frameRect(grabFrameRect());

  }

  void restoreFrameRect {

    if (frameRect != null)  

      setBounds(window, frameRect);

  }

  void setAlwaysOnTop(bool alwaysOnTop) {

    this.alwaysOnTop = alwaysOnTop;

    change();

    alwaysOnTop(window, alwaysOnTop);

  }

  void setMinimizeToTray(bool minimizeToTray) {

    cset(this, +minimizeToTray);

  }

  void setWindow(JFrame window) {  

    this.window = window;

    restoreFrameRect();

    //onWindowClosing(window, -> host.cleanExit());

    onBoundsChange(window, r saveFrameRect);

    if (host.restrictWindowsToScreenSize)

      restrictWindowToScreenSize(window);

    alwaysOnTop(window, alwaysOnTop);

  }

  void activateWindow {

    print("activateWindow: " + window);

    if (window != null)

      activateFrame_v3(window);

    else

      startAndShow(false);

  }

  bool isMain() { ret this == db.mainStem; }

  void minimize {

    cset(this, minimized := true);

    if (!minimizeToTray || host.trayIcon == null || !isMain())

      minimizeWindow(window);

    else

      hideWindow(window);

  }

  void deleteMe {

    temp tempPrintAlsoToSystemOut();

    print("deleteMe " + isMain());

    if (isMain())

      host.closeDatabase(db);

    else

      delete();

  }

  close {

    disposeWindow(window);

    cleanUp(module);

  }

  void delete :: before {

    close();

  }

  void grabWindowState {

    setField(maximized := !isExtendedStateNormal(window));

  }

  void updateBtnMax {

    if (!isShowing(btnMax)) ret;

    grabWindowState();

    setText(btnMax, maximized ? "NORM" : "MAX");

  }

  JComponent makeWindowBorderAndTitle(JComponent contents, S title) {

    //ret jCenteredSection_fontSizePlus(10, title, vis);

    var icons = jline();

    if (host.allowFrameMaximization) {

      icons.add(btnMax = jbutton("", rThread {

        maximizeOrRestoreFrame(window);

        updateBtnMax();

      }));

      onFirstShowing(btnMax, r updateBtnMax);

    }

    icons.add(toolTip("Minimize this window", jbutton("MIN", r minimize)));

    icons.add(toolTip("Close this window", jimageButtonScaledToWidth(16, #1103067, rThread deleteMe)));

    //setHorizontalMarginForAllButtons(icons, 4);

    icons.add(new JPopDownButton(menu -> fillJPopupMenu(menu, flattenToList(

      // always on top

      jCheckBoxMenuItem/*_dyn*/("Always on top",

        /*->*/ alwaysOnTop,

        alwaysOnTop -> setAlwaysOnTop(alwaysOnTop)),

      // quit, restart + update

      "---",

      "Exit Gazelle", rThread { host.cleanExit() },

      "Restart", rThread { host.restart() },

      "Re-open project", rThread { host.reopenDB(db) },

      "Hide project", rThread { db.hide() },

      "Update Gazelle", rThread { host.upgradeGazelle() },

      !isMain() ? null : jCheckBoxMenuItem/*_dyn*/("Auto-Update",

        /*->*/ print(autoUpdate := db.g22utils.autoUpdateEnabled()),

        b -> {

          // save flag

          db.g22utils.setAutoUpdate(b);

          // if user just turned on auto-update, do the update

          if (b) thread { host.upgradeGazelle(); }

        }),

      // debugging + screenshooting gazelle

      "---",

      !isMain() ? null : ll(

        "Screenshoot this window", rThread shootWindow,

        "Dump threads", rThread { showText("User threads", renderUserThreadsWithStackTraces()); },

        "Log", !isMain() ? null : r { db.showPrintLog() },

        "Copy log to clipboard", !isMain() ? null : rThread {

          copyToClipboard(printLog());

          infoBox("Copied log to clipboard");

        },

        "10 Second Profiler", rThread runTenSecondProfiler,

      ),

      ccallOpt(module, "popDownItems")

    ))));

    JComponent actualTitle = titleComponent = fontSizePlus(7, jCenteredLabel(title));

    installWindowDragger(actualTitle);

    if (/*isMain() &&*/ host.devMode())

      actualTitle = centerAndEastWithMargin(actualTitle,

        jline(

          compileButton = makeCompileButton(),

          installWindowDragger(lblComputerAndUserCount()),

        ));

    updateFrameIcon();

    var spacer = gazelle_wavySpacer(color1(), color2());

    var titleBarMain = setOpaqueBackground(color1(),

      jtransparent_recursive(westCenterAndEastWithMargin(

        scpFrameIcon(),

        actualTitle,

        setOpaqueBackground(color2(), spacer)));

    installWindowDragger(spacer);

    var titleBar = setBackground(color2(), centerAndEast(

      titleBarMain,

      icons));

    var border =

      // createBevelBorder();

      BorderFactory.createLineBorder(color1(), host.borderSize);

    var outerPanel = withBorder(border,

      northAndCenter(titleBar, contents));

    installWindowResizeDraggerOnBorder(outerPanel);

    ret markVisualizer(this, outerPanel);

  }

  swappable S frameIconID() { ret host.trayIconImageID; }

  swappable int frameIconHeight() { ret 24; }

  selfType frameIconID(S iconID) {

    frameIconID = -> iconID;

    updateFrameIcon();

    this;

  }

  swappable JComponent makeFrameIcon() {

    ret jImage_scaledToHeight(frameIconHeight(), frameIconID());

  }

  void updateFrameIcon {

    scpFrameIcon().set(makeFrameIcon());

  }

  swappable Color color1() { ret host.color1; }

  swappable Color color2() { ret host.color2; }

  JLabel lblComputerAndUserCount() {

    JLabel label = jlabel();

    Runnable update = -> {

      Int computerCount = host.computerCount();

      Int userCount = host.lvGazelleUserCount()!;

      setText(label, 

        (computerCount == null ? "" : n2(computerCount))

        + appendSquareBracketed(

          userCount == null ? "" : n2(userCount)));

    };

    bindChangeListenerToComponent(label, host.lvComputerCount(), update);

    bindChangeListenerToComponent(label, host.lvGazelleUserCount(), update);

    ret label;

  }

  JButton makeCompileButton() {

    var gears = resizeImageIcon(imageIcon(#1103061), 16);

    var btn = jimageButtonScaledToWidth(16, #1101268, "Compile & update",

      rThread { host.compile() });

    //enableComponentAccordingToVar(host.compileButtonEnabled, btn);

    componentPopupMenuItems(btn,

      "Compile all", rThread { host.compileAll() },

      "Compile main library", rThread { host.compileUtilsAndRepackage() },

      "Repackage", rThread { host.repackage() },

    );

    ret btn;

  }

  JComponent wrapVis(JComponent vis) {

    //ret jMinSize0(vis);

    ret vis;

  }

  void startAndShow(bool hidden default false) {

    if (module._host != this) {

      module._host = this;

      setOpt_raw(module, +threadPool); // only if the field exists

      setOpt_raw(module, concepts := db.concepts);

      setOpt_raw(module, g22utils := db.g22utils);

      copyLocalLog(module, mc());

    }

    var vis, title = unpair startAndVisualize();

    if (!hidden) {

      printWithMS("Show frame");

      JFrame frame = makeUndecoratedFrame(title, wrapVis(vis));

      setFrameIcon(frame, host.trayIconImageID);

      setWindow(frame);

      frame.addPropertyChangeListener("title", evt ->

        setText(titleComponent, frame.getTitle()));

      if (minimized) minimize();

      onWindowDeiconified(frame, -> cset(this, minimized := false));

      showWindow(window);

      if (maximized && host.allowFrameMaximization) maximizeFrame(window);

    }

  }

  Pair<JComponent, S> startAndVisualize() {

    JComponent vis = null;

    {

      printWithMS("Starting " + module);

      try {

        if (!started) {

          set started;

          startedWhen(sysNow());

          temp module.enter();

          module.start();

        }

        printWithMS("Visualize");

        vis = swing(-> {

          temp module.enter();

          ret module.visualize();

        });

      } on fail e {

        waitForFrameClose(showErrorFrame(e));

      }

    }

    selfVis = vis;

    var scp1 = scpMainWindowContents();

    scp1.set(vis);

    S title = createTitleText();

    var vis2 = makeWindowBorderAndTitle(scp1, title);

    var scp2 = scpMainWindowWithTitle();

    scp2.set(vis2);

    ret pair(scp2, title);

  }

  S createTitleText() {

    S moduleName = takeFirst_unnull(800, module.moduleName());

    if (isMain())

      // OLD: ret host.windowTitle + appendWithColon(moduleName);

      ret joinNemptiesWithVBar(moduleName, host.windowTitle);

    else

      ret moduleName;

  }

  void revisualize {

    if (window == null) ret;

    pcall {

      module.unvisualize();

    }

    var vis, title = unpair startAndVisualize();

    setFrameContents(window, wrapVis(vis));

  }

  void shootWindow {

    var img = renderComponentToImage(window);

    copyImageToClipboard(img);

    File imgFile = saveInImageDirectoryWithCounter(gazelle22_imagesSubDirName() + "/Gazelle", img);

    pcallOpt(module, "addToGallery", imgFile);

  }

  // Breaking change 2022 Dec 10 (is this even used?)

  // old: Component vis() { ret getFrameContents(window); }

  Component vis() { ret scpMainWindowContents()!; }

  S tenSecondProfilerScript = [[

    temp profiler <- new AllThreadsProfiler

    infoBox "Profiling..."

    profiler start

    sleepSeconds 10

    showText "10 Second Profile" < profiler renderFullResults false

  ]];

  File byteCodePath() {

    ret assertNotNull(getBytecodePathForClass(this));

  }

  ClassNameResolver classNameResolver() {

    ret new ClassNameResolver().byteCodePath(byteCodePath()).init();

  }

  GazelleV_LeftArrowScriptParser leftArrowParser() {

    new GazelleV_LeftArrowScriptParser parser;

    parser.classNameResolver(classNameResolver());

    parser.allowTheWorld(mc(), utils.class);

    ret parser;

  }

  void runTenSecondProfiler {

    leftArrow(leftArrowParser(), tenSecondProfilerScript);

  }

} // end of Stem

sclass LoadedDB is AutoCloseable, IG22LoadedDB {

  GazelleHost host;

  gettable Concepts concepts;

  gettable new G22Utils g22utils;

  Stem mainStem;

  gettable bool hidden;

  *(GazelleHost *host, Concepts *concepts, bool *hidden) {

    g22utils.concepts(concepts);

    g22utils.masterStuff(host);

  }

  S name() {

    ret fileName(conceptsDir(concepts));

  }

  void start {

    concepts.grabThroughSocket(false);

    concepts.makeStructureData = -> {

      structure_Data data = concepts.makeStructureData_base();

      data.realShortName = name -> {

        S n = dropPrefixOrNull("userCode.", name);

        if (n != null)

          ret takeFirst(n, indexOf(n, '_'));

        ret data.realShortName_base(name);

      };

      data.mcDollar = mcDollar();

      ret data;

    };

    var lock = concepts.fileLock();

    try {

      lock.contentsForLockFile("Locked by computer " + computerID() + "\n");

      lock.lockOrFail();

    } catch print e {

      if (cic(str(e), "Couldn't aquire lock")) {

        if (!lock.hasExpectedContents()) {

          infoBox("Overriding project lock (" + lock.actualContents() + ")");

          lock.forceLock();

        } else {

          S msg = "This project is already opened in another process";

          infoBox(msg, 10.0);

          sleepSeconds(1);

          fail(msg);

        }

      } else

        throw rethrow(e);

    }

    concepts.fileLock().deleteOnExit();

    thinAProgramsBackups(concepts.conceptsDir(), true);

    //concepts.persist();

    concepts.loadConcepts();

    // Check that we are not loading with an old program version

    var projectInfo = optimizedUniq(concepts, G22ProjectInfo);

    S compilationDate = compilationDateFromClassPath(this);

    print("Compilation date in project: " + projectInfo.compilationDate);

    if (nempty(projectInfo.compilationDate)

      && lessThan(compilationDate, projectInfo.compilationDate)) {

        messageBoxAndFail("Trying to open project with old Gazelle version - please update Gazelle first (" + compilationDate + " vs " + projectInfo.compilationDate + ")");

        }

    if (cset(projectInfo, +compilationDate) != 0)

      print("Bumped compilation date in project to " + compilationDate);

    concepts.autoSaveConcepts();

    //db_setMainConcepts(concepts);

    //print("Concepts loaded: " + map className(allConcepts(concepts));

    var stems = stems();

    print("Stems in DB: " + l(stems));

    mainStem = first(stems);

    if (mainStem == null) {

      print("Starting new module");

      var module = host.makeModule();

      mainStem = registerConcept(concepts, new Stem(this, module));

      print("Stems in DB: " + l(stems()));

    }

    for (stem : stems()) {

      stem.db = this;

      stem.host = host;

      stem.startAndShow(hidden);

    }

    print("Stems in DB: " + l(stems()));

  }

  L<Stem> stems() { ret list Stem(concepts); }

  Q systemQ() { ret host.systemQ; }

  Stem findPrintLog() {  

    ret firstThat(list(concepts, Stem),

      stem -> stem.module instanceof PrintLogModule);

  }

  void showPrintLog {

    systemQ().add(-> {

      var logModule = findPrintLog();

      if (logModule != null)

        logModule.activateWindow();

      else

        registerConcept(concepts, new Stem(this, new PrintLogModule)).startAndShow();

    });

  }

  void hidePrintLog {

    systemQ().add(-> deleteConcept(findPrintLog()));

  }

  void activate {

    print("Activating DB: " + conceptsFile(concepts));

    if (hidden) {

      hidden = false;

      host.loadedDBsChange();

    }

    mainStem?.activateWindow();

  }

  void hide {

    hideWindow(mainWindow());

    if (!hidden) {

      hidden = true;

      host.loadedDBsChange();

    }

  }

  public JFrame mainWindow() {

    ret mainStem?.window;

  }

  close {  

    print("Cleaning up " + concepts);

    print("Stems in DB: " + l(stems()));

    for (Concept c : allConcepts(concepts))

      cleanUp(c);

    print("Releasing DB (" + n2(list(concepts, Stem), "stem") + ")");

    dispose concepts;

    host.loadedDBs.remove(this);

    host.loadedDBsChange();

    print("Remaining DBs: " + l(host.loadedDBs));

  }

  toString { ret name(); }

  DynModule module() {

    ret mainStem?.module;

  }

  public G22ProjectActions projectActions() {

    ret (G22ProjectActions) module();

  }

} // end of LoadedDB

// This replaces the Stefan's OS main class. It is not persisted

// and there is only one instance.

transient sclass GazelleHost is G22MasterStuff {

  Set<LoadedDB> loadedDBs = syncLinkedHashSet();

  event loadedDBsChange;

  event newClassesDefined;

  transient S repackageURL = "https://botcompany.de/jar/1033860?withX30=1&withLibs=1&noSrc=1&mainClassForManifest=Starter&repackage=1";

  // Title of this Gazelle instance

  transient S windowTitle = "Gazelle 22";

  transient S trayIconImageID = #1103047;

  transient int borderSize = 5;

  transient Color color1 = awtColor("ADD8E6");

  transient Color color2 = awtColor("EEEEEE");

  transient Color color3 = awtColor("A3C0AA");

  transient IF0<DynModule> moduleMaker;

  transient ThreadPool threadPool;

  transient File dbMotherDir;

  transient TrayIcon trayIcon;

  transient TrayIconLastPosition trayIconLastPosition;

  transient S[] args;

  transient Set<S> argsSet;

  transient bool incrementalDownloads = true;

  transient volatile bool shuttingDown;

  transient bool restrictWindowsToScreenSize /*= true*/;

  // This caused problems, disabled for now

  transient bool allowFrameMaximization;

  transient G22Utils g22utils;

  transient StefansOS_ConnectToServer serverConnector;

  transient ComputerCountListener computerCount;

  transient GazellePresenceListener gazellePresenceListener;

  transient gettable Q systemQ = startQ("System Q");

  transient AutoCloseable pimpedPopups;

  // Let's use one of these centrally because it blocks a thread

  // and does next to nothing most of the time.

  gettable new RunnablesReferenceQueue runnablesReferenceQueue;

  transient gettable ILASClassLoader lasClassLoader =

    //new LASClassLoader(getClass());

    new LASMultiClassLoader(mc()).runnablesReferenceQueue(assertNotNull(runnablesReferenceQueue));

  //transient BoolVarWithNotify compileButtonEnabled = new(true);

  gettable EphemeralObjectIDs ephemeralObjectIDs = new()

    .runnablesReferenceQueue(assertNotNull(runnablesReferenceQueue));

  transient bool autoExitDisabled;

  settable transient volatile bool booted;

  event fillingTrayIconMenu(PopupMenu menu);

  // add fields here

  *(ThreadPool *threadPool, IF0<DynModule> *moduleMaker) {

    g22utils = new G22Utils().masterStuff(this);

    onLoadedDBsChange(-> {

      if (shuttingDown) ret;

      var dbs = getLoadedDBs();

      if (nempty(dbs))

        g22utils.setOpenDBs(dbs);

      updateTrayIconMenu();

    });

  }

  // Reminder: We are in GazelleHost

  <A> A inSystemQ(IF0<A> f) {

    ret evalInQ(systemQ(), f);

  }

  JFrame mainWindow() {

    ret firstNonNull(loadedDBs(), db -> db.mainWindow());

  }

  void trayIconLeftClick {

    first(loadedDBs()).activate();

  }

  void makeTrayIcon {

    pcall-short {

      trayIcon_imageAutoSize = false;

      trayIcon = installTrayIcon(trayIconImageID, windowTitle,

        r trayIconLeftClick,

        /*"Show " + windowTitle, r trayIconLeftClick,

        "Exit " + windowTitle, r cleanExit*/

      );

      updateTrayIconMenu();

      trayIconLastPosition = new TrayIconLastPosition(trayIcon);

    }

  }

  void updateTrayIconMenu { rstUpdateTrayIconMenu.trigger(); }

  transient ReliableSingleThread rstUpdateTrayIconMenu = rstWithPostDelay(1000, l0 updateTrayIconMenuImpl);

  void updateTrayIconMenuImpl {

    if (trayIcon == null) ret;

    new PopupMenu menu;

    var projects = openProjects();

    printVars("updateTrayIconMenuImpl", +projects);

    for (IG22LoadedDB otherDB : projects) {

      S name = otherDB.g22utils().projectName();

      S status = otherDB.hidden() ? "Hidden" : "";

      addMenuItem(menu, name + appendSquareBracketed(status), rThread { otherDB.activate() });

    }

    fillingTrayIconMenu(menu);

    addMenuItem(menu, "Exit " + windowTitle, rThread cleanExit);

    trayIcon.setPopupMenu(menu);

  }

  void run(S[] args) {

    try {

      this.args = args;

      run2(args);

    } catch print e {

      //messageBox(e);

      hideTrayIcon(trayIcon);

      onWindowClosing(-> systemExit(1), getWindow(

        showText_fast_noWrap("Gazelle Error", renderStackTrace(e))));

    }

  }

  void run2(S[] args) {

    argsSet = asSet(args);

    S s = first(args);

    bool isDirectory = isDirectory(s);

    if (isDirectory)

      dbMotherDir = canonicalFile(s);

    printVars(args := asList(args), +s, +isDirectory, +dbMotherDir);

    print("Using mother directory: " + databasesMotherDir());

    windowTitle = or2(loadTextFile(newFile(dbMotherDir, "Gazelle Name")), windowTitle);

    if (!argsSet.contains("noflatlaf"))

      com.formdev.flatlaf.FlatLightLaf.setup();

    if (contains(args, "profile"))

      profileToConsole(() -> actualMain(args));

    else

      actualMain(args);

    if (argsSet.contains("brexit")) System.exit(0);

  }

  void actualMain(S... args) {

    vm_generalMap_put(stefansOS := this);

    System.out.println(hmsWithColonsAndMS() + ": Init");

    //x30.coreInit();

    // Ready to roll

    printJavaVersion();

    //tempAddGlobalCtrlKeyListener(b -> print("Ctrl key: " + b));

    if (contains(argsSet, "profile"))

      doEvery(1.0, r printRunningThreads);

    if (containsOneOf(argsSet, "upgrade", "update"))

      ret with upgradeGazelle();

    makeTrayIcon();

    initAutoUpdate();

    if (devMode()) {

      print("Pimping popup menus");

      PopupMenuMaker.fix();

      pimpedPopups = tempGlobalPopupMenu((c, menu) -> {

        printVars("pimpedPopups", c := className(c));

        // Skip linux tray icon popups

        if (contains(className(c), "XTrayIcon")) ret;

        // This is for popup menus displayed via setComponentPopupMenu

        // which are re-used instances

        if (any(getMenuItems(menu), menuItem

          -> cicOneOf(menuItem.getText(), "Component: ", "src: "))) ret;

        O src = componentMetaSrc(c);

        menu.add(commaCombine(

          classNameAndEphString(c),

          src == null ?: "src: " + classNameAndEphString(src)));

      });

    }

    // Start DB

    LS dbNames = g22utils.dbsToOpen();

    for (S dbName : dbNames) {

      S name2 = dropPrefix("*", dbName);

      openDB(name2, !eq(dbName, name2));

    }

    booted(true);

    exitIfAllDBsClosed();

    printWithMS("Dudadoneski");

  }

  public bool projectExists(S dbName) {

    File conceptsFile = newFile(newFile(databasesMotherDir(), dbName), conceptsFileName());

    ret isFile(conceptsFile);

  }

  LoadedDB openDB(S dbName, bool hidden default false) {

    File conceptsFile = newFile(newFile(databasesMotherDir(), dbName), conceptsFileName());

    ret openDB(conceptsFile, hidden);

  }

  public IG22LoadedDB getLoadedDB(Concepts concepts) {

    ret firstThat(cloneList(loadedDBs), db -> db.concepts == concepts);

  }

  IG22LoadedDB getLoadedDBForConceptDir(File dir) {

    ret findLoadedDBForConceptsDir(dir);

  }

  LoadedDB findLoadedDBForConceptsDir(File conceptsDir) {

    ret firstThat(cloneList(loadedDBs), db -> sameFile(

      conceptsDir(db.concepts), conceptsDir));

  }

  LoadedDB findLoadedDBForConceptsFile(File conceptsFile) {

    ret firstThat(cloneList(loadedDBs), db -> sameFile(

      conceptsFile(db.concepts), conceptsFile));

  }

  public IG22LoadedDB reopenDB(IG22LoadedDB db) {

    ret reopenDB((LoadedDB) db);

  }

  LoadedDB reopenDB(LoadedDB db) {

    File conceptsFile = db.concepts.conceptsFile();

    try {

      autoExitDisabled = true;

      closeDatabase(db);

      ret openDB(conceptsFile);

    } finally {

      autoExitDisabled = false;

    }

  }

  LoadedDB openDB(File conceptsFile, bool hidden default false) {

    // First try to find a loaded concept without going through system queue

    var loadedDB_quick = findLoadedDBForConceptsFile(conceptsFile);

    if (loadedDB_quick != null) {

      if (!hidden)

        loadedDB_quick.activate();

      ret loadedDB_quick;

    }

    ret inSystemQ(-> {

      var loadedDB = findLoadedDBForConceptsFile(conceptsFile);

      if (loadedDB != null) {

        if (!hidden)

          loadedDB.activate();

        ret loadedDB;

      }

      temp tempInfoBoxNoHide("Opening Gazelle project " + quote(fileName(dirOfFile(conceptsFile))));

      // profile project opening

      //temp tempProfileSingleThreadToConsole();

      print("Loading new DB: " + f2s(conceptsFile));

      g22utils.addToRecentDBNames(parentName(conceptsFile), hidden);

      Concepts concepts = newConceptsWithClassFinder(conceptsFile, makeClassFinder());

      concepts.onSaveError(l1 infoBox);

      // to clean-up resources in project variables

      concepts.closeConceptsOnExit(true);

      var db = new LoadedDB(this, concepts, hidden);

      loadedDBs.add(db);

      try {

        db.start();

        loadedDBsChange();

      } catch print e {

        loadedDBs.remove(db);

        _close(db);

      }

      ret db;

    });

  }

  public Cl<File> openConceptDirs() {

    ret cloneMap(loadedDBs, _db -> conceptsDir(_db.concepts));

  }

  O resolveModule(O moduleOrStem) {

    ret moduleOrStem cast Stem ? moduleOrStem.module : moduleOrStem;

  }

  void cleanExit {

    set shuttingDown;

    print("Closing " + n2(loadedDBs, "database"));

    closeAndClear(loadedDBs);

    System.exit(0);

  }

  File myJar() { ret getBytecodePathForClass(this); }

  AutoCloseable tempDisableCompileButtons() {

    ret tempDisableButtons(compileButtons());

  }

  swappable void upgradeGazelleForeplay { 

    infoBox("Updating Gazelle in 10...");

    sleepSeconds(10);

    upgradeGazelle();

  }

  void upgradeGazelle {

    try {

      temp tempPrintAlsoToSystemOut();

      // Show an infoBox to make sure the code for infoBox is loaded

      temp tempInfoBox("Updating Gazelle...");

      //temp tempSetBoolVar(compileButtonEnabled, false);

      temp tempDisableCompileButtons();

      //for (f : allJFrames()) setFrameTitle(f, "Updating...");

      File myJar = myJar();

      print(+myJar);

      S existingFilesComp = !incrementalDownloads ? null

        : existingFilesInfo();

      S date = ymdMinusHMS();

      File f = javaxCodeDir("Downloaded Updates/" + "gazelle-" + date + ".jar");

      temp progress = tempProgressBar_addToWindowIfPossible(mainWindow(), "Updating Gazelle");

      progress.setText("Downloading Update...");

      time "Downloading zip" {

        postBinaryPageToFile(downloadURL(), f, +existingFilesComp);

      }

      printFileInfo(f);

      if (!isNonEmptySingleZip_byMagicHeader(f))

        ret with infoBox("Bad file downloaded... :(");

      bool replaced;

      if (isFile(myJar)) {

        // load all my classes to be sure (TODO: could do this in parallel to downloading)

        //print("Loaded " + nClasses(loadAllClassesInByteCodePath(myJar)));

        progress.setText("Replacing with new version: " + renderFileInfo(myJar));

        File myJarSaved = fileInSubDir("old-code",

          appendToBaseName(myJar, ".bak." + date));

        File myJarNew = appendToFileName(myJar, ".new");

        Set<S> toKeep = asSet(tlft(loadTextFileFromZip(f, "to-keep")));

        if (nempty(toKeep)) {

          int toUpdate = countFilesInZip(f)-1;

          //progress.setText("Keeping " + nFiles(toKeep));

          progress.setText("Updating " + nFiles(toUpdate));

          // Do we have anything to updatE?

          int have = countFilesInZip(myJar);

          if (l(toKeep) == have && countFilesInZip(f) == 1) {

            infoBox("Nothing to update - Gazelle is up to date!");

            deleteFile(myJarNew);

            deleteFile(myJarSaved);

            ret;

          }

          temp Zip4j_MergeZipFilesWithFilter merger = new(myJarNew);

          merger.addZipFile(myJar, name -> contains(toKeep, name));

          merger.addZipFile(f, name -> !eq(name, "to-keep"));

          merger.finish();

        } else

          myJarNew = f;

        if (isWindows()) {

          copyFileVerbose(myJar, myJarSaved);

          copyFileVerbose(myJarNew, myJar);

          deleteFileVerbose_assertSuccess(myJarNew);

        } else {

          renameFileVerbose_assertSuccess(myJar, myJarSaved);

          renameFileVerbose_assertSuccess(myJarNew, myJar);

        }

        printFileInfo(myJar);

        set replaced;

      }

      progress.setText("Done");

      if (replaced)

        infoBox("Installed update, replaced " + f2s(myJar) + " - now starting");

      else

        infoBox("Updated but could not replace originally downloaded jar");

      restart(replaced ? myJar : f);

    } on fail e { printStackTrace(e); }

  }

  void restart(File jar default myJar()) {

    temp tempPrintAlsoToSystemOut();

    S javaCmd = or2(currentProcessCommand(), "java");

    S cmd = platformQuoteArgs(flattenToList(

      javaCmd, "-jar", jar, args));

    print(cmd);

    nohup(cmd);

    cleanExit();

  }

  DynModule makeModule() {

    ret callF(moduleMaker);

  }

  void reloadModuleInBackground(Stem mod) {

    restart();

  }

  void initAutoUpdate {  

    print("Making server connection for updates.");

    serverConnector = snippetUpdateConnector(/*verbose := true*/);

    //serverConnector.verbose = true;

    vmBus_onMessage snippetUpdate(voidfunc(L l) {

      S uri = getString(l, 1);

      new Matches m;

      if (swic(uri, "/transpileOK/", m)) {

        if (sameSnippetID(programID(), firstIntAsString(m.rest()))) {

          if (g22utils.autoUpdateEnabled() /*&& autoUpdateDisabled*/) {

            upgradeGazelleForeplay();

          }

          //infoBox("Gazelle can be updated!");

        }

      } else if (swic(uri, "/edit/", m)) {

        S snippetID = fsI(firstIntAsString(m.rest());

        if (contains(stdFunctionListSnippetIDs(), snippetID))

          stdFunctions_clearCache();

        if (contains(standardClassesSnippetIDs(), snippetID))

          standardClassesMap_clearCache();

      }

    });

    pcall {

      computerCount = new ComputerCountListener(serverConnector);

      computerCount.init();

    }

    pcall {

      gazellePresenceListener = GazellePresenceListener(serverConnector);

      gazellePresenceListener.init();

    }

  }

  S downloadURL() {

    ret "https://botcompany.de/jar/" 

      + psI(programID()) + "?withLibs=1&withX30=1"

      + "&mainClassForManifest=Starter"

      + (!downloadJarWithSrc() ? "&noSrc=1" : "")

      + (downloadUncompressedJAR() ? "&uncompressed=1" : "");

  }

  bool downloadJarWithSrc() { true; }

  bool downloadUncompressedJAR() { false; }

  // called by DynModule

  void revisualizeModule(Stem stem) {

    stem.revisualize();

  }

  Int computerCount() { ret computerCount == null ? (Int) 0 : computerCount!; }

  LiveValue<Int> lvComputerCount() { ret computerCount?.liveValue(); }

  public IGetterWithNotify<Int> lvGazelleUserCount() { ret gazellePresenceListener?.userCount; }

  L<JButton> compileButtons() { ret mapNonNulls(allStems(), s -> s.compileButton()); }

  L<Stem> allStems() {

    ret concatLists(cloneMap(loadedDBs, db -> list(db.concepts, Stem)));

  }

  // compile main program

  void compile {

    compile(programID, null);

  }

  void resetNeedLatest {

    editSnippet(#1035306, "need latest .");

  }

  void compileAll {

    resetNeedLatest();

    compile(utilsSnippetID(), l0 compile);

  }

  void compileUtilsAndRepackage {

    compile(utilsSnippetID(), l0 repackage);

  }

  void compile(S snippetID, Runnable onSuccess) {

    print("Compiling " + snippetID);

    var gears = resizeImageIcon(imageIcon(#1103061), 16);

    temp tempDisableCompileButtons();

    temp tempSetButtonImages(compileButtons(), gears);

    thread { existingFilesInfo(); } // precompute

    var tr = TranspileWithErrorWindow().snippetID(snippetID);

    /*tr.transpileAction(->

      new TranspileForServer_v2(snippetID).run());*/

    tr.transpileAction(-> {

      var p = transpileOnNewServer(snippetID, "medium");

      if (!p.a) fail(p.b);

    });

    tr.onSuccess(onSuccess);

    tr.run();

    print("Done transpilation of " + snippetID);

  }

  void repackage {

    File f = javaxCachesDir("Gazelle-22/repackaged.jar");

    deleteFile(f);

    loadBinaryPageToFile(appendParamsToURL(repackageURL, uniq := randomID()), f);

    if (isJAR(f))

      infoBox("Repackaged.");

    else

      messageBox("Oh shit");

  }

  public void closeDatabase(LoadedDB db) {

    db.close();

    exitIfAllDBsClosed();

  }

  void exitIfAllDBsClosed {

    if (!autoExitDisabled && empty(loadedDBs))

      cleanExit();

  }

  Cl<? extends IG22LoadedDB> getLoadedDBs aka loadedDBs() {

    ret cloneList(loadedDBs);

  }

  public void closeDatabase(File conceptsDir) {

    for (db : cloneList(loadedDBs))

      if (sameFile(conceptsDir, conceptsDir(db.concepts)))

        db.close();

  }

  public void switchToDatabase(File conceptsDir) {

    if (conceptsDir == null) ret;

    // open/activate the desired database first

    var db = openDatabase(conceptsDir);

    if (db == null) ret; // probably impossible but whatever

    closeAllDBsExcept(db);

  }

  void closeAllDBsExcept(LoadedDB db) {

    closeAll(listMinus(loadedDBs, db));

  }

  public LoadedDB openDatabase(File conceptsDir, bool hidden default false) {

    temp tempPrintAlsoToSystemOut();

    File conceptsFile = newFile(conceptsDir, conceptsFileName());

    if (!fileExists(conceptsFile))

      fail(infoBox("Database not found: " + conceptsFile));

    var db = openDB(conceptsFile, hidden);

    print("Database opening complete");

    ret db;

  }

  Map<S, Class> classMigrations() {

    ret litmap(

      G22RecognizerScript := G22Analyzer,

      GalleryImage := G22GalleryImage);

  }

  public IF1<S, Class> makeClassFinder() {

    IF1<S, Class> defaultClassFinder = toIF1(_defaultClassFinder());

    var migrations = classMigrations();

    IF1<S, Class> classFinder = name -> {

      // class migration

      S shortName = dropPrefixOrNull("main$", name);

      if (shortName != null) {

        Class c = migrations.get(shortName);

        if (c != null) {

          S newName = className(c);

          print("Migrating legacy class " + name + " to " + newName);

          name = newName;

        }

      }

      ret defaultClassFinder.get(name);

    };

    // Test classFinder sanity

    assertEquals(callF(classFinder, "main$Stem"), Stem.class);

    ret classFinder;

  }

  transient cached S existingFilesInfo() {

    L<Map> fingerprints =  zipFileToJSONFingerprint_md5(myJar());

    S s = base64encode(gzipString(jsonEncode(fingerprints)));

    print(existingFilesInfo := nBytes(l(s)));

    ret s;

  }

  bool devMode() { ret g22_devMode(); }

  // remember ephemeral object, return script code to get it back

  S ephString(O o) {

    ret o == null ? "" : "eph " + ephemeralObjectIDs.remember(o);

  }

  S classNameAndEphString(O o) {

    ret o == null ?: spaceCombine(ephString(o), className(o));

  }

  public File databasesMotherDir() {

    if (dbMotherDir == null)

      dbMotherDir = javaxDataDir("Gazelle-22");

    ret dbMotherDir;

  }

  public bool isLoading() {

    ret !booted;

  }

} // end of GazelleHost [G22MasterStuff]