!7

cm LiveWebCam > DynSCP {
  transient WebcamPanel panel;
  int fpsLimit = -1;
  bool autoStart;
  switchable bool alwaysOnTop; // TODO: alwaysOnTop without restart
  
  enhanceFrame {
    minimalFrameSize(f/JInternalFrame, 320, 240);
    internalFramePopupMenuItem(f, "Save to AI Album",
      rThread { dm_saveToAIAlbum(getImage()) });
    internalFramePopupMenuItem(f, "Set FPS...", r {
      final JTextField tf = jtextfield(str(fpsLimit));
      showFormTitled("Set FPS Limit",
        "FPS Limit (-1 for no limit, 0 for no updates):", tf,
        rThread { setFPSLimit(parseInt(gtt(tf))) });
    });
    dm_boolFieldMenuItem(f, 'autoStart);
    internalFramePopupMenuItem(f, "Natural size", r dm_packFrame);
    if (alwaysOnTop) dm_alwaysOnTop(f);
  }

  JComponent visualize2() {
    ret jcenteredbutton("Start", rThread startIt);
  }
  
  afterVisualize { if (autoStart) startIt(); }
  
  void startIt {
    selectWebCam(vf<Webcam> selectCam);
  }
  
  void startPreferredOrSelect {
    selectWebCam_withPreferred(vf<Webcam> selectCam);
  }
  
  void selectCam(Webcam cam) enter {
    final WebcamPanel panel = new WebcamPanel(cam, false);
    LiveWebCam.this.panel = panel;
    bindToComponent(panel, null, r { panel.stop() });
    updateFPSLimitInPanel();
    setComponent(panel);
    //dm_packFrame();
  }
  
  void stopIt {
    if (panel == null) ret;
    panel.stop();
  }
  
  BufferedImage getImage() {
    ret imageFromWebcamPanel(panel);
  }
  
  void setFPSLimit(int limit) {
    setField(fpsLimit := limit);
    updateFPSLimitInPanel();
  }
  
  void updateFPSLimitInPanel {
    setModuleName((fpsLimit >= 0 ? fpsLimit + " FPS - " : "") + "Live WebCam");
    if (panel == null) ret;
    panel.stop();
    if (fpsLimit == 0) ret; // TODO - want to keep last image there anyway
    panel.setFPSDisplayed(fpsLimit < 0);
    if (fpsLimit > 0) panel.setFPSLimit(fpsLimit);
    panel.setFPSLimited(fpsLimit > 0);
    panel.start();
  }
  
  bool isWebCamLive() {
    ret panel != null && fpsLimit != 0;
  }
}

Began life as a copy of #1016673