!7

cmodule FindHomeStation {
  File file;
  
  transient L<File> allImages;
  transient JTabbedPane tabs;
  transient MultiLevelRecognizer1 rec;
  
  start {
    tabs = jtabs();
    allImages = listImageFiles(vectorCamDir());
    randomImage();
  }
  
  void randomImage {
    File f = random(allImages);
    if (f == null) ret with print("No images");
    setField(file := f);
    recognize();
  }
  
  void recognize {
    rec = new MultiLevelRecognizer1(imageSnippetFile(#1102886), file);
    clearTabs(tabs);
    rec.tabs = tabs;
    print(rec.go());
  }
  
  visual northAndCenter(
    jCenteredSection("File", dm_centeredLabel(file)),
    withCenteredButtons(tabs,
      "Random image", rThread randomImage));
}