!7

sclass URLChecker extends DynTextArea {
  InputChooser inputChooser = new(this);
  S url;
  bool mayQuery;
  long size;
  
  JComponent visualize() {
    ret northAndCenter(wrap(inputChooser), super.visualize());
  }
  
  void update {
    temp enter();
    if (!inputChooser.update()) ret;
    
    fS input = inputChooser.input();
    if (!isURL(input)) ret;
    if (!setField(+url)) ret;
    clearText();
    printToText("URL found: " + url);
    setField(mayQuery := mayQueryURLByHead(url));
    printToText("May query: " + yn(mayQuery));
    if (!mayQuery) ret;
    // TODO: also get content type
    setField(size := urlSizeByHEAD(url));
    printToText("Size: " + (size < 0 ? "Unknown" : toK(size) + "K");
  }
  
  bool mayQueryURLByHead(S url) {
    true;
  }
}