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

[<dav...@us...>]

Revision: 957
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=957&view=rev
Author:   davidvtaylor
Date:     2012-01-29 04:09:48 +0000 (Sun, 29 Jan 2012)
Log Message:
-----------
* Disable Model Explorer "New" popup menu item to avoid an AV when the IO model is empty

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

Modified: trunk/Source/Design/InstantAttributeView.pas
===================================================================
--- trunk/Source/Design/InstantAttributeView.pas	2012-01-28 20:08:32 UTC (rev 956)
+++ trunk/Source/Design/InstantAttributeView.pas	2012-01-29 04:09:48 UTC (rev 957)
@@ -488,6 +488,7 @@
     PopulateIntroducedAttributes;
     PopulateInheritedAttributes;
   end;
+  UpdateActions;
 end;
 
 procedure TInstantAttributeViewFrame.StoreLayout;
@@ -518,6 +519,7 @@
 begin
   inherited;
   Attribute := FocusedAttribute;
+  AttributeNewItem.Enabled := Assigned(Subject);
   AttributeEditAction.Enabled := Assigned(Attribute);
   AttributeDeleteAction.Enabled := Assigned(Attribute);
 end;