# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1086801007 -7200
# Node ID bd6900fa7f50c1aa59dfd836ab198607a7d6bf8f
# Parent  c40abf408dc427f8102d9a86c439f8b1608521c3
retriever field in Image-Slice: class-name completion

diff -r c40abf408dc4 -r bd6900fa7f50 MenuEditor.st
--- 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
 !