--- a/MenuEditor.st	Wed Jun 09 17:02:42 2004 +0200
+++ b/MenuEditor.st	Wed Jun 09 19:10:07 2004 +0200
@@ -4726,6 +4726,7 @@
               acceptOnReturn: false
               acceptOnTab: false
               acceptOnPointerLeave: false
+              entryCompletionBlock: entryCompletionForRetriever
               comboList: retrieverList
               isFilenameBox: false
             )
@@ -4910,6 +4911,15 @@
 
 !MenuEditor::ResourceEditor methodsFor:'aspects'!
 
+entryCompletionForRetriever
+    ^ [ :s :field | 
+        |info|
+
+        info := Smalltalk classnameCompletion:s.
+        field contents:info first.
+      ].
+!
+
 iconAndLabelHolder
     ^ iconAndLabelHolder
 !