<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_2g2qneeesg3ic6u6v14p4344ao, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
!7

sclass Entry {
  S name;
  long size, compressedSize;
  
  sS _fieldOrder = "name size compressedSize";
}

cmodule ArchiveContents > DynObjectTable<Entry> {
  File archive;
  
  visual withCenteredButtons(super, "Load archive...", rThread loadArchive);
  
  void loadArchive enter {
    loadArchive(showFileChooser());
  }
  
  // API
  
  void loadArchive(File f) {
    setField(archive := f);
    setModuleName("Archive contents: " + f2s(f));
    setData(map(listZipEntries(f), e ->
      nu Entry(
        name := e.getName(),
        size := e.getSize(),
        compressedSize := e.getCompressedSize()
      )));
  }
}