sclass JPaintTool is Swingable {
  transient gettable BufferedImage image;
  transient ImageSurface imageSurface;
  transient settable Dimension defaultImageSize = sixteenToNine_p(480);
  settable File autoPersistFile;
  bool autoPersistInstalled;
  volatile bool dirty;
  double autoPersistInterval = 10.0;
  ReliableSingleThread rstPersist = new(r _persist);
  
  void init {
    imageSurface if null = makeImageSurface();
    
    if (image == null) {
      setImage(makeNewImage());
      
      if (autoPersistFile != null) {
        pcall {
          var img = loadImage2(autoPersistFile);
          if (img != null)
            setImage(img);
          else
            set dirty;
        }
                      
        if (!autoPersistInstalled) {
          set autoPersistInstalled;
          awtEvery(imageSurface, autoPersistInterval, rstPersist);
          bindComponent(imageSurface, null, rstPersist);
        }
      }

    }
  }
  
  BufferedImage makeNewImage() {
    ret newImage(defaultImageSize);
  }
  
  visualize {
    init();
    ret jscroll_center_borderless(imageSurface);
  }
  
  void setImage(BufferedImage image) {
    this.image = image;
    imageSurface.setImage(image);
  }

  swappable ImageSurface makeImageSurface() {  
    var is = pixelatedImageSurface();
    //is.setAutoZoomToDisplay(true);
    //is.specialPurposed = true;
    is.zoomable(false);
    is.removeAllTools();
    new ImageSurfaceScribbleTool(is).onPainted(-> { set dirty; });
    
    ret is;
  }
  
  void _persist {
    if (autoPersistFile != null && dirty) {
      dirty = false;
      savePNGVerbose(autoPersistFile, image);
    }
  }
}