# HG changeset patch # User Claus Gittinger # Date 1378423142 -7200 # Node ID b94a5e51891884156784bed6c63d45e40221adf2 # Parent 97b651d7697258806580894f791ce62a267a45e2 class: Tools::CodeCompletionMenu changed: #tabKeyPressX:y: (send #conform: instead of #allSatisfy:) diff -r 97b651d76972 -r b94a5e518918 Tools__CodeCompletionMenu.st --- a/Tools__CodeCompletionMenu.st Fri Sep 06 01:18:30 2013 +0200 +++ b/Tools__CodeCompletionMenu.st Fri Sep 06 01:19:02 2013 +0200 @@ -205,9 +205,10 @@ currentList := self list. idx := typedString size + 1. [ - (currentList allSatisfy:[:s|s size >= idx]) and:[ + (currentList conform:[:s|s size >= idx]) + and:[ char := currentList anyOne at:idx. - currentList allSatisfy:[:s|(s at:idx) == char] + currentList conform:[:s|(s at:idx) == char] ] ] whileTrue:[ idx := idx + 1. @@ -302,10 +303,10 @@ !CodeCompletionMenu class methodsFor:'documentation'! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeCompletionMenu.st,v 1.4 2013-01-17 10:39:42 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeCompletionMenu.st,v 1.5 2013-09-05 23:19:02 cg Exp $' ! version_SVN - ^ '§Id: Tools__CodeCompletionMenu.st 7690 2011-03-19 02:23:25Z vranyj1 §' + ^ '$Id: Tools__CodeCompletionMenu.st,v 1.5 2013-09-05 23:19:02 cg Exp $' ! !