equal
deleted
inserted
replaced
5215 DebuggingDebugger ~~ true ifTrue:[ |
5215 DebuggingDebugger ~~ true ifTrue:[ |
5216 (signal == ActivityNotification) ifTrue:[ |
5216 (signal == ActivityNotification) ifTrue:[ |
5217 ex proceed |
5217 ex proceed |
5218 ]. |
5218 ]. |
5219 "/ |
5219 "/ |
|
5220 "/ ignore exceptions which say they explicitly have to be ignored |
|
5221 "/ |
|
5222 ex catchInDebugger ifTrue:[ |
|
5223 'DebugView [info]: ',signal printString,'-signal in debugger cought for close' infoPrintCR. |
|
5224 self destroy. |
|
5225 ex reject |
|
5226 ]. |
|
5227 |
|
5228 "/ |
5220 "/ ignore recursive breakpoints |
5229 "/ ignore recursive breakpoints |
5221 "/ |
5230 "/ |
5222 (signal isControlInterrupt) ifTrue:[ |
5231 (signal isControlInterrupt) ifTrue:[ |
5223 ignoreBreakpoints == true ifTrue:[ |
5232 ignoreBreakpoints == true ifTrue:[ |
5224 'DebugView [info]: halt/break in debugger ignored 1' infoPrintCR. |
5233 'DebugView [info]: halt/break in debugger ignored 1' infoPrintCR. |
6057 ! ! |
6066 ! ! |
6058 |
6067 |
6059 !DebugView class methodsFor:'documentation'! |
6068 !DebugView class methodsFor:'documentation'! |
6060 |
6069 |
6061 version |
6070 version |
6062 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.422 2007-10-15 14:48:39 cg Exp $' |
6071 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.423 2007-11-07 10:38:33 ca Exp $' |
6063 ! ! |
6072 ! ! |
6064 |
6073 |
6065 DebugView initialize! |
6074 DebugView initialize! |