--- a/NewSystemBrowser.st	Tue May 03 17:48:14 2011 +0200
+++ b/NewSystemBrowser.st	Tue May 03 17:49:29 2011 +0200
@@ -16989,16 +16989,18 @@
                         ].
     ].
 
-"/    box entryCompletionBlock:[:contents |
-"/        |s what m|
-"/
-"/        s := contents withoutSpaces.
-"/        what := Smalltalk classnameCompletion:s.
-"/        box contents:what first.
-"/        (what at:2) size ~~ 1 ifTrue:[
-"/            self builder window beep
-"/        ]
-"/    ].
+    box entryCompletionBlock:[:contents |
+        |s what m|
+
+        s := contents withoutSpaces.
+        what := Smalltalk classnameCompletion:s.
+        box contents:what first.
+        (what at:2) size ~~ 1 ifTrue:[
+            self builder window beep
+        ].
+        box listView list:(list select:[:entry | s match:entry]).
+    ].
+
     box action:[:aString | varNameString := aString].
     box showAtPointer.
 
@@ -23254,7 +23256,7 @@
      singleSelection singleClass doSelect|
 
     doSelect := doSelectIn.
-    (singleSelection := (classes size == 1)) ifTrue:[
+    false "(singleSelection := (classes size == 1))" ifTrue:[
         spec := #singleClassBrowserSpec.
         singleClass := classes first.
         meta := singleClass isMeta.
@@ -45701,11 +45703,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1532 2011-04-20 17:22:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1533 2011-05-03 15:49:29 mb Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1532 2011-04-20 17:22:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1533 2011-05-03 15:49:29 mb Exp $'
 ! !
 
 NewSystemBrowser initialize!

--- a/Tools__NewSystemBrowser.st	Tue May 03 17:48:14 2011 +0200
+++ b/Tools__NewSystemBrowser.st	Tue May 03 17:49:29 2011 +0200
@@ -16989,16 +16989,18 @@
                         ].
     ].
 
-"/    box entryCompletionBlock:[:contents |
-"/        |s what m|
-"/
-"/        s := contents withoutSpaces.
-"/        what := Smalltalk classnameCompletion:s.
-"/        box contents:what first.
-"/        (what at:2) size ~~ 1 ifTrue:[
-"/            self builder window beep
-"/        ]
-"/    ].
+    box entryCompletionBlock:[:contents |
+        |s what m|
+
+        s := contents withoutSpaces.
+        what := Smalltalk classnameCompletion:s.
+        box contents:what first.
+        (what at:2) size ~~ 1 ifTrue:[
+            self builder window beep
+        ].
+        box listView list:(list select:[:entry | s match:entry]).
+    ].
+
     box action:[:aString | varNameString := aString].
     box showAtPointer.
 
@@ -23254,7 +23256,7 @@
      singleSelection singleClass doSelect|
 
     doSelect := doSelectIn.
-    (singleSelection := (classes size == 1)) ifTrue:[
+    false "(singleSelection := (classes size == 1))" ifTrue:[
         spec := #singleClassBrowserSpec.
         singleClass := classes first.
         meta := singleClass isMeta.
@@ -45701,11 +45703,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1532 2011-04-20 17:22:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1533 2011-05-03 15:49:29 mb Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1532 2011-04-20 17:22:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1533 2011-05-03 15:49:29 mb Exp $'
 ! !
 
 NewSystemBrowser initialize!