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 |
213 ! ! |
211 ! ! |
214 |
212 |
215 !EditTextViewCompletionSupport methodsFor:'private'! |
213 !EditTextViewCompletionSupport methodsFor:'private'! |
216 |
214 |
217 computeAndShowCompletions |
215 computeAndShowCompletions |
218 "Actually compute the completions and update the completion view." |
216 "compute completions, then push an event to show them" |
219 |
217 |
220 self subclassResponsibility |
218 |completions| |
221 |
219 |
222 "Created: / 15-07-2019 / 17:29:50 / Claus Gittinger" |
220 completions := self computeCompletions. |
|
221 completions notEmptyOrNil ifTrue:[ |
|
222 self assert:completions isArray. |
|
223 self assert:completions size == 4. |
|
224 editView sensor |
|
225 pushUserEvent:#'suggestionsArrived:implementations:actions:autoSelect:' |
|
226 for:self |
|
227 withArguments:completions |
|
228 ]. |
|
229 |
|
230 "Created: / 15-07-2019 / 17:29:54 / Claus Gittinger" |
|
231 "Modified: / 24-07-2019 / 07:53:35 / Claus Gittinger" |
223 ! |
232 ! |
224 |
233 |
225 computeCompletions |
234 computeCompletions |
226 "Actually compute the completions and update the completion view." |
235 "Actually compute the completions and update the completion view." |
227 |
236 |