[Instantobjects-cvscommit] Source/Design InstantClassEditor.pas,1.5,1.6

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

Update of /cvsroot/instantobjects/Source/Design
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20183

Modified Files:
	InstantClassEditor.pas 
Log Message:
Updates to EditAttribute method to support changes to 
Attribute Editor.

Index: InstantClassEditor.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Design/InstantClassEditor.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** InstantClassEditor.pas	11 Feb 2005 16:06:43 -0000	1.5
--- InstantClassEditor.pas	24 Feb 2005 00:14:37 -0000	1.6
***************
*** 25,29 ****
   *
   * Contributor(s):
!  * Carlo Barazzetta, Adrea Petrelli, Nando Dessena
   *
   * ***** END LICENSE BLOCK ***** *)
--- 25,29 ----
   *
   * Contributor(s):
!  * Carlo Barazzetta, Adrea Petrelli, Steven Mitchell
   *
   * ***** END LICENSE BLOCK ***** *)
***************
*** 295,298 ****
--- 295,309 ----
    Attribute: TInstantCodeAttribute; Exists: Boolean;
    const Title: string): Boolean;
+ 
+   function GetClassStorageName: String;
+   begin
+     if Attribute.Metadata.ClassMetadata.StorageName <> '' then
+       Result := Attribute.Metadata.ClassMetadata.StorageName
+     else
+       Result := Attribute.Metadata.ClassMetadata.Name;
+ 
+     Result := Remove_T_FromClassName(Result);
+   end;
+ 
  begin
    with TInstantAttributeEditorForm.Create(nil) do
***************
*** 301,304 ****
--- 312,316 ----
        Caption := Title;
      Model := Self.Model;
+     BaseClassStorageName := GetClassStorageName;
      Subject := Attribute;
      Limited := Exists;
***************
*** 642,643 ****
--- 654,657 ----
  
  end.
+ 
+