--- a/MenuEditor.st Mon Jan 26 17:23:07 1998 +0100
+++ b/MenuEditor.st Tue Jan 27 10:15:31 1998 +0100
@@ -1381,7 +1381,9 @@
defaultInfoLabel
- ^(specClass ? 'No class defined') printString, ' << ', self treeView selectorName
+ ^(specClass ? 'No class defined') printString, '>>', self treeView selectorName
+
+ "Modified: / 27.1.1998 / 09:18:51 / stefan"
! !
!MenuEditor methodsFor:'aspects'!
@@ -2074,6 +2076,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:
@@ -2081,8 +2093,7 @@
self loadFromInClassesOf: box contents asSymbol
]
-
-
+ "Modified: / 26.1.1998 / 22:20:41 / stefan"
!
loadFromInClassesOf: aSuperclassOrSymbol