The Trunk: Kernel-mt.1274.mcz

Marcel Taeumel uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-mt.1274.mcz

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

Name: Kernel-mt.1274
Author: mt
Time: 9 October 2019, 3:31:08.214803 pm
UUID: 72b966cb-5325-794c-b6a3-068303a6b153
Ancestors: Kernel-eem.1273

For exception handling and debugging, untangle some dependencies between System and Kernel.

=============== Diff against Kernel-eem.1273 ===============

Item was changed:
+ ----- Method: Error>>defaultAction (in category 'priv handling') -----
- ----- Method: Error>>defaultAction (in category 'handling') -----
  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 changed:
+ ----- Method: Error>>isResumable (in category 'priv handling') -----
- ----- Method: Error>>isResumable (in category 'private') -----
  isResumable
  "Determine whether an exception is resumable."
 
  ^ false!

Item was changed:
+ ----- Method: Notification>>defaultAction (in category 'priv handling') -----
- ----- Method: Notification>>defaultAction (in category 'exceptionDescription') -----
  defaultAction
  "No action is taken. The value nil is returned as the value of the message that signaled the exception."
 
  ^nil!

Item was changed:
+ ----- Method: Notification>>isResumable (in category 'priv handling') -----
- ----- Method: Notification>>isResumable (in category 'exceptionDescription') -----
  isResumable
  "Answer true. Notification exceptions by default are specified to be resumable."
 
  ^true!

Item was removed:
- ----- Method: Process>>debug (in category 'debugging') -----
- debug
-
- ^ self debugWithTitle: 'Debug'!

Item was removed:
- ----- Method: Process>>debug: (in category 'debugging') -----
- debug: context
-
- ^ self debug: context title: 'Debug'!

Item was removed:
- ----- Method: Process>>debug:title: (in category 'debugging') -----
- debug: context title: title
- "Open debugger on self with context shown on top"
-
- ^ self debug: context title: title full: false
- !

Item was removed:
- ----- Method: Process>>debug:title:full: (in category 'debugging') -----
- debug: context title: title full: bool
-
- ^ self
- debug: context
- title: title
- full: bool
- contents: nil!

Item was removed:
- ----- Method: Process>>debug:title:full:contents: (in category 'debugging') -----
- debug: context title: title full: bool contents: contents
- "Open debugger on self with context shown on top"
-
- | topCtxt |
- topCtxt := self isActiveProcess ifTrue: [thisContext] ifFalse: [self suspendedContext].
- (topCtxt hasContext: context) ifFalse: [^ self error: 'context not in process'].
- ^ ToolSet debugProcess: self context: context label: title contents: contents fullView: bool!

Item was removed:
- ----- Method: Process>>debugWithTitle: (in category 'debugging') -----
- debugWithTitle: title
-
- ^ self debugWithTitle: title full: true!

Item was removed:
- ----- Method: Process>>debugWithTitle:full: (in category 'debugging') -----
- debugWithTitle: title full: aBoolean
-
- ^ self debugWithTitle: title full: aBoolean contents: nil!

Item was removed:
- ----- Method: Process>>debugWithTitle:full:contents: (in category 'debugging') -----
- debugWithTitle: title full: bool contents: contents
- "Automatically choose the top context."
-
- ^ self
- debug: (self isActiveProcess ifTrue: [thisContext] ifFalse: [self suspendedContext])
- title: title
- full: bool
- contents: contents!

Item was added:
+ ----- Method: UnhandledError>>defaultAction (in category 'priv handling') -----
+ defaultAction
+ "The current computation is terminated. The cause of the error should be logged or reported to the user. If the program is operating in an interactive debugging environment the computation should be suspended and the debugger activated."
+
+ ^ (Smalltalk classNamed: #ToolSet)
+ ifNotNil: [:ts | ts handleError: self exception]
+ ifNil: [Processor activeProcess terminate]!

Item was added:
+ ----- Method: UnhandledWarning>>defaultAction (in category 'priv handling') -----
+ defaultAction
+
+ ^ (Smalltalk classNamed: #ToolSet)
+ ifNotNil: [:ts | ts handleWarning: self exception]
+ ifNil: ["Ignore like a Notification." nil]!

Item was added:
+ ----- Method: Warning>>defaultAction (in category 'priv handling') -----
+ defaultAction
+ "Inform the user of a Warning, giving them the choice of ignoring the warning (proceeding), debugging, or terminating the computation."
+ UnhandledWarning signalForException: self!