# ==============================================================================
# SaveAllFiles(): writes all modified documents to their files.
# ==============================================================================

define SaveAllFiles
  {
  current = $file_path $file_name
  filename = focus_window("last")
  while (filename != "")
    {
    if ($modified)
      {
      raise_window()
      save()
      }

    filename = focus_window("next")
    }
  focus_window(current)
  raise_window()
  }