The Trunk: System-fbs.575.mcz

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!