equal
deleted
inserted
replaced
244 [ |
244 [ |
245 "/ protect end-user applications from errors |
245 "/ protect end-user applications from errors |
246 Error handle:[:ex | |
246 Error handle:[:ex | |
247 Smalltalk isSmalltalkDevelopmentSystem ifTrue:[ ex reject ] |
247 Smalltalk isSmalltalkDevelopmentSystem ifTrue:[ ex reject ] |
248 ] do:[ |
248 ] do:[ |
249 (editView topView isKindOf:DebugView) ifTrue:[ |
249 (editView topView isDebugView) ifTrue:[ |
250 ControlInterrupt ignoreIn:[ |
250 ControlInterrupt ignoreIn:[ |
251 self computeCompletions. |
251 self computeCompletions. |
252 ]. |
252 ]. |
253 ] ifFalse:[ |
253 ] ifFalse:[ |
254 self computeCompletions. |
254 self computeCompletions. |