!7

cmodule AgiBlueControlPanel {
  visualize {
    int[] ports = cast getOpt(agiProg(), 'webServerPorts);
    if (ports == null) ret jcenteredlabel("Not running agi.blue");
    
    ret makeForm(
      "HTTP Ports:", joinWithComma(asList(ports)),
      "", jbutton("Start Web Server", rThread startWebServer));
  }
  
  void startWebServer enter {
    call(agiProg(), 'startEleu);
  }
  
  O agiProg() { ret mainProgram(); }
}