--- a/EditTextViewCompletionSupport.st Fri Sep 14 17:08:06 2018 +0200
+++ b/EditTextViewCompletionSupport.st Fri Sep 14 22:20:46 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'stx:libwidg' }"
"{ NameSpace: Smalltalk }"
@@ -251,24 +253,30 @@
completionProcess :=
[
- "/ protect end-user applications from errors
- Error handle:[:ex |
- (ParseError accepts:ex creator) ifFalse:[
- Smalltalk isSmalltalkDevelopmentSystem ifTrue:[ ex reject ]
+ [
+ "/ protect end-user applications from errors
+ Error handle:[:ex |
+ (ParseError accepts:ex creator) ifFalse:[
+ Smalltalk isSmalltalkDevelopmentSystem ifTrue:[ ex reject ]
+ ].
+ ] do:[
+ (editView topView isDebugView) ifTrue:[
+ ControlInterrupt ignoreIn:[
+ self computeCompletions.
+ ].
+ ] ifFalse:[
+ self computeCompletions.
+ ].
].
- ] do:[
- (editView topView isDebugView) ifTrue:[
- ControlInterrupt ignoreIn:[
- self computeCompletions.
- ].
- ] ifFalse:[
- self computeCompletions.
- ].
- ].
+ ] ifCurtailed:[
+ completionView notNil ifTrue:[
+ completionView topView destroy
+ ].
+ ].
] forkAt:(Processor activePriority - 1).
"Modified: / 26-09-2013 / 17:36:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 13-08-2018 / 08:49:42 / Claus Gittinger"
+ "Modified: / 14-09-2018 / 22:05:12 / Claus Gittinger"
!
stopCompletionProcess
@@ -295,11 +303,14 @@
(v := completionView) notNil ifTrue:[
completionView := nil.
+
"/ let it close itself - avoids synchronization problems
v sensor
pushUserEvent:#value
for:[ v topView destroy ]
].
+
+ "Modified (format): / 14-09-2018 / 22:08:05 / Claus Gittinger"
!
openCompletionView