Changeset 250 for Include

Timestamp:

May 17, 2007, 3:11:12 AM (18 years ago)

Author:

dai

Message:

TypeInfo.ToStringメソッドを実装。
TypeInfo.FullNameメソッドを修正。

File:

• Include/Classes/System/TypeInfo.ab (modified) (2 diffs)

Include/Classes/System/TypeInfo.ab

@@ -16 +16 @@
     Override Function GetType() As TypeInfo
         Return _System_TypeBase.selfTypeInfo
+    End Function
+
+    Override Function ToString() As String
+        Return FullName()
     End Function
 
@@ -102 +106 @@
 
     Override Function FullName() As String
-        Return strNamespace + "." + name
+        If strNamespace.Length > 0 Then
+            Return strNamespace + "." + name
+        End If
+        Return name
     End Function