The Trunk: Exceptions-nice.22.mcz

Nicolas Cellier uploaded a new version of Exceptions to project The Trunk:
http://source.squeak.org/trunk/Exceptions-nice.22.mcz

==================== Summary ====================

Name: Exceptions-nice.22
Author: nice
Time: 6 March 2010, 9:54:02.05 pm
UUID: 0d10d84e-963d-ea41-9ceb-2a48cf754526
Ancestors: Exceptions-ar.21

Move File exceptions in Files package

=============== Diff against Exceptions-ar.21 ===============

Item was removed:
- ----- Method: FileDoesNotExistException>>defaultAction (in category 'exceptionDescription') -----
- defaultAction
- "The default action taken if the exception is signaled."
-
-
- ^self readOnly
- ifTrue: [StandardFileStream readOnlyFileDoesNotExistUserHandling: self fileName]
- ifFalse: [StandardFileStream fileDoesNotExistUserHandling: self fileName]
- !

Item was removed:
- ----- Method: FileExistsException class>>fileName:fileClass: (in category 'exceptionInstantiator') -----
- fileName: aFileName fileClass: aClass
- ^ self new
- fileName: aFileName;
- fileClass: aClass!

Item was removed:
- ----- Method: FileStreamException>>messageText (in category 'exceptionDescription') -----
- messageText
-
- "Return an exception's message text."
-
- ^messageText == nil
- ifTrue: [fileName printString]
- ifFalse: [messageText]!

Item was removed:
- FileStreamException subclass: #FileDoesNotExistException
- instanceVariableNames: 'readOnly'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Exceptions-Kernel'!

Item was removed:
- ----- Method: FileDoesNotExistException>>readOnly: (in category 'accessing') -----
- readOnly: aBoolean
- readOnly := aBoolean!

Item was removed:
- ----- Method: FileExistsException>>fileClass (in category 'accessing') -----
- fileClass
- ^ fileClass ifNil: [StandardFileStream]!

Item was removed:
- ----- Method: FileStreamException class>>fileName: (in category 'exceptionInstantiator') -----
- fileName: aFileName
- ^self new fileName: aFileName!

Item was removed:
- ----- Method: FileDoesNotExistException class>>example (in category 'examples') -----
- example
- "FileDoesNotExistException example"
-
- | result |
- result := [(StandardFileStream readOnlyFileNamed: 'error42.log') contentsOfEntireFile]
- on: FileDoesNotExistException
- do: [:ex | 'No error log'].
- Transcript show: result; cr!

Item was removed:
- ----- Method: FileExistsException>>fileClass: (in category 'accessing') -----
- fileClass: aClass
- fileClass := aClass!

Item was removed:
- ----- Method: FileStreamException>>isResumable (in category 'exceptionDescription') -----
- isResumable
- "Determine whether an exception is resumable."
-
- ^true!

Item was removed:
- ----- Method: FileStreamException>>fileName (in category 'exceptionDescription') -----
- fileName
- ^fileName!

Item was removed:
- Error subclass: #FileStreamException
- instanceVariableNames: 'fileName'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Exceptions-Kernel'!

Item was removed:
- ----- Method: FileExistsException>>defaultAction (in category 'exceptionDescription') -----
- defaultAction
- "The default action taken if the exception is signaled."
-
- ^ self fileClass fileExistsUserHandling: self fileName
- !

Item was removed:
- FileStreamException subclass: #CannotDeleteFileException
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Exceptions-Kernel'!

Item was removed:
- ----- Method: FileStreamException>>fileName: (in category 'exceptionBuilder') -----
- fileName: aFileName
- fileName := aFileName!

Item was removed:
- ----- Method: FileDoesNotExistException>>readOnly (in category 'accessing') -----
- readOnly
- ^readOnly == true!

Item was removed:
- FileStreamException subclass: #FileExistsException
- instanceVariableNames: 'fileClass'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Exceptions-Kernel'!