[Instantobjects-cvscommit] Source/Design InstantClassEditor.pas,1.7,1.8

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

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

Modified Files:
	InstantClassEditor.pas 
Log Message:
Fixed minor bug in GetClassStorageName local function. Apply 
Remove_T_FromClassName function to class name only.

Index: InstantClassEditor.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Design/InstantClassEditor.pas,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** InstantClassEditor.pas	21 Mar 2005 16:48:06 -0000	1.7
--- InstantClassEditor.pas	4 Apr 2005 04:52:19 -0000	1.8
***************
*** 301,307 ****
        Result := Attribute.Metadata.ClassMetadata.StorageName
      else
!       Result := Attribute.Metadata.ClassMetadata.Name;
  
-     Result := Remove_T_FromClassName(Result);
    end;
  
--- 301,306 ----
        Result := Attribute.Metadata.ClassMetadata.StorageName
      else
!       Result := Remove_T_FromClassName(Attribute.Metadata.ClassMetadata.Name);
  
    end;