save.module

来自「Gambas is a graphical development enviro」· MODULE 代码 · 共 41 行

' 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