!7

!include once #1016163 // JxBrowser with tabs

sclass JavaChrome extends DynModule {
  transient BrowserContext browserContext;
  transient TabbedPane tabbedPane;
  
  void start {
    setModuleName("Java Chrome - based on JxBrowser");
    jxBrowser_init();
    O existingInstance = dm_findMateOfType('JavaChrome);
    if (existingInstance != null) {
      browserContext = (BrowserContext) get(existingInstance, 'browserContext);
      print("Using existing browser context: " + browserContext);
    } else
      browserContext = jxBrowserStandardContext();
  }
  
  JComponent visualize() {
    ret swing(func -> JComponent {
      tabbedPane = new TabbedPane(browserContext);
      tabbedPane.addAndSelectTab(TabFactory.createTab(browserContext, "http://BotCompany.de"));
      ret tabbedPane;
    });
  }
  
  void unvisualize() {
    if (tabbedPane != null)
      tabbedPane.disposeAllTabs();
    tabbedPane = null;
  }
}