--- a/MenuEditor.st	Mon Jan 26 17:23:07 1998 +0100
+++ b/MenuEditor.st	Tue Jan 27 10:15:31 1998 +0100
@@ -1381,7 +1381,9 @@
 
 defaultInfoLabel
 
-    ^(specClass ? 'No class defined') printString, ' << ', self treeView selectorName
+    ^(specClass ? 'No class defined') printString, '>>', self treeView selectorName
+
+    "Modified: / 27.1.1998 / 09:18:51 / stefan"
 ! !
 
 !MenuEditor methodsFor:'aspects'!
@@ -2074,6 +2076,16 @@
     box okText:'OK'.
     box abortText:'Cancel'.
     box initialText: 'ApplicationModel'.
+    box entryCompletionBlock:[:contents |
+        |s what m|
+
+        s := contents withoutSpaces.
+        what := Smalltalk classnameCompletion:s.
+        box contents:what first.
+        (what at:2) size ~~ 1 ifTrue:[
+            self beep
+        ]
+    ].
     box showAtPointer.
     box accepted
     ifTrue:
@@ -2081,8 +2093,7 @@
         self loadFromInClassesOf: box contents asSymbol
     ]
 
-
-
+    "Modified: / 26.1.1998 / 22:20:41 / stefan"
 !
 
 loadFromInClassesOf: aSuperclassOrSymbol