From d3394e98aa8086a05b5952b7a369ecf04f3868f3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Sat, 8 Oct 2016 12:35:58 +0000 Subject: [PATCH] [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 --- app/src/gambas3/.src/Project.module | 2 ++ 1 file changed, 2 insertions(+) diff --git a/app/src/gambas3/.src/Project.module b/app/src/gambas3/.src/Project.module index 4b4497382..f176846f4 100644 --- a/app/src/gambas3/.src/Project.module +++ b/app/src/gambas3/.src/Project.module @@ -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