Index: /Include/Classes/System/Diagnostics/Trace.ab
===================================================================
--- /Include/Classes/System/Diagnostics/Trace.ab	(revision 65)
+++ /Include/Classes/System/Diagnostics/Trace.ab	(revision 66)
@@ -1,81 +1,2 @@
-
-
-' リスナコレクション
-Class TraceListenerCollection
-	ppListeners As **TraceListener
-	count As Long
-Public
-
-	Sub TraceListenerCollection()
-		ppListeners = _System_malloc( 1 )
-	End Sub
-	Sub ~TraceListenerCollection()
-		Dim i As Long
-		For i = 0 To ELM( count )
-			Delete ppListeners[i]
-		Next
-		_System_free( ppListeners )
-	End Sub
-
-	'----------------------------------------------------------------
-	' パブリック メソッド
-	'----------------------------------------------------------------
-
-	' リスナを追加
-	Sub Add( listener As TraceListener ) As Long
-		ppListeners = _System_realloc( ppListeners, ( count + 1 ) * SizeOf( *TraceListener ) )
-		ppListeners[count] = New TraceListener( listener )
-		count++
-	End Sub
-
-	' 複数のリスナを追加
-	Sub AddRange( listeners As TraceListenerCollection )
-		' TODO: 実装
-	End Sub
-
-	' リストからすべてのリスナを削除
-	Sub Clear()
-		' TODO: 実装
-	End Sub
-
-	' 指定したリスナのインデックスを取得
-	Function IndexOf( listener As TraceListener )
-		' TODO: 実装
-	End Function
-
-	' リスナを挿入
-	Sub Insert( index As Long, listener As TraceListener )
-		' TODO: 実装
-	End Sub
-
-	' リスナを削除
-	Function Remove( name As String )
-		' TODO: 実装
-	End Function
-	Function Remove( listener As TraceListener )
-		' TODO: 実装
-	End Function
-
-
-	'----------------------------------------------------------------
-	' パブリック プロパティ
-	'----------------------------------------------------------------
-
-	' インデクサ ( Getter )
-	Function Operator[] ( index As Long ) As TraceListener
-		If index < 0 or count <= index Then
-			' TODO: エラー処理
-			debug
-		End If
-
-		Dim tempListener As TraceListener( ByVal ppListeners[index] )
-		Return tempListener
-	End Function
-
-	' 保有するリスナの数を取得する
-	Function Count() As Long
-		Return count
-	End Function
-End Class
 
 Class Trace
@@ -181,2 +102,5 @@
 
 End Class
+
+Dim _System_defaultTraceListener As DefaultTraceListener
+Trace.Listeners.Add( _System_defaultTraceListener )
Index: /Include/Classes/System/Diagnostics/TraceListenerCollection.ab
===================================================================
--- /Include/Classes/System/Diagnostics/TraceListenerCollection.ab	(revision 66)
+++ /Include/Classes/System/Diagnostics/TraceListenerCollection.ab	(revision 66)
@@ -0,0 +1,77 @@
+' リスナコレクション
+Class TraceListenerCollection
+	ppListeners As **TraceListener
+	count As Long
+Public
+
+	Sub TraceListenerCollection()
+		ppListeners = _System_malloc( 1 )
+	End Sub
+	Sub ~TraceListenerCollection()
+		Dim i As Long
+		For i = 0 To ELM( count )
+			Delete ppListeners[i]
+		Next
+		_System_free( ppListeners )
+	End Sub
+
+	'----------------------------------------------------------------
+	' パブリック メソッド
+	'----------------------------------------------------------------
+
+	' リスナを追加
+	Sub Add( listener As TraceListener ) As Long
+		ppListeners = _System_realloc( ppListeners, ( count + 1 ) * SizeOf( *TraceListener ) )
+		ppListeners[count] = New TraceListener( listener )
+		count++
+	End Sub
+
+	' 複数のリスナを追加
+	Sub AddRange( listeners As TraceListenerCollection )
+		' TODO: 実装
+	End Sub
+
+	' リストからすべてのリスナを削除
+	Sub Clear()
+		' TODO: 実装
+	End Sub
+
+	' 指定したリスナのインデックスを取得
+	Function IndexOf( listener As TraceListener )
+		' TODO: 実装
+	End Function
+
+	' リスナを挿入
+	Sub Insert( index As Long, listener As TraceListener )
+		' TODO: 実装
+	End Sub
+
+	' リスナを削除
+	Function Remove( name As String )
+		' TODO: 実装
+	End Function
+	Function Remove( listener As TraceListener )
+		' TODO: 実装
+	End Function
+
+
+	'----------------------------------------------------------------
+	' パブリック プロパティ
+	'----------------------------------------------------------------
+
+	' インデクサ ( Getter )
+	Function Operator[] ( index As Long ) As TraceListener
+		If index < 0 or count <= index Then
+			' TODO: エラー処理
+			debug
+		End If
+
+		Dim tempListener As TraceListener( ByVal ppListeners[index] )
+		Return tempListener
+	End Function
+
+	' 保有するリスナの数を取得する
+	Function Count() As Long
+		Return count
+	End Function
+End Class
Index: /Include/Classes/System/Diagnostics/index.ab
===================================================================
--- /Include/Classes/System/Diagnostics/index.ab	(revision 65)
+++ /Include/Classes/System/Diagnostics/index.ab	(revision 66)
@@ -1,3 +1,4 @@
-#include "Debug.ab"
-#include "Trace.ab"
-#include "TraceListener.ab"
+#require "Debug.ab"
+#require "Trace.ab"
+#require "TraceListener.ab"
+#require "TraceListenerCollection.ab"