Yes, that&#39;s better!<br><br><div class="gmail_quote">2011/3/14  <span dir="ltr">&lt;<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>&gt;</span><br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">

Levente Uzonyi uploaded a new version of ToolBuilder-Morphic to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/ToolBuilder-Morphic-ul.76.mcz" target="_blank">http://source.squeak.org/trunk/ToolBuilder-Morphic-ul.76.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: ToolBuilder-Morphic-ul.76<br>
Author: ul<br>
Time: 14 March 2011, 11:56:35.317 pm<br>
UUID: 610deaa7-94fb-5148-84ae-1502dc241b84<br>
Ancestors: ToolBuilder-Morphic-ul.75<br>
<br>
Show prefix matches at the front of the list in ListChooser. Select &quot;find class...&quot; from the browser menu and type Object to see the difference.<br>
<br>
=============== Diff against ToolBuilder-Morphic-ul.75 ===============<br>
<br>
Item was changed:<br>
  ----- Method: ListChooser&gt;&gt;updateFilter (in category &#39;event handling&#39;) -----<br>
  updateFilter<br>
        selectedItems :=<br>
                searchText isEmptyOrNil<br>
                        ifTrue: [ fullList ]<br>
+                       ifFalse: [<br>
+                               | prefixMatches otherMatches |<br>
+                               prefixMatches := OrderedCollection new.<br>
+                               otherMatches := OrderedCollection new.<br>
+                               fullList do: [ :each |<br>
+                                       | index |<br>
+                                       index := each findString: searchText startingAt: 1 caseSensitive: false.<br>
+                                       index = 1 ifTrue: [ prefixMatches add: each ].<br>
+                                       index &gt; 1 ifTrue: [ otherMatches add: each ] ].<br>
+                               prefixMatches<br>
+                                       addAllLast: otherMatches;<br>
+                                       yourself ].<br>
-                       ifFalse: [ fullList select: [ :each | each includesSubstring: searchText caseSensitive: false  ] ].<br>
        self changed: #list.<br>
        self selectedIndex: 1.<br>
        self changed: #selectedIndex.!<br>
<br>
<br>
</blockquote></div><br>