--- a/NewSystemBrowser.st	Mon Jun 27 12:29:07 2005 +0200
+++ b/NewSystemBrowser.st	Tue Jun 28 18:54:05 2005 +0200
@@ -32758,18 +32758,9 @@
 !
 
 classNameEntryCompletionBlock
-    ^ [:contents :field  |
-          |s what m|
-
-          s := contents withoutSpaces.
-          field topView withCursor:(Cursor questionMark) do:[  
-              what := Smalltalk classnameCompletion:s.
-          ].
-          field contents:(what first).
-          (what at:2) size ~~ 1 ifTrue:[
-              field device beep
-          ]
-      ].
+    "obsolete"
+
+    ^ DoWhatIMeanSupport classNameEntryCompletionBlock
 !
 
 classNameEntryCompletionBlockFor:anEntryField
@@ -36752,7 +36743,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.839 2005-06-27 10:29:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.840 2005-06-28 16:54:05 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!

--- a/Tools__NewSystemBrowser.st	Mon Jun 27 12:29:07 2005 +0200
+++ b/Tools__NewSystemBrowser.st	Tue Jun 28 18:54:05 2005 +0200
@@ -32758,18 +32758,9 @@
 !
 
 classNameEntryCompletionBlock
-    ^ [:contents :field  |
-          |s what m|
-
-          s := contents withoutSpaces.
-          field topView withCursor:(Cursor questionMark) do:[  
-              what := Smalltalk classnameCompletion:s.
-          ].
-          field contents:(what first).
-          (what at:2) size ~~ 1 ifTrue:[
-              field device beep
-          ]
-      ].
+    "obsolete"
+
+    ^ DoWhatIMeanSupport classNameEntryCompletionBlock
 !
 
 classNameEntryCompletionBlockFor:anEntryField
@@ -36752,7 +36743,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.839 2005-06-27 10:29:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.840 2005-06-28 16:54:05 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!