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