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

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

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