--- a/ImageEditor.st	Wed Jan 28 12:06:18 1998 +0100
+++ b/ImageEditor.st	Wed Jan 28 14:31:28 1998 +0100
@@ -1625,6 +1625,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:
@@ -1632,6 +1642,7 @@
         self loadFromInClassesOf: box contents asSymbol
     ]
 
+    "Modified: / 28.1.1998 / 13:14:00 / stefan"
 !
 
 loadFromFile