--- a/DebugView.st Tue Jun 20 12:19:52 2017 +0200
+++ b/DebugView.st Tue Jun 20 12:20:46 2017 +0200
@@ -608,14 +608,14 @@
withMessage:('[',ex originalSignal class name,']: ',ex descriptionForDebugger)
mayProceed:(ex mayProceed).
- (retValFromDebugger isNil and:[ ex mayProceed ]) ifTrue:[
-'retval from debugger: ' print. retValFromDebugger printCR.
-'ex: ' print. ex class printCR.
+ (retValFromDebugger isNil and:[ ex notNil and:[ex mayProceed ]]) ifTrue:[
+ "/ 'retval from debugger: ' print. retValFromDebugger printCR.
+ "/ 'ex: ' print. ex class printCR.
^ ex defaultResumeValue
].
^ retValFromDebugger
- "Modified: / 20-06-2017 / 12:13:14 / cg"
+ "Modified: / 20-06-2017 / 12:20:22 / cg"
!
enterUnconditional:aContext withMessage:aString mayProceed:mayProceed