# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 885892958 -3600
# Node ID 00acfc33630479a94376c3e11cd40a8645993900
# Parent  e2e1ea0132291e8c58531f4155d04cfa0f2d588a
Add class name completion.

diff -r e2e1ea013229 -r 00acfc336304 UIPainter.st
--- a/UIPainter.st	Tue Jan 27 10:20:25 1998 +0100
+++ b/UIPainter.st	Tue Jan 27 10:22:38 1998 +0100
@@ -2415,13 +2415,23 @@
     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:
-    [            
+    ifTrue:[            
         self loadFromInClassesOf: box contents asSymbol
     ]
 
+    "Modified: / 27.1.1998 / 09:30:27 / stefan"
 !
 
 loadFromInClassesOf: aSuperclassOrSymbol