--- 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
!