From ec5df4c9e53c6951dca265b7a748df9b0eb8241f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 18 Aug 2002 08:55:31 +0000
Subject: [PATCH] fixed checking readonly for non existing files

git-svn-id: trunk@2885 -
---
 ide/main.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ide/main.pp b/ide/main.pp
index a174c191bb..21c13a08f1 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -3796,7 +3796,8 @@ begin
   if ActiveUnitInfo=nil then exit;
 
   // check if file is writable on disk
-  if not ActiveUnitInfo.IsVirtual then
+  if (not ActiveUnitInfo.IsVirtual)
+  and FileExists(ActiveUnitInfo.Filename) then
     ActiveUnitInfo.FileReadOnly:=not FileIsWritable(ActiveUnitInfo.Filename);
   
   // if this file is part of the project and the project is virtual then save
@@ -7833,6 +7834,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.476  2003/03/07 13:32:40  mattias
+  fixed checking readonly for non existing files
+
   Revision 1.475  2003/03/07 11:41:21  mattias
   fixed readonly check and added script to quick create lazarus snapshot