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;
|
