equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 "{ Package: 'stx:libwidg' }" |
1 "{ Package: 'stx:libwidg' }" |
4 |
2 |
5 "{ NameSpace: Smalltalk }" |
3 "{ NameSpace: Smalltalk }" |
6 |
4 |
7 Object subclass:#EditTextViewCompletionSupport |
5 Object subclass:#EditTextViewCompletionSupport |
253 |
251 |
254 completionProcess := |
252 completionProcess := |
255 [ |
253 [ |
256 "/ protect end-user applications from errors |
254 "/ protect end-user applications from errors |
257 Error handle:[:ex | |
255 Error handle:[:ex | |
258 Smalltalk isSmalltalkDevelopmentSystem ifTrue:[ ex reject ] |
256 (ParseError accepts:ex creator) ifFalse:[ |
|
257 Smalltalk isSmalltalkDevelopmentSystem ifTrue:[ ex reject ] |
|
258 ]. |
259 ] do:[ |
259 ] do:[ |
260 (editView topView isDebugView) ifTrue:[ |
260 (editView topView isDebugView) ifTrue:[ |
261 ControlInterrupt ignoreIn:[ |
261 ControlInterrupt ignoreIn:[ |
262 self computeCompletions. |
262 self computeCompletions. |
263 ]. |
263 ]. |
266 ]. |
266 ]. |
267 ]. |
267 ]. |
268 ] forkAt:(Processor activePriority - 1). |
268 ] forkAt:(Processor activePriority - 1). |
269 |
269 |
270 "Modified: / 26-09-2013 / 17:36:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
270 "Modified: / 26-09-2013 / 17:36:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
271 "Modified: / 13-08-2018 / 08:49:42 / Claus Gittinger" |
271 ! |
272 ! |
272 |
273 |
273 stopCompletionProcess |
274 stopCompletionProcess |
274 "kill any background completion process" |
275 "kill any background completion process" |
275 |
276 |
372 ]. |
373 ]. |
373 |
374 |
374 "Created: / 26-09-2013 / 17:07:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
375 "Created: / 26-09-2013 / 17:07:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
375 ! ! |
376 ! ! |
376 |
377 |
|
378 |
377 !EditTextViewCompletionSupport class methodsFor:'documentation'! |
379 !EditTextViewCompletionSupport class methodsFor:'documentation'! |
378 |
380 |
379 version |
381 version |
380 ^ '$Header$' |
382 ^ '$Header$' |
381 ! |
383 ! |