[DEVELOPMENT ENVIRONMENT]

* NEW: Allow files located in a linked directory to be modified only if they are opened in fake mode, i.e. alone.


git-svn-id: svn://localhost/gambas/trunk@7927 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2016-10-08 12:35:58 +00:00
parent 1b673641f3
commit d3394e98aa

View File

@ -5722,6 +5722,8 @@ Public Sub IsReadOnly(sPath As String) As Boolean
If Not Exist(sPath) Then Return True
If Not Access(sPath, gb.Write) Then Return True
If IsFake() Then Return ' Allow a file located in a linked directory to be modified only in "fake" mode, i.e. when opened alone.
Do
If sPath = Project.Dir Or If sPath = "/" Or If Not sPath Then Break
If Stat(sPath).Type = gb.Link Then