// WELCOME!! This is THE PROGRAM YOU ARE LOOKING FOR.

!7

//set flag OtherLoadableUtils. lib 1033861

// INCLUDE THE MAIN MODULE

!include #1033862 // Gazelle Screen Cam [dev version]

replace MainModule with GazelleScreenCam.

!include early #1033891 // include GazelleHost early for flags like PingV3

//set flag InCore.

set flag NoJavaXJar.

set flag NoLocalSnippets.

set flag OurSyncCollections.

sS windowTitle = "Gazelle 22";

sS progIDForDBAndAutoUpdate = #1033860;

sbool pingSourceStrictMode;

static GazelleHost host;

static MainModule client;

static ThreadPool threadPool;

p {

  loadableUtils.utils.__setJavaX(main.class);

  standaloneInit();

  ping_v3_setPingSourceMaker(-> {

    //System.out.println("pingSourceMaker");

    if (pingSourceStrictMode)

      fail("Strict mode - make a ping source first!!");

    ret new PingSource(threadPool, "legacy");

  });

  threadPool = new ThreadPool(findIntArg cores(args, numberOfCores()));

  print(threadPool);

  //threadPool.verbose = true;

  PingSource ps = new(threadPool, print("Starting Gazelle"));

  ps.do(-> {

    System.out.println("Pinging");

    ping();

    //if (true) fail("error test");

    print("Pinged");

    programID = progIDForDBAndAutoUpdate;

    // patch utils.preferredScreen

    preferredScreen = -> {

      if (host == null) ret 0;

      var stem = host.stem;

      if (stem == null) ret 0;

      int screen = max(0, screenNrOfWindow(mainWindow()));

      print(preferredScreen := screen);

      ret screen;

    };

    // patch utils.showForm_makeFrame to use JDialog

    // (to avoid dialogs being hidden behind always-on-top window)

    showForm_makeFrame = (title, panel) -> {

      var dialog = new JDialog(mainWindow(), title);

      setDialogContents(dialog, withMargin(panel));

      packWindow(dialog);

      minWindowWidth(dialog, 400);

      centerDialogOverOwner(dialog);

      dialog.setVisible(true);

      //setBounds(dialog, defaultNewFrameBounds());

    };

    if (cic(args, "delete-session")) {

      print("Deleting session (" + programDir(programID) + ")");

      clearConceptsOf(programID);

    }

    host = new GazelleHost(threadPool, -> {

      ret client = new MainModule;

    });

    if (sameSnippetID(programID, #1033860))

      windowTitle += " dev";

    host.windowTitle = windowTitle;

    host.run(args);

    if (!cic(args, "console")) {

      print("Stopping System.out");

      printAlsoToSystemOut = false;

    }

  });

  print("aha.");

}

static Window mainWindow() { ret host.stem.window; }

static Map generalMap = syncMap();