!7

cmodule UploadFile {
  S filePath, result;
  
  visual
    withMargin(vstackWithSpacing(
      dm_filePathInput filePath(),
      jbutton("Upload", rThread upload),
      dm_fieldLabel result()));
    
  void upload enter {
    try {
      setField(result := uploadFileToFileServer(filePath));
    } catch print e {
      setField(result := exceptionToStringShort(e));
    }
  }
}