[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
|