!7

module MiniVNC > DynImageSurface {
  bool enabled, usePossiblyBrokenVersion = true;
  S computerID;
  int width = 256;
  double videoInterval = 2.0;
  
  transient Pt mousePosition;
  
  S switchableFields() { ret "usePossiblyBrokenVersion videoInterval"; }
  
  start { doEvery(videoInterval, r grab); }
  
  visualize {
    JComponent c = super.visualize();
    imageSurfaceOnMouseMove(imageSurface, voidfunc(Pt p) { mousePosition = p });
    enableDoubleBuffering();
    ret northAndCenterWithMargins(vstackWithSpacing(
      centerAndEastWithMargins(
        withLabel("Computer to control:", dm_onlineComputerSelectorComboBox(dm_fieldLiveValue('computerID))), dm_fieldCheckBox('enabled)),
        jRightAlignedLine(jLabel("Resize to width (pixels):"), jMinWidth(100, jLiveValueIntTextField(dm_fieldLiveValue('width))))),
      c);
  }
  
  void grab enter {
    if (enabled && possibleComputerID(computerID) && dm_isVisible()) {
      time "Get Screenshot" {
        setImage(dm_scaledDownScreenshotFromOtherMachine(computerID, width, +usePossiblyBrokenVersion));
      }
    }
  }
}