Revision: 711
http://svn.sourceforge.net/instantobjects/revision/?rev=711&view=rev
Author: srmitch
Date: 2006-11-01 19:51:57 -0800 (Wed, 01 Nov 2006)
Log Message:
-----------
- Fix for ModelMaker 8.20 attribute creation problem [SF BT 1589043].
Modified Paths:
--------------
trunk/Source/Design/InstantAttributeEditor.pas
Modified: trunk/Source/Design/InstantAttributeEditor.pas
===================================================================
--- trunk/Source/Design/InstantAttributeEditor.pas 2006-10-20 14:30:12 UTC (rev 710)
+++ trunk/Source/Design/InstantAttributeEditor.pas 2006-11-02 03:51:57 UTC (rev 711)
@@ -202,7 +202,8 @@
IsClassPersistent(FModel.Classes[I].Name)) then
ObjectClassEdit.Items.Add(FModel.Classes[I].Name);
end
- else if Assigned(ObjectClassEdit.Field) then
+ else if Assigned(ObjectClassEdit.Field) and
+ (ObjectClassEdit.Field.AsString <> '') then
ObjectClassEdit.Items.Add(ObjectClassEdit.Field.AsString)
else if Assigned(FOnLoadClasses) then
OnLoadClasses(Self, ObjectClassEdit.Items, NeedOnlyPersistentClasses);
|
