Save selection as

# Save selection as..
# Made by: Nico Morskieft
# Ask for file name
saveto = string_dialog("Enter file name","OK")

# Check if file exist
find_file = shell_command("ls " saveto , "")
file_exist = search_string(find_file,"not found",0)
if (file_exist == -1) {
  beep()
  choice = dialog("File exist, overwrite?", "Yes", "No")
} else {
  choice = 1
}

if (choice == 1)
{
# Save the selection
succes = write_file(get_selection(), saveto)

# Check if the save action was successful
if (succes == 0)
  dialog("File NOT saved")
}

Released on  Wed, 21 Nov 2001  by C. Denat