# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 885994288 -3600
# Node ID 13ce380baa5f8ca776d327793f81f52887d46524
# Parent  a76cca0bceb4bec6c693d7c4ab2688560fb22968
Support class name completion.

diff -r a76cca0bceb4 -r 13ce380baa5f ImageEditor.st
--- 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