save.module

Gambas is a graphical development environment based on a Basic interpreter, like Visual Basic. It us

' Gambas module file

PRIVATE $sPath AS String
PRIVATE $bRename AS Boolean

PUBLIC SUB Begin(sPath AS String)
  
  $bRename = FALSE
  $sPath = sPath
    
  TRY KILL sPath & "~"
  RENAME sPath AS sPath & "~"
  
  $bRename = TRUE

END

PUBLIC SUB End()
  
  $sPath = ""
  $bRename = FALSE
  
END


PUBLIC FUNCTION Error() AS Boolean
  
  DIM sError AS String
  
  sError = Error.Text
  
  IF $bRename THEN 
    TRY RENAME $sPath & "~" AS $sPath
  ENDIF
  
  Message.Error(("Cannot save file !") & "\n\n" & $sPath & "\n\n" & sError)
  Save.End
  RETURN TRUE
  
END