Changeset 207 for Include/Classes/System/Diagnostics/base.ab

Timestamp:

Apr 7, 2007, 3:03:38 PM (17 years ago)

Author:

dai

Message:

動的型情報（Object.GetType）に対応。
戻り値やクラスメンバがオブジェクトだったとき、その初期値をNothingにした（※戻り値として関数名を使っている部分、要注意！！）。

File:

• Include/Classes/System/Diagnostics/base.ab (modified) (1 diff)

Include/Classes/System/Diagnostics/base.ab

@@ -12 +12 @@
     ' コンストラクタ
     Sub _System_TraceBase()
-        Dim defaultTraceListener As DefaultTraceListener
-        listeners.Add( defaultTraceListener )
+        listeners = New TraceListenerCollection
+        listeners.Add( New DefaultTraceListener() )
 
         indentLevel = 0