From b72a2cc04c2d9d855e5ed8080a443541c3aa901b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 14 Jan 2012 13:52:25 +0000
Subject: [PATCH] IDE: fixed comment

git-svn-id: trunk@34730 -
---
 ide/main.pp    | 2 +-
 ide/project.pp | 7 +++++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ide/main.pp b/ide/main.pp
index a187044fd8..1d8ff1f94f 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -364,7 +364,7 @@ type
     procedure mnuToolConfigBuildLazClicked(Sender: TObject);
     procedure mnuCustomExtToolClick(Sender: TObject);
 
-    // environment menu
+    // options menu
     procedure mnuEnvGeneralOptionsClicked(Sender: TObject);
     procedure mnuEnvEditorOptionsClicked(Sender: TObject);
     procedure mnuEnvCodeTemplatesClicked(Sender: TObject);
diff --git a/ide/project.pp b/ide/project.pp
index 42f1ab8771..7422126d2e 100644
--- a/ide/project.pp
+++ b/ide/project.pp
@@ -3870,6 +3870,13 @@ end;
 
 procedure TProject.SetModified(const AValue: boolean);
 begin
+  {$IFDEF VerboseTProjectSetModified}
+  if (not Modified) and AValue then begin
+    debugln(['TProject.SetModified ']);
+    DumpStack;
+  end;
+  {$ENDIF}
+
   if fDestroying then exit;
   inherited SetModified(AValue);
   if not AValue then