From 1ba0b4c2457c622fa0cbe0f53d5dbc167f8cc30c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 18 Aug 2002 08:56:57 +0000
Subject: [PATCH] added published properties for gtkglarea

git-svn-id: trunk@3005 -
---
 ide/main.pp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/ide/main.pp b/ide/main.pp
index 024b13f998..49d9a0cb72 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -7893,6 +7893,7 @@ begin
         Project1.MainUnitInfo.Source,
         AComponent.ClassName,AComponent.Name,
         NewClassName,NewName,true);
+      Project1.MainUnitInfo.Modified:=true;
       ApplyCodeToolChanges;
       if not BossResult then begin
         DoJumpToCodeToolBossError;
@@ -8675,6 +8676,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.562  2003/05/09 14:21:25  mattias
+  added published properties for gtkglarea
+
   Revision 1.561  2003/05/09 13:24:32  mattias
   fixed renaming unit