[squeak-dev] The Trunk: System-fbs.575.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jul 23 09:47:26 UTC 2013


Frank Shearar uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-fbs.575.mcz

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

Name: System-fbs.575
Author: fbs
Time: 23 July 2013, 10:44:49.423 am
UUID: c38f23ef-adbe-8846-89ae-890302b56859
Ancestors: System-fbs.574

Move Exceptions close to where they're used, rather than collecting them together just because they're Exceptions.

=============== Diff against System-fbs.574 ===============

Item was changed:
  SystemOrganization addCategory: #'System-Applications'!
  SystemOrganization addCategory: #'System-Change Notification'!
  SystemOrganization addCategory: #'System-Changes'!
  SystemOrganization addCategory: #'System-Digital Signatures'!
  SystemOrganization addCategory: #'System-Download'!
  SystemOrganization addCategory: #'System-FilePackage'!
  SystemOrganization addCategory: #'System-FileRegistry'!
  SystemOrganization addCategory: #'System-Finalization'!
  SystemOrganization addCategory: #'System-Localization'!
  SystemOrganization addCategory: #'System-Object Events'!
  SystemOrganization addCategory: #'System-Object Storage'!
  SystemOrganization addCategory: #'System-Pools'!
  SystemOrganization addCategory: #'System-Preferences'!
  SystemOrganization addCategory: #'System-Serial Port'!
  SystemOrganization addCategory: #'System-Support'!
  SystemOrganization addCategory: #'System-Tools'!
+ SystemOrganization addCategory: #'System-Exceptions'!

Item was added:
+ Exception subclass: #Abort
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'System-Exceptions'!

Item was added:
+ ----- Method: Abort>>defaultAction (in category 'as yet unclassified') -----
+ defaultAction
+ 	"No one has handled this error, but now give them a chance to decide how to debug it.  If none handle this either then open debugger (see UnhandedError-defaultAction)"
+ 
+ 	UnhandledError signalForException: self!

Item was added:
+ Notification subclass: #ProgressNotification
+ 	instanceVariableNames: 'amount done extra'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'System-Exceptions'!
+ 
+ !ProgressNotification commentStamp: '<historical>' prior: 0!
+ Used to signal progress without requiring a specific receiver to notify. Caller/callee convention could be to simply count the number of signals caught or to pass more substantive information with #signal:.!

Item was added:
+ ----- Method: ProgressNotification class>>signal:extra: (in category 'exceptionInstantiator') -----
+ signal: signalerText extra: extraParam
+ 	"TFEI - Signal the occurrence of an exceptional condition with a specified textual description."
+ 
+ 	| ex |
+ 	ex := self new.
+ 	ex extraParam: extraParam.
+ 	^ex signal: signalerText!

Item was added:
+ ----- Method: ProgressNotification>>amount (in category 'accessing') -----
+ amount
+ 	^amount!

Item was added:
+ ----- Method: ProgressNotification>>amount: (in category 'accessing') -----
+ amount: aNumber
+ 	amount := aNumber!

Item was added:
+ ----- Method: ProgressNotification>>done (in category 'accessing') -----
+ done
+ 	^done!

Item was added:
+ ----- Method: ProgressNotification>>done: (in category 'accessing') -----
+ done: aNumber
+ 	done := aNumber!

Item was added:
+ ----- Method: ProgressNotification>>extraParam (in category 'accessing') -----
+ extraParam
+ 	^extra!

Item was added:
+ ----- Method: ProgressNotification>>extraParam: (in category 'accessing') -----
+ extraParam: anObject
+ 	extra := anObject!

Item was added:
+ Notification subclass: #ProgressTargetRequestNotification
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'System-Exceptions'!
+ 
+ !ProgressTargetRequestNotification commentStamp: '<historical>' prior: 0!
+ I am used to allow the ComplexProgressIndicator one last chance at finding an appropriate place to display. If I am unhandled, then the cursor location and a default rectangle are used.!

Item was added:
+ ----- Method: ProgressTargetRequestNotification>>defaultAction (in category 'as yet unclassified') -----
+ defaultAction
+ 
+ 	self resume: nil!

Item was added:
+ Notification subclass: #ProjectEntryNotification
+ 	instanceVariableNames: 'projectToEnter'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'System-Exceptions'!
+ 
+ !ProjectEntryNotification commentStamp: '<historical>' prior: 0!
+ I provide a way to override the style of Project entry (which is buried deep in several different methods). My default is a normal full-screen enter.!

Item was added:
+ ----- Method: ProjectEntryNotification class>>signal: (in category 'as yet unclassified') -----
+ signal: aProject
+ 
+ 	| ex |
+ 	ex := self new.
+ 	ex projectToEnter: aProject.
+ 	^ex signal: 'Entering ',aProject printString!

Item was added:
+ ----- Method: ProjectEntryNotification>>defaultAction (in category 'as yet unclassified') -----
+ defaultAction
+ 
+ 	self resume: projectToEnter enter!

Item was added:
+ ----- Method: ProjectEntryNotification>>projectToEnter (in category 'as yet unclassified') -----
+ projectToEnter
+ 
+ 	^projectToEnter!

Item was added:
+ ----- Method: ProjectEntryNotification>>projectToEnter: (in category 'as yet unclassified') -----
+ projectToEnter: aProject
+ 
+ 	projectToEnter := aProject!

Item was added:
+ Notification subclass: #ProjectPasswordNotification
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'System-Exceptions'!

Item was added:
+ ----- Method: ProjectPasswordNotification>>defaultAction (in category 'as yet unclassified') -----
+ defaultAction
+ 
+ 	self resume: ''!

Item was added:
+ Notification subclass: #ProjectViewOpenNotification
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'System-Exceptions'!
+ 
+ !ProjectViewOpenNotification commentStamp: '<historical>' prior: 0!
+ ProjectViewOpenNotification is signalled to determine if a ProjectViewMorph is needed for a newly created project. The default answer is yes.!

Item was added:
+ ----- Method: ProjectViewOpenNotification>>defaultAction (in category 'as yet unclassified') -----
+ defaultAction
+ 
+ 	self resume: true!



More information about the Squeak-dev mailing list