Support class name completion.
--- 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