BL_BackupStack

Revision
Revised on
Description

Code

on BL_BackupStack name,path
  -- back up the named stack into the given backup folder
  
  UL_LockStuff
  put the rect of the card window into savedRect
  
  put the short name of stack name into original
  put Version(numbers,stack) into vers
  put path & FL_LegalName(original && vers) into backup
  put "DLBackupStack temp file" && random(1000) into temporary
  UL_PutMsg "Backing up stack "" & original & ""..."
  
  if BL_PrepareForBackup(backup,temporary) then
    -- try to create a backup of this stack
    save stack name as backup
    if the result is not empty then
      answer "Backup error: couldn't create backup "" & FL_ShortPath(backup) & ""."
    else
      BL_FinishBackup path,temporary
    end if
  end if
  
  UL_CloseMsg
  set the rect of the card window to savedRect
  UL_UnlockStuff
  
end BL_BackupStack