hg/stx-libtool: comparison DebugView.st

equal deleted inserted replaced

-:3abcfccedc0c
+:9aac5620fff5
 SignalSet anySignal handle:[:ex |
 |answer signal|
 signal := ex signal.
-"/
+DebuggingDebugger ~~ true ifTrue:[
-"/ ignore recursive breakpoints
+"/
-"/
+"/ ignore recursive breakpoints
-signal == MessageTracer breakpointSignal ifTrue:[
+"/
-'breakpoint in debugger ignored' errorPrintNL.
+signal == MessageTracer breakpointSignal ifTrue:[
-ex proceed
+'breakpoint in debugger ignored' errorPrintNL.
-].
+ex proceed
-(signal == ActivityNotificationSignal) ifTrue:[
-ex proceed
-].
-signal == Exception recursiveExceptionSignal ifTrue:[
-ex parameter signal == MessageTracer breakpointSignal ifTrue:[
-'recursive breakpoint in debugger ignored' errorPrintNL.
-ex proceed.
 ].
+(signal == ActivityNotificationSignal) ifTrue:[
-self showError:'*** Recursive error in debugger:
+ex proceed
+].
+signal == Exception recursiveExceptionSignal ifTrue:[
+ex parameter signal == MessageTracer breakpointSignal ifTrue:[
+'recursive breakpoint in debugger ignored' errorPrintNL.
+ex proceed.
+].
+self showError:'*** Recursive error in debugger:
 >>>> Signal:  ' , ex signal printString , '
 >>>>          ' , ex parameter signal printString , '
 >>>> In:      ' , ex suspendedContext printString , '
 >>>> Message: ' , ex errorString , '
 cought & ignored.'.
 ex return
+].
 ].
 self topView raiseDeiconified.
 answer := Dialog
 ].
 ].
 catchBlock := nil.
 "Created: 24.11.1995 / 20:33:45 / cg"
-"Modified: 7.5.1996 / 10:04:41 / cg"
+"Modified: 23.10.1996 / 16:34:59 / cg"
 ! !
 !DebugView methodsFor:'user interaction'!
 codeAccept:someCode
 ! !
 !DebugView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.112 1996-10-23 00:20:50 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.113 1996-10-23 15:35:33 cg Exp $'
 ! !

changeset 801	9aac5620fff5
parent 799	6544afd4e2e5
child 803	f8371812c789