equal
deleted
inserted
replaced
203 | currentList idx char completionString| |
203 | currentList idx char completionString| |
204 |
204 |
205 currentList := self list. |
205 currentList := self list. |
206 idx := typedString size + 1. |
206 idx := typedString size + 1. |
207 [ |
207 [ |
208 (currentList allSatisfy:[:s|s size >= idx]) and:[ |
208 (currentList conform:[:s|s size >= idx]) |
|
209 and:[ |
209 char := currentList anyOne at:idx. |
210 char := currentList anyOne at:idx. |
210 currentList allSatisfy:[:s|(s at:idx) == char] |
211 currentList conform:[:s|(s at:idx) == char] |
211 ] |
212 ] |
212 ] whileTrue:[ |
213 ] whileTrue:[ |
213 idx := idx + 1. |
214 idx := idx + 1. |
214 ]. |
215 ]. |
215 completionString := currentList anyOne copyFrom:(typedString size + 1) to:idx - 1. |
216 completionString := currentList anyOne copyFrom:(typedString size + 1) to:idx - 1. |
300 ! ! |
301 ! ! |
301 |
302 |
302 !CodeCompletionMenu class methodsFor:'documentation'! |
303 !CodeCompletionMenu class methodsFor:'documentation'! |
303 |
304 |
304 version_CVS |
305 version_CVS |
305 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeCompletionMenu.st,v 1.4 2013-01-17 10:39:42 cg Exp $' |
306 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeCompletionMenu.st,v 1.5 2013-09-05 23:19:02 cg Exp $' |
306 ! |
307 ! |
307 |
308 |
308 version_SVN |
309 version_SVN |
309 ^ '§Id: Tools__CodeCompletionMenu.st 7690 2011-03-19 02:23:25Z vranyj1 §' |
310 ^ '$Id: Tools__CodeCompletionMenu.st,v 1.5 2013-09-05 23:19:02 cg Exp $' |
310 ! ! |
311 ! ! |
311 |
312 |