[Instantobjects-cvscommit] SF.net SVN: instantobjects: [740] trunk/Source/Design/InstantModelExplorer. pas

[<sr...@us...>]

Revision: 740
          http://svn.sourceforge.net/instantobjects/revision/?rev=740&view=rev
Author:   srmitch
Date:     2006-12-10 20:12:04 -0800 (Sun, 10 Dec 2006)

Log Message:
-----------
- Added remainder of fix for SF BT 1612909 - "AV from IO Model Explorer with second model unit". First part of fix already committed to InstantCode.pas in previous SVN update.

Modified Paths:
--------------
    trunk/Source/Design/InstantModelExplorer.pas

Modified: trunk/Source/Design/InstantModelExplorer.pas
===================================================================
--- trunk/Source/Design/InstantModelExplorer.pas	2006-12-11 01:06:06 UTC (rev 739)
+++ trunk/Source/Design/InstantModelExplorer.pas	2006-12-11 04:12:04 UTC (rev 740)
@@ -513,7 +513,14 @@
   if Assigned(BaseClass) then
     NewClass.Persistence := BaseClass.Persistence;
   if EditClass(NewClass, True) then
-    UpdateModel
+  begin
+    if NewClass.Module.Name <> Module.Name then
+    begin
+      Module.RemoveType(NewClass);
+      NewClass.Module.InsertType(NewClass);
+    end;
+    UpdateModel;
+  end
   else
     NewClass.Free
 end;