[Pkg] The Trunk: Exceptions-nice.22.mcz

[commits at source.squeak.org]

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'!