[squeak-dev] The Trunk: Files-mtf.94.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jan 20 19:00:02 UTC 2011


Matthew Fulmer uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-mtf.94.mcz

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

Name: Files-mtf.94
Author: mtf
Time: 20 January 2011, 1:59:44.744 pm
UUID: 4cf735eb-8d1f-4172-a313-9013986b7b01
Ancestors: Files-mtf.93

made a preference that, if enabled, pops up a debugger on FileDoesNotExistException, rather than showing the poppup menu and letting the user decide what to do. I find this much more useful. Default behavior is the same as before

=============== Diff against Files-mtf.93 ===============

Item was changed:
  FileStreamException subclass: #FileDoesNotExistException
  	instanceVariableNames: 'readOnly'
+ 	classVariableNames: 'ShowDebugger'
- 	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Files-Exceptions'!

Item was added:
+ ----- Method: FileDoesNotExistException class>>showDebugger (in category 'debugging') -----
+ showDebugger
+ 	<preference: 'Debug FileDoesNotExistException'
+ 		category: 'debug'
+ 		description: 'If enabled, FileDoesNotExistException pops up a debugger. If disabled, gives the user the option of changing the file name'
+ 		type: #Boolean>
+ 	^ShowDebugger ifNil: [false]!

Item was added:
+ ----- Method: FileDoesNotExistException class>>showDebugger: (in category 'debugging') -----
+ showDebugger: aBoolean
+ 	^ShowDebugger := aBoolean!

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

Item was changed:
  ----- Method: FileExistsException>>defaultAction (in category 'exceptionDescription') -----
  defaultAction
  	"The default action taken if the exception is signaled."
  
+ 	FileDoesNotExistException showDebugger ifTrue: [^ super defaultAction].
  	^ self fileClass fileExistsUserHandling: self fileName
  !




More information about the Squeak-dev mailing list