Changeset 606 for trunk/ab5.0/ablib/src/Classes/System
- Timestamp:
- Aug 21, 2008, 10:21:19 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/System/Console.ab
r526 r606 10 10 Class Console 11 11 Public 12 /* 13 @brief 標準エラー出力を設定する 14 @date 2008/08/21 15 @auther Egtra 16 */ 17 Static Sub SetError(newErr As IO.TextWriter) 18 If ActiveBasic.IsNothing(newErr) Then 19 Throw New ArgumentNullException("newErr") 20 End If 21 err = newErr 22 End Sub 23 24 /* 25 @brief 標準エラー出力を取得する 26 @date 2008/08/21 27 @auther Egtra 28 */ 29 Static Function Error() As IO.TextWriter 30 Error = err 31 End Function 32 12 33 /* 13 34 @brief 標準出力を設定する … … 209 230 Static in = Nothing As IO.TextReader 210 231 Static out = Nothing As IO.TextWriter 232 Static err = Nothing As IO.TextWriter 211 233 Static cs = Nothing As ActiveBasic.Windows.CriticalSection 212 234 End Class
Note:
See TracChangeset
for help on using the changeset viewer.