Changeset 291


Ignore:
Timestamp:
Aug 15, 2007, 4:24:27 AM (17 years ago)
Author:
dai
Message:

TraceListener.WriteLineIfメソッドを実装。
ArrayList内の未完成コードをコメントアウトした

Location:
Include/Classes/System
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • Include/Classes/System/Collections/ArrayList.ab

    r289 r291  
    319319
    320320    Static Function FixedSize(l As IList) As IList
    321         Return FixedSize(Adapter(l))
     321        ' TODO: 実装
     322        'Return FixedSize(Adapter(l))
    322323    End Function
    323324
     
    327328
    328329    Static Function ReadOnly(l As IList) As IList
    329         Return ReadOnly(Adapter(l))
     330        ' TODO: 実装
     331        'Return ReadOnly(Adapter(l))
    330332    End Function
    331333
     
    343345
    344346    Static Function Synchronized(l As IList) As IList
    345         Return Synchronized(Adapter(l))
     347        ' TODO: 実装
     348        'Return Synchronized(Adapter(l))
    346349    End Function
    347350
  • Include/Classes/System/Diagnostics/TraceListener.ab

    r290 r291  
    3838
    3939            '----------------------------------------------------------------
    40             ' パブリック コンストラクタ
     40            ' パブリック メソッド
    4141            '----------------------------------------------------------------
    4242
     
    8989            End Sub
    9090
     91            ' 条件をもとに文字列を出力
     92            Sub WriteLineIf( condition As Boolean, value As Object )
     93                If condition Then
     94                    WriteLine( value )
     95                End If
     96            End Sub
     97            Sub WriteLineIf( condition As Boolean, message As String )
     98                If condition Then
     99                    WriteLine( message )
     100                End If
     101            End Sub
     102            Sub WriteLineIf( condition As Boolean, value As Object, category As String )
     103                If condition Then
     104                    WriteLine( value, category )
     105                End If
     106            End Sub
     107            Sub WriteLineIf( condition As Boolean, message As String, category As String )
     108                If condition Then
     109                    WriteLine( message, category )
     110                End If
     111            End Sub
     112
    91113
    92114            '----------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.