!7

module BurnDVD {
  S directory, dvdDrive;
  bool add;
  
  start {
    if (empty(dvdDrive)) setField(dvdDrive := "/dev/dvd");
  }
  
  visualize {
    ret makeForm3(
      "Directory:", dm_fieldTextField('directory),
      "DVD drive:", dm_fieldTextField('dvdDrive),
      "", dm_fieldCheckBox("Add to DVD if there is data on it", 'add),
      "", jbutton("Burn it!", rThread burnIt));
  }
  
  void burnIt enter {
    assertLinux();
    if (!dirExists(directory))
      ret with infoBox("Directory doesn't exist: " + directory);
    if (contains(loadTextFile(backtickToConsole("growisofs " + (add ? "-M" : "-Z") + " " + bashQuote2(dvdDrive) + " -r -J " + bashQuote2(directory))), "FATAL"))
      infoBox("Error!");
    else
      infoBox("DVD made!");
  }
}

Began life as a copy of #1020282